PalaceChat RBScript Compendium

Script Name:	Zap All
Author:	Pa\/\/n
Sections:	OUTCHAT

Zap everybody.
Say zap to use.

if chatstr="zapall" then
	dim b as boolean
	dim i,x,y as integer
	penfront true
	penfill false
	pencolor RGB(255,0,0)
	pensize 4
	for i=0 to nbrroomusers-1
		if whoid(i)<>whome then
			x=whox(whoid(i))
			y=whoy(whoid(i))
			sayat x,y,")NO !Zap!"
			DRAWLINE posx,posy,x,y
			undopaint
		end if
	next
	chatstr=""
end if