PalaceChat RBScript Compendium

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

Zap somebody.
Say zap to use.

if chatstr="zap" then
	dim x,y,i as integer
	sayat(mousex,mousey,")NO !Zap!")
	x=posx
	y=posy
	penfront true
	penfill false
	pencolor RGB(255,0,0)
	pensize 4
	for i=0 to 5
		DRAWLINE(x,y,mousex,mousey)
		undopaint
	next
	chatstr=""
end if