Advertisement
GustPack100

G-Cacto-Pedregulho

Jul 28th, 2016
141
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 25.43 KB | None | 0 0
  1. $${
  2. if(cac);
  3. log(&6[Macro]&f G-Cacto &4&l[OFF]);
  4. logto(debug,);
  5. keyup(forward);
  6. keyup(sneak);
  7. keyup(back);
  8. keyup(jump);
  9. unset(cac);
  10. stop;
  11. else;
  12. set(cac);
  13. log(" ");
  14. log(" ");
  15. log(" ");
  16. log(&6&l[Macro]&f G-Cacto &4&l[ON]);
  17. log(" ");
  18. log(" ");
  19. log(" ");
  20. wait(1);
  21. prompt(&delay,$$?,Qual o Delay?(De 1 há 6));
  22. wait(1);
  23. prompt(#torre,$$?,Quantas torres deseja?(Maximo 100));
  24. if(%#torre%>100);
  25. log(&6&l[Macro]&4&l &f[&6!&f]&4&lERRO&f[&6!&f]);
  26. log(&6&l[Macro]&f Numero de torre é maior que 100 !!!);
  27. log(&6&l[Macro]&f G-Cacto &4&l[OFF]);
  28. unset(cac);
  29. stop;
  30. endif;
  31. if(%#torre%<=0);
  32. log(&6&l[Macro]&4&l &f[&6!&f]&4&lERRO&f[&6!&f]);
  33. log(&6&l[Macro]&f Numero de torre é igual a 0 !!!);
  34. log(&6&l[Macro]&f G-Cacto &4&l[OFF]);
  35. unset(cac);
  36. stop;
  37. endif;
  38. if(%#torre%>1);
  39. prompt(#nt,$$?,Deseja começar por qual torre?);
  40. else;
  41. #nt=1;
  42. endif;
  43. if(%#nt%=0);
  44. log(&6&l[Macro]&4&l &f[&6!&f]&4&lERRO&f[&6!&f]);
  45. log(&6&l[Macro]&f Numero de torre é igual a 0 !!!);
  46. log(&6&l[Macro]&f G-Cacto &4&l[OFF]);
  47. unset(cac);
  48. stop;
  49. endif;
  50. prompt(#andar,$$?,Quantos andares deseja?);
  51. if(%#nt%>%#torre%);
  52. log(&6&l[Macro]&4&l &f[&6!&f]&4&lERRO&f[&6!&f]);
  53. log(&6[Macro]&f Numero de torre é maior que o desejado!!!);
  54. log(&6&l[Macro]&f G-Cacto &4&l[OFF]);
  55. unset(cac);
  56. stop;
  57. endif;
  58. ifmatches(%#torre%,a|b|c|d|e|f|g|h|i|j|k|l|m|n|o|p|q|r|s|t|u|v|w|x|y|z);
  59. log(&6&l[Macro]&4&l &f[&6!&f]&4&lERRO&f[&6!&f]);
  60. log(&6[Macro]&f Numero de torre é uma letra !!!);
  61. log(&6&l[Macro]&f G-Cacto &4&l[OFF]);
  62. unset(cac);
  63. stop;
  64. endif;
  65. log(&6&l[Macro]&f G-Cacto &4&l[ON]);
  66. log(&6&l[Macro]&f Delay= %#delay%!);
  67. log(&6&l[Macro]&f Quantidade de Torres: %#torre%!);
  68. log(&6&l[Macro]&f Altura: %#andar%!);
  69. wait(2);
  70. ifmatches(%&delay%,^1);#delay=1;endif;
  71. ifmatches(%&delay%,^2);#delay=2;endif;
  72. ifmatches(%&delay%,^3);#delay=3;endif;
  73. ifmatches(%&delay%,^4);#delay=4;endif;
  74. ifmatches(%&delay%,^5);#delay=5;endif;
  75. ifmatches(%&delay%,^6);#delay=6;endif;
  76. #tor=1;
  77. #alt=1;
  78. #pa=1;
  79. #baut=1;
  80. #bauc=1;
  81. #baua=1;
  82. #bivt=0;
  83. #biva=0;
  84. #bivc=0;
  85. #itivt=9;
  86. #itivc=18;
  87. #itiva=27;
  88. do;
  89. log(&6&l[Macro]&f Torre: %#tor%);
  90. if(%#nt%=1);}$$/home t1$${endif;
  91. if(%#nt%=2);}$$/home t2$${endif;
  92. if(%#nt%=3);}$$/home t3$${endif;
  93. if(%#nt%=4);}$$/home t4$${endif;
  94. if(%#nt%=5);}$$/home t5$${endif;
  95. if(%#nt%=6);}$$/home t6$${endif;
  96. if(%#nt%=7);}$$/home t7$${endif;
  97. if(%#nt%=8);}$$/home t8$${endif;
  98. if(%#nt%=9);}$$/home t9$${endif;
  99. if(%#nt%=10);}$$/home t10$${endif;
  100. if(%#nt%=11);}$$/home t11$${endif;
  101. if(%#nt%=12);}$$/home t12$${endif;
  102. if(%#nt%=13);}$$/home t13$${endif;
  103. if(%#nt%=14);}$$/home t14$${endif;
  104. if(%#nt%=15);}$$/home t15$${endif;
  105. if(%#nt%=16);}$$/home t16$${endif;
  106. if(%#nt%=17);}$$/home t17$${endif;
  107. if(%#nt%=18);}$$/home t18$${endif;
  108. if(%#nt%=19);}$$/home t19$${endif;
  109. if(%#nt%=20);}$$/home t20$${endif;
  110. if(%#nt%=21);}$$/home t21$${endif;
  111. if(%#nt%=22);}$$/home t22$${endif;
  112. if(%#nt%=23);}$$/home t23$${endif;
  113. if(%#nt%=24);}$$/home t24$${endif;
  114. if(%#nt%=25);}$$/home t25$${endif;
  115. if(%#nt%=26);}$$/home t26$${endif;
  116. if(%#nt%=27);}$$/home t27$${endif;
  117. if(%#nt%=28);}$$/home t28$${endif;
  118. if(%#nt%=29);}$$/home t29$${endif;
  119. if(%#nt%=30);}$$/home t30$${endif;
  120. if(%#nt%=31);}$$/home t31$${endif;
  121. if(%#nt%=32);}$$/home t32$${endif;
  122. if(%#nt%=33);}$$/home t33$${endif;
  123. if(%#nt%=34);}$$/home t34$${endif;
  124. if(%#nt%=35);}$$/home t35$${endif;
  125. if(%#nt%=36);}$$/home t36$${endif;
  126. if(%#nt%=37);}$$/home t37$${endif;
  127. if(%#nt%=38);}$$/home t38$${endif;
  128. if(%#nt%=39);}$$/home t39$${endif;
  129. if(%#nt%=40);}$$/home t40$${endif;
  130. if(%#nt%=41);}$$/home t41$${endif;
  131. if(%#nt%=42);}$$/home t42$${endif;
  132. if(%#nt%=43);}$$/home t43$${endif;
  133. if(%#nt%=44);}$$/home t44$${endif;
  134. if(%#nt%=45);}$$/home t45$${endif;
  135. if(%#nt%=46);}$$/home t46$${endif;
  136. if(%#nt%=47);}$$/home t47$${endif;
  137. if(%#nt%=48);}$$/home t48$${endif;
  138. if(%#nt%=49);}$$/home t49$${endif;
  139. if(%#nt%=50);}$$/home t50$${endif;
  140. if(%#nt%=51);}$$/home t51$${endif;
  141. if(%#nt%=52);}$$/home t52$${endif;
  142. if(%#nt%=53);}$$/home t53$${endif;
  143. if(%#nt%=54);}$$/home t54$${endif;
  144. if(%#nt%=55);}$$/home t55$${endif;
  145. if(%#nt%=56);}$$/home t56$${endif;
  146. if(%#nt%=57);}$$/home t57$${endif;
  147. if(%#nt%=58);}$$/home t58$${endif;
  148. if(%#nt%=59);}$$/home t59$${endif;
  149. if(%#nt%=60);}$$/home t60$${endif;
  150. if(%#nt%=61);}$$/home t61$${endif;
  151. if(%#nt%=62);}$$/home t62$${endif;
  152. if(%#nt%=63);}$$/home t63$${endif;
  153. if(%#nt%=64);}$$/home t64$${endif;
  154. if(%#nt%=65);}$$/home t65$${endif;
  155. if(%#nt%=66);}$$/home t66$${endif;
  156. if(%#nt%=67);}$$/home t67$${endif;
  157. if(%#nt%=68);}$$/home t68$${endif;
  158. if(%#nt%=69);}$$/home t69$${endif;
  159. if(%#nt%=70);}$$/home t70$${endif;
  160. if(%#nt%=71);}$$/home t71$${endif;
  161. if(%#nt%=72);}$$/home t72$${endif;
  162. if(%#nt%=73);}$$/home t73$${endif;
  163. if(%#nt%=74);}$$/home t74$${endif;
  164. if(%#nt%=75);}$$/home t75$${endif;
  165. if(%#nt%=76);}$$/home t76$${endif;
  166. if(%#nt%=77);}$$/home t77$${endif;
  167. if(%#nt%=78);}$$/home t78$${endif;
  168. if(%#nt%=79);}$$/home t79$${endif;
  169. if(%#nt%=80);}$$/home t80$${endif;
  170. if(%#nt%=81);}$$/home t81$${endif;
  171. if(%#nt%=82);}$$/home t82$${endif;
  172. if(%#nt%=83);}$$/home t83$${endif;
  173. if(%#nt%=84);}$$/home t84$${endif;
  174. if(%#nt%=85);}$$/home t85$${endif;
  175. if(%#nt%=86);}$$/home t86$${endif;
  176. if(%#nt%=87);}$$/home t87$${endif;
  177. if(%#nt%=88);}$$/home t88$${endif;
  178. if(%#nt%=89);}$$/home t89$${endif;
  179. if(%#nt%=90);}$$/home t90$${endif;
  180. if(%#nt%=91);}$$/home t91$${endif;
  181. if(%#nt%=92);}$$/home t92$${endif;
  182. if(%#nt%=93);}$$/home t93$${endif;
  183. if(%#nt%=94);}$$/home t94$${endif;
  184. if(%#nt%=95);}$$/home t95$${endif;
  185. if(%#nt%=96);}$$/home t96$${endif;
  186. if(%#nt%=97);}$$/home t97$${endif;
  187. if(%#nt%=98);}$$/home t98$${endif;
  188. if(%#nt%=99);}$$/home t99$${endif;
  189. if(%#nt%=100);}$$/home t100$${endif;
  190. wait(%#delay%);
  191.  
  192. do(%#andar%);
  193. log(&6&l[Macro]&f Andar: %#alt%);
  194. logto(debug,&6&l[Macro] &fTorre: &6%#nt%/%#torre% &fAndar: &6%#alt%/%#andar%);
  195. #x=%XPOS%;
  196. #y=%YPOS%;
  197. #z=%ZPOS%;
  198. look(NORTH);
  199. look(,+89);
  200. wait(1);
  201. do;
  202. pick(4);
  203. keydown(jump);
  204. wait(3t);
  205. do(3);
  206. key(use);
  207. loop;
  208. keyup(jump);
  209. wait(700ms);
  210. if(%YPOS%>%#y%+1);
  211. do;
  212. key(attack);
  213. until(%YPOS%=%#y%+1);
  214. wait(100ms);
  215. endif;
  216. if(%YPOS%=%#y%+1);
  217. break;
  218. endif;
  219. loop;
  220. wait(200ms);
  221. keydown(sneak);
  222. pick(4);
  223.  
  224. pick(4);
  225. look(NORTH);
  226. do;
  227. keydown(back);
  228. until(%ZPOS%=%#z%+1);
  229. look(,+82);
  230. wait(500ms);
  231. keyup(back);
  232. do(3);
  233. key(use);
  234. loop;wait(100ms);
  235.  
  236. pick(4);
  237. #x=%XPOS%;
  238. #z=%ZPOS%;
  239. do;
  240. keydown(forward);
  241. until(%ZPOS%=%#z%-1);
  242. keyup(forward);
  243. look(EAST);
  244. do;
  245. keydown(back);
  246. until(%XPOS%=%#x%-1);
  247. look(,+82);
  248. wait(500ms);
  249. keyup(back);
  250. do(3);
  251. key(use);
  252. loop;
  253. wait(100ms);
  254.  
  255. pick(4);
  256. #x=%XPOS%;
  257. #z=%ZPOS%;
  258. do;keydown(forward);
  259. until(%XPOS%=%#x%+1);
  260. keyup(forward);
  261. look(SOUTH);
  262. do;
  263. keydown(back);
  264. until(%ZPOS%=%#z%-1);
  265. look(,+82);
  266. wait(500ms);
  267. keyup(back);
  268. do(3);
  269. key(use);
  270. loop;
  271. wait(100ms);
  272.  
  273. pick(4);
  274. #x=%XPOS%;
  275. #z=%ZPOS%;
  276. do;
  277. keydown(forward);
  278. until(%ZPOS%=%#z%+1);
  279. keyup(forward);
  280. look(WEST);
  281. do;
  282. keydown(back);
  283. until(%XPOS%=%#x%+1);
  284. look(,+82);
  285. wait(500ms);
  286. keyup(back);
  287. do(3);
  288. key(use);
  289. loop;
  290. wait(100ms);
  291.  
  292. pick(12);
  293. #x=%XPOS%;
  294. #z=%ZPOS%;
  295. #y=%YPOS%;
  296. do;
  297. keydown(forward);
  298. until(%XPOS%=%#x%-1);
  299. keyup(forward)
  300. wait(200ms);
  301. do;
  302. pick(12);
  303. keydown(jump);
  304. wait(3t);
  305. do(3);
  306. key(use);
  307. loop;
  308. keyup(jump);
  309. wait(500ms);
  310. if(%YPOS%>%#y%+1);
  311. do;
  312. key(attack);
  313. until(%YPOS%=%#y%+1);
  314. wait(100ms);
  315. endif;if(%YPOS%=%#y%+1);
  316. break;
  317. endif;
  318. loop;
  319. wait(500ms);
  320. keydown(sneak);
  321.  
  322. pick(12);
  323. look(NORTH);
  324. do;
  325. keydown(back);
  326. until(%ZPOS%=%#z%+1);
  327. look(,+82);
  328. wait(500ms);
  329. keyup(back);
  330. do(3);
  331. key(use);
  332. loop;
  333. wait(200ms);
  334.  
  335. pick(12);
  336. #x=%XPOS%;
  337. #z=%ZPOS%;
  338. do;
  339. keydown(forward);
  340. until(%ZPOS%=%#z%-1);
  341. keyup(forward);
  342. look(EAST);
  343. do;
  344. keydown(back);
  345. until(%XPOS%=%#x%-1);
  346. look(,+82);
  347. wait(200ms);
  348. keyup(back);
  349. do(3);
  350. key(use);
  351. loop;
  352. wait(200ms);
  353.  
  354. pick(12);
  355. #x=%XPOS%;
  356. #z=%ZPOS%;
  357. do;
  358. keydown(forward);
  359. until(%XPOS%=%#x%+1);
  360. keyup(forward);
  361. look(SOUTH);
  362. do;
  363. keydown(back);
  364. until(%ZPOS%=%#z%-1);
  365. look(,+82);
  366. wait(500ms);
  367. keyup(back);
  368. do(3);
  369. key(use);
  370. loop;
  371. wait(200ms);
  372.  
  373. pick(12);
  374. #x=%XPOS%;
  375. #z=%ZPOS%;
  376. do;
  377. keydown(forward);
  378. until(%ZPOS%=%#z%+1);
  379. keyup(forward);
  380. look(WEST);
  381. do;
  382. keydown(back);
  383. until(%XPOS%=%#x%+1);l
  384. look(,+82);
  385. wait(200ms);
  386. keyup(back);
  387. do(3);
  388. key(use);
  389. loop;
  390. wait(200ms);
  391.  
  392. pick(4);
  393. #x=%XPOS%;
  394. #z=%ZPOS%;
  395. #y=%YPOS%;
  396. do;
  397. keydown(forward);
  398. until(%XPOS%=%#x%-1);
  399. keyup(forward);
  400. do;
  401. pick(4);
  402. keydown(jump);
  403. wait(3t);
  404. do(3);
  405. key(use);
  406. loop;
  407. keyup(jump);
  408. wait(700ms);
  409. if(%YPOS%>%#y%+1);
  410. do;
  411. key(attack);
  412. until(%YPOS%=%#y%+1);
  413. wait(100ms);
  414. endif;
  415. if(%YPOS%=%#y%+1);
  416. break;
  417. endif;
  418. loop;
  419. #y=%YPOS%;
  420. wait(200ms);
  421. do;
  422. pick(4);
  423. keydown(jump);
  424. wait(3t);
  425. do(3);
  426. key(use);
  427. loop;
  428. keyup(jump);
  429. wait(700ms);
  430. if(%YPOS%>%#y%+1);
  431. do;
  432. key(attack);
  433. until(%YPOS%=%#y%+1);
  434. wait(100ms);
  435. endif;
  436. if(%YPOS%=%#y%+1);
  437. break;
  438. endif;
  439. loop;
  440. keydown(sneak);
  441. wait(300ms);
  442.  
  443. #x=%XPOS%;
  444. #z=%ZPOS%;
  445. look(NORTH);
  446. do;
  447. keydown(back);
  448. until(%ZPOS%=%#z%+1);
  449. look(,+85);
  450. wait(500ms);
  451. getslotitem(%#pa%,#spa,#stack);
  452. ifmatches(%#spa%,0);
  453. #pa=1;
  454. endif;
  455. keyup(back);
  456. slot(1);
  457. do;
  458. key(attack);
  459. key(attack);
  460. key(attack);
  461. until(%HITID%=12);
  462. wait(500ms);
  463.  
  464. pick(81);
  465. look(NORTH);
  466. do;
  467. keydown(back);
  468. until(%ZPOS%=%#z%+1);
  469. look(,+89);
  470. wait(500ms);
  471. keyup(back);
  472. wait(2t);
  473. key(use);
  474. wait(100ms);
  475.  
  476. pick(81);
  477. #x=%XPOS%;
  478. #z=%ZPOS%;
  479. do;
  480. keydown(forward);
  481. until(%ZPOS%=%#z%-1);
  482. keyup(forward);
  483. look(EAST);
  484. do;
  485. keydown(back);
  486. until(%XPOS%=%#x%-1);
  487. look(,+89);
  488. wait(500ms);
  489. keyup(back);
  490. do(3);
  491. key(use);
  492. loop;
  493. wait(100ms);
  494.  
  495. pick(81);
  496. #x=%XPOS%;
  497. #z=%ZPOS%;
  498. do;
  499. keydown(forward);
  500. until(%XPOS%=%#x%+1);
  501. keyup(forward);
  502. look(SOUTH);
  503. do;
  504. keydown(back);
  505. until(%ZPOS%=%#z%-1);
  506. look(,+89);
  507. wait(500ms);
  508. keyup(back);
  509. do(3);
  510. key(use);
  511. loop;
  512. wait(100ms);
  513.  
  514. pick(81);
  515. #x=%XPOS%;
  516. #z=%ZPOS%;
  517. do;
  518. keydown(forward);
  519. until(%ZPOS%=%#z%+1);
  520. keyup(forward);
  521. look(WEST);
  522. do;
  523. keydown(back);
  524. until(%XPOS%=%#x%+1);
  525. look(,+89);
  526. wait(500ms);
  527. keyup(back);
  528. do(3);
  529. key(use);
  530. loop;
  531. wait(100ms);
  532. do;
  533. keydown(forward);
  534. until(%XPOS%=%#x%);
  535. keyup(forward);
  536. wait(200ms);
  537.  
  538. pick(4);
  539. #x=%XPOS%;
  540. #z=%ZPOS%;
  541. look(NORTH);
  542. do;
  543. keydown(back);
  544. until(%ZPOS%=%#z%+1);
  545. look(,+85);
  546. wait(500ms);
  547. keyup(back);
  548. if(%HITID%=3);
  549. set(bug);
  550. getslotitem(%#pa%,#spa,);
  551. ifmatches(%#spa%,0);
  552. #pa=1;
  553. endif;
  554. slot(1);
  555. do;
  556. key(attack);
  557. until(%HITID%=12);
  558.  
  559. pick(81);
  560. look(NORTH);
  561. do;
  562. keydown(back);
  563. until(%ZPOS%=%#z%+1);
  564. look(,+89);
  565. wait(500ms);
  566. keyup(back);
  567. wait(2t);
  568. key(use);
  569. wait(100ms);
  570.  
  571. pick(81);
  572. #x=%XPOS%;
  573. #z=%ZPOS%;
  574. do;
  575. keydown(forward);
  576. until(%ZPOS%=%#z%-1);
  577. keyup(forward);
  578. look(EAST);
  579. do;
  580. keydown(back);
  581. until(%XPOS%=%#x%-1);
  582. look(,+89);
  583. wait(500ms);
  584. keyup(back);
  585. wait(2t);
  586. key(use);
  587. wait(100ms);
  588.  
  589. pick(81);
  590. #x=%XPOS%;
  591. #z=%ZPOS%;
  592. do;
  593. keydown(forward);
  594. until(%XPOS%=%#x%+1);
  595. keyup(forward);
  596. look(SOUTH);
  597. do;
  598. keydown(back);
  599. until(%ZPOS%=%#z%-1);
  600. look(,+89);
  601. wait(500ms);
  602. keyup(back);
  603. wait(2t);
  604. key(use);
  605. wait(100ms);
  606.  
  607. pick(81);
  608. #x=%XPOS%;
  609. #z=%ZPOS%;
  610. do;
  611. keydown(forward);
  612. until(%ZPOS%=%#z%+1);
  613. keyup(forward);
  614. look(WEST);
  615. do;
  616. keydown(back);
  617. until(%XPOS%=%#x%+1);
  618. look(,+89);
  619. wait(500ms);
  620. keyup(back);
  621. wait(2t);
  622. key(use);
  623. wait(100ms);
  624. endif;
  625.  
  626. if(bug);
  627. unset(bug);
  628. #x=%XPOS%;
  629. #z=%ZPOS%;
  630. do;
  631. keydown(forward);
  632. until(%XPOS%=%#x%-1);
  633. keyup(forward);
  634. inc(#alt,1);
  635. wait(100ms);
  636. else;
  637. #x=%XPOS%;
  638. #z=%ZPOS%;
  639. do;
  640. keydown(forward);
  641. until(%ZPOS%=%#z%-1);
  642. keyup(forward);
  643. inc(#alt,1);
  644. wait(100ms);
  645. endif;
  646.  
  647. gui(inventory);
  648. wait(1);
  649. getslotitem(17,#id,#qtt);
  650. getslotitem(26,#id,#qtc);
  651. getslotitem(35,#id,#qta);
  652. wait(1);
  653. if((%#qtt%=0)|(%#qtc%=0)|(%#qta%=0));
  654. gui();
  655. if(%#qtt%=0);log(&6&l[Macro]&f Sem terra no inventario);endif;
  656. if(%#qtc%=0);log(&6&l[Macro]&f Sem cacto no inventario);endif;
  657. if(%#qta%=0);log(&6&l[Macro]&f Sem areia no inventario);endif;
  658. if(%#nt%=1);}$$/sethome t1$${endif;
  659. if(%#nt%=2);}$$/sethome t2$${endif;
  660. if(%#nt%=3);}$$/sethome t3$${endif;
  661. if(%#nt%=4);}$$/sethome t4$${endif;
  662. if(%#nt%=5);}$$/sethome t5$${endif;
  663. if(%#nt%=6);}$$/sethome t6$${endif;
  664. if(%#nt%=7);}$$/sethome t7$${endif;
  665. if(%#nt%=8);}$$/sethome t8$${endif;
  666. if(%#nt%=9);}$$/sethome t9$${endif;
  667. if(%#nt%=10);}$$/sethome t10$${endif;
  668. if(%#nt%=11);}$$/sethome t11$${endif;
  669. if(%#nt%=12);}$$/sethome t12$${endif;
  670. if(%#nt%=13);}$$/sethome t13$${endif;
  671. if(%#nt%=14);}$$/sethome t14$${endif;
  672. if(%#nt%=15);}$$/sethome t15$${endif;
  673. if(%#nt%=16);}$$/sethome t16$${endif;
  674. if(%#nt%=17);}$$/sethome t17$${endif;
  675. if(%#nt%=18);}$$/sethome t18$${endif;
  676. if(%#nt%=19);}$$/sethome t19$${endif;
  677. if(%#nt%=20);}$$/sethome t20$${endif;
  678. if(%#nt%=21);}$$/sethome t21$${endif;
  679. if(%#nt%=22);}$$/sethome t22$${endif;
  680. if(%#nt%=23);}$$/sethome t23$${endif;
  681. if(%#nt%=24);}$$/sethome t24$${endif;
  682. if(%#nt%=25);}$$/sethome t25$${endif;
  683. if(%#nt%=26);}$$/sethome t26$${endif;
  684. if(%#nt%=27);}$$/sethome t27$${endif;
  685. if(%#nt%=28);}$$/sethome t28$${endif;
  686. if(%#nt%=29);}$$/sethome t29$${endif;
  687. if(%#nt%=30);}$$/sethome t30$${endif;
  688. if(%#nt%=31);}$$/sethome t31$${endif;
  689. if(%#nt%=32);}$$/sethome t32$${endif;
  690. if(%#nt%=33);}$$/sethome t33$${endif;
  691. if(%#nt%=34);}$$/sethome t34$${endif;
  692. if(%#nt%=35);}$$/sethome t35$${endif;
  693. if(%#nt%=36);}$$/sethome t36$${endif;
  694. if(%#nt%=37);}$$/sethome t37$${endif;
  695. if(%#nt%=38);}$$/sethome t38$${endif;
  696. if(%#nt%=39);}$$/sethome t39$${endif;
  697. if(%#nt%=40);}$$/sethome t40$${endif;
  698. if(%#nt%=41);}$$/sethome t41$${endif;
  699. if(%#nt%=42);}$$/sethome t42$${endif;
  700. if(%#nt%=43);}$$/sethome t43$${endif;
  701. if(%#nt%=44);}$$/sethome t44$${endif;
  702. if(%#nt%=45);}$$/sethome t45$${endif;
  703. if(%#nt%=46);}$$/sethome t46$${endif;
  704. if(%#nt%=47);}$$/sethome t47$${endif;
  705. if(%#nt%=48);}$$/sethome t48$${endif;
  706. if(%#nt%=49);}$$/sethome t49$${endif;
  707. if(%#nt%=50);}$$/sethome t50$${endif;
  708. if(%#nt%=51);}$$/sethome t51$${endif;
  709. if(%#nt%=52);}$$/sethome t52$${endif;
  710. if(%#nt%=53);}$$/sethome t53$${endif;
  711. if(%#nt%=54);}$$/sethome t54$${endif;
  712. if(%#nt%=55);}$$/sethome t55$${endif;
  713. if(%#nt%=56);}$$/sethome t56$${endif;
  714. if(%#nt%=57);}$$/sethome t57$${endif;
  715. if(%#nt%=58);}$$/sethome t58$${endif;
  716. if(%#nt%=59);}$$/sethome t59$${endif;
  717. if(%#nt%=60);}$$/sethome t60$${endif;
  718. if(%#nt%=61);}$$/sethome t61$${endif;
  719. if(%#nt%=62);}$$/sethome t62$${endif;
  720. if(%#nt%=63);}$$/sethome t63$${endif;
  721. if(%#nt%=64);}$$/sethome t64$${endif;
  722. if(%#nt%=65);}$$/sethome t65$${endif;
  723. if(%#nt%=66);}$$/sethome t66$${endif;
  724. if(%#nt%=67);}$$/sethome t67$${endif;
  725. if(%#nt%=68);}$$/sethome t68$${endif;
  726. if(%#nt%=69);}$$/sethome t69$${endif;
  727. if(%#nt%=70);}$$/sethome t70$${endif;
  728. if(%#nt%=71);}$$/sethome t71$${endif;
  729. if(%#nt%=72);}$$/sethome t72$${endif;
  730. if(%#nt%=73);}$$/sethome t73$${endif;
  731. if(%#nt%=74);}$$/sethome t74$${endif;
  732. if(%#nt%=75);}$$/sethome t75$${endif;
  733. if(%#nt%=76);}$$/sethome t76$${endif;
  734. if(%#nt%=77);}$$/sethome t77$${endif;
  735. if(%#nt%=78);}$$/sethome t78$${endif;
  736. if(%#nt%=79);}$$/sethome t79$${endif;
  737. if(%#nt%=80);}$$/sethome t80$${endif;
  738. if(%#nt%=81);}$$/sethome t81$${endif;
  739. if(%#nt%=82);}$$/sethome t82$${endif;
  740. if(%#nt%=83);}$$/sethome t83$${endif;
  741. if(%#nt%=84);}$$/sethome t84$${endif;
  742. if(%#nt%=85);}$$/sethome t85$${endif;
  743. if(%#nt%=86);}$$/sethome t86$${endif;
  744. if(%#nt%=87);}$$/sethome t87$${endif;
  745. if(%#nt%=88);}$$/sethome t88$${endif;
  746. if(%#nt%=89);}$$/sethome t89$${endif;
  747. if(%#nt%=90);}$$/sethome t90$${endif;
  748. if(%#nt%=91);}$$/sethome t91$${endif;
  749. if(%#nt%=92);}$$/sethome t92$${endif;
  750. if(%#nt%=93);}$$/sethome t93$${endif;
  751. if(%#nt%=94);}$$/sethome t94$${endif;
  752. if(%#nt%=95);}$$/sethome t95$${endif;
  753. if(%#nt%=96);}$$/sethome t96$${endif;
  754. if(%#nt%=97);}$$/sethome t97$${endif;
  755. if(%#nt%=98);}$$/sethome t98$${endif;
  756. if(%#nt%=99);}$$/sethome t99$${endif;
  757. if(%#nt%=100);}$$/sethome t100$${endif;
  758. wait(100ms);
  759. }$$
  760. /home item
  761. $${
  762. wait(%#delay%);
  763. do(2);
  764. keydown(jump);
  765. wait(3t);
  766. keyup(jump);
  767. wait(100ms);
  768. loop;
  769. ifmatches(%DIRECTION%,N);&dir1=NORTH;&dir2=EAST;&dir3=WEST;endif;
  770. ifmatches(%DIRECTION%,S);&dir1=SOUTH;&dir2=WEST;&dir3=EAST;endif;
  771. ifmatches(%DIRECTION%,E);&dir1=EAST;&dir2=SOUTH;&dir3=NORTH;endif;
  772. ifmatches(%DIRECTION%,W);&dir1=WEST;&dir2=NORTH;&dir3=SOUTH;endif;
  773.  
  774. if(%#qtt%=0);
  775. log(&6&l[Macro]&f Repondo as terras!);
  776. do;
  777. look(%&dir1%);
  778.  
  779. if(%#baut%=1);look(-35,-35);endif;
  780. if(%#baut%=2);look(-13,-40);endif;
  781. if(%#baut%=3);look(+13,-40);endif;
  782. if(%#baut%=4);look(+35,-35);endif;
  783.  
  784. if(%#baut%=5);look(-35,-20);endif;
  785. if(%#baut%=6);look(-13,-25);endif;
  786. if(%#baut%=7);look(+13,-25);endif;
  787. if(%#baut%=8);look(+35,-20);endif;
  788.  
  789. if(%#baut%=9);look(-35,+5);endif;
  790. if(%#baut%=10);look(-13,+10);endif;
  791. if(%#baut%=11);look(+13,+10);endif;
  792. if(%#baut%=12);look(+35,+5);endif;
  793.  
  794. if(%#baut%=13);look(-35,+20);endif;
  795. if(%#baut%=14);look(-13,+25);endif;
  796. if(%#baut%=15);look(+13,+25);endif;
  797. if(%#baut%=16);look(+35,+20);endif;
  798. wait(500ms);
  799. do;
  800. key(use);
  801. wait(2);
  802. ifmatches(%GUI%,CHEST);
  803. break;
  804. endif;
  805. loop;
  806. wait(500ms);
  807. #slt=62;
  808. do;
  809. getslotitem(%#bivt%,#id,#qbiv);
  810. if(%#qbiv%=0);
  811. inc(#bivt,1);
  812. endif;
  813. slotclick(%#bivt%,l,false);
  814. wait(150ms);
  815. slotclick(%#slt%,l,false);
  816. wait(150ms);
  817. slotclick(%#bivt%,l,false);
  818. wait(150ms);
  819. getslotitem(%#slt%,#id,#qslt);
  820. if(%#qslt%!=0);
  821. dec(#slt,1);
  822. endif;
  823. wait(200ms);
  824. if(%#bivt%=54);
  825. inc(#baut,1);
  826. #bivt=0;
  827. #ult=0;
  828. gui();
  829. wait(1);
  830. break;
  831. endif;
  832. getslotitem(54,#id,#ult);
  833. until(%#ult%!=0);
  834. if(%#baut%=17);
  835. log(&6&l[Macro]&f Acabo os baus de reposição !!!);
  836. log(&6&l[Macro]&f G-Cacto &4&l[OFF]);
  837. unset(cac);
  838. stop;
  839. endif;
  840. until(%#ult%!=0);
  841. endif;
  842. gui();
  843. wait(1);
  844.  
  845. if(%#qtc%=0);
  846. log(&6&l[Macro]&f Repondo os Cactos!);
  847. do;
  848. look(%&dir2%);
  849.  
  850. if(%#bauc%=1);look(-35,-35);endif;
  851. if(%#bauc%=2);look(-13,-40);endif;
  852. if(%#bauc%=3);look(+13,-40);endif;
  853. if(%#bauc%=4);look(+35,-35);endif;
  854.  
  855. if(%#bauc%=5);look(-35,-20);endif;
  856. if(%#bauc%=6);look(-13,-25);endif;
  857. if(%#bauc%=7);look(+13,-25);endif;
  858. if(%#bauc%=8);look(+35,-20);endif;
  859.  
  860. if(%#bauc%=9);look(-35,+5);endif;
  861. if(%#bauc%=10);look(-13,+10);endif;
  862. if(%#bauc%=11);look(+13,+10);endif;
  863. if(%#bauc%=12);look(+35,+5);endif;
  864.  
  865. if(%#bauc%=13);look(-35,+20);endif;
  866. if(%#bauc%=14);look(-13,+25);endif;
  867. if(%#bauc%=15);look(+13,+25);endif;
  868. if(%#bauc%=16);look(+35,+20);endif;
  869. wait(500ms);
  870. do;
  871. key(use);
  872. wait(2);
  873. ifmatches(%GUI%,CHEST);
  874. break;
  875. endif;
  876. loop;
  877. wait(500ms);
  878. #slt=71;
  879. do;
  880. getslotitem(%#bivc%,#id,#qbiv);
  881. if(%#qbiv%=0);
  882. inc(#bivc,1);
  883. endif;
  884. slotclick(%#bivc%,l,false);
  885. wait(150ms);
  886. slotclick(%#slt%,l,false);
  887. wait(150ms);
  888. slotclick(%#bivc%,l,false);
  889. wait(150ms);
  890. getslotitem(%#slt%,#id,#qslt);
  891. if(%#qslt%!=0);
  892. dec(#slt,1);
  893. endif;
  894. wait(200ms);
  895. if(%#bivc%=54);
  896. inc(#bauc,1);
  897. gui();
  898. #bivc=0;
  899. #ult=0;
  900. wait(1);
  901. break;
  902. endif;
  903. getslotitem(63,#id,#ult);
  904. until(%#ult%!=0);
  905. if(%#bauc%=17);
  906. log(&6&l[Macro]&f Acabo os baus de reposição !!!);
  907. log(&6&l[Macro]&f G-Cacto &4&l[OFF]);
  908. unset(cac);
  909. stop;
  910. endif;
  911. until(%#ult%!=0);
  912. endif;
  913. gui();
  914. wait(1);
  915.  
  916. if(%#qta%=0);
  917. log(&6&l[Macro]&f Repondo as Areias!);
  918. do;
  919. look(%&dir3%);
  920.  
  921. if(%#baua%=1);look(-35,-35);endif;
  922. if(%#baua%=2);look(-13,-40);endif;
  923. if(%#baua%=3);look(+13,-40);endif;
  924. if(%#baua%=4);look(+35,-35);endif;
  925.  
  926. if(%#baua%=5);look(-35,-20);endif;
  927. if(%#baua%=6);look(-13,-25);endif;
  928. if(%#baua%=7);look(+13,-25);endif;
  929. if(%#baua%=8);look(+35,-20);endif;
  930.  
  931. if(%#baua%=9);look(-35,+5);endif;
  932. if(%#baua%=10);look(-13,+10);endif;
  933. if(%#baua%=11);look(+13,+10);endif;
  934. if(%#baua%=12);look(+35,+5);endif;
  935.  
  936. if(%#baua%=13);look(-35,+20);endif;
  937. if(%#baua%=14);look(-13,+25);endif;
  938. if(%#baua%=15);look(+13,+25);endif;
  939. if(%#baua%=16);look(+35,+20);endif;
  940. wait(500ms);
  941. do;
  942. key(use);
  943. wait(2);
  944. ifmatches(%GUI%,CHEST);
  945. break;
  946. endif;
  947. loop;
  948. wait(500ms);
  949. #slt=80;
  950. do;
  951. getslotitem(%#biva%,#id,#qbiv);
  952. if(%#qbiv%=0);
  953. inc(#biva,1);
  954. endif;
  955. slotclick(%#biva%,l,false);
  956. wait(150ms);
  957. slotclick(%#slt%,l,false);
  958. wait(150ms);
  959. slotclick(%#biva%,l,false);
  960. wait(150ms);
  961. getslotitem(%#slt%,#id,#qslt);
  962. if(%#qslt%!=0);
  963. dec(#slt,1);
  964. endif;
  965. wait(200ms);
  966. if(%#biva%=54);
  967. inc(#baua,1);
  968. gui();
  969. #biva=0;
  970. #ult=0;
  971. wait(1);
  972. break;
  973. endif;
  974. getslotitem(72,#id,#ult);
  975. until(%#ult%!=0);
  976. if(%#baua%=17);
  977. log(&6[Macro]&b Acabo os baus de reposição !!!);
  978. log(&6&l[Macro]&f G-Cacto &4&l[OFF]);
  979. unset(cac);
  980. stop;
  981. endif;
  982. until(%#ult%!=0);
  983. endif;
  984. gui();
  985. if(%#nt%=1);}$$/home t1$${endif;
  986. if(%#nt%=2);}$$/home t2$${endif;
  987. if(%#nt%=3);}$$/home t3$${endif;
  988. if(%#nt%=4);}$$/home t4$${endif;
  989. if(%#nt%=5);}$$/home t5$${endif;
  990. if(%#nt%=6);}$$/home t6$${endif;
  991. if(%#nt%=7);}$$/home t7$${endif;
  992. if(%#nt%=8);}$$/home t8$${endif;
  993. if(%#nt%=9);}$$/home t9$${endif;
  994. if(%#nt%=10);}$$/home t10$${endif;
  995. if(%#nt%=11);}$$/home t11$${endif;
  996. if(%#nt%=12);}$$/home t12$${endif;
  997. if(%#nt%=13);}$$/home t13$${endif;
  998. if(%#nt%=14);}$$/home t14$${endif;
  999. if(%#nt%=15);}$$/home t15$${endif;
  1000. if(%#nt%=16);}$$/home t16$${endif;
  1001. if(%#nt%=17);}$$/home t17$${endif;
  1002. if(%#nt%=18);}$$/home t18$${endif;
  1003. if(%#nt%=19);}$$/home t19$${endif;
  1004. if(%#nt%=20);}$$/home t20$${endif;
  1005. if(%#nt%=21);}$$/home t21$${endif;
  1006. if(%#nt%=22);}$$/home t22$${endif;
  1007. if(%#nt%=23);}$$/home t23$${endif;
  1008. if(%#nt%=24);}$$/home t24$${endif;
  1009. if(%#nt%=25);}$$/home t25$${endif;
  1010. if(%#nt%=26);}$$/home t26$${endif;
  1011. if(%#nt%=27);}$$/home t27$${endif;
  1012. if(%#nt%=28);}$$/home t28$${endif;
  1013. if(%#nt%=29);}$$/home t29$${endif;
  1014. if(%#nt%=30);}$$/home t30$${endif;
  1015. if(%#nt%=31);}$$/home t31$${endif;
  1016. if(%#nt%=32);}$$/home t32$${endif;
  1017. if(%#nt%=33);}$$/home t33$${endif;
  1018. if(%#nt%=34);}$$/home t34$${endif;
  1019. if(%#nt%=35);}$$/home t35$${endif;
  1020. if(%#nt%=36);}$$/home t36$${endif;
  1021. if(%#nt%=37);}$$/home t37$${endif;
  1022. if(%#nt%=38);}$$/home t38$${endif;
  1023. if(%#nt%=39);}$$/home t39$${endif;
  1024. if(%#nt%=40);}$$/home t40$${endif;
  1025. if(%#nt%=41);}$$/home t41$${endif;
  1026. if(%#nt%=42);}$$/home t42$${endif;
  1027. if(%#nt%=43);}$$/home t43$${endif;
  1028. if(%#nt%=44);}$$/home t44$${endif;
  1029. if(%#nt%=45);}$$/home t45$${endif;
  1030. if(%#nt%=46);}$$/home t46$${endif;
  1031. if(%#nt%=47);}$$/home t47$${endif;
  1032. if(%#nt%=48);}$$/home t48$${endif;
  1033. if(%#nt%=49);}$$/home t49$${endif;
  1034. if(%#nt%=50);}$$/home t50$${endif;
  1035. if(%#nt%=51);}$$/home t51$${endif;
  1036. if(%#nt%=52);}$$/home t52$${endif;
  1037. if(%#nt%=53);}$$/home t53$${endif;
  1038. if(%#nt%=54);}$$/home t54$${endif;
  1039. if(%#nt%=55);}$$/home t55$${endif;
  1040. if(%#nt%=56);}$$/home t56$${endif;
  1041. if(%#nt%=57);}$$/home t57$${endif;
  1042. if(%#nt%=58);}$$/home t58$${endif;
  1043. if(%#nt%=59);}$$/home t59$${endif;
  1044. if(%#nt%=60);}$$/home t60$${endif;
  1045. if(%#nt%=61);}$$/home t61$${endif;
  1046. if(%#nt%=62);}$$/home t62$${endif;
  1047. if(%#nt%=63);}$$/home t63$${endif;
  1048. if(%#nt%=64);}$$/home t64$${endif;
  1049. if(%#nt%=65);}$$/home t65$${endif;
  1050. if(%#nt%=66);}$$/home t66$${endif;
  1051. if(%#nt%=67);}$$/home t67$${endif;
  1052. if(%#nt%=68);}$$/home t68$${endif;
  1053. if(%#nt%=69);}$$/home t69$${endif;
  1054. if(%#nt%=70);}$$/home t70$${endif;
  1055. if(%#nt%=71);}$$/home t71$${endif;
  1056. if(%#nt%=72);}$$/home t72$${endif;
  1057. if(%#nt%=73);}$$/home t73$${endif;
  1058. if(%#nt%=74);}$$/home t74$${endif;
  1059. if(%#nt%=75);}$$/home t75$${endif;
  1060. if(%#nt%=76);}$$/home t76$${endif;
  1061. if(%#nt%=77);}$$/home t77$${endif;
  1062. if(%#nt%=78);}$$/home t78$${endif;
  1063. if(%#nt%=79);}$$/home t79$${endif;
  1064. if(%#nt%=80);}$$/home t80$${endif;
  1065. if(%#nt%=81);}$$/home t81$${endif;
  1066. if(%#nt%=82);}$$/home t82$${endif;
  1067. if(%#nt%=83);}$$/home t83$${endif;
  1068. if(%#nt%=84);}$$/home t84$${endif;
  1069. if(%#nt%=85);}$$/home t85$${endif;
  1070. if(%#nt%=86);}$$/home t86$${endif;
  1071. if(%#nt%=87);}$$/home t87$${endif;
  1072. if(%#nt%=88);}$$/home t88$${endif;
  1073. if(%#nt%=89);}$$/home t89$${endif;
  1074. if(%#nt%=90);}$$/home t90$${endif;
  1075. if(%#nt%=91);}$$/home t91$${endif;
  1076. if(%#nt%=92);}$$/home t92$${endif;
  1077. if(%#nt%=93);}$$/home t93$${endif;
  1078. if(%#nt%=94);}$$/home t94$${endif;
  1079. if(%#nt%=95);}$$/home t95$${endif;
  1080. if(%#nt%=96);}$$/home t96$${endif;
  1081. if(%#nt%=97);}$$/home t97$${endif;
  1082. if(%#nt%=98);}$$/home t98$${endif;
  1083. if(%#nt%=99);}$$/home t99$${endif;
  1084. if(%#nt%=100);}$$/home t100$${endif;
  1085. wait(%#delay%);
  1086. else;
  1087. gui();
  1088. endif;
  1089.  
  1090. log(&6&l[Macro]&f Verificando itens...);
  1091. log(&6&l[Macro]&f Terra OK!);
  1092. getslotitem(7,#id,#qte);
  1093. if(%#qte%<20);
  1094. gui(inventory);
  1095. wait(1);
  1096. do;
  1097. do;
  1098. getslotitem(%#itivt%,#id,#qitivt);
  1099. if(%#qitivt%=0);
  1100. inc(#itivt,1);
  1101. if(%#itivt%=18);
  1102. #itivt=9;
  1103. endif;
  1104. endif;
  1105. while(%#qitivt%=0);
  1106. slotclick(%#itivt%,l,false);
  1107. wait(150ms);
  1108. slotclick(42,l,false);
  1109. wait(150ms);
  1110. slotclick(%#itivt%,l,false);
  1111. wait(1);
  1112. getslotitem(42,#id,#qte);
  1113. until(%#qte%>20);
  1114. gui();log(&6&l[Macro]&f Terra recolocada !!!);
  1115. else;
  1116. gui();
  1117. endif;
  1118. log(&6&l[Macro]&f Areia OK!);
  1119. wait(1);
  1120. getslotitem(8,#id,#qar);
  1121. if(%#qar%<20);
  1122. gui(inventory);
  1123. wait(1);
  1124. do;
  1125. do;
  1126. getslotitem(%#itiva%,#id,#qitiva);
  1127. if(%#qitiva%=0);
  1128. inc(#itiva,1);
  1129. if(%#itiva%=36);
  1130. #itiva=27;
  1131. endif;
  1132. endif;
  1133. while(%#qitiva%=0);
  1134. slotclick(%#itiva%,l,false);
  1135. wait(150ms);
  1136. slotclick(43,l,false);
  1137. wait(150ms);
  1138. slotclick(%#itiva%,l,false);
  1139. wait(1);
  1140. getslotitem(43,#id,#qte);
  1141. until(%#qte%>20);
  1142. gui();
  1143. log(&6&l[Macro]&f Areia recolocada !!!);
  1144. else;gui();
  1145. endif;
  1146. log(&6&l[Macro]&f Cacto OK!);
  1147. getslotitem(9,#id,#qte);
  1148. if(%#qte%<20);
  1149. gui(inventory);
  1150. wait(1);
  1151. do;
  1152. do;
  1153. getslotitem(%#itivc%,#id,#qitivc);
  1154. if(%#qitivc%=0);
  1155. inc(#itivc,1);
  1156. if(%#itivc%=27);
  1157. #ivitc=18;
  1158. endif;
  1159. endif;
  1160. while(%#qitivc%=0);
  1161. slotclick(%#itivc%,l,false);
  1162. wait(150ms);
  1163. slotclick(44,l,false);
  1164. wait(150ms);
  1165. slotclick(%#itivc%,l,false);
  1166. wait(1);
  1167. getslotitem(44,#id,#qte);
  1168. until(%#qte%>20);
  1169. gui();
  1170. log(&6&l[Macro]&f Cacto recolocado !!!);
  1171. else;
  1172. gui();
  1173. endif;
  1174. slot(1);
  1175. getslotitem(%#pa%,#spa,#stack);
  1176. ifmatches(%#spa%,0);
  1177. #pa=1;
  1178. else;
  1179. if(%DURABILITY%<20);
  1180. wait(500ms);
  1181. echo(/fix all);
  1182. inc(#pa,1);
  1183. if(%#pa%=7);
  1184. log(&6&l[Macro]&f Pa gastas!!!);
  1185. wait(500ms);
  1186. endif;
  1187. endif;
  1188. endif;
  1189. wait(500ms);
  1190. loop;
  1191.  
  1192. inc(#nt,1);
  1193. inc(#tor,1);
  1194. #alt=1;
  1195. until(%#torre%<%#nt%);
  1196. log(&6&l[Macro]&f Todas as torres concluidas!!!);
  1197. log(&6&l[Macro]&f Total de Torres Feitas: &6%#nt%/%#torre%!);
  1198. log(&6&l[Macro]&f G-Cacto &4&l[OFF]);
  1199. logto(debug,);
  1200. keyup(forward);
  1201. keyup(sneak);
  1202. keyup(back);
  1203. keyup(jump);
  1204. unset(cac);
  1205. stop;
  1206. endif;
  1207. }$$
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement