PalaceChat RBScript Compendium

Script Name:	Spiral
Author:	Pa\/\/n
Sections:	OUTCHAT

Draw a spiral in the room.
Say spiral to use.

if chatstr="spiral" then
	dim rd,st,x,y,i,x1,y1,poldir as integer
	clearpaint
	rd=20*12
	st=rd/11+1
	x=roomwidth\2
	y=roomheight\2
	pensize 8
	penfront true
	penfill false
	while rd>0
		poldir=360*i/st
		pencolor RGB(i*2,i*2,0)
		x1=(cos(poldir)*1000)*rd/1000+x
		y1=(sin(poldir)*1000)*rd/1000+y
		drawline(x,y,x1,y1)
		i=i+1
		rd=rd-2
	wend
	chatstr=""
end if