API tools faq
paste
DiegoGamesFight

Macro Cacto 1.7.+

DiegoGamesFight
Feb 1st, 2018
594
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 28.78 KB | None | 0 0
raw download clone embed print report
  1. $${
  2. /////////////////Desligar
  3. if(mcacto);
  4. unset(mcacto);
  5. log("");
  6. log(&9&l[&f&oM&racro&9&l] &cTorre de Cacto &f&l[&4OFF&f&l]);
  7. if(%#fa_torre%=1);
  8. #fa_torre = 0;
  9. log(" ");
  10. log("&9&l[&f&oM&facro&9&l] &fAndares concluidos: &a%#total_andares_concluidos%");
  11. log("&9&l[&f&oM&facro&9&l] &fTorres feitas: &a%#torres_feitas%&f/&a%#homes%");
  12. endif;
  13. keyup(back);keyup(forward);
  14. keyup(sneak);keyup(jump);
  15. stop;
  16. else;
  17. set(mcacto);
  18. clearchat();
  19. log(&9&l[&f&oM&racro&9&l] &aTorre de Cacto &f&l[&2ON&f&l]);
  20. wait(3);
  21.  
  22. /////////////////Ligar
  23.  
  24. /////////////////Perguntas
  25. if(backup);
  26. set(#send_log,"199");
  27. do;
  28. inc(#send_log,1);
  29. if(%#send_log%=200);
  30. set(#send_log,"");
  31. clearchat();
  32. log("&9&l[&f&oM&facro&9&l] &aIniciar últimas configurações?")
  33. log("&9&l[&f&oM&facro&9&l] &f&l[&21&f&l] &2Sim");
  34. log("&9&l[&f&oM&facro&9&l] &f&l[&22&f&l] &cNão");
  35. endif;
  36. if(KEY_1);
  37. log(" ");
  38. log("&9&l[&f&oM&facro&9&l] &f&l[&21&f&l] &2Sim");
  39. unset(register);
  40. do;while(KEY_1);
  41. break;
  42. elseif(KEY_2);
  43. log(" ");
  44. log("&9&l[&f&oM&facro&9&l] &f&l[&22&f&l] &cNão");
  45. set(register);
  46. unset(backup);
  47. do;while(KEY_2);
  48. break;
  49. endif;
  50. loop;
  51. else;
  52. set(register);
  53. endif;
  54.  
  55. if(register);
  56. wait(1);
  57. set(#send_log,"199");
  58. do;
  59. inc(#send_log,1);
  60. if(%#send_log%=200);
  61. set(#send_log,"");
  62. clearchat();
  63. log("&9&l[&f&oM&facro&9&l] &aAo encontrar um erro:");
  64. log("&9&l[&f&oM&facro&9&l] &f&l[&21&f&l] &2Continuar");
  65. log("&9&l[&f&oM&facro&9&l] &f&l[&22&f&l] &2Corrigir o erro");
  66. endif;
  67. if(KEY_1);
  68. set(#modo,"1");
  69. log(" ");
  70. log("&9&l[&f&oM&facro&9&l] &f&l[&21&f&l] &2Continuar.");
  71. do;while(KEY_1);
  72. break;
  73. elseif(KEY_2);
  74. set(#modo,"2");
  75. log(" ");
  76. log("&9&l[&f&oM&facro&9&l] &f&l[&22&f&l] &2Corrigir o erro.");
  77. do;while(KEY_2);
  78. break;
  79. endif;
  80. loop;
  81. wait(1);
  82. set(#send_log,"199");
  83. set(#andares,"");
  84. do;
  85. inc(#send_log,1);
  86. if(%#send_log%=200);
  87. set(#send_log,"");
  88. clearchat();
  89. log(" ");
  90. log("&9&l[&f&oM&facro&9&l] &aDigite a quantidades de andares de cactos.");
  91. log(" ");
  92. endif;
  93. if(%#andares%>0);
  94. clearchat();
  95. log(" ");
  96. log("&9&l[&f&oM&facro&9&l] &aAndares: &2&l%#andares%");
  97. break;
  98. endif;
  99. prompt(#andares,$$?,"Quantos andares?");
  100. log(passou);
  101. loop;
  102. wait(1);
  103. set(#send_log,"199");
  104. set(#homes,"");
  105. do;
  106. inc(#send_log,1);
  107. if(%#send_log%=200);
  108. set(#send_log,"");
  109. clearchat();
  110. log(" ");
  111. log("&9&l[&f&oM&facro&9&l] &aEm quantas homes deseja fazer?");
  112. log(" ");
  113. endif;
  114. if(%#homes%>0);
  115. clearchat();
  116. log(" ");
  117. log("&9&l[&f&oM&facro&9&l] &aHomes de torres: &2&l%#homes%");
  118. break;
  119. endif;
  120. prompt(#homes,$$?,"Escolha");
  121. loop;
  122. wait(1);
  123. set(#send_log,"199");
  124. do;
  125. inc(#send_log,1);
  126. if(%#send_log%=200);
  127. set(#send_log,"");
  128. clearchat();
  129. log("&9&l[&f&oM&facro&9&l] &aQual o delay de teleporte?");
  130. log("&9&l[&f&oM&facro&9&l] &f&l[&21&f&l] &23 Segundos");
  131. log("&9&l[&f&oM&facro&9&l] &f&l[&22&f&l] &25 Segundos");
  132. log("&9&l[&f&oM&facro&9&l] &f&l[&23&f&l] &27 Segundos (recomendado)");
  133. log("&9&l[&f&oM&facro&9&l] &f&l[&24&f&l] &2Eu escolho");
  134. log("&9&l[&f&oM&facro&9&l] &f&l[&25&f&l] &c&oSem delay");
  135. elseif(KEY_1);
  136. set(#tempo,"3");
  137. log(" ");
  138. log("&9&l[&f&oM&facro&9&l] &f&l[&21&f&l] &23 Segundos");
  139. do;while(KEY_1);
  140. break;
  141. elseif(KEY_2);
  142. set(#tempo,"5");
  143. log(" ");
  144. log("&9&l[&f&oM&facro&9&l] &f&l[&22&f&l] &25 Segundos");
  145. do;while(KEY_2);
  146. break;
  147. elseif(KEY_3);
  148. set(#tempo,"7");
  149. log(" ");
  150. log("&9&l[&f&oM&facro&9&l] &f&l[&23&f&l] &27 Segundos");
  151. do;while(KEY_3);
  152. break;
  153. elseif(KEY_4);
  154. log(" ");
  155. log("&9&l[&f&oM&facro&9&l] &aEscolha seu delay.");
  156. log(" ");
  157. do;while(KEY_4);
  158. prompt(#tempo,$$?,"Escolha seu delay");
  159. if(%#tempo%<1);
  160. set(#tempo,"7");
  161. log("&9&l[&f&oM&facro&9&l] &cNúmero inválido, alterado automaticamente para &27&c.");
  162. else;
  163. log("&9&l[&f&oM&facro&9&l] &aDuração de teleporte mudado para: &2&l%#tempo%");
  164. endif;
  165. break;
  166. elseif(KEY_5);
  167. set(#tempo,"");
  168. log(" ");
  169. log("&9&l[&f&oM&facro&9&l] &f&l[&25&f&l] &c&oSem delay");
  170. do;while(KEY_5);
  171. break;
  172. endif;
  173. loop;
  174. set(backup);
  175. endif;
  176. wait(1);
  177. clearchat();
  178. log(" ");
  179. log("&9&l[&f&oM&facro&9&l] &aConfiguração:");
  180. if(%#modo%=2);
  181. log("&9&l[&f&oM&facro&9&l] &f&oCorrigir Erros: &aSim");
  182. else;
  183. log("&9&l[&f&oM&facro&9&l] &f&oCorrigir Erros: &cNão");
  184. endif;
  185. if(%#tempo%=0);
  186. log("&9&l[&f&oM&facro&9&l] &f&oTempo de teleporte: &c&oSem delay");
  187. else;
  188. log("&9&l[&f&oM&facro&9&l] &f&oTempo de teleporte: &a%#tempo% &f&osegundos");
  189. endif;
  190. log("");
  191. log("&9&l[&f&oM&facro&9&l] &aEstrutura:");
  192. log("&9&l[&f&oM&facro&9&l] &f&oTorres: &a%#homes%");
  193. log("&9&l[&f&oM&facro&9&l] &f&oAndares (Cada torre): &a%#andares%");
  194. log(" ");
  195. log("&9&l[&f&oM&facro&9&l] &aIniciando em 3 segundos...");
  196.  
  197. wait(3);
  198.  
  199.  
  200. /////////////////Fim
  201.  
  202. /////////////////Variaveis
  203. #home = 0;
  204. #andares_concluidos = 0;
  205. #torres_feitas = 0;
  206. #total_andares_concluidos = 0;
  207. #fa_torre = 0;
  208. /////////////////
  209.  
  210. /////////////////Fazer torres e andares
  211. do(%#homes%);
  212. inc(#home,1);
  213. #zpos=%ZPOS%;
  214. #xpos=%XPOS%;
  215. #ypos=%YPOS%;
  216. do;
  217. echo(/home torre%#home%);
  218. wait(%#tempo%);
  219. wait(1);
  220. until((%XPOS%!=%#xpos%)||(%ZPOS%!=%#zpos%)||(%YPOS%!=%#ypos%));
  221. inc(#fa_torre,1);
  222. log("");
  223. log("&9&l[&f&oM&facro&9&l] &aFazendo torre.");
  224. log("");
  225. #andares_concluidos=0;
  226. /////////////////Começo dos andares
  227. do(%#andares%);
  228.  
  229. gui(inventory);
  230. wait(1);
  231.  
  232. #terra=0;#areia=0;#cacto=0;
  233. #terra_stack=0;#areia_stack=0;#cacto_stack=0;
  234. #can_stop_terra=0;#can_stop_areia=0;#can_stop_cacto=0;
  235. for(#slot,36,44);
  236. getslotitem(%#slot%,&id,#stack);
  237. ifmatches(%&id%,"dirt");
  238. inc(#terra_stack,%#stack%);
  239. if(%#stack%>7);
  240. inc(#terra,1);
  241. endif;
  242. endif;
  243. ifmatches(%&id%,"sand");
  244. inc(#areia_stack,%#stack%);
  245. if(%#stack%>3);
  246. inc(#areia,1);
  247. endif;
  248. endif;
  249. ifmatches(%&id%,"cactus");
  250. inc(#cacto_stack,%#stack%);
  251. if(%#stack%>3);
  252. inc(#cacto,1);
  253. endif;
  254. endif;
  255. next;
  256.  
  257. if(%#terra_stack%<16);
  258. set(procurar);#can_stop_terra=1;
  259. endif;
  260. if(%#areia_stack%<8);
  261. set(procurar);#can_stop_areia=1;
  262. endif;
  263. if(%#cacto_stack%<8);
  264. set(procurar);#can_stop_cacto=1;
  265. endif;
  266.  
  267. ///////////////////Procurar recursos no inventario, se não tiver, buscar no baú
  268. if(procurar);
  269. unset(procurar);
  270. #terra_inv=0;
  271. #areia_inv=0;
  272. #cacto_inv=0;
  273. unsafe(x);
  274. for(#slot,9,35);
  275. getslotitem(%#slot%,&id,#stack);
  276. ifmatches(%&id%,"dirt");
  277. inc(#terra_inv,%#stack%);
  278. endif;
  279. ifmatches(%&id%,"sand");
  280. inc(#areia_inv,%#stack%);
  281. endif;
  282. ifmatches(%&id%,"cactus");
  283. inc(#cacto_inv,%#stack%);
  284. endif;
  285. next;
  286. endunsafe;
  287. wait(500ms);
  288.  
  289. if((%#cacto_inv%<32)&&(%#can_stop_cacto%=1));set(pegar_cacto);set(cacbau);endif;
  290. if((%#areia_inv%<32)&&(%#can_stop_areia%=1));set(pegar_areia);set(cacbau);endif;
  291. if((%#terra_inv%<32)&&(%#can_stop_terra%=1));set(pegar_terra);set(cacbau);endif;
  292.  
  293. log(%#cacto_inv% - %#areia_inv% - %#terra_inv% - %#can_stop_cacto%);
  294. if(cacbau);
  295. unset(cacbau);
  296. log(passou);
  297. gui();
  298. do(2);
  299. echo(/sethome torre%#home%);
  300. wait(3);
  301. loop;
  302. wait(10t);
  303. #zpos=%ZPOS%;
  304. #xpos=%XPOS%;
  305. #ypos=%YPOS%;
  306. do;
  307. echo(/home cacbau);
  308. wait(%#tempo%);
  309. wait(1);
  310. until((%XPOS%!=%#xpos%)||(%ZPOS%!=%#zpos%)||(%YPOS%!=%#ypos%));
  311.  
  312. set(&dir,"");
  313. ifmatches(%DIRECTION%,N);&dir=NORTH;endif;
  314. ifmatches(%DIRECTION%,S);&dir=SOUTH;endif;
  315. ifmatches(%DIRECTION%,E);&dir=EAST;endif;
  316. ifmatches(%DIRECTION%,W);&dir=WEST;endif;
  317.  
  318.  
  319.  
  320.  
  321. ////////////////////Pegando recursos no baú
  322. if(pegar_cacto);
  323. unset(pegar_cacto);
  324. #slot=0;#stop=0;
  325. look(%&dir%);
  326. #gui=0;
  327. do;
  328. key(use);
  329. wait(1);
  330. ifmatches(%GUI%,"GUICHEST");
  331. set(#gui,1);
  332. endif;
  333. until(%#gui%=1);
  334.  
  335. set(verificar);
  336. for(#pegar,0,53);
  337.  
  338. if(verificar);
  339. unset(verificar);
  340. for(#item,54,62);
  341. getslotitem(%#item%,&id);
  342. ifmatches(%&id%,"air");
  343. #slot = %#item%;
  344. break;
  345. endif;
  346. if(%#item%=62);
  347. #stop=1;
  348. endif;
  349. next;
  350. endif;
  351.  
  352. if(%#stop%=1);
  353. break;
  354. endif;
  355.  
  356. getslotitem(%#pegar%,&id,#stack);
  357. ifmatches(%&id%,"cactus");
  358. if(%#stack%=64);
  359. slotclick(%#pegar%,l,false);
  360. wait(150ms);
  361. slotclick(%#slot%,l,false);
  362. set(verificar);
  363. endif;
  364. endif;
  365. next;
  366.  
  367. gui();
  368. wait(500ms);
  369. endif;
  370.  
  371. if(pegar_areia);
  372. unset(pegar_areia);
  373. #slot=0;#stop=0;
  374. look(%&dir%);look(,330);
  375. #gui=0;
  376. do;
  377. key(use);
  378. wait(1);
  379. ifmatches(%GUI%,"GUICHEST");
  380. set(#gui,1);
  381. endif;
  382. until(%#gui%=1);
  383.  
  384. set(verificar);
  385. for(#pegar,0,53);
  386.  
  387. if(verificar);
  388. unset(verificar);
  389. for(#item,63,71);
  390. getslotitem(%#item%,&id);
  391. ifmatches(%&id%,"air");
  392. #slot = %#item%;
  393. break;
  394. endif;
  395. if(%#item%=71);
  396. #stop=1;
  397. endif;
  398. next;
  399. endif;
  400.  
  401. if(%#stop%=1);
  402. break;
  403. endif;
  404.  
  405. getslotitem(%#pegar%,&id,#stack);
  406. ifmatches(%&id%,"sand");
  407. if(%#stack%=64);
  408. slotclick(%#pegar%,l,false);
  409. wait(150ms);
  410. slotclick(%#slot%,l,false);
  411. set(verificar);
  412. endif;
  413. endif;
  414. next;
  415.  
  416. gui();
  417. wait(500ms);
  418. endif;
  419.  
  420. if(pegar_terra);
  421. unset(pegar_terra);
  422. #slot=0;#stop=0;
  423. look(%&dir%);look(,30);
  424. #gui=0;
  425. do;
  426. key(use);
  427. wait(1);
  428. ifmatches(%GUI%,"GUICHEST");
  429. set(#gui,1);
  430. endif;
  431. until(%#gui%=1);
  432.  
  433. set(verificar);
  434. for(#pegar,0,53);
  435.  
  436. if(verificar);
  437. unset(verificar);
  438. for(#item,72,80);
  439. getslotitem(%#item%,&id);
  440. ifmatches(%&id%,"air");
  441. #slot = %#item%;
  442. break;
  443. endif;
  444. if(%#item%=80);
  445. #stop=1;
  446. endif;
  447. next;
  448. endif;
  449.  
  450. if(%#stop%=1);
  451. break;
  452. endif;
  453.  
  454. getslotitem(%#pegar%,&id,#stack);
  455. ifmatches(%&id%,"dirt");
  456. if(%#stack%=64);
  457. slotclick(%#pegar%,l,false);
  458. wait(150ms);
  459. slotclick(%#slot%,l,false);
  460. set(verificar);
  461. endif;
  462. endif;
  463. next;
  464.  
  465. gui();
  466. wait(500ms);
  467. endif;
  468.  
  469.  
  470.  
  471.  
  472. /////////////////Verificando se foi pego itens suficientes no baú
  473. gui(inventory);
  474. wait(1);
  475.  
  476. #terra_inv=0;
  477. #areia_inv=0;
  478. #cacto_inv=0;
  479. unsafe(x);
  480. for(#slot,9,35);
  481. getslotitem(%#slot%,&id,#stack);
  482. if(%&id%,"dirt");
  483. inc(#terra_inv,%#stack%);
  484. endif;
  485. ifmatches(%&id%,"sand")
  486. inc(#areia_inv,%#stack%);
  487. endif;
  488. ifmatches(%&id%,"cactus");
  489. inc(#cacto_inv,%#stack%);
  490. endif;
  491. next;
  492. endunsafe;
  493. gui();
  494. wait(500ms);
  495.  
  496. if((%#terra_inv%<32)&&(%#can_stop_terra%=1));
  497. set(parar);
  498. endif;
  499. if((%#areia_inv%<32)&&(%#can_stop_areia%=1));
  500. set(parar);
  501. endif;
  502. if((%#cacto_inv%<32)&&(%#can_stop_cacto%=1));
  503. set(parar);
  504. endif;
  505.  
  506. if(parar);
  507. unset(parar);
  508. log("&9&l[&f&oM&facro&9&l] &aVocê não está no limite minímo para continuar.");
  509. log("&9&l[&f&oM&facro&9&l] &aDesligando...");
  510. unset(mcacto);
  511. log("");
  512. log(&9&l[&f&oM&racro&9&l] &cTorre de Cacto &f&l[&4OFF&f&l]);
  513. keyup(back);keyup(forward);
  514. keyup(sneak);keyup(jump);
  515. stop;
  516. else;
  517. log("&9&l[&f&oM&facro&9&l] &aRetornando...");
  518. #zpos=%ZPOS%;
  519. #xpos=%XPOS%;
  520. #ypos=%YPOS%;
  521. do;
  522. echo(/home torre%#home%);
  523. wait(%#tempo%);
  524. wait(1);
  525. until((%XPOS%!=%#xpos%)||(%ZPOS%!=%#zpos%)||(%YPOS%!=%#ypos%));
  526. wait(500ms);
  527. gui(inventory);
  528. endif;
  529. endif;
  530.  
  531. wait(1);
  532. #cactos = 0 + %#cacto%;
  533. if(%#cacto%<2);
  534. for(#pegar,9,17);
  535. getslotitem(%#pegar%,&id,#stack);
  536. ifmatches(%&id%,"cactus");
  537. if(%#stack%=64);
  538. slotclick(%#pegar%,l,true);
  539. inc(#cactos,1);
  540. wait(150ms);
  541. endif;
  542. endif;
  543. if(%#cactos%=2);
  544. break;
  545. endif;
  546. next;
  547. endif;
  548.  
  549. #areias = 0 + %#areia%;
  550. if(%#areia%<2);
  551. for(#pegar,18,26);
  552. getslotitem(%#pegar%,&id,#stack);
  553. ifmatches(%&id%,"sand");
  554. if(%#stack%=64);
  555. slotclick(%#pegar%,l,true);
  556. inc(#areias,1);
  557. wait(150ms);
  558. endif;
  559. endif;
  560. if(%#areias%=2);
  561. break;
  562. endif;
  563. next;
  564. endif;
  565.  
  566. #terras = 0 + %#terra%;
  567. if(%#terra%<2);
  568. for(#pegar,27,35);
  569. getslotitem(%#pegar%,&id,#stack);
  570. ifmatches(%&id%,"dirt")
  571. if(%#stack%=64);
  572. slotclick(%#pegar%,l,true);
  573. inc(#terras,1);
  574. wait(150ms);
  575. endif;
  576. endif;
  577. if(%#terras%=2);
  578. break;
  579. endif;
  580. next;
  581. endif;
  582.  
  583. endif;
  584.  
  585. gui();
  586. wait(500ms);
  587.  
  588. #ypos= %YPOS% + 1;
  589. do;pick(dirt);look(90,90);keydown(JUMP);wait(200ms);key(use);keyup(JUMP);wait(400ms);until(%YPOS%=%#ypos%);
  590. keydown(sneak);
  591. look(90,80);pick(dirt);keydown(back);wait(800ms);keyup(back);key(use);wait(400ms);
  592. look(270,80);pick(dirt);keydown(back);wait(1600ms);keyup(back);key(use);wait(400ms);
  593. look(90,80);keydown(back);wait(680ms);keyup(back);wait(400ms);
  594. look(0,80);pick(dirt);keydown(back);wait(800ms);keyup(back);key(use);wait(400ms);
  595. look(180,80);pick(dirt);keydown(back);wait(1600ms);keyup(back);key(use);wait(400ms);
  596. look(0,80);keydown(back);wait(680ms);keyup(back);wait(400ms);
  597. keyup(sneak);
  598. if(%#modo%=2);
  599. do;
  600. #repetir=0;
  601. getidrel(-1,-1,0,&id);
  602. ifmatches(%&id%,"dirt");else;#repetir=1;keydown(sneak);pick(dirt);
  603. look(90,80);wait(50ms);keydown(back);wait(1300ms);keyup(back);wait(200ms);key(use);wait(500ms);
  604. look(270,90);keydown(back);wait(600ms);keyup(back);keyup(sneak);wait(250ms);
  605. keydown(sneak);endif;
  606. getidrel(1,-1,0,&id);
  607. ifmatches(%&id%,"dirt");else;#repetir=1;keydown(sneak);pick(dirt);
  608. look(270,80);wait(50ms);keydown(back);wait(1300ms);keyup(back);wait(200ms);key(use);wait(500ms);
  609. look(90,90);keydown(back);wait(600ms);keyup(back);keyup(sneak);wait(250ms);
  610. keydown(sneak);endif;
  611. getidrel(0,-1,1,&id);
  612. ifmatches(%&id%,"dirt");else;#repetir=1;keydown(sneak);pick(dirt);
  613. look(0,80);wait(50ms);keydown(back);wait(1300ms);keyup(back);wait(200ms);key(use);wait(500ms);
  614. look(180,90);keydown(back);wait(600ms);keyup(back);keyup(sneak);wait(250ms);
  615. keydown(sneak);endif;
  616. getidrel(0,-1,-1,&id);
  617. ifmatches(%&id%,"dirt");else;#repetir=1;keydown(sneak);pick(dirt);
  618. look(180,80);wait(50ms);keydown(back);wait(1300ms);keyup(back);wait(200ms);key(use);wait(500ms);
  619. look(0,90);keydown(back);wait(600ms);keyup(back);keyup(sneak);wait(250ms);
  620. keydown(sneak);endif;
  621. until(%#repetir%=0);
  622. endif;
  623. do(4);pick(sand);look(+90,60);wait(100ms);key(use);wait(350ms);loop;
  624. #ypos= %YPOS% + 3;
  625. do;pick(dirt);look(90,90);keydown(jump);wait(200ms);key(use);keyup(jump);wait(400ms);until(%YPOS%=%#ypos%);
  626. keydown(sneak);look(90,84);keydown(back);wait(1);keyup(back);wait(200ms);keyup(sneak);
  627. #cont=0;
  628. do;slot(1);key(attack);look(90,84);ifmatches(%HITID%,"air");#cont=1;endif;until(%#cont%=1);wait(200ms);
  629. keydown(sneak);
  630. look(+0,90);pick(cactus);wait(50ms);key(use);wait(300ms);
  631. look(150,69);pick(cactus);wait(50ms);key(use);wait(300ms);
  632. look(23,69);pick(cactus);wait(50ms);key(use);wait(300ms);look(270,90);
  633. keydown(sneak);keydown(back);wait(1300ms);keyup(back);wait(400ms);keyup(sneak);
  634. look(+0,90);pick(cactus);wait(50ms);key(use);wait(300ms);
  635. keyup(sneak);
  636. look(90,90);
  637. keydown(sneak);keydown(back);wait(600ms);keyup(back);wait(400ms);keyup(sneak);
  638. if(%#modo%=2);
  639. do;
  640. #repetir=0;
  641. getidrel(1,-3,0,&id);
  642. ifmatches(%&id%,"sand");else;#repetir=1;keydown(sneak);pick(sand);
  643. look(270,80);wait(50ms);keydown(back);wait(1300ms);keyup(back);wait(200ms);key(use);wait(500ms);
  644. look(90,90);keydown(back);wait(600ms);keyup(back);keyup(sneak);wait(250ms);
  645. keydown(sneak);endif;
  646. getidrel(-1,-3,0,&id);
  647. ifmatches(%&id%,"sand");else;#repetir=1;keydown(sneak);pick(sand);
  648. look(90,80);wait(50ms);keydown(back);wait(1300ms);keyup(back);wait(200ms);key(use);wait(500ms);
  649. look(270,90);keydown(back);wait(600ms);keyup(back);keyup(sneak);wait(250ms);
  650. keydown(sneak);endif;
  651. getidrel(0,-3,-1,&id);
  652. ifmatches(%&id%,"sand");else;#repetir=1;keydown(sneak);pick(sand);
  653. look(180,80);wait(50ms);keydown(back);wait(1300ms);keyup(back);wait(200ms);key(use);wait(500ms);
  654. look(0,90);keydown(back);wait(600ms);keyup(back);keyup(sneak);wait(250ms);
  655. keydown(sneak);endif;
  656. getidrel(0,-3,1,&id);
  657. ifmatches(%&id%,"sand");else;#repetir=1;keydown(sneak);pick(sand);
  658. look(0,80);wait(50ms);keydown(back);wait(1300ms);keyup(back);wait(200ms);key(use);wait(500ms);
  659. look(180,90);keydown(back);wait(600ms);keyup(back);keyup(sneak);wait(250ms);
  660. keydown(sneak);endif;
  661. getidrel(1,-2,0,&id);
  662. ifmatches(%&id%,"cactus");else;#repetir=1;pick(cactus);
  663. look(90,90);
  664. keydown(sneak);keydown(forward);wait(800ms);key(use);keyup(forward);
  665. keydown(back);wait(600ms);keyup(back);keyup(sneak);wait(250ms);endif;
  666. getidrel(-1,-2,0,&id);
  667. ifmatches(%&id%,"cactus");else;#repetir=1;pick(cactus);
  668. look(270,90);
  669. keydown(sneak);keydown(forward);wait(800ms);key(use);keyup(forward);
  670. keydown(back);wait(600ms);keyup(back);keyup(sneak);wait(250ms);endif;
  671. getidrel(0,-2,-1,&id);
  672. ifmatches(%&id%,"cactus");else;#repetir=1;pick(cactus);
  673. look(0,90);
  674. keydown(sneak);keydown(forward);wait(800ms);key(use);keyup(forward);
  675. keydown(back);wait(600ms);keyup(back);keyup(sneak);wait(250ms);endif;
  676. getidrel(0,-2,1,&id);
  677. ifmatches(%&id%,"cactus");else;#repetir=1;pick(cactus);
  678. look(180,90);
  679. keydown(sneak);keydown(forward);wait(800ms);key(use);keyup(forward);
  680. keydown(back);wait(600ms);keyup(back);keyup(sneak);wait(250ms);
  681. endif;
  682. until(%#repetir%=0);
  683. endif;
  684.  
  685. inc(#andares_concluidos,1);
  686. inc(#total_andares_concluidos,1);
  687. if(#andares_concluidos = #andares);
  688. inc(#torres_feitas,1);
  689. endif;
  690. log("");
  691. log("&9&l[&f&oM&facro&9&l] &aTorre Cacto:");
  692. log("");
  693. log("&9&l[&f&oM&facro&9&l] &fTorre concluída: &a%#torres_feitas%/%#homes%");
  694. log("&9&l[&f&oM&facro&9&l] &fAndar concluído: &a%#andares_concluidos%/%#andares%");
  695. log("&9&l[&f&oM&facro&9&l] &fAndares feitos (total): &a%#total_andares_concluidos%");
  696. wait(500ms);
  697. if(#andares_concluidos = #andares);
  698. set(#andares_concluidos,"");
  699. endif;
  700. loop;
  701.  
  702. do(2);
  703. echo(/sethome torre%#home%);
  704. wait(3);
  705. loop;
  706.  
  707. until(#home = #homes);
  708. /////////////////Fim das torres
  709. #fa_torre = 0;
  710. wait(3);
  711. clearchat();
  712. playsound(random.levelup);
  713. log("");
  714. log("&9&l[&f&oM&facro&9&l] &aTodos os andares foram feitos!");
  715. log("");
  716. log("&9&l[&f&oM&facro&9&l] &fAndares concluidos: &a%#total_andares_concluidos%");
  717. log("&9&l[&f&oM&facro&9&l] &fTorres feitas: &a%#torres_feitas%&f/&a%#homes%");
  718. log("");
  719. log("&9&l[&f&oM&racro&9&l] &cTorre de Cacto &f&l[&4OFF&f&l]");
  720. unset(mcacto);
  721. stop;
  722. endif;
  723. }$$
Advertisement
Add Comment
Please, Sign In to add comment
Public Pastes
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!