;Bounce Zap 2.1 by Hex - http://hex.palaceplanet.net
	{	"$1" GREPSUB lcount = 0 SETCOLOR
		{ 4 lcount = } { lcount ATOI lcount = } lcount "" == IFELSE
		lcount 2 * psize =
		{ 8 psize = } psize 8 > IF PAINTCLEAR
		PENBACK POSX px = POSY py = MOUSEPOS my = mx =		
		mx px - run = my py - rise =	
		{ 1 direc = } mx px > my py < AND IF
		{ 2 direc = } mx px > my py > AND IF
		{ 3 direc = } mx px < my py > AND IF
		{ 4 direc = } mx px < my py < AND IF		
		rise 10 / rise = run 10 / run =
		{ { 2 } { -2 } 2 RANDOM IFELSE rise = } 0 rise == IF { { 2 } { -2 } 2 RANDOM IFELSE run = } 0 run == IF
		{	{	run  mx += rise my +=
			} { mx 0 >= mx 512 <= AND my 0 >= AND my 384 <= AND } WHILE		
			{ 0   mx = } mx 0   < IF
			{ 512 mx = } mx 512 > IF
			{ 0   my = } my 0   < IF
			{ 384 my = } my 384 > IF			
			255 0 0 PENCOLOR psize PENSIZE		
			px py mx my LINE
			"@" mx ITOA & "," & my ITOA & " " &
			")bzap.wav" &
			" !" &
			[ "Ping!" "Pop!" "Bounce!" "Toooing!" "Bing!" "Ting!" ] DUP LENGTH RANDOM GET & SAY 				
			{ psize -- } psize 1 > IF
			mx px = my py = 0 done =
			{ { 4 direc = 0 run - run = } { 2 direc = 0 rise - rise = } mx 512 == IFELSE 1 done = } 1 direc == done NOT AND IF
			{ { 3 direc = 0 run - run = } { 1 direc = 0 rise - rise = } mx 512 == IFELSE 1 done = } 2 direc == done NOT AND IF
			{ { 2 direc = 0 run - run = } { 4 direc = 0 rise - rise = } mx 0   == IFELSE 1 done = } 3 direc == done NOT AND IF
			{ { 1 direc = 0 run - run = } { 3 direc = 0 rise - rise = } mx 0   == IFELSE 1 done = } 4 direc == done NOT AND IF
			bz ++
		} { bz lcount < } WHILE
		{ PAINTCLEAR } lcount 60 * ALARMEXEC "" CHATSTR =
	} CHATSTR "bzap *(.*)" GREPSTR IF