Palace Planet user forum, the place for all your friendly family questions and answers.

Bounce Zap 2.1: Bounce a zap off the walls! = )

Palace Planet Forum Index » Script Supply » Palace Client scripts

Author

Message

maarten

Post subject: Bounce Zap 2.1: Bounce a zap off the walls! = )

Posted: Jan 06, 2005 - 03:44 AM

Joined: Oct 20, 2002
Posts: 674
Location: DiGiLaNd
Status: Offline

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

All times are GMT - 6 Hours

Palace Planet Forum Index » Script Supply » Palace Client scripts