Script x-Missile<cyborg>

X-Missile
Los comandos son xmis or xmis0-3, cada numero es un color diferente: rojo, verde, azul y gris,

lanza un misil con pintura en el cuarto, si la pintura no esta abilitada no funcionara, necesitas usarlo en un cuarto donde se pueda pintar.







{ PENFRONT "$1" GREPSUB num = { 4 RANDOM num = } { num ATOI num = } num "" == IFELSE PAINTCLEAR 32 bits = 0 i =
{ WHOTARGET WHOPOS y = x = } { MOUSEPOS y = x = } WHOTARGET IFELSE
POSX x - DUP * SQUAREROOT 15 + xstrLINE = POSY y - DUP * SQUAREROOT 20 + ystrLINE =
POSX px = POSY py = px tx = 10 escFctr =
{ xstrLINE bits / -1 * ax = } { xstrLINE bits / ax = } POSX x - 0 > IFELSE
{ ystrLINE bits / -1 * ay = } { ystrLINE bits / ay = } POSY y - 0 > IFELSE

{ { 255 } num NOT IF 255 255 bits / i * 1 + -

{ 255 } num 1 == IF 255 255 bits / i * 1 + -

{ 255 } num 2 == IF

{ 255 255 bits / i * 1 + - } num 3 == IF PENCOLOR
bits bits i - / 2 * PENSIZE { bits 4 / fctr -= } { bits 4 / fctr += } px tx - bits > IFELSE
px py px fctr + py ay + LINE fctr px += ax tx += ay py +=
{ "Premature Stop: " i 1 + ITOA &amp; "/" &amp; bits ITOA &amp; LOGMSG BREAK } x px escFctr - > x px escFctr + &lt; AND y py escFctr - > AND y py escFctr + &lt; AND IF
i ++ } { i bits &lt; } WHILE ")boom" SAY "@" x ITOA &amp; "," &amp; y ITOA &amp; " !KA-BOOM!" &amp; ROOMMSG
{ PAINTCLEAR } 90 ALARMEXEC "" CHATSTR = } lowchat "^xmis *([0-3]*)$" GREPSTR IF