;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