API tools faq
paste
Advertisement
Guest User

CodigoMacro

a guest
Jun 17th, 2018
61
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 9.77 KB | None | 0 0
raw download clone embed print report
  1. $${
  2. if(tesouro);
  3. log(&3&lViking&5&lMania &8- &bMacro de Tesouro &4[&lOF&4]);
  4. keyup(forward);
  5. keyup(jump);
  6. keyup(sneak);
  7. unset(tesouro);
  8. stop;
  9.  
  10. else;
  11. set(tesouro);
  12. log(&3&lViking&5&lMania &8- &bMacro de Correr &2[&lON&2]);
  13.  
  14. do;
  15. prompt(#x,$$?,Qual a coordenada X?);
  16. ifmatches(%#x%,"([1-9]+)");
  17. break;
  18. endif;
  19. loop;
  20.  
  21. do;
  22. prompt(#z,$$?,Qual a coordenada Z?);
  23. ifmatches(%#z%,"([1-9]+)");
  24. break;
  25. endif;
  26. loop;
  27.  
  28. do;
  29. if(((%XPOS%<200)&&(%XPOS%>-200))&&((%ZPOS%<200)&&(%ZPOS%>-200)));if((%XPOS%!=0)|(%ZPOS%!=0));
  30.  
  31. }$$
  32. /cavalo
  33. /warp tesouro
  34. $${
  35.  
  36. do(5);wait(1);until((%XPOS%=0)&&(%ZPOS%=0));endif;endif;
  37. #xf=%#x%;#zf=%#z%;#posx=%XPOS%;#posz=%ZPOS%;#x=%#x%-%#posx%;#z=%#z%-%#posz%;#xt=%#x%;#zt=%#z%;
  38. if((%XPOS% = 0)&&(%ZPOS% = 0));if(%#x%<0);#x=%#x%+11;else;#x=%#x%-11;endif;else;if(%#%);endif;endif;
  39. if(%#xt%<0);dec(#xt);else;inc(#xt);endif;if(%#zt%<0);dec(#zt);else;inc(#zt);endif;if(%#x%<0);#x=%#x%*(-1);endif;if(%#z%<0);#z=%#z%*(-1);endif;
  40. if(%#x%<%#z%);#x=%#x%*10000;#tlok = %#x%/%#z%;else;#z=%#z%*10000;#tlok = %#z%/%#x%;endif;
  41. if((%#tlok%>=175)&&(%#tlok%<=348));#lok=1;elseif((%#tlok%>=349)&&(%#tlok%<=523));#lok=2;elseif((%#tlok%>=524)&&(%#tlok%<=698));#lok=3;elseif((%#tlok%>=699)&&(%#tlok%<=874));#lok=4;
  42. elseif((%#tlok%>=875)&&(%#tlok%<=1050));#lok=5;elseif((%#tlok%>=1051)&&(%#tlok%<=1227));#lok=6;elseif((%#tlok%>=1228)&&(%#tlok%<=1404));#lok=7;elseif((%#tlok%>=1405)&&(%#tlok%<=1583));#lok=8;
  43. elseif((%#tlok%>=1584)&&(%#tlok%<=1762));#lok=9;elseif((%#tlok%>=1584)&&(%#tlok%<=1762));#lok=10;elseif((%#tlok%>=1763)&&(%#tlok%<=2125));#lok=11;elseif((%#tlok%>=2126)&&(%#tlok%<=2308));#lok=12;
  44. elseif((%#tlok%>=2126)&&(%#tlok%<=2492));#lok=13;elseif((%#tlok%>=2493)&&(%#tlok%<=2678));#lok=14;elseif((%#tlok%>=2679)&&(%#tlok%<=2866));#lok=15;elseif((%#tlok%>=2867)&&(%#tlok%<=3056));#lok=16;
  45. elseif((%#tlok%>=3057)&&(%#tlok%<=3248));#lok=17;elseif((%#tlok%>=3249)&&(%#tlok%<=3442));#lok=18;elseif((%#tlok%>=3443)&&(%#tlok%<=3639));#lok=19;elseif((%#tlok%>=3640)&&(%#tlok%<=3838));#lok=20;
  46. elseif((%#tlok%>=3839)&&(%#tlok%<=4039));#lok=21;elseif((%#tlok%>=4040)&&(%#tlok%<=4244));#lok=22;elseif((%#tlok%>=4245)&&(%#tlok%<=4451));#lok=23;elseif((%#tlok%>=4452)&&(%#tlok%<=4662));#lok=24;
  47. elseif((%#tlok%>=4663)&&(%#tlok%<=4876));#lok=25;elseif((%#tlok%>=4877)&&(%#tlok%<=5094));#lok=26;elseif((%#tlok%>=5095)&&(%#tlok%<=5316));#lok=27;elseif((%#tlok%>=5317)&&(%#tlok%<=5542));#lok=28;
  48. elseif((%#tlok%>=5543)&&(%#tlok%<=5773));#lok=29;elseif((%#tlok%>=5774)&&(%#tlok%<=6008));#lok=30;elseif((%#tlok%>=6009)&&(%#tlok%<=6249));#lok=31;elseif((%#tlok%>=6250)&&(%#tlok%<=6293));#lok=32;
  49. elseif((%#tlok%>=6294)&&(%#tlok%<=6744));#lok=33;elseif((%#tlok%>=6745)&&(%#tlok%<=7001));#lok=34;elseif((%#tlok%>=7002)&&(%#tlok%<=7264));#lok=35;elseif((%#tlok%>=7265)&&(%#tlok%<=7535));#lok=36;
  50. elseif((%#tlok%>=7536)&&(%#tlok%<=7812));#lok=37;elseif((%#tlok%>=7813)&&(%#tlok%<=8097));#lok=38;elseif((%#tlok%>=8098)&&(%#tlok%<=8390));#lok=39;elseif((%#tlok%>=8391)&&(%#tlok%<=8692));#lok=40;
  51. elseif((%#tlok%>=8693)&&(%#tlok%<=9003));#lok=41;elseif((%#tlok%>=9004)&&(%#tlok%<=9324));#lok=42;elseif((%#tlok%>=9325)&&(%#tlok%<=9656));#lok=43;elseif((%#tlok%>=9657)&&(%#tlok%<=9999));#lok=44;
  52. elseif((%#tlok%>=10000)&&(%#tlok%<=10354));#lok=45;elseif((%#tlok%>=10355)&&(%#tlok%<=10723));#lok=46;elseif((%#tlok%>=10724)&&(%#tlok%<=11105));#lok=47;elseif((%#tlok%>=11106)&&(%#tlok%<=11503));#lok=48;
  53. elseif((%#tlok%>=11504)&&(%#tlok%<=11917));#lok=49;elseif((%#tlok%>=11918)&&(%#tlok%<=12348));#lok=50;elseif((%#tlok%>=12349)&&(%#tlok%<=12798));#lok=51;elseif((%#tlok%>=12799)&&(%#tlok%<=13269));#lok=52;
  54. elseif((%#tlok%>=13270)&&(%#tlok%<=13763));#lok=53;elseif((%#tlok%>=13764)&&(%#tlok%<=14280));#lok=54;elseif((%#tlok%>=14281)&&(%#tlok%<=14825));#lok=55;elseif((%#tlok%>=14826)&&(%#tlok%<=15398));#lok=56;
  55. elseif((%#tlok%>=15399)&&(%#tlok%<=16002));#lok=57;elseif((%#tlok%>=16003)&&(%#tlok%<=16642));#lok=58;elseif((%#tlok%>=16643)&&(%#tlok%<=17320));#lok=59;elseif((%#tlok%>=17321)&&(%#tlok%<=18039));#lok=60;
  56. elseif((%#tlok%>=18040)&&(%#tlok%<=18806));#lok=61;elseif((%#tlok%>=18807)&&(%#tlok%<=19625));#lok=62;elseif((%#tlok%>=19626)&&(%#tlok%<=20502));#lok=63;elseif((%#tlok%>=20503)&&(%#tlok%<=21444));#lok=64;
  57. elseif((%#tlok%>=21445)&&(%#tlok%<=22459));#lok=65;elseif((%#tlok%>=22460)&&(%#tlok%<=23558));#lok=66;elseif((%#tlok%>=23560)&&(%#tlok%<=24750));#lok=67;elseif((%#tlok%>=24751)&&(%#tlok%<=26050));#lok=68;
  58. elseif((%#tlok%>=26051)&&(%#tlok%<=27474));#lok=69;elseif((%#tlok%>=27475)&&(%#tlok%<=29041));#lok=70;elseif((%#tlok%>=29042)&&(%#tlok%<=30776));#lok=71;elseif((%#tlok%>=30777)&&(%#tlok%<=32708));#lok=72;
  59. elseif((%#tlok%>=32709)&&(%#tlok%<=34873));#lok=73;elseif((%#tlok%>=34874)&&(%#tlok%<=37320));#lok=74;elseif((%#tlok%>=37321)&&(%#tlok%<=40107));#lok=75;elseif((%#tlok%>=40108)&&(%#tlok%<=43314));#lok=76;
  60. elseif((%#tlok%>=43315)&&(%#tlok%<=47045));#lok=77;elseif((%#tlok%>=47046)&&(%#tlok%<=51445));#lok=78;elseif((%#tlok%>=51446)&&(%#tlok%<=56712));#lok=79;elseif((%#tlok%>=56713)&&(%#tlok%<=63137));#lok=80;
  61. elseif((%#tlok%>=63137)&&(%#tlok%<=71153));#lok=81;elseif((%#tlok%>=71154)&&(%#tlok%<=81442));#lok=82;elseif((%#tlok%>=81443)&&(%#tlok%<=95143));#lok=83;elseif((%#tlok%>=95144)&&(%#tlok%<=114300));#lok=84;
  62. elseif((%#tlok%>=114301)&&(%#tlok%<=143006));#lok=85;elseif((%#tlok%>=143007)&&(%#tlok%<=190810));#lok=86;elseif((%#tlok%>=190811)&&(%#tlok%<=286362));#lok=87;elseif((%#tlok%>=286363)&&(%#tlok%<=572899));#lok=88;
  63. elseif((%#tlok%>=572900)&&(%#tlok%<=999999));#lok=89;endif;
  64.  
  65. if(%#xt%<0);&dir=West;else;&dir=East;endif;
  66. if(%#xt%<%#zt%);
  67. if((%#xt%>0)&&(%#zt%>0));#lokf=180-%#lok%;elseif((%#xt%<0)&&(%#zt%<0));#lokf=270+%#lok%;elseif((%#xt%<0)&&(%#zt%>0));#xt=%#xt%*(-1);if(%#xt%<%#zt%);#lokf=180+%#lok%;else;#lokf=270-%#lok%;endif;#xt=%#xt%*(-1);endif;
  68. else;
  69. if((%#xt%>0)&&(%#zt%>0));#lokf=90+%#lok%;elseif((%#xt%<0)&&(%#zt%<0));#lokf=360-%#lok%;elseif((%#xt%>0)&&(%#zt%<0));#zt=%#zt%*(-1);if(%#xt%<%#zt%);#lokf=%#lok%;else;#lokf=90-%#lok%;endif;#zt=%#zt%*(-1);endif;
  70. endif;
  71. if((%XPOS% = 0)&&(%ZPOS% = 0));do;look(%&dir%);keydown(forward);if((%XPOS% = 9)|(%XPOS% = -9));keydown(sneak);endif;sprint;until((%XPOS% = 11)|(%XPOS% = -11));keyup(sneak);unsprint;keyup(forward);endif;unset(pot);
  72. for(#i,1,9);getslotitem(%#i%,#id,#qt,#dt);if(%#id% = 373);if((%#dt% = 8226)|(%#dt% = 8258)|(%#dt% = 8290));set(pot);endif;endif;next;
  73. do;
  74. look(%#lokf%,0);keydown(forward);keydown(jump);sprint;if((%ZPOS% = %#zf%+3)|(%ZPOS% = %#zf%-3)|(%XPOS% = %#xf%+3)|(%XPOS% = %#xf%-3));keyup(jump);keydown(sneak);endif;if(%HUNGER%<=6);do;pick(320,350,360,364,366,260,391,393,297,400);key(use);while(%HUNGER%<20);endif;
  75. if(pot);
  76. #effect=1;#eff=0;&eff1=;&teff1=;&eff2=;&teff2=;&eff3=;&teff3=;&eff4=;&teff4=;&eff5=;&teff5=;
  77. foreach(effects);
  78. if(%#effect%=1);&eff1=%EFFECTNAME%;#teff1=%EFFECTTIME%;endif;if(%#effect%=2);&eff2=%EFFECTNAME%;#teff2=%EFFECTTIME%;endif;if(%#effect%=3);&eff3=%EFFECTNAME%;#teff3=%EFFECTTIME%;endif;
  79. if(%#effect%=4);&eff4=%EFFECTNAME%;#teff4=%EFFECTTIME%;endif;if(%#effect%=5);&eff5=%EFFECTNAME%;#teff5=%EFFECTTIME%;endif;inc(#effect);
  80. next;
  81. if((%&eff1% = "Velocidade II")|(%&eff1% = "Velocidade"));#eff=%#teff1%;elseif((%&eff2% = "Velocidade II")|(%&eff2% = "Velocidade"));#eff=%#teff2%;
  82. elseif((%&eff3% = "Velocidade II")|(%&eff3% = "Velocidade"));#eff=%#teff3%;elseif((%&eff4% = "Velocidade II")|(%&eff4% = "Velocidade"));#eff=%#teff4%;
  83. elseif((%&eff5% = "Velocidade II")|(%&eff5% = "Velocidade"));#eff=%#teff5%;endif;
  84. if(%#eff% = 0);
  85. pick(373:8226,373:8258,373:8290);getslotitem(%INVSLOT%,#id,#st);
  86. if(%#id% = 373);
  87. do;
  88. #effect=1;#eff=0;&eff1=;&teff1=;&eff2=;&teff2=;&eff3=;&teff3=;&eff4=;&teff4=;&eff5=;&teff5=;
  89. foreach(effects);
  90. if(%#effect%=1);&eff1=%EFFECTNAME%;#teff1=%EFFECTTIME%;endif;if(%#effect%=2);&eff2=%EFFECTNAME%;#teff2=%EFFECTTIME%;endif;if(%#effect%=3);&eff3=%EFFECTNAME%;#teff3=%EFFECTTIME%;endif;
  91. if(%#effect%=4);&eff4=%EFFECTNAME%;#teff4=%EFFECTTIME%;endif;if(%#effect%=5);&eff5=%EFFECTNAME%;#teff5=%EFFECTTIME%;endif;inc(#effect);
  92. next;
  93. if((%&eff1% = "Velocidade II")|(%&eff1% = "Velocidade"));#eff=%#teff1%;elseif((%&eff2% = "Velocidade II")|(%&eff2% = "Velocidade"));#eff=%#teff2%;
  94. elseif((%&eff3% = "Velocidade II")|(%&eff3% = "Velocidade"));#eff=%#teff3%;elseif((%&eff4% = "Velocidade II")|(%&eff4% = "Velocidade"));#eff=%#teff4%;
  95. elseif((%&eff5% = "Velocidade II")|(%&eff5% = "Velocidade"));#eff=%#teff5%;endif;
  96. do(40);key(use);loop;
  97. sprint;
  98. while(%#eff% = 0);
  99. do;if(%#st%=1);slotclick(%INVSLOT%);slotclick(-999);press(q);wait(3t);endif;getslotitem(%INVSLOT%,#id);sprint;until((%#id% = 0)|(%#id% = 373));
  100. else;
  101. do;gui(inventory);ifmatches(%GUI%,INVENTORY);break;endif;loop;wait(5t);#pots=0;
  102. for(#i,9,36);getslotitem(%#i%,#id,#st,#dt);if(%#id% = 373);if((%#dt% = 8226)|(%#dt% = 8258)|(%#dt% = 8290));slotclick(%#i%,l,true);wait(200ms);#pots=1;endif;endif;next;
  103. if(%#pots% = 0);log(&6[Macro]&b Acabo as pot's de velocidade!!!);unset(pot);endif;do;gui();ifmatches(%GUI%,NONE);break;endif;loop;wait(5t);
  104. endif;
  105. endif;
  106. endif;
  107. until((%ZPOS% = %#zf%)|(%XPOS% = %#xf%));keyup(sneak);keyup(jump);
  108. if(%XPOS% != %#xf%);
  109. if(%#xt%<0);do;look(west);keydown(forward);keydown(jump);sprint;if(%XPOS% = %#xt% + 3);keydown(sneak);keyup(jump);endif;until(%XPOS% = %#xf%);endif;
  110. if(%#xt%>0);do;look(east);keydown(forward);keydown(jump);sprint;if(%XPOS% = %#xt% - 3);keydown(sneak);keyup(jump);endif;until(%XPOS% = %#xf%);endif;
  111. elseif(%ZPOS% != %#zf%);
  112. if(%#zt%<0);do;look(north);keydown(forward);keydown(jump);sprint;if(%ZPOS% = %#zt% + 3);keydown(sneak);keyup(jump);endif;until(%ZPOS% = %#zf%);endif;
  113. if(%#zt%>0);do;look(south);keydown(forward);keydown(jump);sprint;if(%ZPOS% = %#zt% - 3);keydown(sneak);keyup(jump);endif;until(%ZPOS% = %#zf%);endif;
  114. endif;
  115. log(&3&lViking&5&lMania &8- &b Chegamos nas coordenada &6X: %#xf% &b&l|| &6Z: %#zf%);log(&6[Macro]&b Finalizando macro....);keyup(forward);keyup(sneak);keyup(jump);unsprint;unset(tesouro);stop;
  116. loop;
  117. endif;
  118. }$$
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!