PalaceChat RBScript Compendium

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

Draw a weevy pattern at mouse position.
say weev to use.

if chatstr="weev" then
	dim red,green,blue,r2,g2,b2,rcolor,gcolor,bcolor,i,x,y as integer
	x=mousex
	y=mousey
	
	rcolor=rnd*255
	gcolor=rnd*255
	bcolor=rnd*255

	red=rnd*2
	green=rnd*2
	blue=rnd*2

	for i=0 to 27

	if red=1 then
		r2=i*8
	else
		r2=rcolor
	end if
	
	if green=1 then
		g2=i*8
	else
		g2=gcolor
	end if
	
	if blue=1 then
		b2=i*8
	else
		b2=bcolor
	end if

	pencolor RGB(r2,g2,b2)
	drawline(x,y-132+i*5,x-i*5,y)
	drawline(x,y-132+i*5,x+i*5,y)
	drawline(x,y+132-i*5,x-i*5,y)
	drawline(x,y+132-i*5,x+i*5,y)
	next
	
	chatstr=""
end if