;This is the non-flashy less laggy version ;Usage: warpto [Macro #] ;WarpTo by Hex - http://hex.palaceplanet.net 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 ;********************************************************* ;This is the laggier, more flashy version = ) ;Usage: warptof [Macro #] { ")fazein" SAY { 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 2 PENSIZE PENBACK 0 255 0 PENCOLOR POSX 3 - POSY 3 - MOUSEPOS LINE { MOUSEPOS SETPOS PAINTUNDO restore_props GLOBAL { SETPROPS } [ [ -1273054608 ] [ -1273054160 ] [ -1273054173 ] [ -1273054525 ] [ -1273054210 ] [ -1273054216 ] [ -1273054235 ] [ -1273054240 ] [ -1273054317 ] [ -1273076790 ] ] FOREACH restore_props STRTOATOM EXEC } 60 ALARMEXEC } 50 ALARMEXEC "" CHATSTR = } CHATSTR "^warptof([ ]*)([0-9]*)$" GREPSTR IF