API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Mar 27th, 2017
47
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 13.29 KB | None | 0 0
raw download clone embed print report
  1. $${
  2. IF(xlyz);
  3. log("&4&l[Macro Escavaçao] &4&lDesativada.");
  4. Unset(xlyz);
  5. stop;
  6. else;
  7. log("&4&l[Macro Escavaçao] &e(by xlyz) &a&lAtivada.");
  8. set(xlyz);
  9.  
  10. &dir = %DIRECTION%;
  11.  
  12. ifmatches(%&dir%,N);
  13. &dir = NORTH;
  14. endif;
  15. ifmatches(%&dir%,S);
  16. &dir = SOUTH;
  17. endif;
  18. ifmatches(%&dir%,E);
  19. &dir = EAST;
  20. endif;
  21. ifmatches(%&dir%,W);
  22. &dir = WEST;
  23. endif;
  24.  
  25. set(nf);
  26.  
  27. PROMPT(#config,$$?, Quer usar a última configuraçao da macro?(1-Sim / 2-Não));
  28. if(%#config% = 2);
  29. log("&4[Macro]&9Você escolheu &4NAO &9usar a última configuraçao. Iniciando questionário..");
  30. do;
  31. PROMPT(#bloco,$$i, Qual bloco usará para escavar?);
  32. until((#bloco = 2)||(#bloco = 3)||(#bloco = 12)||(#bloco = 13)||(#bloco = 82)||(#bloco = 88)||(#bloco = 110));
  33. do;
  34. PROMPT(#quantidade,$$?, Qual quantidade de blocos que irá quebrar antes de verificar o inventário?Sugestão(500));
  35. until((#quantidade > 30));
  36. if(%#quantidade% > 799);
  37. log("&4[Macro]&cCuidado! Esse valor é alto, podem ocorrer problemas só utilize se tem certeza do que esta fazendo!");
  38. endif;
  39. do;
  40. PROMPT(#quebrar,$$?, Qual delay para quebrar os blocos?(0 sem delay para pás com mais eficiência/Aumente se o bloco nao quebrar!));
  41. until((#quebrar < 20) && (#quebrar >= 0));
  42. do;
  43. PROMPT(#bau,$$?, Em qual baú devo iniciar o armazenamento?(1 à 91));
  44. until((#bau > 0)&&(#bau <= 91));
  45. else;
  46. log("&4[Macro]&9Você escolheu &2usar &9a última configuraçao.");
  47. log("&4[Macro]&9Configuraçoes:");
  48. log("&4[Macro]&9Bau: &6%#bau%&e\&9Delay: &6%#quebrar%&e\&9Quantidade de blocos antes de verificar inventário: &6%#quantidade%&e\&9Id do bloco: &6%#bloco%");
  49. endif;
  50.  
  51. #slot = 4;
  52. #red = 0;
  53. unset(repos_pas);
  54. unset(bau_pas_full);
  55. unset(sem_pas);
  56. unset(pas_red);
  57. unset(sem_material);
  58.  
  59. do();
  60. if(repos_pas);
  61. #slot = 4;
  62. #red = 0;
  63. unset(repos_pas);
  64. endif;
  65.  
  66. // Quebrando blocos
  67. do(%#quantidade%);
  68. look(%&dir%);
  69. look(,59);
  70. pick(%#bloco%);
  71. key(use);
  72. wait(50ms);
  73. slot(%#slot%);
  74.  
  75. if((DURABILITY < 100)&&(DURABILITY > 0));
  76. inc(#slot);
  77. else;
  78. if(DURABILITY <= 0);
  79. log("&4[Macro]&6Sem pá nesse slot, aguardando &915 &6segundos para carregar se você esta reconectando...");
  80. wait(5);
  81. log("&4[Macro]&910 &6segundos para continuar se você esta reconectando...");
  82. log("&4[Macro]&2&lVou tentar logar, caso esteja reconectando...");
  83. //##################INSIRA SUA SENHA ABAIXO CASO QUEIRA:################
  84.  
  85. }$$/login SUASENHA$${
  86.  
  87. //##################INSIRA SUA SENHA ACIMA CASO QUEIRA##################
  88. wait(5);
  89. log("&4[Macro]&9 5 &6segundos para continuar...");
  90. wait(5);
  91. log("&4[Macro]&9Continuando");
  92. if((DURABILITY < 100) &&(DURABILITY > 0));
  93. if(%#slot% < 9);
  94. inc(#slot);
  95. else;
  96. log("&4[Macro]&9Reiniciando verificaçao de pás");
  97. #slot = 4;
  98. inc(#red);
  99. endif;
  100. endif;
  101. if(DURABILITY <= 0);
  102. inc(#slot);
  103. endif;
  104. endif;
  105. endif;
  106. if((%#slot% >= 10) && (%#red% < 3));
  107. log("&4[Macro]&9Reiniciando verificaçao de pás");
  108. #slot = 4;
  109. inc(#red);
  110. else;
  111. if((%#slot% >= 10) && (%#red% > 2));
  112. log("&4[Macro]&fReiniciei a verificaçao %#red% vezes, e todas as ferramentas estao no &4red&f, se possível as pás serao trocadas...");
  113. set(pas_red);
  114. break;
  115. endif;
  116. endif;
  117.  
  118. look(%&dir%);
  119. look(,59);
  120. if(%#quebrar% != 0);
  121. do(%#quebrar%);
  122. key(attack);
  123. loop;
  124. else;
  125. key(attack);
  126. endif;
  127. loop;
  128.  
  129. if((pas_red)&&(!bau_pas_full)&&(!sem_pas));
  130. set(repos_pas);
  131.  
  132. //Trocando pás
  133. log("&4[Macro]&9Trocando pás no &4red&9...");
  134. }$$/home trapbaus$${
  135. wait(8);
  136.  
  137. //Guardar pás no red
  138. look(WEST);
  139. wait(800ms);
  140. look(282,14);
  141. do;
  142. ifmatches(%GUI%,GUICHEST);
  143. break;
  144. endif;
  145. look(282,14);
  146. wait(2);
  147. key(use);
  148. wait(4);
  149. loop;
  150. log("&4[Macro]&9Guardando pás no &4red.");
  151. for(#i,84,89);
  152. slotclick(%#i%,l,true);
  153. wait(30ms);
  154. next;
  155.  
  156. //verifica se bau de pás red esta cheio
  157. getslotitem(53,#id,#stack);
  158. wait(500ms);
  159. if(%#stack%!=0);
  160. set(bau_pas_full);
  161. log("&4[Macro]&f&lO baú de pás red está cheio!!! A próxima vez que as pás ficarem red nao irá trocar.");
  162. endif;
  163. gui();
  164.  
  165. //Pegar pás novas
  166. look(299,15);
  167. wait(800ms);
  168.  
  169. //Verificando slots vazios
  170. #slot_vazio = 0;
  171. for(#i,4,9);
  172. getslotitem(%#i%,#id);
  173. if(%#id%=0);
  174. inc(#slot_vazio);
  175. endif;
  176. next;
  177.  
  178. do;
  179. ifmatches(%GUI%,GUICHEST);
  180. break;
  181. endif;
  182. look(299,15);
  183. wait(2);
  184. key(use);
  185. wait(4);
  186. loop;
  187. wait(500ms);
  188. log("&4[Macro]&9Pegando &2novas &9pás.");
  189.  
  190. //Pegando pás
  191. #i = 0;
  192. #cont = 0;
  193. do;
  194. getslotitem(%#i%,#id);
  195. if(%#id%!=0);
  196. slotclick(%#i%,l,true);
  197. inc(#cont);
  198. wait(100ms);
  199. endif;
  200. inc(#i);
  201.  
  202. if((%#cont% < %#slot_vazio%) && (%#i% >= 54));
  203. log("&4[Macro]&f&lNao tem pás suficientes para encher a hotbar!!! A próxima vez que as pás ficarem red nao irá trocar.");
  204. set(sem_pas);
  205. break;
  206. endif;
  207. if((%#cont% >= %#slot_vazio%) || (%#i% >= 54));
  208. break;
  209. endif;
  210. loop;
  211. gui();
  212. log("&4[Macro]&9Voltando ao local de escavaçao...");
  213. }$$/home escavar$${
  214. unset(pas_red);
  215. wait(8);
  216. elseif((pas_red)&&(bau_pas_full)||(sem_pas));
  217. log("&4&l[Macro AVISO]&cInfelismente, nao será possível trocar as pás!!!");
  218. if(bau_pas_full);
  219. log("&4&l[Macro Escavaçao] &4Desativada&c, pois o bau de pás no red está cheio!!!");
  220. else;
  221. log("&4&l[Macro Escavaçao] &4Desativada&c, pois nao tem pás suficientes para repor no baú!!!");
  222. endif;
  223. unset(xlyz);
  224. unset(bau_pas_full);
  225. unset(sem_pas);
  226. stop();
  227.  
  228. else;
  229.  
  230. // Abrindo inventário
  231. gui(inventory);
  232. pick(%#bloco%);
  233. if(%STACKSIZE%<64);
  234. log("&4[Macro]&9Repondo blocos.");
  235. for(#i,9,35);
  236. getslotitem(%#i%,#id);
  237. if(%#id%=%#bloco%);
  238. slotclick(%#i%,l,true);
  239. wait(5ms);
  240. endif;
  241. next;
  242. endif;
  243.  
  244. //Verifica se acabaram blocos do inventario
  245. gui(inventory);
  246. pick(%#bloco%)
  247. if(%STACKSIZE% < 40);
  248. log("&4[Macro]&9Aguardando blocos voltarem pro inventário.");
  249. wait(4);
  250. endif;
  251. if((%STACKSIZE%<20) && (!sem_material));
  252. log("&4[Macro]&9Nao tem blocos para repor, indo pegar mais!");
  253. }$$/home trapbaus$${
  254. wait(7);
  255. do;
  256. look(WEST);
  257. wait(800ms);
  258. look(270,17);
  259. wait(2);
  260. key(use);
  261. wait(4);
  262. ifmatches(%GUI%,GUICHEST);
  263. wait(2);
  264. break;
  265. endif;
  266. loop;
  267.  
  268. //Tirando outros itens dos slots onde fica o material usado.
  269. for(#i,81,83);
  270. slotclick(%#i%,l,true);
  271. wait(30ms);
  272. next;
  273.  
  274. //Pegando material do bau.
  275. #i = 0;
  276. #cont = 0;
  277. do;
  278. getslotitem(%#i%,#id);
  279. if(%#id% = %#bloco%);
  280. slotclick(%#i%,l,true);
  281. inc(#cont);
  282. wait(100ms);
  283. endif;
  284. inc(#i);
  285.  
  286. if((%#i% >= 54) && (%#cont% < 10));
  287. log("&4[Macro]&f&lNao tem material suficiente para escavar no baú! A próxima vez que acabar, a macro desligará!");
  288. set(sem_material);
  289. break;
  290. endif;
  291. if((%#cont% >= 10) || (%#i% >= 54));
  292. break;
  293. endif;
  294. loop;
  295. log("&4[Macro]&9Voltando ao local de escavaçao...");
  296. }$$/home escavar$${
  297. wait(7);
  298. elseif((%STACKSIZE% < 20) && (sem_material));
  299. log("&4&l[Macro]&4 Desativada&c, pois acabou o material de escavaçao no baú!!!");
  300. unset(sem_material);
  301. unset(xlyz);
  302. stop();
  303. endif;
  304.  
  305. if(nf);
  306. gui(inventory);
  307. wait(1);
  308. GETSLOTITEM(25,#id,#stack);
  309. IF(%#stack%=0);
  310. gui();
  311. elseif;
  312.  
  313. // Indo para os baus.
  314. }$$/home trapbaus$${
  315. wait(7);
  316. keydown(jump);wait(100ms);keyup(jump);wait(1);
  317. //Guardando ítens nos baus.
  318. do;
  319. //Olhando e Tentando abrir baus.
  320. do;
  321. ifmatches(%GUI%,GUICHEST);
  322. break;
  323. endif;
  324. look(NORTH);
  325. wait(500ms);
  326. if(%#bau%=1);look(-50,-24);endif;
  327. if(%#bau%=2);look(-39,-28);endif;
  328. if(%#bau%=3);look(-23,-32);endif;
  329. if(%#bau%=4);look(+1,-34);endif;
  330. if(%#bau%=5);look(+23,-32);endif;
  331. if(%#bau%=6);look(+39,-28);endif;
  332. if(%#bau%=7);look(+50,-24);endif;
  333. if(%#bau%=8);look(+61,-23);endif;
  334. if(%#bau%=9);look(+74,-24);endif;
  335. if(%#bau%=10);look(+91,-26);endif;
  336. if(%#bau%=11);look(+104,-25);endif;
  337. if(%#bau%=12);look(+120,-23);endif;
  338. if(%#bau%=13);look(+130,-24);endif;
  339. if(%#bau%=14);look(+141,-28);endif;
  340. if(%#bau%=15);look(+158,-32);endif;
  341. if(%#bau%=16);look(-179,-34);endif;
  342. if(%#bau%=17);look(-159,-32);endif;
  343. if(%#bau%=18);look(-143,-27);endif;
  344. if(%#bau%=19);look(-131,-24);endif;
  345. if(%#bau%=20);look(-120,-23);endif;
  346. if(%#bau%=21);look(-106,-24);endif;
  347. if(%#bau%=22);look(-89,-26);endif;
  348. if(%#bau%=23);look(-75,-25);endif;
  349. if(%#bau%=24);look(-61,-23);endif;
  350. if(%#bau%=25);look(-50,-10);endif;
  351. if(%#bau%=26);look(-39,-12);endif;
  352. if(%#bau%=27);look(-23,-14);endif;
  353. if(%#bau%=28);look(+1,-16);endif;
  354. if(%#bau%=29);look(+23,-14);endif;
  355. if(%#bau%=30);look(+39,-12);endif;
  356. if(%#bau%=31);look(+50,-10);endif;
  357. if(%#bau%=32);look(+61,-10);endif;
  358. if(%#bau%=33);look(+74,-11);endif;
  359. if(%#bau%=34);look(+91,-11);endif;
  360. if(%#bau%=35);look(+104,-11);endif;
  361. if(%#bau%=36);look(+120,-10);endif;
  362. if(%#bau%=37);look(+130,-10);endif;
  363. if(%#bau%=38);look(+141,-12);endif;
  364. if(%#bau%=39);look(+158,-14);endif;
  365. if(%#bau%=40);look(-179,-16);endif;
  366. if(%#bau%=41);look(-159,-14);endif;
  367. if(%#bau%=42);look(-143,-12);endif;
  368. if(%#bau%=43);look(-131,-10);endif;
  369. if(%#bau%=44);look(-120,-10);endif;
  370. if(%#bau%=45);look(-106,-11);endif;
  371. if(%#bau%=46);look(-89,-11);endif;
  372. if(%#bau%=47);look(-75,-11);endif;
  373. if(%#bau%=48);look(-61,-10);endif;
  374. if(%#bau%=49);look(-50,+4);endif;
  375. if(%#bau%=50);look(-39,+4);endif;
  376. if(%#bau%=51);look(-23,+4);endif;
  377. if(%#bau%=52);look(+23,+4);endif;
  378. if(%#bau%=53);look(+39,+4);endif;
  379. if(%#bau%=54);look(+50,+4);endif;
  380. if(%#bau%=55);look(+61,+4);endif;
  381. if(%#bau%=56);look(+74,+4);endif;
  382. if(%#bau%=57);look(+91,+4);endif;
  383. if(%#bau%=58);look(+104,+4);endif;
  384. if(%#bau%=59);look(+120,+4);endif;
  385. if(%#bau%=60);look(+130,+4);endif;
  386. if(%#bau%=61);look(+141,+4);endif;
  387. if(%#bau%=62);look(+158,+4);endif;
  388. if(%#bau%=63);look(-179,+4);endif;
  389. if(%#bau%=64);look(-159,+4);endif;
  390. if(%#bau%=65);look(-143,+4);endif;
  391. if(%#bau%=66);look(-131,+4);endif;
  392. if(%#bau%=67);look(-120,+4);endif;
  393. if(%#bau%=68);look(-106,+4);endif;
  394. if(%#bau%=69);look(-89,+4);endif;
  395. if(%#bau%=70);look(-75,+4);endif;
  396. if(%#bau%=71);look(-61,+4);endif;
  397. if(%#bau%=72);look(-50,+16);endif;
  398. if(%#bau%=73);look(-39,+20);endif;
  399. if(%#bau%=74);look(-23,+22);endif;
  400. if(%#bau%=75);look(+23,+22);endif;
  401. if(%#bau%=76);look(+39,+20);endif;
  402. if(%#bau%=77);look(+50,+16);endif;
  403. if(%#bau%=78);look(+61,+16);endif;
  404. if(%#bau%=79);look(+74,+18);endif;
  405. if(%#bau%=80);look(+91,+18);endif;
  406. if(%#bau%=81);look(+104,+18);endif;
  407. if(%#bau%=82);look(+120,+16);endif;
  408. if(%#bau%=83);look(+130,+16);endif;
  409. if(%#bau%=84);look(+141,+20);endif;
  410. if(%#bau%=85);look(+158,+22);endif;
  411. if(%#bau%=86);look(-179,+24);endif;
  412. if(%#bau%=87);look(-159,+22);endif;
  413. if(%#bau%=88);look(-143,+20);endif;
  414. if(%#bau%=89);look(-131,+16);endif;
  415. if(%#bau%=90);look(-120,+17);endif;
  416. if(%#bau%=91);look(-106,+18);endif;
  417. wait(2);
  418. key(use);
  419. wait(4);//Delay para repetir o loop de tentar abrir baú.
  420. loop;
  421. for(#i,54,71);
  422. slotclick(%#i%,l,true);
  423. wait(30ms);
  424. next;
  425. wait(500ms);
  426. getslotitem(53,#id,#stack);
  427. wait(500ms);
  428. if(%#stack%!=0);
  429. if(%#bau%<91);
  430. inc(#bau);
  431. gui();
  432. else;
  433. unset(nf);
  434. log("&4[Macro] &9Baús cheios! Agora &4nao &9serao guardados mais itens!!!");
  435. gui();
  436. break;
  437. endif;
  438. endif;
  439. until(%#stack%=0);
  440. }$$/home escavar$${
  441. wait(10);
  442. endif;
  443. else;
  444. gui();
  445. endif;
  446. endif;
  447. loop;
  448. endif;
  449.  
  450. $${
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!