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

Checkerboard blanket

Palace Planet Forum Index » Script Supply » Palace Client scripts

Author

Message

maarten

Post subject: Checkerboard blanket

Posted: Jan 06, 2005 - 04:30 AM

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

Checkerboard blanket, allows for a blanket or a type using two alternating props. 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. After installing type: cb [, ] <- If a 2nd propname is given it will blanket with a checkerboard effect. (don't forget to RELOAD scripts from the file menu of your client)

Code:

;cb blanket by Hex, concept by Zombie Woof - http://hex.palaceplanet.net/
;Usage: cb <propname>[, <propname2>] <- If a 2nd propname is given it will blanket with a checkerboard effect
{ prp2 GLOBAL "$1" GREPSUB prp1 =
   { "$1" GREPSUB prp1 = "$2" GREPSUB prp2 = } { prp1 prp2 = } prp1 "(.*), (.*)" GREPSTR IFELSE
   CLEARLOOSEPROPS 0 nx = 0 ny =
   { { 44 nx = } { 0 nx = } nx 528 == IFELSE
      { prp1 nx ny ADDLOOSEPROP 88 nx += } { nx 512 < } WHILE
      44 ny +=
   } { ny 384 < } WHILE
   { nx GLOBAL ny GLOBAL prp2 GLOBAL
      44 nx = 0 ny =
      { { 0 nx = } { 44 nx = } nx 572 == IFELSE
         { prp2 nx ny ADDLOOSEPROP 88 nx += } { nx 512 < } WHILE
         44 ny +=
      } { ny 384 < } WHILE
   } 80 ALARMEXEC
   "" CHATSTR =
} CHATSTR "^cb (.*)$" GREPSTR IF

All times are GMT - 6 Hours

Palace Planet Forum Index » Script Supply » Palace Client scripts