API tools faq
paste
Advertisement
Guest User

Untitled

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