API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Jan 18th, 2019
94
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 73.43 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. ENDIF;
  304. LOOP;
  305. GUI();
  306. IF(sleeponchat);
  307. SET(config_mk_save);
  308. REPLACE(&rastreio,"I","/");
  309. IF(%DIRECTION%="N");
  310. SET(&sleep_look_oposto,"SOUTH");
  311. ELSEIF(%DIRECTION%="S");
  312. SET(&sleep_look_oposto,"NORTH");
  313. ELSEIF(%DIRECTION%="E");
  314. SET(&sleep_look_oposto,"WEST");
  315. ELSEIF(%DIRECTION%="W");
  316. SET(&sleep_look_oposto,"EAST");
  317. ENDIF;
  318. GETIDREL(0,-1,0,#iron1);
  319. IF(%#iron1%=42);
  320. SET(#yaw_iron,"0");
  321. SET(#pitch_iron,"90");
  322. ENDIF;
  323. GETIDREL(-1,0,0,#iron2);
  324. IF(%#iron2%=42);
  325. SET(#yaw_iron,"270");
  326. SET(#pitch_iron,"64");
  327. ENDIF;
  328. GETIDREL(1,0,0,#iron3);
  329. IF(%#iron3%=42);
  330. SET(#yaw_iron,"90");
  331. SET(#pitch_iron,"64");
  332. ENDIF;
  333. GETIDREL(0,0,-1,#iron4);
  334. IF(%#iron4%=42);
  335. SET(#yaw_iron,"0");
  336. SET(#pitch_iron,"64");
  337. ENDIF;
  338. GETIDREL(0,0,1,#iron5);
  339. IF(%#iron5%=42);
  340. SET(#yaw_iron,"180");
  341. SET(#pitch_iron,"64");
  342. ENDIF;
  343. REPLACE(&rastreio,"N","g");
  344. WAIT(20T);
  345. ELSE;
  346. LOG("");
  347. LOG("&b&l[&f&oM&facro&b&l] &cVocê não instalou ou instalou errado a macro SleepOnChat.");
  348. LOG("&b&l[&f&oM&facro&b&l] &cPara instalar acesse este link:");
  349. LOG("&b&l[&f&oM&facro&b&l] &ahttp://adflyk.com/oIw1Z");
  350. LOG("");
  351. SET(sleep_error);
  352. ENDIF;
  353. ENDIF;
  354. ENDIF;
  355. ENDIF;
  356. ENDIF;
  357. ENDIF;
  358. ENDIF;
  359. IF((!sleep_error)&&((sleep_reparar)||(sleep_trocar)));
  360. IF(!@mobkill_power);
  361. LOG("&b&l[&f&oM&facro&b&l] &aVerificando &f&oEspada &aou &f&oMachado&a... &9&o#SLEEP");
  362. SET(&arma,"");
  363. SET(#armas,"");
  364. UNSAFE;
  365. FOR(#sleep_slot,9,44);
  366. IF(%GUI%!="GUIINVENTORY");
  367. GUI(INVENTORY);
  368. ENDIF;
  369. GETSLOT(283,#slot_golden_sword);
  370. GETSLOT(286,#slot_golden_axe);
  371. GETSLOTITEM(%#sleep_slot%,#sleep_id);
  372. IFMATCHES("%#sleep_id%","^276$|^279$|^267$|^258$|^268$|^271$|^272$|^275$");
  373. INC(#armas,1);
  374. SET(#arma,"%#sleep_id%");
  375. IF((%#sleep_id%=276)||(%#sleep_id%=279));
  376. SET(#sleep_material,"264");
  377. SET(#sleep_material_dur,"1561");
  378. SET(#sleep_material_pegar,"2");
  379. ELSEIF((%#sleep_id%=267)||(%#sleep_id%=258));
  380. SET(#sleep_material,"265");
  381. SET(#sleep_material_dur,"250");
  382. SET(#sleep_material_pegar,"5");
  383. ELSEIF((%#sleep_id%=268)||(%#sleep_id%=271));
  384. SET(#sleep_material,"5");
  385. SET(#sleep_material_dur,"59");
  386. SET(#sleep_material_pegar,"8");
  387. ELSEIF((%#sleep_id%=272)||(%#sleep_id%=275));
  388. SET(#sleep_material,"4");
  389. SET(#sleep_material_dur,"131");
  390. SET(#sleep_material_pegar,"8");
  391. ENDIF;
  392. GETITEMINFO(%#sleep_material%,&material_name);
  393. GETITEMINFO(%#arma%,&arma_name);
  394. ENDIF;
  395. NEXT;
  396. IF(%#armas%>1);
  397. 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");
  398. SET(sleep_error);
  399. ELSEIF(%#armas%=1);
  400. SET(#armas,"");
  401. FOR(#sleep_slot,36,44);
  402. GETSLOTITEM(%#sleep_slot%,#sleep_id);
  403. IF(%#sleep_id%=%#arma%);
  404. INC(#armas,1);
  405. BREAK;
  406. ENDIF;
  407. NEXT;
  408. IF(%#armas%=0);
  409. LOG("&b&l[&f&oM&facro&b&l] &cSeu inventário está errado, verifique. &9&o#SLEEP");
  410. SET(sleep_error);
  411. ELSE;
  412. LOG("&b&l[&f&oM&facro&b&l] &aTudo certo para iniciar. &9&o#SLEEP");
  413. ENDIF;
  414. ELSE;
  415. LOG("&b&l[&f&oM&facro&b&l] &cSeu inventário está errado, verifique. &9&o#SLEEP");
  416. IF((%#slot_golden_sword%!=-1)||(%#slot_golden_axe%!=-1));
  417. LOG("&b&l[&f&oM&facro&b&l] &cNão é possível utilizar Espada ou &cMachado &cde &e&lOuro&c. &9&o#SLEEP");
  418. ENDIF;
  419. SET(sleep_error);
  420. ENDIF;
  421. GUI();
  422. ENDUNSAFE;
  423. ENDIF;
  424. ELSE;
  425. SET(#arma,"666");
  426. SET(#sleep_material,"999");
  427. ENDIF;
  428. IF(sleep_error);
  429. LOG("&b&l[&f&oM&facro&b&l] &cSleep_&lM&cob&c&lK&cill &b&l[&4OFF&b&l]");
  430. ACHIEVEMENTGET("[OFF] MobKill Upgrade 0.3","397");
  431. UNSET(@sleep_mobkill);
  432. UNSET(@afk_onchat);
  433. UNSET(@mobkill_power);
  434. TOGGLE(sleep_macro);
  435. STOP;
  436. ENDIF;
  437. IF(%HEALTH%<=6);
  438. DO;
  439. LOG("&b&l[&f&oM&facro&b&l] &cVocê está com pouca vida, aguardando até &cregenerar. &9&o#SLEEP");
  440. DO(50);
  441. UNTIL(%HEALTH%>6);
  442. WHILE(%HEALTH%<=6);
  443. ENDIF;
  444. IF(!@mobkill_power);
  445. SET(#mobs_mortos,"");
  446. ENDIF;
  447. SET(home_mob);
  448. SET(verificacao_completa);
  449. UNSET(sleep_limpar);
  450. UNSET(sleep_armazenar);
  451. UNSET(sleep_reabastecer_arma);
  452. UNSET(sleep_reabastecer_material);
  453. UNSET(@sleepmobkill);
  454. TIME(#hora_atual,hh);
  455. IF(%#hora_atual%!=%#hora_save%);
  456. SET(sleep_send);
  457. SET(#hora_save,"%#hora_atual%");
  458. ELSE;
  459. UNSET(sleep_send);
  460. ENDIF;
  461. IF(%#sleep_msg_send%=0);
  462. SET(sleep_send);
  463. SET(#sleep_msg_send,"1");
  464. ENDIF;
  465. IF(sleep_send);
  466. REPLACE(&itens1,"1","");
  467. ENDIF;
  468. DO;
  469. IF(home_mob);
  470. UNSET(home_mob);
  471. DO;
  472. GUI();
  473. SET(#sleep_inc,"");
  474. UNSET(home_protection);
  475. }$$/home sleepmob$${
  476. IF(verificacao_completa);
  477. WAIT(60T);
  478. KEYDOWN(JUMP);
  479. WAIT(20T);
  480. KEYUP(JUMP);
  481. DO(6);
  482. DO;
  483. 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);
  484. IF((%XPOS%=%#mob_xpos%)&&(%YPOS%=%#mob_ypos%)&&(%ZPOS%=%#mob_zpos%));
  485. SET(ok1);
  486. ELSE;
  487. UNSET(ok1);
  488. ENDIF;
  489. IF(sleep_reparar);
  490. IF((%#iron1%=42)||(%#iron2%=42)||(%#iron3%=42)||(%#iron4%=42)||(%#iron5%=42));
  491. SET(ok2);
  492. ELSE;
  493. UNSET(ok2);
  494. ENDIF;
  495. ELSE;
  496. SET(ok2);
  497. ENDIF;
  498. GETIDREL(0,-1,0,#bloco);
  499. INC(#sleep_inc,1);
  500. IF(%#sleep_inc%=300);
  501. IF((%#iron1%=42)||(%#iron2%=42)||(%#iron3%=42)||(%#iron4%=42)||(%#iron5%=42));
  502. LOG("&b&l[&f&oM&facro&b&l] &cAlgum problema aconteceu. Se este &cerro persistir, reconfigure a macro.");
  503. LOG("&b&l[&f&oM&facro&b&l] &cTentando novamente...");
  504. ELSE;
  505. LOG("&b&l[&f&oM&facro&b&l] &cNão foi encontrado um &fBloco de Ferro&c, verifique.");
  506. ENDIF;
  507. SET(home_protection);
  508. BREAK;
  509. ENDIF;
  510. IF(%HEALTH%<=6);
  511. }$$(macro) alarme de invasao acionado. #SLEEP$${
  512. SET(mob_invadido);
  513. UNSET(@sleep_mobkill);
  514. UNSET(@afk_onchat);
  515. UNSET(@mobkill_power);
  516. GUI();
  517. PRESS(F2);
  518. WAIT(3T);
  519. LOOK(%&sleep_look_oposto%);
  520. DO(3);
  521. KEY(ATTACK);
  522. WAIT(1MS);
  523. LOOP;
  524. PRESS(F2);
  525. WAIT(3T);
  526. DISCONNECT;
  527. ENDIF;
  528. UNTIL((ok1)&&(ok2)&&(%#bloco%!=0));
  529. WHILE(!home_protection);
  530. ENDIF;
  531. UNTIL(!home_protection);
  532. UNSET(verificacao_completa);
  533. ENDIF;
  534. #verificar_ms = %#tempo_verificar_ms%;
  535. DO;
  536. LOOK(%#sleep_yaw%,%#sleep_pitch%);
  537. IF(%HIT%="ENTITY");
  538. IF(sleep_desarmado);
  539. SLOT(9);
  540. IF(%ITEM%!=0);
  541. GUI(INVENTORY);
  542. SLOTCLICK(44,L,TRUE);
  543. WAIT(3T);
  544. GETSLOTITEM(44,#sleep_id);
  545. IF(%#sleep_id%!=0);
  546. SET(#verificar_ms,"2");
  547. ELSE;
  548. GUI();
  549. LOG("&b&l[&f&oM&facro&b&l] &aItem do slot &f9 &aretirado. &9&o#SLEEP");
  550. ENDIF;
  551. ENDIF;
  552. ELSE;
  553. PICK(%#arma%);
  554. IF(%ITEM%=%#arma%);
  555. IF(%DURABILITY%<=%#sleep_quest_2%);
  556. IF(sleep_reparar);
  557. SET(#sleep_inc,"199");
  558. SET(#sleep_inc_two,"");
  559. UNSET(@sleeplack)
  560. DO;
  561. INC(#sleep_inc,1);
  562. IF(%#sleep_inc%=200);
  563. SET(#sleep_inc,"");
  564. INC(#sleep_inc_two,1);
  565. IF(%#sleep_inc_two%=6);
  566. BREAK;
  567. ENDIF;
  568. GUI();
  569. PICK(%#arma%);
  570. DO(3);
  571. LOOK(%#yaw_iron%,%#pitch_iron%);
  572. KEY(USE);
  573. WAIT(1T);
  574. LOOP;
  575. ENDIF;
  576. UNTIL((@sleeplack)||(%DURABILITY%>%#sleep_quest_2%));
  577. IF(@sleeplack);
  578. SET(sleep_reabastecer_material);
  579. ENDIF;
  580. IF(sleep_reabastecer_material);
  581. LOG("&b&l[&f&oM&facro&b&l] &f%&material_name% &aacabou. &9&o#SLEEP");
  582. LOG("&b&l[&f&oM&facro&b&l] &aReabastecimento habilitado. &9&o#SLEEP");
  583. SET(sleep_limpar);
  584. SET(sleep_armazenar);
  585. BREAK;
  586. ELSEIF(%#sleep_inc_two%=6);
  587. LOG("&b&l[&f&oM&facro&b&l] &cAlgum problema aconteceu. Tentando resolver... &9&o#SLEEP");
  588. }$$/warp loja$${
  589. WAIT(140T);
  590. SET(home_mob);
  591. SET(verificacao_completa);
  592. BREAK;
  593. ELSE;
  594. LOG("&b&l[&f&oM&facro&b&l] &aReparação concluída. &9&o#SLEEP");
  595. ENDIF;
  596. ELSE;
  597. SET(sleep_limpar);
  598. SET(sleep_armazenar);
  599. SET(sleep_reabastecer_arma);
  600. LOG("&b&l[&f&oM&facro&b&l] &f%&arma_name% &acom durabilidade baixa. &9&o#SLEEP");
  601. LOG("&b&l[&f&oM&facro&b&l] &aReabastecimento habilitado. &9&o#SLEEP");
  602. BREAK;
  603. ENDIF;
  604. ENDIF;
  605. ELSE;
  606. SET(sleep_limpar);
  607. SET(sleep_armazenar);
  608. SET(sleep_reabastecer_arma);
  609. LOG("&b&l[&f&oM&facro&b&l] &f%&arma_name% &aquebrou. &9&o#SLEEP");
  610. LOG("&b&l[&f&oM&facro&b&l] &aReabastecimento habilitado. &9&o#SLEEP");
  611. BREAK;
  612. ENDIF;
  613. ENDIF;
  614. KEY(ATTACK);
  615. IF(@sleepmobkill);
  616. UNSET(@sleepmobkill);
  617. INC(#mobs_mortos,1);
  618. ENDIF;
  619. ENDIF;
  620. IF(%GUI%!="NONE");
  621. IF(%GUI%="GUICHAT");
  622. LOG("&b&l[&f&oM&facro&b&l] &aChat detectado, feche para continuar. &9&o#SLEEP");
  623. DO;
  624. WHILE(%GUI%="GUICHAT");
  625. ELSE;
  626. IF(%#verificar_ms%>=3);
  627. LOG("&b&l[&f&oM&facro&b&l] &aJanela detectada, continuando em &f3 &asegundos. &9&o#SLEEP");
  628. WAIT(3);
  629. GUI();
  630. ENDIF;
  631. ENDIF;
  632. ENDIF;
  633. DEC(#verificar_ms,2);
  634. IF(%#verificar_ms%=0);
  635. #verificar_ms = %#tempo_verificar_ms%;
  636. IF((baus_lotados)&&(!sleep_desarmado));
  637. LOG("&b&l[&f&oM&facro&b&l] &cOs baús estão lotados, verificação &ccancelada. &9&o#SLEEP");
  638. ELSE;
  639. IF((%&itens_armazenar%!="DESABILITADO")||(sleep_desarmado));
  640. LOG("&b&l[&f&oM&facro&b&l] &aAguarde, verificando o inventário. &9&o#SLEEP");
  641. SET(#slots_livres,"");
  642. UNSAFE;
  643. FOR(#sleep_slot,9,44);
  644. IF(%GUI%!="GUIINVENTORY");
  645. GUI(INVENTORY);
  646. ENDIF;
  647. GETSLOTITEM(%#sleep_slot%,#sleep_id);
  648. IF(%#sleep_id%=0);
  649. INC(#slots_livres,1);
  650. IF(%#slots_livres%=4);
  651. BREAK;
  652. ENDIF;
  653. ENDIF;
  654. NEXT;
  655. ENDUNSAFE;
  656. IF(%#slots_livres%<4);
  657. LOG("&b&l[&f&oM&facro&b&l] &aInventário lotado, limpeza habilitada. &9&o#SLEEP");
  658. SET(sleep_limpar);
  659. BREAK;
  660. ELSE;
  661. LOG("&b&l[&f&oM&facro&b&l] &aInventário ainda vazio. &9&o#SLEEP");
  662. GUI();
  663. ENDIF;
  664. ELSE;
  665. LOG("&b&l[&f&oM&facro&b&l] &cArmazenamento desabilitado, verificação &ccancelada. &9&o#SLEEP");
  666. ENDIF;
  667. ENDIF;
  668. ENDIF;
  669. IF((%XPOS%!=%#mob_xpos%)||(%YPOS%!=%#mob_ypos%)||(%ZPOS%!=%#mob_zpos%));
  670. LOG("&b&l[&f&oM&facro&b&l] &cParece que você não esta nas coordenadas configuradas do MobSpawn. Tentando resolver... &9&o#SLEEP");
  671. SET(home_mob);
  672. SET(verificacao_completa);
  673. BREAK;
  674. ELSEIF(%HEALTH%<=6);
  675. }$$(macro) alarme de invasao acionado. #SLEEP$${
  676. SET(mob_invadido);
  677. UNSET(@sleep_mobkill);
  678. UNSET(@afk_onchat);
  679. UNSET(@mobkill_power);
  680. GUI();
  681. PRESS(F2);
  682. WAIT(2T);
  683. LOOK(%&sleep_look_oposto%);
  684. DO(3);
  685. KEY(ATTACK);
  686. WAIT(1MS);
  687. LOOP;
  688. PRESS(F2);
  689. WAIT(2T);
  690. DISCONNECT;
  691. ENDIF;
  692. LOOP;
  693. IF(sleep_limpar);
  694. UNSET(sleep_limpar);
  695. DO(3);
  696. SET(#itens_inv_armazenar,"");
  697. UNSAFE;
  698. FOR(#sleep_slot,44,9);
  699. UNSET(item_invalido);
  700. IF(%GUI%!="GUIINVENTORY");
  701. GUI(INVENTORY);
  702. ENDIF;
  703. GETSLOTITEM(%#sleep_slot%,#sleep_id);
  704. IF((%#sleep_id%=%#arma%)||(%#sleep_id%=%#sleep_material%)||(%#sleep_id%=122)||(%#sleep_id%=0));
  705. ELSE;
  706. IFMATCHES("%#sleep_id%","%&itens_armazenar%");
  707. INC(#itens_inv_armazenar,1);
  708. ELSE;
  709. SET(item_invalido);
  710. ENDIF;
  711. IF((item_invalido)||(baus_lotados));
  712. LOOK(%&sleep_look_oposto%,1);
  713. SLOTCLICK(%#sleep_slot%,L,FALSE);
  714. WAIT(90MS);
  715. SLOTCLICK(-999);
  716. WAIT(90MS);
  717. ENDIF;
  718. ENDIF;
  719. NEXT;
  720. ENDUNSAFE;
  721. LOOP;
  722. IF((%#itens_inv_armazenar%>=25)&&(!sleep_armazenar));
  723. LOG("&b&l[&f&oM&facro&b&l] &aInventário lotado, armazenamento habilitado. &9&o#SLEEP");
  724. SET(sleep_armazenar);
  725. ELSE;
  726. SET(home_mob);
  727. ENDIF;
  728. ENDIF;
  729. IF((sleep_armazenar)||(sleep_reabastecer_arma)||(sleep_reabastecer_material));
  730. UNSET(block_home_baus);
  731. UNSET(pos_baus_verificar);
  732. DO;
  733. SET(fim);
  734. IF(!block_home_baus);
  735. DO;
  736. GUI();
  737. SET(#sleep_inc,"");
  738. UNSET(home_protection);
  739. }$$/home mkb$${
  740. DO(200);
  741. IF((%XPOS%=%#mob_xpos%)&&(%YPOS%=%#mob_ypos%)&&(%ZPOS%=%#mob_zpos%));
  742. ELSE;
  743. BREAK;
  744. ENDIF;
  745. LOOP;
  746. WAIT(60T);
  747. KEYDOWN(JUMP);
  748. WAIT(20T);
  749. KEYUP(JUMP);
  750. WAIT(6T);
  751. DO(6);
  752. DO;
  753. SET(&verificar_baus,"");
  754. 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);
  755. 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);
  756. SET(&verificar_baus,"%#bau1%-%#bau2%-%#bau3%-%#bau4%-%#bau5%-%#bau6%-%#bau7%-%#bau8%-%#bau9%-%#bau10%");
  757. IF((%XPOS%=%#mob_xpos%)&&(%YPOS%=%#mob_ypos%)&&(%ZPOS%=%#mob_zpos%));
  758. UNSET(ok1);
  759. ELSE;
  760. SET(ok1);
  761. ENDIF;
  762. IFMATCHES("%&verificar_baus%","^(54|146)-(54|146)-(54|146)-(54|146)-(54|146)-(54|146)-(54|146)-(54|146)-(54|146)-(54|146)$");
  763. SET(ok2);
  764. ELSE;
  765. UNSET(ok2);
  766. ENDIF;
  767. GETIDREL(0,-1,0,#bloco);
  768. INC(#sleep_inc,1);
  769. IF(%#sleep_inc%=300);
  770. LOG("");
  771. LOG("&b&l[&f&oM&facro&b&l] &cAlgum problema aconteceu. Se este erro persistir, tem algo errado com sua trap de baús.");
  772. LOG("&b&l[&f&oM&facro&b&l] &cVeja como deve ficar a trap de baús:");
  773. LOG("&b&l[&f&oM&facro&b&l] &ahttp://prnt.sc/f4tw3k");
  774. LOG("");
  775. LOG("&b&l[&f&oM&facro&b&l] &cTentando novamente...");
  776. LOG("");
  777. SET(home_protection);
  778. BREAK;
  779. ENDIF;
  780. IF(pos_baus_verificar);
  781. IF((%XPOS%=%#baus_xpos%)&&(%YPOS%=%#baus_ypos%)&&(%ZPOS%=%#baus_zpos%));
  782. SET(ok3);
  783. ELSE;
  784. UNSET(ok3);
  785. ENDIF;
  786. ELSE;
  787. SET(ok3);
  788. ENDIF;
  789. UNTIL((ok1)&&(ok2)&&(ok3)&&(%#bloco%!=0));
  790. WHILE(!home_protection);
  791. UNTIL(!home_protection);
  792. IF(trap_salvar_coordenadas);
  793. SET(#baus_xpos,"%XPOS%");
  794. SET(#baus_ypos,"%YPOS%");
  795. SET(#baus_zpos,"%ZPOS%");
  796. UNSET(trap_salvar_coordenadas);
  797. ENDIF;
  798. UNSET(pos_baus_verificar);
  799. ELSE;
  800. UNSET(block_home_baus);
  801. ENDIF;
  802. IF((sleep_armazenar)&&(!baus_lotados)&&(%#itens_inv_armazenar%>=1));
  803. SET(#sleep_inc,"199");
  804. SET(#sleep_inc_two,"");
  805. IF(%#bau_atual%=1);
  806. SET(#pos_first_chest,"%#baus_xpos%");
  807. SET(#pos_last_chest,"%#baus_xpos%");
  808. ENDIF;
  809. #pos_penult_chest = %#pos_last_chest% - 1;
  810. DO;
  811. LOOK(NORTH);
  812. IF(%XPOS%=%#pos_last_chest%);
  813. WAIT(20MS);
  814. BREAK;
  815. ELSEIF((%XPOS%>%#pos_last_chest%)||(%YPOS%!=%#baus_ypos%)||(%ZPOS%!=%#baus_zpos%));
  816. LOG("&b&l[&f&oM&facro&b&l] &cAlgum problema aconteceu. &9&o#SLEEP");
  817. LOG("&b&l[&f&oM&facro&b&l] &cTentando resolver... &9&o#SLEEP");
  818. UNSET(fim);
  819. ELSE;
  820. GUI(INVENTORY);
  821. KEYDOWN(RIGHT);
  822. IF(%XPOS%<%#pos_penult_chest%);
  823. KEYUP(SNEAK);
  824. ELSE;
  825. KEYDOWN(SNEAK);
  826. ENDIF;
  827. ENDIF;
  828. WHILE(fim);
  829. KEYUP(SNEAK);
  830. KEYUP(RIGHT);
  831. GUI();
  832. IF(fim);
  833. DO;
  834. INC(#sleep_inc,1);
  835. IF(%#sleep_inc%=200);
  836. GUI();
  837. SET(#sleep_inc,"");
  838. INC(#sleep_inc_two,1);
  839. IF(%#sleep_inc_two%=6);
  840. LOG("&b&l[&f&oM&facro&b&l] &cO baú não está abrindo. &9&o#SLEEP");
  841. LOG("&b&l[&f&oM&facro&b&l] &cTentando resolver... &9&o#SLEEP");
  842. SET(pos_baus_verificar);
  843. UNSET(fim);
  844. BREAK;
  845. ENDIF;
  846. LOOK(NORTH);
  847. IFMATCHES("%#bau_atual%","^(.*)[0-9]$");
  848. MATCH("%#bau_atual%","^(.*)([0-9])$",{,#bau_atual_unit});
  849. ENDIF;
  850. IF((%#bau_atual%=1)||(%#bau_atual_unit%=1)||(%#bau_atual_unit%=6));
  851. IF((%#bau_atual%=1)&&((sleep_reparar)||(sleep_trocar)));
  852. LOOK(+0,+328);
  853. ELSE;
  854. LOOK(+0,+308);
  855. ENDIF;
  856. ELSEIF((%#bau_atual%=2)||(%#bau_atual_unit%=2)||(%#bau_atual_unit%=7));
  857. IF((%#bau_atual%=2)&&((sleep_reparar)||(sleep_trocar)));
  858. LOOK(+0,+358);
  859. ELSE;
  860. LOOK(+0,+328);
  861. ENDIF;
  862. ELSEIF((%#bau_atual%=3)||(%#bau_atual_unit%=3)||(%#bau_atual_unit%=8));
  863. IF((%#bau_atual%=3)&&((sleep_reparar)||(sleep_trocar)));
  864. LOOK(+0,+33);
  865. ELSE;
  866. LOOK(+0,+358);
  867. ENDIF;
  868. ELSEIF((%#bau_atual%=4)||(%#bau_atual_unit%=4)||(%#bau_atual_unit%=9));
  869. IF((%#bau_atual%=4)&&((sleep_reparar)||(sleep_trocar)));
  870. LOOK(+0,+50);
  871. ELSE;
  872. LOOK(+0,+33);
  873. ENDIF;
  874. ELSEIF((%#bau_atual%=5)||(%#bau_atual_unit%=5)||(%#bau_atual_unit%=0));
  875. LOOK(+0,+50);
  876. ENDIF;
  877. LOOK(+0,+2,1);
  878. KEY(USE);
  879. ELSEIF((%XPOS%!=%#pos_last_chest%)||(%YPOS%!=%#baus_ypos%)||(%ZPOS%!=%#baus_zpos%));
  880. LOG("&b&l[&f&oM&facro&b&l] &cVocê não esta onde deveria. &9&o#SLEEP");
  881. LOG("&b&l[&f&oM&facro&b&l] &cTentando resolver... &9&o#SLEEP");
  882. SET(pos_baus_verificar);
  883. UNSET(fim);
  884. ENDIF;
  885. UNTIL((!fim)||(%GUI%="GUICHEST"));
  886. IF(fim);
  887. WAIT(6T);
  888. #id_inv = 333;
  889. FOR(#sleep_slot_inv,89,54);
  890. IF(%GUI%!="GUICHEST");
  891. LOG("&b&l[&f&oM&facro&b&l] &cO baú foi fechado. &9&o#SLEEP");
  892. LOG("&b&l[&f&oM&facro&b&l] &cTentando reabrir... &9&o#SLEEP");
  893. SET(pos_baus_verificar);
  894. UNSET(fim);
  895. BREAK;
  896. ENDIF;
  897. UNSET(slot_air);
  898. UNSAFE;
  899. IF(%#id_inv%=0);
  900. SET(slot_air);
  901. ELSE;
  902. FOR(#sleep_slot_chest,0,53);
  903. GETSLOTITEM(%#sleep_slot_chest%,#id_chest);
  904. IF(%#id_chest%=0);
  905. SET(slot_air);
  906. BREAK;
  907. ENDIF;
  908. NEXT;
  909. ENDIF;
  910. ENDUNSAFE;
  911. IF(!slot_air);
  912. INC(#bau_atual,1);
  913. SET(block_home_baus);
  914. IF((%#bau_atual%=4)&&((sleep_reparar)||(sleep_trocar)));
  915. INC(#bau_atual,1);
  916. INC(#bau_atual_unit,1);
  917. ENDIF;
  918. IF((%#bau_atual_unit%=5)||((%#bau_atual_unit%=0));
  919. 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);
  920. 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);
  921. SET(&verificar_baus,"%#bau1%-%#bau2%-%#bau3%-%#bau4%-%#bau5%-%#bau6%-%#bau7%-%#bau8%-%#bau9%-%#bau10%");
  922. IFMATCHES("%&verificar_baus%","^(54|146)-(54|146)-(54|146)-(54|146)-(54|146)-(54|146)-(54|146)-(54|146)-(54|146)-(54|146)$");
  923. INC(#pos_last_chest,1);
  924. UNSET(fim);
  925. BREAK;
  926. ELSE;
  927. LOG("&b&l[&f&oM&facro&b&l] &cOs baús acabaram, armazenamento &cdesabilitado agora. &9&o#SLEEP");
  928. SET(baus_lotados);
  929. BREAK;
  930. ENDIF;
  931. ENDIF;
  932. UNSET(fim);
  933. BREAK;
  934. ELSE;
  935. GETSLOTITEM(%#sleep_slot_inv%,#id_inv);
  936. IF((%#id_inv%=%#arma%)||(%#id_inv%=%#sleep_material%)||(%#id_inv%=122)||(%#id_inv%=0));
  937. ELSE;
  938. IFMATCHES("%#id_inv%","%&itens_armazenar%");
  939. SLOTCLICK(%#sleep_slot_inv%,L,TRUE);
  940. WAIT(5MS);
  941. GETITEMINFO(%#id_inv%,&inv_name);
  942. LOG("&b&l[&f&oM&facro&b&l] &f%&inv_name% &aarmazenado. &9&o#SLEEP");
  943. DEC(#itens_inv_armazenar,1);
  944. IF(%#id_inv%=387);
  945. INC(#sleep_livros,1);
  946. ENDIF;
  947. ELSE;
  948. LOG("&b&l[&f&oM&facro&b&l] &cItem inválido encontrado, descartando-o. &9&o#SLEEP");
  949. SLOTCLICK(%#sleep_slot_inv%,L,FALSE);
  950. WAIT(3T);
  951. SLOTCLICK(-999);
  952. WAIT(3T);
  953. ENDIF;
  954. ENDIF;
  955. ENDIF;
  956.  
  957. NEXT;
  958. ELSE;
  959. GUI();
  960. ENDIF;
  961. ENDIF;
  962. ELSEIF((sleep_reabastecer_arma)||(sleep_reabastecer_material));
  963. IF((%XPOS%=%#baus_xpos%)&&(%YPOS%=%#baus_ypos%)&&(%ZPOS%=%#baus_zpos%));
  964. SET(#sleep_inc,"199");
  965. SET(#sleep_inc_two,"");
  966. IF(sleep_reabastecer_arma);
  967. LOG("&b&l[&f&oM&facro&b&l] &aIniciando reabastecimento de &f%&arma_name%&a. &9&o#SLEEP");
  968. #quant_reabastecer = 1;
  969. SET(#sleep_id_procurar,"%#arma%");
  970. ELSE;
  971. LOG("&b&l[&f&oM&facro&b&l] &aIniciando reabastecimento de &f%&material_name%&a. &9&o#SLEEP");
  972. IF((%#sleep_material%=276)||(%#sleep_material%=279)||(%#sleep_material%=267)||(%#sleep_material%=258));
  973. #quant_reabastecer = 3;
  974. ELSE;
  975. #quant_reabastecer = 8;
  976. ENDIF;
  977. SET(#sleep_id_procurar,"%#sleep_material%");
  978. ENDIF;
  979. GETITEMINFO(%#sleep_id_procurar%,&procurar_name);
  980. DO;
  981. INC(#sleep_inc,1);
  982. IF(%#sleep_inc%=200);
  983. GUI();
  984. SET(#sleep_inc,"");
  985. INC(#sleep_inc_two,1);
  986. IF(%#sleep_inc_two%=6);
  987. LOG("&b&l[&f&oM&facro&b&l] &cO baú não está abrindo. &9&o#SLEEP");
  988. LOG("&b&l[&f&oM&facro&b&l] &cTentando resolver... &9&o#SLEEP");
  989. SET(pos_baus_verificar);
  990. UNSET(fim);
  991. BREAK;
  992. ENDIF;
  993. LOOK(NORTH);
  994. LOOK(+0,+308);
  995. LOOK(+0,+2,1);
  996. KEY(USE);
  997. ELSEIF((%XPOS%!=%#baus_xpos%)||(%YPOS%!=%#baus_ypos%)||(%ZPOS%!=%#baus_zpos%));
  998. LOG("&b&l[&f&oM&facro&b&l] &cVocê não esta onde deveria. &9&o#SLEEP");
  999. LOG("&b&l[&f&oM&facro&b&l] &cTentando resolver... &9&o#SLEEP");
  1000. SET(pos_baus_verificar);
  1001. UNSET(fim);
  1002. ENDIF;
  1003. UNTIL((!fim)||(%GUI%="GUICHEST"));
  1004. WAIT(5T);
  1005. UNSET(item_ja_abastecido);
  1006. IF(fim);
  1007. UNSAFE;
  1008. FOR(#sleep_slot_inv,54,89);
  1009. GETSLOTITEM(%#sleep_slot_inv%,#sleep_id_inv,#sleep_stack_inv,#sleep_data_inv);
  1010. IF(sleep_reabastecer_arma);
  1011. IF(%#sleep_id_inv%=%#arma%);
  1012. #dur_atual = %#sleep_material_dur% - %#sleep_data_inv%;
  1013. IF((%#dur_atual%>%#sleep_quest_2%)&&(%#sleep_slot_inv%>=81));
  1014. IF(%#dur_atual%<%#sleep_material_dur%);
  1015. ELSE;
  1016. SET(item_ja_abastecido);
  1017. BREAK;
  1018. ENDIF;
  1019. ENDIF;
  1020. ENDIF;
  1021. ELSEIF(sleep_reabastecer_material);
  1022. IF(%#sleep_id_inv%=%#sleep_material%);
  1023. SET(item_ja_abastecido);
  1024. BREAK;
  1025. ENDIF;
  1026. ENDIF;
  1027. NEXT;
  1028. ENDUNSAFE;
  1029. ENDIF;
  1030. IF(!item_ja_abastecido);
  1031. IF(fim);
  1032. UNSET(item_achado);
  1033. UNSET(item_inventario);
  1034. UNSAFE;
  1035. DO(3);
  1036. GETSLOT(%#arma%,#slot_arma,54);
  1037. IF((%#slot_arma%!=-1)&&(%#slot_arma%<81));
  1038. SLOTCLICK(%#slot_arma%,L,TRUE);
  1039. WAIT(10T);
  1040. ENDIF;
  1041. LOOP;
  1042. FOR(#sleep_slot_chest,0,53);
  1043. GETSLOTITEM(%#sleep_slot_chest%,#sleep_id_chest,#sleep_stack_chest,#sleep_data_chest);
  1044. IF(%#sleep_id_chest%=%#sleep_id_procurar%);
  1045. IF(sleep_reabastecer_arma);
  1046. #dur_atual = %#sleep_material_dur% - %#sleep_data_chest%;
  1047. IF(%#dur_atual%=%#sleep_material_dur%);
  1048. SET(item_achado);
  1049. SET(#slot_chest_arma,"%#sleep_slot_chest%");
  1050. BREAK;
  1051. ENDIF;
  1052. ELSE;
  1053. SET(item_achado);
  1054. BREAK;
  1055. ENDIF;
  1056. ENDIF;
  1057. NEXT;
  1058. IF(%GUI%="GUICHEST");
  1059. IF(item_achado);
  1060. IF(sleep_reabastecer_arma);
  1061. DO(3);
  1062. GETSLOT(%#arma%,#slot_arma,54);
  1063. IF(%#slot_arma%!=-1);
  1064. SLOTCLICK(%#slot_arma%,L,TRUE);
  1065. WAIT(10T);
  1066. ENDIF;
  1067. LOOP;
  1068. SET(#slot_hot_vazio,"");
  1069. FOR(#sleep_slot_vazio,81,89);
  1070. GETSLOTITEM(%#sleep_slot_vazio%,#id_slot_vazio);
  1071. IF(%#id_slot_vazio%=0);
  1072. SET(#slot_hot_vazio,"%#sleep_slot_vazio%");
  1073. BREAK;
  1074. ENDIF;
  1075. NEXT;
  1076. IF(%#slot_hot_vazio%=0);
  1077. SLOTCLICK(81,L,FALSE);
  1078. WAIT(5T);
  1079. SLOTCLICK(-999);
  1080. WAIT(5T);
  1081. SET(#slot_hot_vazio,"81");
  1082. ENDIF;
  1083. SLOTCLICK(%#slot_chest_arma%,L,FALSE);
  1084. WAIT(8T);
  1085. SLOTCLICK(%#slot_hot_vazio%,L,FALSE);
  1086. WAIT(8T);
  1087. LOG("&b&l[&f&oM&facro&b&l] &aReabastecimento de &f%&arma_name% &aconcluído. &9&o#SLEEP");
  1088. UNSET(sleep_reabastecer_arma);
  1089. ELSE;
  1090. DO(%#sleep_material_pegar%);
  1091. GETSLOT(%#sleep_id_procurar%,#sleep_slot);
  1092. IF((%#sleep_slot%!=-1)&&(%#sleep_slot%<54));
  1093. SLOTCLICK(%#sleep_slot%,L,TRUE);
  1094. WAIT(3T);
  1095. ELSE;
  1096. BREAK;
  1097. ENDIF;
  1098. LOOP;
  1099. LOG("&b&l[&f&oM&facro&b&l] &aReabastecimento de &f%&material_name% &aconcluído. &9&o#SLEEP");
  1100. UNSET(sleep_reabastecer_material);
  1101. ENDIF;
  1102. ELSE;
  1103. LOG("&b&l[&f&oM&facro&b&l] &cNão foi encontrado &f%&procurar_name% &cno baú. &9&o#SLEEP");
  1104. LOG("&b&l[&f&oM&facro&b&l] &cReiniciando busca... &9&o#SLEEP");
  1105. SET(pos_baus_verificar);
  1106. UNSET(fim);
  1107. ENDIF;
  1108. ELSE;
  1109. LOG("&b&l[&f&oM&facro&b&l] &cO baú foi fechado. &9&o#SLEEP");
  1110. LOG("&b&l[&f&oM&facro&b&l] &cTentando reabrir... &9&o#SLEEP");
  1111. SET(pos_baus_verificar);
  1112. UNSET(fim);
  1113. ENDIF;
  1114. ENDUNSAFE;
  1115. ENDIF;
  1116. ELSE;
  1117. LOG("&b&l[&f&oM&facro&b&l] &f%&procurar_name% &cdetectado no inventário. &9&o#SLEEP");
  1118. LOG("&b&l[&f&oM&facro&b&l] &cReabastecimento cancelado. &9&o#SLEEP");
  1119. UNSET(sleep_reabastecer_arma);
  1120. UNSET(sleep_reabastecer_material);
  1121. SET(fim);
  1122. ENDIF;
  1123. ELSE;
  1124. UNSET(fim);
  1125. UNSET(block_home_baus);
  1126. ENDIF;
  1127. ENDIF;
  1128. UNTIL((fim)&&(!sleep_reabastecer_arma)&&(!sleep_reabastecer_material));
  1129. SET(home_mob);
  1130. SET(verificacao_completa);
  1131. UNSET(sleep_armazenar);
  1132. GUI();
  1133. ENDIF;
  1134. LOOP;
  1135.  
  1136. }$$
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!