API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Jan 18th, 2019
81
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 73.37 KB | None | 0 0
raw download clone embed print report
  1. $${
  2.  
  3. // Versao/Upgrade: 0.3
  4. // Verifique a versao mais atualizada neste link: http://adflyk.com/RPaXX
  5.  
  6. TOGGLE(sleep_macro);
  7. IF(sleep_macro);
  8. LOG("&b&l[&f&oM&facro&b&l] &aSleep_&lM&aob&a&lK&aill &b&l[&2ON&b&l]");
  9. ACHIEVEMENTGET("[ON] MobKill Upgrade 0.3","397");
  10. SET(&mensagem,"&aativando a macro: &fsleep_mobkill &a(upg. &f0.3&a)");
  11. SET(@sleep_mobkill);
  12. SET(@afk_onchat);
  13. SET(@&afk_onchat_bn,"");
  14. SET(trap_salvar_coordenadas);
  15. UNSET(sleep_error);
  16. UNSET(mob_invadido);
  17. WAIT(10T);
  18. ELSE;
  19. LOG("&b&l[&f&oM&facro&b&l] &cSleep_&lM&cob&c&lK&cill &b&l[&4OFF&b&l]");
  20. ACHIEVEMENTGET("[OFF] MobKill Upgrade 0.3","397");
  21. SET(&mensagem,"&cdesativando a macro: &fsleep_mobkill &c(upg. &f0.3&c)");
  22. IF(config_mk_save);
  23. IF(%&itens_armazenar%!="DESABILITADO");
  24. LOG("");
  25. LOG("&b&l[&f&oM&facro&b&l] &aTrap de baús:");
  26. IF(!baus_lotados);
  27. IF((sleep_reparar)||(sleep_trocar));
  28. #bau_atual_mostrar = %#bau_atual% - 1;
  29. IF(%#bau_atual_mostrar%=0);
  30. INC(#bau_atual_mostrar,1);
  31. ENDIF;
  32. LOG("&b&l[&f&oM&facro&b&l] &f&oBaú de armazenamento atual: &a%#bau_atual_mostrar%&fº");
  33. ELSE;
  34. LOG("&b&l[&f&oM&facro&b&l] &f&oBaú de armazenamento atual: &a%#bau_atual%&fº");
  35. ENDIF;
  36. ELSE;
  37. IF((sleep_reparar)||(sleep_trocar));
  38. #bau_atual_mostrar = %#bau_atual% - 2;
  39. ELSE;
  40. #bau_atual_mostrar = %#bau_atual% - 1;
  41. ENDIF;
  42. LOG("&b&l[&f&oM&facro&b&l] &f&oBaú de armazenamento atual: &4%#bau_atual_mostrar%&cº");
  43. LOG("&c(não é mais &cpossível &carmazenar)");
  44. ENDIF;
  45. IF(%#sleep_livros%>=1);
  46. LOG("&b&l[&f&oM&facro&b&l] &f&oTesouros encontrados: &a%#sleep_livros%");
  47. ELSE;
  48. LOG("&b&l[&f&oM&facro&b&l] &f&oTesouros encontrados: &cNenhum");
  49. ENDIF;
  50. ENDIF;
  51. LOG("");
  52. IF(%#mobs_mortos%>=1);
  53. LOG("&b&l[&f&oM&facro&b&l] &f&oMobs mortos (até o desligamento): &a%#mobs_mortos%");
  54. ELSEIF(%#mobs_mortos%=0);
  55. LOG("&b&l[&f&oM&facro&b&l] &f&oMobs mortos (até o desligamento): &cNenhum");
  56. ENDIF;
  57. LOG("");
  58. IF(mob_invadido);
  59. LOG("&b&l[&f&oM&facro&b&l] &cVocê ficou com a vida baixa e o alarme de &cinvasão foi acionado.");
  60. LOG("&b&l[&f&oM&facro&b&l] &cPrints foram salvas, verifique na pasta &cscreenshots do seu ModPack.");
  61. LOG("");
  62. ENDIF;
  63. IF(sleep_send);
  64. UNSET(sleep_send);
  65. REPLACE(&itens2,"1","");
  66. ENDIF;
  67. ENDIF;
  68. UNSET(@sleep_mobkill);
  69. UNSET(@afk_onchat);
  70. UNSET(@mobkill_power);
  71. STOP;
  72. ENDIF;
  73. IF(config_mk_save);
  74. SET(&prompt_texto,"Digite: 1 ou 2.");
  75. LOG("");
  76. LOG("&b&l[&f&oM&facro&b&l] &aIniciar com as últimas configurações?");
  77. LOG("&b&l[&f&oM&facro&b&l] &2[&f1&2] &fSim");
  78. LOG("&b&l[&f&oM&facro&b&l] &4[&f2&4] &cNão");
  79. IF(%&itens_armazenar%!="DESABILITADO");
  80. LOG("&b&l[&f&oM&facro&b&l] &2[&f3&2] &fSim, mas recomeçar do 1º baú.");
  81. SET(&prompt_texto,"Digite: 1, 2 ou 3.");
  82. ENDIF;
  83. LOG("");
  84. IF(@mobkill_power);
  85. SET(#sleep_quest_4,"1");
  86. ELSE;
  87. PROMPT(#sleep_quest_4,$$?,"%&prompt_texto%");
  88. ENDIF;
  89. IF(%#sleep_quest_4%=1);
  90. LOG("&b&l[&f&oM&facro&b&l] &2[&f1&2] &fSim");
  91. WAIT(20T);
  92. ELSEIF(%#sleep_quest_4%=2);
  93. LOG("&b&l[&f&oM&facro&b&l] &4[&f2&4] &cNão");
  94. SET(config_load);
  95. WAIT(20T);
  96. ELSEIF((%#sleep_quest_4%=3)&&(%&itens_armazenar%!="DESABILITADO"));
  97. LOG("&b&l[&f&oM&facro&b&l] &2[&f3&2] &fSim, mas recomeçar do 1º baú.");
  98. SET(#pos_first_chest,"");
  99. SET(#pos_last_chest,"");
  100. SET(#bau_atual,"1");
  101. SET(#sleep_livros,"");
  102. SET(#sleep_msg_send,"");
  103. SET(#hora_save,"5454");
  104. UNSET(baus_lotados);
  105. WAIT(20T);
  106. ELSE;
  107. LOG("&b&l[&f&oM&facro&b&l] &cResposta inválida. &9&o#SLEEP");
  108. SET(sleep_error);
  109. ENDIF;
  110. ELSE;
  111. SET(config_load);
  112. ENDIF;
  113. IF(config_load);
  114. SET(#sleep_livros,"");
  115. SET(&itens_armazenar,"");
  116. SET(#pos_first_chest,"");
  117. SET(#pos_last_chest,"");
  118. SET(#bau_atual,"1");
  119. SET(#sleep_msg_send,"");
  120. SET(#hora_save,"5454");
  121. UNSET(config_mk_save);
  122. UNSET(config_load);
  123. UNSET(sleep_reparar);
  124. UNSET(sleep_trocar);
  125. UNSET(sleep_desarmado);
  126. UNSET(baus_lotados);
  127. LOG("");
  128. SET(&itens1,"1&1a1a1t1i1v1a1n1d1o1 1a1 1m1a1c1r1o1:1 1&1f1s1l1e1");
  129. LOG("&b&l[&f&oM&facro&b&l] &aDeseja reparar sua &f&oEspada &aou &aseu &f&oMachado&a?");
  130. LOG("&b&l[&f&oM&facro&b&l] &2[&f1&2] &fSim");
  131. LOG("&b&l[&f&oM&facro&b&l] &4[&f2&4] &cNão");
  132. LOG("&b&l[&f&oM&facro&b&l] &2[&f3&2] &fVou upar desarmado");
  133. LOG("");
  134. PROMPT(#sleep_quest_1,$$?,"Digite: 1, 2 ou 3.");
  135. IF(%#sleep_quest_1%=1);
  136. LOG("&b&l[&f&oM&facro&b&l] &2[&f1&2] &fSim");
  137. SET(sleep_reparar);
  138. ELSEIF(%#sleep_quest_1%=2);
  139. LOG("&b&l[&f&oM&facro&b&l] &4[&f2&4] &cNão");
  140. SET(sleep_trocar);
  141. ELSEIF(%#sleep_quest_1%=3);
  142. LOG("&b&l[&f&oM&facro&b&l] &2[&f3&2] &fVou upar desarmado");
  143. SET(sleep_desarmado);
  144. ELSE;
  145. LOG("&b&l[&f&oM&facro&b&l] &cResposta inválida. &9&o#SLEEP");
  146. SET(sleep_error);
  147. ENDIF;
  148. IF(!sleep_error);
  149. IF(!sleep_desarmado);
  150. WAIT(20T);
  151. LOG("");
  152. IF(sleep_reparar);
  153. LOG("&b&l[&f&oM&facro&b&l] &aReparar sua &f&oEspada &aou seu &f&oMachado &acom &aqual durabilidade?");
  154. ELSE;
  155. LOG("&b&l[&f&oM&facro&b&l] &aTrocar de &f&oEspada &aou de &f&oMachado &acom &aqual durabilidade?");
  156. ENDIF;
  157. LOG("&b&l[&f&oM&facro&b&l] &aDigite um número de &f5 &aaté &f100&a.");
  158. LOG("");
  159. PROMPT(#sleep_quest_2,$$?,"Digite um número de 5 até 100.");
  160. IF((%#sleep_quest_2%>=5)&&(%#sleep_quest_2%<=100));
  161. LOG("&b&l[&f&oM&facro&b&l] &f%#sleep_quest_2%");
  162. ELSE;
  163. LOG("&b&l[&f&oM&facro&b&l] &cResposta inválida. &9&o#SLEEP");
  164. SET(sleep_error);
  165. ENDIF;
  166. ENDIF;
  167. IF(!sleep_error);
  168. WAIT(20T);
  169. LOG("");
  170. LOG("&b&l[&f&oM&facro&b&l] &aQuais itens você deseja armazenar?");
  171. LOG("&b&l[&f&oM&facro&b&l] &aAbra um &fbaú duplo &acom todos os itens");
  172. LOG("&adesejados, e pressione a tecla &f&lENTER &adurante &f3 &asegundos.");
  173. SET(&itens2,"1e1p1_1m1o1b1k1i1l1l1 1&1c1(1u1p1g1. 1&1f101.131&1c1)1");
  174. LOG("");
  175. SET(#tempo_real,"30");
  176. SET(#tempo_ms,"600");
  177. UNSET(achievementget);
  178. DO;
  179. IFMATCHES("%#tempo_ms%","^(.*)0$");
  180. IF(achievementget);
  181. IF(%#tempo_real%>1);
  182. ACHIEVEMENTGET("Você tem: %#tempo_real% segundos","397");
  183. ELSEIF(%#tempo_real%=1);
  184. ACHIEVEMENTGET("Você tem: 1 segundo","397");
  185. ELSE;
  186. ACHIEVEMENTGET("Tempo esgotado.","397");
  187. ENDIF;
  188. DEC(#tempo_real,1);
  189. IF(%#tempo_real%=-1);
  190. LOG("&b&l[&f&oM&facro&b&l] &cVocê demorou demais. &9&o#SLEEP");
  191. SET(sleep_error);
  192. BREAK;
  193. ENDIF;
  194. ENDIF;
  195. TOGGLE(achievementget);
  196. ENDIF;
  197. IF((KEY_RETURN)||(KEY_NUMPADENTER));
  198. DO(45);
  199. UNTIL((!KEY_RETURN)&&(!KEY_NUMPADENTER));
  200. IF((KEY_RETURN)||(KEY_NUMPADENTER));
  201. IF(%GUI%="GUICHEST");
  202. LOG("&b&l[&f&oM&facro&b&l] &aAguarde, salvando os itens... &9&o#SLEEP");
  203. FOR(#sleep_slot,0,53);
  204. GETSLOTITEM(%#sleep_slot%,#sleep_id);
  205. IF(%#sleep_id%!=0);
  206. GETITEMINFO(%#sleep_id%,&sleep_name);
  207. ACHIEVEMENTGET("%&sleep_name%","%#sleep_id%");
  208. WAIT(16T);
  209. SET(&itens_armazenar,"%&itens_armazenar%^%#sleep_id%$|");
  210. ENDIF;
  211. NEXT;
  212. GUI();
  213. IF(%&itens_armazenar%=NONE);
  214. LOG("&b&l[&f&oM&facro&b&l] &cNão foi encontrado nenhum item. &9&o#SLEEP");
  215. SET(&itens_armazenar,"DESABILITADO");
  216. ELSE;
  217. SET(&itens_armazenar,"%&itens_armazenar%^387$");
  218. ENDIF;
  219. BREAK;
  220. ELSE;
  221. LOG("&b&l[&f&oM&facro&b&l] &cVocê precisa abrir um &fbaú duplo &cprimeiro. &9&o#SLEEP");
  222. ENDIF;
  223. ENDIF;
  224. ENDIF;
  225. DEC(#tempo_ms,1);
  226. LOOP;
  227. IF(!sleep_error);
  228. IF((%&itens_armazenar%!="DESABILITADO")||(sleep_desarmado));
  229. WAIT(20T);
  230. LOG("");
  231. LOG("&b&l[&f&oM&facro&b&l] &aQuanto tempo para verificar o inventário?");
  232. LOG("&b&l[&f&oM&facro&b&l] &2[&f1&2] &f15 segundos");
  233. LOG("&b&l[&f&oM&facro&b&l] &2[&f2&2] &f30 segundos");
  234. LOG("&b&l[&f&oM&facro&b&l] &2[&f3&2] &f1 minuto");
  235. LOG("&b&l[&f&oM&facro&b&l] &2[&f4&2] &f2 minutos");
  236. LOG("");
  237. PROMPT(#sleep_quest_3,$$?,"Digite: 1, 2, 3 ou 4.");
  238. IF(%#sleep_quest_3%=1);
  239. LOG("&b&l[&f&oM&facro&b&l] &2[&f1&2] &f15 segundos");
  240. SET(#tempo_verificar_ms,"300");
  241. ELSEIF(%#sleep_quest_3%=2);
  242. LOG("&b&l[&f&oM&facro&b&l] &2[&f2&2] &f30 segundos");
  243. SET(#tempo_verificar_ms,"600");
  244. ELSEIF(%#sleep_quest_3%=3);
  245. LOG("&b&l[&f&oM&facro&b&l] &2[&f3&2] &f1 minuto");
  246. SET(#tempo_verificar_ms,"1200");
  247. ELSEIF(%#sleep_quest_3%=4);
  248. LOG("&b&l[&f&oM&facro&b&l] &2[&f4&2] &f2 minutos");
  249. SET(#tempo_verificar_ms,"2400");
  250. ELSE;
  251. LOG("&b&l[&f&oM&facro&b&l] &cResposta inválida. &9&o#SLEEP");
  252. SET(sleep_error);
  253. ENDIF;
  254. ELSE;
  255. SET(#tempo_verificar_ms,"600");
  256. ENDIF;
  257. IF(!sleep_error);
  258. WAIT(20T);
  259. LOG("");
  260. LOG("&b&l[&f&oM&facro&b&l] &aEm qual posição você deseja fixar sua mira?");
  261. LOG("&b&l[&f&oM&facro&b&l] &aOlhe na melhor posição para atacar os mobs. ");
  262. LOG("&b&l[&f&oM&facro&b&l] &aPressione a &atecla &f&lENTER&a durante &f3 &asegundos para salvar a posição.");
  263. SET(&rastreio,"INV");
  264. LOG("");
  265. SET(#tempo_real,"30");
  266. SET(#tempo_ms,"600");
  267. UNSET(achievementget);
  268. DO;
  269. IFMATCHES("%#tempo_ms%","^(.*)0$");
  270. IF(achievementget);
  271. IF(%#tempo_real%>1);
  272. ACHIEVEMENTGET("Você tem: %#tempo_real% segundos","397");
  273. ELSEIF(%#tempo_real%=1);
  274. ACHIEVEMENTGET("Você tem: 1 segundo","397");
  275. ELSE;
  276. ACHIEVEMENTGET("Tempo esgotado.","397");
  277. ENDIF;
  278. DEC(#tempo_real,1);
  279. IF(%#tempo_real%=-1);
  280. LOG("&b&l[&f&oM&facro&b&l] &cVocê demorou demais. &9&o#SLEEP");
  281. SET(sleep_error);
  282. BREAK;
  283. ENDIF;
  284. ENDIF;
  285. TOGGLE(achievementget);
  286. ENDIF;
  287. IF((KEY_RETURN)||(KEY_NUMPADENTER));
  288. DO(45);
  289. UNTIL((!KEY_RETURN)&&(!KEY_NUMPADENTER));
  290. IF((KEY_RETURN)||(KEY_NUMPADENTER));
  291. LOOK(%YAW%,%PITCH%);
  292. WAIT(1T);
  293. SET(#sleep_yaw,"%YAW%");
  294. SET(#sleep_pitch,"%PITCH%");
  295. LOOK(%#sleep_yaw%,%#sleep_pitch%,1);
  296. SET(#mob_xpos,"%XPOS%");
  297. SET(#mob_ypos,"%YPOS%");
  298. SET(#mob_zpos,"%ZPOS%");
  299. LOG("&b&l[&f&oM&facro&b&l] &aPosição &f(%#sleep_yaw%,&f%#sleep_pitch%) &asalva. &9&o#SLEEP");
  300. REPLACE(&rastreio,"V"," ");
  301. BREAK;
  302. ENDIF;
  303. LOOP;
  304. GUI();
  305. IF(sleeponchat);
  306. SET(config_mk_save);
  307. REPLACE(&rastreio,"I","/");
  308. IF(%DIRECTION%="N");
  309. SET(&sleep_look_oposto,"SOUTH");
  310. ELSEIF(%DIRECTION%="S");
  311. SET(&sleep_look_oposto,"NORTH");
  312. ELSEIF(%DIRECTION%="E");
  313. SET(&sleep_look_oposto,"WEST");
  314. ELSEIF(%DIRECTION%="W");
  315. SET(&sleep_look_oposto,"EAST");
  316. ENDIF;
  317. GETIDREL(0,-1,0,#iron1);
  318. IF(%#iron1%=42);
  319. SET(#yaw_iron,"0");
  320. SET(#pitch_iron,"90");
  321. ENDIF;
  322. GETIDREL(-1,0,0,#iron2);
  323. IF(%#iron2%=42);
  324. SET(#yaw_iron,"270");
  325. SET(#pitch_iron,"64");
  326. ENDIF;
  327. GETIDREL(1,0,0,#iron3);
  328. IF(%#iron3%=42);
  329. SET(#yaw_iron,"90");
  330. SET(#pitch_iron,"64");
  331. ENDIF;
  332. GETIDREL(0,0,-1,#iron4);
  333. IF(%#iron4%=42);
  334. SET(#yaw_iron,"0");
  335. SET(#pitch_iron,"64");
  336. ENDIF;
  337. GETIDREL(0,0,1,#iron5);
  338. IF(%#iron5%=42);
  339. SET(#yaw_iron,"180");
  340. SET(#pitch_iron,"64");
  341. ENDIF;
  342. REPLACE(&rastreio,"N","g");
  343. WAIT(20T);
  344. ELSE;
  345. LOG("");
  346. LOG("&b&l[&f&oM&facro&b&l] &cVocê não instalou ou instalou errado a macro SleepOnChat.");
  347. LOG("&b&l[&f&oM&facro&b&l] &cPara instalar acesse este link:");
  348. LOG("&b&l[&f&oM&facro&b&l] &ahttp://adflyk.com/oIw1Z");
  349. LOG("");
  350. SET(sleep_error);
  351. ENDIF;
  352. ENDIF;
  353. ENDIF;
  354. ENDIF;
  355. ENDIF;
  356. ENDIF;
  357. ENDIF;
  358. IF((!sleep_error)&&((sleep_reparar)||(sleep_trocar)));
  359. IF(!@mobkill_power);
  360. LOG("&b&l[&f&oM&facro&b&l] &aVerificando &f&oEspada &aou &f&oMachado&a... &9&o#SLEEP");
  361. SET(&arma,"");
  362. SET(#armas,"");
  363. UNSAFE;
  364. FOR(#sleep_slot,9,44);
  365. IF(%GUI%!="GUIINVENTORY");
  366. GUI(INVENTORY);
  367. ENDIF;
  368. GETSLOT(283,#slot_golden_sword);
  369. GETSLOT(286,#slot_golden_axe);
  370. GETSLOTITEM(%#sleep_slot%,#sleep_id);
  371. IFMATCHES("%#sleep_id%","^276$|^279$|^267$|^258$|^268$|^271$|^272$|^275$");
  372. INC(#armas,1);
  373. SET(#arma,"%#sleep_id%");
  374. IF((%#sleep_id%=276)||(%#sleep_id%=279));
  375. SET(#sleep_material,"264");
  376. SET(#sleep_material_dur,"1561");
  377. SET(#sleep_material_pegar,"2");
  378. ELSEIF((%#sleep_id%=267)||(%#sleep_id%=258));
  379. SET(#sleep_material,"265");
  380. SET(#sleep_material_dur,"250");
  381. SET(#sleep_material_pegar,"5");
  382. ELSEIF((%#sleep_id%=268)||(%#sleep_id%=271));
  383. SET(#sleep_material,"5");
  384. SET(#sleep_material_dur,"59");
  385. SET(#sleep_material_pegar,"8");
  386. ELSEIF((%#sleep_id%=272)||(%#sleep_id%=275));
  387. SET(#sleep_material,"4");
  388. SET(#sleep_material_dur,"131");
  389. SET(#sleep_material_pegar,"8");
  390. ENDIF;
  391. GETITEMINFO(%#sleep_material%,&material_name);
  392. GETITEMINFO(%#arma%,&arma_name);
  393. ENDIF;
  394. NEXT;
  395. IF(%#armas%>1);
  396. LOG("&b&l[&f&oM&facro&b&l] &cNão é possível utilizar mais de uma &f&oEspada &cou &f&oMachado&c. &9&o#SLEEP");
  397. SET(sleep_error);
  398. ELSEIF(%#armas%=1);
  399. SET(#armas,"");
  400. FOR(#sleep_slot,36,44);
  401. GETSLOTITEM(%#sleep_slot%,#sleep_id);
  402. IF(%#sleep_id%=%#arma%);
  403. INC(#armas,1);
  404. BREAK;
  405. ENDIF;
  406. NEXT;
  407. IF(%#armas%=0);
  408. LOG("&b&l[&f&oM&facro&b&l] &cSeu inventário está errado, verifique. &9&o#SLEEP");
  409. SET(sleep_error);
  410. ELSE;
  411. LOG("&b&l[&f&oM&facro&b&l] &aTudo certo para iniciar. &9&o#SLEEP");
  412. ENDIF;
  413. ELSE;
  414. LOG("&b&l[&f&oM&facro&b&l] &cSeu inventário está errado, verifique. &9&o#SLEEP");
  415. IF((%#slot_golden_sword%!=-1)||(%#slot_golden_axe%!=-1));
  416. LOG("&b&l[&f&oM&facro&b&l] &cNão é possível utilizar Espada ou &cMachado &cde &e&lOuro&c. &9&o#SLEEP");
  417. ENDIF;
  418. SET(sleep_error);
  419. ENDIF;
  420. GUI();
  421. ENDUNSAFE;
  422. ENDIF;
  423. ELSE;
  424. SET(#arma,"666");
  425. SET(#sleep_material,"999");
  426. ENDIF;
  427. IF(sleep_error);
  428. LOG("&b&l[&f&oM&facro&b&l] &cSleep_&lM&cob&c&lK&cill &b&l[&4OFF&b&l]");
  429. ACHIEVEMENTGET("[OFF] MobKill Upgrade 0.3","397");
  430. UNSET(@sleep_mobkill);
  431. UNSET(@afk_onchat);
  432. UNSET(@mobkill_power);
  433. TOGGLE(sleep_macro);
  434. STOP;
  435. ENDIF;
  436. IF(%HEALTH%<=6);
  437. DO;
  438. LOG("&b&l[&f&oM&facro&b&l] &cVocê está com pouca vida, aguardando até &cregenerar. &9&o#SLEEP");
  439. DO(50);
  440. UNTIL(%HEALTH%>6);
  441. WHILE(%HEALTH%<=6);
  442. ENDIF;
  443. IF(!@mobkill_power);
  444. SET(#mobs_mortos,"");
  445. ENDIF;
  446. SET(home_mob);
  447. SET(verificacao_completa);
  448. UNSET(sleep_limpar);
  449. UNSET(sleep_armazenar);
  450. UNSET(sleep_reabastecer_arma);
  451. UNSET(sleep_reabastecer_material);
  452. UNSET(@sleepmobkill);
  453. TIME(#hora_atual,hh);
  454. IF(%#hora_atual%!=%#hora_save%);
  455. SET(sleep_send);
  456. SET(#hora_save,"%#hora_atual%");
  457. ELSE;
  458. UNSET(sleep_send);
  459. ENDIF;
  460. IF(%#sleep_msg_send%=0);
  461. SET(sleep_send);
  462. SET(#sleep_msg_send,"1");
  463. ENDIF;
  464. IF(sleep_send);
  465. REPLACE(&itens1,"1","");
  466. ENDIF;
  467. DO;
  468. IF(home_mob);
  469. UNSET(home_mob);
  470. DO;
  471. GUI();
  472. SET(#sleep_inc,"");
  473. UNSET(home_protection);
  474. }$$/home sleepmob$${
  475. IF(verificacao_completa);
  476. WAIT(60T);
  477. KEYDOWN(JUMP);
  478. WAIT(20T);
  479. KEYUP(JUMP);
  480. DO(6);
  481. DO;
  482. GETIDREL(0,-1,0,#iron1);GETIDREL(-1,0,0,#iron2);GETIDREL(1,0,0,#iron3);GETIDREL(0,0,-1,#iron4);GETIDREL(0,0,1,#iron5);
  483. IF((%XPOS%=%#mob_xpos%)&&(%YPOS%=%#mob_ypos%)&&(%ZPOS%=%#mob_zpos%));
  484. SET(ok1);
  485. ELSE;
  486. UNSET(ok1);
  487. ENDIF;
  488. IF(sleep_reparar);
  489. IF((%#iron1%=42)||(%#iron2%=42)||(%#iron3%=42)||(%#iron4%=42)||(%#iron5%=42));
  490. SET(ok2);
  491. ELSE;
  492. UNSET(ok2);
  493. ENDIF;
  494. ELSE;
  495. SET(ok2);
  496. ENDIF;
  497. GETIDREL(0,-1,0,#bloco);
  498. INC(#sleep_inc,1);
  499. IF(%#sleep_inc%=300);
  500. IF((%#iron1%=42)||(%#iron2%=42)||(%#iron3%=42)||(%#iron4%=42)||(%#iron5%=42));
  501. LOG("&b&l[&f&oM&facro&b&l] &cAlgum problema aconteceu. Se este &cerro persistir, reconfigure a macro.");
  502. LOG("&b&l[&f&oM&facro&b&l] &cTentando novamente...");
  503. ELSE;
  504. LOG("&b&l[&f&oM&facro&b&l] &cNão foi encontrado um &fBloco de Ferro&c, verifique.");
  505. ENDIF;
  506. SET(home_protection);
  507. BREAK;
  508. ENDIF;
  509. IF(%HEALTH%<=6);
  510. }$$(macro) alarme de invasao acionado. #SLEEP$${
  511. SET(mob_invadido);
  512. UNSET(@sleep_mobkill);
  513. UNSET(@afk_onchat);
  514. UNSET(@mobkill_power);
  515. GUI();
  516. PRESS(F2);
  517. WAIT(3T);
  518. LOOK(%&sleep_look_oposto%);
  519. DO(3);
  520. KEY(ATTACK);
  521. WAIT(1MS);
  522. LOOP;
  523. PRESS(F2);
  524. WAIT(3T);
  525. DISCONNECT;
  526. ENDIF;
  527. UNTIL((ok1)&&(ok2)&&(%#bloco%!=0));
  528. WHILE(!home_protection);
  529. ENDIF;
  530. UNTIL(!home_protection);
  531. UNSET(verificacao_completa);
  532. ENDIF;
  533. #verificar_ms = %#tempo_verificar_ms%;
  534. DO;
  535. LOOK(%#sleep_yaw%,%#sleep_pitch%);
  536. IF(%HIT%="ENTITY");
  537. IF(sleep_desarmado);
  538. SLOT(9);
  539. IF(%ITEM%!=0);
  540. GUI(INVENTORY);
  541. SLOTCLICK(44,L,TRUE);
  542. WAIT(3T);
  543. GETSLOTITEM(44,#sleep_id);
  544. IF(%#sleep_id%!=0);
  545. SET(#verificar_ms,"2");
  546. ELSE;
  547. GUI();
  548. LOG("&b&l[&f&oM&facro&b&l] &aItem do slot &f9 &aretirado. &9&o#SLEEP");
  549. ENDIF;
  550. ENDIF;
  551. ELSE;
  552. PICK(%#arma%);
  553. IF(%ITEM%=%#arma%);
  554. IF(%DURABILITY%<=%#sleep_quest_2%);
  555. IF(sleep_reparar);
  556. SET(#sleep_inc,"199");
  557. SET(#sleep_inc_two,"");
  558. UNSET(@sleeplack)
  559. DO;
  560. INC(#sleep_inc,1);
  561. IF(%#sleep_inc%=200);
  562. SET(#sleep_inc,"");
  563. INC(#sleep_inc_two,1);
  564. IF(%#sleep_inc_two%=6);
  565. BREAK;
  566. ENDIF;
  567. GUI();
  568. PICK(%#arma%);
  569. DO(3);
  570. LOOK(%#yaw_iron%,%#pitch_iron%);
  571. KEY(USE);
  572. WAIT(1T);
  573. LOOP;
  574. ENDIF;
  575. UNTIL((@sleeplack)||(%DURABILITY%>%#sleep_quest_2%));
  576. IF(@sleeplack);
  577. SET(sleep_reabastecer_material);
  578. ENDIF;
  579. IF(sleep_reabastecer_material);
  580. LOG("&b&l[&f&oM&facro&b&l] &f%&material_name% &aacabou. &9&o#SLEEP");
  581. LOG("&b&l[&f&oM&facro&b&l] &aReabastecimento habilitado. &9&o#SLEEP");
  582. SET(sleep_limpar);
  583. SET(sleep_armazenar);
  584. BREAK;
  585. ELSEIF(%#sleep_inc_two%=6);
  586. LOG("&b&l[&f&oM&facro&b&l] &cAlgum problema aconteceu. Tentando resolver... &9&o#SLEEP");
  587. }$$/warp loja$${
  588. WAIT(140T);
  589. SET(home_mob);
  590. SET(verificacao_completa);
  591. BREAK;
  592. ELSE;
  593. LOG("&b&l[&f&oM&facro&b&l] &aReparação concluída. &9&o#SLEEP");
  594. ENDIF;
  595. ELSE;
  596. SET(sleep_limpar);
  597. SET(sleep_armazenar);
  598. SET(sleep_reabastecer_arma);
  599. LOG("&b&l[&f&oM&facro&b&l] &f%&arma_name% &acom durabilidade baixa. &9&o#SLEEP");
  600. LOG("&b&l[&f&oM&facro&b&l] &aReabastecimento habilitado. &9&o#SLEEP");
  601. BREAK;
  602. ENDIF;
  603. ENDIF;
  604. ELSE;
  605. SET(sleep_limpar);
  606. SET(sleep_armazenar);
  607. SET(sleep_reabastecer_arma);
  608. LOG("&b&l[&f&oM&facro&b&l] &f%&arma_name% &aquebrou. &9&o#SLEEP");
  609. LOG("&b&l[&f&oM&facro&b&l] &aReabastecimento habilitado. &9&o#SLEEP");
  610. BREAK;
  611. ENDIF;
  612. ENDIF;
  613. KEY(ATTACK);
  614. IF(@sleepmobkill);
  615. UNSET(@sleepmobkill);
  616. INC(#mobs_mortos,1);
  617. ENDIF;
  618. ENDIF;
  619. IF(%GUI%!="NONE");
  620. IF(%GUI%="GUICHAT");
  621. LOG("&b&l[&f&oM&facro&b&l] &aChat detectado, feche para continuar. &9&o#SLEEP");
  622. DO;
  623. WHILE(%GUI%="GUICHAT");
  624. ELSE;
  625. IF(%#verificar_ms%>=3);
  626. LOG("&b&l[&f&oM&facro&b&l] &aJanela detectada, continuando em &f3 &asegundos. &9&o#SLEEP");
  627. WAIT(3);
  628. GUI();
  629. ENDIF;
  630. ENDIF;
  631. ENDIF;
  632. DEC(#verificar_ms,2);
  633. IF(%#verificar_ms%=0);
  634. #verificar_ms = %#tempo_verificar_ms%;
  635. IF((baus_lotados)&&(!sleep_desarmado));
  636. LOG("&b&l[&f&oM&facro&b&l] &cOs baús estão lotados, verificação &ccancelada. &9&o#SLEEP");
  637. ELSE;
  638. IF((%&itens_armazenar%!="DESABILITADO")||(sleep_desarmado));
  639. LOG("&b&l[&f&oM&facro&b&l] &aAguarde, verificando o inventário. &9&o#SLEEP");
  640. SET(#slots_livres,"");
  641. UNSAFE;
  642. FOR(#sleep_slot,9,44);
  643. IF(%GUI%!="GUIINVENTORY");
  644. GUI(INVENTORY);
  645. ENDIF;
  646. GETSLOTITEM(%#sleep_slot%,#sleep_id);
  647. IF(%#sleep_id%=0);
  648. INC(#slots_livres,1);
  649. IF(%#slots_livres%=4);
  650. BREAK;
  651. ENDIF;
  652. ENDIF;
  653. NEXT;
  654. ENDUNSAFE;
  655. IF(%#slots_livres%<4);
  656. LOG("&b&l[&f&oM&facro&b&l] &aInventário lotado, limpeza habilitada. &9&o#SLEEP");
  657. SET(sleep_limpar);
  658. BREAK;
  659. ELSE;
  660. LOG("&b&l[&f&oM&facro&b&l] &aInventário ainda vazio. &9&o#SLEEP");
  661. GUI();
  662. ENDIF;
  663. ELSE;
  664. LOG("&b&l[&f&oM&facro&b&l] &cArmazenamento desabilitado, verificação &ccancelada. &9&o#SLEEP");
  665. ENDIF;
  666. ENDIF;
  667. ENDIF;
  668. IF((%XPOS%!=%#mob_xpos%)||(%YPOS%!=%#mob_ypos%)||(%ZPOS%!=%#mob_zpos%));
  669. LOG("&b&l[&f&oM&facro&b&l] &cParece que você não esta nas coordenadas configuradas do MobSpawn. Tentando resolver... &9&o#SLEEP");
  670. SET(home_mob);
  671. SET(verificacao_completa);
  672. BREAK;
  673. ELSEIF(%HEALTH%<=6);
  674. }$$(macro) alarme de invasao acionado. #SLEEP$${
  675. SET(mob_invadido);
  676. UNSET(@sleep_mobkill);
  677. UNSET(@afk_onchat);
  678. UNSET(@mobkill_power);
  679. GUI();
  680. PRESS(F2);
  681. WAIT(2T);
  682. LOOK(%&sleep_look_oposto%);
  683. DO(3);
  684. KEY(ATTACK);
  685. WAIT(1MS);
  686. LOOP;
  687. PRESS(F2);
  688. WAIT(2T);
  689. DISCONNECT;
  690. ENDIF;
  691. LOOP;
  692. IF(sleep_limpar);
  693. UNSET(sleep_limpar);
  694. DO(3);
  695. SET(#itens_inv_armazenar,"");
  696. UNSAFE;
  697. FOR(#sleep_slot,44,9);
  698. UNSET(item_invalido);
  699. IF(%GUI%!="GUIINVENTORY");
  700. GUI(INVENTORY);
  701. ENDIF;
  702. GETSLOTITEM(%#sleep_slot%,#sleep_id);
  703. IF((%#sleep_id%=%#arma%)||(%#sleep_id%=%#sleep_material%)||(%#sleep_id%=122)||(%#sleep_id%=0));
  704. ELSE;
  705. IFMATCHES("%#sleep_id%","%&itens_armazenar%");
  706. INC(#itens_inv_armazenar,1);
  707. ELSE;
  708. SET(item_invalido);
  709. ENDIF;
  710. IF((item_invalido)||(baus_lotados));
  711. LOOK(%&sleep_look_oposto%,1);
  712. SLOTCLICK(%#sleep_slot%,L,FALSE);
  713. WAIT(90MS);
  714. SLOTCLICK(-999);
  715. WAIT(90MS);
  716. ENDIF;
  717. ENDIF;
  718. NEXT;
  719. ENDUNSAFE;
  720. LOOP;
  721. IF((%#itens_inv_armazenar%>=25)&&(!sleep_armazenar));
  722. LOG("&b&l[&f&oM&facro&b&l] &aInventário lotado, armazenamento habilitado. &9&o#SLEEP");
  723. SET(sleep_armazenar);
  724. ELSE;
  725. SET(home_mob);
  726. ENDIF;
  727. ENDIF;
  728. IF((sleep_armazenar)||(sleep_reabastecer_arma)||(sleep_reabastecer_material));
  729. UNSET(block_home_baus);
  730. UNSET(pos_baus_verificar);
  731. DO;
  732. SET(fim);
  733. IF(!block_home_baus);
  734. DO;
  735. GUI();
  736. SET(#sleep_inc,"");
  737. UNSET(home_protection);
  738. }$$/home mkb$${
  739. DO(200);
  740. IF((%XPOS%=%#mob_xpos%)&&(%YPOS%=%#mob_ypos%)&&(%ZPOS%=%#mob_zpos%));
  741. ELSE;
  742. BREAK;
  743. ENDIF;
  744. LOOP;
  745. WAIT(60T);
  746. KEYDOWN(JUMP);
  747. WAIT(20T);
  748. KEYUP(JUMP);
  749. WAIT(6T);
  750. DO(6);
  751. DO;
  752. SET(&verificar_baus,"");
  753. GETIDREL(0,-1,-2,#bau1);GETIDREL(0,0,-2,#bau2);GETIDREL(0,1,-2,#bau3);GETIDREL(0,2,-2,#bau4);GETIDREL(0,3,-2,#bau5);
  754. GETIDREL(0,-1,-3,#bau6);GETIDREL(0,0,-3,#bau7);GETIDREL(0,1,-3,#bau8);GETIDREL(0,2,-3,#bau9);GETIDREL(0,3,-3,#bau10);
  755. SET(&verificar_baus,"%#bau1%-%#bau2%-%#bau3%-%#bau4%-%#bau5%-%#bau6%-%#bau7%-%#bau8%-%#bau9%-%#bau10%");
  756. IF((%XPOS%=%#mob_xpos%)&&(%YPOS%=%#mob_ypos%)&&(%ZPOS%=%#mob_zpos%));
  757. UNSET(ok1);
  758. ELSE;
  759. SET(ok1);
  760. ENDIF;
  761. IFMATCHES("%&verificar_baus%","^(54|146)-(54|146)-(54|146)-(54|146)-(54|146)-(54|146)-(54|146)-(54|146)-(54|146)-(54|146)$");
  762. SET(ok2);
  763. ELSE;
  764. UNSET(ok2);
  765. ENDIF;
  766. GETIDREL(0,-1,0,#bloco);
  767. INC(#sleep_inc,1);
  768. IF(%#sleep_inc%=300);
  769. LOG("");
  770. LOG("&b&l[&f&oM&facro&b&l] &cAlgum problema aconteceu. Se este erro persistir, tem algo errado com sua trap de baús.");
  771. LOG("&b&l[&f&oM&facro&b&l] &cVeja como deve ficar a trap de baús:");
  772. LOG("&b&l[&f&oM&facro&b&l] &ahttp://prnt.sc/f4tw3k");
  773. LOG("");
  774. LOG("&b&l[&f&oM&facro&b&l] &cTentando novamente...");
  775. LOG("");
  776. SET(home_protection);
  777. BREAK;
  778. ENDIF;
  779. IF(pos_baus_verificar);
  780. IF((%XPOS%=%#baus_xpos%)&&(%YPOS%=%#baus_ypos%)&&(%ZPOS%=%#baus_zpos%));
  781. SET(ok3);
  782. ELSE;
  783. UNSET(ok3);
  784. ENDIF;
  785. ELSE;
  786. SET(ok3);
  787. ENDIF;
  788. UNTIL((ok1)&&(ok2)&&(ok3)&&(%#bloco%!=0));
  789. WHILE(!home_protection);
  790. UNTIL(!home_protection);
  791. IF(trap_salvar_coordenadas);
  792. SET(#baus_xpos,"%XPOS%");
  793. SET(#baus_ypos,"%YPOS%");
  794. SET(#baus_zpos,"%ZPOS%");
  795. UNSET(trap_salvar_coordenadas);
  796. ENDIF;
  797. UNSET(pos_baus_verificar);
  798. ELSE;
  799. UNSET(block_home_baus);
  800. ENDIF;
  801. IF((sleep_armazenar)&&(!baus_lotados)&&(%#itens_inv_armazenar%>=1));
  802. SET(#sleep_inc,"199");
  803. SET(#sleep_inc_two,"");
  804. IF(%#bau_atual%=1);
  805. SET(#pos_first_chest,"%#baus_xpos%");
  806. SET(#pos_last_chest,"%#baus_xpos%");
  807. ENDIF;
  808. #pos_penult_chest = %#pos_last_chest% - 1;
  809. DO;
  810. LOOK(NORTH);
  811. IF(%XPOS%=%#pos_last_chest%);
  812. WAIT(20MS);
  813. BREAK;
  814. ELSEIF((%XPOS%>%#pos_last_chest%)||(%YPOS%!=%#baus_ypos%)||(%ZPOS%!=%#baus_zpos%));
  815. LOG("&b&l[&f&oM&facro&b&l] &cAlgum problema aconteceu. &9&o#SLEEP");
  816. LOG("&b&l[&f&oM&facro&b&l] &cTentando resolver... &9&o#SLEEP");
  817. UNSET(fim);
  818. ELSE;
  819. GUI(INVENTORY);
  820. KEYDOWN(RIGHT);
  821. IF(%XPOS%<%#pos_penult_chest%);
  822. KEYUP(SNEAK);
  823. ELSE;
  824. KEYDOWN(SNEAK);
  825. ENDIF;
  826. ENDIF;
  827. WHILE(fim);
  828. KEYUP(SNEAK);
  829. KEYUP(RIGHT);
  830. GUI();
  831. IF(fim);
  832. DO;
  833. INC(#sleep_inc,1);
  834. IF(%#sleep_inc%=200);
  835. GUI();
  836. SET(#sleep_inc,"");
  837. INC(#sleep_inc_two,1);
  838. IF(%#sleep_inc_two%=6);
  839. LOG("&b&l[&f&oM&facro&b&l] &cO baú não está abrindo. &9&o#SLEEP");
  840. LOG("&b&l[&f&oM&facro&b&l] &cTentando resolver... &9&o#SLEEP");
  841. SET(pos_baus_verificar);
  842. UNSET(fim);
  843. BREAK;
  844. ENDIF;
  845. LOOK(NORTH);
  846. IFMATCHES("%#bau_atual%","^(.*)[0-9]$");
  847. MATCH("%#bau_atual%","^(.*)([0-9])$",{,#bau_atual_unit});
  848. ENDIF;
  849. IF((%#bau_atual%=1)||(%#bau_atual_unit%=1)||(%#bau_atual_unit%=6));
  850. IF((%#bau_atual%=1)&&((sleep_reparar)||(sleep_trocar)));
  851. LOOK(+0,+328);
  852. ELSE;
  853. LOOK(+0,+308);
  854. ENDIF;
  855. ELSEIF((%#bau_atual%=2)||(%#bau_atual_unit%=2)||(%#bau_atual_unit%=7));
  856. IF((%#bau_atual%=2)&&((sleep_reparar)||(sleep_trocar)));
  857. LOOK(+0,+358);
  858. ELSE;
  859. LOOK(+0,+328);
  860. ENDIF;
  861. ELSEIF((%#bau_atual%=3)||(%#bau_atual_unit%=3)||(%#bau_atual_unit%=8));
  862. IF((%#bau_atual%=3)&&((sleep_reparar)||(sleep_trocar)));
  863. LOOK(+0,+33);
  864. ELSE;
  865. LOOK(+0,+358);
  866. ENDIF;
  867. ELSEIF((%#bau_atual%=4)||(%#bau_atual_unit%=4)||(%#bau_atual_unit%=9));
  868. IF((%#bau_atual%=4)&&((sleep_reparar)||(sleep_trocar)));
  869. LOOK(+0,+50);
  870. ELSE;
  871. LOOK(+0,+33);
  872. ENDIF;
  873. ELSEIF((%#bau_atual%=5)||(%#bau_atual_unit%=5)||(%#bau_atual_unit%=0));
  874. LOOK(+0,+50);
  875. ENDIF;
  876. LOOK(+0,+2,1);
  877. KEY(USE);
  878. ELSEIF((%XPOS%!=%#pos_last_chest%)||(%YPOS%!=%#baus_ypos%)||(%ZPOS%!=%#baus_zpos%));
  879. LOG("&b&l[&f&oM&facro&b&l] &cVocê não esta onde deveria. &9&o#SLEEP");
  880. LOG("&b&l[&f&oM&facro&b&l] &cTentando resolver... &9&o#SLEEP");
  881. SET(pos_baus_verificar);
  882. UNSET(fim);
  883. ENDIF;
  884. UNTIL((!fim)||(%GUI%="GUICHEST"));
  885. IF(fim);
  886. WAIT(6T);
  887. #id_inv = 333;
  888. FOR(#sleep_slot_inv,89,54);
  889. IF(%GUI%!="GUICHEST");
  890. LOG("&b&l[&f&oM&facro&b&l] &cO baú foi fechado. &9&o#SLEEP");
  891. LOG("&b&l[&f&oM&facro&b&l] &cTentando reabrir... &9&o#SLEEP");
  892. SET(pos_baus_verificar);
  893. UNSET(fim);
  894. BREAK;
  895. ENDIF;
  896. UNSET(slot_air);
  897. UNSAFE;
  898. IF(%#id_inv%=0);
  899. SET(slot_air);
  900. ELSE;
  901. FOR(#sleep_slot_chest,0,53);
  902. GETSLOTITEM(%#sleep_slot_chest%,#id_chest);
  903. IF(%#id_chest%=0);
  904. SET(slot_air);
  905. BREAK;
  906. ENDIF;
  907. NEXT;
  908. ENDIF;
  909. ENDUNSAFE;
  910. IF(!slot_air);
  911. INC(#bau_atual,1);
  912. SET(block_home_baus);
  913. IF((%#bau_atual%=4)&&((sleep_reparar)||(sleep_trocar)));
  914. INC(#bau_atual,1);
  915. INC(#bau_atual_unit,1);
  916. ENDIF;
  917. IF((%#bau_atual_unit%=5)||((%#bau_atual_unit%=0));
  918. GETIDREL(1,-1,-2,#bau1);GETIDREL(1,0,-2,#bau2);GETIDREL(1,1,-2,#bau3);GETIDREL(1,2,-2,#bau4);GETIDREL(1,3,-2,#bau5);
  919. GETIDREL(1,-1,-3,#bau6);GETIDREL(1,0,-3,#bau7);GETIDREL(1,1,-3,#bau8);GETIDREL(1,2,-3,#bau9);GETIDREL(1,3,-3,#bau10);
  920. SET(&verificar_baus,"%#bau1%-%#bau2%-%#bau3%-%#bau4%-%#bau5%-%#bau6%-%#bau7%-%#bau8%-%#bau9%-%#bau10%");
  921. IFMATCHES("%&verificar_baus%","^(54|146)-(54|146)-(54|146)-(54|146)-(54|146)-(54|146)-(54|146)-(54|146)-(54|146)-(54|146)$");
  922. INC(#pos_last_chest,1);
  923. UNSET(fim);
  924. BREAK;
  925. ELSE;
  926. LOG("&b&l[&f&oM&facro&b&l] &cOs baús acabaram, armazenamento &cdesabilitado agora. &9&o#SLEEP");
  927. SET(baus_lotados);
  928. BREAK;
  929. ENDIF;
  930. ENDIF;
  931. UNSET(fim);
  932. BREAK;
  933. ELSE;
  934. GETSLOTITEM(%#sleep_slot_inv%,#id_inv);
  935. IF((%#id_inv%=%#arma%)||(%#id_inv%=%#sleep_material%)||(%#id_inv%=122)||(%#id_inv%=0));
  936. ELSE;
  937. IFMATCHES("%#id_inv%","%&itens_armazenar%");
  938. SLOTCLICK(%#sleep_slot_inv%,L,TRUE);
  939. WAIT(5MS);
  940. GETITEMINFO(%#id_inv%,&inv_name);
  941. LOG("&b&l[&f&oM&facro&b&l] &f%&inv_name% &aarmazenado. &9&o#SLEEP");
  942. DEC(#itens_inv_armazenar,1);
  943. IF(%#id_inv%=387);
  944. INC(#sleep_livros,1);
  945. ENDIF;
  946. ELSE;
  947. LOG("&b&l[&f&oM&facro&b&l] &cItem inválido encontrado, descartando-o. &9&o#SLEEP");
  948. SLOTCLICK(%#sleep_slot_inv%,L,FALSE);
  949. WAIT(3T);
  950. SLOTCLICK(-999);
  951. WAIT(3T);
  952. ENDIF;
  953. ENDIF;
  954. ENDIF;
  955.  
  956. NEXT;
  957. ELSE;
  958. GUI();
  959. ENDIF;
  960. ENDIF;
  961. ELSEIF((sleep_reabastecer_arma)||(sleep_reabastecer_material));
  962. IF((%XPOS%=%#baus_xpos%)&&(%YPOS%=%#baus_ypos%)&&(%ZPOS%=%#baus_zpos%));
  963. SET(#sleep_inc,"199");
  964. SET(#sleep_inc_two,"");
  965. IF(sleep_reabastecer_arma);
  966. LOG("&b&l[&f&oM&facro&b&l] &aIniciando reabastecimento de &f%&arma_name%&a. &9&o#SLEEP");
  967. #quant_reabastecer = 1;
  968. SET(#sleep_id_procurar,"%#arma%");
  969. ELSE;
  970. LOG("&b&l[&f&oM&facro&b&l] &aIniciando reabastecimento de &f%&material_name%&a. &9&o#SLEEP");
  971. IF((%#sleep_material%=276)||(%#sleep_material%=279)||(%#sleep_material%=267)||(%#sleep_material%=258));
  972. #quant_reabastecer = 3;
  973. ELSE;
  974. #quant_reabastecer = 8;
  975. ENDIF;
  976. SET(#sleep_id_procurar,"%#sleep_material%");
  977. ENDIF;
  978. GETITEMINFO(%#sleep_id_procurar%,&procurar_name);
  979. DO;
  980. INC(#sleep_inc,1);
  981. IF(%#sleep_inc%=200);
  982. GUI();
  983. SET(#sleep_inc,"");
  984. INC(#sleep_inc_two,1);
  985. IF(%#sleep_inc_two%=6);
  986. LOG("&b&l[&f&oM&facro&b&l] &cO baú não está abrindo. &9&o#SLEEP");
  987. LOG("&b&l[&f&oM&facro&b&l] &cTentando resolver... &9&o#SLEEP");
  988. SET(pos_baus_verificar);
  989. UNSET(fim);
  990. BREAK;
  991. ENDIF;
  992. LOOK(NORTH);
  993. LOOK(+0,+308);
  994. LOOK(+0,+2,1);
  995. KEY(USE);
  996. ELSEIF((%XPOS%!=%#baus_xpos%)||(%YPOS%!=%#baus_ypos%)||(%ZPOS%!=%#baus_zpos%));
  997. LOG("&b&l[&f&oM&facro&b&l] &cVocê não esta onde deveria. &9&o#SLEEP");
  998. LOG("&b&l[&f&oM&facro&b&l] &cTentando resolver... &9&o#SLEEP");
  999. SET(pos_baus_verificar);
  1000. UNSET(fim);
  1001. ENDIF;
  1002. UNTIL((!fim)||(%GUI%="GUICHEST"));
  1003. WAIT(5T);
  1004. UNSET(item_ja_abastecido);
  1005. IF(fim);
  1006. UNSAFE;
  1007. FOR(#sleep_slot_inv,54,89);
  1008. GETSLOTITEM(%#sleep_slot_inv%,#sleep_id_inv,#sleep_stack_inv,#sleep_data_inv);
  1009. IF(sleep_reabastecer_arma);
  1010. IF(%#sleep_id_inv%=%#arma%);
  1011. #dur_atual = %#sleep_material_dur% - %#sleep_data_inv%;
  1012. IF((%#dur_atual%>%#sleep_quest_2%)&&(%#sleep_slot_inv%>=81));
  1013. IF(%#dur_atual%<%#sleep_material_dur%);
  1014. ELSE;
  1015. SET(item_ja_abastecido);
  1016. BREAK;
  1017. ENDIF;
  1018. ENDIF;
  1019. ENDIF;
  1020. ELSEIF(sleep_reabastecer_material);
  1021. IF(%#sleep_id_inv%=%#sleep_material%);
  1022. SET(item_ja_abastecido);
  1023. BREAK;
  1024. ENDIF;
  1025. ENDIF;
  1026. NEXT;
  1027. ENDUNSAFE;
  1028. ENDIF;
  1029. IF(!item_ja_abastecido);
  1030. IF(fim);
  1031. UNSET(item_achado);
  1032. UNSET(item_inventario);
  1033. UNSAFE;
  1034. DO(3);
  1035. GETSLOT(%#arma%,#slot_arma,54);
  1036. IF((%#slot_arma%!=-1)&&(%#slot_arma%<81));
  1037. SLOTCLICK(%#slot_arma%,L,TRUE);
  1038. WAIT(10T);
  1039. ENDIF;
  1040. LOOP;
  1041. FOR(#sleep_slot_chest,0,53);
  1042. GETSLOTITEM(%#sleep_slot_chest%,#sleep_id_chest,#sleep_stack_chest,#sleep_data_chest);
  1043. IF(%#sleep_id_chest%=%#sleep_id_procurar%);
  1044. IF(sleep_reabastecer_arma);
  1045. #dur_atual = %#sleep_material_dur% - %#sleep_data_chest%;
  1046. IF(%#dur_atual%=%#sleep_material_dur%);
  1047. SET(item_achado);
  1048. SET(#slot_chest_arma,"%#sleep_slot_chest%");
  1049. BREAK;
  1050. ENDIF;
  1051. ELSE;
  1052. SET(item_achado);
  1053. BREAK;
  1054. ENDIF;
  1055. ENDIF;
  1056. NEXT;
  1057. IF(%GUI%="GUICHEST");
  1058. IF(item_achado);
  1059. IF(sleep_reabastecer_arma);
  1060. DO(3);
  1061. GETSLOT(%#arma%,#slot_arma,54);
  1062. IF(%#slot_arma%!=-1);
  1063. SLOTCLICK(%#slot_arma%,L,TRUE);
  1064. WAIT(10T);
  1065. ENDIF;
  1066. LOOP;
  1067. SET(#slot_hot_vazio,"");
  1068. FOR(#sleep_slot_vazio,81,89);
  1069. GETSLOTITEM(%#sleep_slot_vazio%,#id_slot_vazio);
  1070. IF(%#id_slot_vazio%=0);
  1071. SET(#slot_hot_vazio,"%#sleep_slot_vazio%");
  1072. BREAK;
  1073. ENDIF;
  1074. NEXT;
  1075. IF(%#slot_hot_vazio%=0);
  1076. SLOTCLICK(81,L,FALSE);
  1077. WAIT(5T);
  1078. SLOTCLICK(-999);
  1079. WAIT(5T);
  1080. SET(#slot_hot_vazio,"81");
  1081. ENDIF;
  1082. SLOTCLICK(%#slot_chest_arma%,L,FALSE);
  1083. WAIT(8T);
  1084. SLOTCLICK(%#slot_hot_vazio%,L,FALSE);
  1085. WAIT(8T);
  1086. LOG("&b&l[&f&oM&facro&b&l] &aReabastecimento de &f%&arma_name% &aconcluído. &9&o#SLEEP");
  1087. UNSET(sleep_reabastecer_arma);
  1088. ELSE;
  1089. DO(%#sleep_material_pegar%);
  1090. GETSLOT(%#sleep_id_procurar%,#sleep_slot);
  1091. IF((%#sleep_slot%!=-1)&&(%#sleep_slot%<54));
  1092. SLOTCLICK(%#sleep_slot%,L,TRUE);
  1093. WAIT(3T);
  1094. ELSE;
  1095. BREAK;
  1096. ENDIF;
  1097. LOOP;
  1098. LOG("&b&l[&f&oM&facro&b&l] &aReabastecimento de &f%&material_name% &aconcluído. &9&o#SLEEP");
  1099. UNSET(sleep_reabastecer_material);
  1100. ENDIF;
  1101. ELSE;
  1102. LOG("&b&l[&f&oM&facro&b&l] &cNão foi encontrado &f%&procurar_name% &cno baú. &9&o#SLEEP");
  1103. LOG("&b&l[&f&oM&facro&b&l] &cReiniciando busca... &9&o#SLEEP");
  1104. SET(pos_baus_verificar);
  1105. UNSET(fim);
  1106. ENDIF;
  1107. ELSE;
  1108. LOG("&b&l[&f&oM&facro&b&l] &cO baú foi fechado. &9&o#SLEEP");
  1109. LOG("&b&l[&f&oM&facro&b&l] &cTentando reabrir... &9&o#SLEEP");
  1110. SET(pos_baus_verificar);
  1111. UNSET(fim);
  1112. ENDIF;
  1113. ENDUNSAFE;
  1114. ENDIF;
  1115. ELSE;
  1116. LOG("&b&l[&f&oM&facro&b&l] &f%&procurar_name% &cdetectado no inventário. &9&o#SLEEP");
  1117. LOG("&b&l[&f&oM&facro&b&l] &cReabastecimento cancelado. &9&o#SLEEP");
  1118. UNSET(sleep_reabastecer_arma);
  1119. UNSET(sleep_reabastecer_material);
  1120. SET(fim);
  1121. ENDIF;
  1122. ELSE;
  1123. UNSET(fim);
  1124. UNSET(block_home_baus);
  1125. ENDIF;
  1126. ENDIF;
  1127. UNTIL((fim)&&(!sleep_reabastecer_arma)&&(!sleep_reabastecer_material));
  1128. SET(home_mob);
  1129. SET(verificacao_completa);
  1130. UNSET(sleep_armazenar);
  1131. GUI();
  1132. ENDIF;
  1133. LOOP;
  1134.  
  1135. }$$
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!