Bounce a zap off the walls! = ) Copy the script from the script section: This is an ON OUTCHAT Script. It has to be placed in your Palace Clients "cyborg.ipt" file in the ON OUTCHAT section.
Use Notepad, or plain text editors Like Ultraedit or BBedit for this. Wordprocessors will damage scripts.
For more information on editing your Cybrog.ipt, please check the Palace Planet HELP section.
Code:
;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
Linear Mode
