Facebook
From KANAZAMI, 3 Years ago, written in Plain Text.
Embed
Download Paste or View Raw
Hits: 134
  1. $${
  2. if(cacto);
  3. unset(cacto);
  4. log(&9[%PLAYER%] &bCacto &4OFF);
  5. log(&6ATÉ OUTRO DIA MESTRE);
  6. unsprint;
  7. keyup(forward);
  8. keyup(jump);
  9. keyup(back);
  10. keyup(right);
  11. keyup(left);
  12. keyup(sneak);
  13. @#tempotest=0;
  14. #temporesult=0;
  15. #bautudo=0;
  16. stop;
  17. endif;
  18. else;
  19. set(cacto);
  20. log(&9[%PLAYER%] &bCacto &2ON);
  21.  
  22. #vip=0;
  23. #falta=0;
  24. #antireset=0;
  25. #faltapedra=0;
  26. #feitos=0;
  27. #torres=0;
  28. #inicio=0;
  29. #construir=0;
  30. @#tempotest=0;
  31. #temporesult=0;
  32. #inicio=0;
  33. #guardaritens=0;
  34. #comprarpedra=0;
  35. #comprarareia=0;
  36. #comprarterra=0;
  37. #comprarcacto=0;
  38. #farmarcacto=0;
  39. #bauareia=0;
  40. #bauterra=0;
  41. #baucacto=0;
  42. #bautudo=0;
  43. #deseja=0;
  44. #comprarpedras=0;
  45. #pedir2=0;
  46. #comprar=0;
  47. #pedir=0;
  48.  
  49. do;
  50. prompt(#vip,$$?,"Você é vip? 1-sim 2-não");
  51. until((%#vip%=1)||(%#vip%=2));
  52.  
  53. do;
  54. prompt(#antireset,$$?,"Deseja usar o anti-reset server? 1-sim 2-não");
  55. until((%#antireset%=1)||(%#antireset%=2));
  56.  
  57. if(%#antireset%=1);
  58. log(");
  59. log("&5&lVOCÊ VAI USAR O ANTIRESET, LEMBRESSE DE USAR O OUTRO SCRIPT");
  60. log(");
  61. endif;
  62.  
  63. do;
  64. prompt(#deseja,$$?,"Deseja comprar algum material quando acabarem? 1-sim 2-não");
  65. until((%#deseja%=1)||(%#deseja%=2));
  66.  
  67. if(#deseja=1);
  68.  
  69. do;
  70. prompt(#comprarpedras,$$?,"Deseja comprar pedras quando acabarem? 1-sim 2-não");
  71. until((%#comprarpedras%=1)||(%#comprarpedras%=2));
  72.  
  73. if(%#comprarpedras%=1);
  74. do;
  75. prompt(#pedir2,$$?,"Deseja pedir money, quando acabar money para as pedras? 1-sim 2-não");
  76. until((%#pedir2%=1)||(%#pedir2%=2));
  77. endif;
  78.  
  79. if(%#pedir2%=1);
  80. prompt(&money2,$$u,"Qual conta enviará money para as pedras? 1-sim 2-não");
  81. endif;
  82.  
  83. do;
  84. prompt(#comprar,$$?,"Deseja comprar materiais quando acabar no armazem? 1-sim 2-não");
  85. until((%#comprar%=1)||(%#comprar%=2));
  86.  
  87. if(%#comprar%=1);
  88. do;
  89. prompt(#pedir,$$?,"Deseja pedir money, quando acabar money para os recursos? 1-sim 2-não");
  90. until((%#pedir%=1)||(%#pedir%=2));
  91. endif;
  92.  
  93. if(%#pedir%=1);
  94. prompt(&money,$$u,"Qual conta enviará money para os recursos?");
  95. endif;
  96.  
  97. endif;
  98.  
  99. do;
  100. log(");
  101. log("Os que atrapalham a macro são: Velocidade, Pressa e Superpulo");
  102. log(");
  103. prompt(#speed,$$?,"Há sinalizadores com efeito em algum lugar que a macro irá? 1-sim 2-não");
  104. until((%#speed%=1)||(%#speed%=2));
  105.  
  106. if(#speed=1);
  107. log(");
  108. log("&9&lLembre a macro ficará mais lenta, para evitar ocorrer bugs");
  109. log(");
  110. endif;
  111.  
  112. prompt(#andares,$$?,"Quantos andares deseja fazer?");
  113.  
  114. if(%#andares%<1);log("O número de andares deve ser igual ou maior que 1");
  115. unset(cacto);stop;
  116. endif;
  117.  
  118. prompt(#torres,$$?,"Quantas torres deseja fazer?");
  119.  
  120. if(%#torres%<1);log("O número de torres deve ser igual ou maior que 1");
  121. unset(cacto);stop;
  122. endif;
  123.  
  124. if(#speed=2);
  125.  
  126. #inicio=%#torres%;
  127. do(%#inicio%);
  128. wait(2);echo(/sethome t1);#vai=0;
  129. //
  130.  
  131. getidrel(+4,-1,0,#westtorre);
  132.     getidrel(-4,-1,0,#easttorre);
  133.     getidrel(0,-1,+4,#northtorre);
  134.     getidrel(0,-1,-4,#southtorre);
  135.    
  136.     if(#westtorre!=0);
  137.         getidrel(+4,0,0,#westpossibilidade);
  138.         if(#westpossibilidade=0);#vai=1;&olhar=WEST;
  139.             look(WEST);wait(30ms);
  140.         endif;
  141.     endif;
  142.    
  143.     if((#westtorre=0)||(#westpossibilidade!=0));
  144.         if(#easttorre!=0);
  145.                 getidrel(-4,0,0,#eastpossibilidade);
  146.                 if(#eastpossibilidade=0);#vai=1;&olhar=EAST;
  147.                     look(EAST);wait(30ms);
  148.                 else;#proximolado=1;
  149.                 endif;
  150.         else;#proximolado=1;
  151.         endif;
  152.     endif;
  153.    
  154.     if(#proximolado=1);
  155.         #proximolado=0;
  156.         if(#northtorre!=0);
  157.             getidrel(0,0,+4,#northpossibilidade);
  158.             if(#northpossibilidade=0);#vai=1;&olhar=NORTH;
  159.                 look(NORTH);wait(30ms);
  160.             else;#sosouth=1;
  161.             endif;
  162.         else;#sosouth=1;
  163.         endif;
  164.     endif;
  165.  
  166.     if(#sosouth=1);
  167.         #sosouth=0;
  168.         if(#southtorre!=0);
  169.             getidrel(0,0,-4,#southpossibilidade);
  170.             if(#southpossibilidade=0);#vai=1;&olhar=SOUTH;
  171.                 look(SOUTH);wait(30ms);
  172.             else;#ultimatorre=1;
  173.             endif;
  174.         else;#ultimatorre=1;
  175.         endif;
  176.     endif;
  177.  
  178.     if(#ultimatorre=1);
  179.     endif;
  180. //
  181.  
  182. pick(1);wait(1ms);
  183. if(#comprarpedras=1);
  184. if((%ITEM%!=1)||(%STACKSIZE%<3));#comprarpedra=1;endif;                                            
  185. if((%#vip%=1)&&(%#comprarpedra%=1));
  186.  
  187. if(%#antireset%=1);
  188. log(verificando hora);
  189. @#resetcacto=1;
  190. do;until(@#resetcacto=0);
  191. prompt(#horinha,$$?,"verificando hora atual,não toque no teclado!");
  192. if((#horinha>0548)&&(#horinha<0559));
  193.     log(esperando server reiniciar);
  194.     #posiqueparou=%XPOS%;#posiqueparou2=%ZPOS%;
  195.     do;wait(2);log(esperando server reiniciar);until((%XPOS%=1)&&(%ZPOS%=1));do;until((%XPOS%=%#posiqueparou%)&&(%ZPOS%=%#posiqueparou2%));
  196.     log(retornando a macro...);wait(3);
  197. elseif((#horinha>1148)&&(#horinha<1159));
  198.     log(esperando server reiniciar);
  199.     #posiqueparou=%XPOS%;#posiqueparou2=%ZPOS%;
  200.     do;wait(2);log(esperando server reiniciar);until((%XPOS%=1)&&(%ZPOS%=1));do;until((%XPOS%=%#posiqueparou%)&&(%ZPOS%=%#posiqueparou2%));
  201.     log(retornando a macro...);wait(3);
  202. elseif((#horinha>2148)&&(#horinha<2159));
  203.     log(esperando server reiniciar);
  204.     #posiqueparou=%XPOS%;#posiqueparou2=%ZPOS%;
  205.     do;wait(2);log(esperando server reiniciar);until((%XPOS%=1)&&(%ZPOS%=1));do;until((%XPOS%=%#posiqueparou%)&&(%ZPOS%=%#posiqueparou2%));
  206.     log(retornando a macro...);wait(3);
  207. endif;
  208. endif;
  209.  
  210. log("Comprando pedra");
  211.                 echo(/warp lojavip);wait(2);do(2);keydown(jump);wait(500ms);keyup(jump);loop;wait(2);    
  212.  
  213.  
  214.                                         #vaiolhary=330;
  215.                                         #vaiolharp=0;
  216.                                          
  217.                                          
  218.                                         look(%#vaiolhary%,%#vaiolharp%);
  219.                                          
  220.                                         //indo até a pedra
  221.                                          
  222.                                         do;
  223.                                         #irpedra=3934;
  224.                                         #irpedra2=1307;
  225.                                         look(%#vaiolhary%,%#vaiolharp%);
  226.                                         sprint;
  227.                                         keydown(forward);
  228.                                         if((%XPOS% = 3681)&&(%ZPOS% = 952));
  229.                                         keydown(jump);wait(250ms);keyup(jump);
  230.                                         endif;
  231.                                         until((%XPOS% = %#irpedra%)&&(%ZPOS% = %#irpedra2%));
  232.                                         unsprint;
  233.                                         keyup(forward);
  234.                                          
  235.                                         look(0,80);
  236.                                         gui(inventory);
  237.                                         do(4);key(use);wait(3);loop;
  238.                                         gui;
  239.                                         log(&f&lPedra comprada com sucesso!);
  240.                                        
  241.                                         wait(1);
  242.                                        
  243.                                         //verificando se a posição X passou e voltando
  244.                                            if(%XPOS% != %#irpedra%);
  245.                                         if(%XPOS% < %#irpedra%);
  246.                                         log("&bEita, verificamos que ocorreu um erro, &fvoltando para a coordenada &f&lX&f."); //voltando pra cord X
  247.                                         do;
  248.                                         look(EAST);
  249.                                         keydown(sneak);
  250.                                         keydown(forward);
  251.                                         until(%XPOS% = %#irpedra%);
  252.                                         keyup(forward);
  253.                                         keyup(sneak);
  254.                                         look(0,335);
  255.                                         gui(inventory);
  256.                                         do(4);key(use);wait(3);loop;
  257.                                         gui;
  258.                                         log(&f&lPedra comprada com sucesso!);
  259.                                         elseif(%XPOS% > %#irpedra%);
  260.                                         log("&bEita, verificamos que ocorreu um erro, &fvoltando para a coordenada &f&lX&f."); //voltando pra cord X
  261.                                         do;
  262.                                         look(WEST);
  263.                                         keydown(sneak);
  264.                                         keydown(forward);
  265.                                         until(%XPOS% = %#irpedra%);
  266.                                         keyup(forward);
  267.                                         keyup(sneak);
  268.                                         look(0,335);
  269.                                         gui(inventory);
  270.                                         do(4);key(use);wait(3);loop;
  271.                                         gui;
  272.                                         log(&f&lPedra comprada com sucesso!);
  273.                                         endif;
  274.                                            endif;
  275.                                        
  276.                                                
  277.                                          
  278.                                         //verificando se a posição Z passou e voltando
  279.                                            if(%ZPOS% != %#irpedra2%);
  280.                                         if(%ZPOS% < %#irpedra2%);
  281.                                         log("&bEita, verificamos que ocorreu um erro, &fvoltando para a coordenada &f&lZ&f."); //voltando pra cord Z
  282.                                         do;
  283.                                         look(SOUTH);
  284.                                         keydown(forward);
  285.                                         keydown(sneak);
  286.                                         until(%ZPOS% = %#irpedra2%);
  287.                                         keyup(forward);
  288.                                         keyup(sneak);
  289.                                         look(0,335);
  290.                                         gui(inventory);
  291.                                         do(4);key(use);wait(3);loop;
  292.                                         gui;
  293.                                         log(&f&lPedra comprada com sucesso!);                              
  294.                                         elseif(%ZPOS% > %#irpedra2%);
  295.                                         log("&bEita, verificamos que ocorreu um erro, &fvoltando para a coordenada &f&lZ&f."); //voltando pra cord Z
  296.                                         do;
  297.                                         look(NORTH);
  298.                                         keydown(sneak);
  299.                                         keydown(forward);
  300.                                         until(%ZPOS% = %#irpedra2%);
  301.                                         keyup(forward);
  302.                                         keyup(sneak);
  303.                                         look(0,335);
  304.                                         gui(inventory);
  305.                                         do(4);key(use);wait(3);loop;
  306.                                         gui;
  307.                                         log(&f&lPedra comprada com sucesso!);
  308.                                         endif;
  309.                                            endif;
  310.                                        
  311.                                         wait(1);echo(/home t1);wait(2);#comprarpedra=0;
  312.                            
  313. elseif((%#vip%=2)&&(%#comprarpedra%=1));
  314.  
  315. if(%#antireset%=1);
  316. log(verificando hora);
  317. @#resetcacto=1;
  318. do;until(@#resetcacto=0);
  319. prompt(#horinha,$$?,"verificando hora atual,não toque no teclado!");
  320. if((#horinha>0548)&&(#horinha<0559));
  321.     log(esperando server reiniciar);
  322.     #posiqueparou=%XPOS%;#posiqueparou2=%ZPOS%;
  323.     do;wait(2);log(esperando server reiniciar);until((%XPOS%=1)&&(%ZPOS%=1));do;until((%XPOS%=%#posiqueparou%)&&(%ZPOS%=%#posiqueparou2%));
  324.     log(retornando a macro...);wait(3);
  325. elseif((#horinha>1148)&&(#horinha<1159));
  326.     log(esperando server reiniciar);
  327.     #posiqueparou=%XPOS%;#posiqueparou2=%ZPOS%;
  328.     do;wait(2);log(esperando server reiniciar);until((%XPOS%=1)&&(%ZPOS%=1));do;until((%XPOS%=%#posiqueparou%)&&(%ZPOS%=%#posiqueparou2%));
  329.     log(retornando a macro...);wait(3);
  330. elseif((#horinha>2148)&&(#horinha<2159));
  331.     log(esperando server reiniciar);
  332.     #posiqueparou=%XPOS%;#posiqueparou2=%ZPOS%;
  333.     do;wait(2);log(esperando server reiniciar);until((%XPOS%=1)&&(%ZPOS%=1));do;until((%XPOS%=%#posiqueparou%)&&(%ZPOS%=%#posiqueparou2%));
  334.     log(retornando a macro...);wait(3);
  335. endif;
  336. endif;
  337.  
  338. log("Comprando pedra");
  339.                 echo(/warp loja);wait(2);do(2);keydown(jump);wait(500ms);keyup(jump);loop;wait(2);    
  340.  
  341.  
  342.                                         #vaiolhary=330;
  343.                                         #vaiolharp=0;
  344.                                          
  345.                                          
  346.                                         look(%#vaiolhary%,%#vaiolharp%);
  347.                                          
  348.                                         //indo até a pedra
  349.                                          
  350.                                         do;
  351.                                         #irpedra=3664;
  352.                                         #irpedra2=939;
  353.                                         look(%#vaiolhary%,%#vaiolharp%);
  354.                                         sprint;
  355.                                         keydown(forward);
  356.                                         if((%XPOS% = 3681)&&(%ZPOS% = 952));
  357.                                         keydown(jump);wait(250ms);keyup(jump);
  358.                                         endif;
  359.                                         until((%XPOS% = %#irpedra%)&&(%ZPOS% = %#irpedra2%));
  360.                                         unsprint;
  361.                                         keyup(forward);
  362.                                          
  363.                                         look(0,335);
  364.                                         gui(inventory);
  365.                                         do(4);key(use);wait(3);loop;
  366.                                         gui;
  367.                                         log(&f&lPedra comprada com sucesso!);
  368.                                        
  369.                                         wait(1);
  370.                                          
  371.                                         //verificando se a posição X passou e voltando
  372.                                            if(%XPOS% != %#irpedra%);
  373.                                         if(%XPOS% < %#irpedra%);
  374.                                         log("&bEita, verificamos que ocorreu um erro, &fvoltando para a coordenada &f&lX&f."); //voltando pra cord X
  375.                                         do;
  376.                                         look(EAST);
  377.                                         keydown(sneak);
  378.                                         keydown(forward);
  379.                                         until(%XPOS% = %#irpedra%);
  380.                                         keyup(forward);
  381.                                         keyup(sneak);
  382.                                         look(0,335);
  383.                                         gui(inventory);
  384.                                         do(4);key(use);wait(3);loop;
  385.                                         gui;
  386.                                         log(&f&lPedra comprada com sucesso!);
  387.                                         elseif(%XPOS% > %#irpedra%);
  388.                                         log("&bEita, verificamos que ocorreu um erro, &fvoltando para a coordenada &f&lX&f."); //voltando pra cord X
  389.                                         do;
  390.                                         look(WEST);
  391.                                         keydown(sneak);
  392.                                         keydown(forward);
  393.                                         until(%XPOS% = %#irpedra%);
  394.                                         keyup(forward);
  395.                                         keyup(sneak);
  396.                                         look(0,335);
  397.                                         gui(inventory);
  398.                                         do(4);key(use);wait(3);loop;
  399.                                         gui;
  400.                                         log(&f&lPedra comprada com sucesso!);
  401.                                         endif;
  402.                                            endif;
  403.                                        
  404.                                                
  405.                                          
  406.                                         //verificando se a posição Z passou e voltando
  407.                                            if(%ZPOS% != %#irpedra2%);
  408.                                         if(%ZPOS% < %#irpedra2%);
  409.                                         log("&bEita, verificamos que ocorreu um erro, &fvoltando para a coordenada &f&lZ&f."); //voltando pra cord Z
  410.                                         do;
  411.                                         look(SOUTH);
  412.                                         keydown(forward);
  413.                                         keydown(sneak);
  414.                                         until(%ZPOS% = %#irpedra2%);
  415.                                         keyup(forward);
  416.                                         keyup(sneak);
  417.                                         look(0,335);
  418.                                         gui(inventory);
  419.                                         do(4);key(use);wait(3);loop;
  420.                                         gui;
  421.                                         log(&f&lPedra comprada com sucesso!);                              
  422.                                         elseif(%ZPOS% > %#irpedra2%);
  423.                                         log("&bEita, verificamos que ocorreu um erro, &fvoltando para a coordenada &f&lZ&f."); //voltando pra cord Z
  424.                                         do;
  425.                                         look(NORTH);
  426.                                         keydown(sneak);
  427.                                         keydown(forward);
  428.                                         until(%ZPOS% = %#irpedra2%);
  429.                                         keyup(forward);
  430.                                         keyup(sneak);
  431.                                         look(0,335);
  432.                                         gui(inventory);
  433.                                         do(4);key(use);wait(3);loop;
  434.                                         gui;
  435.                                         log(&f&lPedra comprada com sucesso!);
  436.                                         endif;
  437.                                            endif;
  438.                                        
  439.                                         wait(1);echo(/home t1);wait(2);#comprarpedra=0;
  440.  
  441. endif;
  442.  
  443. elseif(#comprarpedras=2);
  444. if((%ITEM%!=1)||(%STACKSIZE%<3));do;log("&1ACABOU PEDRA, PARE A MACRO!);wait(1);loop;endif;
  445. endif;
  446.  
  447. if(%#vai%=1);
  448. look(%&olhar%);
  449.         pick(1);wait(1ms);
  450.         do;look(,80);pick(1);
  451.         look(,80);keydown(sneak);pick(1);keydown(back);pick(1);key(use);until(%HITID%!=3);pick(1);wait(1ms);pick(1);
  452.         look(,80);pick(1);wait(1ms);pick(1)
  453.         do;look(,80);keydown(sneak);pick(1);keydown(back);pick(1);key(use);pick(1);until(%HITID%!=3);pick(1)
  454.         do;look(,80);keydown(sneak);pick(1);keydown(back);pick(1);key(use);pick(1);until(%HITID%=3);pick(1);wait(30ms);pick(1);keyup(back);pick(1)
  455.         echo(/sethome t2);
  456.         pick(278);
  457.         look(,0);
  458.         do;look(,+1);until(%HITID%=1);
  459.         do;key(attack);until(%HITID%!=1);
  460.         do;look(,+1);until(%HITID%=1);
  461.         do;key(attack);until(%HITID%!=1);
  462.         do;look(,+1);until(%HITID%=1);
  463.         do;key(attack);until(%HITID%!=1);
  464.         wait(500ms);
  465.         #xp=%XPOS%;#xz=%ZPOS%;
  466.         echo(/home t1);
  467.         do;until((%XPOS%!=%#xp%)||(%ZPOS%!=%#zp%));wait(1);
  468. elseif(%#vai%!=1);
  469. log("Não há terras ao redor, parando macro..");
  470. unset(cacto);stop;
  471. endif;
  472.  
  473.  
  474. #construir=%#andares%;
  475. //torre
  476. do(%#construir%);
  477. #yp=%YPOS%;
  478. pick(3);look(90,90);keydown(JUMP);wait(200ms);key(use);keyup(JUMP);wait(400ms);
  479. wait(600ms);
  480. //evitar erros
  481. if(%YPOS%=%#yp%);
  482. pick(3);look(90,90);keydown(JUMP);wait(200ms);key(use);keyup(JUMP);wait(400ms);
  483. endif;
  484. echo(/sethome temp2);
  485.  
  486. keydown(sneak);
  487. look(90,80);pick(3);keydown(back);wait(800ms);keyup(back);key(use);wait(400ms);
  488. look(270,80);pick(3);keydown(back);wait(1600ms);keyup(back);wait(100ms);key(use);wait(400ms);
  489. look(90,80);keydown(back);wait(680ms);keyup(back);wait(400ms);
  490. look(0,80);pick(3);keydown(back);wait(800ms);keyup(back);wait(100ms);key(use);wait(400ms);
  491. look(180,80);pick(3);keydown(back);wait(1600ms);keyup(back);key(use);wait(400ms);
  492. look(0,80);keydown(back);wait(680ms);keyup(back);wait(400ms);
  493. keyup(sneak);
  494.  
  495. //parte para evitar erros
  496. getidrel(-1,-1,0,#id);
  497. if(%#id%!=3);
  498. pick(3);
  499. look(90,80);
  500. keydown(sneak);
  501. keydown(back);
  502. wait(1500ms);
  503. keyup(back);
  504. keyup(sneak);
  505. key(use);
  506. keydown(sneak);
  507. keydown(forward);
  508. wait(680ms);
  509. keyup(sneak);
  510. keyup(forward);
  511. endif;
  512. getidrel(0,-1,1,#id);
  513. if(%#id%!=3);
  514. pick(3);
  515. look(0,80);
  516. keydown(sneak);
  517. keydown(back);
  518. wait(1500ms);
  519. keyup(back);
  520. keyup(sneak);
  521. key(use);
  522. keydown(sneak);
  523. keydown(forward);
  524. wait(680ms);
  525. keyup(sneak);
  526. keyup(forward);
  527. endif;
  528. getidrel(+1,-1,0,#id);
  529. if(%#id%!=3);
  530. pick(3);
  531. look(270,80);
  532. keydown(sneak);
  533. keydown(back);
  534. wait(1500ms);
  535. keyup(back);
  536. keyup(sneak);
  537. key(use);
  538. keydown(sneak);
  539. keydown(forward);
  540. wait(680ms);
  541. keyup(sneak);
  542. keyup(forward);
  543. endif;
  544. getidrel(0,-1,-1,#id);
  545. if(%#id%!=3);
  546. pick(3);
  547. look(180,80);
  548. keydown(sneak);
  549. keydown(back);
  550. wait(1500ms);
  551. keyup(back);
  552. keyup(sneak);
  553. key(use);
  554. keydown(sneak);
  555. keydown(forward);
  556. wait(680ms);
  557. keyup(sneak);
  558. keyup(forward);
  559. endif;
  560.  
  561. do(4);pick(12);look(+90,60);wait(100ms);key(use);wait(350ms);loop;
  562. do(3);pick(3);look(90,90);keydown(jump);wait(200ms);key(use);keyup(jump);wait(400ms);loop;
  563. keydown(sneak);look(90,84);keydown(back);wait(1);keyup(back);wait(200ms);keyup(sneak);wait(1);
  564. do;pick(277);key(attack);look(90,84);wait(1);until(%HITID%=0);
  565.  
  566. keydown(sneak);
  567. look(+0,90);pick(81);wait(50ms);key(use);wait(300ms);
  568. look(150,69);pick(81);wait(50ms);key(use);wait(300ms);
  569. look(23,69);pick(81);wait(50ms);key(use);wait(300ms);look(270,90);
  570. keydown(sneak);keydown(back);wait(1300ms);keyup(back);wait(400ms);keyup(sneak);
  571. look(+0,90);pick(81);wait(50ms);key(use);wait(300ms);
  572. keyup(sneak);
  573. look(90,90);
  574. keydown(sneak);keydown(back);wait(600ms);keyup(back);wait(400ms);keyup(sneak);
  575. echo(/fix all);wait(300ms);
  576. log(&aAndar concluido.);
  577. echo(/sethome temp);
  578. wait(800ms);
  579. echo(/desbugar);
  580.  
  581. //verificando se há erros
  582.  
  583. getidrel(-1,-4,0,#id);
  584. if(%#id%!=3);
  585. wait(300ms);
  586. echo(/home temp2);
  587. wait(2);
  588. getidrel(-1,-1,0,#id);
  589. if(%#id%!=3);
  590. pick(3);
  591. look(90,80);
  592. keydown(sneak);
  593. keydown(back);
  594. wait(1500ms);
  595. keyup(back);
  596. keyup(sneak);
  597. key(use);
  598. wait(300ms);
  599. keydown(sneak);
  600. keydown(forward);
  601. wait(680ms);
  602. keyup(sneak);
  603. keyup(forward);
  604. endif;
  605. getidrel(0,-1,1,#id);
  606. if(%#id%!=3);
  607. pick(3);
  608. look(0,80);
  609. keydown(sneak);
  610. keydown(back);
  611. wait(1500ms);
  612. keyup(back);
  613. keyup(sneak);
  614. wait(300ms);
  615. key(use);
  616. keydown(sneak);
  617. keydown(forward);
  618. wait(680ms);
  619. keyup(sneak);
  620. keyup(forward);
  621. endif;
  622. getidrel(+1,-1,0,#id);
  623. if(%#id%!=3);
  624. pick(3);
  625. look(270,80);
  626. keydown(sneak);
  627. keydown(back);
  628. wait(1500ms);
  629. keyup(back);
  630. keyup(sneak);
  631. wait(300ms);
  632. key(use);
  633. keydown(sneak);
  634. keydown(forward);
  635. wait(680ms);
  636. keyup(sneak);
  637. keyup(forward);
  638. endif;
  639. getidrel(0,-1,-1,#id);
  640. if(%#id%!=3);
  641. pick(3);
  642. look(180,80);
  643. keydown(sneak);
  644. keydown(back);
  645. wait(1500ms);
  646. keyup(back);
  647. keyup(sneak);
  648. wait(300ms);
  649. key(use);
  650. keydown(sneak);
  651. keydown(forward);
  652. wait(680ms);
  653. keyup(sneak);
  654. keyup(forward);
  655. endif;
  656. endif;
  657.  
  658. getidrel(0,-4,+1,#id);
  659. if(%#id%!=3);
  660. wait(300ms);
  661. echo(/home temp2);
  662. getidrel(-1,-1,0,#id);
  663. if(%#id%!=3);
  664. pick(3);
  665. look(90,80);
  666. keydown(sneak);
  667. keydown(back);
  668. wait(1500ms);
  669. keyup(back);
  670. keyup(sneak);
  671. wait(300ms);
  672. key(use);
  673. keydown(sneak);
  674. keydown(forward);
  675. wait(680ms);
  676. keyup(sneak);
  677. keyup(forward);
  678. endif;
  679. getidrel(0,-1,1,#id);
  680. if(%#id%!=3);
  681. pick(3);
  682. look(0,80);
  683. keydown(sneak);
  684. keydown(back);
  685. wait(1500ms);
  686. keyup(back);
  687. keyup(sneak);
  688. wait(300ms);
  689. key(use);
  690. keydown(sneak);
  691. keydown(forward);
  692. wait(680ms);
  693. keyup(sneak);
  694. keyup(forward);
  695. endif;
  696. getidrel(+1,-1,0,#id);
  697. if(%#id%!=3);
  698. pick(3);
  699. look(270,80);
  700. keydown(sneak);
  701. keydown(back);
  702. wait(1500ms);
  703. keyup(back);
  704. keyup(sneak);
  705. wait(300ms);
  706. key(use);
  707. keydown(sneak);
  708. keydown(forward);
  709. wait(680ms);
  710. keyup(sneak);
  711. keyup(forward);
  712. endif;
  713. getidrel(0,-1,-1,#id);
  714. if(%#id%!=3);
  715. pick(3);
  716. look(180,80);
  717. keydown(sneak);
  718. keydown(back);
  719. wait(1500ms);
  720. keyup(back);
  721. keyup(sneak);
  722. wait(300ms);
  723. key(use);
  724. keydown(sneak);
  725. keydown(forward);
  726. wait(680ms);
  727. keyup(sneak);
  728. keyup(forward);
  729. endif;
  730. endif;
  731.  
  732. getidrel(+1,-4,0,#id);
  733. if(%#id%!=3);
  734. wait(300ms);
  735. echo(/home temp2);
  736. wait(2);
  737. getidrel(-1,-1,0,#id);
  738. if(%#id%!=3);
  739. pick(3);
  740. look(90,80);
  741. keydown(sneak);
  742. keydown(back);
  743. wait(1500ms);
  744. keyup(back);
  745. keyup(sneak);
  746. wait(300ms);
  747. key(use);
  748. keydown(sneak);
  749. keydown(forward);
  750. wait(680ms);
  751. keyup(sneak);
  752. keyup(forward);
  753. endif;
  754. getidrel(0,-1,1,#id);
  755. if(%#id%!=3);
  756. pick(3);
  757. look(0,80);
  758. keydown(sneak);
  759. keydown(back);
  760. wait(1500ms);
  761. keyup(back);
  762. keyup(sneak);
  763. wait(300ms);
  764. key(use);
  765. keydown(sneak);
  766. keydown(forward);
  767. wait(680ms);
  768. keyup(sneak);
  769. keyup(forward);
  770. endif;
  771. getidrel(+1,-1,0,#id);
  772. if(%#id%!=3);
  773. pick(3);
  774. look(270,80);
  775. keydown(sneak);
  776. keydown(back);
  777. wait(1500ms);
  778. keyup(back);
  779. keyup(sneak);
  780. wait(300ms);
  781. key(use);
  782. keydown(sneak);
  783. keydown(forward);
  784. wait(680ms);
  785. keyup(sneak);
  786. keyup(forward);
  787. endif;
  788. getidrel(0,-1,-1,#id);
  789. if(%#id%!=3);
  790. pick(3);
  791. look(180,80);
  792. keydown(sneak);
  793. keydown(back);
  794. wait(1500ms);
  795. keyup(back);
  796. keyup(sneak);
  797. wait(300ms);
  798. key(use);
  799. keydown(sneak);
  800. keydown(forward);
  801. wait(680ms);
  802. keyup(sneak);
  803. keyup(forward);
  804. endif;
  805. endif;
  806.  
  807. getidrel(0,-4,-1,#id);
  808. if(%#id%!=3);
  809. wait(300ms);
  810. echo(/home temp2);
  811. wait(2);
  812. getidrel(-1,-1,0,#id);
  813. if(%#id%!=3);
  814. pick(3);
  815. look(90,80);
  816. keydown(sneak);
  817. keydown(back);
  818. wait(1500ms);
  819. keyup(back);
  820. keyup(sneak);
  821. wait(300ms);
  822. key(use);
  823. keydown(sneak);
  824. keydown(forward);
  825. wait(680ms);
  826. keyup(sneak);
  827. keyup(forward);
  828. endif;
  829. getidrel(0,-1,1,#id);
  830. if(%#id%!=3);
  831. pick(3);
  832. look(0,80);
  833. keydown(sneak);
  834. keydown(back);
  835. wait(1500ms);
  836. keyup(back);
  837. keyup(sneak);
  838. wait(300ms);
  839. key(use);
  840. keydown(sneak);
  841. keydown(forward);
  842. wait(680ms);
  843. keyup(sneak);
  844. keyup(forward);
  845. endif;
  846. getidrel(+1,-1,0,#id);
  847. if(%#id%!=3);
  848. pick(3);
  849. look(270,80);
  850. keydown(sneak);
  851. keydown(back);
  852. wait(1500ms);
  853. keyup(back);
  854. keyup(sneak);
  855. wait(300ms);
  856. key(use);
  857. keydown(sneak);
  858. keydown(forward);
  859. wait(680ms);
  860. keyup(sneak);
  861. keyup(forward);
  862. endif;
  863. getidrel(0,-1,-1,#id);
  864. if(%#id%!=3);
  865. pick(3);
  866. look(180,80);
  867. keydown(sneak);
  868. keydown(back);
  869. wait(1500ms);
  870. keyup(back);
  871. keyup(sneak);
  872. wait(300ms);
  873. key(use);
  874. keydown(sneak);
  875. keydown(forward);
  876. wait(680ms);
  877. keyup(sneak);
  878. keyup(forward);
  879. endif;
  880. endif;
  881.  
  882. echo(/home temp);
  883. wait(750ms);
  884.  
  885. //verificando se ainda há outros erros
  886. getidrel(1,-3,0,#id);
  887. if(%#id% != 12);keydown(sneak);pick(12);
  888. look(270,80);wait(50ms);keydown(back);wait(1300ms);keyup(back);wait(200ms);key(use);wait(500ms);
  889. look(90,90);keydown(back);wait(600ms);keyup(back);keyup(sneak);wait(250ms);keydown(sneak);endif;
  890. getidrel(-1,-3,0,#id);
  891. if(%#id% != 12);keydown(sneak);pick(12);
  892. look(90,80);wait(50ms);keydown(back);wait(1300ms);keyup(back);wait(200ms);key(use);wait(500ms);
  893. look(270,90);keydown(back);wait(600ms);keyup(back);keyup(sneak);wait(250ms);keydown(sneak);endif;
  894. getidrel(0,-3,-1,#id);
  895. if(%#id% != 12);keydown(sneak);pick(12);
  896. look(180,80);wait(50ms);keydown(back);wait(1300ms);keyup(back);wait(200ms);key(use);wait(500ms);
  897. look(0,90);keydown(back);wait(600ms);keyup(back);keyup(sneak);wait(250ms);keydown(sneak);endif;
  898. getidrel(0,-3,1,#id);
  899. if(%#id% != 12);keydown(sneak);pick(12);
  900. look(0,80);wait(50ms);keydown(back);wait(1300ms);keyup(back);wait(200ms);key(use);wait(500ms);
  901. look(180,90);keydown(back);wait(600ms);keyup(back);keyup(sneak);wait(250ms);keydown(sneak);endif;
  902. getidrel(1,-2,0,#id);
  903. if(%#id% != 81);pick(81);
  904. look(90,90);
  905. keydown(sneak);keydown(forward);wait(800ms);key(use);keyup(forward);
  906. keydown(back);wait(600ms);keyup(back);keyup(sneak);wait(250ms);endif;
  907. getidrel(-1,-2,0,#id);
  908. if(%#id% != 81);pick(81);
  909. look(270,90);
  910. keydown(sneak);keydown(forward);wait(800ms);key(use);keyup(forward);
  911. keydown(back);wait(600ms);keyup(back);keyup(sneak);wait(250ms);endif;
  912. getidrel(0,-2,-1,#id);
  913. if(%#id% != 81);pick(81);
  914. look(0,90);
  915. keydown(sneak);keydown(forward);wait(800ms);key(use);keyup(forward);
  916. keydown(back);wait(600ms);keyup(back);keyup(sneak);wait(250ms);endif;
  917. getidrel(0,-2,1,#id);
  918. if(%#id% != 81);pick(81);
  919. look(180,90);
  920. keydown(sneak);keydown(forward);wait(800ms);key(use);keyup(forward);
  921. keydown(back);wait(600ms);keyup(back);keyup(sneak);wait(250ms);
  922. log(&aAndar corrigido.);
  923. endif;
  924.  
  925. wait(750ms);
  926.  
  927. if((%HUNGER%<8)&&(%#vip%=1));wait(500ms);echo(/fome);
  928. elseif((%HUNGER%<8)&&(%#vip%=2));
  929. echo(/sethome temp);wait(2);
  930. echo(/warp loja);
  931. wait(2);
  932. do;until(%HUNGER%=20);
  933. echo(/home temp);
  934. wait(2);
  935. endif;
  936.  
  937.  
  938. //verificando invetário
  939. gui(inventory);wait(1);
  940. //areia repondo
  941. pick(12);
  942. if(%STACKSIZE%<15);
  943. for(#i,9,35);
  944. getslotitem(%#i%,#id);
  945. if(%#id%=12);
  946. slotclick(%#i%,l,true);
  947. wait(40ms);
  948. endif;
  949. next;
  950. wait(100ms);
  951. if(%STACKSIZE%<9);#faltaareia=1;#falta=1;endif;
  952. endif;
  953.  
  954. //terra repondo
  955. pick(3);
  956. if(%STACKSIZE%<15);
  957. for(#i,9,35);
  958. getslotitem(%#i%,#id);
  959. if(%#id%=3);
  960. slotclick(%#i%,l,true);
  961. wait(40ms);
  962. endif;
  963. next;
  964. wait(100ms);
  965. if(%STACKSIZE%<9);#faltaterra=1;#falta=1;endif;
  966. endif;
  967.  
  968. //cacto repondo
  969. pick(81);wait(100ms);
  970. if(%STACKSIZE%<15);
  971. for(#i,9,35);
  972. getslotitem(%#i%,#id);
  973. if(%#id%=81);
  974. slotclick(%#i%,l,true);
  975. wait(40ms);
  976. endif;
  977. next;
  978. wait(100ms);
  979. if(%STACKSIZE%<9);#faltacacto=1;#falta=1;endif;
  980. endif;
  981.  
  982. //pedra repondo
  983. pick(1);wait(100ms);
  984. if(%STACKSIZE%<15);
  985. for(#i,9,35);
  986. getslotitem(%#i%,#id);
  987. if(%#id%=1);
  988. slotclick(%#i%,l,true);
  989. wait(40ms);
  990. endif;
  991. next;
  992. endif;
  993. gui;
  994.  
  995. if(%#antireset%=1);
  996. log(verificando hora);
  997. @#resetcacto=1;
  998. do;until(@#resetcacto=0);
  999. prompt(#horinha,$$?,"verificando hora atual,não toque no teclado!");
  1000. if((#horinha>0548)&&(#horinha<0559));
  1001.     log(esperando server reiniciar);
  1002.     #posiqueparou=%XPOS%;#posiqueparou2=%ZPOS%;
  1003.     do;wait(2);log(esperando server reiniciar);until((%XPOS%=1)&&(%ZPOS%=1));do;until((%XPOS%=%#posiqueparou%)&&(%ZPOS%=%#posiqueparou2%));
  1004.     log(retornando a macro...);wait(3);
  1005. elseif((#horinha>1148)&&(#horinha<1159));
  1006.     log(esperando server reiniciar);
  1007.     #posiqueparou=%XPOS%;#posiqueparou2=%ZPOS%;
  1008.     do;wait(2);log(esperando server reiniciar);until((%XPOS%=1)&&(%ZPOS%=1));do;until((%XPOS%=%#posiqueparou%)&&(%ZPOS%=%#posiqueparou2%));
  1009.     log(retornando a macro...);wait(3);
  1010. elseif((#horinha>2148)&&(#horinha<2159));
  1011.     log(esperando server reiniciar);
  1012.     #posiqueparou=%XPOS%;#posiqueparou2=%ZPOS%;
  1013.     do;wait(2);log(esperando server reiniciar);until((%XPOS%=1)&&(%ZPOS%=1));do;until((%XPOS%=%#posiqueparou%)&&(%ZPOS%=%#posiqueparou2%));
  1014.     log(retornando a macro...);wait(3);
  1015. endif;
  1016. endif;
  1017.  
  1018. if(#falta=1);
  1019.        
  1020.         log(Indo para o armazem!);
  1021.         echo(/home armazem);
  1022.         wait(2);
  1023.         look(WEST);
  1024.         log(&1EVITANDO BUGS!);
  1025.         do(5);keydown(jump);wait(70ms);keyup(jump);loop;
  1026.         log("&5LEMBRE,SUA HOME DEVE ESTAR OLHANDO PARA WEST&2,&4apenas ignore se já estiver..");
  1027.  
  1028.         getidrel(-2,+1,0,#hitid);
  1029.  
  1030.         if((%#hitid%!=54)&&(%#hitid%!=146));
  1031.         &meliante=%HITNAME%;
  1032.         echo("%&meliante%, por favor saia da frente, você está atrapalhando o funcionamento da macro");
  1033.         echo(/warp loja);wait(60);
  1034.         echo(/home armazem);wait(3);
  1035.         echo(/desbugar);wait(3);
  1036.         look(WEST);
  1037.         log(&1EVINTANDO BUGS!);
  1038.         do(5);keydown(jump);wait(70ms);keyup(jump);loop;
  1039.         log("&5LEMBRE,SUA HOME DEVE ESTAR OLHANDO PARA WEST&2,&4apenas ignore se já estiver..");
  1040.         endif;
  1041.  
  1042.         getidrel(-2,+1,0,#verificandobaus);
  1043.         if((%#verificandobaus%!=54)&&(%#verificandobaus%!=146));
  1044.         log("Armazem não foi encontrado, parando macro");
  1045.         echo(/spawn);
  1046.         unset(cacto);stop;
  1047.         endif;
  1048. //////////////////////////////////////////////
  1049.  
  1050. ////////////////////////////////////////////
  1051.  
  1052. if(#faltaareia=1);
  1053.  
  1054.  
  1055. #bauareia=1;
  1056.  
  1057. do;
  1058.    
  1059. ////////////
  1060.  
  1061. if(#bauareia=1);#bauareiay=145;#bauareiap=30;
  1062. elseif(#bauareia=2);#bauareiay=180;#bauareiap=35;
  1063. elseif(#bauareia=3);#bauareiay=210;#bauareiap=30;
  1064. elseif(#bauareia=4);#bauareiay=145;#bauareiap=5;
  1065. elseif(#bauareia=5);#bauareiay=180;#bauareiap=5;
  1066. elseif(#bauareia=6);#bauareiay=210;#bauareiap=5;
  1067. elseif(#bauareia=7);#bauareiay=145;#bauareiap=340;
  1068. elseif(#bauareia=8);#bauareiay=180;#bauareiap=335;
  1069. elseif(#bauareia=9);#bauareiay=210;#bauareiap=335;
  1070. elseif(#bauareia>9);#comprarareia=1;endif;
  1071.  
  1072. ////////////
  1073.  
  1074.                 log(repondo areia!);wait(2);
  1075.                  
  1076.                
  1077.                 #pegouareia=0;
  1078.                
  1079.                
  1080.                 look(south);wait(5ms);
  1081.                 look(%#bauareiay%,%#bauareiap%);          
  1082.                                    
  1083.                 endif;
  1084.                                
  1085.                 wait(500ms);
  1086.                 pick(277);wait(3ms);do;key(use);wait(300ms);until(%GUI%="GUICHEST");
  1087.                 pick(12);wait(20ms);
  1088.                     for(#i,0,54);
  1089.                         getslotitem(%#i%,#id);
  1090.                         if(#pegouareia>8);break;endif;
  1091.                         if(%#id%=12);
  1092.                             #pegouareia=%#pegouareia%+1;
  1093.                             slotclick(%#i%,l,true);
  1094.                             wait(75ms);
  1095.                            
  1096.                         endif;
  1097.                     next;
  1098.                     gui;
  1099.                     if(%STACKSIZE%<9);gui();wait(20ms);#bauareia=%#bauareia%+1;#faltaareia=1;endif;
  1100.                     if(%STACKSIZE%>9);#faltaareia=0;LOG(AREIA OK);gui();echo(/home temp);wait(2);endif;
  1101.                     if(#bauareia>9);#comprarareia=1;#faltaareia=1;endif;
  1102.            
  1103. //
  1104. if((#comprarareia=1)&&(#vip=1));
  1105.  
  1106. if(%#antireset%=1);
  1107. log(verificando hora);
  1108. @#resetcacto=1;
  1109. do;until(@#resetcacto=0);
  1110. prompt(#horinha,$$?,"verificando hora atual,não toque no teclado!");
  1111. if((#horinha>0548)&&(#horinha<0559));
  1112.     log(esperando server reiniciar);
  1113.     #posiqueparou=%XPOS%;#posiqueparou2=%ZPOS%;
  1114.     do;wait(2);log(esperando server reiniciar);until((%XPOS%=1)&&(%ZPOS%=1));do;until((%XPOS%=%#posiqueparou%)&&(%ZPOS%=%#posiqueparou2%));
  1115.     log(retornando a macro...);wait(3);
  1116. elseif((#horinha>1148)&&(#horinha<1159));
  1117.     log(esperando server reiniciar);
  1118.     #posiqueparou=%XPOS%;#posiqueparou2=%ZPOS%;
  1119.     do;wait(2);log(esperando server reiniciar);until((%XPOS%=1)&&(%ZPOS%=1));do;until((%XPOS%=%#posiqueparou%)&&(%ZPOS%=%#posiqueparou2%));
  1120.     log(retornando a macro...);wait(3);
  1121. elseif((#horinha>2148)&&(#horinha<2159));
  1122.     log(esperando server reiniciar);
  1123.     #posiqueparou=%XPOS%;#posiqueparou2=%ZPOS%;
  1124.     do;wait(2);log(esperando server reiniciar);until((%XPOS%=1)&&(%ZPOS%=1));do;until((%XPOS%=%#posiqueparou%)&&(%ZPOS%=%#posiqueparou2%));
  1125.     log(retornando a macro...);wait(3);
  1126. endif;
  1127. endif;
  1128.  
  1129. log("Comprando areia");
  1130.  
  1131.  
  1132.                 echo(/warp lojavip);wait(2);do(2);keydown(jump);wait(500ms);keyup(jump);loop;wait(2);    
  1133.  
  1134.  
  1135.                                         #vaiolhary=300;
  1136.                                         #vaiolharp=0;
  1137.                                          
  1138.                                          
  1139.                                         look(%#vaiolhary%,%#vaiolharp%);
  1140.                                          
  1141.                                         //indo até a areia
  1142.                                          
  1143.                                         do;
  1144.                                         #irareia=3948
  1145.                                         #irareia2=1330;
  1146.                                         look(%#vaiolhary%,%#vaiolharp%);
  1147.                                         sprint;
  1148.                                         keydown(forward);
  1149.                                         if((%XPOS% = 3948)&&(%ZPOS% = 1326));
  1150.                                         unsprint;keyup(forward);
  1151.                                         do;keydown(sneak);keydown(forward);look(180,0);
  1152.                                         until((%XPOS%=%#irareia%)&&(%ZPOS%=%#irareia2%));
  1153.                                         endif;
  1154.                                         until((%XPOS% = %#irareia%)&&(%ZPOS% = %#irareia2%));
  1155.                                         unsprint;
  1156.                                         keyup(forward);
  1157.                                          
  1158.                                         look(180,305);
  1159.                                         gui(inventory);
  1160.                                         do(7);key(use);wait(3);loop;
  1161.                                         gui;
  1162.                                         log(&f&lAreia comprada com sucesso!);
  1163.                                        
  1164.                                         wait(1);
  1165.                                        
  1166.                                         //verificando se a posição X passou e voltando
  1167.                                            if(%XPOS% != %#irareia%);
  1168.                                         if(%XPOS% < %#irareia%);
  1169.                                         log("&bEita, verificamos que ocorreu um erro, &fvoltando para a coordenada &f&lX&f."); //voltando pra cord X
  1170.                                         do;
  1171.                                         look(EAST);
  1172.                                         keydown(sneak);
  1173.                                         keydown(forward);
  1174.                                         until(%XPOS% = %#irareia%);
  1175.                                         keyup(forward);
  1176.                                         keyup(sneak);
  1177.                                         look(180,305);
  1178.                                         gui(inventory);
  1179.                                         do(7);key(use);wait(3);loop;
  1180.                                         gui;
  1181.                                         log(&f&lAreia comprada com sucesso!);
  1182.                                         elseif(%XPOS% > %#irareia%);
  1183.                                         log("&bEita, verificamos que ocorreu um erro, &fvoltando para a coordenada &f&lX&f."); //voltando pra cord X
  1184.                                         do;
  1185.                                         look(WEST);
  1186.                                         keydown(sneak);
  1187.                                         keydown(forward);
  1188.                                         until(%XPOS% = %#irpedra%);
  1189.                                         keyup(forward);
  1190.                                         keyup(sneak);
  1191.                                         look(180,305);
  1192.                                         gui(inventory);
  1193.                                         do(7);key(use);wait(3);loop;
  1194.                                         gui;
  1195.                                         log(&f&lAreia comprada com sucesso!);
  1196.                                         endif;
  1197.                                            endif;
  1198.                                        
  1199.                                                
  1200.                                          
  1201.                                         //verificando se a posição Z passou e voltando
  1202.                                            if(%ZPOS% != %#irareia2%);
  1203.                                         if(%ZPOS% < %#irareia2%);
  1204.                                         log("&bEita, verificamos que ocorreu um erro, &fvoltando para a coordenada &f&lZ&f."); //voltando pra cord Z
  1205.                                         do;
  1206.                                         look(SOUTH);
  1207.                                         keydown(forward);
  1208.                                         keydown(sneak);
  1209.                                         until(%ZPOS% = %#irpedra2%);
  1210.                                         keyup(forward);
  1211.                                         keyup(sneak);
  1212.                                         look(180,305);
  1213.                                         gui(inventory);
  1214.                                         do(7);key(use);wait(3);loop;
  1215.                                         gui;
  1216.                                         log(&f&lAreia comprada com sucesso!);
  1217.                                         elseif(%ZPOS% > %#irareia2%);
  1218.                                         log("&bEita, verificamos que ocorreu um erro, &fvoltando para a coordenada &f&lZ&f."); //voltando pra cord Z
  1219.                                         do;
  1220.                                         look(NORTH);
  1221.                                         keydown(sneak);
  1222.                                         keydown(forward);
  1223.                                         until(%ZPOS% = %#irareia2%);
  1224.                                         keyup(forward);
  1225.                                         keyup(sneak);
  1226.                                         look(180,305);
  1227.                                         gui(inventory);
  1228.                                         do(7);key(use);wait(3);loop;
  1229.                                         gui;
  1230.                                         log(&f&lAreia comprada com sucesso!);
  1231.                                         endif;
  1232.                                            endif;
  1233.                                                      
  1234.                     wait(1);echo(/home temp);wait(2);#comprarareia=0;#faltaareia=0;
  1235.  
  1236.                                        
  1237. elseif((#comprarareia=1)&&(#vip=2));
  1238.  
  1239. if(%#antireset%=1);
  1240. log(verificando hora);
  1241. @#resetcacto=1;
  1242. do;until(@#resetcacto=0);
  1243. prompt(#horinha,$$?,"verificando hora atual,não toque no teclado!");
  1244. if((#horinha>0548)&&(#horinha<0559));
  1245.     log(esperando server reiniciar);
  1246.     #posiqueparou=%XPOS%;#posiqueparou2=%ZPOS%;
  1247.     do;wait(2);log(esperando server reiniciar);until((%XPOS%=1)&&(%ZPOS%=1));do;until((%XPOS%=%#posiqueparou%)&&(%ZPOS%=%#posiqueparou2%));
  1248.     log(retornando a macro...);wait(3);
  1249. elseif((#horinha>1148)&&(#horinha<1159));
  1250.     log(esperando server reiniciar);
  1251.     #posiqueparou=%XPOS%;#posiqueparou2=%ZPOS%;
  1252.     do;wait(2);log(esperando server reiniciar);until((%XPOS%=1)&&(%ZPOS%=1));do;until((%XPOS%=%#posiqueparou%)&&(%ZPOS%=%#posiqueparou2%));
  1253.     log(retornando a macro...);wait(3);
  1254. elseif((#horinha>2148)&&(#horinha<2159));
  1255.     log(esperando server reiniciar);
  1256.     #posiqueparou=%XPOS%;#posiqueparou2=%ZPOS%;
  1257.     do;wait(2);log(esperando server reiniciar);until((%XPOS%=1)&&(%ZPOS%=1));do;until((%XPOS%=%#posiqueparou%)&&(%ZPOS%=%#posiqueparou2%));
  1258.     log(retornando a macro...);wait(3);
  1259. endif;
  1260. endif;
  1261.  
  1262. log("Comprando areia");
  1263.  
  1264.                 echo(/warp loja);wait(2);do(2);keydown(jump);wait(500ms);keyup(jump);loop;wait(2);    
  1265.  
  1266.  
  1267.                                         #vaiolhary=195;
  1268.                                         #vaiolharp=0;
  1269.                                          
  1270.                                          
  1271.                                         look(%#vaiolhary%,%#vaiolharp%);
  1272.                                          
  1273.                                         //indo até a areia
  1274.                                          
  1275.                                         do;
  1276.                                         #irareia=3683;
  1277.                                         #irareia2=990;
  1278.                                         look(%#vaiolhary%,%#vaiolharp%);
  1279.                                         sprint;
  1280.                                         keydown(forward);
  1281.                                         if((%XPOS% = 3681)&&(%ZPOS% = 952));
  1282.                                         keydown(jump);wait(250ms);keyup(jump);
  1283.                                         endif;
  1284.                                         until((%XPOS% = %#irareia%)&&(%ZPOS% = %#irareia2%));
  1285.                                         unsprint;
  1286.                                         keyup(forward);
  1287.                                          
  1288.                                         look(180,330);
  1289.                                         gui(inventory);
  1290.                                         do(7);key(use);wait(3);loop;
  1291.                                         gui;
  1292.                                         log(&f&lAreia comprada com sucesso!);
  1293.                                        
  1294.                                         wait(1);
  1295.                                          
  1296.                                         //verificando se a posição X passou e voltando
  1297.                                            if(%XPOS% != %#irareia%);
  1298.                                         if(%XPOS% < %#irareia%);
  1299.                                         log("&bEita, verificamos que ocorreu um erro, &fvoltando para a coordenada &f&lX&f."); //voltando pra cord X
  1300.                                         do;
  1301.                                         look(EAST);
  1302.                                         keydown(sneak);
  1303.                                         keydown(forward);
  1304.                                         until(%XPOS% = %#irareia%);
  1305.                                         keyup(forward);
  1306.                                         keyup(sneak);
  1307.                                         look(180,330);
  1308.                                         gui(inventory);
  1309.                                         do(7);key(use);wait(3);loop;
  1310.                                         gui;
  1311.                                         log(&f&lAreia comprada com sucesso!);
  1312.                                         elseif(%XPOS% > %#irareia%);
  1313.                                         log("&bEita, verificamos que ocorreu um erro, &fvoltando para a coordenada &f&lX&f."); //voltando pra cord X
  1314.                                         do;
  1315.                                         look(WEST);
  1316.                                         keydown(sneak);
  1317.                                         keydown(forward);
  1318.                                         until(%XPOS% = %#irareia%);
  1319.                                         keyup(forward);
  1320.                                         keyup(sneak);
  1321.                                         look(180,330);
  1322.                                         gui(inventory);
  1323.                                         do(7);key(use);wait(3);loop;
  1324.                                         gui;
  1325.                                         log(&f&lAreia comprada com sucesso!);
  1326.                                         endif;
  1327.                                            endif;
  1328.                                        
  1329.                                                
  1330.                                          
  1331.                                         //verificando se a posição Z passou e voltando
  1332.                                            if(%ZPOS% != %#irareia2%);
  1333.                                         if(%ZPOS% < %#irareia2%);
  1334.                                         log("&bEita, verificamos que ocorreu um erro, &fvoltando para a coordenada &f&lZ&f."); //voltando pra cord Z
  1335.                                         do;
  1336.                                         look(SOUTH);
  1337.                                         keydown(forward);
  1338.                                         keydown(sneak);
  1339.                                         until(%ZPOS% = %#irareia2%);
  1340.                                         keyup(forward);
  1341.                                         keyup(sneak);
  1342.                                         look(180,330);
  1343.                                         gui(inventory);
  1344.                                         do(7);key(use);wait(3);loop;
  1345.                                         gui;
  1346.                                         log(&f&lAreia comprada com sucesso!);                              
  1347.                                         elseif(%ZPOS% > %#irareia2%);
  1348.                                         log("&bEita, verificamos que ocorreu um erro, &fvoltando para a coordenada &f&lZ&f."); //voltando pra cord Z
  1349.                                         do;
  1350.                                         look(NORTH);
  1351.                                         keydown(sneak);
  1352.                                         keydown(forward);
  1353.                                         until(%ZPOS% = %#irareia2%);
  1354.                                         keyup(forward);
  1355.                                         keyup(sneak);
  1356.                                         look(180,330);
  1357.                                         gui(inventory);
  1358.                                         do(7);key(use);wait(3);loop;
  1359.                                         gui;
  1360.                                         log(&f&lAreia comprada com sucesso!);
  1361.                                         endif;
  1362.                                            endif;
  1363.                                            
  1364.                             wait(1);echo(/home temp);wait(2);#comprarareia=0;#faltaareia=0;
  1365.  
  1366. endif;                                                                              
  1367.  
  1368. if(#faltaareia=1);
  1369. echo(/home armazem);wait(2);
  1370. endif;
  1371.  
  1372. endif;
  1373.  
  1374.                     until(%#faltaareia%=0);
  1375.  
  1376. endif;
  1377.  
  1378. if(#faltaareia!=1);
  1379. echo(/home temp);
  1380. wait(2);
  1381. endif;
  1382.  
  1383.  
  1384. ////////////////////////////////////////////
  1385.  
  1386. //////////////////////////////////////////////
  1387.  
  1388.  
  1389. endif;
  1390.  
  1391.  
  1392. loop;
  1393.  
  1394. wait(2);
  1395. echo(/home t2);
  1396. loop;
  1397.  
  1398. elseif(#speed=1);
  1399. echo(teste);
  1400. wait(3);
  1401. endif;
  1402.  
  1403. }$$