Código:
$${
if(x);unset(x);unsprint;log(&1&l RUN &d&lBITCH &4&l[OFF]);STOP;
else;set(x);log(&1&lRUN &d&lBITCH &2&l[ON]);
endif;
do;
ifmatches(%GUI%,None);
if(%#tr%>0);keyup(ForWard);endif;
dec(#tr,%#tr%);
if(KEY_W);sprint;else;unsprint;endif;
else;
&dir=%DIRECTION%;
ifmatches(%GUI%,Inventory|Chat|Chest|Furnace);
keydown(FORWARD);SPRINT;
ifmatches(%DIRECTION%,N);#a=-1;#b=0;&op=SOUTH;endif;ifmatches(%DIRECTION%,S);#a=+1;#b=0;&op=NORTH;endif;
ifmatches(%DIRECTION%,W);#a=0;#b=-1;&op=EAST;endif;ifmatches(%DIRECTION%,E);#a=0;#b=+1;&op=WEST;endif;
getidrel(%#b%,1,%#a%,#d,);getidrel(%#b%,0,%#a%,#c,);if((%#c%!=0)|(%#d%!=0));;&dir=%&op%;endif;look(%&dir%);
if(KEY_S);
ifmatches(%DIRECTION%,N);#a=-1;#b=0;&op=SOUTH;endif;ifmatches(%DIRECTION%,S);#a=+1;#b=0;&opNORTH;endif;
ifmatches(%DIRECTION%,W);#a=0;#b=-1;&op=EAST;endif;ifmatches(%DIRECTION%,E);#a=0;#b=+1;&op=WEST;endif;
getidrel(%#b%,1,%#a%,#d,);getidrel(%#b%,0,%#a%,#c,);if((%#c%!=0)|(%#d%!=0));&dir=%&op%;endif;look(%&dir%);keydown(back);else;keyup(back);endif;
if(KEY_A);
ifmatches(%DIRECTION%,N);#a=-1;#b=0;&op=SOUTH;endif;ifmatches(%DIRECTION%,S);#a=+1;#b=0;&opNORTH;endif;
ifmatches(%DIRECTION%,W);#a=0;#b=-1;&op=EAST;endif;ifmatches(%DIRECTION%,E);#a=0;#b=+1;&op=WEST;endif;
getidrel(%#b%,1,%#a%,#d,);getidrel(%#b%,0,%#a%,#c,);if((%#c%!=0)|(%#d%!=0));&dir=%&op%;endif;look(%&dir%);keydown(left);else;keyup(left);endif;
if(KEY_D);
ifmatches(%DIRECTION%,N);#a=-1;#b=0;&op=SOUTH;endif;ifmatches(%DIRECTION%,S);#a=+1;#b=0;&opNORTH;endif;
ifmatches(%DIRECTION%,W);#a=0;#b=-1;&op=EAST;endif;ifmatches(%DIRECTION%,E);#a=0;#b=+1;&op=WEST;endif;
getidrel(%#b%,1,%#a%,#d,);getidrel(%#b%,0,%#a%,#c,);if((%#c%!=0)|(%#d%!=0));&dir=%&op%;endif;look(%&dir%);keydown(right);else;keyup(right);endif;
if(KEY_SPACE);keydown(jump);else;keyup(jump);endif;
inc(#tr,1);
endif;
endif;
loop;
}$$
