Guest User

Untitled

a guest
May 26th, 2016
55
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.97 KB | None | 0 0
  1. $${
  2. if(x);unset(x);unsprint;log(&f&l[&3&lSPRINT 2.0&f&l] &f&l[&4&lOFF&f&l]);STOP;
  3. else;set(x);log(&f&l[&3&lSPRINT 2.0&f&l] &f&l[&2&lON&f&l]);
  4. ACHIEVEMENTGET(Corre Corre Corre!,373:8226);
  5. log(&a*&3Sรณ Vai &4&lMr&9&lGostoso *);
  6. }$$
  7.  
  8. $${
  9. endif;
  10.  
  11. do;
  12. ifmatches(%GUI%,None);
  13. if(%#tr%>0);keyup(ForWard);endif;
  14. dec(#tr,%#tr%);
  15. if(KEY_W);sprint;else;unsprint;endif;
  16.  
  17. else;
  18. &dir=%DIRECTION%;
  19.  
  20. ifmatches(%GUI%,Inventory|Chat|Chest|Furnace|Esc);
  21. keydown(FORWARD);SPRINT;
  22. ifmatches(%DIRECTION%,N);#a=-1;#b=0;&op=SOUTH;endif;ifmatches(%DIRECTION%,S);#a=+1;#b=0;&op=NORTH;endif;
  23. ifmatches(%DIRECTION%,W);#a=0;#b=-1;&op=EAST;endif;ifmatches(%DIRECTION%,E);#a=0;#b=+1;&op=WEST;endif;
  24. getidrel(%#b%,1,%#a%,#d,);getidrel(%#b%,0,%#a%,#c,);if((%#c%!=0)|(%#d%!=0));;&dir=%&op%;endif;look(%&dir%);
  25.  
  26. if(KEY_S);
  27. ifmatches(%DIRECTION%,N);#a=-1;#b=0;&op=SOUTH;endif;ifmatches(%DIRECTION%,S);#a=+1;#b=0;&opNORTH;endif;
  28. ifmatches(%DIRECTION%,W);#a=0;#b=-1;&op=EAST;endif;ifmatches(%DIRECTION%,E);#a=0;#b=+1;&op=WEST;endif;
  29. 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;
  30.  
  31. if(KEY_A);
  32. ifmatches(%DIRECTION%,N);#a=-1;#b=0;&op=SOUTH;endif;ifmatches(%DIRECTION%,S);#a=+1;#b=0;&opNORTH;endif;
  33. ifmatches(%DIRECTION%,W);#a=0;#b=-1;&op=EAST;endif;ifmatches(%DIRECTION%,E);#a=0;#b=+1;&op=WEST;endif;
  34. 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;
  35.  
  36.  
  37. if(KEY_D);
  38. ifmatches(%DIRECTION%,N);#a=-1;#b=0;&op=SOUTH;endif;ifmatches(%DIRECTION%,S);#a=+1;#b=0;&opNORTH;endif;
  39. ifmatches(%DIRECTION%,W);#a=0;#b=-1;&op=EAST;endif;ifmatches(%DIRECTION%,E);#a=0;#b=+1;&op=WEST;endif;
  40. 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;
  41.  
  42. if(KEY_SPACE);keydown(jump);else;keyup(jump);endif;
  43. inc(#tr,1);
  44. endif;
  45.  
  46. endif;
  47. loop;
  48. }$$
Add Comment
Please, Sign In to add comment