;a zig zag zap, goes in on outchat
{
		8 PENSIZE
		255 255 0 PENCOLOR
		PENFRONT
		MOUSEPOS POSY - difrow = POSX - difcol =
		POSX slc =
		POSY slr =
		difrow 8 / aslr =
		difcol 8 / aslc =
		difcol 20 / -1 * zrow =
		difrow 20 / zcol =
		POSY oldr =
		POSX oldc =
		{
			steps ++
			aslc slc +=
			aslr slr +=
			slc zcol + newc =
			slr zrow + newr =
			oldc oldr newc newr LINE
			-1 zrow *=
			-1 zcol *=
			newc oldc =
			newr oldr =
			8 steps - PENSIZE
		} { steps 7 < } WHILE
		oldc oldr MOUSEPOS LINE 
		"@" MOUSEPOS SWAP ITOA "," & SWAP ITOA & & ")boom !KERPOW!" & ROOMMSG
		{ PAINTCLEAR } 300 ALARMEXEC
		PENBACK
		"" CHATSTR =
	} CHATSTR "zzap" == IF