API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Nov 17th, 2019
152
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 23.82 KB | None | 0 0
raw download clone embed print report
  1. $${
  2.  
  3.  
  4.  
  5.  
  6.  
  7.  
  8.  
  9. ////////// desligamento ////////////
  10. if(cacto);
  11. log(&9Andares feitos: &a%#feitos%);
  12. unset(cacto);
  13.  
  14. keyup(sneak);keyup(forward);keyup(left);keyup(right);keyup(back);keyup(jump);
  15. LOG("&8%PLAYER% &bCacto &4[Off]");
  16. LOG("&6&l ATÉ OUTRO DIA MESTRE");
  17. @#tempotest=0;
  18. #temporesult=0;
  19. SENSITIVITY(200);
  20. stop;
  21. else;
  22. SENSITIVITY(0);
  23.  
  24. @#tempotest=0;
  25. #temporesult=0;
  26.  
  27.  
  28. $${
  29.  
  30.  
  31.  
  32.  
  33.  
  34.  
  35.  
  36. ////////// desligamento ////////////
  37. if(cacto);
  38. log(&9Andares feitos: &a%#feitos%);
  39. unset(cacto);
  40.  
  41. keyup(sneak);keyup(forward);keyup(left);keyup(right);keyup(back);keyup(jump);
  42. LOG("&8%PLAYER% &bCacto &4[Off]");
  43. LOG("&6&l ATÉ OUTRO DIA MESTRE");
  44. @#tempotest=0;
  45. #temporesult=0;
  46. SENSITIVITY(200);
  47. stop;
  48. else;
  49. SENSITIVITY(0);
  50.  
  51. @#tempotest=0;
  52. #temporesult=0;
  53. #vip=0;
  54.  
  55. ///volume(100);
  56. ///achievementget(INVOCASTE O LORD,10);do(4);playsound(ambient.cave.cave);wait(100ms);playsound(ambient.weather.rain);wait(100ms);
  57. ///playsound(ambient.weather.thunder);wait(100ms);loop;
  58. ///wait(1600ms);volume(0);
  59. ///////// inicio /////////
  60.  
  61.  
  62. prompt(#vip,$$?,voce é vip? se não for digite 1);
  63. prompt(&reset,$$?,§l§4deseja usar o §5ANTI RESET SERVER§4? digite sim ou apenas de enter se não);
  64. if(&reset="sim");echo(/sethome temp);do(4);log(&lVERIFICANDO POSIÇÃO DO SPAWN &4 NÃO SE MOVA!);loop;wait(2000ms);
  65. #posix=%XPOS%;#posiz=%ZPOS%;
  66. echo(/spawn);
  67. do;until((%XPOS%!=%#posix%)||(%ZPOS%!=%#posiz%));wait(1);echo(/desbugar);wait(1);
  68. #posispawnx=%XPOS%;#posispawnz=%ZPOS%
  69. do(3);wait(500ms);log(POSIÇÃO VERIFICADA COM SUCESSO! OBRIGADO POR ESPERAR! VOLTANDO PARA A TORRE);loop;
  70. echo(/home temp);do;until((%XPOS%=%#posix%)||(%ZPOS%=%#posiz%));wait(1);keydown(jump);wait(200ms);keyup(jump);wait(100ms);
  71. echo(/desbugar);wait(1);
  72. endif;
  73.  
  74. #faltaareia=0;
  75. #faltaterra=0;
  76. faltacacto=0;
  77. #feitos=0;
  78. #torres=0;
  79. set(cacto);
  80. LOG("&8%PLAYER% &bCacto &a[On]");
  81.  
  82. prompt(#andares,$$?,"Quantos andares vão ter cada torre?");
  83. prompt(#torres,$$?,"qual o numero de torre?(coloca qualquer numero grande aqui,a macro é infinita)");
  84. #temptorre=1;
  85.  
  86.  
  87.  
  88.  
  89.  
  90.  
  91.  
  92.  
  93.  
  94.  
  95.  
  96.  
  97.  
  98.  
  99.  
  100.  
  101.  
  102. /// inicio de tudo //////
  103.  
  104. do;
  105. #initialposx=%XPOS%;#initialposz=%ZPOS%
  106.  
  107.  
  108.  
  109. //////procurando blocos para a proxima torre////
  110.  
  111.  
  112.  
  113. #vai=0;
  114.  
  115. echo(/sethome t1);wait(300ms);
  116.  
  117. getidrel(+4,-1,0,#westtorre);
  118. getidrel(-4,-1,0,#easttorre);
  119. getidrel(0,-1,+4,#northtorre);
  120. getidrel(0,-1,-4,#southtorre);
  121.  
  122. if(#westtorre!=0);
  123. getidrel(+4,0,0,#westpossibilidade);
  124. if(#westpossibilidade=0);#vai=1;
  125. look(WEST);wait(30ms);
  126. endif;
  127. endif;
  128.  
  129. if((#westtorre=0)||(#westpossibilidade!=0));
  130. if(#easttorre!=0);
  131. getidrel(-4,0,0,#eastpossibilidade);
  132. if(#eastpossibilidade=0);#vai=1;
  133. look(EAST);wait(30ms);
  134. else;#proximolado=1;
  135. endif;
  136. else;#proximolado=1;
  137. endif;
  138. endif;
  139.  
  140. if(#proximolado=1);
  141. #proximolado=0;
  142. if(#northtorre!=0);
  143. getidrel(0,0,+4,#northpossibilidade);
  144. if(#northpossibilidade=0);#vai=1;
  145. look(NORTH);wait(30ms);
  146. else;#sosouth=1;
  147. endif;
  148. else;#sosouth=1;
  149. endif;
  150. endif;
  151.  
  152. if(#sosouth=1);
  153. #sosouth=0;
  154. if(#southtorre!=0);
  155. getidrel(0,0,-4,#southpossibilidade);
  156. if(#southpossibilidade=0);#vai=1;
  157. look(SOUTH);wait(30ms);
  158. else;#ultimatorre=1;
  159. endif;
  160. else;#ultimatorre=1;
  161. endif;
  162. endif;
  163.  
  164. if(#ultimatorre=1);
  165. endif;
  166.  
  167.  
  168.  
  169.  
  170. if(#vai=1);
  171. pick(5);wait(30ms);if(%ITEM%!=5);do;log(&1ACABOU AS TABUAS,PARE A MACRO!);wait(1);loop;endif;
  172. look(,90);wait(30ms);
  173. do;keydown(sneak);keydown(back);until(%HITID%!=3);wait(400ms);
  174. look(,80);wait(100ms);
  175. do;keydown(sneak);keydown(back);key(use);until(%HITID%!=3);
  176. do;keydown(sneak);keydown(back);key(use);until(%HITID%=3);wait(30ms);keyup(back);
  177. echo(/sethome t2);
  178. pick(279);wait(20ms);
  179. look(,0);wait(30ms);
  180. do;look(,+1);wait(3ms);until(%HITID%=5);
  181. do;key(attack);until(%HITID%!=5);wait(30ms);
  182. do;look(,+1);wait(3ms);until(%HITID%=5);
  183. do;key(attack);until(%HITID%!=5);wait(30ms);
  184. do;look(,+1);wait(3ms);until(%HITID%=5);
  185. do;key(attack);until(%HITID%!=5);wait(30ms);
  186. do;look(,+1);wait(3ms);until(%HITID%=5);
  187. do;key(attack);until(%HITID%!=5);
  188. wait(500ms);
  189. #xp=%XPOS%;#xz=%ZPOS%;
  190. echo(/home t1);
  191. do;until((%XPOS%!=%#xp%)||(%ZPOS%!=%#zp%));wait(1);
  192. endif;
  193.  
  194.  
  195.  
  196.  
  197.  
  198.  
  199.  
  200.  
  201.  
  202.  
  203.  
  204.  
  205.  
  206.  
  207.  
  208.  
  209. do(%#andares%);
  210.  
  211. gui(INVENTORY);
  212.  
  213.  
  214. ////////////////// terra /////////
  215. pick(3);
  216. look(,90);wait(20ms);
  217. keydown(jump);wait(205ms);
  218. key(use);
  219. keyup(jump);wait(200ms);
  220.  
  221. look(0,72);
  222.  
  223. do(4);
  224. keydown(sneak);
  225. wait(20ms);look(+90,72);wait(50ms);
  226. if(%HITID%!=3);
  227. do;keydown(sneak);keydown(back);wait(1ms);
  228. keyup(back);
  229. until(%HITID%=3);
  230. keyup(back);
  231. endif;
  232. loop;
  233.  
  234. ///////////////// terra /////////
  235. pick(3);
  236. look(90,80);wait(20ms);
  237. keydown(back);
  238. keydown(sneak);wait(1500ms);
  239. keyup(back);wait(100ms);
  240. keyup(sneak);
  241. key(use);wait(100ms);
  242.  
  243. ///////////////// terra /////////
  244. pick(3);
  245. look(270,80);wait(20ms);
  246. keydown(back);
  247. keydown(sneak);wait(1500ms);
  248. keyup(back);wait(100ms);
  249. keyup(sneak);
  250. key(use);wait(100ms);
  251.  
  252. #posx=%XPOS%;
  253. #posz=%ZPOS%;
  254. do;
  255. look(180,80);
  256. keydown(right);
  257. until(%XPOS%=%#posx%-1);
  258. keyup(right);wait(10ms);
  259.  
  260. ///////////////// terra /////////
  261. pick(3);
  262. look(180,80);wait(20ms);
  263. keydown(back);
  264. keydown(sneak);wait(1500ms);
  265. keyup(back);wait(100ms);
  266. keyup(sneak);
  267. key(use);wait(100ms);
  268.  
  269. ///////////////// terra /////////
  270. pick(3);
  271. look(360,80);wait(20ms);
  272. keydown(back);
  273. keydown(sneak);wait(1500ms);
  274. keyup(back);wait(100ms);
  275. keyup(sneak);
  276. key(use);wait(100ms);
  277.  
  278. #posx=%XPOS%;
  279. #posz=%ZPOS%;
  280. do;
  281. look(0,80);
  282. keydown(sneak);keydown(forward);
  283. until(%ZPOS%=%#posz%-1);wait(40ms);
  284. keyup(forward);wait(100ms);
  285.  
  286.  
  287. gui();
  288. wait(200ms);
  289.  
  290.  
  291. getidrel(+1,-1,0,#westterra);
  292. getidrel(-1,-1,0,#eastterra);
  293. getidrel(0,-1,+1,#northterra);
  294. getidrel(0,-1,-1,#southterra);
  295. if(#westterra!=3);
  296. pick(3);wait(20ms);
  297. look(WEST);wait(10ms);look(,90);wait(10ms);keydown(sneak);do;keydown(back);
  298. until(%HITID%!=3);wait(50ms);keyup(back);
  299. do;look(,-2);until(%HITID%=3);key(use);wait(200ms);
  300. do;keydown(forward);until((%XPOS%=%#initialposx%)&&(%ZPOS%=%#initialposz%));wait(30ms);
  301. keyup(forward);
  302. endif;
  303. if(#eastterra!=3);
  304. pick(3);wait(20ms);
  305. look(EAST);wait(10ms);look(,90);wait(10ms);keydown(sneak);do;keydown(back);
  306. until(%HITID%!=3);wait(50ms);keyup(back);
  307. do;look(,-2);until(%HITID%=3);key(use);wait(200ms);
  308. do;keydown(forward);until((%XPOS%=%#initialposx%)&&(%ZPOS%=%#initialposz%));wait(30ms);
  309. keyup(forward);
  310. endif;
  311. if(#northterra!=3);
  312. pick(3);wait(20ms);
  313. look(NORTH);wait(10ms);look(,90);wait(10ms);keydown(sneak);do;keydown(back);
  314. until(%HITID%!=3);wait(50ms);keyup(back);
  315. do;look(,-2);until(%HITID%=3);key(use);wait(200ms);
  316. do;keydown(forward);until((%XPOS%=%#initialposx%)&&(%ZPOS%=%#initialposz%));wait(30ms);
  317. keyup(forward);
  318. endif;
  319. if(#southterra!=3);
  320. pick(3);wait(20ms);
  321. look(SOUTH);wait(10ms);look(,90);wait(10ms);keydown(sneak);do;keydown(back);
  322. until(%HITID%!=3);wait(50ms);keyup(back);
  323. do;look(,-2);until(%HITID%=3);key(use);wait(200ms);
  324. do;keydown(forward);until((%XPOS%=%#initialposx%)&&(%ZPOS%=%#initialposz%));wait(30ms);
  325. keyup(forward);
  326. endif;
  327.  
  328.  
  329.  
  330.  
  331.  
  332.  
  333.  
  334.  
  335.  
  336.  
  337.  
  338.  
  339.  
  340.  
  341. ////////////////////areia///////
  342.  
  343.  
  344.  
  345. look(0,90);wait(30ms);
  346.  
  347.  
  348. pick(12);wait(100ms);
  349. look(,90);
  350. keydown(jump);wait(205ms);
  351. key(use);
  352. keyup(jump);wait(200ms);
  353.  
  354.  
  355. #areiapos=%ZPOS%;
  356. do;look(0,90);keydown(sneak);keydown(forward);until((%HITID%=3)&&(%ZPOS%!=%#areiapos%));wait(30ms);
  357. keyup(forward);
  358. pick(12);wait(100ms);
  359. do;pick(12);key(use);wait(300ms);until(%HITID%=12);wait(30ms);
  360. do;keydown(sneak);keydown(back);until(%ZPOS%=%#areiapos%);wait(70ms);keyup(back);
  361.  
  362.  
  363. #areiapos=%XPOS%;
  364. look(270,0);wait(30ms);
  365. do;look(270,90);keydown(sneak);keydown(forward);until((%HITID%=3)&&(%XPOS%!=%#areiapos%));wait(30ms);
  366. keyup(forward);
  367. pick(12);wait(100ms);
  368. do;pick(12);key(use);wait(300ms);until(%HITID%=12);wait(30ms);
  369. do;keydown(sneak);keydown(back);until(%XPOS%=%#areiapos%);wait(70ms);keyup(back);
  370.  
  371.  
  372. look(90,0);wait(30ms);
  373. do;look(90,90);keydown(sneak);keydown(forward);until((%HITID%=3)&&(%XPOS%!=%#areiapos%));wait(30ms);
  374. keyup(forward);
  375. pick(12);wait(100ms);
  376. do;pick(12);key(use);wait(300ms);until(%HITID%=12);wait(30ms);
  377. do;keydown(sneak);keydown(back);until(%XPOS%=%#areiapos%);wait(70ms);keyup(back);
  378.  
  379. look(180,90);wait(30ms);
  380. #areiapos=%ZPOS%;
  381. do;look(180,90);keydown(sneak);keydown(forward);until((%HITID%=3)&&(%ZPOS%!=%#areiapos%));wait(30ms);
  382. keyup(forward);
  383. pick(12);wait(100ms);
  384. do;pick(12);key(use);wait(300ms);until(%HITID%=12);wait(30ms);
  385. do;keydown(sneak);keydown(back);until(%ZPOS%=%#areiapos%);wait(70ms);keyup(back);
  386.  
  387.  
  388.  
  389.  
  390.  
  391.  
  392.  
  393.  
  394.  
  395.  
  396.  
  397.  
  398.  
  399.  
  400.  
  401.  
  402.  
  403.  
  404.  
  405.  
  406.  
  407. look(0,90);wait(30ms);
  408. //////////////// terra ///////////
  409.  
  410.  
  411. pick(3);
  412. #numbers=0
  413. #py=%YPOS%;
  414. do;
  415. /////////////////////// terra /////////////
  416. pick(3);
  417. keydown(jump);
  418. if(#numbers=0);if(%YPOS%=%#py%+1);wait(4ms);key(use);keyup(jump);#numbers=1;wait(100ms);keydown(jump);endif;endif;
  419. if(#numbers=1);if(%YPOS%=%#py%+2);wait(4ms);key(use);keyup(jump);wait(100ms);#numbers=2;keydown(jump);endif;endif;
  420. until(%YPOS%=%#py%+3);
  421.  
  422.  
  423.  
  424. keyup(jump);
  425. wait(300ms);
  426.  
  427.  
  428.  
  429. keydown(sneak);
  430. look(,90);wait(30ms);
  431. keydown(back);do;until(%HITID%=12);
  432. wait(1200ms);
  433. keyup(back);
  434. wait(250ms);
  435. keyup(sneak);
  436. wait(300ms);
  437. look(360,84);wait(100ms);
  438. /////////////////// pá ////////////
  439. pick(277);
  440. wait(90ms);
  441. do;
  442. key(attack);
  443. until(%HITID%!=3);
  444. wait(1);
  445. #posz=%ZPOS%;
  446. do;
  447. look(0,90);
  448. keydown(forward);
  449. until(%ZPOS%=%#posz%-1);
  450. keyup(forward);
  451. wait(200ms);
  452.  
  453.  
  454.  
  455.  
  456.  
  457.  
  458. look(0,70);
  459. ///////////////////// cacto /////////////
  460. pick(81);
  461. do;
  462. look(,90);wait(30ms);
  463. keydown(sneak);
  464. keydown(forward);
  465. until(%HITID%=12);wait(7ms);
  466. keyup(forward);
  467. ////////////////// cacto ////////////
  468. pick(81);
  469. wait(30ms);
  470. key(use);
  471. wait(200ms);
  472. do;
  473. keydown(sneak);
  474. keydown(back);
  475. until(%HITID%=3);
  476. do;
  477. keydown(sneak);
  478. keydown(back);
  479. until(%HITID%!=3);wait(30ms);
  480. keyup(back);
  481. do;
  482. keydown(sneak);
  483. keydown(forward);
  484. until(%HITID%=3);wait(40ms);
  485. keyup(forward);
  486. keyup(sneak);
  487. wait(30ms);
  488. look(270,90);wait(30ms);
  489.  
  490. ////////////////// cacto ///////////
  491. pick(81);
  492. wait(30ms);
  493. do;
  494. look(,90);
  495. keydown(sneak);
  496. keydown(forward);
  497. until(%HITID%=12);wait(12ms);
  498. keyup(forward);
  499.  
  500. ///////////////// cacto ////////////
  501. pick(81);
  502. wait(30ms);
  503. key(use);
  504. wait(200ms);
  505. look(,90);
  506. do;
  507. keydown(sneak);
  508. keydown(back);
  509. until(%HITID%=3);
  510. do;
  511. keydown(sneak);
  512. keydown(back);
  513. until(%HITID%!=3);
  514. keyup(back);
  515. do;
  516. keydown(sneak);
  517. keydown(forward);
  518. until(%HITID%=3);wait(30ms);
  519. keyup(forward);
  520. keyup(sneak);
  521. wait(20ms);
  522. look(90,90);wait(30ms);
  523. ///////////////////// cacto ////////////
  524. pick(81);
  525. do;
  526. look(,90);
  527. keydown(sneak);
  528. keydown(forward);
  529. until(%HITID%=12);wait(12ms);
  530. keyup(forward);
  531. /////////////// cacto //////////////
  532. pick(81);
  533. wait(30ms);
  534. key(use);
  535. wait(200ms);
  536. do;
  537. keydown(sneak);
  538. keydown(back);
  539. until(%HITID%=3);
  540. do;
  541. keydown(sneak);
  542. keydown(back);
  543. until(%HITID%!=3);wait(20ms);
  544. keyup(back);
  545. do;
  546. keydown(sneak);
  547. keydown(forward);
  548. until(%HITID%=3);wait(40ms);
  549. keyup(forward);
  550. keyup(back);
  551. wait(20ms);
  552. look(180,90);
  553. /////////////// cacto //////////////
  554. pick(81);
  555. do;
  556. look(,90);
  557. keydown(sneak);
  558. keydown(forward);
  559. until(%HITID%=12);wait(12ms);
  560. keyup(forward);
  561. /////////////// cacto //////////////
  562. pick(81);wait(30ms);
  563. key(use);
  564. wait(200ms);
  565. do;
  566. keydown(sneak);
  567. keydown(back);
  568. until(%HITID%=3);
  569. do;
  570. keydown(sneak);
  571. keydown(back);
  572. until(%HITID%!=3);wait(30ms);keyup(back);
  573. do;
  574. keydown(sneak);
  575. keydown(forward);
  576. until(%HITID%=3);wait(40ms);
  577. keyup(forward);
  578. keyup(back);
  579. wait(300ms);
  580.  
  581.  
  582.  
  583.  
  584.  
  585.  
  586.  
  587.  
  588.  
  589.  
  590.  
  591.  
  592.  
  593.  
  594.  
  595.  
  596. //////////// repondo inventario ///////////
  597.  
  598. log(verificando inventario);wait(1);
  599. gui(inventory);wait(1);
  600. ////////////////// terra repondo ////////////
  601. pick(3);wait(100ms);
  602. if(%STACKSIZE%<9);
  603. for(#i,9,35);
  604. getslotitem(%#i%,#id);
  605. if(%#id%=3);
  606. slotclick(%#i%,l,true);
  607. wait(75ms);
  608. endif;
  609. next;
  610. wait(400ms);
  611. if(%STACKSIZE%<9);#faltaterra=1;#falta=1;endif;
  612. endif;
  613. ///////////////// areia repondo ///////////
  614. pick(12);wait(100ms);
  615. if(%STACKSIZE%<9);
  616. for(#i,9,35);
  617. getslotitem(%#i%,#id);
  618. if(%#id%=12);
  619. slotclick(%#i%,l,true);
  620. wait(75ms);
  621. endif;
  622. next;
  623. wait(400ms);
  624. if(%STACKSIZE%<9);#faltaareia=1;#falta=1;endif;
  625. endif;
  626. ////////////// cacto repondo /////////////
  627. pick(81);wait(100ms);
  628. if(%STACKSIZE%<9);
  629. for(#i,9,35);
  630. getslotitem(%#i%,#id);
  631. if(%#id%=81);
  632. slotclick(%#i%,l,true);
  633. wait(75ms);
  634. endif;
  635. next;
  636. wait(400ms);
  637. if(%STACKSIZE%<9);#faltacacto=1;#falta=1;endif;
  638. endif;
  639. gui();
  640.  
  641.  
  642. echo(/sethome temp);wait(2200ms);
  643.  
  644.  
  645.  
  646. /////////////VERIFICANDO SE PRECISA IR NO ARMAZEM///////////
  647.  
  648. if(#falta=1);
  649. #posix=%XPOS%;#posiz=%ZPOS%;
  650. echo(/home armazem);
  651. do;until((%XPOS%!=%#posix%)||(%ZPOS%!=%#posiz%));wait(200ms);
  652. log(&1EVINTANDO BUGS!);do(5);keydown(jump);wait(70ms);loop;keyup(jump);wait(200ms);
  653. log(&5LEMBRE,SUA HOME DEVE ESTAR OLHANDO PARA WEST&2,&4apenas ignore se já estiver..);
  654. getidrel(-2,1,0,#verificandobaus);
  655. if(#verificandobaus!=54);if(#verificandobaus!=146);log(&4macro parou por não encontrar armazem);
  656. unset(cacto);stop;endif;endif;
  657.  
  658.  
  659.  
  660.  
  661. ////////TERRA BAUS/////////
  662.  
  663.  
  664. if(#faltaterra=1);
  665. log(repondo terra!);wait(2);
  666.  
  667. #pegouterra=0;
  668. #bauterra=1;
  669.  
  670. do;
  671. look(west);wait(5ms);
  672.  
  673. if(#bauterra=1);look(-35,35);elseif(#bauterra=2);look(,35);elseif(#bauterra=3);look(+35,35);
  674. elseif(#bauterra=4);look(-35,0);elseif(#bauterra=5);look(,0);elseif(#bauterra=6);look(+35,0);
  675. elseif(#bauterra=7);look(-35,331);elseif(#bauterra=8);look(,331);elseif(#bauterra=9);look(+35,331);
  676. endif;
  677.  
  678. wait(500ms);
  679. pick(277);wait(3ms);do;key(use);wait(300ms);until(%GUI%="GUICHEST");
  680. pick(3);wait(20ms);
  681. for(#i,0,54);
  682. getslotitem(%#i%,#id);
  683. if(#pegouterra>7);break;endif;
  684. if(%#id%=3);
  685. #pegouterra=%#pegouterra%+1;
  686. slotclick(%#i%,l,true);
  687. wait(75ms);
  688.  
  689. endif;
  690. next;
  691. if(%STACKSIZE%<9);gui();wait(20ms);#bauterra=%#bauterra%+1;endif;
  692. if(#bauterra>9);log(&1&lACABOU RECURSO! PARANDO MACRO..);unset(cacto);stop;endif;
  693. if(%STACKSIZE%>9);#faltaterra=0;LOG(TERRA OK);gui();endif;
  694. until(#faltaterra!=1);
  695. endif;
  696.  
  697.  
  698.  
  699.  
  700. ////////AREIA BAUS/////////
  701.  
  702.  
  703. if(#faltaareia=1);
  704. log(repondo areia!);wait(2);
  705.  
  706. #pegouareia=0;
  707. #bauterra=1;
  708.  
  709. do;
  710. look(south);wait(5ms);
  711.  
  712. if(#bauterra=1);look(-35,35);elseif(#bauterra=2);look(,35);elseif(#bauterra=3);look(+35,35);
  713. elseif(#bauterra=4);look(-35,0);elseif(#bauterra=5);look(,0);elseif(#bauterra=6);look(+35,0);
  714. elseif(#bauterra=7);look(-35,331);elseif(#bauterra=8);look(,331);elseif(#bauterra=9);look(+35,331);
  715. endif;
  716.  
  717. wait(500ms);
  718. pick(277);wait(3ms);do;key(use);wait(300ms);until(%GUI%="GUICHEST");
  719. pick(12);wait(20ms);
  720. for(#i,0,54);
  721. getslotitem(%#i%,#id);
  722. if(#pegouareia>7);break;endif;
  723. if(%#id%=12);
  724. #pegouareia=%#pegouareia%+1;
  725. slotclick(%#i%,l,true);
  726. wait(75ms);
  727.  
  728. endif;
  729. next;
  730. if(%STACKSIZE%<9);gui();wait(20ms);#bauterra=%#bauterra%+1;endif;
  731. if(#bauterra>9);log(&1&lACABOU RECURSO! PARANDO MACRO..);unset(cacto);stop;endif;
  732. if(%STACKSIZE%>9);#faltaareia=0;LOG(AREIA OK);gui();endif;
  733. until(#faltaareia!=1);
  734. endif;
  735.  
  736.  
  737.  
  738.  
  739. ////////CACTO BAUS/////////
  740.  
  741.  
  742. if(#faltacacto=1);
  743. log(repondo cacto!);wait(2);
  744.  
  745. #pegoucacto=0;
  746. #bauterra=1;
  747.  
  748. do;
  749. look(north);wait(5ms);
  750.  
  751. if(#bauterra=1);look(-35,35);elseif(#bauterra=2);look(,35);elseif(#bauterra=3);look(+35,35);
  752. elseif(#bauterra=4);look(-35,0);elseif(#bauterra=5);look(,0);elseif(#bauterra=6);look(+35,0);
  753. elseif(#bauterra=7);look(-35,331);elseif(#bauterra=8);look(,331);elseif(#bauterra=9);look(+35,331);
  754. endif;
  755.  
  756. wait(500ms);
  757. pick(277);wait(3ms);do;key(use);wait(300ms);until(%GUI%="GUICHEST");
  758. pick(81);wait(20ms);
  759. for(#i,0,54);
  760. getslotitem(%#i%,#id);
  761. if(#pegoucacto>7);break;endif;
  762. if(%#id%=81);
  763. #pegoucacto=%#pegoucacto%+1;
  764. slotclick(%#i%,l,true);
  765. wait(75ms);
  766.  
  767. endif;
  768. next;
  769. if(%STACKSIZE%<9);gui();wait(20ms);#bauterra=%#bauterra%+1;endif;
  770. if(#bauterra>9);log(&1&lACABOU RECURSO! PARANDO MACRO..);unset(cacto);stop;endif;
  771. if(%STACKSIZE%>9);#faltacacto=0;LOG(AREIA OK);gui();endif;
  772. until(#faltacacto!=1);
  773. endif;
  774.  
  775.  
  776.  
  777.  
  778.  
  779.  
  780.  
  781. ////////////// VOLTANDO PARA A TORRE ////////////
  782.  
  783. #posix=%XPOS%;#posiz=%ZPOS%;
  784. echo(/home temp);
  785. do;until((%XPOS%!=%#posix%)||(%ZPOS%!=%#posiz%));wait(1);echo(/desbugar);wait(1);
  786. #falta=0;
  787.  
  788. endif;
  789.  
  790. LOG(&aAndar concluido.);
  791. INC(#feitos);
  792. LOG(&9Andares: &f%#feitos%/%#andares%);
  793. if(%HUNGER%<2);if(#vip!=1);echo(/fome);elseif(#vip=1);#posix=%XPOS%;#posiz=%ZPOS%;
  794. echo(/warp loja);
  795. do;until((%XPOS%!=%#posix%)||(%ZPOS%!=%#posiz%));wait(2);#posix=%XPOS%;#posiz=%ZPOS%;
  796. echo(/home temp);
  797. do;until((%XPOS%!=%#posix%)||(%ZPOS%!=%#posiz%));wait(1);echo(/desbugar);wait(1);endif;endif;
  798.  
  799.  
  800.  
  801.  
  802.  
  803.  
  804.  
  805. ////////////// verificando horario atual sobre reset /////////////12:00 22:00 06:00/////
  806.  
  807. if(&reset="sim");
  808. time(&temposerver,HHmm);@#tempotest=1;type( %&temposerver%);
  809. prompt(#temporesult,$$?,gambiarra loca para reset);
  810.  
  811. if(#temporesult>1153);if(#temporesult<1200);#posix=%XPOS%;#posiz=%ZPOS%;
  812. do;log(ACHO QUE O SERVER VAI RESETAR,VOU ESPERAR..);wait(2);
  813. until((%XPOS%=%#posispawnx%)&&(%ZPOS%=%#posispawnz%))
  814. do;log(CACTO ESPERANDO LOGIN!)wait(500ms);until((%XPOS%=%#posix%)&&(%ZPOS%=%#posiz%));
  815. wait(900ms);echo(/desbugar);wait(2);
  816. endif;endif;
  817. if(#temporesult>2153);if(#temporesult<2240);#posix=%XPOS%;#posiz=%ZPOS%;
  818. do;log(ACHO QUE O SERVER VAI RESETAR,VOU ESPERAR..);wait(2);
  819. until((%XPOS%=%#posispawnx%)&&(%ZPOS%=%#posispawnz%))
  820. do;log(CACTO ESPERANDO LOGIN!)wait(500ms);until((%XPOS%=%#posix%)&&(%ZPOS%=%#posiz%));
  821. wait(900ms);echo(/desbugar);wait(2);
  822. endif;endif;
  823. if(#temporesult>0553);if(#temporesult<0600);#posix=%XPOS%;#posiz=%ZPOS%;
  824. do;log(ACHO QUE O SERVER VAI RESETAR,VOU ESPERAR..);wait(2);
  825. until((%XPOS%=%#posispawnx%)&&(%ZPOS%=%#posispawnz%))
  826. do;log(CACTO ESPERANDO LOGIN!)wait(500ms);until((%XPOS%=%#posix%)&&(%ZPOS%=%#posiz%));
  827. wait(900ms);echo(/desbugar);wait(2);
  828. endif;endif;
  829. endif;
  830.  
  831.  
  832.  
  833.  
  834.  
  835.  
  836.  
  837. loop;
  838. LOG(&aAndar concluido,indo para o proximo.);
  839.  
  840. ////////pulando de torre/////////////
  841.  
  842.  
  843. #temptorre=%#temptorre%+1;
  844. #xp=%XPOS%;#xz=%ZPOS%
  845. echo(/home t%#temptorre%);
  846. do;until((%XPOS%!=%#xp%)||(%ZPOS%!=%#zp%));wait(1);
  847. echo(/desbugar);wait(1);
  848. playsound(mob.cat.meow);log(&5MOD BY IAN >;3);
  849. until(%#temptorre%=%#torres%+1);
  850.  
  851. /////////////// FIM /// UFA ;-; ///
  852. endif;
  853.  
  854.  
  855. }$$
  856.  
  857.  
  858.  
  859.  
  860.  
  861.  
  862. loop;
  863. LOG(&aAndar concluido,indo para o proximo.);
  864.  
  865. ////////pulando de torre/////////////
  866.  
  867.  
  868. #temptorre=%#temptorre%+1;
  869. #xp=%XPOS%;#xz=%ZPOS%;
  870. echo(/home t%#temptorre%);
  871. do;until((%XPOS%!=%#xp%)||(%ZPOS%!=%#zp%));wait(1);
  872. echo(/desbugar);wait(1);
  873. #temptorre=1;
  874. playsound(mob.cat.meow);log(&5MOD BY IAN >;3);
  875. until(%#temptorre%=%#torres%+1);
  876.  
  877. /////////////// FIM /// UFA ;-; ///
  878. endif;
  879.  
  880.  
  881. }$$
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!