;; ---------------------------------------------------------------------- ;; ---------------------------------------------------------------------- ;; Badgirl's Cyborg ;; ---------------------------------------------------------------------- ;; ---------------------------------------------------------------------- ON ENTER{ "@544,0 Say coms for commands." LOCALMSG } ON OUTCHAT { ;;Commands { "GO LOOK IN THE LOG!!" STATUSMSG " " LOGMSG " ----------------------------------------------------------------------- " LOGMSG " badgirl kicks ass " LOGMSG " ----------------------------------------------------------------------- " LOGMSG " badgirl007.com " LOGMSG " ----------------------------------------------------------------------- " LOGMSG " " LOGMSG " brb1 - type space then enter to come back" LOGMSG " spikebox - suronds someone with a box then stabs them to death " LOGMSG " scan - targets somone and scans them over " LOGMSG " zapall - zaps everyone in room " LOGMSG " zblast - zaps user then expands " LOGMSG " zblast2 - a little like the above " LOGMSG " szap - like Zap And Scan " LOGMSG " szope - hits user with paint " LOGMSG " zope - same as above " LOGMSG " splash - zaps user then expands " LOGMSG " zap - zaps user " LOGMSG " virus - makes cross hair over user " LOGMSG " bot - turn into a bot and shoot lazers at a user " LOGMSG " kame - DBZ blast " LOGMSG " fb - DBZ blast " LOGMSG " gb - DBZ blast " LOGMSG " qb - DBZ blast from corner " LOGMSG " grid - gird blast script " LOGMSG " zzap - hits user with paint " LOGMSG " wrapup - wraps everyone with paint up " LOGMSG " smasher - hits user with paint" LOGMSG " zapaz - a zap " LOGMSG " n2k - shoots paint to corners and then does zigzag zap to user " LOGMSG " claw - claw Over Mouse Pos " LOGMSG " spear - shoots a spear from you to mouse pos " LOGMSG " bypass - EX : Bypass yo - zaps at mouse pos and says yo " LOGMSG " rzap1-9 - moves you to random Positions zaping at mouse pos " LOGMSG " roomkill - does some fancy painting... " LOGMSG " psh1 - shoots a line, expantds, and does zzap " LOGMSG " psh2 - shoots out lines from middle and top and bottom " LOGMSG " dbzap - zaps from both sides of the room " LOGMSG " throw - throws props at user " LOGMSG " megatweaker - awesome MegaMan blaster " LOGMSG " megablaster - another awesome MegaMan blaster " LOGMSG " fireball - attacks user with a fireball " LOGMSG " vblast - DBZ Vegeta Blast " LOGMSG " mm2 - a real cool design" LOGMSG " assult - kill somebody, then threaten them " LOGMSG " cum - cum where your mouse position is " LOGMSG " peepee - peepee for all " LOGMSG " jailed - better than Jailem " LOGMSG " heart - paints red heart at mouse pos " LOGMSG " constrict - makes snake " LOGMSG " box 0-200 - EX: box 130 " LOGMSG " cscreen - covers screen with paint " LOGMSG " blackwidow - paints a spider web to mouse pos" LOGMSG " storm - makes a storm type thing with paint " LOGMSG " vertigo - makes Squares and Diamonds all around you " LOGMSG " rainbow - makes a rainbow from you to mouse pos " LOGMSG " tag= - paints words at mouse pos EX: tag= hi" LOGMSG " erase2 - erases user with paint " LOGMSG " dump - dumps worn Props At mouse pos." LOGMSG " propid - gives Prop Id's In the LOG " LOGMSG " blanket - blankets the screen with a prop " LOGMSG " border - borders room with desired PROP " LOGMSG " triple - almost like db" LOGMSG " blank - lags palace with blank props " LOGMSG " hop - a hop across the screen " LOGMSG " db - shakes you " LOGMSG " split - a cool moving to your mouse position " LOGMSG " x - makes a cool x at mos position" LOGMSG " up - moves you a pixel up " LOGMSG " down - moves you a pixel down " LOGMSG " left - moves you a pixel left " LOGMSG " right - moves you a pixel right " LOGMSG " faces - changes your face 200 Times " LOGMSG " shove - uses Allscray to move someone" LOGMSG " colors - changes the colors of your face " LOGMSG " updown - jumps up and down in one position " LOGMSG " jump - jumps higher than updown in one position " LOGMSG " everywhere - like mosh" LOGMSG " tele - moves you around your mouse pos really cool " LOGMSG " move - slides you like your floating in air, follows mouse pos " LOGMSG " warp - old warp " LOGMSG " fly - slides you to mouse pos " LOGMSG " fly2 - bounces you off the wall and slides to mouse pos " LOGMSG " flyback - slides you back across the screen " LOGMSG " allsay - everyone will say it" LOGMSG " tsay - to make someone say somethin :example: tsay YO! " LOGMSG " ssay - text at mouse position " LOGMSG " corners - makes words come out of the corners " LOGMSG " fsay - makes words everywhere :example: fsay hi" LOGMSG " talking with - before anything will make you talk elite" LOGMSG " ta - makes it so you can talk again (dosent fix gag) " LOGMSG " .fixmyprops - fixes your 'smiley faces' " LOGMSG " clean - cleans room of Paint, And Props " LOGMSG " pingme - shows you how long your lagged " LOGMSG " pinme - pin yourself (not real) " LOGMSG " info - displays borg info " LOGMSG " ----------------------------------------------------------------------- " LOGMSG " Band Pictures " LOGMSG " ----------------------------------------------------------------------- " LOGMSG " korn1 - Korn Picture 1, by lala " LOGMSG " korn2 - Korn Picture 2, by lala " LOGMSG " system - System of a Down Picture, by lala " LOGMSG " zombie - Rob Zombie Picture, by lala " LOGMSG " ----------------------------------------------------------------------- " LOGMSG " " LoGMSG " " LoGMSG " " LoGMSG " " LoGMSG " " LoGMSG " " LoGMSG " " LoGMSG " " LoGMSG " " LoGMSG " " LoGMSG "" CHATSTR = } CHATSTR "^;*coms$" GREPSTR IF { MOUSEPOS y = x = 1 PENSIZE 255 255 0 PENCOLOR POSX 13 + POSY 23 - x 30 - y 30 - LINE POSX 13 + POSY 23 - x 30 - y 30 + LINE POSX 7 - POSY 19 - x 30 + y 30 - LINE POSX 7 - POSY 19 - x 30 + y 30 + LINE 2 PENSIZE 0 255 0 PENCOLOR x 5 - y x 5 + y LINE x y 5 - x y 5 + LINE 255 0 0 PENCOLOR x 30 - y 30 - x 20 - y 30 - LINE x 30 - y 30 - x 30 - y 20 - LINE x 30 + y 30 - x 20 + y 30 - LINE x 30 + y 30 - x 30 + y 20 - LINE x 30 - y 30 + x 20 - y 30 + LINE x 30 - y 30 + x 30 - y 20 + LINE x 30 + y 30 + x 20 + y 30 + LINE x 30 + y 30 + x 30 + y 20 + LINE ")fazein" SAY 0 255 0 PENCOLOR 1 PENSIZE -25 d = { j ++ x d + y 25 - x d + y 25 + LINE d 5 + d = } { j 11 < } WHILE 0 i = { i ++ PAINTUNDO } { i 11 < } WHILE -25 d = { k ++ x 25 + y d + x 25 - y d + LINE d 5 + d = } { k 11 < } WHILE 0 i = { i ++ PAINTUNDO } { i 25 < } WHILE "" CHATSTR = } CHATSTR "scan" == IF ;; zapall: Zap Everyone in the Room { NBRROOMUSERS NumUsers = 10 PENSIZE PENBACK 0 i = { { 255 RANDOM 255 RANDOM 255 RANDOM PENCOLOR POSX POSY i ROOMUSER WHOPOS LINE 16 RANDOM SETCOLOR } i WHONAME USERNAME == NOT IF i ++ } { i NumUsers < } WHILE "" CHATSTR = } CHATSTR "zapall" == IF ;;scmfk { 100 0 0 PENCOLOR 10 PENSIZE POSX POSY MOUSEPOS LINE PAINTUNDO 10 0 0 PENCOLOR 10 PENSIZE POSX POSY MOUSEPOS LINE PAINTUNDO 100 0 0 PENCOLOR 10 PENSIZE POSX POSY MOUSEPOS LINE PAINTUNDO 100 0 0 PENCOLOR 10 PENSIZE POSX POSY MOUSEPOS LINE PAINTUNDO 100 0 0 PENCOLOR 10 PENSIZE POSX POSY MOUSEPOS LINE PAINTUNDO 100 0 0 PENCOLOR 10 PENSIZE POSX POSY MOUSEPOS LINE PAINTUNDO 100 0 0 PENCOLOR 10 PENSIZE POSX POSY MOUSEPOS LINE PAINTUNDO 100 0 0 PENCOLOR 10 PENSIZE POSX POSY MOUSEPOS LINE PAINTUNDO 100 0 0 PENCOLOR 10 PENSIZE POSX POSY MOUSEPOS LINE PAINTUNDO 100 0 0 PENCOLOR 10 PENSIZE POSX POSY MOUSEPOS LINE PAINTUNDO 230 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 2 - 2 - LINE 230 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 2 + 2 + LINE 200 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 4 - 4 - LINE 200 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 4 + 4 + LINE 180 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 6 - 6 - LINE 180 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 6 + 6 + LINE 180 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 8 - 8 - LINE 180 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 8 + 8 + LINE 160 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 10 - 10 - LINE 160 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 10 + 10 + LINE 160 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 12 - 12 - LINE 160 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 12 + 12 + LINE 140 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 14 - 14 - LINE 140 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 14 + 14 + LINE 120 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 16 - 16 - LINE 120 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 16 + 16 + LINE 100 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 18 - 18 - LINE 100 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 18 + 18 + LINE 100 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 20 - 20 - LINE 100 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 20 + 20 + LINE 85 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 22 - 22 - LINE 85 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 22 + 22 + LINE 85 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 24 - 24 - LINE 85 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 24 + 24 + LINE 60 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 26 - 26 - LINE 60 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 26 + 26 + LINE 60 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 28 - 28 - LINE 60 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 28 + 28 + LINE 0 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 30 - 30 - LINE 0 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 30 + 30 + LINE 0 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 32 - 32 - LINE 0 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 32 + 32 + LINE "" CHATSTR = } CHATSTR "zblast" == IF ;; made by !§K¥ ;; cmk : new at this so BLAH { 180 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 2 - 2 - LINE 160 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 2 + 2 + LINE 160 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 4 - 4 - LINE 140 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 4 + 4 + LINE 140 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 6 - 6 - LINE 140 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 6 + 6 + LINE 100 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 8 - 8 - LINE 100 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 8 + 8 + LINE 100 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 10 - 10 - LINE 85 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 10 + 10 + LINE 85 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 12 - 12 - LINE 85 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 12 + 12 + LINE 60 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 14 - 14 - LINE 60 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 14 + 14 + LINE 60 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 16 - 16 - LINE 40 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 16 + 16 + LINE 40 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 18 - 18 - LINE 40 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 18 + 18 + LINE 0 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 20 - 20 - LINE 0 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 20 + 20 + LINE 0 0 0 PENCOLOR 10 PENSIZE POSX POSY MOUSEPOS LINE PAINTUNDO 0 0 0 PENCOLOR 10 PENSIZE POSX POSY MOUSEPOS LINE PAINTUNDO 0 0 0 PENCOLOR 10 PENSIZE POSX POSY MOUSEPOS LINE PAINTUNDO 0 0 0 PENCOLOR 10 PENSIZE POSX POSY MOUSEPOS LINE PAINTUNDO 0 0 0 PENCOLOR 10 PENSIZE POSX POSY MOUSEPOS LINE PAINTUNDO 0 0 0 PENCOLOR 10 PENSIZE POSX POSY MOUSEPOS LINE PAINTUNDO 0 0 0 PENCOLOR 10 PENSIZE POSX POSY MOUSEPOS LINE PAINTUNDO 0 0 0 PENCOLOR 10 PENSIZE POSX POSY MOUSEPOS LINE PAINTUNDO "" CHATSTR = } CHATSTR "zblast2" == IF ;; Made By !§K¥ ;; it's like zap and scan kinda... { 0 0 0 PENCOLOR 5 PENSIZE 0 0 MOUSEPOS LINE 0 0 0 PENCOLOR 10 PENSIZE 512 0 MOUSEPOS LINE 0 0 0 PENCOLOR 5 PENSIZE 0 384 MOUSEPOS LINE 0 0 0 PENCOLOR 10 PENSIZE 512 384 MOUSEPOS LINE PAINTCLEAR 110 110 110 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 2 - 2 - LINE 110 110 110 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 2 + 2 + LINE 110 110 110 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 4 - 4 - LINE 90 90 90 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 4 + 4 + LINE 90 90 90 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 6 - 6 - LINE 90 90 90 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 6 + 6 + LINE 75 75 75 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 8 - 8 - LINE 75 75 75 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 8 + 8 + LINE 75 75 75 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 10 - 10 - LINE 55 55 55 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 10 + 10 + LINE 55 55 55 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 12 - 12 - LINE 55 55 55 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 12 + 12 + LINE 39 39 39 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 14 - 14 - LINE 39 39 39 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 14 + 14 + LINE 39 39 39 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 16 - 16 - LINE 0 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 16 + 16 + LINE 0 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 18 - 18 - LINE 0 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 18 + 18 + LINE 0 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 20 - 20 - LINE 0 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 20 + 20 + LINE PAINTCLEAR 55 55 55 PENCOLOR 10 PENSIZE 0 0 MOUSEPOS LINE 55 55 55 PENCOLOR 5 PENSIZE 512 0 MOUSEPOS LINE 55 55 55 PENCOLOR 10 PENSIZE 0 384 MOUSEPOS LINE 55 55 55 PENCOLOR 5 PENSIZE 512 384 MOUSEPOS LINE PAINTCLEAR "" CHATSTR = } CHATSTR "szap" == IF ;; unknown ;; made by !§K¥ { 180 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 2 - 2 - LINE 180 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 2 + 2 + LINE 160 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 4 - 4 - LINE 160 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 4 + 4 + LINE 140 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 6 - 6 - LINE 140 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 6 + 6 + LINE 120 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 8 - 8 - LINE 120 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 8 + 8 + LINE 90 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 10 - 10 - LINE 90 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 10 + 10 + LINE 90 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 12 - 12 - LINE 90 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 12 + 12 + LINE 0 0 0 PENCOLOR 5 PENSIZE 64 64 MOUSEPOS LINE 0 0 0 PENCOLOR 10 PENSIZE 344 15 MOUSEPOS LINE 0 0 0 PENCOLOR 5 PENSIZE 64 285 MOUSEPOS LINE 0 0 0 PENCOLOR 10 PENSIZE 245 253 MOUSEPOS LINE 55 55 55 PENCOLOR 10 PENSIZE POSX POSY MOUSEPOS LINE PAINTUNDO 55 55 55 PENCOLOR 10 PENSIZE POSX POSY MOUSEPOS LINE PAINTUNDO 39 39 39 PENCOLOR 10 PENSIZE POSX POSY MOUSEPOS LINE PAINTUNDO 39 39 39 PENCOLOR 10 PENSIZE POSX POSY MOUSEPOS LINE PAINTUNDO 0 0 0 PENCOLOR 10 PENSIZE POSX POSY MOUSEPOS LINE PAINTUNDO 0 0 0 PENCOLOR 10 PENSIZE POSX POSY MOUSEPOS LINE PAINTUNDO 39 0 0 PENCOLOR 10 PENSIZE POSX POSY MOUSEPOS LINE PAINTUNDO 39 0 0 PENCOLOR 10 PENSIZE POSX POSY MOUSEPOS LINE PAINTCLEAR "" MOUSEPOS SAYAT "" CHATSTR = } CHATSTR "szope" == IF ;; zope ;; wierd made by !§K¥ { 0 0 0 PENCOLOR 10 PENSIZE POSX POSY MOUSEPOS LINE PAINTUNDO 39 39 39 PENCOLOR 10 PENSIZE POSX POSY MOUSEPOS LINE PAINTUNDO 55 55 55 PENCOLOR 10 PENSIZE POSX POSY MOUSEPOS LINE PAINTUNDO 0 0 0 PENCOLOR 10 PENSIZE POSX POSY MOUSEPOS LINE PAINTUNDO 39 39 39 PENCOLOR 10 PENSIZE POSX POSY MOUSEPOS LINE PAINTUNDO 55 55 55 PENCOLOR 10 PENSIZE POSX POSY MOUSEPOS LINE PAINTUNDO 0 0 0 PENCOLOR 10 PENSIZE POSX POSY MOUSEPOS LINE PAINTUNDO 0 0 0 PENCOLOR 10 PENSIZE PENBACK POSX POSY MOUSEPOS 20 - 20 - LINE 0 0 0 PENCOLOR 10 PENSIZE PENBACK POSX POSY MOUSEPOS 20 + 20 + LINE 0 0 0 PENCOLOR 10 PENSIZE PENBACK POSX POSY MOUSEPOS 18 - 18 - LINE 0 0 0 PENCOLOR 10 PENSIZE PENBACK POSX POSY MOUSEPOS 18 + 18 + LINE 50 0 0 PENCOLOR 10 PENSIZE PENBACK POSX POSY MOUSEPOS 16 - 16 - LINE 50 0 0 PENCOLOR 10 PENSIZE PENBACK POSX POSY MOUSEPOS 16 + 16 + LINE 50 0 0 PENCOLOR 10 PENSIZE PENBACK POSX POSY MOUSEPOS 14 - 14 - LINE 50 0 0 PENCOLOR 10 PENSIZE PENBACK POSX POSY MOUSEPOS 14 + 14 + LINE 70 0 0 PENCOLOR 10 PENSIZE PENBACK POSX POSY MOUSEPOS 12 - 12 - LINE 70 0 0 PENCOLOR 10 PENSIZE PENBACK POSX POSY MOUSEPOS 12 + 12 + LINE 70 0 0 PENCOLOR 10 PENSIZE PENBACK POSX POSY MOUSEPOS 10 - 10 - LINE 70 0 0 PENCOLOR 10 PENSIZE PENBACK POSX POSY MOUSEPOS 10 + 10 + LINE 85 0 0 PENCOLOR 10 PENSIZE PENBACK POSX POSY MOUSEPOS 8 - 8 - LINE 85 0 0 PENCOLOR 10 PENSIZE PENBACK POSX POSY MOUSEPOS 8 + 8 + LINE 85 0 0 PENCOLOR 10 PENSIZE PENBACK POSX POSY MOUSEPOS 6 - 6 - LINE 85 0 0 PENCOLOR 10 PENSIZE PENBACK POSX POSY MOUSEPOS 6 + 6 + LINE 100 0 0 PENCOLOR 10 PENSIZE PENBACK POSX POSY MOUSEPOS 4 - 4 - LINE 100 0 0 PENCOLOR 10 PENSIZE PENBACK POSX POSY MOUSEPOS 4 + 4 + LINE 100 0 0 PENCOLOR 10 PENSIZE PENBACK POSX POSY MOUSEPOS 2 - 2 - LINE 100 0 0 PENCOLOR 10 PENSIZE PENBACK POSX POSY MOUSEPOS 2 + 2 + LINE PAINTCLEAR 50 0 0 PENCOLOR 10 PENSIZE POSX POSY MOUSEPOS LINE PAINTUNDO 70 0 0 PENCOLOR 10 PENSIZE POSX POSY MOUSEPOS LINE PAINTUNDO 85 0 0 PENCOLOR 10 PENSIZE POSX POSY MOUSEPOS LINE PAINTUNDO 0 0 0 PENCOLOR 10 PENSIZE POSX POSY MOUSEPOS LINE PAINTUNDO 85 0 0 PENCOLOR 10 PENSIZE POSX POSY MOUSEPOS LINE PAINTUNDO 70 0 0 PENCOLOR 10 PENSIZE POSX POSY MOUSEPOS LINE PAINTUNDO 50 0 0 PENCOLOR 10 PENSIZE POSX POSY MOUSEPOS LINE PAINTUNDO 0 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS LINE 0 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 2 + 2 + LINE 50 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 2 - 2 - LINE 50 0 0 PENCOLOR 6 PENSIZE PENFRONT POSX POSY MOUSEPOS 4 - 4 - LINE 39 39 39 PENCOLOR 6 PENSIZE PENFRONT POSX POSY MOUSEPOS 4 + 4 + LINE 39 39 39 PENCOLOR 2 PENSIZE PENFRONT POSX POSY MOUSEPOS 4 - 4 - LINE 70 0 0 PENCOLOR 2 PENSIZE PENFRONT POSX POSY MOUSEPOS 6 + 6 + LINE 70 0 0 PENCOLOR 2 PENSIZE PENFRONT POSX POSY MOUSEPOS 6 - 6 - LINE "" CHATSTR = } CHATSTR "zope" == IF ;;Splash ;; Made by !§K¥ { 0 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 2 - 2 - LINE 0 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 2 + 2 + LINE 0 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 4 - 4 - LINE 39 39 39 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 4 + 4 + LINE 39 39 39 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 6 - 6 - LINE 39 39 39 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 6 + 6 + LINE PAINTCLEAR 0 0 0 PENCOLOR 10 PENSIZE POSX POSY MOUSEPOS LINE PAINTUNDO 0 0 0 PENCOLOR 10 PENSIZE POSX POSY MOUSEPOS LINE PAINTUNDO 255 255 255 PENCOLOR 10 PENSIZE POSX POSY MOUSEPOS LINE 130 130 130 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 4 - 4 - LINE 130 176 130 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 4 + 4 + LINE 130 130 130 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 4 - 4 - LINE 100 110 110 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 6 + 6 + LINE 110 110 110 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 6 - 6 - LINE 110 110 110 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 6 + 6 + LINE 90 90 90 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 8 - 8 - LINE 90 90 90 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 8 + 8 + LINE 75 75 75 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 10 - 10 - LINE 75 75 75 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 10 + 10 + LINE 75 75 75 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 12 - 12 - LINE 55 55 55 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 12 + 12 + LINE 55 55 55 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 14 - 14 - LINE 55 55 55 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 14 + 14 + LINE 33 33 33 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 16 - 16 - LINE 33 33 33 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 16 + 16 + LINE 33 33 33 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 18 - 18 - LINE 0 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 18 + 18 + LINE 0 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 20 - 20 - LINE 0 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 20 + 20 + LINE PAINTCLEAR "" CHATSTR = } CHATSTR "splash" == IF ;; some kinda wierd { 75 75 75 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS LINE PAINTUNDO 55 55 55 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS LINE PAINTUNDO 33 33 33 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS LINE PAINTUNDO 0 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS LINE PAINTCLEAR "" CHATSTR = } CHATSTR "zap" == IF ;; Virus { CLEARLOOSEPROPS 0 i = MOUSEPOS Y1 = X1 = X1 102 - X = Y1 102 - Y = 0 255 0 PENCOLOR PENFRONT 2PENSIZE X1 0 PENPOS 0 384 LINETO 0 Y1 PENPOS 512 0 LINETO X1 40 - Y1 80 - PENPOS 80 0 LINETO X1 40 - Y1 80 + PENPOS 80 0 LINETO X1 80 - Y1 40 - PENPOS 0 80 LINETO X1 80 + Y1 40 - PENPOS 0 80 LINETO ")virus" ROOMMSG { [ "germ1" "germ2" "germ3" ] 3 RANDOM GET X 160 RANDOM + Y 160 RANDOM + ADDLOOSEPROP i++ } { i 16 < } WHILE "!The Tagret Has Been Infected" ROOMMSG "" CHATSTR = } CHATSTR "virus" == IF ;; Beam { [ 940083948 940083761 940083753 940083709 940083703 940083698 940083694 940083682 940083641 ] SETPROPS POSX 23 - A = POSY 56 - B = POSX 23 + C = POSY 40 - D = MOUSEPOS Y = X = Y 3 - Y = X 3 - X = PENFRONT 6 p = 0 r = 0 g = 255 bl = { p PENSIZE r g bl PENCOLOR A B X Y LINE C D X Y LINE 1 A += 1 B += 1 D += 1 C += 1 X += 1 Y += 127 r += 127 g += 2 p -= i++ } { i 3 < } WHILE ")boom" ROOMMSG MOUSEPOS Y = X = Y 20 - C = X 20 - D = C 80 - Y1 = D 80 - X1 = C 50 - Y2 = D 50 - X2 = C 15 - Y3 = D 15 - X3 = 0 i = { "whammo3" X3 30 RANDOM + Y3 30 RANDOM + ADDLOOSEPROP "whammo2" X2 100 RANDOM + Y2 100 RANDOM + ADDLOOSEPROP "whammo2" X2 100 RANDOM + Y2 100 RANDOM + ADDLOOSEPROP "whammo1" X1 160 RANDOM + Y1 160 RANDOM + ADDLOOSEPROP "whammo1" X1 160 RANDOM + Y1 160 RANDOM + ADDLOOSEPROP "whammo1" X1 160 RANDOM + Y1 160 RANDOM + ADDLOOSEPROP i++ } { i 8 < } WHILE { PAINTCLEAR } 400 ALARMEXEC "" CHATSTR = } CHATSTR "bot" == IF { PENFRONT 9 PENSIZE 0 0 0 PENCOLOR MOUSEPOS y = x = MOUSEPOS y1 = x1 = MOUSEPOS y2 = x2 = 131 c = 8 i = "!Life Sentence" x 66 - y 88 - SAYAT { x 70 - y 70 - PENPOS 136 0 LINETO 0 136 LINETO -136 0 LINETO 0 -136 LINETO x 66 - y 66 - PENPOS 127 0 LINETO 0 127 LINETO -127 0 LINETO 0 -127 LINETO } paintF DEF { x1 39 - y1 65 - x1 39 - y1 65 + LINE x1 6 - y1 65 - x1 6 - y1 65 + LINE x1 27 + y1 65 - x1 27 + y1 65 + LINE } paintR DEF { x2 27 - y2 65 - x2 27 - y2 65 + LINE x2 6 + y2 65 - x2 6 + y2 65 + LINE x2 39 + y2 65 - x2 39 + y2 65 + LINE } paintL DEF { c c c PENCOLOR i PENSIZE paintF EXEC paintL EXEC paintR EXEC x ++ x1 2 + x1 = x2 -- c 31 + c = i -- } { i 4 > } WHILE "" CHATSTR = } CHATSTR "jailed" == IF { { MOUSEPOS y = x = 8 s = 150 r = 0 i = 150 0 0 PENCOLOR PENBACK 9 PENSIZE x 50 - y 25 - x 25 - y 25 - LINE x 25 + y 25 - x 50 + y 25 - LINE x 55 - y 20 - x 20 - y 20 - LINE x 20 + y 20 - x 55 + y 20 - LINE x 60 - y 15 - x 15 - y 15 - LINE x 15 + y 15 - x 60 + y 15 - LINE x 65 - y 10 - x 10 - y 10 - LINE x 10 + y 10 - x 65 + y 10 - LINE x 70 - y 5 - x 5 - y 5 - LINE x 5 + y 5 - x 70 + y 5 - LINE x 75 - y x 75 + y LINE x 75 - y 5 + x 75 + y 5 + LINE x 75 - y 10 + x 75 + y 10 + LINE x 75 - y 15 + x 75 + y 15 + LINE x 75 - y 20 + x 75 + y 20 + LINE x 75 - y 25 + x 75 + y 25 + LINE x 70 - y 30 + x 70 + y 30 + LINE x 65 - y 35 + x 65 + y 35 + LINE x 60 - y 40 + x 60 + y 40 + LINE x 55 - y 45 + x 55 + y 45 + LINE x 50 - y 50 + x 50 + y 50 + LINE x 45 - y 55 + x 45 + y 55 + LINE x 40 - y 60 + x 40 + y 60 + LINE x 35 - y 65 + x 35 + y 65 + LINE x 30 - y 70 + x 30 + y 70 + LINE x 25 - y 75 + x 25 + y 75 + LINE x 20 - y 80 + x 20 + y 80 + LINE x 15 - y 85 + x 15 + y 85 + LINE x 10 - y 90 + x 10 + y 90 + LINE x 5 - y 95 + x 5 + y 95 + LINE PENFRONT { x y PENPOS s PENSIZE r 0 0 PENCOLOR -25 -25 LINETO -25 0 LINETO -25 25 LINETO 0 25 LINETO 75 75 LINETO 75 -75 LINETO 0 -25 LINETO -25 -25 LINETO -25 0 LINETO -25 25 LINETO s 2 - s = r 50 + r = x 1 + x = i ++ } { i 3 < } WHILE } { "Too many room occupants" STATUSMSG } NBRROOMUSERS 9 < IFELSE "" CHATSTR = } CHATSTR "heart" == IF { PAINTCLEAR PENFRONT MOUSEPOS 77 + ty = 33 + tx = "$1" GREPSUB color = POSX sx = POSY sy = { x y x xx + y yy + LINE x xx + x = y yy + y = } tail DEF { POSX x = POSY y = tx x - 5 / xx = ty y - 5 / yy = 1 i = } a1 DEF { 0 i = tx ty PENPOS { PENBACK -66 -6 LINETO PENFRONT 66 -6 LINETO i ++ } { i 6 < } WHILE 11 -6 LINETO 0 -6 LINETO -11 -6 LINETO -6 0 LINETO -6 6 LINETO -10 -10 LINETO 10 10 PENTO -10 10 LINETO } a2 DEF 0 50 0 PENCOLOR { 200 200 0 PENCOLOR } color "t gold" == IF { 150 150 150 PENCOLOR } color "t silver" == IF { 0 0 75 PENCOLOR } color "t azure" == IF { 100 0 0 PENCOLOR } color "t ruby" == IF { 100 0 80 PENCOLOR } color "t violet" == IF { 0 0 0 PENCOLOR } color "t opal" == IF { 255 125 0 PENCOLOR } color "t orange" == IF a1 EXEC { i pensize tail EXEC 2 i + i = } { i 10 < } WHILE a2 EXEC 0 100 0 PENCOLOR tx 2 + tx = { 230 230 0 PENCOLOR } color "t gold" == IF { 200 200 200 PENCOLOR } color "t silver" == IF { 0 0 155 PENCOLOR } color "t azure" == IF { 175 0 0 PENCOLOR } color "t ruby" == IF { 175 0 80 PENCOLOR } color "t violet" == IF { 35 35 35 PENCOLOR } color "t opal" == IF { 255 155 0 PENCOLOR } color "t orange" == IF a1 EXEC { i pensize tail EXEC i ++ } { i 6 < } WHILE a2 EXEC 0 125 0 PENCOLOR tx 1 + tx = { 255 255 0 PENCOLOR } color "t gold" == IF { 255 255 255 PENCOLOR } color "t silver" == IF { 0 0 255 PENCOLOR } color "t azure" == IF { 255 0 0 PENCOLOR } color "t ruby" == IF { 225 0 80 PENCOLOR } color "t violet" == IF { 70 70 70 PENCOLOR } color "t opal" == IF { 255 205 0 PENCOLOR } color "t orange" == IF a1 EXEC { 1 pensize tail EXEC i ++ } { i 6 < } WHILE a2 EXEC 255 255 255 PENCOLOR 1 PENSIZE 0 -2 PENTO 0 -4 LINETO 0 6 PENTO 10 -10 PENTO -10 -10 PENTO 0 4 PENTO 0 4 LINETO O -8 PENTO 200 0 0 PENCOLOR { 0 155 0 PENCOLOR } color "t gold" == IF { 0 0 255 PENCOLOR } color "t silver" == IF { 230 230 0 PENCOLOR } color "t azure" == IF { 255 155 0 PENCOLOR } color "t ruby" == IF { 255 255 255 PENCOLOR } color "t opal" == IF { 0 200 255 PENCOLOR } color "t orange" == IF 2 PENSIZE 5 3 PENTO 4 2 LINETO 225 0 0 PENCOLOR 2 PENSIZE -7 7 PENTO 1 i = { -2 2 LINETO -2 -2 LINETO i ++ } { i 4 < } WHILE -3 -3 LINETO 3 3 PENTO -3 3 LINETO "" CHATSTR = } CHATSTR LOWERCASE "^constric(.*)" GREPSTR IF { { "$1" GREPSUB ATOI n = { MOUSEPOS y = x = 9 PENSIZE 255 RANDOM r1 = 255 RANDOM r2 = 255 RANDOM g1 = 255 RANDOM g2 = 255 RANDOM b1 = 255 RANDOM b2 = { r1 g1 b1 PENCOLOR } c1 DEF { r2 g2 b2 PENCOLOR } c2 DEF n 2 / m = n n 2 * - negn = m m 2 * - negm = n 8 / l = { negn 0 LINETO 0 n 8 - LINETO n 0 LINETO 0 negn 8 + LINETO } a1 DEF { m negm LINETO 0 n 8 - LINETO negm m LINETO 0 negn 8 + LINETO } a2 DEF PENBACK c1 EXEC x m + y m - PENPOS 0 i = { negn 0 LINETO i ++ n 8 PENTO } { i l < } WHILE c2 EXEC x m + y m - PENPOS a1 EXEC c1 EXEC x n - y PENPOS 0 i = { m negm LINETO i ++ negm m 8 + PENTO } { i l < } WHILE c2 EXEC x n - y PENPOS a2 EXEC PENFRONT c1 EXEC x y PENPOS 0 i = { m negm LINETO i ++ negm m 8 + PENTO } { i l < } WHILE c2 EXEC x y PENPOS a2 EXEC c1 EXEC x y PENPOS 0 i = { negn 0 LINETO i ++ n 8 PENTO } { i l < } WHILE c2 EXEC x y PENPOS a1 EXEC nochat EXEC } n 9 > n 201 < AND IF } { "Too many room occupants!" STATUSMSG } NBRROOMUSERS 9 < IFELSE "" CHATSTR = } CHATSTR LOWERCASE "^box(.*)$" GREPSTR IF { 55 55 SETPOS 170 170 170 PENCOLOR 10 PENSIZE PENFRONT 55 55 510 380 LINE 145 145 145 PENCOLOR 10 PENSIZE PENFRONT 55 55 502 380 LINE 145 145 145 PENCOLOR 10 PENSIZE PENFRONT 55 55 510 372 LINE 145 145 145 PENCOLOR 10 PENSIZE PENFRONT 55 55 494 380 LINE 145 145 145 PENCOLOR 10 PENSIZE PENFRONT 55 55 510 364 LINE 115 115 115 PENCOLOR 10 PENSIZE PENFRONT 55 55 486 380 LINE 115 115 115 PENCOLOR 10 PENSIZE PENFRONT 55 55 510 356 LINE 115 115 115 PENCOLOR 10 PENSIZE PENFRONT 55 55 478 380 LINE 115 115 115 PENCOLOR 10 PENSIZE PENFRONT 55 55 510 348 LINE 90 90 90 PENCOLOR 10 PENSIZE PENFRONT 55 55 470 380 LINE 90 90 90 PENCOLOR 10 PENSIZE PENFRONT 55 55 510 340 LINE 90 90 90 PENCOLOR 10 PENSIZE PENFRONT 55 55 462 380 LINE 90 90 90 PENCOLOR 10 PENSIZE PENFRONT 55 55 510 332 LINE 75 75 75 PENCOLOR 10 PENSIZE PENFRONT 55 55 454 380 LINE 75 75 75 PENCOLOR 10 PENSIZE PENFRONT 55 55 510 324 LINE 75 75 75 PENCOLOR 10 PENSIZE PENFRONT 55 55 446 380 LINE 75 75 75 PENCOLOR 10 PENSIZE PENFRONT 55 55 510 316 LINE 50 50 50 PENCOLOR 10 PENSIZE PENFRONT 55 55 438 380 LINE 50 50 50 PENCOLOR 10 PENSIZE PENFRONT 55 55 510 308 LINE 50 50 50 PENCOLOR 10 PENSIZE PENFRONT 55 55 430 380 LINE 50 50 50 PENCOLOR 10 PENSIZE PENFRONT 55 55 510 300 LINE 33 33 33 PENCOLOR 10 PENSIZE PENFRONT 55 55 422 380 LINE 33 33 33 PENCOLOR 10 PENSIZE PENFRONT 55 55 510 292 LINE 33 33 33 PENCOLOR 10 PENSIZE PENFRONT 55 55 414 380 LINE 33 33 33 PENCOLOR 10 PENSIZE PENFRONT 55 55 510 284 LINE 0 0 0 PENCOLOR 10 PENSIZE PENFRONT 55 55 406 380 LINE 0 0 0 PENCOLOR 10 PENSIZE PENFRONT 55 55 510 276 LINE 0 0 0 PENCOLOR 10 PENSIZE PENFRONT 55 55 398 380 LINE 0 0 0 PENCOLOR 10 PENSIZE PENFRONT 55 55 510 268 LINE 39 39 39 PENCOLOR 10 PENSIZE PENFRONT 92 97 90 113 LINE 39 39 39 PENCOLOR 10 PENSIZE PENFRONT 90 113 106 128 LINE 39 39 39 PENCOLOR 10 PENSIZE PENFRONT 106 128 135 134 LINE 39 39 39 PENCOLOR 10 PENSIZE PENFRONT 135 134 215 127 LINE 39 39 39 PENCOLOR 10 PENSIZE PENFRONT 215 127 248 126 LINE 39 39 39 PENCOLOR 10 PENSIZE PENFRONT 248 126 280 133 LINE 39 39 39 PENCOLOR 10 PENSIZE PENFRONT 280 133 295 163 LINE 39 39 39 PENCOLOR 10 PENSIZE PENFRONT 257 254 262 280 LINE 39 39 39 PENCOLOR 10 PENSIZE PENFRONT 262 280 281 302 LINE 39 39 39 PENCOLOR 10 PENSIZE PENFRONT 281 302 321 318 LINE 39 39 39 PENCOLOR 10 PENSIZE PENFRONT 321 318 513 291 LINE 55 55 55 PENCOLOR 5 PENSIZE PENFRONT 92 97 90 113 LINE 55 55 55 PENCOLOR 5 PENSIZE PENFRONT 90 113 106 128 LINE 55 55 55 PENCOLOR 5 PENSIZE PENFRONT 106 128 135 134 LINE 55 55 55 PENCOLOR 5 PENSIZE PENFRONT 135 134 215 127 LINE 55 55 55 PENCOLOR 5 PENSIZE PENFRONT 215 127 248 126 LINE 55 55 55 PENCOLOR 5 PENSIZE PENFRONT 248 126 280 133 LINE 55 55 55 PENCOLOR 5 PENSIZE PENFRONT 280 133 295 163 LINE 55 55 55 PENCOLOR 5 PENSIZE PENFRONT 257 254 262 280 LINE 55 55 55 PENCOLOR 5 PENSIZE PENFRONT 262 280 281 302 LINE 55 55 55 PENCOLOR 5 PENSIZE PENFRONT 281 302 321 318 LINE 55 55 55 PENCOLOR 5 PENSIZE PENFRONT 321 318 513 291 LINE "" CHATSTR = } CHATSTR "^kame$" GREPSTR IF { 240 60 SETPOS 240 240 240 PENCOLOR 10 PENSIZE PENFRONT 237 60 240 410 LINE 200 200 200 PENCOLOR 10 PENSIZE PENFRONT 243 60 248 410 LINE 200 200 200 PENCOLOR 10 PENSIZE PENFRONT 237 60 232 410 LINE 180 180 180 PENCOLOR 10 PENSIZE PENFRONT 243 60 256 410 LINE 180 180 180 PENCOLOR 10 PENSIZE PENFRONT 237 60 224 410 LINE 160 160 160 PENCOLOR 10 PENSIZE PENFRONT 243 60 264 410 LINE 140 140 140 PENCOLOR 10 PENSIZE PENFRONT 237 60 216 410 LINE 140 140 140 PENCOLOR 10 PENSIZE PENFRONT 243 60 272 410 LINE 120 120 120 PENCOLOR 10 PENSIZE PENFRONT 237 60 208 410 LINE 120 120 120 PENCOLOR 10 PENSIZE PENFRONT 243 60 280 410 LINE 100 100 100 PENCOLOR 10 PENSIZE PENFRONT 237 60 200 410 LINE 100 100 100 PENCOLOR 10 PENSIZE PENFRONT 243 60 288 410 LINE 80 80 80 PENCOLOR 10 PENSIZE PENFRONT 237 60 192 410 LINE 80 80 80 PENCOLOR 10 PENSIZE PENFRONT 243 60 296 410 LINE 60 60 60 PENCOLOR 10 PENSIZE PENFRONT 237 60 184 410 LINE 60 60 60 PENCOLOR 10 PENSIZE PENFRONT 243 60 304 410 LINE 40 40 40 PENCOLOR 10 PENSIZE PENFRONT 237 60 176 410 LINE 40 40 40 PENCOLOR 10 PENSIZE PENFRONT 243 60 312 410 LINE 20 20 20 PENCOLOR 10 PENSIZE PENFRONT 237 60 168 410 LINE 20 20 20 PENCOLOR 10 PENSIZE PENFRONT 243 60 320 410 LINE 0 0 0 PENCOLOR 10 PENSIZE PENFRONT 237 60 160 410 LINE 0 0 0 PENCOLOR 10 PENSIZE PENFRONT 243 60 328 410 LINE 39 39 39 PENCOLOR 10 PENSIZE PENFRONT 143 383 139 358 LINE 39 39 39 PENCOLOR 10 PENSIZE PENFRONT 139 358 136 333 LINE 39 39 39 PENCOLOR 10 PENSIZE PENFRONT 136 333 161 318 LINE 39 39 39 PENCOLOR 10 PENSIZE PENFRONT 161 318 245 308 LINE 39 39 39 PENCOLOR 10 PENSIZE PENFRONT 245 308 336 316 LINE 39 39 39 PENCOLOR 10 PENSIZE PENFRONT 336 316 362 335 LINE 39 39 39 PENCOLOR 10 PENSIZE PENFRONT 362 335 346 382 LINE 39 39 39 PENCOLOR 10 PENSIZE PENFRONT 183 277 161 262 LINE 39 39 39 PENCOLOR 10 PENSIZE PENFRONT 161 262 158 237 LINE 39 39 39 PENCOLOR 10 PENSIZE PENFRONT 158 237 175 222 LINE 39 39 39 PENCOLOR 10 PENSIZE PENFRONT 175 222 245 209 LINE 39 39 39 PENCOLOR 10 PENSIZE PENFRONT 245 209 325 223 LINE 39 39 39 PENCOLOR 10 PENSIZE PENFRONT 325 223 334 243 LINE 39 39 39 PENCOLOR 10 PENSIZE PENFRONT 334 243 327 269 LINE 39 39 39 PENCOLOR 10 PENSIZE PENFRONT 327 269 307 281 LINE 55 55 55 PENCOLOR 5 PENSIZE PENFRONT 143 383 139 358 LINE 55 55 55 PENCOLOR 5 PENSIZE PENFRONT 139 358 136 333 LINE 55 55 55 PENCOLOR 5 PENSIZE PENFRONT 136 333 161 318 LINE 55 55 55 PENCOLOR 5 PENSIZE PENFRONT 161 318 245 308 LINE 55 55 55 PENCOLOR 5 PENSIZE PENFRONT 245 308 336 316 LINE 55 55 55 PENCOLOR 5 PENSIZE PENFRONT 336 316 362 335 LINE 55 55 55 PENCOLOR 5 PENSIZE PENFRONT 362 335 346 382 LINE 55 55 55 PENCOLOR 5 PENSIZE PENFRONT 183 277 161 262 LINE 55 55 55 PENCOLOR 5 PENSIZE PENFRONT 161 262 158 237 LINE 55 55 55 PENCOLOR 5 PENSIZE PENFRONT 158 237 175 222 LINE 55 55 55 PENCOLOR 5 PENSIZE PENFRONT 175 222 245 209 LINE 55 55 55 PENCOLOR 5 PENSIZE PENFRONT 245 209 325 223 LINE 55 55 55 PENCOLOR 5 PENSIZE PENFRONT 325 223 334 243 LINE 55 55 55 PENCOLOR 5 PENSIZE PENFRONT 334 243 327 269 LINE 55 55 55 PENCOLOR 5 PENSIZE PENFRONT 327 269 307 281 LINE "" CHATSTR = } CHATSTR "^fb$" GREPSTR IF { 0 0 0 PENCOLOR 10 PENSIZE PENFRONT 0 0 MOUSEPOS LINE 0 0 0 PENCOLOR 10 PENSIZE PENFRONT 0 0 MOUSEPOS 2 + 2 + LINE 0 0 0 PENCOLOR 10 PENSIZE PENFRONT 0 0 MOUSEPOS 2 - 2 - LINE 39 39 39 PENCOLOR 6 PENSIZE PENFRONT 0 0 MOUSEPOS 4 - 4 - LINE 39 39 39 PENCOLOR 6 PENSIZE PENFRONT 0 0 MOUSEPOS 4 + 4 + LINE 55 55 55 PENCOLOR 2 PENSIZE PENFRONT 0 0 MOUSEPOS 4 - 4 - LINE 55 55 55 PENCOLOR 2 PENSIZE PENFRONT 0 0 MOUSEPOS 6 + 6 + LINE ")BOOM" SAY "" CHATSTR = } CHATSTR "^qb$" GREPSTR IF {78 201 SETPOS 190 190 190 PENCOLOR 10 PENSIZE PENFRONT 250 400 250 0 LINE 175 175 175 PENCOLOR 10 PENSIZE PENFRONT 242 400 242 0 LINE 175 175 175 PENCOLOR 10 PENSIZE PENFRONT 258 400 258 0 LINE 155 155 155 PENCOLOR 10 PENSIZE PENFRONT 234 400 234 0 LINE 155 155 155 PENCOLOR 10 PENSIZE PENFRONT 266 400 266 0 LINE 135 135 135 PENCOLOR 10 PENSIZE PENFRONT 226 400 226 0 LINE 135 135 135 PENCOLOR 10 PENSIZE PENFRONT 274 400 274 0 LINE 120 120 120 PENCOLOR 10 PENSIZE PENFRONT 218 400 218 0 LINE 120 120 120 PENCOLOR 10 PENSIZE PENFRONT 282 400 282 0 LINE 100 100 100 PENCOLOR 10 PENSIZE PENFRONT 210 400 210 0 LINE 100 100 100 PENCOLOR 10 PENSIZE PENFRONT 290 400 290 0 LINE 80 80 80 PENCOLOR 10 PENSIZE PENFRONT 202 400 202 0 LINE 80 80 80 PENCOLOR 10 PENSIZE PENFRONT 298 400 298 0 LINE 65 65 65 PENCOLOR 10 PENSIZE PENFRONT 194 400 194 0 LINE 65 65 65 PENCOLOR 10 PENSIZE PENFRONT 306 400 306 0 LINE 45 45 45 PENCOLOR 10 PENSIZE PENFRONT 186 400 186 0 LINE 45 45 45 PENCOLOR 10 PENSIZE PENFRONT 314 400 314 0 LINE 39 39 39 PENCOLOR 10 PENSIZE PENFRONT 178 400 178 0 LINE 39 39 39 PENCOLOR 10 PENSIZE PENFRONT 322 400 322 0 LINE 20 20 20 PENCOLOR 10 PENSIZE PENFRONT 170 400 170 0 LINE 20 20 20 PENCOLOR 10 PENSIZE PENFRONT 330 400 330 0 LINE 0 0 0 PENCOLOR 10 PENSIZE PENFRONT 162 400 162 0 LINE 0 0 0 PENCOLOR 10 PENSIZE PENFRONT 338 400 338 0 LINE 55 55 55 PENCOLOR 10 PENSIZE PENFRONT 160 0 141 18 LINE 55 55 55 PENCOLOR 10 PENSIZE PENFRONT 141 18 134 45 LINE 55 55 55 PENCOLOR 10 PENSIZE PENFRONT 134 45 159 62 LINE 55 55 55 PENCOLOR 10 PENSIZE PENFRONT 159 62 345 117 LINE 55 55 55 PENCOLOR 10 PENSIZE PENFRONT 345 117 360 131 LINE 55 55 55 PENCOLOR 10 PENSIZE PENFRONT 360 131 368 155 LINE 55 55 55 PENCOLOR 10 PENSIZE PENFRONT 368 155 347 177 LINE 55 55 55 PENCOLOR 10 PENSIZE PENFRONT 160 230 141 247 LINE 55 55 55 PENCOLOR 10 PENSIZE PENFRONT 141 247 137 271 LINE 55 55 55 PENCOLOR 10 PENSIZE PENFRONT 137 271 161 297 LINE 55 55 55 PENCOLOR 10 PENSIZE PENFRONT 161 297 344 345 LINE 55 55 55 PENCOLOR 10 PENSIZE PENFRONT 344 345 359 368 LINE 55 55 55 PENCOLOR 10 PENSIZE PENFRONT 359 368 358 384 LINE 55 55 55 PENCOLOR 10 PENSIZE PENFRONT 348 0 369 17 LINE 55 55 55 PENCOLOR 10 PENSIZE PENFRONT 369 17 375 40 LINE 55 55 55 PENCOLOR 10 PENSIZE PENFRONT 375 40 349 66 LINE 55 55 55 PENCOLOR 10 PENSIZE PENFRONT 162 130 141 149 LINE 55 55 55 PENCOLOR 10 PENSIZE PENFRONT 141 149 137 174 LINE 55 55 55 PENCOLOR 10 PENSIZE PENFRONT 137 174 160 197 LINE 55 55 55 PENCOLOR 10 PENSIZE PENFRONT 160 197 345 246 LINE 55 55 55 PENCOLOR 10 PENSIZE PENFRONT 345 246 369 272 LINE 55 55 55 PENCOLOR 10 PENSIZE PENFRONT 369 272 376 300 LINE 55 55 55 PENCOLOR 10 PENSIZE PENFRONT 376 305 348 322 LINE 55 55 55 PENCOLOR 10 PENSIZE PENFRONT 159 345 139 362 LINE 55 55 55 PENCOLOR 10 PENSIZE PENFRONT 139 362 156 393 LINE 39 39 39 PENCOLOR 5 PENSIZE PENFRONT 160 0 141 18 LINE 39 39 39 PENCOLOR 5 PENSIZE PENFRONT 141 18 134 45 LINE 39 39 39 PENCOLOR 5 PENSIZE PENFRONT 134 45 159 62 LINE 39 39 39 PENCOLOR 5 PENSIZE PENFRONT 159 62 345 117 LINE 39 39 39 PENCOLOR 5 PENSIZE PENFRONT 345 117 360 131 LINE 39 39 39 PENCOLOR 5 PENSIZE PENFRONT 360 131 368 155 LINE 39 39 39 PENCOLOR 5 PENSIZE PENFRONT 368 155 347 177 LINE 39 39 39 PENCOLOR 5 PENSIZE PENFRONT 160 230 141 247 LINE 39 39 39 PENCOLOR 5 PENSIZE PENFRONT 141 247 137 271 LINE 39 39 39 PENCOLOR 5 PENSIZE PENFRONT 137 271 161 297 LINE 39 39 39 PENCOLOR 5 PENSIZE PENFRONT 161 297 344 345 LINE 39 39 39 PENCOLOR 5 PENSIZE PENFRONT 344 345 359 368 LINE 39 39 39 PENCOLOR 5 PENSIZE PENFRONT 359 368 358 384 LINE 39 39 39 PENCOLOR 5 PENSIZE PENFRONT 348 0 369 17 LINE 39 39 39 PENCOLOR 5 PENSIZE PENFRONT 369 17 375 40 LINE 39 39 39 PENCOLOR 5 PENSIZE PENFRONT 375 40 349 66 LINE 39 39 39 PENCOLOR 5 PENSIZE PENFRONT 162 130 141 149 LINE 39 39 39 PENCOLOR 5 PENSIZE PENFRONT 141 149 137 174 LINE 39 39 39 PENCOLOR 5 PENSIZE PENFRONT 137 174 160 197 LINE 39 39 39 PENCOLOR 5 PENSIZE PENFRONT 160 197 345 246 LINE 39 39 39 PENCOLOR 5 PENSIZE PENFRONT 345 246 369 272 LINE 39 39 39 PENCOLOR 5 PENSIZE PENFRONT 369 277 376 305 LINE 39 39 39 PENCOLOR 5 PENSIZE PENFRONT 376 305 348 322 LINE 39 39 39 PENCOLOR 5 PENSIZE PENFRONT 159 345 139 362 LINE 39 39 39 PENCOLOR 5 PENSIZE PENFRONT 139 362 156 393 LINE ")BOOM" SAY "" CHATSTR = } CHATSTR "^gb$" GREPSTR IF { PENFRONT 9PENSIZE 315 RANDOM 215 RANDOM 155 PENCOLOR 0 0 PENPOS 0 i = { 513 0 LINETO 0 8 PENTO -513 0 LINETO 0 8 PENTO i++ } { i 24 < } WHILE "" CHATSTR = } CHATSTR "cscreen" == IF step1 GLOBAL { [ 940083948 940083761 940083753 940083709 940083703 940083698 940083694 940083682 940083641 ] SETPROPS PAINTCLEAR 50 200 50 PENCOLOR PENFRONT "!Activating Target Allocation Grid." ROOMMSG 9 PENSIZE 506 382 PENPOS 0 -382 LINETO -506 0 LINETO 0 382 LINETO 506 0 LINETO 1 PENSIZE 0 i = 0 x = 0 y = { x 44 + x = x 0 x 384 LINE { y 44 + y = 0 y 512 y LINE } i 7 > NOT IF i ++ } { i 12 < } WHILE } step1 DEF step2 GLOBAL { "@512,0 !Scanning Grid For Target" ROOMMSG 9 PENSIZE MOUSEPOS y = x = 0 i = y ty = x tx = x x1 = 0 y1 = 512 x2 = y y2 = x x3 = 384 y3 = 0 x4 = y y4 = ty y1 - 6 / yy1 = tx x2 - 6 / xx2 = ty y3 - 6 / yy3 =tx x4 - 6 / xx4 = { y1 yy1 + y1a = x2 xx2 + x2a = y3 yy3 + y3a = x4 xx4 + x4a = x1 y1 x1 y1a LINE x2 y2 x2a y2 LINE x3 y3 x3 y3a LINE x4 y4 x4a y4 LINE y1 yy1 + y1 = x2 xx2 + x2 = y3 yy3 + y3 = x4 xx4 + x4 = i ++ PAINTUNDO PAINTUNDO PAINTUNDO PAINTUNDO } { i 6 < } WHILE } step2 DEF step3 GLOBAL { "!Target Lock Aquired" ROOMMSG 5 PENSIZE PAINTCLEAR MOUSEPOS y = x = x 66 - y x 66 + y LINE x y 66 - x y 66 + LINE x 12 - y 66 - x 12 + y 66 - LINE x 66 + y 12 - x 66 + y 12 + LINE x 12 + y 66 + x 12 - y 66 + LINE x 66 - y 12 + x 66 - y 12 - LINE x 16 - y 33 - x 16 + y 33 - LINE x 33 + y 16 + x 33 + y 16 - LINE x 16 + y 33 + x 16 - y 33 + LINE x 33 - y 16 - x 33 - y 16 + LINE x 8 - y 44 - x 8 + y 44 - LINE x 44 + y 8 + x 44 + y 8 - LINE x 8 + y 44 + x 8 - y 44 + LINE x 44 - y 8 - x 44 - y 8 + LINE x 66 - y 55 - x 66 - y 66 - LINE x 66 - y 66 - x 55 - y 66 - LINE x 66 + y 55 - x 66 + y 66 - LINE x 66 + y 66 - x 55 + y 66 - LINE x 66 + y 55 + x 66 + y 66 + LINE x 66 + y 66 + x 55 + y 66 + LINE x 66 - y 55 + x 66 - y 66 + LINE x 66 - y 66 + x 55 - y 66 + LINE { PAINTUNDO PAINTUNDO PAINTUNDO PAINTUNDO PAINTUNDO } a = a EXEC a EXEC a EXEC a EXEC "!LOCKED" x 55 - y 70 - SAYAT "!LOCKED" x 55 - y 70 + SAYAT 150 0 0 PENCOLOR x 66 - y x 66 + y LINE x y 66 - x y 66 + LINE x 22 - y 22 - PENPOS 44 0 LINETO 0 44 LINETO -44 0 LINETO 0 -44 LINETO x 1 + x = y 1 + y = 200 0 0 PENCOLOR x 66 - y x 66 + y LINE x y 66 - x y 66 + LINE x 22 - y 22 - PENPOS 44 0 LINETO 0 44 LINETO -44 0 LINETO 0 -44 LINETO x 1 + x = y 1 + y = 255 0 0 PENCOLOR x 66 - y x 66 + y LINE x y 66 - x y 66 + LINE x 22 - y 22 - PENPOS 44 0 LINETO 0 44 LINETO -44 0 LINETO 0 -44 LINETO } step3 DEF step4 GLOBAL { "!Fire Concusion Rifle" ROOMMSG "@512,0 !Fire Concusion Rifle" ROOMMSG "@512,384 !Fire Concusion Rifle" ROOMMSG "@0,384 !Fire Concusion Rifle" ROOMMSG POSX 65 - x = POSY 7 + y = { x 1 + x = y 1 + y = x y x 0 + y 16 - LINE x y x 4 + y 12 - LINE x y x 8 + y 8 - LINE x y x 12 + y 4 - LINE x y x 16 + y 0 - LINE x y x 12 + y 4 + LINE x y x 8 + y 8 + LINE x y x 4 + y 12 + LINE x y x 0 + y 16 + LINE x y x 0 - y 16 + LINE x y x 4 - y 12 + LINE x y x 8 - y 8 + LINE x y x 12 - y 4 + LINE x y x 16 - y 0 - LINE x y x 12 - y 4 - LINE x y x 8 - y 8 - LINE x y x 4 - y 12 - LINE } a = 225 225 0 PENCOLOR 9 PENSIZE a EXEC 235 235 0 PENCOLOR 6 PENSIZE a EXEC 255 255 0 PENCOLOR 3 PENSIZE a EXEC 255 255 255 PENCOLOR 1 PENSIZE a EXEC POSX 66 - x = POSY 8 + y = MOUSEPOS yy = xx = 225 225 0 PENCOLOR 9 PENSIZE x y 16 - xx yy 16 - LINE x y 16 + xx yy 16 + LINE 235 235 0 PENCOLOR 7 PENSIZE x y 12 - xx yy 12 - LINE x y 12 + xx yy 12 + LINE 255 255 0 PENCOLOR 5 PENSIZE x y 8 - xx yy 8 - LINE x y 8 + xx yy 8 + LINE 255 255 255 PENCOLOR 3 PENSIZE x y 4 - xx yy 4 - LINE x y 4 + xx yy 4 + LINE x y xx yy LINE } step4 DEF step5 GLOBAL { { x 2 + y 2 + PENPOS } a = { PENFRONT 132 22 LINETO PENBACK -132 22 LINETO PENFRONT 132 22 LINETO PENBACK -132 0 LINETO PENFRONT 132 -22 LINETO PENBACK -132 -22 LINETO PENFRONT 132 -22 LINETO PENBACK -132 0 LINETO } b = { MOUSEPOS 33 - y = 66 - x = 0 0 150 PENCOLOR 9 PENSIZE x y PENPOS b EXEC 0 0 255 PENCOLOR 6 PENSIZE a EXEC b EXEC 0 150 225 PENCOLOR 3 PENSIZE a EXEC b EXEC 255 255 255 PENCOLOR 1 PENSIZE a EXEC b EXEC } c = "!Static Field Rendering Target Disabled" ROOMMSG PAINTCLEAR c EXEC c EXEC c EXEC } Step5 DEF { 60 NBRROOMUSERS * n = { step1 GLOBAL step1 EXEC } EXEC { step2 GLOBAL step2 EXEC } 180 n + ALARMEXEC { step3 GLOBAL step3 EXEC } 360 n + ALARMEXEC { step4 GLOBAL step4 EXEC } 540 n + ALARMEXEC { step5 GLOBAL step5 EXEC } 720 n + ALARMEXEC "" CHATSTR = } CHATSTR "Grid" == IF ;;zzap { PAINTCLEAR 8 PENSIZE 55 55 55 PENCOLOR PENFRONT MOUSEPOS POSY - difrow = POSX - difcol = POSX slc = POSY slr = difrow 8 / aslr = difcol 8 / aslc = difcol 20 / -1 * zrow = difrow 20 / zcol = POSY oldr = POSX oldc = { steps ++ aslc slc += aslr slr += slc zcol + newc = slr zrow + newr = oldc oldr newc newr LINE -1 zrow *= -1 zcol *= newc oldc = newr oldr = 8 steps - PENSIZE } { steps 7 < } WHILE oldc oldr MOUSEPOS LINE "@" MOUSEPOS SWAP ITOA "," & SWAP ITOA & & "" & ROOMMSG { PAINTCLEAR } 300 ALARMEXEC PENBACK "" CHATSTR = } CHATSTR "zzap" == IF { POSX 10 + xx = POSY 15 - yy = 0 i = NBRROOMUSERS n = PENFRONT PAINTCLEAR { { i ROOMUSER WHOPOS y = x = { { xx yy xx 0 LINE xx 0 x y LINE } a DEF { x 15 - y x 50 - y 50 - LINE x 15 +y x 50 + y 50 + LINE x 15 + y x 50 + y 50 - LINE x 15 - y x 50 - y 50 + LINE } b DEF { x 50 - y 50 - x 50 + y 50 + LINE x 50 + y 50 - x 50 - y 50 + LINE } c DEF 200 200 0 PENCOLOR 9 PENSIZE a EXEC 235 235 0 PENCOLOR 6 PENSIZE a EXEC 255 255 0 PENCOLOR 3 PENSIZE a EXEC PAINTUNDO PAINTUNDO PAINTUNDO PAINTUNDO PAINTUNDO PAINTUNDO PENBACK 0 0 200 PENCOLOR 9 PENSIZE b EXEC 0 0 235 PENCOLOR 6 PENSIZE b EXEC 0 0 255 PENCOLOR 3 PENSIZE b EXEC PENFRONT 0 0 200 PENCOLOR 9 PENSIZE c EXEC 0 0 235 PENCOLOR 6 PENSIZE c EXEC 0 0 255 PENCOLOR 3 PENSIZE c EXEC } i ROOMUSER WHOME == NOT IF i ++ } { i n < } WHILE } "!\!" x y SAYAT { laggers EXEC } n 7 < IFELSE { "Your the only one in the room" STATUSMSG } NBRROOMUSERS 1 == IF nochat EXEC "" CHATSTR = } CHATSTR "wrapup" == IF { { NBRUSERPROPS num = { 0 ii = " \x5b" { " " ii USERPROP ITOA & & ii ++ } { ii num < } WHILE " \x5d SETPROPS" & fin DEF } num IF 0 i = NBRROOMUSERS n = POSX xx = POSY yy = 5 SETFACE [ [ 928977855 928984004 928983923 ] [ 938713894 938713877 938713843 ] [ 928329910 928329901 928329885 928329894 928329868 928329856 928329839 928329831 ] [ -1372009138 -1372009161 -1372009145 -1372009130 -1372009155 -1372009168 -1372009176 -1372009187 ] ] 4 RANDOM GET SETPROPS { x y SETPOS x x3 + x = y y3 + y = } a DEF { i ROOMUSER WHOPOS y1 = x1 = POSX x = POSY y = x1 x - 10 / x3 = y1 y - 10 / y3 = 16 RANDOM SETCOLOR a EXEC a EXEC a EXEC a EXEC a EXEC a EXEC a EXEC a EXEC a EXEC a EXEC a EXEC { "" x y SAYAT } i ROOMUSER WHONAME USERNAME == NOT IF i ++ } { i n < } WHILE yy y1 = xx x1 = POSX x = POSY y = x1 x - 10 / x3 = y1 y - 10 / y3 = a EXEC a EXEC a EXEC a EXEC a EXEC a EXEC a EXEC a EXEC a EXEC a EXEC a EXEC fin STRTOATOM EXEC { "No Targets" STATUSMSG } n 1 == IF } { laggers EXEC } NBRROOMUSERS 9 < IFELSE { ";ao [ 936487164 936487144 ] setprops \"!ouchies\" say" SAY } ISWIZARD IF nochat EXEC "" CHATSTR = } CHATSTR "fireball" == IF { { PENBACK "OrB" p = MOUSEPOS y1 = x1 = POSX x = POSY y = x1 x - 6 / xx = y1 y - 6 / yy = 0 i = { CLEARLOOSEPROPS { y 44 - y = } y y1 > i 5 == OR IF { x 44 - x = } x x1 > i 5 == OR IF p x xx + y yy + ADDLOOSEPROP { x 44 + x = } x x1 > i 5 == OR IF { y 44 + y = } y y1 > i 5 == OR IF i 3 + PENSIZE 0 125 150 PENCOLOR x y x xx + y yy + LINE i PENSIZE 0 175 255 PENCOLOR x y x xx + 1 + y yy 1 + + LINE x xx + x = y yy + y = i ++ } { i 6 < } WHILE PAINTCLEAR "!)Boom \!\!\!SmAsH!!!" MOUSEPOS SAYAT } { laggers EXEC } NBRROOMUSERS 9 < IFELSE nochat EXEC "" CHATSTR = } CHATSTR "smasher" == IF ;; pulse: colorful raygun { { 1 PENSIZE PENBACK 80 0 0 PENCOLOR { WHOTARGET WHOPOS my = mx = } { MOUSEPOS my = mx = } WHOTARGET IFELSE POSX autoX + px = POSY autoY + py = px mx - dx = py my - dy = dx fx = dy fy = { 0 fx - fx = } fx 0 < IF { 0 fy - fy = } fy 0 < IF fx s = { fy s = } fx fy < IF dx 10 * s / vy = dy 10 * s / vx = PAINTCLEAR mx my px py LINE 0 j = { 1 i = { 25 i - 5 / PENSIZE 255 i 4 * - 255 i 8 * - 255 PENCOLOR i i * i2 = px dx i2 * 400 / - nx = py dy i2 * 400 / - ny = nx vx - ny vy + nx vx + ny vy - PAINTUNDO LINE i ++ } { i 21 < } WHILE j ++ } { j 3 < } WHILE {PAINTCLEAR} 300 ALARMEXEC DATETIME prePulse = } { "Wait for " 30 DATETIME prePulse - - ITOA & " seconds" & STATUSMSG } DATETIME prePulse - 30 > IFELSE "" CHATSTR = } lowchat "pulse" == IF {")fazein" say 355 RANDOM 255 RANDOM 255 RANDOM PENCOLOR penback 0PENSIZE 0 0 MOUSEPOS LINE 25 0 MOUSEPOS LINE 50 0 MOUSEPOS LINE 75 0 MOUSEPOS LINE 100 0 MOUSEPOS LINE 125 0 MOUSEPOS LINE 150 0 MOUSEPOS LINE 175 0 MOUSEPOS LINE 200 0 MOUSEPOS LINE 225 0 MOUSEPOS LINE 250 0 MOUSEPOS LINE 275 0 MOUSEPOS LINE 300 0 MOUSEPOS LINE 325 0 MOUSEPOS LINE 350 0 MOUSEPOS LINE 375 0 MOUSEPOS LINE 400 0 MOUSEPOS LINE 425 0 MOUSEPOS LINE 450 0 MOUSEPOS LINE 475 0 MOUSEPOS LINE 500 0 MOUSEPOS LINE 525 0 MOUSEPOS LINE 525 25 MOUSEPOS LINE 525 50 MOUSEPOS LINE 525 75 MOUSEPOS LINE 525 100 MOUSEPOS LINE 525 125 MOUSEPOS LINE 525 150 MOUSEPOS LINE 525 175 MOUSEPOS LINE 525 200 MOUSEPOS LINE 525 225 MOUSEPOS LINE 525 250 MOUSEPOS LINE 525 275 MOUSEPOS LINE 525 300 MOUSEPOS LINE 525 325 MOUSEPOS LINE 525 350 MOUSEPOS LINE 525 375 MOUSEPOS LINE 500 500 MOUSEPOS LINE 475 500 MOUSEPOS LINE 450 500 MOUSEPOS LINE 425 500 MOUSEPOS LINE 400 500 MOUSEPOS LINE 375 500 MOUSEPOS LINE 350 500 MOUSEPOS LINE 325 500 MOUSEPOS LINE 300 500 MOUSEPOS LINE 275 500 MOUSEPOS LINE 250 500 MOUSEPOS LINE 225 500 MOUSEPOS LINE 200 500 MOUSEPOS LINE 175 500 MOUSEPOS LINE 150 500 MOUSEPOS LINE 125 500 MOUSEPOS LINE 100 500 MOUSEPOS LINE 75 500 MOUSEPOS LINE 50 500 MOUSEPOS LINE 25 500 MOUSEPOS LINE 0 500 MOUSEPOS LINE 0 400 MOUSEPOS LINE 0 375 MOUSEPOS LINE 0 350 MOUSEPOS LINE 0 325 MOUSEPOS LINE 0 300 MOUSEPOS LINE 0 275 MOUSEPOS LINE 0 250 MOUSEPOS LINE 0 225 MOUSEPOS LINE 0 200 MOUSEPOS LINE 0 175 MOUSEPOS LINE 0 150 MOUSEPOS LINE 0 125 MOUSEPOS LINE 0 100 MOUSEPOS LINE 0 75 MOUSEPOS LINE 0 50 MOUSEPOS LINE 0 25 MOUSEPOS LINE 0 0 MOUSEPOS LINE "" CHATSTR = } CHATSTR "spiral2" == IF ;; { 155 55 0 PENCOLOR 5 PENSIZE PENFRONT POSX POSY MOUSEPOS LINE PAINTUNDO 255 255 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS LINE PAINTUNDO 155 55 0 PENCOLOR 5 PENSIZE PENFRONT POSX POSY MOUSEPOS LINE PAINTUNDO 255 255 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS LINE PAINTUNDO 255 255 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 20 - 20 - LINE 255 255 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 20 + 20 + LINE 255 230 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 18 - 18 - LINE 255 230 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 18 + 18 + LINE 255 210 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 16 - 16 - LINE 255 210 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 16 + 16 + LINE 255 180 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 14 - 14 - LINE 255 180 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 14 + 14 + LINE 255 150 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 12 - 12 - LINE 255 150 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 12 + 12 + LINE 255 255 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 10 - 10 - LINE 255 255 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 10 + 10 + LINE 255 230 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 8 - 8 - LINE 255 230 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 8 + 8 + LINE 255 210 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 6 - 6 - LINE 255 210 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 6 + 6 + LINE 255 180 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 4 - 4 - LINE 255 180 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 4 + 4 + LINE 255 150 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 2 - 2 - LINE 255 150 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 2 + 2 + LINE 255 200 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS LINE PAINTUNDO 255 50 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS LINE PAINTCLEAR 255 200 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS LINE PAINTUNDO 255 50 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS LINE PAINTUNDO 255 200 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS LINE PAINTUNDO 255 50 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS LINE PAINTCLEAR "" CHATSTR = } CHATSTR "^;*zapaz$" GREPSTR IF ;;n2k made for Nate-2k { 255 0 0 PENCOLOR 10 PENSIZE 0 0 MOUSEPOS LINE 255 0 0 PENCOLOR 10 PENSIZE 512 0 MOUSEPOS LINE 255 0 0 PENCOLOR 10 PENSIZE 0 384 MOUSEPOS LINE 255 0 0 PENCOLOR 10 PENSIZE 512 384 MOUSEPOS LINE 10 PENSIZE 0 0 255 PENCOLOR PENFRONT MOUSEPOS POSY - difrow = POSX - difcol = POSX slc = POSY slr = difrow 8 / aslr = difcol 8 / aslc = difcol 20 / -1 * zrow = difrow 20 / zcol = POSY oldr = POSX oldc = { steps ++ aslc slc += aslr slr += slc zcol + newc = slr zrow + newr = oldc oldr newc newr LINE -1 zrow *= -1 zcol *= newc oldc = newr oldr = 8 steps - PENSIZE } { steps 7 < } WHILE oldc oldr MOUSEPOS LINE "@" MOUSEPOS SWAP ITOA "," & SWAP ITOA & & "" & ROOMMSG { PAINTCLEAR } 300 ALARMEXEC PENBACK PAINTCLEAR 255 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 2 - 2 - LINE 255 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 2 + 2 + LINE 255 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 4 - 4 - LINE 255 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 4 + 4 + LINE 223 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 6 - 6 - LINE 223 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 6 + 6 + LINE 223 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 8 - 8 - LINE 223 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 8 + 8 + LINE 191 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 10 - 10 - LINE 191 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 10 + 10 + LINE 191 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 12 - 12 - LINE 191 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 12 + 12 + LINE 159 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 14 - 14 - LINE 159 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 14 + 14 + LINE 159 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 16 - 16 - LINE 159 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 16 + 16 + LINE 127 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 18 - 18 - LINE 127 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 18 + 18 + LINE 127 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 20 - 20 - LINE 127 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 20 + 20 + LINE 63 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 22 - 22 - LINE 63 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 22 + 22 + LINE 63 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 24 - 24 - LINE 63 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 24 + 24 + LINE 33 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 26 - 26 - LINE 33 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 26 + 26 + LINE 33 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 28 - 28 - LINE 33 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 28 + 28 + LINE 0 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 30 - 30 - LINE 0 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 30 + 30 + LINE 0 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 32 - 32 - LINE 0 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 32 + 32 + LINE 255 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 34 - 34 - LINE 255 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 34 + 34 + LINE 255 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 36 - 36 - LINE 255 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 36 + 36 + LINE 223 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 37 - 37 - LINE 223 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 37 + 37 + LINE 223 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 40 - 40 - LINE 223 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 40 + 40 + LINE 191 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 42 - 42 - LINE 191 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 42 + 42 + LINE 191 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 44 - 44 - LINE 191 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 44 + 44 + LINE 159 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 46 - 46 - LINE 159 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 46 + 46 + LINE 159 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 48 - 48 - LINE 159 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 48 + 48 + LINE 127 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 50 - 50 - LINE 127 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 50 + 50 + LINE 127 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 52 - 52 - LINE 127 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 52 + 52 + LINE 63 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 54 - 54 - LINE 63 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 54 + 54 + LINE 63 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 56 - 56 - LINE 63 0 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 56 + 56 + LINE PAINTCLEAR 255 255 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS LINE PAINTUNDO 255 255 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS LINE PAINTUNDO 255 255 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS LINE PAINTUNDO 255 255 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS LINE PAINTUNDO "" CHATSTR = } CHATSTR "^;*n2k$" GREPSTR IF { MOUSEPOS my = mx = POSX x = POSY y = mx x3 = mx 70 - x1 = mx 70 + x2 = my 70 - y3 = my 35 + DUP y1 = y2 = mx x1 - 4 / tx1 = my y1 - 4 / ty1 = mx x2 - 4 / tx2 = my y2 - 4 / ty2 = mx x3 - 4 / tx3 = my y3 - 4 / ty3 = PENBACK 115 10 10 8 PENSIZE PENCOLOR x y PENPOS x y x y 70 - LINE x y x 70 - y LINE x y x 70 + y LINE { PENFRONT } my y < IF x y 70 - x3 y3 LINE PENBACK { PENFRONT } mx x > IF x 70 - y x1 y1 LINE PENBACK { PENFRONT } mx x < IF x 70 + y x2 y2 LINE { PENFRONT { PENBACK } i 3 > IF [ "8" "8" "6" "4" "2" "2" "1" ] i GET ATOI PENSIZE 255 255 255 PENCOLOR x1 y1 PENPOS tx1 ty1 LINETO tx1 x1 += ty1 y1 += x2 y2 PENPOS tx2 ty2 LINETO tx2 x2 += ty2 y2 += x3 y3 PENPOS tx3 ty3 LINETO tx3 x3 += ty3 y3 += x1 ++ y1 ++ x2 ++ y2 ++ x3 ++ y3 ++ i ++ } { i 7 < } WHILE "" CHATSTR = } CHATSTR "claw" == IF { 100 25 25 PENCOLOR MOUSEPOS my = mx = POSX x = POSY y = mx x - 8 / tx = my y - 8 / ty = PENFRONT x y PENPOS { [ "8" "8" "8" "8" "8" "8" "6" "4" "2" "1" ] i GET ATOI PENSIZE { 255 255 255 PENCOLOR } 7 i == IF { PENBACK } 8 i == IF tx ty LINETO i ++ } { i 10 < } WHILE "" CHATSTR = } CHATSTR "spear" == IF { PAINTCLEAR PENBACK 255 255 255 PENCOLOR 3 PENSIZE [ 961003756 ] SETPROPS { L1 0 LINETO L1 0 MOVE L1 L2 LINETO L1 L2 MOVE 0 L2 LINETO 0 L2 MOVE L2 L2 LINETO L2 L2 MOVE L2 0 LINETO L2 0 MOVE L2 L1 LINETO L2 L1 MOVE 0 L1 LINETO 0 L1 MOVE L1 L1 LINETO L1 L1 MOVE } paint = POSX x = POSY y = -2 l1 = 2 l2 = MOUSEPOS 11 - my = mx = my 5 + 4 / ty = mx 3 - 0 SETPOS mx 3 - 0 PENPOS { 0 ty LINETO 0 ty MOVE i ++ } { i 4 < } WHILE mx 2 - my 6 + PENPOS 24 -75 LINETO -26 75 PENTO -22 -75 LINETO 20 77 PENTO -75 -30 LINETO 75 32 PENTO -75 30 LINETO 77 -34 PENTO -26 75 LINETO 28 -75 PENTO 24 75 LINETO -22 -73 PENTO 75 32 LINETO -75 -32 PENTO 75 -26 LINETO mx 2 - my 6 + PENPOS -6 l1 = 6 l2 = 0 i = { { PENFRONT } { PENBACK } i 1 == i 3 == OR i 5 == OR IFELSE [ [ 961003699 ] [ 961003682 ] ] 2 RANDOM GET SETPROPS mx t + my t 3 * - PENPOS mx t + my t 3 * - SETPOS paint EXEC l2 2 / t = 6 l2 += 6 l1 -= i ++ } { i 6 < } WHILE { { ";ao [ -1371890956 -1371890937 -1371890947 ] SETPROPS" WHOTARGET PRIVATEMSG } WHOTARGET IF } 5 ALARMEXEC x y SETPOS "" CHATSTR = } CHATSTR "blackwidow" == IF { 255 RANDOM 255 RANDOM 255 RANDOM PENCOLOR 8 RANDOM 1 + PENSIZE PENFRONT POSX POSY MOUSEPOS LINE PAINTUNDO MOUSEPOS SWAP x = y = "@" x ITOA + "," + y ITOA + " !$1" GREPSUB + ROOMMSG "" CHATSTR = } CHATSTR LOWERCASE "^bypass(.*)" GREPSTR IF rzap GLOBAL { { 255 RANDOM 255 RANDOM 255 RANDOM PENCOLOR 8 RANDOM 1 + PENSIZE PENFRONT 512 RANDOM 384 RANDOM SETPOS POSX POSY MOUSEPOS LINE PAINTUNDO "!bonk" MOUSEPOS SAYAT } rzap = "$1" GREPSUB ATOI n = { { rzap GLOBAL rzap EXEC } i 30 * ALARMEXEC i ++ } { i n < } WHILE "" CHATSTR = } CHATSTR "^rzap([1-9])" GREPSTR IF { 0 i = NBRROOMUSERS n = PENFRONT 255 255 255 PENCOLOR 1 PENSIZE POSX POSY POSX 0 LINE 2 PENSIZE POSX POSY POSX 0 LINE 3 PENSIZE POSX POSY POSX 0 LINE 4 PENSIZE POSX POSY POSX 0 LINE 5 PENSIZE POSX POSY POSX 0 LINE 6 PENSIZE POSX POSY POSX 0 LINE 7 PENSIZE POSX POSY POSX 0 LINE 8 PENSIZE POSX POSY POSX 0 LINE 9 PENSIZE POSX POSY POSX 0 LINE 10 PENSIZE POSX POSY POSX 0 LINE PAINTCLEAR { { 255 RANDOM a = 255 RANDOM b = 255 RANDOM c = a b c PENCOLOR i ROOMUSER WHOPOS SWAP x = y = 1 PENSIZE x 0 x y LINE 3 PENSIZE x 0 x y LINE 5 PENSIZE x 0 x y LINE 7 PENSIZE x 0 x y LINE 9 PENSIZE x 0 x y LINE PAINTUNDO PAINTUNDO PAINTUNDO PAINTUNDO PAINTUNDO 10 PENSIZE x 50 - y 50 - x 50 + y 50 + LINE x 50 - y 50 + x 50 + y 50 - LINE ")boom !>!!<" i ROOMUSER WHOPOS SAYAT } i ROOMUSER WHONAME USERNAME == NOT IF i ++ } { i n < } WHILE "" CHATSTR = } CHATSTR "roomkill" == IF { { ")thunder" SAY ")fazein" SAY [ 939048964 939049465 939050050 939050358 939051191 939049377 939052238 939052261 939052286 ] SETPROPS PENFRONT POSX x = POSY y = x 50 - x1 = y 20 - y1 = x 20 - x2 = y 30 - y2 = x 37 - x3 = y 20 - y3 = x 25 + x4 = y 45 - y4 = x 12 + x5 = y 35 - y5 = x 50 + x6 = y 50 - y6 = { x1 y1 x2 y2 LINE x2 y2 x3 y3 LINE x3 y3 x4 y4 LINE x4 y4 x5 y5 LINE x5 y5 x6 y6 LINE } aa DEF { x5 y5 x6 y6 LINE x4 y4 x5 y5 LINE x3 y3 x4 y4 LINE x2 y2 x3 y3 LINE x1 y1 x2 y2 LINE } bb DEF { 200 200 200 PENCOLOR 5 PENSIZE } pen1 DEF { 225 225 225 PENCOLOR 3 PENSIZE } pen2 DEF { 255 255 255 PENCOLOR 1 PENSIZE } pen3 DEF pen2 EXEC aa EXEC pen3 EXEC aa EXEC PAINTCLEAR pen2 EXEC bb EXEC pen3 EXEC bb EXEC PAINTCLEAR MOUSEPOS 88 - y = x = pen1 EXEC x1 y1 x 0 LINE x6 y6 x 0 LINE pen2 EXEC x1 y1 x 0 LINE x6 y6 x 0 LINE pen3 EXEC x1 y1 x 0 LINE x6 y6 x 0 LINE PAINTCLEAR pen1 EXEC x 0 x 66 - y LINE x 0 x 33 + y LINE x 0 x 33 - y LINE x 0 x 66 + y LINE pen2 EXEC x 0 x 66 - y LINE x 0 x 33 + y LINE x 0 x 33 - y LINE x 0 x 66 + y LINE pen3 EXEC x 0 x 66 - y LINE x 0 x 33 + y LINE x 0 x 33 - y LINE x 0 x 66 + y LINE MOUSEPOS y = x = x xx = y 88 - yy = 931248569 p1 = 931248592 p2 = "rainwater" p3 = { p2 xx 44 - yy ADDLOOSEPROP p1 xx yy ADDLOOSEPROP } cld DEF { 0 i = { p3 xx yy ADDLOOSEPROP xx 44 + xx = i ++ } { i 4 < } WHILE } rn DEF cld EXEC xx 44 - xx = cld EXEC xx 88 + xx = cld EXEC yy 18 - yy = xx 11 - xx = cld EXEC yy 11 - yy = xx 66 - xx = cld EXEC y 44 - yy = x 88 - xx = rn EXEC yy 44 + yy = x 88 - xx = rn EXEC yy 44 + yy = x 88 - xx = rn EXEC PAINTCLEAR { 200 200 200 PENCOLOR 5 PENSIZE } a DEF { xx 1 + xx = 225 225 225 PENCOLOR 3 PENSIZE } b DEF { xx 1 + xx = 255 255 255 PENCOLOR 1 PENSIZE } c DEF { PENBACK xx yy xx 22 - yy 11 + LINE PENFRONT xx 22 - yy 11 + xx 22 + yy 22 + LINE xx 22 + yy 22 + xx 11 - yy 33 + LINE xx 11 - yy 33 + x y LINE } s1 DEF { PENBACK xx yy xx 22 + yy 11 + LINE PENFRONT xx 22 + yy 11 + xx 22 - yy 22 + LINE xx 22 - yy 22 + xx 11 + yy 33 + LINE xx 11 + yy 33 + x y LINE} s2 DEF x 88 - xxx = y 44 + yyy = { ")boom !." xxx yyy SAYAT xxx 22 + xxx = } ss DEF x 55 - xx = y 66 - yy = a EXEC s1 EXEC b EXEC s1 EXEC c EXEC s1 EXEC ss EXEC PAINTCLEAR x 22 + xx = y 66 - yy = a EXEC s1 EXEC b EXEC s1 EXEC c EXEC s1 EXEC ss EXEC PAINTCLEAR x 22 - xx = y 66 - yy = a EXEC s2 EXEC b EXEC s2 EXEC c EXEC s2 EXEC ss EXEC PAINTCLEAR x 55 + xx = y 66 - yy = a EXEC s2 EXEC b EXEC s2 EXEC c EXEC s2 EXEC ss EXEC PAINTCLEAR } { "Too many room occupants!" STATUSMSG } NBRROOMUSERS 9 < IFELSE "" CHATSTR = } CHATSTR "storm" == IF { "$1" GREPSUB color = 5 PENSIZE 256 198 ty = tx = POSX x = POSY y = tx x - 30 / xx = ty y - 30 / yy = x x1 = y 66 - y1 = x 66 + x2 = y y2 = x x3 = y 66 + y3 = x 66 - x4 = y y4 = { 255 RANDOM 255 RANDOM 255 RANDOM PENCOLOR { c c c PENCOLOR } "o white" color == IF { 0 0 c PENCOLOR } "o blue" color == IF { c 0 0 PENCOLOR } "o red" color == IF { 0 c 0 PENCOLOR } "o green" color == IF { c 0 c PENCOLOR } "o purple" color == IF x1 y1 x2 y2 LINE x2 y2 x3 y3 LINE x3 y3 x4 y4 LINE x4 y4 x1 y1 LINE x1 xx + x1 = x2 xx + x2 = x3 xx + x3 = x4 xx + x4 = y1 yy + y1 = y2 yy + y2 = y3 yy + y3 = y4 yy + y4 = x1 11 + x1 = y1 11 + y1 = x2 11 - x2 = y2 11 + y2 = x3 11 - x3 = y3 11 - y3 = x4 11 + x4 = y4 11 - y4 = c 8 + c = i ++ } { i 30 <= } WHILE "" CHATSTR = } CHATSTR LOWERCASE "^vertig(.*)" GREPSTR IF ;;Rainbow { MOUSEPOS ty = tx = POSX x = POSY y = tx x - 20 / xx = ty y - 20 / yy = 7 PENSIZE { x xx + x1 = y yy + y1 = { y1 4 - y1 = } i 7 < IF { y1 4 + y1 = } i 11 > IF 145 180 255 PENCOLOR x y 14 + x1 y1 14 + LINE 145 225 255 PENCOLOR x y 7 + x1 y1 7 + LINE 145 255 160 PENCOLOR x y x1 y1 LINE 255 255 050 PENCOLOR x y 7 - x1 y1 7 - LINE 255 150 150 PENCOLOR x y 14 - x1 y1 14 - LINE { y 4 - y = } i 7 < IF { y 4 + y = } i 11 > IF x xx + x = y yy + y = i ++ } { i 20 < } WHILE "goldpot" tx ty ADDLOOSEPROP "" CHATSTR = } CHATSTR "rainbow" == IF ;;Paint letters colinv GLOBAL tcolor GLOBAL tagcolor GLOBAL lnum GLOBAL { [ { x y xl y2 LINE xl y2 x y4 LINE x y4 xr y2 LINE xr y2 x y LINE xr1 yd xl1 y 38 + LINE } { x y x y4 LINE } { xl y 9 + xl1 y LINE xl1 y xr1 y LINE xr1 y xr y 9 + LINE xr y 9 + xl y4 LINE xl y4 xr y4 LINE } { xl y 9 + xl1 y LINE xl1 y xr1 y LINE xr1 y xr y 9 + LINE xr y 9 + xr1 y2 LINE xr1 y2 xr y 35 + LINE xr1 y2 x 1 - y2 LINE xr y 35 + xr1 y4 LINE xr1 y4 xl1 y4 LINE xl1 y4 xl y 35 + LINE } { x y4 x y LINE x y xl y3 LINE xl y3 xr y3 LINE } { xr1 y xl y LINE xl y xl y 18 + LINE xl y 18 + x 5 + y 18 + LINE x 5 + y 18 + xr y 32 + LINE xr y 32 + x 5 + y4 LINE x 5 + y4 xl y4 LINE } { xr y xl y3 LINE xl y3 x y4 LINE x y4 xr y3 LINE xr y3 x y2 LINE } { xl y xr y LINE xr y xl y4 LINE } { x y xl y1 LINE xl y1 xr y3 LINE xr y3 x y4 LINE x y4 xl y3 LINE xl y3 xr y1 LINE xr y1 x y LINE } { x y2 xl y1 LINE xl y1 x y LINE x y xr y1 LINE xr y1 xl y4 LINE } { x y xl y4 LINE x y xr y4 LINE x 8 - y 33 + x 8 + y 33 + LINE } { xl y xl y4 LINE xl y xr y1 LINE xr y1 xl y2 LINE xl y2 xr y3 LINE xr y3 xl y4 LINE } { xr y1 x y LINE x y xl y1 LINE xl y1 xl y3 LINE xl y3 x y4 LINE x y4 xr y3 LINE } { xr y2 xl y LINE xl y xl y4 LINE xl y4 xr y2 LINE } { xr y xl y LINE xr1 y2 xl y2 LINE xr y4 xl y4 LINE xl y xl y4 LINE } { xr y xl y LINE xr1 y2 xl y2 LINE xl y xl y4 LINE } { xr y1 x y LINE x y xl y1 LINE xl y1 xl y3 LINE xl y3 x y4 LINE x y4 xr y3 LINE xr y3 x 2 + y3 LINE } { xl y2 xr y2 LINE xl y xl y4 LINE xr y xr y4 LINE } { x y x y4 LINE xl y xr y LINE xl y4 xr y4 LINE } { xl y3 x y4 LINE x y4 x y LINE xl y xr y LINE } { xr y xl y2 LINE xl y2 xr y4 LINE xl y xl y4 LINE } { xl y xl y4 LINE xl y4 xr y4 LINE } { xl y4 xl y LINE xl y x y4 LINE x y4 xr y LINE xr y xr y4 LINE } { xl y4 xl y LINE xl y xr y4 LINE xr y4 xr y LINE } { x y xl y2 LINE xl y2 x y4 LINE x y4 xr y2 LINE xr y2 x y LINE } { xl y xr y1 LINE xr y1 xl y2 LINE xl y xl y4 LINE } { x y xl y2 LINE xl y2 x y4 LINE x y4 xr y2 LINE xr y2 x y LINE x y2 xr y4 LINE } { xl y xr y1 LINE xr y1 xl y2 LINE xl y xl y4 LINE xl y2 xr y4 LINE } { xr y1 x y LINE x y xl y1 LINE xl y1 xr y3 LINE xr y3 x y4 LINE x y4 xl y3 LINE } { x y x y4 LINE xl y xr y LINE } { xl y xl y4 LINE xl y4 xr y4 LINE xr y4 xr y LINE } { xl y x y4 LINE x y4 xr y LINE } { xl y xl1 y4 LINE xl1 y4 x y LINE x y xr1 y4 LINE xr1 y4 xr y LINE } { xl y xr y4 LINE xr y xl y4 LINE } { xl y x y2 LINE x y2 xr y LINE x y2 x y4 LINE } { xl y xr y LINE xr y xl y4 LINE xl y4 xr y4 LINE } { } { xl3 yu x y 28 + LINE xr3 yu x y 28 + LINE x yu x y 28 + LINE x 2 - y 48 + x 2 - y 42 + LINE x 2 + y 48 + x 2 + y 42 + LINE } { xl1 y2 xr1 y2 LINE } { xl y 9 + xl1 y LINE xl1 y xr1 y LINE xr1 y xr y 9 + LINE xr y 9 + x y2 LINE x y2 x y 34 + LINE x 2 - y 42 + x 2 - y 48 + LINE x 2 + y 42 + x 2 + y 48 + LINE } { x yu xr1 y LINE xr1 y xr3 yd LINE } { xr y xl y2 LINE xl y2 xr y4 LINE } { xl y xr y2 LINE xr y2 xl y4 LINE } { xl1 yu xl1 yd LINE xr1 yu xr1 yd LINE } { x 6 - y 22 + x 6 + y 22 + LINE x y 16 + x y 28 + LINE } { x 6 - y 16 + x 6 + y 16 + LINE x 6 - y 28 + x 6 + y 28 + LINE } { xr y1 x y LINE x y xl y1 LINE xl y1 xr y3 LINE xr y3 x y4 LINE x y4 xl y3 LINE x y 6 - x y 50 + LINE } { x 6 + y x 11 + y 22 + LINE x 11 + y 22 + x 6 + y 44 + LINE } { x 6 - y x 11 - y 22 + LINE x 11 - y 22 + x 6 - y 44 + LINE } { x 6 - y x 6 - y 44 + LINE x 4 + y x 4 + y 44 + LINE x 11 - y 11 + x 11 + y 11 + LINE x 11 - y 33 + x 11 + y 33 + LINE } { xr y1 x y LINE x y xl y1 LINE xl y1 xr y3 LINE xr y3 x y4 LINE x y4 xl y3 LINE x y 4 - x y 48 + LINE} { x 6 - y x 6 + y 44 + LINE } { x 6 + y x 6 - y 44 + LINE } { x 11 - y 44 + x 11 + y 44 + LINE } { x y x y 22 + LINE x 6 - y 4 + x 6 + y 18 + LINE x 6 + y 4+ x 6 - y 18 + LINE } { x 9 - y 3 + x 4 - y LINE x 3 - y x 3 + y 4 + LINE x 3 + y 4 + x 9 + y LINE } { x 2 - y 48 + x 2 - y 42 + LINE x 2 + y 48 + x 2 + y 42 + LINE } { x 2 - y 4 + x 2 - y 8 + LINE x 2 + y 4 + x 2 + y 8 + LINE x 2 - y 36 + x 2 - y 40 + LINE x 2 + y 36 + x 2 + y 40 + LINE } ] cords = [ "Þ0" "Þ1" "Þ2" "Þ3" "Þ4" "Þ5" "Þ6" "Þ7" "Þ8" "Þ9" "a" "b" "c" "d" "e" "f" "g" "h" "i" "j" "k" "l" "m" "n" "o" "p" "q" "r" "s" "t" "u" "v" "w" "x" "y" "z" " " "!" "-" "?" "'" "<" ">" "\"" "[\+]" "=" "[\$]" "[\)]" "[\(]" "#" "[\$]" "[\\]" "/" "_" "[\*]" "~" "[\.]" ":" ] alpha = [ 5 1 5 9 3 6 4 2 6 4 3 5 5 3 4 3 6 3 3 3 3 3 2 4 4 3 5 4 5 2 3 2 4 2 3 3 0 5 1 7 2 2 2 2 2 2 6 2 2 4 6 1 1 1 3 3 2 4 ] alphacount = MOUSEPOS DUP yy = y = DUP x = xx = 9 ps = ",$1" GREPSUB cstr = alpha LENGTH num = { GREPSUB cstr = } tstr = { 3 lnum = } lnum NOT IF { "$1Þ$2$3" tstr EXEC } { cstr "(.*[^Þ])([0-9])(.*)" GREPSTR } WHILE { alpha i GET temp = { "$1" i ITOA & ",$2" & tstr EXEC alphacount i get safety += } { cstr "(.*)" temp & "(.*)" & GREPSTR } WHILE i ++ } { i num < } WHILE cstr DUP cstr1 = 0 i = { { [ "8" "6" "4" "2" "1" ] i GET ATOI PENSIZE { tagcolor { lnum i - 1 - } { i } colinv IFELSE GET " PENCOLOR" & STRTOATOM EXEC } tcolor IF { x 11 + xr = x 11 - xl = x 3 + xr3 = x 3 - xl3 = x 6 + xr1 = x 6 - xl1 = y 6 + yd = y 6 - yu = y 11 + y1 = y 22 + y2 = y 33 + y3 = y 44 + y4 = { 255 RANDOM 255 RANDOM 255 RANDOM PENCOLOR } tcolor NOT IF cords "$1" GREPSUB ATOI GET EXEC 33 x += { xx x = 55 y += } x 490 > IF "$2" GREPSUB cstr = } { cstr "([0-9]+)(.*)" GREPSTR } WHILE cstr1 cstr = xx ++ yy ++ xx x = yy y = i ++ } { i lnum < } WHILE } { "Over_Sized_Tag_Script_Halted" STATUSMSG } lnum safety * 128 <= IFELSE "" chatstr = } chatstr lowercase "^tag=(.*)" GREPSTR IF ;;Erase { { 255 RANDOM 255 RANDOM 255 RANDOM PENCOLOR 10 PENSIZE WHOTARGET WHOPOS 66 - y = 66 - DUP x = t = PENBACK { i x y x y 132 + LINE 8 x += i ++ } { i 17 < } WHILE PENFRONT O i = { 255 RANDOM 255 RANDOM 255 RANDOM PENCOLOR [ "8" "6" "4" "2" "1" ] i GET ATOI PENSIZE t y PENPOS 132 132 LINETO 0 -132 PENTO -132 132 LINETO 0 -132 LINETO 132 0 LINETO 0 132 LINETO -132 0 LINETO 1 t += 1 y += i ++ } { i 5 < } WHILE WHOTARGET WHONAME " has been erased by " & USERNAME & ROOMMSG } { "Whisper" STATUSMSG } WHOTARGET IFELSE "" CHATSTR = } CHATSTR LOWERCASE "erase2" == IF ;; Psh1 ;; Made by !§K¥ { 0 255 0 PENCOLOR 10 PENSIZE 0 0 MOUSEPOS LINE 255 0 0 PENCOLOR 10 PENSIZE 512 0 MOUSEPOS LINE 0 0 255 PENCOLOR 10 PENSIZE 0 384 MOUSEPOS LINE 255 255 255 PENCOLOR 10 PENSIZE 512 384 MOUSEPOS LINE 255 255 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 2 - 2 - LINE 255 255 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 2 + 2 + LINE 255 230 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 4 - 4 - LINE 255 230 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 4 + 4 + LINE 255 200 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 6 - 6 - LINE 255 200 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 6 + 6 + LINE 255 170 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 8 - 8 - LINE 255 170 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 8 + 8 + LINE 255 140 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 10 - 10 - LINE 255 140 0 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 10 + 10 + LINE 10 PENSIZE 0 153 0 PENCOLOR PENFRONT MOUSEPOS POSY - difrow = POSX - difcol = POSX slc = POSY slr = difrow 8 / aslr = difcol 8 / aslc = difcol 20 / -1 * zrow = difrow 20 / zcol = POSY oldr = POSX oldc = { steps ++ aslc slc += aslr slr += slc zcol + newc = slr zrow + newr = oldc oldr newc newr LINE -1 zrow *= -1 zcol *= newc oldc = newr oldr = 8 steps - PENSIZE } { steps 7 < } WHILE oldc oldr MOUSEPOS LINE "@" MOUSEPOS SWAP ITOA "," & SWAP ITOA & & { PAINTCLEAR } 300 ALARMEXEC PENBACK 255 255 0 PENCOLOR 10 PENSIZE PENBACK POSX POSY MOUSEPOS 12 - 12 - LINE 255 255 0 PENCOLOR 10 PENSIZE PENBACK POSX POSY MOUSEPOS 12 + 12 + LINE 255 230 0 PENCOLOR 10 PENSIZE PENBACK POSX POSY MOUSEPOS 14 - 14 - LINE 255 230 0 PENCOLOR 10 PENSIZE PENBACK POSX POSY MOUSEPOS 14 + 14 + LINE 255 200 0 PENCOLOR 10 PENSIZE PENBACK POSX POSY MOUSEPOS 16 - 16 - LINE 255 200 0 PENCOLOR 10 PENSIZE PENBACK POSX POSY MOUSEPOS 16 + 16 + LINE 255 170 0 PENCOLOR 10 PENSIZE PENBACK POSX POSY MOUSEPOS 18 - 18 - LINE 255 170 0 PENCOLOR 10 PENSIZE PENBACK POSX POSY MOUSEPOS 18 + 18 + LINE 255 140 0 PENCOLOR 10 PENSIZE PENBACK POSX POSY MOUSEPOS 20 - 20 - LINE 255 140 0 PENCOLOR 10 PENSIZE PENBACK POSX POSY MOUSEPOS 20 + 20 + LINE "" CHATSTR = } CHATSTR "^;*psh1$" GREPSTR IF ;; Psh2 ;; Made by !§K¥ { 0 255 255 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 26 - 26 - LINE 0 255 255 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 26 + 26 + LINE 0 40 255 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 2 - 2 - LINE 0 40 255 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 2 + 2 + LINE 0 230 255 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 24 - 24 - LINE 0 230 255 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 24 + 24 + LINE 0 70 255 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 4 - 4 - LINE 0 70 255 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 4 + 4 + LINE 0 200 255 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 22 - 22 - LINE 0 200 255 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 22 + 22 + LINE 0 100 255 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 6 - 6 - LINE 0 100 255 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 6 + 6 + LINE 0 170 255 PENCOLOR 10 PENSIZE PENFRONT POSX POSY MOUSEPOS 20 - 20 - LINE 10 PENSIZE 100 0 100 PENCOLOR PENFRONT MOUSEPOS POSY - difrow = POSX - difcol = POSX slc = POSY slr = difrow 8 / aslr = difcol 8 / aslc = difcol 20 / -1 * zrow = difrow 20 / zcol = POSY oldr = POSX oldc = { steps ++ aslc slc += aslr slr += slc zcol + newc = slr zrow + newr = oldc oldr newc newr LINE -1 zrow *= -1 zcol *= newc oldc = newr oldr = 8 steps - PENSIZE } { steps 7 < } WHILE oldc oldr MOUSEPOS LINE "@" MOUSEPOS SWAP ITOA "," & SWAP ITOA & & "! !BLaH!" & ROOMMSG { PAINTCLEAR } 300 ALARMEXEC PENBACK 0 170 255 PENCOLOR 10 PENSIZE PENBACK POSX POSY MOUSEPOS 20 + 20 + LINE 0 130 255 PENCOLOR 10 PENSIZE PENBACK POSX POSY MOUSEPOS 8 - 8 - LINE 0 130 255 PENCOLOR 10 PENSIZE PENBACK POSX POSY MOUSEPOS 8 + 8 + LINE 0 140 255 PENCOLOR 10 PENSIZE PENBACK POSX POSY MOUSEPOS 18 - 18 - LINE 0 140 255 PENCOLOR 10 PENSIZE PENBACK POSX POSY MOUSEPOS 18 + 18 + LINE 0 160 255 PENCOLOR 10 PENSIZE PENBACK POSX POSY MOUSEPOS 10 - 10 - LINE 0 160 255 PENCOLOR 10 PENSIZE PENBACK POSX POSY MOUSEPOS 10 + 10 + LINE 0 110 255 PENCOLOR 10 PENSIZE PENBACK POSX POSY MOUSEPOS 16 - 16 - LINE 0 110 255 PENCOLOR 10 PENSIZE PENBACK POSX POSY MOUSEPOS 16 + 16 + LINE 0 190 255 PENCOLOR 10 PENSIZE PENBACK POSX POSY MOUSEPOS 12 - 12 - LINE 0 190 255 PENCOLOR 10 PENSIZE PENBACK POSX POSY MOUSEPOS 12 + 12 + LINE 0 80 255 PENCOLOR 10 PENSIZE PENBACK POSX POSY MOUSEPOS 14 - 14 - LINE 0 80 255 PENCOLOR 10 PENSIZE PENBACK POSX POSY MOUSEPOS 14 + 14 + LINE "" CHATSTR = } CHATSTR "^;*psh2$" GREPSTR IF { MOUSEPOS SWAP x = y = 255 RANDOM 255 RANDOM 255 RANDOM PENCOLOR 0 i = { i PENSIZE PENBACK POSX POSY x 0 LINE POSX POSY x 384 LINE { x 0 512 y LINE x 384 512 y LINE i PENSIZE 512 y x y LINE } { x 0 0 y LINE x 384 0 y LINE i PENSIZE 0 y x y LINE } POSX x < IFELSE i ++ } { i 10 < } WHILE PAINTUNDO PAINTUNDO PAINTUNDO PAINTUNDO PAINTUNDO PAINTUNDO PAINTUNDO PAINTUNDO PAINTUNDO PAINTUNDO PAINTCLEAR "!

" MOUSEPOS SAYAT "" CHATSTR = } CHATSTR "dbzap" == IF ;; dump: place worn prop in a pile at the mouse position { { mousepos dropprop } { topprop } while "" CHATSTR = } CHATSTR "^;*dump$" GREPSTR IF { "" CHATSTR = "\x22 " 0 tbl = {tbl USERPROP ITOA + " " + tbl ++ } {tbl NBRUSERPROPS == NOT} WHILE " \x22;" + "$1" GREPSUB + LOGMSG } CHATSTR "^propid(.*)" GREPSTR IF { "$1" GREPSUB s = CLEARLOOSEPROPS 0 d = { "0 y = \x7b y 44 / " d ITOA & " + 2 % 44 * x = " & "\x7b \x22" & s & "\x22 x y ADDLOOSEPROP 88 x += " & "\x7d \x7b x 512 < \x7d WHILE 44 y += " & "\x7d \x7b y 384 < \x7d WHILE" & STRTOATOM d 450 * 45 + ALARMEXEC d ++ } { d 2 < } WHILE "" CHATSTR = } CHATSTR "^blanket *(.*)$" GREPSTR IF ;; border { "$1" GREPSUB s = 30 x2 = 30 y2 = { s x2 y2 ADDLOOSEPROP 60 x2 += } { x2 400 < } WHILE { s x2 y2 ADDLOOSEPROP 60 y2 += } { y2 300 < } WHILE { s x2 y2 ADDLOOSEPROP 60 x2 -= } { x2 30 > } WHILE { s x2 y2 ADDLOOSEPROP 60 y2 -= } { y2 30 > } WHILE "" CHATSTR = } CHATSTR "^border (.*)$" GREPSTR IF ; TypeWriter start { "" a = 0 b = "$1" GREPSUB LOWERCASE string = {string "^" a + "(.)" + GREPSTR "$1" GREPSUB "." a + a = b++ } { "$1" GREPSUB "$1" <> } WHILE b-- "" a = 0 c = 255 0 0 PENCOLOR 2 PENSIZE MOUSEPOS my = mx = 512 26 b * - 2 / tx = {string "^" a + "(.)" + GREPSTR "LET!§K¥" "$1" GREPSUB + POSX POSY tx 26 c * + my 5 + LINE PAINTUNDO tx 26 c * + my ADDLOOSEPROP "." a + a = c++ } { c b < } WHILE "" CHATSTR = } CHATSTR "^tw (.*)$" GREPSTR IF { "$1" GREPSUB propstr = POSX x = POSY y = MOUSEPOS ty = tx = tx x - 15 / tx = ty y - 15 / ty = { propstr x y addlooseprop clearlooseprops tx x += ty y += i++ } { i 15 <= } WHILE propstr x 30 - y 0 - addlooseprop propstr x 60 - y 0 - addlooseprop propstr x 0 - y 30 - addlooseprop propstr x 90 - y 30 - addlooseprop propstr x 0 - y 60 - addlooseprop propstr x 90 - y 60 - addlooseprop propstr x 30 - y 90 - addlooseprop propstr x 60 - y 90 - addlooseprop ;")no" say ;"!SHAAAAAZAAAAAP ©" MOUSEPOS SAYAT "" CHATSTR = } CHATSTR "sha (.*)$" GREPSTR IF {} { "$1" GREPSUB propstr = POSX x = POSY y = MOUSEPOS ty = tx = tx x - 10 / tx = ty y - 10 / ty = { propstr x y addlooseprop clearlooseprops tx x += ty y += i++ } { i 10 <= } WHILE "" CHATSTR = propstr x y addlooseprop } CHATSTR "throw (.*)$" GREPSTR IF { 10 s1 = {[ -1220914709 -1220925278 -1220925266 -1220925287 ] setprops} s1 alarmexec {[ -1220925045 -1220925228 -1220925063 -1220914668 ] setprops} s1 2 * alarmexec {[ -1220924711 -1220924755 -1220924747 -1220924759 ] setprops} s1 3 * alarmexec {[ -1220924697 -1220924725 -1220924704 ] setprops} s1 4 * alarmexec {[ -1220924683 -1220924672 -1220924675 ] setprops} s1 5 * alarmexec {[ -1220924645 -1220924650 -1220924656 ] setprops} s1 6 * alarmexec {[ -1220924608 -1220924616 -1220924626 -1220924631 ] setprops} s1 7 * alarmexec {[ -1220924565 -1220924576 -1220924588 -1220924582 ] setprops} s1 8 * alarmexec {[ -1220924534 -1220924539 -1220924556 -1220924547 ] setprops} s1 9 * alarmexec {[ -1220924493 -1220924465 -1220924511 -1220924504 ] setprops} s1 10 * alarmexec {[ -1220924454 -1220924459 -1220924473 ] setprops} s1 11 * alarmexec {[ -1220924406 -1220924424 -1220924415 -1220924429 ] setprops} s1 12 * alarmexec {[ -1220924384 -1220924392 -1220924380 -1220924398 ] setprops} s1 13 * alarmexec {[ -1220924349 -1220924353 -1220924365 -1220924370 ] setprops} s1 14 * alarmexec {[ -1220924314 -1220924327 -1220924319 -1220924334 ] setprops} s1 15 * alarmexec {[ -1220924292 -1220924256 -1220924261 -1220924298 ] setprops} s1 16 * alarmexec {[ -1220924187 -1220924192 -1220924142 -1220924198 -1220924210 ] setprops} s1 17 * alarmexec { whome whopos y = x = { c 20 * v = c ++ c v * 20 / x + v1 = -1220922373 v1 24 + y 72 - addlooseprop -1220922343 v1 24 + y 28 - addlooseprop -1220922350 v1 68 + y 72 - addlooseprop -1220922333 v1 68 + y 28 - addlooseprop clearlooseprops }{ c 23 <} while} s1 18 * alarmexec {[ -1220924052 -1220924101 -1220924079 -1220924044 ] setprops} s1 19 * alarmexec {[ -1220924008 -1220924013 -1220924032 -1220924027 ] setprops} s1 20 * alarmexec {[ -1220923961 -1220923990 -1220923995 -1220923966 ] setprops} s1 21 * alarmexec {[ -1220923936 -1220923947 -1220923951 -1220923941 ] setprops} s1 22 * alarmexec {[ -1220923900 -1220923917 -1220923922 -1220923905 ] setprops} s1 23 * alarmexec "" chatstr = } chatstr "megablaster" == if { 10 s1 = {[ -1220914709 -1220925278 -1220925266 -1220925287 ] setprops} s1 alarmexec {[ -1220925045 -1220925228 -1220925063 -1220914668 ] setprops} s1 2 * alarmexec {[ -1220924711 -1220924755 -1220924747 -1220924759 ] setprops} s1 3 * alarmexec {[ -1220924697 -1220924725 -1220924704 ] setprops} s1 4 * alarmexec {[ -1220924683 -1220924672 -1220924675 ] setprops} s1 5 * alarmexec {[ -1220924645 -1220924650 -1220924656 ] setprops} s1 6 * alarmexec {[ -1220924608 -1220924616 -1220924626 -1220924631 ] setprops} s1 7 * alarmexec {[ -1220924565 -1220924576 -1220924588 -1220924582 ] setprops} s1 8 * alarmexec {[ -1220924534 -1220924539 -1220924556 -1220924547 ] setprops} s1 9 * alarmexec {[ -1220924493 -1220924465 -1220924511 -1220924504 ] setprops} s1 10 * alarmexec {[ -1220924454 -1220924459 -1220924473 ] setprops} s1 11 * alarmexec {[ -1220924406 -1220924424 -1220924415 -1220924429 ] setprops} s1 12 * alarmexec {[ -1220924384 -1220924392 -1220924380 -1220924398 ] setprops} s1 13 * alarmexec {[ -1220924349 -1220924353 -1220924365 -1220924370 ] setprops} s1 14 * alarmexec {[ -1220924314 -1220924327 -1220924319 -1220924334 ] setprops} s1 15 * alarmexec {[ -1220924292 -1220924256 -1220924261 -1220924298 ] setprops} s1 16 * alarmexec {[ -1220924187 -1220924192 -1220924142 -1220924198 -1220924210 ] setprops} s1 17 * alarmexec {POSX 35 + xu = POSX 35 + x = POSY 50 - y = POSY 50 - yu = xu 100 + x - xu = yu 100 - y - yu3 = yu 100 - y - yut3 = yu 100 + y - yu2 = yu 100 + y - yut2 = yu 100 - y - yu1 = yu 100 - y - yut1 = yu 100 + y - yut = yu 100 + y - yu = 2 l = { i xu * 7 / x + pawnx = {yu 15 - yu = i yu * l / y + pawny = 15 yut1 + yut1 = i yut1 * l / y + pawny1 =} 0 i <= 6 i >= AND IF { 15 yu1 + yu1 = c yu1 * l / y + pawny = yut 15 - yut = c yut * l / y + pawny1 = c ++} 7 i <= 13 i >= AND IF { yu2 15 - yu2 = e yu2 * l / y + pawny = 15 yut3 + yut3 = e yut3 * l / y + pawny1 = e ++} 14 i <= 20 i >= AND IF { 15 yu3 + yu3 = d yu3 * l / y + pawny = yut2 15 - yut2 = d yut2 * l / y + pawny1 = d ++} 21 i <= 27 i >= AND IF -1220876623 pawnx y addlooseprop -1220876835 pawnx pawny addlooseprop -1220876835 pawnx pawny1 addlooseprop clearlooseprops i ++ } { i 27 <=} while} s1 18 * alarmexec {[ -1220924052 -1220924101 -1220924079 -1220924044 ] setprops} s1 19 * alarmexec {[ -1220924008 -1220924013 -1220924032 -1220924027 ] setprops} s1 20 * alarmexec {[ -1220923961 -1220923990 -1220923995 -1220923966 ] setprops} s1 21 * alarmexec {[ -1220923936 -1220923947 -1220923951 -1220923941 ] setprops} s1 22 * alarmexec {[ -1220923900 -1220923917 -1220923922 -1220923905 ] setprops} s1 23 * alarmexec "" CHATSTR = } CHATSTR "megatweaker" == IF { 23 s1 = 70 226 SETPOS {[ 994201511 994201526 994201532 ] setprops} s1 alarmexec {[ 994201577 994201585 994201600 994201609 ] setprops} s1 1 * alarmexec {[ 994201849 994201870 994201884 994201877 ] setprops} s1 2 * alarmexec {[ 994201926 994201934 994201940 994201877 ] setprops} s1 3 * alarmexec {255 255 255 PENCOLOR 10 PENSIZE PENFRONT 70 188 505 188 LINE 255 255 255 PENCOLOR 8 PENSIZE PENFRONT 60 180 505 180 LINE 255 255 255 PENCOLOR 8 PENSIZE PENFRONT 60 196 505 196 LINE 0 250 255 PENCOLOR 8 PENSIZE PENFRONT 60 172 505 172 LINE 0 250 255 PENCOLOR 8 PENSIZE PENFRONT 60 200 505 200 LINE 0 230 255 PENCOLOR 8 PENSIZE PENFRONT 69 164 505 164 LINE 0 230 255 PENCOLOR 8 PENSIZE PENFRONT 70 208 505 208 LINE 0 215 245 PENCOLOR 8 PENSIZE PENFRONT 69 156 505 156 LINE 0 215 245 PENCOLOR 8 PENSIZE PENFRONT 70 216 505 216 LINE 0 190 255 PENCOLOR 8 PENSIZE PENFRONT 79 148 505 148 LINE 0 190 255 PENCOLOR 8 PENSIZE PENFRONT 80 224 505 224 LINE 0 169 255 PENCOLOR 8 PENSIZE PENFRONT 57 168 87 139 LINE 0 169 255 PENCOLOR 8 PENSIZE PENFRONT 57 203 87 233 LINE 0 169 255 PENCOLOR 8 PENSIZE PENFRONT 87 140 505 140 LINE 0 169 255 PENCOLOR 8 PENSIZE PENFRONT 87 232 505 232 LINE} s1 alarmexec "" CHATSTR = } CHATSTR "vblast" == IF ;; 200 face change { 0 i = { 14 RANDOM SETFACE i ++ } { i 200 < } WHILE "" CHATSTR = } CHATSTR "^;*faces$" GREPSTR IF ;; 200 color change { 0 i = { 14 RANDOM SETCOLOR i ++ } { i 200 < } WHILE "" CHATSTR = } CHATSTR "^;*colors$" GREPSTR IF ;; up and down { 0 i = { 0 10 move 0 -10 move i ++ } { i 50 < } WHILE "" CHATSTR = } CHATSTR "^;*updown$" GREPSTR IF ;; jump { 0 i = { 0 45 move 0 -45 move i ++ } { i 50 < } WHILE "" CHATSTR = } CHATSTR "^;*jump$" GREPSTR IF ;; everywhere { 0 i = { 512 RANDOM 384 RANDOM SETPOS i ++ } { i 100 < } WHILE "" CHATSTR = } CHATSTR "^;*everywhere$" GREPSTR IF ;Moving Scripts ;; move: Weird moving script { 0 i = { MOUSEPOS SETPOS i++ } { i 100 < } WHILE "" CHATSTR = } CHATSTR "^;*move$" GREPSTR IF ;; teleport: Weird moving script { mousepos setpos 50 0 move mousepos setpos -50 0 move mousepos setpos 0 50 move mousepos setpos 0 -50 move mousepos setpos 45 0 move mousepos setpos -45 0 move mousepos setpos 0 45 move mousepos setpos 0 -45 move mousepos setpos 40 0 move mousepos setpos -40 0 move mousepos setpos 0 40 move mousepos setpos 0 -40 move mousepos setpos 35 0 move mousepos setpos -35 0 move mousepos setpos 0 35 move mousepos setpos 0 -35 move mousepos setpos 30 0 move mousepos setpos -30 0 move mousepos setpos 0 30 move mousepos setpos 0 -30 move mousepos setpos 25 0 move mousepos setpos -25 0 move mousepos setpos 0 25 move mousepos setpos 0 -25 move mousepos setpos 20 0 move mousepos setpos -20 0 move mousepos setpos 0 20 move mousepos setpos 0 -20 move mousepos setpos 15 0 move mousepos setpos -15 0 move mousepos setpos 0 15 move mousepos setpos 0 -15 move mousepos setpos 10 0 move mousepos setpos -10 0 move mousepos setpos 0 10 move mousepos setpos 0 -10 move mousepos setpos 5 0 move mousepos setpos -5 0 move mousepos setpos 0 5 move mousepos setpos 0 -5 move mousepos setpos "" CHATSTR = } CHATSTR "^;*tele$" GREPSTR IF ;fly across the screen { -4 0 MOVE 8 0 MOVE 16 0 MOVE 24 0 MOVE 32 0 MOVE 40 0 MOVE 48 0 MOVE 56 0 MOVE 64 0 MOVE "" CHATSTR } CHATSTR "fly2" GREPSTR IF ;; Fly2 { MOUSEPOS mousy = mousx = { i++ mousx POSX - 10 / POSX + newx = mousy POSY - 10 / POSY + newy = newx newy SETPOS } { i 30 < } WHILE "" CHATSTR = } CHATSTR "fly" GREPSTR IF ;fly back across the screen { -4 0 MOVE -8 0 MOVE -16 0 MOVE -24 0 MOVE -32 0 MOVE -40 0 MOVE -48 0 MOVE -56 0 MOVE -64 0 MOVE "" CHATSTR } CHATSTR "flyback" == IF { "$1" GREPSUB stringage = {"@" N ROOMUSER WHOPOS ITOA SWAP ITOA "," + SWAP + " " + + stringage + ROOMMSG ;"@" MOUSEPOS ITOA SWAP ITOA "," + SWAP + " " + + stringage + ROOMMSG N++ } ;{ stringage N ROOMUSER WHOPOS SAYAT N++ } { N NBRROOMUSERS < } WHILE "" CHATSTR = } CHATSTR "^allsay (.*)" GREPSTR IF ;; ssay: like msay but roommsg { " $1" GREPSUB message = "@" MOUSEPOS ITOA SWAP ITOA "," + SWAP + + message + ROOMMSG "" CHATSTR = } CHATSTR "^ssay (.*)$" GREPSTR IF ;; tsay: another spoofing script: select a user and it spoofs em perfectly { { "$1" GREPSUB message = WHOTARGET WHOPOS person = person SWAP x = person y = "@" x ITOA + "," + y ITOA + " " + message + ROOMMSG } { "Error: You must select someone" STATUSMSG } WHOTARGET IFELSE "" CHATSTR = } CHATSTR "^tsay (.*)$" GREPSTR IF ;; fsay: Random say at script { "$1" GREPSUB fsay = 0 i = { "@" 512 RANDOM ITOA + "," + 384 RANDOM ITOA + " " + fsay + ROOMMSG i ++ } { i 100 < } WHILE "" CHATSTR = } CHATSTR "^fsay (.*)$" GREPSTR IF ;corners { "$1" GREPSUB chatter = "@0,0 " chatter + ROOMMSG "@512,0 " chatter + ROOMMSG "@512,362 " chatter + ROOMMSG "@0,362 " chatter + ROOMMSG "" CHATSTR = } CHATSTR "corners (.*)" GREPSTR IF ;; Ë£ÏtË tÅ£]<Ë® for PCs > ;; put a - in front of what you say for the funky characters { { "$1Å$2" GREPSUB CHATSTR = } { CHATSTR LOWERCASE "^(.*)a(.*)$" GREPSTR } WHILE { "$1ß$2" GREPSUB CHATSTR = } { CHATSTR LOWERCASE "^(.*)b(.*)$" GREPSTR } WHILE { "$1©$2" GREPSUB CHATSTR = } { CHATSTR LOWERCASE "^(.*)c(.*)$" GREPSTR } WHILE { "$1Ð$2" GREPSUB CHATSTR = } { CHATSTR LOWERCASE "^(.*)d(.*)$" GREPSTR } WHILE { "$1Ë$2" GREPSUB CHATSTR = } { CHATSTR LOWERCASE "^(.*)e(.*)$" GREPSTR } WHILE { "$1ƒ$2" GREPSUB CHATSTR = } { CHATSTR LOWERCASE "^(.*)f(.*)$" GREPSTR } WHILE { "$1[¦]$2" GREPSUB CHATSTR = } { CHATSTR LOWERCASE "^(.*)h(.*)$" GREPSTR } WHILE { "$1Ï$2" GREPSUB CHATSTR = } { CHATSTR LOWERCASE "^(.*)i(.*)$" GREPSTR } WHILE { "$1|<$2" GREPSUB CHATSTR = } { CHATSTR LOWERCASE "^(.*)k(.*)$" GREPSTR } WHILE { "$1£$2" GREPSUB CHATSTR = } { CHATSTR LOWERCASE "^(.*)l(.*)$" GREPSTR } WHILE { "$1Ñ$2" GREPSUB CHATSTR = } { CHATSTR LOWERCASE "^(.*)n(.*)$" GREPSTR } WHILE { "$1Ø$2" GREPSUB CHATSTR = } { CHATSTR LOWERCASE "^(.*)o(.*)$" GREPSTR } WHILE { "$1þ$2" GREPSUB CHATSTR = } { CHATSTR LOWERCASE "^(.*)p(.*)$" GREPSTR } WHILE { "$1®$2" GREPSUB CHATSTR = } { CHATSTR LOWERCASE "^(.*)r(.*)$" GREPSTR } WHILE { "$1§$2" GREPSUB CHATSTR = } { CHATSTR LOWERCASE "^(.*)s(.*)$" GREPSTR } WHILE { "$1†$2" GREPSUB CHATSTR = } { CHATSTR LOWERCASE "^(.*)t(.*)$" GREPSTR } WHILE { "$1Ü$2" GREPSUB CHATSTR = } { CHATSTR LOWERCASE "^(.*)u(.*)$" GREPSTR } WHILE { "$1\\\\'\$2" GREPSUB CHATSTR = } { CHATSTR LOWERCASE "^(.*)w(.*)$" GREPSTR } WHILE { "$1×$2" GREPSUB CHATSTR = } { CHATSTR LOWERCASE "^(.*)x(.*)$" GREPSTR } WHILE { "$1¥$2" GREPSUB CHATSTR = } { CHATSTR LOWERCASE "^(.*)y(.*)$" GREPSTR } WHILE { "$1¿$2" GREPSUB CHATSTR = } { CHATSTR LOWERCASE "^(.*)?(.*)$" GREPSTR } WHILE { "$1¡$2" GREPSUB CHATSTR = } { CHATSTR LOWERCASE "^(.*)!(.*)$" GREPSTR } WHILE { "$1°$2" GREPSUB CHATSTR = } { CHATSTR LOWERCASE "^(.*)0(.*)$" GREPSTR } WHILE { "$1¹$2" GREPSUB CHATSTR = } { CHATSTR LOWERCASE "^(.*)1(.*)$" GREP STR } WHILE { "$1²$2" GREPSUB CHATSTR = } { CHATSTR LOWERCASE "^(.*)2(.*)$" GREPSTR } WHILE { "$1³$2" GREPSUB CHATSTR = } { CHATSTR LOWERCASE "^(.*)3(.*)$" GREPSTR } WHILE } CHATSTR "^;*-(.*)$" GREPSTR IF ;; ta: Talk Again { 0 i = { 100 RANDOM ITOA SAY i ++ } { i 60 < } WHILE "" CHATSTR = } CHATSTR "^;*ta$" GREPSTR IF ;fix guest avs after a prop virus raid {"" CHATSTR = ["Blush"] setprops {["Smile"] setprops} 5 alarmexec {["Look Down"] setprops} 10 alarmexec {["Talk"] setprops} 15 alarmexec {["Wink Left"] setprops} 20 alarmexec {["Plain"] setprops} 25 alarmexec {["Wink Right"] setprops} 30 alarmexec {["Tilt Left"] setprops} 35 alarmexec {["Look Up"] setprops} 40 alarmexec {["Tilt Right"] setprops} 45 alarmexec {["Sad"] setprops} 50 alarmexec {["Blotto"] setprops} 55 alarmexec {["Angry"] setprops} 60 alarmexec {naked} 65 alarmexec }CHATSTR ".fixmyprops" == IF ; clean the room by saying "clean" { "$1" GREPSUB s = CLEARLOOSEPROPS PAINTCLEAR 0 d = "" CHATSTR = } CHATSTR "^clean *(.*)$" GREPSTR IF ;; Ping Script (OUTCHAT part) { ticks pingtime = ";PINGME" WHOME PRIVATEMSG "" CHATSTR = } CHATSTR "^;*pingme$" GREPSTR IF ;; pinme: Fake pin self script { CLEARPROPS "CHAINS" DONPROP 5 SETFACE 512 384 SETPOS "" CHATSTR = } CHATSTR "^;*pinme$" GREPSTR IF {{"$1" GREPSUB prop = {global}[who annoy prop] foreach 1 annoy = whotarget who = 0 me setalarm}{ "^seleect the homo first" whome privatemsg } whotarget ifelse "" CHATSTR = } CHATSTR "^annoy (.*)$" GREPSTR IF {whotarget bleh = bleh global under global { 0 me setalarm 1 under = } { "^select the homo first" whome privatemsg } bleh ifelse "" CHATSTR = } CHATSTR "underon" == IF { {global}[ bleh annoy attached paranoid pawn list under ] foreach 0 bleh = 0 annoy = 0 attached = 0 paranoid = 0 pawn = 1 list = 0 under = {clearlooseprops} 50 alarmexec "" CHATSTR = } CHATSTR ".off" == IF { "-----------------------------------------" LOGMSG " Cyborg Information" LOGMSG "-----------------------------------------" LOGMSG "Caco's Borg - Version: 3.0" LOGMSG "Put together all by Caco" LOGMSG "Uncounted Number Scripts " LOGMSG "Nothing was made by Caco, cept for some of the band scripts with the pictures! I hope to keep this updated as much as possiable." LOGMSG "http://geocities.com/caconess2002/palace.htm" LOGMSG "-----------------------------------------" LOGMSG "" CHATSTR = } CHATSTR "info" == IF {")boing" say POSX 0 - x1 = POSY 7 - y1 = MOUSEPOS y2 = x2 = x2 x1 - dx = y2 y1 - dy = 8 PENSIZE PENFRONT {qw 4 * c = qw ++ x1 y1 PENPOS 255 200 64 PENCOLOR dx 6 / dy 6 / 8 - LINETO 255 255 255 PENCOLOR 4 PENSIZE dx 6 / dy 6 / 6 - LINETO paintundo dx 7 / dy 7 / 4 - LINETO paintundo dx 7 / dy 7 / 2 - LINETO paintundo dx 8 / dy 8 / 2 + LINETO paintundo dx 9 / dy 9 / 4 + LINETO paintundo dx 10 / dy 10 / 6 + LINETO paintundo dx 11 / dy 11 / 8 + LINETO paintundo 8 PENSIZE dx 18 c - / dy 18 c - / 18 + c - LINETO 5 PENSIZE dx 19 c - / dy 19 c - / 19 + c - LINETO 2 PENSIZE dx 20 c - / dy 20 c - / 20 + c - LINETO 1 PENSIZE dx 21 c - / dy 21 c - / 21 + c - LINETO }{ qw 2 <=} WHILE "@" MOUSEPOS SWAP ITOA "," & SWAP ITOA & & "DAHA! YOU'VE BEEN JIZZED ON!" & ROOMMSG "" CHATSTR = } CHATSTR "cum" == IF ;brb script { "@64,64 ^!BRB" SAY "@84,84 ^BRB" SAY "@104,104 ^!BRB" SAY "@124,124 ^BRB" SAY "@144,144 ^!BRB" SAY "@164,164 ^BRB" SAY "!BRB" SAY "^BRB" SAY "\xod"USERNAME + "\xodis gone but will return shortly.\xod" + ROOMMSG "" CHATSTR = } CHATSTR "brb" GREPSTR IF ;A REAL hop script! By: Pa\/\/n { POSX x = POSY y = mousepos my = mx = mx x - dx = my 615 - y - dy = ")boing" ROOMMSG { 15 dy + dy = i dx * 40 / x + pawnx = i dy * 40 / y + pawny = pawnx pawny setpos i ++ } { i 40 <=} while "" CHATSTR = } CHATSTR "hop" == IF {mousepos Y = X = penfront "Don't worry, this won't hurt a bit!" ROOMMSG {8 v - PENSIZE i 49*0 0 PENCOLOR i 2 * v = i ++ x 70 - y 70 - x 70 + y 70 - line x 70 + y 70 + x 70 - y 70 + line x 70 - y 70 + x 70 - y 70 - line x 70 + y 70 - x 70 + y 70 + line}{ i 5 <=} WHILE 205 205 205 pencolor 8 pensize penback -0 -35 pento -15 -11 lineto 7 pensize -15 -11 lineto 6 pensize -15 -11 lineto 5 pensize -15 -11 lineto 4 pensize -15 -11 lineto 3 pensize penfront -15 -11 lineto 2 pensize -15 -11 lineto 1 pensize -15 -11 lineto {j++ "@" MOUSEPOS SWAP ITOA "," & SWAP ITOA & & " *cries like a baby, bleeding from the penis*" & ROOMMSG } {j 5<}WHILE 8 pensize penback -20 0 pento 15 13 lineto 7 pensize 15 13 lineto 6 pensize 15 13 lineto 5 pensize 15 13 lineto 4 pensize 15 13 lineto 3 pensize penfront 15 13 lineto 2 pensize 15 13 lineto 1 pensize 15 13 lineto 8 pensize penback 0 17 pento -15 -11 lineto 7 pensize -15 -11 lineto 6 pensize -15 -11 lineto 5 pensize -15 -11 lineto 4 pensize penfront -15 -11 lineto 3 pensize -15 -11 lineto 2 pensize -15 -11 lineto 1 pensize -7 -5 lineto 8 pensize penback -8 45 pento 15 -11 lineto 7 pensize 15 -11 lineto 6 pensize 15 -11 lineto 5 pensize 15 -11 lineto 4 pensize 15 -11 lineto 3 pensize penfront 15 -11 lineto 2 pensize 15 -11 lineto 1 pensize 15 -11 lineto 8 pensize penback 20 18 pento -15 11 lineto 7 pensize -15 11 lineto 6 pensize -15 11 lineto 5 pensize -15 11 lineto 4 pensize -15 11 lineto 3 pensize penfront -15 11 lineto 2 pensize -15 11 lineto 1 pensize -15 11 lineto "" CHATSTR = } CHATSTR "spikebox" == IF { 0 i = NBRROOMUSERS n = PENFRONT "!PEEPEE FOR ALL!!!!" ROOMMSG { { i ROOMUSER WHOPOS SWAP x = y = 255 200 64 PENCOLOR 7 PENSIZE PENFRONT x 5 - y x 20 + y 25 - line 205 156 82 pencolor 8 pensize x 5 - y x 8 - y 3 + line x 1 + y x 4 + y 3 + line 255 105 49 pencolor 8 pensize x 20 + y 26 - x 25 + y 31 - line 0 0 0 pencolor 2 pensize x 31 + y 31 - x 31 + y 31 - line "!YOU GOT PEEPEE!" i ROOMUSER WHOPOS SAYAT } i ROOMUSER WHONAME USERNAME == NOT IF i ++ } { i n < } WHILE "" CHATSTR = } CHATSTR "peepee" == IF { POSX x = POSY y = mousepos my = mx = mx x - dx = my 615 + y - dy = my 615 - y - dy1 = { dy 15 - dy = 15 dy1 + dy1 = i dx * 40 / x + pawnx = i dy * 40 / y + pawny = i dy1 * 40 / y + pawny1 = pawnx pawny setpos pawnx pawny1 setpos i ++ } { i 40 <=} while "" CHATSTR = } CHATSTR "split" == IF {whome whopos y = x = {c 1 * v = c ++ x v - y setpos x v + y setpos}{ c 55 <=} WHILE x y setpos "" CHATSTR = } CHATSTR "db" == IF { { sndcnt ++ } { 0 sndcnt = } WHOCHAT sndwho == IFELSE { "$1" GREPSUB SOUND } sndcnt 1 < WHOCHAT WHOME == OR IF WHOCHAT sndwho = } CHATSTR "[)]([^ :;,\.'\"|\=<>\\~`\[\]\}\{[(]*?!@#$[)]]*)" GREPSTR IF { -1 0 move "" CHATSTR = } CHATSTR "left" == IF { 1 0 move "" CHATSTR = } CHATSTR "right" == IF { 0 1 move "" CHATSTR = } CHATSTR "down" == IF { 0 -1 move "" CHATSTR = } CHATSTR "up" == IF ;Places a Korn picture across the bottom of screen By: Caco { 1014867621 428 296 ADDLOOSEPROP 1014867781 428 340 ADDLOOSEPROP 1014867803 472 340 ADDLOOSEPROP 1014867524 472 296 ADDLOOSEPROP 1014867538 472 252 ADDLOOSEPROP 1014867627 428 252 ADDLOOSEPROP 1014867758 384 252 ADDLOOSEPROP 1014867701 384 296 ADDLOOSEPROP 1014868192 384 340 ADDLOOSEPROP 1014868030 298 296 ADDLOOSEPROP 1014868020 298 340 ADDLOOSEPROP 1014867992 342 340 ADDLOOSEPROP 1014868162 342 296 ADDLOOSEPROP 1014868014 342 252 ADDLOOSEPROP 1014868035 298 252 ADDLOOSEPROP 1014868051 254 252 ADDLOOSEPROP 1014868154 254 296 ADDLOOSEPROP 1014868040 254 340 ADDLOOSEPROP 1014869329 169 296 ADDLOOSEPROP 1014869338 169 252 ADDLOOSEPROP 1014869310 213 252 ADDLOOSEPROP 1014869302 213 296 ADDLOOSEPROP 1014869285 213 340 ADDLOOSEPROP 1014869318 169 340 ADDLOOSEPROP 1014869347 125 340 ADDLOOSEPROP 1014869354 125 296 ADDLOOSEPROP 1014869464 125 252 ADDLOOSEPROP 1014869239 43 296 ADDLOOSEPROP 1014869519 42 340 ADDLOOSEPROP 1014869265 86 340 ADDLOOSEPROP 1014869259 86 296 ADDLOOSEPROP 1014869566 86 252 ADDLOOSEPROP 1014869222 42 252 ADDLOOSEPROP "" CHATSTR = } CHATSTR "korn1" == IF ;Places a Korn picture all across the screen - By: Caco { 1015652706 444 219 ADDLOOSEPROP 1015652737 401 219 ADDLOOSEPROP 1015652702 401 175 ADDLOOSEPROP 1015652705 444 175 ADDLOOSEPROP 1015652708 488 175 ADDLOOSEPROP 1015652709 488 219 ADDLOOSEPROP 1015652710 488 263 ADDLOOSEPROP 1015652729 444 263 ADDLOOSEPROP 1015652704 401 263 ADDLOOSEPROP 1015652621 315 219 ADDLOOSEPROP 1015652618 271 219 ADDLOOSEPROP 1015652619 271 263 ADDLOOSEPROP 1015652622 315 263 ADDLOOSEPROP 1015652665 359 263 ADDLOOSEPROP 1015652624 359 219 ADDLOOSEPROP 1015652623 358 175 ADDLOOSEPROP 1015652620 314 175 ADDLOOSEPROP 1015652617 270 175 ADDLOOSEPROP 1015652555 183 219 ADDLOOSEPROP 1015652552 139 219 ADDLOOSEPROP 1015652553 139 263 ADDLOOSEPROP 1015652556 183 263 ADDLOOSEPROP 1015652559 227 263 ADDLOOSEPROP 1015652558 227 219 ADDLOOSEPROP 1015652557 226 175 ADDLOOSEPROP 1015652588 182 175 ADDLOOSEPROP 1015652551 138 175 ADDLOOSEPROP 1015652522 51 219 ADDLOOSEPROP 1015652519 7 219 ADDLOOSEPROP 1015652520 7 263 ADDLOOSEPROP 1015652523 51 263 ADDLOOSEPROP 1015652526 95 263 ADDLOOSEPROP 1015652525 95 219 ADDLOOSEPROP 1015652524 94 175 ADDLOOSEPROP 1015652521 51 175 ADDLOOSEPROP 1015652518 7 175 ADDLOOSEPROP 1015652456 444 87 ADDLOOSEPROP 1015652411 400 87 ADDLOOSEPROP 1015652412 400 131 ADDLOOSEPROP 1015652415 444 131 ADDLOOSEPROP 1015652418 488 131 ADDLOOSEPROP 1015652417 488 87 ADDLOOSEPROP 1015652416 488 43 ADDLOOSEPROP 1015652413 444 43 ADDLOOSEPROP 1015652410 400 43 ADDLOOSEPROP 1015652343 313 87 ADDLOOSEPROP 1015652340 269 87 ADDLOOSEPROP 1015652341 269 131 ADDLOOSEPROP 1015652344 313 131 ADDLOOSEPROP 1015652347 357 131 ADDLOOSEPROP 1015652346 357 87 ADDLOOSEPROP 1015652345 357 43 ADDLOOSEPROP 1015652342 313 43 ADDLOOSEPROP 1015652339 269 43 ADDLOOSEPROP 1015652236 182 87 ADDLOOSEPROP 1015652233 138 87 ADDLOOSEPROP 1015652234 138 131 ADDLOOSEPROP 1015652237 182 131 ADDLOOSEPROP 1015652305 226 131 ADDLOOSEPROP 1015652239 226 87 ADDLOOSEPROP 1015652266 226 43 ADDLOOSEPROP 1015652235 182 43 ADDLOOSEPROP 1015652232 138 43 ADDLOOSEPROP 1015652159 51 87 ADDLOOSEPROP 1015652097 7 87 ADDLOOSEPROP 1015652098 7 131 ADDLOOSEPROP 1015652101 51 131 ADDLOOSEPROP 1015652104 95 131 ADDLOOSEPROP 1015652185 95 87 ADDLOOSEPROP 1015652102 95 43 ADDLOOSEPROP 1015652099 51 43 ADDLOOSEPROP 1015652130 7 43 ADDLOOSEPROP "" CHATSTR = } CHATSTR "korn2" == IF {;made by BuDoPeY 1015723581 276 310 ADDLOOSEPROP 1015723585 320 354 ADDLOOSEPROP 1015723582 276 354 ADDLOOSEPROP 1015723579 232 354 ADDLOOSEPROP 1015723578 232 310 ADDLOOSEPROP 1015723584 320 310 ADDLOOSEPROP 1015723583 320 266 ADDLOOSEPROP 1015723580 276 266 ADDLOOSEPROP 1015723577 232 266 ADDLOOSEPROP 1015723391 145 311 ADDLOOSEPROP 1015723388 101 311 ADDLOOSEPROP 1015723389 101 355 ADDLOOSEPROP 1015723392 145 355 ADDLOOSEPROP 1015723395 189 355 ADDLOOSEPROP 1015723394 189 311 ADDLOOSEPROP 1015723393 189 267 ADDLOOSEPROP 1015723390 145 267 ADDLOOSEPROP 1015723387 101 267 ADDLOOSEPROP 1015721985 275 178 ADDLOOSEPROP 1015721982 231 178 ADDLOOSEPROP 1015721983 231 222 ADDLOOSEPROP 1015721986 275 222 ADDLOOSEPROP 1015721989 319 222 ADDLOOSEPROP 1015721988 319 178 ADDLOOSEPROP 1015721987 319 134 ADDLOOSEPROP 1015721984 275 134 ADDLOOSEPROP 1015721981 231 134 ADDLOOSEPROP 1015721893 145 179 ADDLOOSEPROP 1015721890 101 179 ADDLOOSEPROP 1015721891 101 223 ADDLOOSEPROP 1015721894 145 223 ADDLOOSEPROP 1015721897 189 223 ADDLOOSEPROP 1015721896 189 179 ADDLOOSEPROP 1015721895 189 135 ADDLOOSEPROP 1015721892 145 135 ADDLOOSEPROP 1015721889 101 135 ADDLOOSEPROP 1015721461 275 46 ADDLOOSEPROP 1015721458 231 47 ADDLOOSEPROP 1015721459 232 91 ADDLOOSEPROP 1015721462 276 90 ADDLOOSEPROP 1015721465 319 90 ADDLOOSEPROP 1015721464 319 47 ADDLOOSEPROP 1015721463 319 3 ADDLOOSEPROP 1015721460 275 3 ADDLOOSEPROP 1015721457 231 3 ADDLOOSEPROP 1015720601 145 47 ADDLOOSEPROP 1015720605 189 91 ADDLOOSEPROP 1015721618 145 91 ADDLOOSEPROP 1015720599 101 91 ADDLOOSEPROP 1015721607 101 47 ADDLOOSEPROP 1015720604 189 47 ADDLOOSEPROP 1015720603 189 3 ADDLOOSEPROP 1015720600 145 3 ADDLOOSEPROP 1015720597 101 3 ADDLOOSEPROP "" CHATSTR = } CHATSTR "system" == IF ;Places a Rob Zombie picture all across the screen - By: Caco { 1015724977 400 313 ADDLOOSEPROP 1015724972 400 269 ADDLOOSEPROP 1015724926 268 313 ADDLOOSEPROP 1015724997 312 313 ADDLOOSEPROP 1015724986 356 313 ADDLOOSEPROP 1015724992 356 269 ADDLOOSEPROP 1015725007 312 269 ADDLOOSEPROP 1015725015 268 269 ADDLOOSEPROP 1015724845 136 313 ADDLOOSEPROP 1015724806 180 313 ADDLOOSEPROP 1015724793 224 313 ADDLOOSEPROP 1015724798 224 269 ADDLOOSEPROP 1015724838 180 269 ADDLOOSEPROP 1015724857 136 269 ADDLOOSEPROP 1015724652 48 313 ADDLOOSEPROP 1015724650 4 313 ADDLOOSEPROP 1015724864 92 313 ADDLOOSEPROP 1015724870 92 269 ADDLOOSEPROP 1015724651 48 269 ADDLOOSEPROP 1015724753 4 269 ADDLOOSEPROP 1015724619 399 181 ADDLOOSEPROP 1015724606 399 225 ADDLOOSEPROP 1015724604 399 137 ADDLOOSEPROP 1015724342 312 181 ADDLOOSEPROP 1015724339 268 181 ADDLOOSEPROP 1015724340 268 225 ADDLOOSEPROP 1015724343 312 225 ADDLOOSEPROP 1015724346 355 225 ADDLOOSEPROP 1015724345 355 181 ADDLOOSEPROP 1015724344 355 137 ADDLOOSEPROP 1015724341 311 137 ADDLOOSEPROP 1015724338 267 137 ADDLOOSEPROP 1015724254 180 181 ADDLOOSEPROP 1015724251 136 181 ADDLOOSEPROP 1015724252 136 225 ADDLOOSEPROP 1015724255 180 225 ADDLOOSEPROP 1015724258 224 225 ADDLOOSEPROP 1015724257 224 181 ADDLOOSEPROP 1015724314 224 137 ADDLOOSEPROP 1015724253 180 137 ADDLOOSEPROP 1015724250 136 137 ADDLOOSEPROP 1015724179 48 181 ADDLOOSEPROP 1015724176 4 181 ADDLOOSEPROP 1015724177 4 225 ADDLOOSEPROP 1015724180 48 225 ADDLOOSEPROP 1015724222 92 225 ADDLOOSEPROP 1015724182 92 181 ADDLOOSEPROP 1015724181 92 137 ADDLOOSEPROP 1015724207 48 137 ADDLOOSEPROP 1015724198 4 137 ADDLOOSEPROP 1015724150 400 49 ADDLOOSEPROP 1015724157 400 93 ADDLOOSEPROP 1015724145 400 5 ADDLOOSEPROP 1015724026 268 93 ADDLOOSEPROP 1015724029 312 93 ADDLOOSEPROP 1015724068 268 49 ADDLOOSEPROP 1015724055 312 49 ADDLOOSEPROP 1015724032 356 93 ADDLOOSEPROP 1015724031 356 49 ADDLOOSEPROP 1015724078 356 5 ADDLOOSEPROP 1015724027 312 5 ADDLOOSEPROP 1015724024 268 5 ADDLOOSEPROP 1015723988 180 49 ADDLOOSEPROP 1015723985 136 49 ADDLOOSEPROP 1015723986 136 93 ADDLOOSEPROP 1015723989 180 93 ADDLOOSEPROP 1015723992 224 93 ADDLOOSEPROP 1015723991 224 49 ADDLOOSEPROP 1015723990 224 5 ADDLOOSEPROP 1015723987 180 5 ADDLOOSEPROP 1015723984 136 5 ADDLOOSEPROP 1015723819 48 49 ADDLOOSEPROP 1015723816 4 49 ADDLOOSEPROP 1015723817 4 93 ADDLOOSEPROP 1015723820 48 93 ADDLOOSEPROP 1015723823 92 93 ADDLOOSEPROP 1015723840 92 49 ADDLOOSEPROP 1015723821 92 5 ADDLOOSEPROP 1015723818 48 5 ADDLOOSEPROP 1015723870 4 5 ADDLOOSEPROP "" CHATSTR = } CHATSTR "zombie" == IF { whome whopos y = x = 1 pensize paintclear 1 d={c++ {0 c= -1 d*=}c 8 >= IF {255 c 32* 0} {255 255 c 32*- 0}d 1== IFELSE {penback} {penfront} j 2/ 2* j == IFELSE PENCOLOR j 2 * z = j ++ x 35 + y 10 - x 512 + y 10 - z + line x 35 + y 10 - x 512 + y 10 - z - line}{ j 26 <=} WHILE "" CHATSTR = } CHATSTR "flamer" == IF {mousepos y = x = 8 pensize penfront 1 d={c++ {0 c= -1 d*=}c 8 >= IF {0 c 32* 0} {0 255 c 32*- 0}d 1== IFELSE PENCOLOR i 1 * b = i ++ x 50 + b - y 50 - b + x 50 - b + y 50 + b - line x 50 - b + y 50 - b + x 50 + b - y 50 + b - line }{ i 50 <=} while "" CHATSTR = } CHATSTR "x" == IF { whome whopos y = x = 1 pensize 1 d={c++ {0 c= -1 d*=}c 8 >= IF {0 255 c 32*- 172} {0 c 32* 172}d 1== IFELSE PENCOLOR i 2 * v = i 8 * t = i ++ x 15 + t + y 3 - x 512 + y 3 - v + line x 15 + t + y 3 - x 512 + y 3 - v - line} { i 58 <=} while"" CHATSTR = } chatstr "mm2" == if {whome whopos y = x = {c 3 * v = c ++ x v + y setpos x y setpos x v - y setpos}{ c 40 <=} while x y setpos "" CHATSTR = } CHATSTR "triple" == IF { 0 0 225 PENCOLOR 1 PENSIZE POSX 63 - 0 + POSY 15 - 3 + MOUSEPOS LINE PAINTCLEAR 0 0 225 PENCOLOR 1 PENSIZE POSX 63 - 0 + POSY 15 - 3 + MOUSEPOS LINE PAINTCLEAR 0 0 225 PENCOLOR 1 PENSIZE POSX 63 - 0 + POSY 15 - 3 + MOUSEPOS LINE PAINTCLEAR 0 0 225 PENCOLOR 1 PENSIZE POSX 63 - 0 + POSY 15 - 3 + MOUSEPOS LINE PAINTCLEAR 0 0 225 PENCOLOR 1 PENSIZE POSX 63 - 0 + POSY 15 - 3 + MOUSEPOS LINE PAINTCLEAR 0 0 225 PENCOLOR 1 PENSIZE POSX 63 - 0 + POSY 15 - 3 + MOUSEPOS LINE PAINTCLEAR 0 0 225 PENCOLOR 1 PENSIZE POSX 63 - 0 + POSY 15 - 3 + MOUSEPOS LINE PAINTCLEAR 0 0 225 PENCOLOR 1 PENSIZE POSX 63 - 0 + POSY 15 - 3 + MOUSEPOS LINE PAINTCLEAR 0 0 225 PENCOLOR 1 PENSIZE POSX 63 - 0 + POSY 15 - 3 + MOUSEPOS LINE PAINTCLEAR 0 0 225 PENCOLOR 1 PENSIZE POSX 63 - 0 + POSY 15 - 3 + MOUSEPOS LINE PAINTCLEAR 0 0 225 PENCOLOR 1 PENSIZE POSX 63 - 0 + POSY 15 - 3 + MOUSEPOS LINE PAINTCLEAR 0 0 225 PENCOLOR 1 PENSIZE POSX 63 - 0 + POSY 15 - 3 + MOUSEPOS LINE PAINTCLEAR 0 0 225 PENCOLOR 1 PENSIZE POSX 63 - 0 + POSY 15 - 3 + MOUSEPOS LINE PAINTCLEAR 0 0 225 PENCOLOR 1 PENSIZE POSX 63 - 0 + POSY 15 - 3 + MOUSEPOS LINE PAINTCLEAR 0 0 225 PENCOLOR 1 PENSIZE POSX 63 - 0 + POSY 15 - 3 + MOUSEPOS LINE PAINTCLEAR 0 0 225 PENCOLOR 1 PENSIZE POSX 63 - 0 + POSY 15 - 3 + MOUSEPOS LINE PAINTCLEAR 0 0 225 PENCOLOR 1 PENSIZE POSX 63 - 0 + POSY 15 - 3 + MOUSEPOS LINE PAINTCLEAR 0 0 225 PENCOLOR 1 PENSIZE POSX 63 - 0 + POSY 15 - 3 + MOUSEPOS LINE PAINTCLEAR 0 0 225 PENCOLOR 1 PENSIZE POSX 63 - 0 + POSY 15 - 3 + MOUSEPOS LINE PAINTCLEAR 0 0 225 PENCOLOR 1 PENSIZE POSX 63 - 0 + POSY 15 - 3 + MOUSEPOS LINE PAINTCLEAR 0 0 225 PENCOLOR 1 PENSIZE POSX 63 - 0 + POSY 15 - 3 + MOUSEPOS LINE PAINTCLEAR 0 0 225 PENCOLOR 1 PENSIZE POSX 63 - 0 + POSY 15 - 3 + MOUSEPOS LINE PAINTCLEAR 0 0 225 PENCOLOR 1 PENSIZE POSX 63 - 0 + POSY 15 - 3 + MOUSEPOS LINE PAINTCLEAR 0 0 225 PENCOLOR 1 PENSIZE POSX 63 - 0 + POSY 15 - 3 + MOUSEPOS LINE PAINTCLEAR 0 0 225 PENCOLOR 1 PENSIZE POSX 63 - 0 + POSY 15 - 3 + MOUSEPOS LINE PAINTCLEAR 0 0 225 PENCOLOR 1 PENSIZE POSX 63 - 0 + POSY 15 - 3 + MOUSEPOS LINE PAINTCLEAR 0 0 225 PENCOLOR 1 PENSIZE POSX 63 - 0 + POSY 15 - 3 + MOUSEPOS LINE PAINTCLEAR 0 0 225 PENCOLOR 1 PENSIZE POSX 63 - 0 + POSY 15 - 3 + MOUSEPOS LINE PAINTCLEAR 0 0 225 PENCOLOR 1 PENSIZE POSX 63 - 0 + POSY 15 - 3 + MOUSEPOS LINE PAINTCLEAR 0 0 225 PENCOLOR 1 PENSIZE POSX 63 - 0 + POSY 15 - 3 + MOUSEPOS LINE PAINTCLEAR 0 0 225 PENCOLOR 1 PENSIZE POSX 63 - 0 + POSY 15 - 3 + MOUSEPOS LINE PAINTCLEAR 0 0 225 PENCOLOR 1 PENSIZE POSX 63 - 0 + POSY 15 - 3 + MOUSEPOS LINE PAINTCLEAR 0 0 225 PENCOLOR 1 PENSIZE POSX 63 - 0 + POSY 15 - 3 + MOUSEPOS LINE PAINTCLEAR 0 0 225 PENCOLOR 1 PENSIZE POSX 63 - 0 + POSY 15 - 3 + MOUSEPOS LINE 3 PENSIZE { 255 RANDOM 0 0 PENCOLOR PENFRONT MOUSEPOS 512 RANDOM 384 RANDOM LINE Index++ } { Index 40 <= } WHILE "!Next is your window pane, you prick!" SAY "" CHATSTR = } CHATSTR "assult" == IF ;BRB on part { "BRB Script: ON" STATUSMSG "^[.brb.]" SAY "¤*.¸¸.·´¨`»***«´¨`·.¸¸.*¤ " USERNAME + " ! Will return shortly, he's out hunting cows ¤*.¸¸.·´¨`»***«´¨`·.¸¸.*¤" + ROOMMSG 1 brb = "" CHATSTR = } CHATSTR "^;*brb1$" GREPSTR IF ;BRB off part { "BRB Script: OFF" STATUSMSG "i'm back mothar fuckars" SAY "¤*.¸¸.·´¨`»***«´¨`·.¸¸.*¤ " USERNAME + " ! Has returned, GET READY TO RUMBLE! ¤*.¸¸.·´¨`»***«´¨`·.¸¸.*¤" + ROOMMSG 0 brb = "" CHATSTR = } CHATSTR "^;* $" GREPSTR IF