ON OUTCHAT {


{"Arial" PENFONT
{2 RANDOM PENBOLD
2 RANDOM PENITALIC
2 RANDOM PENUNDERLINE
10 22 RANDOM + PENSIZE
255 RANDOM 255 RANDOM 255 RANDOM PENCOLOR
{PENFRONT}{PENBACK} 2 RANDOM IFELSE
"Hi " NBRROOMUSERS RANDOM ROOMUSER WHONAME & ROOMWIDTH RANDOM ROOMHEIGHT RANDOM DRAWTEXT
i++}{i 50 <} WHILE
"" CHATSTR =} CHATSTR "testtext" == IF


{"Lucida Console" PENFONT
1 PENBOLD 0 PENITALIC 0 PENUNDERLINE
4 PENSIZE 0 0 255 PENCOLOR PENFRONT
"$1" GREPSUB MOUSEPOS DRAWTEXT
"" CHATSTR =} CHATSTR "^asciiart *(.*)" GREPSTR IF


{"Tahoma" PENFONT
1 PENBOLD 0 PENITALIC 0 PENUNDERLINE
14 PENSIZE 0 0 255 PENCOLOR PENFRONT
"$1" GREPSUB MOUSEPOS DRAWTEXT
"" CHATSTR =} CHATSTR "^dsay *(.*)" GREPSTR IF


{ PAINTCLEAR {255 RANDOM PENOPACITY 255 RANDOM PENFILLOPACITY
255 RANDOM 255 RANDOM 255 RANDOM PENCOLOR
255 RANDOM 255 RANDOM 255 RANDOM PENFILLCOLOR
{PENBACK}{PENFRONT} 2 RANDOM IFELSE 13 RANDOM PENSIZE
ROOMWIDTH RANDOM ROOMHEIGHT RANDOM 200 RANDOM 200 RANDOM OVAL
i++}{i 60 <} WHILE
255 PENOPACITY ;reset opacity so old scripts don't mess up!
"" CHATSTR =} CHATSTR "circles" == IF


{0 PENOPACITY PAINTCLEAR 1 PENSIZE PENFRONT 255 PENFILLOPACITY
"$2" GREPSUB red = {255 RANDOM}{red ATOI} red "" == IFELSE red =
"$3" GREPSUB green = {255 RANDOM}{green ATOI} green "" == IFELSE green =
"$4" GREPSUB blue = {255 RANDOM}{blue ATOI} blue "" == IFELSE blue =
red green blue PENFILLCOLOR
POSX x = POSY y = 110 size =
x size- x1 = x size+ x2 = y size- y1 = y size+ y2 =
[x1 y1 x1 y2 x2 y2 x2 y1] POLYGON
255 PENOPACITY ;reset opacity so old scripts don't mess up!
"" CHATSTR =} CHATSTR LOWERCASE "^pedit *(([0-9]*) *([0-9]*) *([0-9]*))" GREPSTR IF


{{TOPPROP PROPOFFSETS y = x =
POSX x + POSY y + DROPPROP}
{TOPPROP} WHILE
"" CHATSTR =} CHATSTR "dropav" == IF


{" $1" GREPSUB message =
"@" MOUSEPOS ITOA SWAP ITOA "," + SWAP + + message + ROOMMSG
"" CHATSTR =
} CHATSTR LOWERCASE "^rsay *(.*)$" GREPSTR IF


{CLEARLOOSEPROPS PAINTCLEAR "" CHATSTR =} CHATSTR "clean" == IF


{"" theprop = { " " i USERPROP ITOA + theprop += i++ } { i NBRUSERPROPS <} while
 "[" theprop + " ]" + logmsg
"" CHATSTR =} CHATSTR "pid" == IF

}