API tools faq
paste
DiegoGamesFight

Macro Cacto 1.5.2

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