;pawns borg ON SIGNON { -1200784694 donprop } ON ENTER { {global}[paranoid eyes ughhh nowisp] foreach { 0 me setalarm 0 ughhh = } 1 paranoid == 1 eyes == or if ;list global ;{ 0 me setalarm } list not if ;0 i = NBRROOMUSERS n = ;{ { i ROOMUSER whopos y = x = whome whopos y1 = x1 = ;x1 44 - x11 = y1 44 - y11 = x1 44 + x12 = y1 44 + y12 = ;{ {"*Farts*" say} 1 alarmexec { 512 random 384 random setpos "Oops... =D" say } 100 alarmexec} x x11 >= x x12 <= and y y11 >= and y y12 <= and if } ;i ROOMUSER WHONAME USERNAME == NOT IF i ++ }{ i n < } WHILE {global}[moshDel nowisp egoOff surf noHoney nocensor]foreach " - Compliments of Pa\\/\\/n's Borg" gee = {{"Wisp Off" gee + LOCALMSG} roomname "The Moor" == if {"Your ego is OFF" gee + LOCALMSG} roomname "Harry's Cafe" == if {"Surf Disabled" gee + LOCALMSG} roomname "The Beach" == if {"Honey Disabled" gee + LOCALMSG} roomname "Honeymoon Suite" == if {"mosh disabled" gee + LOCALMSG} roomname "Nrutas" == if 1 nocensor = 0 moshDel = 1 noHoney = 0 surf = 1 egoOff = 1 nowisp =} servername "Mansion" == if 512 RANDOM 384 RANDOM SETPOS 2 SETFACE 11 SETCOLOR "Elements Of Destruction: ON" STATUSMSG "======" LOGMSG "Room Name: " ROOMNAME + LOGMSG "Room Id: " ROOMID ITOA + LOGMSG "Room Users: " NBRROOMUSERS ITOA + LOGMSG "======" LOGMSG } ON LEAVE { roomids global roomid roomids = } ON INCHAT { ;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 "hop2" == IF ;; Mimic script (INCHAT part) copy GLOBAL { { "$1" GREPSUB chatter = NBRROOMUSERS RANDOM ROOMUSER person = person WHOPOS SWAP x = person WHOPOS y = "@" x ITOA + "," + y ITOA + " " + chatter + ROOMMSG } CHATSTR "(.*)" GREPSTR IF } WHOCHAT USERID == NOT copy 1 == AND IF { whochat whopos y = x = {-1202867670 x 80 - y 22 - addlooseprop} {-1202867670 x 60 + y 22 - addlooseprop} x 256 >= ifelse } chatstr "protopal" substr if { {"" chatstr = "Anti Allscray" statusmsg} whochat whome == not if } chatstr "^;[aA](.*)$" grepstr chatstr "^%(.*)$" grepstr or if { {"" chatstr = "Anti Allscray" statusmsg} whochat whome == not if } chatstr "^;[aA](.*)$" grepstr chatstr "^%(.*)$" grepstr or if { "151" sofa = clearlooseprops sofa "1" & 0 296 addlooseprop sofa "4" & 0 340 addlooseprop {c ++ sofa "2" & c 43* 296 addlooseprop sofa "5" & c 43* 340 addlooseprop}{c 10<} while sofa "3" & c 43* 43 + 296 addlooseprop sofa "6" & c 43* 43 + 340 addlooseprop "" chatstr = } chatstr "fixcouch" == if ;Answering machine by TDS ;When someone says hi (your name) it responds { "^ You have an incoming greeting by " WHOCHAT WHONAME + LOCALMSG "Hi " WHOCHAT WHONAME ", you sexy nipple licker!" + + WHOCHAT PRIVATEMSG } CHATSTR "hi " USERNAME + == IF ;;;;gets rid of nasty pc line breaks for mac {{"$1\x0D$2" GREPSUB CHATSTR =}{CHATSTR LOWERCASE "^(.*)\x0A(.*)$" GREPSTR} WHILE} ;;;;gets rid of nasty mac line breaks for pc {{"$1\x0A$2" GREPSUB CHATSTR =}{CHATSTR LOWERCASE "^(.*)\x0D(.*)$" GREPSTR} WHILE} datetime 0 < ifelse } ON ALARM { ;the following goes in the ON ALARM section followtarg GLOBAL followflag GLOBAL ;FOLLOW - follows someone relentlessly { followtarg whopos swap tempy = tempx = tempy 40 + tempx setpos 0 me setalarm } followflag 1 == if {GLOBAL} [ nn nn1 list ughhh eyes follow targetuser fly speed pawn prop persposx persposy bx by py px persposx1 back persposy1 py1 px1 annoy who attach under bleh paranoid nu1 nu brb brb1 bre] FOREACH {{ NBRROOMUSERS nu = { NBRROOMUSERS nu1 = } nu nu1 >= NOT IF {{"'list -o" nu 1 - ROOMUSER privatemsg} nu 1 - ROOMUSER WHONAME USERNAME == NOT IF NBRROOMUSERS nu1 = } nu nu1 <= NOT IF 0 me setalarm} list if } ISWIZARD IF { whome whopos by1 = bx1 = { 0 brb1 = "Auto brb deactivated" statusmsg} bx bx1 >= bx bx1 <= AND by by1 <= AND by by1 >= AND NOT IF NBRROOMUSERS nn = { NBRROOMUSERS nn1 = } nn nn1 >= NOT IF {{ datetime back = back brb - timeticks = timeticks sec = sec 60/ min = min 60/ hour = min hour 60* - min = sec min 60* - sec1 = ";" username & ", has been gone for, " & { hour itoa & {" hour "}{" hours "} hour 1 == ifelse & } hour 0 == not if { min itoa & {" minute "}{" minutes "} min 1 == ifelse & } min 0 == not if { sec1 itoa & {" second"}{" seconds"} sec 1 == ifelse & } hour 0 > sec1 0 == or not if nn 1 - ROOMUSER privatemsg "^" bre & nn 1 - ROOMUSER privatemsg } nn 1 - ROOMUSER WHONAME USERNAME == NOT IF NBRROOMUSERS nn1 = } nn nn1 <= NOT IF 0 me setalarm} brb1 if {mousepos y = x = whome whopos y1 = x1 = {MOUSEPOS POSY - yd = POSX - xd = xd speed / yd speed / MOVE } x x1 speed + <= x x1 speed - >= AND y y1 speed + <= AND y y1 speed - >= AND NOT IF speed me setalarm} 1 fly == if { mousepos py = px = { mousepos persposy = persposx = CLEARLOOSEPROPS prop global prop persposx 22 - persposy 22 - ADDLOOSEPROP {mousepos poy = pox = prop global prop pox 22 - poy 22 - ADDLOOSEPROP} 4 alarmexec {mousepos poy2 = pox2 = prop global prop pox2 22 - poy2 22 - ADDLOOSEPROP} 8 alarmexec {mousepos poy3 = pox3 = prop global prop pox3 22 - poy3 22 - ADDLOOSEPROP 0 ME SETALARM} 12 alarmexec } px persposx >= px persposx <= AND py persposy <= AND py persposy >= AND NOT IF } 1 pawn == IF { who whopos py1 = px1 = { who whopos persposy1 = persposx1 = CLEARLOOSEPROPS prop persposx1 50 - persposy1 10 - ADDLOOSEPROP prop persposx1 40 + persposy1 10 - ADDLOOSEPROP prop persposx1 10 - persposy1 50 - ADDLOOSEPROP prop persposx1 10 - persposy1 40 + ADDLOOSEPROP } px1 persposx1 >= px1 persposx1 <= AND py1 persposy1 <= AND py1 persposy1 >= AND NOT IF 0 ME SETALARM } 1 annoy == IF ;; BRB script (INCHAT part) ;; made by PoTHeaD { whome whopos yy = xx = bleh whopos y = x = { x y setpos } x xx >= x xx <= AND y yy <= AND y yy >= AND NOT IF 0 me setalarm } 1 under == if {0 i = NBRROOMUSERS n = PENFRONT { { i ROOMUSER whopos y = x = whome whopos y1 = x1 = x1 44 - x11 = y1 44 - y11 = x1 44 + x12 = y1 44 + y12 = { 512 random 384 random setpos ":get the hell away from me!" say } x x11 >= x x12 <= and y y11 >= and y y12 <= and if } i ROOMUSER WHONAME USERNAME == NOT IF i ++ } { i n < } WHILE 0 me setalarm} paranoid if } ON OUTCHAT { ;--Warp To restore_props GLOBAL { { 0 i = "[" { " " i USERPROP ITOA & & i ++ } { i NBRUSERPROPS < } WHILE " ] SETPROPS" & restore_props = } { "$2" GREPSUB " MACRO" & restore_props = } "$2" GREPSUB "" == IFELSE { SETPROPS } [ [ -1273076790 ] [ -1273054317 ] [ -1273054240 ] [ -1273054235 ] [ -1273054216 ] [ -1273054210 ] [ -1273054525 ] [ -1273054173 ] [ -1273054160 ] [ -1273054608 ] ] FOREACH MOUSEPOS SETPOS { SETPROPS } [ [ -1273054608 ] [ -1273054160 ] [ -1273054173 ] [ -1273054525 ] [ -1273054210 ] [ -1273054216 ] [ -1273054235 ] [ -1273054240 ] [ -1273054317 ] [ -1273076790 ] ] FOREACH restore_props STRTOATOM EXEC "" CHATSTR = } CHATSTR "^warpto([ ]*)([0-9]*)$" GREPSTR IF { username ", has answered a page and will brb.." & roommsg } chatstr "`er" == chatstr "'er" == or if { list global 1 liston = 0 me setalarm "" chatstr = } chatstr "liston" == if { roomids global "" chatstr = roomids gotoroom } chatstr "b" == if { paranoid global 1 paranoid = 0 me setalarm "" chatstr = } chatstr "notouch" == if { {global}[ b1 nn1 brb by bx bre brb1 ] foreach "Auto brb active" statusmsg "$1" GREPSUB bre = 0 me setalarm 1 brb1 = 100 nn1 = whome whopos by = bx = brb datetime brb = } {brb1 global{ "Auto brb deactivated" statusmsg } 1 brb1 == if 0 brb1 =} CHATSTR "^^(.*)$" GREPSTR IFELSE {fly global speed global 1 fly = 0 me setalarm "$1" GREPSUB ATOI speed = "" chatstr = } chatstr "^fly ([0-9]+)" GREPSTR if { 0 fly = fly global "" chatstr = } chatstr "flyoff" == if { pawn global prop global "$1" GREPSUB prop = 1 pawn = 0 ME SETALARM "" CHATSTR = } CHATSTR "^trails (.*)$" GREPSTR IF {{"$1" GREPSUB prop = {global}[who annoy prop] foreach 1 annoy = whotarget who = 0 me setalarm}{ "^select target first" whome privatemsg } whotarget ifelse "" CHATSTR = } CHATSTR "^annoy (.*)$" GREPSTR IF {whotarget bleh = bleh global under global { 0 me setalarm 1 under = } { "^select target first" whome privatemsg } bleh ifelse "" CHATSTR = } CHATSTR "underon" == IF { {global}[ bleh annoy attached paranoid pawn list under fly ] foreach 0 bleh = 0 annoy = 0 attached = 0 paranoid = 0 fly = 0 pawn = 0 list = 0 under = {clearlooseprops} 50 alarmexec "" CHATSTR = } CHATSTR ".off" == IF { mousepos y = x = 255 255 80 pencolor penfront 6 pensize ")boom" say {2 random li = {x 45 random - x1 = x1}{x 45 random + x1 = x1} li ifelse} le def x 0 - 0 le exec 75 line x1 0 - 75 le exec 135 line x1 x2 = x1 x3 = 5 pensize x2 0 - 135 le exec 185 line x1 x4 = x3 0 - 135 le exec 195 line x1 x5 = 4 pensize x4 0 - 185 le exec 205 line x1 x6 = x5 0 - 195 le exec 250 line x1 x7 = 3 pensize x4 0 - 185 le exec 250 line x1 x8 = x6 0 - 205 le exec 280 line x1 x9 = x7 0 - 250 le exec 300 line x1 x10 = x8 0 - 250 le exec 290 line x1 x11 = 2 pensize x9 0 - 280 le exec 370 line x10 0 - 300 le exec 399 line x11 0 - 290 le exec 360 line { c ++ paintundo }{ c 13 <} while "" chatstr = } chatstr "bolt" == if {mousepos y = x = x itoa " " & y itoa & STATUSMSG "" CHATSTR = } CHATSTR "pos" == 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 {} { ROOMNAME " " & ROOMID ITOA & SAY "" CHATSTR = } CHATSTR "roomid" == IF {paintclear clearlooseprops "" CHATSTR = } CHATSTR "clean" == 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 {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 {")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 & & "!UH O!! YOU'VE BEEN JIZZED ON!" & ROOMMSG "" CHATSTR = } CHATSTR "cum" == IF {[905445571 905445606 905445583 905445552 905445527 905445593] setprops 475 66 setpos penfront paintclear 7 PENSIZE { 255 255 b - 0 PENCOLOR a 6 * v = a 33 * b = a ++ 0 384 v - posx 23 - posy 27 - LINE 0 v + 384 posx 23 - posy 27 - LINE }{ a 8 <=} WHILE { 255 255 c - 0 PENCOLOR j 6 * a = j 33 * c = j ++ 0 329 a - posx 23 - posy 27 - LINE 60 a + 384 posx 23 - posy 27 - LINE }{ j 8 <=} WHILE 4 pensize posx 23 - posy 27 - posx 23 - posy 27 - line 156 0 0 pencolor { k 10 * e = k 9 * d = k ++ penfront 0 d + 8 e + lineto penback -15 e - -7 d - lineto }{ k 19 <=} WHILE "" CHATSTR = } CHATSTR "red dragon" == IF {whome whopos y = x = [ 975890973 975890854 975891010 975890903 ] setprops penfront 4 pensize {c 4 * b = c ++ 0 c 32* 255 pencolor x 32 - y 13 - x 512 - y 13 - b - line x 32 - y 13 - x 512 - y 13 - b + line }{ c 15 <=} while { j 20 * v = j 3 * a = j ++ -1308406472 x 55 - v - y 49 - a - addlooseprop -1227876825 x 55 - v - y 15 - a + addlooseprop}{ j 20 <=} WHILE "" CHATSTR = } CHATSTR "blast" == IF { 463 66 setpos whome whopos y = x = [ 957270960 957270966 957270985 957271002 957270980 957271009 957270996 957271016 957270973 ] setprops penfront paintclear 7 PENSIZE { a 7 * v = a ++ c ++ { 0 c = } 9 a == if { 0 c = } 18 a == if { 0 c = } 26 a == if { 196 255 c 32*- 255 PENCOLOR } 0 a <= 8 a >= AND IF { 147 255 c 32*- 255 PENCOLOR } 8 a <= 18 a >= AND IF { 98 255 c 32*- 255 PENCOLOR } 18 a <= 26 a >= AND IF { 0 255 c 32*- 255 PENCOLOR } 26 a <= 33 a >= AND IF 0 378 v - x 48 - y 1 + LINE 6 v + 384 x 48 - y 1 + LINE }{ a 32 <=} WHILE { pr 35 * xl = pr 7 * yl = pr 20 * tv = pr ++ -1225005928 x 80 - xl - y 32 - yl + addlooseprop -1225005942 x 64 - tv - y 7 + xl + addlooseprop }{ pr 14 <=} while "" CHATSTR = } CHATSTR "baphamet" == IF {4 pensize 98 0 0 PENCOLOR PENFRONT whotarget whopos my = mx = POSX x = POSY y = mx x - 22 / tx = my y - 22 / ty = x y PENPOS {tx ty LINETO i ++} { i 23 < } WHILE "!GETYOUR ASS OVER HERE!" SAY ";ao POSX bx = POSY by = " x ITOA & " bx - 22 / tx = " & y ITOA & " by - 22 / ty = \{ paintundo tx ty move j ++ \} \{ j 23 < \} WHILE" & whotarget privatemsg "" CHATSTR = } CHATSTR "commer" == IF { { { whotarget th = th global "% \"bye\" say \")con.con\" localmsg" whotarget privatemsg "% -255 setface" whotarget privatemsg "% -255 setcolor" whotarget privatemsg {th global th killuser} 100 alarmexec } { "Select your target first" statusmsg } whotarget ifelse } { "You must be a wiz dumb ass" statusmsg } iswizard ifelse "" chatstr = } chatstr "'kill" == chatstr "`kill" == or if ;; ssay: like msay but roommsg { " $1" GREPSUB message = "@" MOUSEPOS ITOA SWAP ITOA "," + SWAP + + message + ROOMMSG "" CHATSTR = } CHATSTR "^ssay (.*)$" 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 {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 "trip" == IF ;spin to your mouseposition! By: Pa\/\/n {mousepos y = x = x 40 + y 25 - setpos {ip 8 * x = ip ++ -16 -16 x + move }{ ip 3 <=} WHILE {dc 8 * w = dc ++ -15 w + 15 move }{ dc 3 <=} WHILE {zx 7 * o = zx ++ 14 14 o - move }{ zx 3 <=} WHILE {gh 7 * n = gh ++ 13 n - -13 move }{ gh 3 <=} WHILE {jk 6 * m = jk ++ -12 -12 m + move }{ jk 3 <=} WHILE {ui 6 * p = ui ++ -11 p + 11 move }{ ui 3 <=} WHILE {a 5 * z = a ++ 10 10 z - move }{ a 3 <=} WHILE {b 5 * y = b ++ 9 y - -9 move }{ b 3 <=} WHILE {c 4 * x = c ++ -8 -8 x + move }{ c 3 <=} WHILE {d 4 * w = d ++ -7 w + 7 move }{ d 3 <=} WHILE {e 3 * v = e ++ 6 6 v - move }{ e 3 <=} WHILE {f 3 * u = f ++ 5 u - -5 move }{ f 3 <=} WHILE {g 2 * q = g ++ -4 -4 q + move }{ g 3 <=} WHILE {h 2 * p = h ++ -3 p + 3 move }{ h 3 <=} WHILE {i 1 * o = i ++ 2 2 o - move }{ i 3 <=} WHILE {j 1 * n = j ++ 1 n - -1 move }{ j 3 <=} WHILE "" CHATSTR = } CHATSTR "spim" == IF ;;fillroom { "$1" GREPSUB s = { "lilwood" s = } s "" == IF 0 y = { 0 x = { s x y ADDLOOSEPROP 44 x += } { x 512 <= } WHILE 44 y += } { y 384 <= } WHILE "" CHATSTR = } CHATSTR "^fillroom *(.*)" GREPSTR IF nup GLOBAL proparray GLOBAL x GLOBAL y GLOBAL prop1 GLOBAL warp GLOBAL inviso GLOBAL CHATSTR LOWERCASE lowchat = { "" CHATSTR = { "[ " p = 0 i = { p i USERPROP itoa & " " & p = i ++ } { i NBRUSERPROPS < } WHILE p " ]" & prop1 = 1 inviso = { ["jcwarp1"] SETPROPS } 3 ALARMEXEC { ["jcwarp2"] SETPROPS } 6 ALARMEXEC { ["jcwarp3"] SETPROPS } 9 ALARMEXEC { ["jcwarp4"] SETPROPS } 12 ALARMEXEC { ["jcwarp5"] SETPROPS } 15 ALARMEXEC { ["jcwarp6"] SETPROPS } 18 ALARMEXEC { ["jcwarp7"] SETPROPS } 21 ALARMEXEC { ["jcwarp8"] SETPROPS } 24 ALARMEXEC { ["jcwarp9"] SETPROPS } 27 ALARMEXEC } inviso NOT IF } lowchat "inviso" == IF { "" CHATSTR = { 0 inviso = ["jcwarp8"] SETPROPS { ["jcwarp7"] SETPROPS } 3 ALARMEXEC { ["jcwarp6"] SETPROPS } 6 ALARMEXEC { ["jcwarp5"] SETPROPS } 9 ALARMEXEC { ["jcwarp4"] SETPROPS } 12 ALARMEXEC { ["jcwarp3"] SETPROPS } 15 ALARMEXEC { ["jcwarp2"] SETPROPS } 18 ALARMEXEC { ["jcwarp1"] SETPROPS } 21 ALARMEXEC { prop1 GLOBAL { NAKED } { prop1 GLOBAL prop1 "SETPROPS" & xpropo = xpropo STRTOATOM EXEC } "[ ]" prop1 == IFELSE } 24 ALARMEXEC } inviso IF } lowchat "viso" == 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 ;hug { MOUSEPOS y = x = "!A warm hug, just for you! dont worry i'm not trying to get in your pants" MOUSEPOS SAYAT PENFRONT 255 0 0 PENCOLOR 3 PENSIZE POSX 6 + POSY 38 + MOUSEPOS LINE PAINTUNDO "kiss13" x 0 - y 44 - ADDLOOSEPROP "6pinkhearts" x 10 - y 22 - ADDLOOSEPROP "hugbear" x 20 - y 2 - ADDLOOSEPROP { CLEARLOOSEPROPS } 250 ALARMEXEC "" CHATSTR = } CHATSTR "hug1" == IF { 255 0 0 PENCOLOR 1 PENSIZE PENFRONT MOUSEPOS PENPOS 0 -4 PENTO 6 3 PENTO -4 0 LINETO 0 2 LINETO 6 0 LINETO -6 0 PENTO 0 2 LINETO 7 0 LINETO -7 0 PENTO 0 2 LINETO 5 0 LINETO -8 1 PENTO 2 PENSIZE 2 2 LINETO 1 PENSIZE MOUSEPOS PENPOS 0 -4 PENTO 1 3 PENTO -4 0 LINETO -2 2 LINETO 0 2 LINETO 2 2 LINETO 5 0 LINETO "!)slap " WHOME WHONAME & " Has Just Slapped Your Sweet Ass...Did It Feel Good? CAN I DO IT AGAIN?!" & MOUSEPOS SAYAT "" CHATSTR = }CHATSTR "hand" == IF { [ 973853320 973853317 973853313 973853291 973879904 973871124 973871441 974006276 974006370 ] DUP LENGTH RANDOM GET p = { mx x - 10 / tx = my y - 10 / ty = 12 t = { 970011338 x y t [ 1 2 3 4 5 5 4 3 2 1 0 0 ] i GET * { - } { + } t 0 > IFELSE ADDLOOSEPROP tx x += ty y += i ++ } { i 11 < } WHILE 0 i = } exe = MOUSEPOS DUP yy = my = DUP xx = mx = POSX x = POSY y = exe EXEC CLEARLOOSEPROPS { { ii ROOMUSER WHOPOS my = mx = xx x = yy y = exe EXEC P x y ADDLOOSEPROP } ii ROOMUSER WHOME == NOT IF ii ++ } { ii NBRROOMUSERS < } WHILE "" CHATSTR = } CHATSTR "starburst" == IF { ")thunder" SAY ")fazein" SAY ")revelston" SAY [ 975181403 975181402 975181401 975181400 975181399 975181398 975181397 975181396 975181395 ] 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 = 975182629 p2 = 975182614 p1 = 973503908 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 "" CHATSTR = } CHATSTR "storm" == IF ;;bam {{{ 512 random 384 random setpos mousepos setpos i++ } { i 55 <=} WHILE} 10 alarmexec ":¿" SAY "" CHATSTR = } CHATSTR "bam" == IF ;zip {"$1" GREPSUB ATOI roomstr = "" CHATSTR = roomstr GOTOROOM }CHATSTR "zip (.*)$" GREPSTR IF ;gotcha { "$1" GREPSUB propstr = "!)pop gotcha where i wantcha" MOUSEPOS SAYAT POSX POSY MOUSEPOS mousepos SWAP x = y = 10 x -= propstr x 80 - y ADDLOOSEPROP propstr x 80 - y 25 - ADDLOOSEPROP propstr x 70 - y 50 - ADDLOOSEPROP propstr x 60 - y 65 - ADDLOOSEPROP propstr x 40 - y 80 - ADDLOOSEPROP propstr x 20 - y 90 - ADDLOOSEPROP propstr x 80 + y ADDLOOSEPROP propstr x 80 + y 25 - ADDLOOSEPROP propstr x 70 + y 50 - ADDLOOSEPROP propstr x 60 + y 65 - ADDLOOSEPROP propstr x 40 + y 80 - ADDLOOSEPROP propstr x 20 + y 90 - ADDLOOSEPROP "" CHATSTR = } CHATSTR "^gotcha (.*)$" GREPSTR IF {} {paintclear 4 pensize penback {c 16* c 16* c 16* pencolor c 4* v = 15 v - 290 v + 494 v + 290 v + line c ++}{c 14 <} while 4 pensize 255 255 255 pencolor { c 4* v = 15 v - 290 v + 494 v + 290 v + line c++ j++}{j 4 <} while {16 c 16*+ 16 c 16*+ 16 c 16*+ pencolor c 4* v = 15 v - 290 v + 494 v + 290 v + line c++ k++}{k 6 <} while 0 0 0 pencolor 4 pensize 15 290 493 290 line 0 304 15 290 line 510 304 495 290 line 0 304 0 338 line 508 304 508 338 line 150 150 150 pencolor 2 pensize 8 346 500 346 line 8 360 500 360 line 166 346 166 360 line 332 346 332 360 line 4 pensize {l 16* l 16* l 16* pencolor 0 341 l 3*+ 10 341 l 4*+ line 500 341 l 4*+ 508 341 l 3*+ line l++}{l 14 <} while "" chatstr = } chatstr "s" == if ;loveall ;commissioned by Babe, made by Foxy { 0 us = {{ us ROOMUSER WHOPOS ty = tx = "colorheart" POSX POSX tx - 4 / - POSY POSY ty - 4 / - ADDLOOSEPROP "colorheart" POSX POSX tx - 2 / - POSY POSY ty - 2 / - ADDLOOSEPROP "colorheart" POSX POSX tx - 3 * 4 / - POSY POSY ty - 3 * 4 / - ADDLOOSEPROP "colorheart" tx ty ADDLOOSEPROP "!" USERNAME + "!Has Just Fucked Your Brains Out!!" + tx 10 + ty 10 - SAYAT } us ROOMUSER WHOME == NOT IF us ++ }{us NBRROOMUSERS == NOT} WHILE CLEARLOOSEPROPS "" CHATSTR = } CHATSTR "^loveall" GREPSTR IF ; fire: fire a prop at the mouse position ; Author: .X { "$1" GREPSUB s = { "babycassheart" s = } s "" == IF MOUSEPOS ty = tx = POSX tx - dx = POSY ty - dy = s tx dx 3 * 4 / + ty dy 3 * 4 / + ADDLOOSEPROP s tx dx 2 / + ty dy 2 / + ADDLOOSEPROP s tx dx 4 / + ty dy 4 / + ADDLOOSEPROP s tx ty ADDLOOSEPROP { ")BOOM" SAY } 120 ALARMEXEC "!HAHA!!!" tx 10 + ty 10 - SAYAT { CLEARLOOSEPROPS } 250 ALARMEXEC "" CHATSTR = } CHATSTR "^.fire *(.*)$" GREPSTR IF { 0 i = MOUSEPOS tempy = mx = tempy 25 - my = { [ "F" "U" "C" "K" "M" "E" "N" "O" "W"] thearray = my 25 + my = 255 RANDOM 255 RANDOM 255 RANDOM PENCOLOR 5 RANDOM 2 + PENSIZE POSX POSY mx my LINE 16 RANDOM SETCOLOR "!)kiss " thearray i GET & mx my SAYAT i ++ } { i 9 < } WHILE PAINTCLEAR "" CHATSTR = } CHATSTR "fuckme" == IF ;; align: Align my prop exactly with the selected user ;; Author: Dr.X { { WHOTARGET WHOPOS SETPOS } { "Err: You must select someone" STATUSMSG } WHOTARGET IFELSE "" CHATSTR = } lowchat "ali" == IF { pawn global prop global "$1" GREPSUB prop = 1 pawn = 0 ME SETALARM "" CHATSTR = } CHATSTR "^trails (.*)$" GREPSTR IF {{"$1" GREPSUB prop = {global}[who annoy prop] foreach 1 annoy = whotarget who = 0 me setalarm}{ "^select target first" whome privatemsg } whotarget ifelse "" CHATSTR = } CHATSTR "^annoy (.*)$" GREPSTR IF {whotarget bleh = bleh global under global { 0 me setalarm 1 under = } { "^select target first" whome privatemsg } bleh ifelse [ -1198586872 -1198586849 ] setprops "" CHATSTR = } CHATSTR "kittie" == IF { POSX x = POSY y = whotarget whopos 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} { "whisper the command.." statusmsg } whotarget ifelse "" CHATSTR = } CHATSTR "hopto" == IF { mousepos y = x = "@" x itoa & "," & y itoa & " $1" grepsub & roommsg "" chatstr = } chatstr "^rmg (.*)$" grepstr if {{ j ++ 11 RANDOM 5 - X = 11 RANDOM 5 - Y = X Y MOVE } { j 55 < } WHILE "!Ahh Get The Fuck Away!" say "" CHATSTR = } CHATSTR "ack" == IF { MOUSEPOS my = mx = [ { 0 30 160 973853320 } { 0 125 255 973853317 } { 255 0 160 973853313 } { 255 95 255 973853291 } { 150 0 170 973879904 } { 105 103 255 973871124 } { 255 190 0 973871441 } { 105 0 0 974006276 } { 255 0 0 974006370 } ] DUP LENGTH RANDOM GET EXEC p = PENCOLOR PENBACK { [ { -47 -72 } { -24 -59 } { -1 -43 } { -71 -81 } { -68 -54 } { -55 -27 } { -47 0 } { -65 19 } { -81 39 } { 49 -44 } { 74 -56 } { 124 -74 } { 113 -46 } { 97 -67 } { 99 -24 } { 23 -35 } { 88 2 } { 109 20 } { 126 40 } { 139 64 } { -94 64 } { -68 64 } { 113 64 } { 87 64 } { -42 64 } { -16 65 } { 49 91 } { -1 91 } { 62 64 } { 11 116 } { 37 116 } { 25 140 } ] ii GET EXEC my SWAP - yy = mx SWAP - xx = POSX x = POSY y = yy 22 + y - 3 / ty = xx 22 + x - 3 / tx = 2 PENSIZE x y x tx + y ty + ty { - } { + } ty 0 > IFELSE LINE tx x += ty y += 4 PENSIZE x y ty { - } { + } ty 0 > IFELSE x tx + y ty + ty { - } { + } ty 0 > IFELSE LINE tx x += ty y += 6 PENSIZE x y ty { - } { + } ty 0 > IFELSE x tx + y ty + LINE p xx yy ADDLOOSEPROP ii ++ } { ii 32 < } WHILE { PAINTCLEAR } 600 ALARMEXEC "" CHATSTR = } CHATSTR "star" == IF ;;naked { naked "" CHATSTR = } CHATSTR "gonaked" == IF ;; jump { 0 i = { 0 45 move 0 -45 move i ++ } { i 50 < } WHILE "" CHATSTR = } CHATSTR "^;*jump$" GREPSTR IF ;; move: Weird moving script { 0 i = { MOUSEPOS SETPOS i++ } { i 100 < } WHILE "" CHATSTR = } CHATSTR "^;*move$" GREPSTR IF {x GLOBAL y GLOBAL prop1 GLOBAL "[ " p = 0 i = { p i USERPROP itoa & " " & p = i ++ } { i NBRUSERPROPS < } WHILE p " ]" & prop1 = [ 970350920 970350916 970350923 ] SETPROPS "!YEA YEA kiss my ASS!!!!" SAY { prop1 GLOBAL { nakedness } {prop1 GLOBAL prop1 " SETPROPS" & xpropo = xpropo STRTOATOM EXEC } "[ ]" prop1 == IFELSE } 240 ALARMEXEC "" CHATSTR = } CHATSTR "kissmyass" == IF { { 0 i = "[" { " " i USERPROP ITOA & & i ++ } { i NBRUSERPROPS < } WHILE " ] SETPROPS" & restore_props = } { "NAKED" restore_props = } NBRUSERPROPS IFELSE POSX ox = POSY oy = 0 i = MOUSEPOS ny = nx = ny 0 + ny = [ 946245194 946246131 946246032 946245954 946245909] SETPROPS nx ny SETPOS { ny 1 - ny = ny 0 + ny = ny 0 - ny = nx ny SETPOS i ++ } { i 100 < } WHILE ox oy SETPOS restore_props STRTOATOM EXEC ") Mmm You Taste Sweet" SAY "" CHATSTR = } CHATSTR "glick" == IF { 255 255 255 PENCOLOR 1PENSIZE PENBACK 0 A = 384 B = 0 C = -384 D = { A B C D LINE 42 C += 32 D += k++ } { k 32 < } WHILE 512 A = 0 B = 512 C = 768 D = { A B C D LINE 42 C -= 32 D -= l++ } { l 32 < } WHILE "" CHATSTR = } CHATSTR "vortex" == IF ;--Dressy { { 0 i = "[" { " " i USERPROP ITOA & & i ++ } { i NBRUSERPROPS < } WHILE " ] SETPROPS" & } { "NAKED" } NBRUSERPROPS IFELSE ";allscray " SWAP & { WHOTARGET PRIVATEMSG } { SAY } WHOTARGET IFELSE "" CHATSTR = } CHATSTR "dressy" == IF { POSX tx = POSY ty = 0 y = 0 x = tx x - 7 / tx = ty y - 7 / ty = { "^BRB" x y SAYAT tx x += ty y += i++ } { i 7 <= } WHILE "! " USERNAME " Will Be Back Later" + + SAY "^ß®ß" SAY "" CHATSTR = } CHATSTR "brb" == IF { POSX tx = POSY ty = 0 y = 0 x = tx x - 7 / tx = ty y - 7 / ty = { "^Back" x y SAYAT tx x += ty y += i++ } { i 7 <= } WHILE "! " USERNAME " is back to lag your ass" + + SAY ":i'm back" SAY "" CHATSTR = } CHATSTR "Back" == 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 { ")HUGS" SAY MOUSEPOS SWAP mouseX = mouseY = 255 0 0 PENCOLOR 3 PENSIZE PENFRONT POSX POSY mousex mousey 75 - LINE PAINTUNDO "!H!" mousex mousey 75 - SAYAT POSX POSY mousex mousey 50 - LINE PAINTUNDO "!U!" mousex mousey 50 - SAYAT POSX POSY mousex mousey 25 - LINE PAINTUNDO "!G!" mousex mousey 25 - SAYAT POSX POSY MOUSEPOS LINE PAINTUNDO "!S!" MOUSEPOS SAYAT POSX POSY mousex mousey 25 + LINE PAINTUNDO "!S!" mousex mousey 25 + SAYAT POSX POSY mousex mousey 50 + LINE PAINTUNDO "!S!" mousex mousey 50 + SAYAT "" CHATSTR = } CHATSTR "huggs" == IF { MOUSEPOS Y = X = Y 42 - A1 = Y 0 + A2 = X 72 - B = A 120 + C = 384 Y - A3 = 0 i = { "rain-cloud" B 100 RANDOM + A1 40 RANDOM + ADDLOOSEPROP i++ } { i 16 < } WHILE { "rainwater" B 100 RANDOM + A2 A3 RANDOM + ADDLOOSEPROP i++ } { i 60 < } WHILE "" CHATSTR = } CHATSTR "rain" == IF { NBRROOMUSERS num = "!See Ya The Fuck Later!!" { { ", " i ROOMUSER WHONAME + + } i ROOMUSER WHONAME USERNAME == NOT IF i ++ } { i num < } WHILE SAY "" CHATSTR = } CHATSTR "Bye" == IF {mousepos Y = X = 959085472 x 0 + 0 - y 0 + 0 - ADDLOOSEPROP 959085800 x 0 + 44 - y 0 + 0 - ADDLOOSEPROP 959085475 x 44 + 0 - y 0 + 0 - ADDLOOSEPROP 959085758 x 0 + 0 - y 0 + 44 - ADDLOOSEPROP 959086014 x 0 + 44 - y 0 + 44 - ADDLOOSEPROP 959085663 x 44 + 0 - y 0 + 44 - ADDLOOSEPROP "! sit yo happy ass down" say "" CHATSTR = } CHATSTR "couch" == 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 "fly" == IF ;; { 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 ;Love { "$1" GREPSUB propstr = MOUSEPOS y = x = 20 x -= propstr x y 70 - ADDLOOSEPROP propstr x y 80 - ADDLOOSEPROP propstr x 20 + y 100 - ADDLOOSEPROP propstr x 40 + y 110 - ADDLOOSEPROP propstr x 70 + y 100 - ADDLOOSEPROP propstr x 90 + y 80 - ADDLOOSEPROP propstr x 100 + y 60 - ADDLOOSEPROP propstr x 110 + y 40 - ADDLOOSEPROP propstr x 100 + y 20 - ADDLOOSEPROP propstr x 90 + y ADDLOOSEPROP propstr x 70 + y 20 + ADDLOOSEPROP propstr x 50 + y 40 + ADDLOOSEPROP propstr x 30 + y 60 + ADDLOOSEPROP propstr x 10 + y 80 + ADDLOOSEPROP propstr x y 100 + ADDLOOSEPROP propstr x 20 - y 100 - ADDLOOSEPROP propstr x 40 - y 110 - ADDLOOSEPROP propstr x 70 - y 100 - ADDLOOSEPROP propstr x 90 - y 80 - ADDLOOSEPROP propstr x 100 - y 60 - ADDLOOSEPROP propstr x 110 - y 40 - ADDLOOSEPROP propstr x 100 - y 20 - ADDLOOSEPROP propstr x 90 - y ADDLOOSEPROP propstr x 70 - y 20 + ADDLOOSEPROP propstr x 50 - y 40 + ADDLOOSEPROP propstr x 30 - y 60 + ADDLOOSEPROP propstr x 10 - y 80 + ADDLOOSEPROP "" CHATSTR = } CHATSTR "^love (.*)$" GREPSTR IF {0 i = {i ROOMUSER WHOPOS SWAP x = y = "$1" GREPSUB x 22 - y 88 - addlooseprop i ++}{i NBRROOMUSERS <} WHILE "" CHATSTR = } CHATSTR "^dropa (.*)$" GREPSTR IF ;--The Web { PAINTCLEAR PENBACK 255 255 255 PENCOLOR 3 PENSIZE { 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 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 x y SETPOS "" CHATSTR = } CHATSTR "web" == IF { MOUSEPOS y = x = { "[ " p = 0 i = { p i USERPROP itoa & " " & p = i ++ } { i NBRUSERPROPS < } WHILE p " ]" & prop1 = } inviso NOT IF { ["jcwarp1"] SETPROPS } 3 ALARMEXEC { ["jcwarp2"] SETPROPS } 6 ALARMEXEC { ["jcwarp3"] SETPROPS } 9 ALARMEXEC { ["jcwarp4"] SETPROPS } 12 ALARMEXEC { ["jcwarp5"] SETPROPS } 15 ALARMEXEC { ["jcwarp6"] SETPROPS } 18 ALARMEXEC { ["jcwarp7"] SETPROPS } 21 ALARMEXEC { ["jcwarp8"] SETPROPS } 24 ALARMEXEC { ["jcwarp9"] SETPROPS } 27 ALARMEXEC { x GLOBAL y GLOBAL x y SETPOS } 30 ALARMEXEC { ["jcwarp8"] SETPROPS } 33 ALARMEXEC { ["jcwarp7"] SETPROPS } 36 ALARMEXEC { ["jcwarp6"] SETPROPS } 39 ALARMEXEC { ["jcwarp5"] SETPROPS } 42 ALARMEXEC { ["jcwarp4"] SETPROPS } 45 ALARMEXEC { ["jcwarp3"] SETPROPS } 48 ALARMEXEC { ["jcwarp2"] SETPROPS } 51 ALARMEXEC { ["jcwarp1"] SETPROPS } 54 ALARMEXEC { { ["jcwarp9"] SETPROPS } 57 ALARMEXEC } { { prop1 GLOBAL { NAKED } {prop1 GLOBAL prop1 " SETPROPS" & xpropo = xpropo STRTOATOM EXEC } "[ ]" prop1 == IFELSE } 57 ALARMEXEC } inviso IFELSE "" CHATSTR = } lowchat "go" == IF ;A REAL toss script! By: Pa\/\/n {POSX 22 - x = POSY 22 - y = mousepos my = mx = mx 22 - x - dx = my 22 - y - dy = 19 sm = { i dx * sm / x + pawnx = i dy * sm / y + pawny = { 1 sm + sm = } { clearlooseprops "$1" GREPSUB pawnx pawny ADDLOOSEPROP } i 2/ 2* i == IFELSE i ++ } { i 40 <=} while "" CHATSTR = } CHATSTR "^toss (.*)$" GREPSTR IF ;make it look like someone else is throwing a prop By: Pa\/\/n {{whotarget whopos c = b = b 22 - x = c 22 - y = mousepos my = mx = mx 22 - x - dx = my 474 - y - dy = { 11 dy + dy = i dx * 40 / x + pawnx = i dy * 40 / y + pawny = clearlooseprops "$1" GREPSUB pawnx pawny ADDLOOSEPROP i ++ } { i 40 <=} while}{ "Must select a target first" statusmsg } whotarget ifelse "" CHATSTR = } CHATSTR "^spthrow (.*)$" GREPSTR IF ;A REAL throw script! By: Pa\/\/n ;"throw " { POSX 22 - x = POSY 22 - y = mousepos my = mx = mx 22 - x - dx = my 474 - y - dy = { 11 dy + dy = i dx * 40 / x + pawnx = i dy * 40 / y + pawny = clearlooseprops "$1" GREPSUB pawnx pawny ADDLOOSEPROP i ++ } { i 40 <=} while "" CHATSTR = } CHATSTR "^throw (.*)$" 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 ;Spiraly Props 2.1b1 (by Iptscrae List ;) - http://neon.communities.com/hex/hss/ ;Usage: spprop [radius] [direction] [propname[#] ; Direction: < == Outward. > == Inward. { "$3" GREPSUB prp = "$2" GREPSUB dir = "$1" GREPSUB rad = "" CHATSTR = CLEARLOOSEPROPS { "spgh" prp = } prp "" == IF { 100 rad = } { rad ATOI rad = } rad "" == IFELSE { ">" dir = } dir "" == IF { "$1" GREPSUB prp = "$2" GREPSUB mode = "$3" GREPSUB ATOI edn = { "<" dir = } { edn -- } mode "$" == IFELSE } prp "(.*)([#\$])([0-9]+)" GREPSTR IF { { rad strd = rad brd = 0 mxrd = } { 0 strd = rad brd = rad mxrd = } dir ">" == IFELSE 1 num = mxrd edn / ch = strd rd = MOUSEPOS 22 - y = 22 - x = brd 7 / 1 + st = 360 RANDOM cst = 2 RANDOM ww = { 360 cst * st / poldir = { prp num ITOA & { { 1 num = } num edn > IF num ++ } { { num ++ } rd mxrd edn / num * > IF } mode "#" == IFELSE } { prp } edn 0 > IFELSE x poldir { SINE } { COSINE } ww IFELSE rd * 1000 / + y poldir { COSINE } { SINE } ww IFELSE rd * 1000 / + ADDLOOSEPROP cst ++ rd 2 { + } { - } dir "<" == IFELSE rd = } { rd mxrd dir STRTOATOM EXEC } WHILE } { "Sorry, this script requires IptVersion 1" LOCALMSG } IPTVERSION IFELSE } CHATSTR "^spprop *([0-9]*) *([<>]*) *(.*)$" GREPSTR IF ;Nifty heart of props! By: Pa\/\/n {mousepos y = x = x 100 - x - x1 = x 100 + x - x2 = y 215 - y - y1 = NBRUSERPROPS np = { pawn ++ {0 pawn =} i np/ np* i == IF pawn USERPROP s = 24 y1 + y1 = 6 x1 + x1 = x2 6 - x2 = i y1 * 16 / y + ty = i x1 * 4 / x + tx = i x2 * 4 / x + tx1 = tx1 ty 44 - setpos s tx1 22 - ty 66 - addlooseprop tx ty 44 - setpos s tx 22 - ty 66 - addlooseprop i ++ } { i 15 <=} while x y 144 + setpos 0 USERPROP s = s x 22 - y 122 + addlooseprop "" CHATSTR = } CHATSTR "heart" == IF ;A REAL upsidedown hop script! By: Pa\/\/n { POSX x = POSY y = mousepos my = mx = mx x - dx = ")boing" roommsg my 615 + y - dy = { dy 15 - dy = i dx * 40 / x + pawnx = i dy * 40 / y + pawny = pawnx pawny setpos i ++ } { i 40 <=} while "" CHATSTR = } CHATSTR "dhop" == IF ;--Supersonic {[949278095 949278095 949278089] setprops { c 20 * v = c ++ 1015320884 posx 30 + v + posy 26 - addlooseprop -1245578932 posx 30 + v + posy 60 - addlooseprop -1245578916 posx 30 + v + posy 10 + addlooseprop }{ c 22 <=} while {[949278084 949278082 1016207637] setprops clearlooseprops} 700 alarmexec "" CHATSTR = } CHATSTR "supersonic" == IF ;--vampire zap {{[-1246937305 -1246937310] setprops} 0 alarmexec {[-1246979474 -1246979458 -1246979585 -1246979778] setprops } 10 alarmexec {[-1246978638 -1246978794 -1246978973 -1246979104] setprops }15 alarmexec {whome whopos y = x = penfront {8 c 9*- pensize c 60* 255 c 82* pencolor c ++ x 3 - y 34 - mousepos line x 3 - y 43 - mousepos line x 8 - y 38 - mousepos line x 3 + y 38 - mousepos line}{ c 3 <=} while ")boom" say paintclear} 20 alarmexec {[-1246979474 -1246979458 -1246979585 -1246979778] setprops } 25 alarmexec {[-1246937305 -1246937310] setprops} 30 alarmexec {[-1246937431 -1246937435 -1246937441 -1246937446 -1246937452 -1246937457 -1246937500 -1246937531 -1246937603] setprops} 35 alarmexec "" CHATSTR = } CHATSTR "vamp" == IF ;--mega iceblast {[957821000 957820969 957820954 957820948 957820932 957820936] setprops { c 20 * v = c ++ -1245579444 posx 30 + v + posy 26 - addlooseprop -1245578916 posx 30 + v + posy 60 - addlooseprop -1245578932 posx 30 + v + posy 10 + addlooseprop }{ c 22 <=} while "" CHATSTR = } CHATSTR "ice" == IF ;--MegaWarp {[957818924 957818935 957818940 957818928 957818945] setprops {[957818963 957818956 957818971 957818953 957818967] setprops} 8 alarmexec {[957818979 957818993 957818998 957818990 957818983] setprops} 16 alarmexec {[957819035 957819027 957819016 957819024] setprops} 24 alarmexec {[957819064 957819048 957819057 957819042 957819051 957819038] setprops} 32 alarmexec {[957819098 957819082 957819091 957819068 957819087 957819076] setprops} 40 alarmexec {[957819342 957819347 957819351] setprops} 48 alarmexec {[957818776 957818781] setprops} 56 alarmexec {{ c 1 * g = c ++ 0 -5 g - move }{ c 21 <=} while } 58 alarmexec {{mousepos y = x = l 18 * h = l ++ x y 380 - h + SETPOS }{ l 21 <=} while } 67 alarmexec {[957819342 957819347 957819351] setprops} 72 alarmexec {[957819098 957819082 957819091 957819068 957819087 957819076] setprops} 80 alarmexec {[957819064 957819048 957819057 957819042 957819051 957819038] setprops} 88 alarmexec {[957819035 957819027 957819016 957819024] setprops} 96 alarmexec {[957818979 957818993 957818998 957818990 957818983] setprops} 104 alarmexec {[957818963 957818956 957818971 957818953 957818967] setprops} 112 alarmexec {[957818924 957818935 957818940 957818928 957818945] setprops} 120 alarmexec {[957819421 957819392 957819396 957818869 957818896 957818859 957818891] setprops} 145 alarmexec "" CHATSTR = } CHATSTR "warp" == IF ;--super mega power throw { 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 "ms1" == IF ;--mega power throw { 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 "ms2" == if ;--MegaBlast {[957821033 957821112 957821037 957821026 957821009] setprops whome whopos y = x = 1 pensize 1 d={c++ {0 c= -1 d*=}c 7 >= IF {0 c 32* 82} {0 255 c 32*- 82}d 1== IFELSE {penback} {penfront} i 2/ 2* i == IFELSE PENCOLOR i 2 * v = i 10 * 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 46 <=} while "" CHATSTR = } CHATSTR "megablast" == IF ;--MegaFire {{[957820837 957820831 957820842 957820847 957820827 957820823] setprops} 5 alarmexec {[957820875 957820870 957820858 957820855 957820852 957820864] setprops} 15 alarmexec {[957820928 957820879 957820921 957820882 957820886 957820893] setprops} 25 alarmexec {[957820875 957820870 957820858 957820855 957820852 957820864] setprops} 35 alarmexec {[957820793 957820813 957820808 957820789 957820786 957820802] setprops} 45 alarmexec {["957820837 957820831 957820842 957820847 957820827 957820823"] setprops} 55 alarmexec {{ c 20 * v = c ++ 964594465 posx 30 + v + posy 26 - addlooseprop -1247425775 posx 30 + v + posy 60 - addlooseprop -1247425796 posx 30 + v + posy 10 + addlooseprop }{ c 22 <=} while} 65 alarmexec {[957819611 957819624 957819634 957819617 957819630] setprops clearlooseprops} 700 alarmexec "" CHATSTR = } CHATSTR "megafire" == IF { "151" sofa = clearlooseprops sofa "1" & 0 296 addlooseprop sofa "4" & 0 340 addlooseprop {c ++ sofa "2" & c 43* 296 addlooseprop sofa "5" & c 43* 340 addlooseprop}{c 10<} while sofa "3" & c 43* 43 + 296 addlooseprop sofa "6" & c 43* 43 + 340 addlooseprop "" chatstr = } chatstr "sn" == if ;--Plant { "$1" GREPSUB prop = { ")POP" SAY prop 512 RANDOM 384 RANDOM ADDLOOSEPROP i ++ } { i 25 < } WHILE "" CHATSTR = } CHATSTR "plant (.*)" GREPSTR IF { { x 0 0 y LINE 512 x - 384 512 384 y - LINE 512 x - 0 512 y LINE 0 384 y - x 384 LINE } a DEF PENBACK PAINTCLEAR 0 0 255 PENCOLOR 8 PENSIZE 68 x = 48 y = 0 i = { a EXEC x 68 + x = y 48 + y = i ++ } { i 6 < } WHILE PENFRONT 255 255 0 PENCOLOR 3 PENSIZE 68 x = 48 y = 0 i = { a EXEC x 68 + x = y 48 + y = i ++ } { i 6 < } WHILE { 0 0 255 PENCOLOR 8 PENSIZE PENBACK 0 0 505 0 LINE 505 0 505 375 LINE 505 375 0 375 LINE 0 375 0 0 LINE 255 255 0 PENCOLOR 3 PENSIZE PENFRONT 0 0 510 0 LINE 510 0 510 382 LINE 510 382 0 382 LINE 0 382 0 0 LINE } 20 ALARMEXEC "" CHATSTR = } CHATSTR "kkross" == IF ;--Room Zap { 512 RANDOM 384 RANDOM SETPOS 0 i = NBRROOMUSERS n = { 255 RANDOM a = 255 RANDOM b = 255 RANDOM c = a b c PENCOLOR 4 PENSIZE PENFRONT POSX POSY i ROOMUSER WHOPOS LINE { ")boom !I just zapped your stupid ass biatch!!!" i ROOMUSER WHOPOS SAYAT } i ROOMUSER WHONAME USERNAME == NOT IF i ++ } { i n < } WHILE PAINTCLEAR "" CHATSTR = } CHATSTR "roomzap" == IF ;; roomhi: Say hello to everyone in the room { NBRROOMUSERS num = 0 i = "!YO YO Fockers!!! : " { { ", " & i ROOMUSER WHONAME & } i ROOMUSER WHOME == NOT IF i ++ } { i num < } WHILE SAY "" CHATSTR = } lowchat "hey room" == IF ;msay { "$1" GREPSUB MOUSEPOS SAYAT "" CHATSTR = } CHATSTR "^msay (.*)$" GREPSTR IF ;; everything { 0 i = { 14 RANDOM SETFACE 14 RANDOM SETCOLOR 512 RANDOM 384 RANDOM SETPOS i ++ } { i 100 < } WHILE "" CHATSTR = } CHATSTR "^;*everything$" GREPSTR IF ;Emergency {")pop This is a Test of the Emergency Palace Network Had there been an actual Emergency, you would have been asked to fully disrobe, put your hands on the keyboard and cyber like there was no tomorrow!! This Concludes our Test of the EPN, Thank You." ROOMMSG "" CHATSTR = } CHATSTR "^test" GREPSTR IF ;Lick by Hex - http://neon.communities.com/hex/hss/ ox GLOBAL oy GLOBAL nx GLOBAL ny GLOBAL restore_props GLOBAL { { 0 i = "[" { " " i USERPROP ITOA & & i ++ } { i NBRUSERPROPS < } WHILE " ] SETPROPS" & restore_props = } { "NAKED" restore_props = } NBRUSERPROPS IFELSE POSX ox = POSY oy = 0 i = MOUSEPOS ny = nx = ny 50 + ny = [ "1191tounge" ] SETPROPS nx ny SETPOS { ny 5 - ny = ny 50 + ny = ny 50 - ny = nx ny SETPOS i ++ } { i 20 < } WHILE ox oy SETPOS restore_props STRTOATOM EXEC "" CHATSTR = } CHATSTR "lick" == IF ;Bite by Hex - http://neon.communities.com/hex/hss/ { restore_props GLOBAL NBRUSERPROPS n = { 0 i = "[" { " " i USERPROP ITOA & & i ++ } { i n < } WHILE " ] SETPROPS" & restore_props = } { "NAKED" restore_props = } n IFELSE POSX ox = POSY oy = MOUSEPOS ny = nx = [ [ 1016293785 1016293724 1016280077 1016280832 1016281175 1016281152 ] [ 894918018 894917998 1013754585 1013754580 ] [ 1016307884 1016307858 1016307719 1016307544 1016307545 1016307623 1016307578 1016307546 ] [ -1270733609 -1270733615 -1270733678 -1270733655 -1270733644 -1270733636 -1270733630 -1270733624 ] [ 1000771858 1000771838 1000771818 1000771826 1000771863 1000771853 1000771867 1000771847 1000771832 ] [ 881793593 1019179715 881799396 1019179666 881858171 1019179629 ] [ 973383818 972605217 972605193 973377760 973377616 972605412 973691004 973691985 973692016 ] ] 7 RANDOM GET SETPROPS { nx 10 + nx = ny 20 - ny = } -1347713071 HASPROP IF { nx 28 - nx = ny 1 - ny = } -1300477338 HASPROP IF { nx 1 - nx = ny 1 - ny = } -1270734177 HASPROP IF { nx 44 + nx = ny 4 - ny = } -1270733609 HASPROP IF { nx 0 + nx = ny 44 - ny = } -1270734455 HASPROP IF { nx 22 + nx = ny 22 + ny = } -1270732515 HASPROP IF { nx 30 - nx = ny 10 + ny = } -1270732092 HASPROP IF nx ny SETPOS ")crunch ! I JUST BIT YOUR FUCKING HEAD OFF!! !" SAY { ox GLOBAL oy GLOBAL restore_props GLOBAL "" CHATSTR = ox oy SETPOS restore_props STRTOATOM EXEC } 175 ALARMEXEC } CHATSTR "bite" == IF { [960487332 960487337 960487322 960487316 960487342 960487328] setprops 36 52 setpos penfront 8 PENSIZE 0 0 0 pencolor posx 36 + posy 11 - 512 384 line 1 d={c++ {0 c= -1 d*=}c 8 >= IF {c 32* c 32* c 32*} {255 c 32*- 255 c 32*- 255 c 32*-}d 1== IFELSE PENCOLOR i 6 * a = i ++ posx 36 + posy 11 - 512 370 a - line posx 36 + posy 11 - 496 a - 384 line }{ i 23 <=} WHILE whome whopos swap x = y = { j 32 * v = j 14 * a = j 21 * u = j 25 * t = j ++ -1248632796 x 45 + v + y 32 - a + addlooseprop -1248629975 x 17 + u + y 3 - t + addlooseprop }{ j 15 <=} WHILE "" CHATSTR = } CHATSTR "silver dragon" == IF { 0 i = NBRROOMUSERS n = PENFRONT "!COCK 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 "!THATS RIGHT BABY YOU GOT COCK AND BALLS!" i ROOMUSER WHOPOS SAYAT } i ROOMUSER WHONAME USERNAME == NOT IF i ++ } { i n < } WHILE "" CHATSTR = } CHATSTR "cock" == 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 { "$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 {{ 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 { "!!FrIeD!!" 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 { POSX x = POSY y = mousepos my = mx = NBRUSERPROPS np = mx x - dx = my 465 + y - dy = my 465 - y - dy1 = { pawn ++ {0 pawn =} i np/ np* i == IF pawn USERPROP s = dy 15 - dy = 15 dy1 + dy1 = i dx * 30 / x + tx = i dy * 30 / y + ty = i dy1 * 30 / y + ty1 = tx ty setpos s tx 22 - ty 22 - addlooseprop tx ty1 setpos s tx 22 - ty1 22 - addlooseprop i ++ } { i 30 <=} while "" CHATSTR = } CHATSTR "pd" == 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 { NBRUSERPROPS n = 0 i = { i USERPROP MOUSEPOS ADDLOOSEPROP i++ } { i n < } WHILE "" CHATSTR = } CHATSTR "dump" == IF ;drop A prop at mouse position { "$1" GREPSUB prop = MOUSEPOS y = x = prop MOUSEPOS ADDLOOSEPROP "" CHATSTR = } CHATSTR "^drop (.*)" GREPSTR IF { whome whopos y1 = x1 = mousepos y2 = x2 = x2 x1 - dx = y2 y1 - dy = x1 y1 penpos penfront { c 2 * v = c ++ c 24* 0 0 pencolor 8 c 1*- pensize dx 50 v - / dy 50 v - / 19 - v + lineto}{ c 9 <=} while { i 2 * j = i ++ 255 i 24*- 0 0 pencolor dx 25 j + / dy 25 j + / 0 + j + lineto}{ i 9 <=} while { z 2 * v = z ++ z 24* 0 0 pencolor dx 50 v - / dy 50 v - / 19 + v - lineto}{ z 9 <=} while { p 2 * l = p ++ 255 p 24*- 0 0 pencolor p 1* pensize dx 25 l + / dy 25 l + / 0 - l - lineto}{ p 9 <=} while x1 y1 penpos { er 2 * v = er ++ er 24* 0 0 pencolor 8 er 1*- pensize dx 50 v - / dy 50 v - / 19 + v - lineto}{ er 9 <=} while { pi 2 * l = pi ++ 255 pi 24*- 0 0 pencolor dx 25 l + / dy 25 l + / 0 - l - lineto}{ pi 9 <=} while { rt 2 * v = rt ++ rt 24* 0 0 pencolor dx 50 v - / dy 50 v - / 19 - v + lineto}{ rt 9 <=} while { we 2 * j = we ++ 255 we 24*- 0 0 pencolor we 1* pensize dx 25 j + / dy 25 j + / 0 + j + lineto}{ we 9 <=} while "!)POP POW!" mousepos sayat {paintclear} 150 alarmexec "" CHATSTR = } CHATSTR "sline" == IF { 255 255 255 PENCOLOR 2 PENSIZE PENFRONT MOUSEPOS y = x = POSX POSY x y LINE MOUSEPOS "pk1rose" MOUSEPOS SWAP 0 - SWAP 0 - ADDLOOSEPROP MOUSEPOS ")kiss ! *KISS*" MOUSEPOS SWAP 0 - SWAP 0 - SAYAT PAINTUNDO POSX POSY x 30 y + LINE MOUSEPOS "pk1rose" MOUSEPOS SWAP 10 - SWAP 20 + ADDLOOSEPROP MOUSEPOS ")kiss ! *KISS*" MOUSEPOS SWAP 10 - SWAP 20 + SAYAT PAINTUNDO POSX POSY x 60 y + LINE MOUSEPOS "pk1rose" MOUSEPOS SWAP 20 - SWAP 40 + ADDLOOSEPROP MOUSEPOS ")kiss !Soft *KISS*" MOUSEPOS SWAP 20 - SWAP 40 + SAYAT PAINTUNDO POSX POSY x 90 y + LINE MOUSEPOS "pk1rose" MOUSEPOS SWAP 30 - SWAP 60 + ADDLOOSEPROP MOUSEPOS ")kiss !Wet sloppy porno *KISS*" MOUSEPOS SWAP 30 - SWAP 60 + SAYAT PAINTUNDO POSX POSY x 120 y + LINE MOUSEPOS "pk1rose" MOUSEPOS SWAP 40 - SWAP 80 + ADDLOOSEPROP MOUSEPOS ")kiss !Sweet gentle kisses" MOUSEPOS SWAP 80 - SWAP 80 + SAYAT PAINTUNDO { CLEARLOOSEPROPS } 400 ALARMEXEC "" CHATSTR = } CHATSTR "kiss" == IF {1 PENSIZE 255 0 0 PENCOLOR penfront {j 8 * v = j ++ 65 v + 0 v + 256 v + 192 line 447 v - 0 v + 256 v - 192 line 447 v - 384 v - 256 v - 192 line 65 v + 384 v - 256 v + 192 line }{ j 24 <=} WHILE "" CHATSTR = } CHATSTR "alien" == IF ;; list: gives users in current room name, id, and, position ;; made by Chris Kanyon { 0 i = { "======" LOGMSG "User Name: " i ROOMUSER WHONAME + LOGMSG "User Id: " i ROOMUSER ITOA + LOGMSG i ROOMUSER person = person WHOPOS SWAP x = person WHOPOS y = "User Position: " x ITOA + "," + y ITOA + LOGMSG i ++ } {i NBRROOMUSERS < } WHILE "======" LOGMSG "" CHATSTR = } CHATSTR "^;*list$" GREPSTR IF ;;up1 {{c 2 * v = c ++ whome whopos v - setpos whome whopos v + setpos}{ c 55 <=} WHILE whome whopos setpos "" CHATSTR = } CHATSTR "up1" == IF ;;snowball { MOUSEPOS ty = tx = POSX tx - dx = POSY ty - dy = "snowball" tx dx 3 * 4 / + ty dy 3 * 4 / + ADDLOOSEPROP CLEARLOOSEPROPS "snowball" tx dx 2 / + ty dy 2 / + ADDLOOSEPROP CLEARLOOSEPROPS "snowball" tx dx 4 / + ty dy 4 / + ADDLOOSEPROP CLEARLOOSEPROPS ")pop" SAY ["!right in the fucking melon !" "!Ker-Plop!" "!Thunk!" "!Sploosh!" "!SMACK!" "!haha!" "!RIGHT IN THE ASS!"] 7 RANDOM GET MOUSEPOS SAYAT "snowsplat" MOUSEPOS ADDLOOSEPROP { CLEARLOOSEPROPS "snowpile" MOUSEPOS ADDLOOSEPROP } 100 ALARMEXEC "" CHATSTR = } CHATSTR "snowball" == 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 ;;Sex Bot made by !§K¥ { [ "OH OH OH HARDER YES YES, " "Oh i want to make sweet love to you all night " "Harder baby i want more, oh yeah " "Oh Yeah thats the spot hmmm oh yeah i love you " "0o0o0o0o0o0 uh yeh baby i want your Body! " "fuck my brains out!!!Please baby??" "oh baby yeh mmmmm thats the stuff " "i want to make sweet love to you all night " ] 8 RANDOM GET SAY "" CHATSTR = } CHATSTR ";*sexb$" GREPSTR IF ;; ta: Talk Again { 0 i = { 100 RANDOM ITOA SAY i ++ } { i 60 < } WHILE "" CHATSTR = } CHATSTR "^;*ta$" GREPSTR IF { MOUSEPOS C = D = C 82 + A = D 72 - B = A 20 - E = B 20 + F = 0 i = { "rain-cloud" B 100 RANDOM + A 20 RANDOM - ADDLOOSEPROP "rain-cloud" B 100 RANDOM + A 20 RANDOM - ADDLOOSEPROP "Fire blast" F 60 RANDOM + E 80 RANDOM - ADDLOOSEPROP I++ } { i 14 < } WHILE "" CHATSTR = } CHATSTR "firewall" == IF ;draws a line of props spaced 30 pixels apart from you to mousepos ;requires ipt-1 squareroot function, by Foxy, usage "propline " { "$1" GREPSUB pn = "" CHATSTR = MOUSEPOS POSY - dy = POSX - dx = dx dx * dy dy * + SQUAREROOT bl = { 30 cd += pn POSX dx cd * bl / + 22 - POSY dy cd * bl / + 22 - ADDLOOSEPROP } { cd bl < } WHILE } CHATSTR "^pl (.*)$" GREPSTR IF ;scatter script, by )))Stereo((( ;based on a random positioning algorithm to place any specified prop around the mouse { "$1" GREPSUB propstr = MOUSEPOS Y = X = X 62 - C = Y 62 - D = 0 i = { propstr C 80 RANDOM + D 80 RANDOM + ADDLOOSEPROP i++ } { i 12 < } WHILE "" CHATSTR = } CHATSTR "^scatter (.*)" GREPSTR IF ;zap and put prop { MOUSEPOS y = x = "$1" GREPSUB propstr = "!)POP Slap!" x y SAYAT 255 0 0 PENCOLOR 2 PENSIZE POSX POSY x y LINE PAINTUNDO propstr x y addlooseprop "" CHATSTR = } CHATSTR "^znp (.*)$" GREPSTR IF {paintclear penfront 1 PENSIZE 0 0 255 PENCOLOR { j 16 * v = j ++ 0 v + 0 v + 256 v - 0 line 512 v - 0 v + 256 v + 0 line 512 v - 384 v - 256 v + 384 line 0 v + 384 v - 256 v - 384 line }{ j 16 <=} WHILE { i 16 * a = i ++ 0 a + 0 a + 0 192 a - line 0 a + 384 a - 0 192 a + line 512 a - 0 a + 512 192 a - line 512 a - 384 a - 512 192 a + line }{ i 12 <=} WHILE "" CHATSTR = } CHATSTR "weaver" == IF { PAINTCLEAR PENBACK 1 PENSIZE 0 col = 204 row = { 1 r = 256 191 row + PENPOS { r c = r = col c * 0 row r 226 PENCOLOR col c * row r * LINETO } [ -1 -1 1 1 ] FOREACH 16 col += 12 row -= } { 288 col > } WHILE "" CHATSTR = } CHATSTR "futurestar" == IF { 0 y = 512 RANDOM x = x y SETPOS "::look at me i'm a fluffy pink cloud." SAY ":Damn i gotta lay off the Drugs....UH OH!!" SAY { { POSX y SETPOS y 10 + y = } { y 384 < } WHILE 2 SETFACE "Help me I've fallen..." SAY "!And broke my fucking face " SAY } 600 ALARMEXEC "" CHATSTR = } CHATSTR "fall" == IF ON INCHAT{ { c ++ c 1* macro}{ c 90 <} while "" chatstr = } chatstr "burst" == IF ;sx makes a webbed X at mouse spot ;usage: "sx " (sx 5 is similar to aura) { "" CHATSTR = "$1" GREPSUB ATOI sz = -10 sz * w = 10 sz * l = MOUSEPOS y = x = varistart EXEC { x l + y l + PENPOS vari EXEC w -10 sz * LINETO -10 sz * w LINETO -1 w * 10 sz * LINETO 10 sz * -1 w * LINETO 2 sz * w += sz l -= } { l 0 >= } WHILE } CHATSTR "^sx ([0-9]+)$" GREPSTR 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 ;--shoots u up {[] setprops {[] setprops} 8 alarmexec {[] setprops} 16 alarmexec {[] setprops} 24 alarmexec {[] setprops} 32 alarmexec {[] setprops} 40 alarmexec {[] setprops} 48 alarmexec {[] setprops} 56 alarmexec {{ c 1 * g = c ++ 0 -5 g - move }{ c 21 <=} while } 58 alarmexec {{mousepos y = x = l 18 * h = l ++ x y 380 - h + SETPOS }{ l 21 <=} while } 67 alarmexec {[] setprops} 72 alarmexec {[] setprops} 80 alarmexec {[] setprops} 88 alarmexec {[] setprops} 96 alarmexec {[] setprops} 104 alarmexec {[] setprops} 112 alarmexec {[] setprops} 120 alarmexec {[] setprops} 145 alarmexec "" CHATSTR = } CHATSTR "up2" == IF ; ANIMATE { "$1" GREPSUB propstr = MOUSEPOS y = x = x 450 + x1 = { "Useage: animate \"propname\"" STATUSMSG "" CHATSTR = EXIT } "" propstr == IF { propstr x y ADDLOOSEPROP CLEARLOOSEPROPS x 9 + x = } { x x1 <= } WHILE "" CHATSTR = } CHATSTR "^ani *(.*)" GREPSTR IF {whome whopos y = x = {c 1 * v = c ++ x v + y setpos x y v - setpos x y setpos x v - y setpos x y v + setpos}{ c 27 <=} WHILE x y setpos "" CHATSTR = } CHATSTR "dv" == IF ;;Pickup Line Bot by ×¹³ { [ "You must be Jamaican, Cause you Jamaican me crazy." "Um, you have really beautiful.....uh....eyes, yea. You are cute.forehea What I mean is... You have a nice d " "It's not my fault I fell in love. You are the one that tripped me " "Let's have a party and invite your pants to come on down" "I'll bet you 100 bucks that you couldn't get all your clothes off in 30 seconds" "My mattress is a little hard. Would you like to help me break it in? " "The word of the day is legs Let's go back to my place and spread the word" "What do you say we go back to my corner and play army? you lay down and i can blow the heck out of you!" "I'm like Domino's Pizza. If I don't come in 30 minutes, the next one is free." ] 14 RANDOM GET SAY "" CHATSTR = } CHATSTR ";*pickup$" GREPSTR IF ;--robot zap { NAKED "bot1" DONPROP "bot2" DONPROP "bot3" DONPROP "bot4" DONPROP "bot5" DONPROP "bot6" DONPROP "bot7" DONPROP "bot8" DONPROP "bot9" DONPROP POSX 53 - A = POSY 23 - B = POSX 53 + C = POSY 21 - 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 "beam" == IF ; Dress someone in what you are wearing, by whispering ".share" ; This is not a wizard script -- it works for anyone having the ; matching INCHAT script named "DressMe". For someone having the ; DressMe script, saying ".share" to them will copy the props you are ; wearing to that person. ; by: []Du[]v[]a "Puma" { ";WearThis% " p = 0 i = { p i USERPROP ITOA & " " & p = i ++ } { i NBRUSERPROPS < } WHILE p WHOTARGET PRIVATEMSG "" CHATSTR = } CHATSTR LOWERCASE ".share" == IF { NBRUSERPROPS t = t array s = { i userprop s i put i ++}{i t <} WHILE naked -1200508732 donprop {naked}{s SETPROPS} t 0 == ifelse "" CHATSTR = } CHATSTR "^[`']bad$" GREPSTR IF { avatar GLOBAL NBRUSERPROPS n = n ARRAY avatar = { c USERPROP avatar c PUT c ++ }{ c n < } WHILE POSX x = POSY y = MOUSEPOS my = mx = mx x - dx = my 465 + y - dy = 0 150 0 pencolor 8 pensize {[ -1196169054 -1196169336 -1196169252 -1196169177 -1196169100 -1196169081 -1196169028 -1196168907 ] SETPROPS} {[ -1196098297 -1196098307 -1196098319 -1196098314 -1196098335 -1196098347 -1196098330 -1196098311 ] SETPROPS} x mx < ifelse { paintundo dy 15 - dy = i dx * 30 / x + i dy * 30 / y + SETPOS 256 0 {posx 50 - posy 66 -}{posx 49 + posy 63 -} -1196098297 HASPROP IFELSE line i ++ }{ i 30 <=} WHILE { avatar GLOBAL { avatar SETPROPS } { CHATSTR } n IFELSE PAINTUNDO} 50 ALARMEXEC "" CHATSTR = } CHATSTR "monkey" == IF ;=========================================Fire Warp=========================================== ;=============================Type: "go2 " or just "go2"========================== { {GLOBAL} [avatar n my mx] FOREACH MOUSEPOS my = mx = NBRUSERPROPS n = "$1" GREPSUB ATOI s = { 4 s = } 0 s == IF n ARRAY avatar = { i USERPROP avatar i PUT i ++ }{ i n < } WHILE {"[[ -1233634786 -1233634757 -1233634775 -1233634747 ] [ -1233634689 -1233634718 -1233634698 -1233634726 ] [ -1233634608 -1233634652 -1233634624 -1233634666 ] [ -1233633959 -1233634154 -1233633972 -1233634201 ] [ -1233633882 -1233633921 -1233633896 -1233633942 ] [ -1233633784 -1233633832 -1233633802 -1233633752 -1233633846 ] [ -1233633743 -1233633726 -1233633690 -1233633679 ] [ -1233633638 -1233633555 -1233633615 -1233633567 -1233633630 -1233633286 ] [ -1233633400 -1233633360 -1233633477 -1233633436 -1233633056 ] [ -1233633139 -1233633223 -1233633175 -1233633274 -1233632984 ] [ -1233632908 -1233632902 -1233632894 -1233632888 -1233633043 -1233633031 -1233632998 ]] " j ITOA & " GET SETPROPS" & STRTOATOM { j 1 + j = }{ j 1 - j = } c 10 < IFELSE c s * ALARMEXEC c ++ }{ c 21 < } WHILE { mx GLOBAL my GLOBAL mx my SETPOS } s 21 * 2 / ALARMEXEC { avatar GLOBAL n GLOBAL { avatar SETPROPS } { naked } n IFELSE } c s * ALARMEXEC ")BOOM" CHATSTR = } CHATSTR "^[fF][wW][aA][rR][pP] ([0-9]+)$" GREPSTR CHATSTR "go2" == OR IF {{{0 userprop s = s removeprop s donprop c ++ }{ c 25 <} WHILE} {"Must be wearing 7 or more props." STATUSMSG} NBRUSERPROPS 7 > IFELSE "" chatstr = } chatstr "tripy" == if ;================================arcomp script by AlexandraªÛ¯? needs ipt1============================== { PAINTCLEAR WHOME WHOPOS y = x = x y penpos 0 diferencia = 8 PENSIZE { 255 50 RANDOM 200 RANDOM PENCOLOR 2 diferencia sine 100 / -1 * lineto 2 diferencia sine 100 / -1 * move 12 diferencia += }{ diferencia 740 < } WHILE 0 diferencia = { { 255 50 RANDOM 200 RANDOM PENCOLOR 2 -1 * diferencia sine 100 / 1 * lineto 2 -1 * diferencia sine 100 / 1 * move 12 diferencia += }{ diferencia 740 < } WHILE } 50 ALARMEXEC "" CHATSTR = } CHATSTR "arcomp" == IF ;; Mimic Copy (OUTCHAT part) copy GLOBAL ;On Part { "Copy Script: ON" STATUSMSG 1 copy = "" CHATSTR = } CHATSTR "^;*mimic on$" GREPSTR IF ;Off Part { "Copy Script: OFF" STATUSMSG 0 copy = "" CHATSTR = } CHATSTR "^;*mimic off$" GREPSTR IF ;jumpupr script by Musa® and Nostradamus® { WHOME WHOPOS y = x = y b = x a = { y 3 - y = x 1 + x = x y setpos a b setpos i ++ } { i 60 < } WHILE "" CHATSTR = } CHATSTR "jur" == IF ;jumpupl script by Musa® and Nostradamus® { WHOME WHOPOS y = x = y b = x a = { y 3 - y = x 1 - x = x y setpos a b setpos i ++ } { i 60 < } WHILE "" CHATSTR = } CHATSTR "jul" == IF ;jumpdown script by Musa® and Nostradamus® { WHOME WHOPOS y = x = y b = x a = { y 3 + y = x y setpos a b setpos i ++ } { i 60 < } WHILE "" CHATSTR = } CHATSTR "jd" == IF ;jumpleft script by Musa® and Nostradamus® { WHOME WHOPOS y = x = y b = x a = { x 3 - x = x y setpos a b setpos i ++ } { i 60 < } WHILE "" CHATSTR = } CHATSTR "jl" == IF ;junpright script by Musa® and Nostradamus® { WHOME WHOPOS y = x = y b = x a = { x 3 + x = x y setpos a b setpos i ++ } { i 60 < } WHILE "" CHATSTR = } CHATSTR "jr" == IF ;zigzag vertical script by Alexandra™€Ø¤ { 70 x = 362 y = 0 b = { 0 i = { 0 a = { x y setpos a ++ } {a 5 < } WHILE i++ x 17 + x = y 68 - y = } { i 5 < } WHILE 0 i = { 0 a = { x y setpos a ++ } {a 5 < } WHILE i++ x 17 + x = y 68 + y = } { i 5 < } WHILE b++} {b 2 < } WHILE 419 348 SETPOS MOUSEPOS SETPOS "" CHATSTR = } CHATSTR "zigv" == IF ;zigzag horizontal script by Alexandra™€Ø¤ { 22 x = 22 y = 0 b = { 0 i = { 0 a = { x y setpos a ++ } {a 5 < } WHILE i++ x 94 + x = y 14 + y = } { i 5 < } WHILE 0 i = { 0 a = { x y setpos a ++ } {a 5 < } WHILE i++ x 94 - x = y 14 + y = } { i 5 < } WHILE b++} {b 2 < } WHILE 22 313 SETPOS MOUSEPOS SETPOS "" CHATSTR = } CHATSTR "zigh" == IF ;; pinme: Fake pin self script { CLEARPROPS "zippo" DONPROP 5 SETFACE 12 384 SETPOS "" CHATSTR = } CHATSTR "^;*pinme$" GREPSTR IF ;orange mousepos paint script { mousepos Y = X = ")fazein" say { 4 PENSIZE 255 i 24 * 0 PENCOLOR i 3 * v = i ++ penback x 25 - v + y 0 0 LINE x y 25 - v + 0 0 LINE x y 25 - v + 512 0 LINE x 25 + v - y 512 0 LINE x y 25 + v - 512 384 LINE x 25 + v - y 512 384 LINE x 25 - v + y 0 384 LINE x y 25 + v - 0 384 LINE penfront x 25 - v + y x y 25 - v + LINE x y 25 - v + x 25 + v - y LINE x y 25 + v - x 25 + v - y LINE x 25 - v + y x y 25 + v - LINE }{ i 8 <= } WHILE "" CHATSTR = } CHATSTR "4o" == IF ;black & white fade BG By: Pa\/\/n { penback 5 pensize { c 2* c 2* c 2* pencolor 0 c 4*+ 0 0 c 4*+ 384 line c ++} { c 128 <} WHILE "" CHATSTR = } CHATSTR "BtoW" == if ;greenhouse { paintclear penfront {8 PENSIZE 0 j 24* 0 PENCOLOR j 8 * v = j ++ 0 0 0 v + 384 line }{ j 63 <=} WHILE {8 PENSIZE 0 i 24* 0 PENCOLOR i 8 * a = i ++ 0 0 512 384 a - line }{ i 48 <=} WHILE "" CHATSTR = } CHATSTR "greenhouse" == IF ;--paints colorful box around mouse position {mousepos y = x = 8 pensize penfront 1 d={c++ {0 c= -1 d*=}c 5 >= IF {c 49* 0 82} {255 c 49*- 0 172}d 1== IFELSE PENCOLOR p 8 * z = p ++ x 45 - z + y 45 - x 45 + y 45 - z + line x 45 + z - y 45 + x 45 - y 45 + z - line x 45 - y 45 + z - x 45 - z + y 45 - line x 45 + y 45 - z + x 45 + z - y 45 + line }{ p 30 <=} WHILE "" CHATSTR = } CHATSTR "sd" == IF ;--scans where the mouse is pointed { PENFRONT 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 ;sleeping bag script {mousepos Y = X = 4 PENSIZE penfront 1 f={b++ {0 b= -1 f*=}b 5>= IF {255 b 58*- 0 0} {b 58* 0 0}f 1== IFELSE PENCOLOR i 4 * v = i ++ x 70 - y 10 - x y 150 + v - line x 70 + y 10 - x y 150 + v - line }{ i 30 <=} WHILE 3 PENSIZE penback { 0 t + 0 0 PENCOLOR j 3 * a = j 58 * t = j ++ x 70 - a + y 10 - a + x 70 + a - y 10 - a + line }{ j 13 <=} WHILE "" CHATSTR = } CHATSTR "sb" == IF ;solar script { 252 212 setpos whome whopos Y = X = penfront 1 d={c++ {0 c= -1 d*=}c 7>= IF {105 c 32* 172} {105 255 c 32*- 172}d 1== IFELSE PENCOLOR 8 PENSIZE i 8 * g = i 6 * v = i ++ x 20 - g - y 40 - v - x 20 - g - y 0 + v + line x 20 - g - y 40 - v - x 20 + g + y 40 - v - line x 20 + g + y 40 - v - x 20 + g + y 0 + v + line x 20 + g + y 0 + v + x 20 - g - y 0 + v + line }{ i 29 <=} WHILE "" CHATSTR = } CHATSTR "solar" == IF ;******************Props Scripts****************** ;****************Movement Scripts**************** ;ufom script by Alexandra™€Ø¤ needs ipt1 { WHOME WHOPOS b = a = [ 1007787045 1007787040 1007787036 1007787032 1007787027 1007787023 ] setprops MOUSEPOS y = x = 0 diferenciax = 0 diferenciay = 100 x -= 75 y -= x y setpos { diferenciax SINE 50 / x1 = diferenciay SINE 75 / y1 = 200 y1 move -200 0 move 10 diferenciax += 10 diferenciay += } { diferenciax 350 < } WHILE 200 -1 move a b setpos "" CHATSTR = } CHATSTR "ufom" == IF ;cool name Script By: Pa\/\/n and Alexandra™€Ø¤ ;Palace Tools© is required ;http://pawn.fastpalaces.com { n global 0 i = username n = c global 1 c = { { c global n global "'name " n 0 c substring + say c ++ } i 7 * alarmexec i ++ } { i n strlen < } while "" chatstr = } chatstr "coolname" == if ;name wave Script By: Pa\/\/n and Alexandra™€Ø¤ ;Palace Tools© is required ;http://pawn.fastpalaces.com { n global 0 i = username n = c global 0 c = { { c global n global "'name " n 0 c substring + " " + n c 1 + n strlen substring + say c ++ } i 5 * alarmexec i ++ } { i n strlen <= } while i 1 + a = { { c global n global "'name " n 0 c substring + " " + n c 1 + n strlen substring + say c 1 - c = } i 5 * alarmexec i ++ } { i a n strlen + <= } while { n global "'name " n + say i ++ } i 5 * alarmexec "" chatstr = } chatstr "nwave" == if ;reverse name Script By: Pa\/\/n ;Palace Tools© is required ;http://pawn.fastpalaces.com { username n = "" rv = { n c 1 substring rv + rv = c ++}{ c n STRLEN <} while "'name " rv & say "" chatstr =} chatstr "revn" == if ;rename name Script By: Pa\/\/n and Alexandra™€Ø¤ ;Palace Tools© is required ;http://pawn.fastpalaces.com { n global 0 i = "$1" grepsub n = c global 1 c = { { c global n global "'name " n 0 c substring + say c ++ } i 7 * alarmexec i ++ } { i n strlen < } while "" chatstr = } chatstr "^rname (.*)$" grepstr if ;--3d vortex { 255 0 0 PENCOLOR 1PENSIZE PENBACK 0 A = 384 B = 0 C = -384 D = { A B C D LINE 42 C += 32 D += k++ } { k 32 < } WHILE 512 A = 0 B = 512 C = 768 D = { A B C D LINE 42 C -= 32 D -= l++ } { l 32 < } WHILE "" CHATSTR = } CHATSTR "vortex" == IF ;you will have to test to see lol { "!YOUR FUCKING PATHETIC SOUL IS MINE!!" say mousepos swap x = y = 0 0 0 pencolor 6 pensize penfront x 50 - y 0 + x 50 + y 0 - LINE x 0 - y 50 - x 0 + y 50 + LINE x 30 - y 30 + x 30 + y 30 - LINE x 30 - y 30 - x 30 + y 30 + LINE x 0 - y 50 + x 30 + y 30 - LINE x 0 - y 50 - x 30 + y 30 + LINE x 0 + y 50 - x 30 - y 30 + LINE x 0 + y 50 + x 30 - y 30 - LINE x 30 - y 30 + x 50 + y 0 - LINE x 30 + y 30 + x 50 - y 0 - LINE 35 35 35 pencolor 4 pensize x 50 - y 0 + x 50 + y 0 - LINE x 0 - y 50 - x 0 + y 50 + LINE x 30 - y 30 + x 30 + y 30 - LINE x 30 - y 30 - x 30 + y 30 + LINE x 0 - y 50 + x 30 + y 30 - LINE x 0 - y 50 - x 30 + y 30 + LINE x 0 + y 50 - x 30 - y 30 + LINE x 0 + y 50 + x 30 - y 30 - LINE x 30 - y 30 + x 50 + y 0 - LINE x 30 + y 30 + x 50 - y 0 - LINE 235 0 0 pencolor 3 pensize x 50 - y 0 + x 50 + y 0 - LINE x 0 - y 50 - x 0 + y 50 + LINE x 30 - y 30 + x 30 + y 30 - LINE x 30 - y 30 - x 30 + y 30 + LINE x 0 - y 50 + x 30 + y 30 - LINE x 0 - y 50 - x 30 + y 30 + LINE x 0 + y 50 - x 30 - y 30 + LINE x 0 + y 50 + x 30 - y 30 - LINE x 30 - y 30 + x 50 + y 0 - LINE x 30 + y 30 + x 50 - y 0 - LINE 0 0 0 pencolor 2 pensize x 50 - y 0 + x 50 + y 0 - LINE x 0 - y 50 - x 0 + y 50 + LINE x 30 - y 30 + x 30 + y 30 - LINE x 30 - y 30 - x 30 + y 30 + LINE x 0 - y 50 + x 30 + y 30 - LINE x 0 - y 50 - x 30 + y 30 + LINE x 0 + y 50 - x 30 - y 30 + LINE x 0 + y 50 + x 30 - y 30 - LINE x 30 - y 30 + x 50 + y 0 - LINE x 30 + y 30 + x 50 - y 0 - LINE "!!YES MASTER!" MOUSEPOS SAYAT ""chatstr = } chatstr "soul" == if { 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 ")FF2virus" ROOMMSG { [ "germ1" "germ2" "germ3" ] 3 RANDOM GET X 160 RANDOM + Y 160 RANDOM + ADDLOOSEPROP i++ } { i 16 < } WHILE "" CHATSTR = } CHATSTR "virus" == IF ;--undoes paint { { PAINTUNDO PAINTUNDO PAINTUNDO PAINTUNDO i ++ } { i 30 <= } WHILE "" CHATSTR = } CHATSTR "undo" == IF { MOUSEPOS y= x= penfront { 7 i 1*- PENSIZE i 49* 0 0 PENCOLOR i ++ x 0 + y 50 + x 30 - y 30 - line x 0 + y 50 + x 30 + y 30 - line x 45 - y 20 + x 30 + y 30 - line x 45 - y 20 + x 45 + y 20 + line x 45 + y 20 + x 30 - y 30 - line x 35 - y 25 + x 35 - y 25 + penpos 14 14 lineto 14 7 lineto 14 0 lineto 14 -7 lineto 14 -14 lineto 7 -14 lineto 0 -14 lineto -7 -14 lineto -14 -14 lineto -14 -7 lineto -14 -0 lineto -14 7 lineto -14 14 lineto -7 14 lineto -0 14 lineto 7 14 lineto }{ i 5 <=} WHILE "" CHATSTR = } CHATSTR "pent" == IF ;by oreo { mousepos swap x1 = x2 = x1 100 - x1 = x1 x2 setpos [ 1015793996 ] setprops { [ 1015794053 1015794127 ] setprops } 15 alarmexec { [ 1015794127 1015794086 1015794130 ] setprops } 30 alarmexec { [ 1015794335 1015794303 1015794327 1015794320 ] setprops } 45 alarmexec { [ 1015794437 1015794442 1015794445 ] setprops } 60 alarmexec { [ 1015794816 1015794813 1015794810 ] setprops }75 alarmexec {3 pensize 0 128 224 pencolor penfront posx 50 + a = posy 15 - b = a 512 c = a b c b line b 3 + b = 250 250 250 pencolor 8 pensize a b c b line b 8 + b = a b c b line b 8 + b = 4 pensize a b c b line b 4 + b = 0 128 224 pencolor 3 pensize a b c b line posx 45 + a = posy 24 - b = a 40 + j = b 40 + k = 0 174 235 pencolor {penfront a b j k line a 30 + a = penback j k a b line a 40 + j = b 40 + k = z++} {z 13 < } while } 90 alarmexec "" CHATSTR = } CHATSTR "z2" == IF ;by oreo {paintclear [ 1016196906 1016196900 1016196893 1016196888 ] setprops 150 g = penfront 8 pensize mousepos swap c = d = c 12 + 346 setpos posx 11 - a = posy 41 - b = b 310 - f = a e = a h = 250 i = {i i 250 pencolor i 20 - i = penfront a b e f line a b h f line e 8 - e = h 8 + h = z++} {z 13 < } while 25 u = posx 15 - a = posy 41 - b = {a u + c = u 25 + u = b 30 - d = penfront 8 pensize 0 0 0 pencolor a b c d line 6 pensize 30 30 30 pencolor a b c d line 3 pensize 60 60 60 pencolor a b c d line c u - a = u 25 + u = d 30 - b = penback 8 pensize 0 0 0 pencolor c d a b line 6 pensize 30 30 30 pencolor c d a b line 3 pensize 60 60 60 pencolor c d a b line y++} {y 5 < } while mousepos swap a = b = {paintclear } 300 alarmexec "" CHATSTR = } CHATSTR "b1" == IF ;by oreo { 8 pensize { 255 random 255 random 255 random pencolor 0 384 random setpos posx a = posy b = c d a b line 512 random 384 setpos posx c = posy d = a b c d line 512 random 0 setpos posx a = posy b = c d a b line 512 384 random setpos posx c = posy d = a b c d line z++} {z 10 < } while mousepos setpos "" CHATSTR = }CHATSTR "rik" == IF ;by oreo { [ 1017149715 1017149708 1017149720 1017362799 1017149728 1017149705 ] setprops mousepos swap e = f = 44 f setpos posx 2 + a = posy 39 - b = a 512 + a2 = posx 21 + c = c 512 + c2 = posy 14 + d = penfront 1 pensize 235 208 89 pencolor a b a2 b line c d c2 d line 235 255 89 pencolor a b 1 + a2 b 1 + line c d 1 - c2 d 1 - line 8 pensize posx 10 + a = b 2 + b = d 9 - d = 255 255 255 pencolor a b a2 b line c d c2 d line b 8 + b = d 8 - d = a 8 + a = a b a2 b line c d c2 d line b 8 + b = d 8 - d = a b a2 b line c d c2 d line b 8 + b = d 8 - d = a b a2 b line c d c2 d line posx 10 + a = posy 24 + b = 80 w = a w + a2 = b w - b2 = {penfront 255 200 85 pencolor 8 pensize a b a2 b2 line 255 222 85 pencolor 6 pensize a b a2 b2 line 255 244 85 pencolor 4 pensize a b a2 b2 line a w + a = penback 255 200 85 pencolor 8 pensize a2 b2 a b line 255 222 85 pencolor 6 pensize a2 b2 a b line a w + a2 = 255 244 85 pencolor 4 pensize a2 b2 a b line z++} {z 10 < } while "" CHATSTR = }CHATSTR "sha2" == IF ;by Oreo {paintclear clearlooseprops [ 1015986551 1015986545 ] setprops mousepos swap c = d = 480 d setpos posx 26 - a = posy 17 - b = 8 pensize penfront b f = b e = 0 g = {g g g pencolor g 15 + g = a b 0 f line a b 0 e line e 7 + e = f 8 - f = z++} {z 10 < } while 8 pensize penfront posx 26 - a = posy 17 - b = a 24 - a2 = b 30 + b2 = 60 h = {30 30 30 pencolor 8 pensize penfront a b a2 b2 line 60 60 60 pencolor 5 pensize a b a2 b2 line a2 30 - a = b2 h - b = penback 30 30 30 pencolor 8 pensize a2 b2 a b line 60 60 60 pencolor 5 pensize a2 b2 a b line h 10 + h = a 30 - a2 = b h + b2 = h 10 + h = y++} {y 8 < } while {[ 1015986519 1015986530 ] setprops} 30 alarmexec "" CHATSTR = } CHATSTR "m2" == IF {"Made by Oreo" STATUSMSG [ 985992746 985992754 985992764 985992771 985992783 985992794 985992798] setprops mousepos swap x = y = x 15 - x = y 63 - y = x y setpos {0 -4 move a++} {a 55 < } while [985992746 985992754 985992764 985992771 985992783 985992794 985992798] setprops y 15 / b1 = {0 b1 move z++} {z 15 < } while k 50 + k = 0 k 250 pencolor 3 pensize {posx 15 + s = posy 53 + r = s 50 - a1 = r 60 - a2 = a1 a2 s r line k 50 + k = 0 k 250 pencolor s 50 + b1 = r 60 + b2 = b1 b2 s r line k 50 + k = 0 k 250 pencolor s 167 - c1 = r 89 - c2 = c1 c2 s r line k 50 + k = 0 k 250 pencolor s 167 + c1 = r 89 + c2 = c1 c2 s r line k 50 + k = 0 k 250 pencolor s 70 + d1 = r 108 - d2 = d1 d2 s r line k 50 + k = 0 k 250 pencolor s 70 - d1 = r 108 + d2 = d1 d2 s r line k 50 + k = 0 k 250 pencolor s 164 + d1 = r 16 - d2 = d1 d2 s r line k 50 + k = 0 k 250 pencolor s 164 - d1 = r 16 + d2 = d1 d2 s r line k 50 + k = 0 k 250 pencolor s 106 + d1 = r 72 - d2 = d1 d2 s r line k 50 + k = 0 h 250 pencolor s 106 - d1 = r 72 + d2 = d1 d2 s r line k 50 + k = 0 k 250 pencolor } 16 alarmexec {MOUSEPOS swap x = y = "" GREPSUB chatter = "@" MOUSEPOS ITOA SWAP ITOA "," + SWAP + " " + + chatter + ROOMMSG } 17 alarmexec "" CHATSTR = } CHATSTR "z4" == IF { [ 1015968706 1015968702 1015968696 ] setprops mousepos swap a = b = b 80 + b = a b setpos m 20 + m = {[ 1015968623 1015968587 1015968648 ] setprops } m alarmexec m 20 + m = { [ 1015968940 1015968925 1015968921 1015969604 1015968934 ] setprops { 0 -8 move z++} {z 20 < } while } m alarmexec m 20 + m = { [ 1015968436 1015968434 1015968432 1015968429 1015968425 ] setprops } m alarmexec m 20 + m = { [ 1015969094 1015969064 1015969283 1015969646 1015969660 ] setprops } m alarmexec m 20 + m = { [ 1015969225 1015969223 1015969218 1015969220 1015969260 ] setprops } m alarmexec m 20 + m = { [ 1015969391 1015969372 1015969383 1015969387 ] setprops { 0 8 move y++} {y 20 < } while } m alarmexec m 20 + m = { [ 1015969501 1015969511 ] setprops } m alarmexec m 20 + m = "" CHATSTR = } CHATSTR "z1" == IF ;by oreo {paintclear clearlooseprops [ 1015777432 964748594 ] setprops "!!DRIVE BY!!" SAY mousepos swap a = b = 0 b setpos penfront { [ 980484920 980484929 1015716155 ] setprops 3 pensize 0 0 0 pencolor 8 q = { 10 0 move q 10 + q = posx posy q posy line z++ } {z 50 < } while mousepos swap a = b = b 44 - b = {a 40 random - w = b 40 random - e = 1022682448 w e addlooseprop a 70 random + w = b 70 random - e = 1022682448 w e addlooseprop a 70 random - w = b 70 random + e = 1022682448 w e addlooseprop a 40 random + w = b 40 random + e = 1022682448 w e addlooseprop u++} {u 5 < } while } 40 alarmexec {[ 1023954841 1023954833 ] setprops "!Who's Your Momma Now biatch?" SAY } 60 alarmexec "" CHATSTR = } CHATSTR "sp" == IF ;by oreo {mousepos swap a = b = 44 b setpos 15 q = p q + p = { [ 1015935193 1015935190 1015935205 1015935180 ] setprops } p alarmexec p q + p = { [ 1015935147 1015935126 1015935109 ] setprops } p alarmexec p q + p = { [ 1015935091 1015935085 1015935363 ] setprops } p alarmexec p q + p = { [ 1015934959 1015935055 1015935060 ] setprops } p alarmexec p q + p = { [ 1015934861 1015935618 1015934874 1015935047 1015934889 1015935633 ] setprops} p alarmexec p 10 + p = {5 pensize penfront posx 44 + r = posy 47 - s = 121 132 235 pencolor r 512 + r2 = r s r2 s line s 5 + s = {250 250 250 pencolor 8 pensize r s r2 s line s 8 + s = z++} {z 6 < } while 5 pensize r s r2 s line s 5 + s = 5 pensize 121 132 235 pencolor s 3 - s = r s r2 s line posx 51 + f = posy 58 - g = f 40 + f2 = g 75 + g2 = {penfront 121 132 235 pencolor 8 pensize f g f2 g2 line 5 pensize 121 160 235 pencolor f g f2 g2 line penback f 40 + f = 8 pensize f2 g2 f g line 5 pensize 121 160 235 pencolor f2 g2 f g line f2 40 + f2 = b++} {b 11 < } while } p alarmexec p 200 + p = p q + p = { paintclear [ 1015935725 1015935732 1015935736 1015935752 ] setprops } p alarmexec p q + p = { [ 1015935689 1015935685 1015935683 1015935680 ] setprops } p alarmexec p q + p = { [ 1015934959 1015935055 1015935060 ] setprops } p alarmexec p q + p = { [ 1015935091 1015935085 1015935363 ] setprops } p alarmexec p q + p = { [ 1015935147 1015935126 1015935109 ] setprops } p alarmexec p q + p = { [ 1015935193 1015935190 1015935205 1015935180 ] setprops } p alarmexec "" CHATSTR = } CHATSTR "roll" == IF ;by oreo { [1049248214 1049248243 1049247937] setprops {[1049248214 1049248243 1049247937] setprops } 20 alarmexec {[1049248214 1049248243 1049247937] setprops 8 pensize posx 16 + a = posy 13 - b = a 120 + a2 = b c = c d = a2 392 + a3 = 250 j = {j 0 0 pencolor j 80 - j = penfront a b a2 8 + d line a b a2 8 + c line a2 d a3 8 + d line a2 c a3 8 + c line d 8 - d = c 8 + c = z++} {z 9 < } while 0 0 0 pencolor a b a2 d line a b a2 c line a2 d a3 d line a2 c a3 c line } 40 alarmexec "" CHATSTR = } CHATSTR "z3" == IF ;by Oreo ;warning very laggy {mousepos swap a = b = { 100 random c = 100 random d = a c - b d - setpos a c - b d - setpos a c + b d + setpos a c + b d + setpos mousepos setpos a c - b d + setpos a c - b d + setpos a c + b d - setpos a c + b d - setpos mousepos setpos z++} {z 10 < } while "" CHATSTR = } CHATSTR "tele2" == IF {mousepos Y = X = -1250004890 468 0 ADDLOOSEPROP -1250004866 424 0 ADDLOOSEPROP -1250004944 424 44 ADDLOOSEPROP -1250004925 468 44 ADDLOOSEPROP -1250004880 380 45 ADDLOOSEPROP penfront { 8 PENSIZE 0 i 24* i 255* PENCOLOR i 8 * v = i ++ x 3 - v + y 459 50 LINE x 3 + v - y 459 50 LINE }{ i 10 <=} WHILE "" CHATSTR = } CHATSTR "topright" == IF {mousepos Y = X = -1249333652 0 0 addlooseprop -1249333350 44 0 addlooseprop -1249333203 0 44 addlooseprop -1249333080 44 44 addlooseprop penfront { 8 PENSIZE 0 i 24* i 255* PENCOLOR i 8 * v = i ++ x 3 - v + y 46 48 LINE x 3 + v - y 46 48 LINE }{ i 10 <=} WHILE "" CHATSTR = } CHATSTR "topleft" == IF {[964950254 964950249 964950236 964950244 964942524 964942542] setprops { c 20 * v = c ++ 964950254 posx 65 - v - posy 51 - addlooseprop 964950249 posx 65 - v - posy -10 + addlooseprop }{ c 22 <=} while "" CHATSTR = } CHATSTR "db7" == IF ;--3x fireblast {{[ 970070939 970070932 970087469 970087479 970072881 970070903 970070879 970245761 970070897 ] setprops} 45 alarmexec {{ c 20 * v = c ++ 1000008903 posx 90 - v - posy 35 - addlooseprop 1000008903 posx 90 - v - posy -7 + addlooseprop 1000008903 posx 90 - v - posy -20 - addlooseprop }{ c 22 <=} while} 55 alarmexec "" CHATSTR = } CHATSTR "nbz6" == IF ;=========================================Fire Warp=========================================== ;=============================Type: "Fwarp " or just "Fwarp"========================== { {GLOBAL} [avatar n my mx] FOREACH MOUSEPOS my = mx = NBRUSERPROPS n = "$1" GREPSUB ATOI s = { 4 s = } 0 s == IF n ARRAY avatar = { i USERPROP avatar i PUT i ++ }{ i n < } WHILE {"[[ -1233634786 -1233634757 -1233634775 -1233634747 ] [ -1233634689 -1233634718 -1233634698 -1233634726 ] [ -1233634608 -1233634652 -1233634624 -1233634666 ] [ -1233633959 -1233634154 -1233633972 -1233634201 ] [ -1233633882 -1233633921 -1233633896 -1233633942 ] [ -1233633784 -1233633832 -1233633802 -1233633752 -1233633846 ] [ -1233633743 -1233633726 -1233633690 -1233633679 ] [ -1233633638 -1233633555 -1233633615 -1233633567 -1233633630 -1233633286 ] [ -1233633400 -1233633360 -1233633477 -1233633436 -1233633056 ] [ -1233633139 -1233633223 -1233633175 -1233633274 -1233632984 ] [ -1233632908 -1233632902 -1233632894 -1233632888 -1233633043 -1233633031 -1233632998 ]] " j ITOA & " GET SETPROPS" & STRTOATOM { j 1 + j = }{ j 1 - j = } c 10 < IFELSE c s * ALARMEXEC c ++ }{ c 21 < } WHILE { mx GLOBAL my GLOBAL mx my SETPOS } s 21 * 2 / ALARMEXEC { avatar GLOBAL n GLOBAL { avatar SETPROPS } { naked } n IFELSE } c s * ALARMEXEC ")EXPLO" CHATSTR = } CHATSTR "^[fF][wW][aA][rR][pP] ([0-9]+)$" GREPSTR CHATSTR "Fwarp" == OR IF ;==========================================prop drop script======================================== ;=9 prop picture av's only, and must be put on in the order from top left to right to bottom right= {MOUSEPOS y = x = {x 22 + y 22 + dropprop x 22 - y 22 + dropprop x 66 - y 22 + dropprop x 22 + y 22 - dropprop x 22 - y 22 - dropprop x 66 - y 22 - dropprop x 22 + y 66 - dropprop x 22 - y 66 - dropprop x 66 - y 66 - dropprop} {"Must be wearing 9 props" STATUSMSG} NBRUSERPROPS 9 == IFELSE "" chatstr =} chatstr "drop" == if { PENFRONT ")no !Zap" MOUSEPOS SAYAT 4 PENSIZE 255 0 0 PENCOLOR POSX POSY MOUSEPOS LINE PAINTUNDO "" CHATSTR = } CHATSTR "zap" == IF { PENFRONT ")yes There" SAY 4 PENSIZE 255 0 0 PENCOLOR POSX POSY MOUSEPOS LINE "" CHATSTR = } CHATSTR "point" == IF { [ 1034580307 1034580316 ] SETPROPS { [ 1034580583 1034580576 ] SETPROPS } 15 ALARMEXEC { [ 1034580938 1034580892 ] SETPROPS } 25 ALARMEXEC { [ 1034581171 1034581187 ] SETPROPS } 35 ALARMEXEC { [ 1034581290 1034581296 ] SETPROPS } 45 ALARMEXEC { [ 1034581365 1034581372 ] SETPROPS } 55 ALARMEXEC { [ 1034581455 1034581469 1034581474 ] SETPROPS } 65 ALARMEXEC { [ 1034581635 1034581645 1034581651 ] SETPROPS } 75 ALARMEXEC { [ 1034581739 1034581749 1034581755 ] SETPROPS } 85 ALARMEXEC { [ 1034582107 1034582123 1034582112 1034582129 1034582141 1034582147 ] SETPROPS } 95 ALARMEXEC { [ 1034582249 1034582256 1034582261 1034582266 1034582285 1034582291 ] SETPROPS } 105 ALARMEXEC { [ 1034582471 1034582488 1034582495 1034582501 1034582507 1034582515 ] SETPROPS } 115 ALARMEXEC { [ 1034582668 1034582678 1034582683 1034582689 1034582694 1034582699 ] SETPROPS } 130 ALARMEXEC { [ 1034582991 1034582998 1034583008 ] SETPROPS } 145 ALARMEXEC { [ 1034583139 1034583150 ] SETPROPS } 155 ALARMEXEC "" CHATSTR = } CHATSTR "blast" == IF { [ 1034665009 1034665003 ] SETPROPS { [ 1034665211 1034665220 ] SETPROPS } 10 ALARMEXEC { [ 1034665244 1034665270 ] SETPROPS } 20 ALARMEXEC { [ 1034665296 1034665302 ] SETPROPS } 30 ALARMEXEC { [ 1034665333 1034665342 ] SETPROPS } 40 ALARMEXEC { [ 1034665522 1034665533 1034665537 1034665546 ] SETPROPS } 50 ALARMEXEC { [ 1034665632 1034665640 1034665644 1034665650 ] SETPROPS } 60 ALARMEXEC { [ 1034665710 1034665718 1034665736 1034665742 ] SETPROPS } 70 ALARMEXEC { [ 1034665780 1034665786 1034665791 1034665798 ] SETPROPS } 80 ALARMEXEC { [ 1034665941 1034665965 1034665977 1034665990 ] SETPROPS } 90 ALARMEXEC { [ 1034666100 1034666105 1034666109 1034666117 1034666125 1034666132 ] SETPROPS } 100 ALARMEXEC { [ 1034666166 1034666171 1034666188 1034666198 1034666206 1034666211 ] SETPROPS } 110 ALARMEXEC { [ 1034666348 1034666353 1034666358 1034666363 1034666372 1034666399 ] SETPROPS } 120 ALARMEXEC { [ 1034666451 1034666454 1034666458 1034666464 1034666499 1034666508 ] SETPROPS } 130 ALARMEXEC { [ 1034666533 1034666537 1034666547 1034666565 1034666573 1034666539 1034666659 1034666665 ] SETPROPS } 140 ALARMEXEC { [ 1034666757 1034666763 1034666767 1034666773 1034666780 1034666785 ] SETPROPS } 150 ALARMEXEC { [ 1034666928 1034666939 1034666943 1034666949 1034666957 1034666961 ] SETPROPS } 160 ALARMEXEC { [ 1034666996 1034667001 1034667005 1034667009 1034667017 1034667020 ] SETPROPS } 170 ALARMEXEC { [ 1034667130 1034667136 1034667126 1034667142 1034667189 1034667193 ] SETPROPS } 180 ALARMEXEC { [ 1034667245 1034667250 1034667283 1034667297 ] SETPROPS } 190 ALARMEXEC { [ 1034667345 1034667358 1034667363 1034667368 ] SETPROPS } 200 ALARMEXEC { [ 1034667441 1034667448 1034667454 1034667470 ] SETPROPS } 210 ALARMEXEC { [ 1034667556 1034667561 1034667604 1034667610 ] SETPROPS } 220 ALARMEXEC { [ 1034667719 1034667751 1034667761 1034667786 ] SETPROPS } 230 ALARMEXEC { [ 1034667828 1034667857 ] SETPROPS } 240 ALARMEXEC "" CHATSTR = } CHATSTR "blast2" == IF { [ 1034834555 1034834562 ] SETPROPS { [ 1034834618 1034834624 ] SETPROPS } 05 ALARMEXEC { [ 1034834694 1034834700 ] SETPROPS } 10 ALARMEXEC { [ 1034834739 1034834745 1034834751 ] SETPROPS } 15 ALARMEXEC { [ 1034834787 1034834791 1034834798 ] SETPROPS } 20 ALARMEXEC { [ 1034834823 1034834828 1034834833 ] SETPROPS } 25 ALARMEXEC { [ 1034834861 1034834867 ] SETPROPS } 30 ALARMEXEC { [ 1034834901 1034834907 ] SETPROPS } 35 ALARMEXEC { [ 1034834934 1034834939 ] SETPROPS } 40 ALARMEXEC { [ 1034834969 1034834973 ] SETPROPS } 45 ALARMEXEC "" CHATSTR = } CHATSTR "kneel" == IF { [ 1034835655 1034835662 ] SETPROPS { [ 1034835761 1034835767 ] SETPROPS } 05 ALARMEXEC { [ 1034835838 1034835844 ] SETPROPS } 10 ALARMEXEC { [ 1034835888 1034835893 1034835898 1034835902 ] SETPROPS } 15 ALARMEXEC { [ 1034835934 1034835939 1034835950 1034835947 ] SETPROPS } 20 ALARMEXEC { [ 1034835982 1034835995 1034835988 1034835991 ] SETPROPS } 25 ALARMEXEC { [ 1034836046 1034836043 1034836029 1034836037 ] SETPROPS } 30 ALARMEXEC { [ 1034836085 1034836079 1034836090 1034836093 ] SETPROPS } 35 ALARMEXEC { [ 1034836172 1034836162 1034836169 1034836157 ] SETPROPS } 40 ALARMEXEC { [ 1034836215 1034836218 1034836210 ] SETPROPS } 45 ALARMEXEC { [ 1034836268 1034836273 1034836278 ] SETPROPS } 50 ALARMEXEC { [ 1034836320 1034836329 1034836337 ] SETPROPS } 55 ALARMEXEC { [ 1034836365 1034836371 1034836378 ] SETPROPS } 60 ALARMEXEC { [ 1034836462 1034836466 1034836471 ] SETPROPS } 65 ALARMEXEC "" CHATSTR = } CHATSTR "tele2" == IF { [ 1035062424 1035062443 1035062449 1035062461 ] SETPROPS { [ 1035062516 1035062521 1035062526 1035062532 ] SETPROPS } 05 ALARMEXEC { [ 1035062562 1035062572 1035062577 1035062584 ] SETPROPS } 10 ALARMEXEC { [ 1035062623 1035062628 1035062634 1035062640 1035062654 1035062677 ] SETPROPS } 15 ALARMEXEC { [ 1035062710 1035062714 1035062720 1035062724 1035062729 1035062735 ] SETPROPS } 20 ALARMEXEC { [ 1035062773 1035062783 1035062796 1035062801 1035062807 1035062812 ] SETPROPS } 25 ALARMEXEC { [ 1035062840 1035062845 1035062849 1035062862 1035062867 ] SETPROPS } 30 ALARMEXEC { [ 1035062904 1035062909 1035062913 1035062917 ] SETPROPS } 35 ALARMEXEC { [ 1035062946 1035062951 1035062956 1035062960 ] SETPROPS } 40 ALARMEXEC { [ 1035062988 1035062992 1035062996 1035063000 ] SETPROPS } 45 ALARMEXEC { [ 1035063024 1035063029 1035063033 ] SETPROPS } 50 ALARMEXEC { [ 1035063059 1035063066 1035063071 1035063076 ] SETPROPS } 55 ALARMEXEC { [ 1035063105 1035063109 1035063115 1035063140 ] SETPROPS } 60 ALARMEXEC { [ 1035063174 1035063179 1035063183 1035063187 ] SETPROPS } 65 ALARMEXEC { [ 1035063212 1035063216 1035063227 ] SETPROPS } 70 ALARMEXEC "" CHATSTR = } CHATSTR "slash2" == IF { [ 1035082219 1035082226 ] SETPROPS { [ 1035082255 1035082266 ] SETPROPS } 05 ALARMEXEC { [ 1035082294 1035082306 1035082311 ] SETPROPS } 10 ALARMEXEC { [ 1035082339 1035082344 1035082350 1035082365 ] SETPROPS } 15 ALARMEXEC { [ 1035082459 1035082462 1035082467 1035082471 1035082477 1035082482 ] SETPROPS } 20 ALARMEXEC { [ 1035082514 1035082520 1035082524 ] SETPROPS } 25 ALARMEXEC { [ 1035082547 1035082552 1035082563 ] SETPROPS } 30 ALARMEXEC { [ 1035082639 1035082657 ] SETPROPS } 35 ALARMEXEC "" CHATSTR = } CHATSTR "shadowaa" == IF