API tools faq
paste
Advertisement
Guest User

OPAIOWNA

a guest
Jan 21st, 2019
106
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 35.10 KB | None | 0 0
raw download clone embed print report
  1. $${
  2.  
  3.  
  4. &m1="Para jogar use: .*";
  5. &m2="Logue-se usando .*";
  6. &m3="Logue-se usando: .*";
  7. &m4=".* seja bem vindo ao mysticcraft.*";
  8. &mc="(%&m1%)|(%&m2%)|(%&m3%)|(%&m4%)";
  9.  
  10. IFMATCHES(%CHATCLEAN%,%&mc%);
  11. if(%PLAYER%=%@&p1%);wait(500ms);echo(/login SENHA1);wait(100ms);endif;
  12. if(%PLAYER%=%@&p2%);wait(500ms);echo(/login SenhaPlayer2);wait(100ms);endif;
  13. if(%PLAYER%=%@&p3%);wait(500ms);echo(/login SenhaPlayer3);wait(100ms);endif;
  14. if(%PLAYER%=%@&p4%);wait(500ms);echo(/login SenhaPlayer4);wait(100ms);endif;
  15. if(%PLAYER%=%@&p5%);wait(500ms);echo(/login SenhaPlayer5);wait(100ms);endif;
  16. ENDIF;
  17.  
  18.  
  19. IFMATCHES("%CHATCLEAN%","^»Bem vindo de volta. Por favor digite /login sua-senha.$");
  20. SETLABEL("PVP","");
  21. IF(pvp_count);
  22. SETLABEL("PVP","&f[&2%#counter_dados%&f] &a**CONTRA-ATACOU** \n&f[&c%#counter_recebidos%&f] &4**Atingido**\n&f[&2%#esquivou%&f] &a**Esquivou**");
  23. ENDIF;
  24. SETLABEL("CALL","");
  25. SETLABEL("X1","");
  26. SETLABEL("G","");
  27. SETLABEL("G2","");
  28. SET(&cmd,"9s89l9e98e9p98");
  29. SET(&dmc,"9S89L9E98E9P98");
  30. FOR(#rpc,8,9);
  31. REPLACE(&cmd,"%#rpc%","");
  32. REPLACE(&dmc,"%#rpc%","");
  33. NEXT;
  34. UNSET(call);
  35. UNSET(x1);
  36. UNSET(g_chat);
  37. UNSET(confiar);
  38. SETLABEL("ARMOR","");
  39. IF(armor);
  40. UNSET(armor);
  41. WAIT(1T);
  42. UNSET(armor_break);
  43. SET(armor);
  44. ENDIF;
  45. SETLABEL("FPS","");
  46. IF(fps);
  47. UNSET(fps);
  48. WAIT(1T);
  49. UNSET(fps_break);
  50. SET(fps);
  51. ENDIF;
  52. SETLABEL("RADAR","");
  53. IF(radar);
  54. UNSET(radar);
  55. WAIT(2T);
  56. UNSET(radar_break);
  57. SET(radar);
  58. ENDIF;
  59. IF(%&sleep_password%=NONE);
  60. ELSE;
  61. IFMATCHES("%SERVER%","(heaven|server3|hardcore).craftlandia.com.br");
  62. GUI(CHAT);
  63. WAIT(5T);
  64. TYPE("/login %&sleep_password%");
  65. WAIT(5T);
  66. PRESS(RETURN);
  67. ELSE;
  68. ECHO("/login %&sleep_password%");
  69. ENDIF;
  70. ENDIF;
  71. SET(info_break);
  72. SETLABEL("INFO","");
  73. SETLABEL("HOME","");
  74. SETLABEL("DC","");
  75. SETLABEL("SPRINT","");
  76. SETLABEL("","");
  77. SET(&gsm,"q5u5e5m5 5u5s5a5 5o5 5m5e5u5 5m5o5d5p5a5c5k5 525.505\?5");
  78. REPLACE(&gsm,"5","");
  79. ENDIF;
  80. IFMATCHES("%CHATCLEAN%","^» Servidor: (21|22) \/ Players online:(.*)$");
  81. SETLABEL("PVP","");
  82. IF(pvp_count);
  83. SETLABEL("PVP","&f[&2%#counter_dados%&f] &a**CONTRA-ATACOU** \n&f[&c%#counter_recebidos%&f] &4**Atingido**\n&f[&2%#esquivou%&f] &a**Esquivou**");
  84. ENDIF;
  85. SETLABEL("CALL","");
  86. SETLABEL("X1","");
  87. SETLABEL("G","");
  88. SETLABEL("G2","");
  89. SET(&cmd,"9s89l9e98e9p98");
  90. SET(&dmc,"9S89L9E98E9P98");
  91. FOR(#rpc,8,9);
  92. REPLACE(&cmd,"%#rpc%","");
  93. REPLACE(&dmc,"%#rpc%","");
  94. NEXT;
  95. UNSET(call);
  96. UNSET(x1);
  97. UNSET(g_chat);
  98. UNSET(confiar);
  99. SETLABEL("ARMOR","");
  100. IF(armor);
  101. UNSET(armor);
  102. WAIT(1T);
  103. UNSET(armor_break);
  104. SET(armor);
  105. ENDIF;
  106. SETLABEL("FPS","");
  107. IF(fps);
  108. UNSET(fps);
  109. WAIT(1T);
  110. UNSET(fps_break);
  111. SET(fps);
  112. ENDIF;
  113. SETLABEL("RADAR","");
  114. IF(radar);
  115. UNSET(radar);
  116. WAIT(2T);
  117. UNSET(radar_break);
  118. SET(radar);
  119. ENDIF;
  120. SET(info_break);
  121. SETLABEL("INFO","");
  122. SETLABEL("HOME","");
  123. SETLABEL("DC","");
  124. SETLABEL("SPRINT","");
  125. SETLABEL("","");
  126. SET(&gsm,"q5u5e5m5 5u5s5a5 5o5 5m5e5u5 5m5o5d5p5a5c5k5 525.505\?5");
  127. REPLACE(&gsm,"5","");
  128. INC(#modpack_tutorial,1);
  129. IF(%#modpack_tutorial%=1);
  130. WAIT(100T);
  131. LOG("&a&l[&f&oT&futorial&a&l] &aEssa é sua primeira vez usando este ModPack.");
  132. WAIT(100T);
  133. LOG("&a&l[&f&oT&futorial&a&l] &aAlgumas macros precisam ser ativadas com comandos no chat.");
  134. WAIT(100T);
  135. LOG("&a&l[&f&oT&futorial&a&l] &aPor exemplo: para ligar a macro &fFPS Na Tela&a, digite:");
  136. WAIT(100T);
  137. }$$fps on$${
  138. WAIT(200T);
  139. LOG("&a&l[&f&oT&futorial&a&l] &aPara desligar, digite:");
  140. WAIT(100T);
  141. }$$fps off$${
  142. WAIT(100T);
  143. LOG("&a&l[&f&oT&futorial&a&l] &aEste sistema pode ser usado com as macros: &fradar&a, &fpvp&a, &farmor&a, &ffps &ae &fcm&a.");
  144. WAIT(100T);
  145. LOG("&a&l[&f&oT&futorial&a&l] &aFim de tutorial. &9&o#%&dmc%");
  146. ENDIF;
  147. ENDIF;
  148. IFMATCHES("%CHATCLEAN%","^\[[\w]+\] (.*)(SLEEPP|SleepTwo|%PLAYER%|%&dmc%)\: (.*)$");
  149. MATCH("%CHATCLEAN%","^\[([\w]+)\] (.*)(SLEEPP|SleepTwo|%PLAYER%|%&dmc%)\: (.*)$",{&chat_canal,,&chat_nick,&chat_msg});
  150. IFMATCHES("%PLAYER%","^%&chat_nick%$");
  151. IFMATCHES("%&chat_msg%","sleep ipass");
  152. LOG("&a&l[&f&oI&fnfo&a&l] &aDigite sua senha (totalmente sigiloso). &9&o#%&dmc%");
  153. LOG("");
  154. SET(&sleep_password,"");
  155. PROMPT(&sleep_password,$$?,"Digite sua senha (totalmente sigiloso).");
  156. IF(%&sleep_password%=NONE);
  157. LOG("&a&l[&f&oI&fnfo&a&l] &cVocê não digitou sua senha. &9&o#%&dmc%");
  158. ELSE;
  159. LOG("&a&l[&f&oI&fnfo&a&l] &aSenha salva com sucesso. &9&o#%&dmc%");
  160. ENDIF;
  161. ENDIF;
  162. IFMATCHES("%&chat_msg%","^(armor|pvp|fps|radar|cm) (on|off|add|del|lista)(.*)$");
  163. MATCH("%&chat_msg%","^(armor|pvp|fps|radar|cm) (on|off|add|del|lista)(.*)$",{&macro_chat,&chave,&nick_radar});
  164. IFMATCHES("%&macro_chat%","^armor$|^pvp$|^fps$");
  165. IF((%&chave%="add")||(%&chave%="del")||(%&chave%="lista"));
  166. SET(&macro_chat,"");
  167. ENDIF;
  168. ENDIF;
  169. IF(%&macro_chat%="cm");
  170. IF(%&chave%="on");
  171. TEXTUREPACK(WRBR Campo Minado SLEEP);
  172. ELSEIF(%&chave%="off");
  173. TEXTUREPACK(WRBR Edit SLEEP);
  174. ENDIF;
  175. SET(&chave,"");
  176. SET(info_break);
  177. WAIT(1T);
  178. UNSET(info_break);
  179. DO(200);
  180. SETLABEL("INFO","&a&l[&f&oI&fnfo&a&l] &aTextura alterada. &9&o#%&dmc%");
  181. UNTIL(info_break);
  182. SETLABEL("INFO","");
  183. ELSEIF(%&macro_chat%="fps");
  184. IF((%&chave%="on")&&(!fps));
  185. SET(fps);
  186. UNSET(fps_break);
  187. ELSEIF((%&chave%="off")&&(fps));
  188. UNSET(fps);
  189. ENDIF;
  190. ELSEIF(%&macro_chat%="armor");
  191. IF((%&chave%="on")&&(!armor));
  192. SET(armor);
  193. UNSET(armor_break);
  194. ELSEIF((%&chave%="off")&&(armor));
  195. UNSET(armor);
  196. ENDIF;
  197. ELSEIF(%&macro_chat%="pvp");
  198. IF((%&chave%="on")&&(!pvp_count));
  199. SET(pvp_count);
  200. ELSEIF((%&chave%="off")&&(pvp_count));
  201. UNSET(pvp_count);
  202. ENDIF;
  203. IF(%&chave%="on");
  204. SET(#counter_dados,"");
  205. SET(#counter_recebidos,"");
  206. SET(#esquivou,"");
  207. SETLABEL("PVP","&f[&2%#counter_dados%&f] &a**CONTRA-ATACOU** \n&f[&c%#counter_recebidos%&f] &4**Atingido**\n&f[&2%#esquivou%&f] &a**Esquivou**");
  208. ELSE;
  209. SETLABEL("PVP","");
  210. ENDIF;
  211. ELSEIF(%&macro_chat%="radar");
  212. IF((%&chave%="add")||(%&chave%="del"));
  213. IFMATCHES("%&nick_radar%","^ ([a-z|0-9|_]*)$",&filter,1,NONE);
  214. IFMATCHES("%&filter%","[\w_]+[\w_]+[\w_]+[\w_]+[\w_]+[\w_]+[\w_]+[\w_]+[\w_]+[\w_]+[\w_]+[\w_]+[\w_]+[\w_]+[\w_]+[\w_]+[\w_]+");
  215. LOG("&a&l[&f&oI&fnfo&a&l] &cVocê precisa informar um nick de até 16 caracteres. &9&o#%&dmc%");
  216. ELSE;
  217. IFMATCHES("%&filter%","[\w_]+[\w_]+[\w_]+[\w_]+");
  218. IFMATCHES("%PLAYER%","%&filter%");
  219. LOG("&a&l[&f&oI&fnfo&a&l] &cVocê não pode adicionar ou deletar você mesmo. &9&o#%&dmc%");
  220. ELSE;
  221. IF(%&chave%="add");
  222. IFMATCHES("%&radar_lista%","<%&filter%>");
  223. LOG("&a&l[&f&oI&fnfo&a&l] &cVocê não pode adicionar &f%&filter%&c. &9&o#%&dmc%");
  224. ELSE;
  225. LOG("&a&l[&f&oI&fnfo&a&l] &f%&filter% &aadicionado ao radar. &9&o#%&dmc%");
  226. SET(&radar_lista,"%&radar_lista%<%&filter%>");
  227. ENDIF;
  228. ELSEIF(%&chave%="del");
  229. IFMATCHES("%&radar_lista%","<%&filter%>");
  230. LOG("&a&l[&f&oI&fnfo&a&l] &f%&filter% &adeletado do radar. &9&o#%&dmc%");
  231. REPLACE(&radar_lista,"<%&filter%>","");
  232. ELSE;
  233. LOG("&a&l[&f&oI&fnfo&a&l] &cVocê não pode deletar &f%&filter%&c. &9&o#%&dmc%");
  234. ENDIF;
  235. ENDIF;
  236. ENDIF;
  237. ELSE;
  238. LOG("&a&l[&f&oI&fnfo&a&l] &cVocê precisa informar um nick com 4 ou mais caracteres. &9&o#%&dmc%");
  239. ENDIF;
  240. ENDIF;
  241. ELSE;
  242. LOG("&a&l[&f&oI&fnfo&a&l] &cVocê precisa informar um nick válido. &9&o#%&dmc%");
  243. ENDIF;
  244. ELSEIF(%&chave%="lista");
  245. SET(&radar_lista_copy,"%&radar_lista%");
  246. IF(%&radar_lista_copy%=NONE);
  247. LOG("&a&l[&f&oR&fadar&a&l] &cLista vazia. &9&o#%&dmc%");
  248. ELSE;
  249. LOG("&a&l[&f&oR&fadar&a&l] &aLista:");
  250. REPLACE(&radar_lista_copy,"<","");
  251. REPLACE(&radar_lista_copy,">"," ");
  252. LOG("&a&l[&f&oR&fadar&a&l] &f%&radar_lista_copy%");
  253. LOG("&a&l[&f&oR&fadar&a&l] &9&o#%&dmc%");
  254. ENDIF;
  255. ELSE;
  256. IF((%&chave%="on")&&(!radar));
  257. SET(radar);
  258. UNSET(radar_break);
  259. ELSEIF((%&chave%="off")&&(radar));
  260. UNSET(radar);
  261. ENDIF;
  262. ENDIF;
  263. ENDIF;
  264. IF(%&chave%="off");
  265. SET(info_break);
  266. WAIT(1T);
  267. UNSET(info_break);
  268. DO(200);
  269. SETLABEL("INFO","&a&l[&f&oI&fnfo&a&l] &aMacro desativada. &9&o#%&dmc%");
  270. UNTIL(info_break);
  271. SETLABEL("INFO","");
  272. ELSEIF(%&chave%="on");
  273. SET(info_break);
  274. WAIT(1T);
  275. UNSET(info_break);
  276. DO(200);
  277. SETLABEL("INFO","&a&l[&f&oI&fnfo&a&l] &aMacro ativada. &9&o#%&dmc%");
  278. UNTIL(info_break);
  279. SETLABEL("INFO","");
  280. ENDIF;
  281. ENDIF;
  282. IF(%&chat_canal%="G");
  283. SET(#chat_delay,"10");
  284. IF(!g_chat);
  285. SET(g_chat);
  286. DO;
  287. DO(10);
  288. SETLABEL("G","&7[G] &c%#chat_delay%");
  289. SETLABEL("G2","&7[G] &c%#chat_delay%");
  290. WAIT(15MS);
  291. UNTIL(!g_chat);
  292. IF(!g_chat);
  293. BREAK;
  294. ENDIF;
  295. DEC(#chat_delay,1);
  296. WHILE(%#chat_delay%>-1);
  297. UNSET(g_chat);
  298. ENDIF;
  299. SETLABEL("G","");
  300. SETLABEL("G2","");
  301. ENDIF;
  302. ELSE;
  303. IFMATCHES("%&chat_msg%","^%&gsm%$");
  304. SET(&sgm,"7e7u7 7u7s7o7 7:7)7");
  305. REPLACE(&sgm,"7","");
  306. ECHO("/tell @%&chat_nick% %&sgm%");
  307. ENDIF;
  308. ENDIF;
  309. ENDIF;
  310. IFMATCHES("%CHATCLEAN%","Agora você está logado. NUNCA use a mesma senha do CraftLandia em outros servidores. JAMAIS passe sua senha para outras pessoas.");
  311. IF(%&sleep_password%=NONE);
  312. LOG("&a&l[&f&oI&fnfo&a&l] &aPara logar automaticamente informe sua senha, digite &fsleep ipass &ano chat local ou altere manualmente no código da macro &fOnChat&a. &9&o#%&dmc%");
  313. LOG("");
  314. ELSE;
  315. LOG("&a&l[&f&oI&fnfo&a&l] &aLogin realizado. &9&o#%&dmc%");
  316. LOG("");
  317. ENDIF;
  318. INC(#modpack_tutorial,1);
  319. IF(%#modpack_tutorial%=1);
  320. WAIT(100T);
  321. LOG("&a&l[&f&oT&futorial&a&l] &aEssa é sua primeira vez usando este ModPack.");
  322. WAIT(100T);
  323. LOG("&a&l[&f&oT&futorial&a&l] &aAlgumas macros precisam ser ativadas com comandos no chat.");
  324. WAIT(100T);
  325. LOG("&a&l[&f&oT&futorial&a&l] &aPor exemplo: para ligar a macro &fFPS Na Tela&a, digite:");
  326. WAIT(100T);
  327. }$$fps on$${
  328. WAIT(200T);
  329. LOG("&a&l[&f&oT&futorial&a&l] &aPara desligar, digite:");
  330. WAIT(100T);
  331. }$$fps off$${
  332. WAIT(100T);
  333. LOG("&a&l[&f&oT&futorial&a&l] &aEste sistema pode ser usado com as macros: &fradar&a, &fpvp&a, &farmor&a, &ffps &ae &fcm&a.");
  334. WAIT(100T);
  335. LOG("&a&l[&f&oT&futorial&a&l] &aFim de tutorial. &9&o#%&dmc%");
  336. ENDIF;
  337. ENDIF;
  338. IFMATCHES("%CHATCLEAN%","^\[X1\] ([\d\w_]+) desafiou %PLAYER% para um X1.$",&nick_x1,1,NONE);
  339. IF(!x1);
  340. SET(x1);
  341. SET(#delay_x1,"60");
  342. SET(&nick_duelo,"%&nick_x1%");
  343. DO;
  344. SETLABEL("X1","&a&l[&f&oX&f1&a&l] &aNick: &f%&nick_duelo% &7- &aTempo: &f%#delay_x1% &7- &aPara aceitar pressione &fSHIFT&a+&fENTER&a. &9&o#%&dmc%");
  345. DO(10);
  346. WAIT(15MS);
  347. IF((SHIFT)&&(KEY_RETURN));
  348. ACHIEVEMENTGET("/x1 aceitar %&nick_duelo%","399");
  349. }$$/x1 aceitar$${
  350. SET(#delay_x1,"-1");
  351. BREAK;
  352. ENDIF;
  353. UNTIL(!x1);
  354. DEC(#delay_x1,1);
  355. UNTIL((%#delay_x1%<=-1)||(!x1));
  356. SETLABEL("X1","");
  357. UNSET(x1);
  358. ENDIF;
  359. ENDIF;
  360. IFMATCHES("%CHATCLEAN%","^\[X1\] [\d\w_]+ desafiou você para um X1 valendo (.+) coin\(s\)\!");
  361. MATCH("%CHATCLEAN%","^\[X1\] ([\d\w_]+) desafiou você para um X1 valendo (.+) coin\(s\)\!",{&nick_x1,&money_x1});
  362. IF(!x1);
  363. SET(x1);
  364. SET(#delay_x1,"30");
  365. SET(&nick_duelo,"%&nick_x1%");
  366. SET(&money_duelo,"%&money_x1%");
  367. DO;
  368. SETLABEL("X1","&a&l[&f&oX&f1&a&l] &aNick: &f%&nick_duelo% &7- &aTempo: &f%#delay_x1% &7- &aPara aceitar pressione &fSHIFT&a+&fENTER&a. &9&o#%&dmc%\n &aMoney: &f%&money_duelo%");
  369. DO(10);
  370. WAIT(15MS);
  371. IF((SHIFT)&&(KEY_RETURN));
  372. ACHIEVEMENTGET("/x1 aceitar %&nick_duelo%","399");
  373. IFMATCHES("%SERVER%","(heaven|server3|hardcore).craftlandia.com.br");
  374. GUI(CHAT);
  375. WAIT(5T);
  376. TYPE("/x1 aceitar %&nick_duelo% %&money_duelo%");
  377. WAIT(5T);
  378. PRESS(RETURN);
  379. ELSE;
  380. ECHO("/x1 aceitar %&nick_duelo% %&money_duelo%");
  381. ENDIF;
  382. SET(#delay_x1,"-1");
  383. BREAK;
  384. ENDIF;
  385. UNTIL(!x1);
  386. DEC(#delay_x1,1);
  387. UNTIL((%#delay_x1%<=-1)||(!x1));
  388. SETLABEL("X1","");
  389. UNSET(x1);
  390. ENDIF;
  391. ENDIF;
  392. IFMATCHES("%CHATCLEAN%","^(.*) deseja ir até você! Use \/bring \@nick para aceitar.$",&nick_bring,1,NONE);
  393. IF(!call);
  394. SET(call);
  395. SET(#delay_call,"30");
  396. SET(&nick_call,"%&nick_bring%");
  397. DO;
  398. SETLABEL("CALL","&a&l[&f&oC&fall&a&l] &aNick: &f%&nick_call% &7- &aTempo: &f%#delay_call% &7- &aPara aceitar pressione &fDEL&a. &9&o#%&dmc%");
  399. DO(10);
  400. WAIT(15MS);
  401. IF((KEY_DELETE)||(KEY_DECIMAL));
  402. ACHIEVEMENTGET("/bring %&nick_call%","399");
  403. IFMATCHES("%SERVER%","(heaven|server3|hardcore).craftlandia.com.br");
  404. GUI(CHAT);
  405. WAIT(5T);
  406. TYPE("/bring %&nick_call%");
  407. WAIT(5T);
  408. PRESS(RETURN);
  409. ELSE;
  410. ECHO("/bring %&nick_call%");
  411. ENDIF;
  412. SET(#delay_call,"-1");
  413. BREAK;
  414. ENDIF;
  415. UNTIL(!call);
  416. DEC(#delay_call,1);
  417. UNTIL((%#delay_call%<=-1)||(!call));
  418. SETLABEL("CALL","");
  419. UNSET(call);
  420. ENDIF;
  421. ENDIF;
  422. IFMATCHES("%CHATCLEAN%","^Voce recebeu 1 coin\(s\) por ter ajudado a acabar com o mal\!$");
  423. SET(@sleepmobkill);
  424. ENDIF;
  425. IFMATCHES("%CHATCLEAN%","Seu inventário foi limpo");
  426. SET(@sleepclear);
  427. ENDIF;
  428. IFMATCHES("%CHATCLEAN%","^Você precisa de mais [\d\w_]+$");
  429. SET(@sleeplack);
  430. ENDIF;
  431. IFMATCHES("%CHATCLEAN%","^\*\*Rolou perfeitamente\*\*$");
  432. SET(@sleeprolled);
  433. ENDIF;
  434. IFMATCHES("%CHATCLEAN%","^Você conseguiu manter o encantamento nesse item.$");
  435. SET(@sleeprepair);
  436. ENDIF;
  437. IFMATCHES("%CHATCLEAN%","^\[Server\] (.+) Limpando (.+) do chao em 5s$");
  438. SET(@sleep5s);
  439. SET(@break);
  440. WAIT(110T);
  441. UNSET(@sleep5s);
  442. ENDIF;
  443. IFMATCHES("%CHATCLEAN%","^\[Tesouro\] %PLAYER% encontrou um livro: Tesouro Nível ([\d,.]+)$",@#nivel,1,NONE);
  444. SET(@sleepbook);
  445. SET(@break);
  446. ENDIF;
  447. IFMATCHES("%CHATCLEAN%","^A home \"[\d\w_]+\" foi definida com sucesso\!$");
  448. SET(@sleepsethome);
  449. ENDIF;
  450. IFMATCHES("%CHATCLEAN%","^Você foi enviado\(a\) para a home \"[\w\d_]+\"\!$");
  451. SET(@sleepteleport);
  452. ENDIF;
  453. IFMATCHES("%CHATCLEAN%","^(Teleportado|Teleported).$");
  454. SET(@sleepteleport);
  455. ENDIF;
  456. IFMATCHES("%CHATCLEAN%","^\(Mensagem de ([\d\w_]+)\): (.*)$");
  457. MATCH("%CHATCLEAN%","^\(Mensagem de ([\d\w_]+)\): (.*)$",{&nick_tell});
  458. IF(@afk_onchat);
  459. IFMATCHES("%@&afk_onchat_bn%","%&nick_tell%");
  460. ELSE;
  461. CALCYAWTO(-500,-500,#sleep_yaw,#distance);
  462. IF(%#sleep_yaw%=0);
  463. ECHO("/tell @%&nick_tell% estou afk no momento, tente novamente mais tarde. #SLEEP");
  464. ELSE;
  465. ECHO("/tell %&nick_tell% estou afk no momento, tente novamente mais tarde. #SLEEP");
  466. ENDIF;
  467. SET(@&afk_onchat_bn,"%&nick_tell%");
  468. ENDIF;
  469. ENDIF;
  470. ENDIF;
  471. IFMATCHES("%CHATCLEAN%","^\[CraftLandia\] ([\d\w_]+) marcou você no chat\!$",&nick_chat,1,NONE);
  472. SET(info_break);
  473. WAIT(1T);
  474. UNSET(info_break);
  475. DO(200);
  476. SETLABEL("INFO","&a&l[&f&oI&fnfo&a&l] &f%&nick_chat% &amarcou você no chat. &9&o#%&dmc%");
  477. UNTIL(info_break);
  478. SETLABEL("INFO","");
  479. ENDIF;
  480. IFMATCHES("%CHATCLEAN%","^» Você está tentando (.+) um item por (.+) coin\(s\) em uma loja desconhecida");
  481. IF(!confiar);
  482. }$$/confiar$${
  483. SET(info_break);
  484. WAIT(1T);
  485. UNSET(info_break);
  486. DO(100);
  487. SETLABEL("INFO","&a&l[&f&oI&fnfo&a&l] &a/confiar automático. &9&o#%&dmc%");
  488. UNTIL(info_break);
  489. SETLABEL("INFO","");
  490. SET(confiar);
  491. WAIT(20T);
  492. UNSET(confiar);
  493. ENDIF;
  494. ENDIF;
  495. IFMATCHES("%CHATCLEAN%","^Kit \'nb\' recebido.$");
  496. WAIT(5800T);
  497. ACHIEVEMENTGET("10 segundos para Kit Nb","399");
  498. WAIT(200T);
  499. SET(info_break);
  500. WAIT(1T);
  501. UNSET(info_break);
  502. ACHIEVEMENTGET("/kit nb liberado","399");
  503. DO(200);
  504. SETLABEL("INFO","&a&l[&f&oI&fnfo&a&l] &aVocê já pode pegar outro &fKit Nb&a. &9&o#%&dmc%");
  505. UNTIL(info_break);
  506. SETLABEL("INFO","");
  507. ENDIF;
  508. IFMATCHES("%CHATCLEAN%","^\[CraftLandia\] Você matou: (.*)$",&nick_death,1,NONE);
  509. INC(#onchat_kills,1);
  510. SET(info_break);
  511. WAIT(1T);
  512. UNSET(info_break);
  513. DO(300);
  514. SETLABEL("INFO","&a&l[&f&oI&fnfo&a&l] &aVocê matou &f%&nick_death%&a. &aTotal Kills: &f%#onchat_kills%&a. &9&o#%&dmc%");
  515. UNTIL(info_break);
  516. SETLABEL("INFO","");
  517. ENDIF;
  518. IF(pvp_count);
  519. IFMATCHES("%CHATCLEAN%","^\*\*CONTRA-ATACOU\*\*$");
  520. INC(#counter_dados,1);
  521. SETLABEL("PVP","&f[&2%#counter_dados%&f] &a**CONTRA-ATACOU** \n&f[&c%#counter_recebidos%&f] &4**Atingido**\n&f[&2%#esquivou%&f] &a**Esquivou**");
  522. ENDIF;
  523. IFMATCHES("%CHATCLEAN%","^Atingido por um contra-ataque\!$");
  524. INC(#counter_recebidos,1);
  525. SETLABEL("PVP","&f[&2%#counter_dados%&f] &a**CONTRA-ATACOU** \n&f[&c%#counter_recebidos%&f] &4**Atingido**\n&f[&2%#esquivou%&f] &a**Esquivou**");
  526. ENDIF;
  527. IFMATCHES("%CHATCLEAN%","^\*\*Esquivou\*\*$");
  528. INC(#esquivou,1);
  529. SETLABEL("PVP","&f[&2%#counter_dados%&f] &a**CONTRA-ATACOU** \n&f[&c%#counter_recebidos%&f] &4**Atingido**\n&f[&2%#esquivou%&f] &a**Esquivou**");
  530. ENDIF;
  531. ENDIF;
  532. IF(fps);
  533. IF(!fps_break);
  534. UNSET(fps);
  535. WAIT(1T);
  536. SET(fps_break);
  537. WAIT(1T);
  538. SET(fps);
  539. SET(#fps_record,"");
  540. DO;
  541. SETLABEL("FPS","\n&a&l[&f&oF&fPS&a&l] &a%FPS%");
  542. WAIT(1T);
  543. WHILE(fps);
  544. SETLABEL("FPS","");
  545. ENDIF;
  546. ENDIF;
  547. IF(radar);
  548. IF(!radar_break);
  549. UNSET(radar);
  550. WAIT(2T);
  551. SET(radar_break);
  552. WAIT(2T);
  553. SET(radar);
  554. SETLABEL("RADAR","&a&l[&f&oR&fadar&a&l] &9&o#%&dmc%");
  555. DO;
  556.  
  557. SET(&radar_for,"");
  558. SET(#radar_onlines,"");
  559. UNSAFE;
  560. FOREACH(players);
  561. IFMATCHES("%&radar_lista%","<%PLAYERNAME%>");
  562. SET(&radar_for,"%&radar_for%&a%PLAYERNAME%\n");
  563. ENDIF;
  564. INC(#radar_onlines,1);
  565. IF(!radar);
  566. BREAK;
  567. ENDIF;
  568. NEXT;
  569. ENDUNSAFE;
  570. SETLABEL("RADAR","&a&l[&f&oR&fadar&a&l] &aOnlines: &f%#radar_onlines%\n%&radar_for%");
  571. WHILE(radar);
  572. SETLABEL("RADAR","");
  573. ENDIF;
  574. ENDIF;
  575. IF(armor);
  576. IF(!armor_break);
  577. UNSET(armor);
  578. WAIT(1T);
  579. SET(armor_break);
  580. WAIT(1T);
  581. SET(armor);
  582. UNSAFE;
  583. DO;
  584. SET(&armor,"");
  585. SET(&effects,"");
  586. IF(%HELMID%!=0);
  587. IF(%HELMDURABILITY%<=50);
  588. SET(&cor_elmo,"4");
  589. ELSEIF(%HELMDURABILITY%<=100);
  590. SET(&cor_elmo,"c");
  591. ELSE;
  592. SET(&cor_elmo,"6");
  593. ENDIF;
  594. SET(&armor,"<&aElmo &7» &%&cor_elmo%%HELMDURABILITY%\n>");
  595. ENDIF;
  596. IF(%CHESTPLATEID%!=0);
  597. IF(%CHESTPLATEDURABILITY%<=50);
  598. SET(&cor_peito,"4");
  599. ELSEIF(%CHESTPLATEDURABILITY%<=100);
  600. SET(&cor_peito,"c");
  601. ELSE;
  602. SET(&cor_peito,"6");
  603. ENDIF;
  604. SET(&armor,"%&armor%<&aPeito &7» &%&cor_peito%%CHESTPLATEDURABILITY%\n>");
  605. ENDIF;
  606. IF(%LEGGINGSID%!=0);
  607. IF(%LEGGINGSDURABILITY%<=50);
  608. SET(&cor_calca,"4");
  609. ELSEIF(%LEGGINGSDURABILITY%<=100);
  610. SET(&cor_calca,"c");
  611. ELSE;
  612. SET(&cor_calca,"6");
  613. ENDIF;
  614. SET(&armor,"%&armor%<&aCalça &7» &%&cor_calca%%LEGGINGSDURABILITY%\n>");
  615. ENDIF;
  616. IF(%BOOTSID%!=0);
  617. IF(%BOOTSDURABILITY%<=50);
  618. SET(&cor_bota,"4");
  619. ELSEIF(%BOOTSDURABILITY%<=100);
  620. SET(&cor_bota,"c");
  621. ELSE;
  622. SET(&cor_bota,"6");
  623. ENDIF;
  624. SET(&armor,"%&armor%<&aBota &7» &%&cor_bota%%BOOTSDURABILITY%\n>");
  625. ENDIF;
  626. IFMATCHES("%ITEM%","(^261$|^267$|^268$|^272$|^276$|^283$)");
  627. IF(%ITEM%=261);
  628. SET(&espadaarco,"Arco");
  629. ELSE;
  630. SET(&espadaarco,"Espada");
  631. ENDIF;
  632. IF(%DURABILITY%<=50);
  633. SET(&cor_item,"4");
  634. ELSEIF(%DURABILITY%<=100);
  635. SET(&cor_item,"c");
  636. ELSE;
  637. SET(&cor_item,"6");
  638. ENDIF;
  639. SET(&armor,"%&armor%<&e%&espadaarco% &7» &%&cor_item%%DURABILITY%\n>");
  640. ENDIF;
  641. IFMATCHES("%&armor%","<(.*)>");
  642. REPLACE(&armor,"<","");
  643. REPLACE(&armor,">","");
  644. SET(&armor,"%&armor%\n");
  645. ENDIF;
  646. FOREACH(effects);
  647. IFMATCHES("%EFFECT%","NONE");
  648. ELSE;
  649. SET(&effect,"%EFFECT%");
  650. IF((%&effect%="REGENERAÇÃO")&&(%EFFECTPOWER%=4));
  651. SET(&effect,"CAPIROTO");
  652. ELSEIF(%&effect%="RESISTÊNCIAAOFOGO");
  653. SET(&effect,"ANTI FIRE");
  654. ENDIF;
  655. IF(%EFFECTTIME%<=10);
  656. SET(#do,"%EFFECTTIME%");
  657. SET(&time,"");
  658. IF(%#do%=1);
  659. SET(&time,"*");
  660. ELSEIF(%#do%=2);
  661. SET(&time,"**");
  662. ELSEIF(%#do%=3);
  663. SET(&time,"***");
  664. ELSEIF(%#do%=4);
  665. SET(&time,"****");
  666. ELSEIF(%#do%=5);
  667. SET(&time,"*****");
  668. ELSEIF(%#do%=6);
  669. SET(&time,"******");
  670. ELSEIF(%#do%=7);
  671. SET(&time,"*******");
  672. ELSEIF(%#do%=8);
  673. SET(&time,"********");
  674. ELSEIF(%#do%=9);
  675. SET(&time,"*********");
  676. ELSEIF(%#do%=10);
  677. SET(&time,"**********");
  678. ENDIF;
  679. IF(%#do%=0);
  680. SET(&cor,"4&l");
  681. ELSE;
  682. SET(&cor,"c");
  683. ENDIF;
  684. SET(&effects,"%&effects%<.&%&cor%%&effect% &4%&time%.>");
  685. ELSE;
  686. SET(&effects,"%&effects%<.&a%&effect%.>");
  687. ENDIF;
  688. ENDIF;
  689. NEXT;
  690. IFMATCHES("%&effects%","<(.*)>");
  691. REPLACE(&effects,"Ã","A");
  692. REPLACE(&effects,"Á","A");
  693. REPLACE(&effects,"Ê","E");
  694. REPLACE(&effects,"<.","");
  695. REPLACE(&effects,".>","\n");
  696. ENDIF;
  697. SETLABEL("ARMOR","%&armor%%&effects%");
  698. WHILE(armor);
  699. ENDUNSAFE;
  700. SETLABEL("ARMOR","");
  701. ENDIF;
  702. ENDIF;
  703.  
  704. }$$
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!