API tools faq
paste
Advertisement
Morking

Contador Tesouro King

Morking
Apr 16th, 2020 (edited)
276
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 15.26 KB | None | 0 0
raw download clone embed print report
  1. $${
  2. // Autor: Morking
  3. // Discord para contato: Morking#8952
  4. // Objetivo: Mostrar e gerenciar os tesouros
  5. // Data: 03/06/2020
  6. // Data da ultíma atualização: 08/11/2020
  7. // Versão: 1.0
  8.  
  9. IF(!@contador_tesouro);
  10. SET(@#visible_label,1);
  11. UNSET(@&vetor_lista[]);
  12. UNSET(@&vetor_amigos[]);
  13. PUSH(@&vetor_amigos[],"%PLAYER%");
  14. SET(@&amigos_tesouro,"^%PLAYER%$");
  15. CLEARCHAT;
  16. LOG("&e&l[TESOURO] Bem Vindo!");
  17. LOG(" &6Para acessar os comandos da macro use: &a!tesouro ajuda");
  18. LOG(" &6Essa macro foi desenvolvida por &fMorking");
  19. LOG(" &6Encontrou algum bug? me contate no Discord! &5Morking#8952");
  20. LOG("");
  21. SET(@contador_tesouro);
  22. ENDIF;
  23. IFMATCHES("%CHATCLEAN%","^»Bem vindo de volta. Por favor digite /login sua-senha.$");
  24. SETPROPERTY(CONTTESOURO,visible,%@#visible_label%);
  25. ENDIF;
  26. IFMATCHES(%CHATCLEAN%,"^\[(?:Tesouro|Pesqueiro VIP)\] (\w+) (?:encontrou|pescou) um(?: livro)?\: Tesouro (?:n|N)ível (\d+)!?$");
  27. MATCH(%CHATCLEAN%,"^\[(?:Tesouro|Pesqueiro VIP)\] (\w+) (?:encontrou|pescou) um(?: livro)?\: Tesouro (?:n|N)ível (\d+)!?$",{&nome_tesouro,#nivel_tesouro});
  28. IFMATCHES(%&nome_tesouro%,"%@&amigos_tesouro%");
  29. TIME(@&tempo_tesouro,"'&6Dia &f'dd'&6/&f'MM'&6/&f'y' &6às &f'HH'&6:&f'mm");
  30. #aux = %@#vetor_nivel[%#nivel_tesouro%]%;
  31. INC(#aux,1);
  32. SET(@#vetor_nivel[%#nivel_tesouro%],%#aux%);
  33. SET(@&ultimo_nome_tesouro,"%&nome_tesouro%");
  34. SET(@#ultimo_nivel_tesouro,%#nivel_tesouro%);
  35. PUSH(@&vetor_lista[],"%&nome_tesouro%>%#nivel_tesouro%>%@&tempo_tesouro%");
  36. UNSAFE(0);
  37. IFMATCHES("%@&cor_tesouro%","^craftlandia$");
  38. SET(&msg_label,"&3&lTESOUROS\n");
  39. FOR(#i,1,12);
  40. IF(#i <= 4);
  41. SET(&cor_msg,"&f");
  42. ELSEIF(#i <= 8);
  43. SET(&cor_msg,"&e");
  44. ELSEIF(#i <= 10);
  45. SET(&cor_msg,"&c");
  46. ELSEIF(#i == 11);
  47. SET(&cor_msg,"&4");
  48. ELSEIF(#i == 12);
  49. SET(&cor_msg,"&5");
  50. ENDIF;
  51. SET(&msg_label,"%&msg_label%%&cor_msg%Nível %#i%: &a%@#vetor_nivel[%#i%]%\n");
  52. NEXT;
  53. ELSEIF(@&cor_tesouro == "colorido");
  54. SET(&msg_label,"&e&lTESOUROS\n");
  55. FOR(#i,1,12);
  56. IF(#i == 10);
  57. SET(&cor_msg,"a");
  58. ELSEIF(#i == 11);
  59. SET(&cor_msg,"b");
  60. ELSEIF(#i == 12);
  61. SET(&cor_msg,"c");
  62. ELSE;
  63. SET(&cor_msg,"%#i%");
  64. ENDIF;
  65. SET(&msg_label,"%&msg_label%&%&cor_msg%Nível %#i%: &f%@#vetor_nivel[%#i%]%\n");
  66. NEXT;
  67. ELSE;
  68. SET(&msg_label,"&e&lTESOUROS\n");
  69. FOR(#i,1,12);
  70. SET(&msg_label,"%&msg_label%&6Nível %#i%: &f%@#vetor_nivel[%#i%]%\n");
  71. NEXT;
  72. ENDIF;
  73. SETLABEL(CONTTESOURO,"%&msg_label%");
  74. ENDUNSAFE;
  75. ENDIF;
  76. ENDIF;
  77. IFMATCHES("%CHATCLEAN%","^\[L\] (?:.*)%PLAYER%(?:.*)\: !tesouro (ajuda|help|contas|adicionar|remover|mostrar|esconder|resetar (?:contas|tesouros|lista)|ver (?:\d+)|lista(?: \w+)?|ultimo|cor (?:padrao|craftlandia|colorido)|atualizar)$",&comando,1);
  78. IFMATCHES("%&comando%","^(ajuda|help)$");
  79. LOG("");
  80. LOG("&e&l[TESOURO] Comandos da &f&lMACRO&e&l:");
  81. LOG(" &6!tesouro ajuda");
  82. LOG(" &6!tesouro contas")
  83. LOG(" &6!tesouro adicionar");
  84. LOG(" &6!tesouro remover");
  85. LOG(" &6!tesouro mostrar/esconder");
  86. LOG(" &6!tesouro resetar contas/tesouros/lista");
  87. LOG(" &6!tesouro ver (número do tesouro)");
  88. LOG(" &6!tesouro lista");
  89. LOG(" &6!tesouro ultimo");
  90. LOG(" &6!tesouro cor padrao/craftlandia/colorido");
  91. LOG(" &6!tesouro atualizar");
  92. LOG("");
  93. ENDIF;
  94. IFMATCHES("%&comando%","^contas$");
  95. LOG("");
  96. LOG("&e&l[TESOURO] Contas adicionados:");
  97. SET(&string_amigos,"");
  98. FOREACH(@&vetor_amigos[],&string);
  99. SET(&string_amigos,"%&string_amigos%%&string%, ");
  100. NEXT;
  101. LOG("&f%&string_amigos%");
  102. LOG("");
  103. ENDIF;
  104. IFMATCHES("%&comando%","^adicionar$");
  105. PROMPT(&novo,"$$?","Quem você deseja adicionar?",true);
  106. LOG("");
  107. IF(%&novo% != "");
  108. SET(@&amigos_tesouro,"%@&amigos_tesouro%|^%&novo%$");
  109. PUSH(@&vetor_amigos,"%&novo%");
  110. LOG("&e&l[TESOUROS] &a&l%&novo% &e&lfoi adicionado a sua lista de tesouros");
  111. LOG("");
  112. ELSE;
  113. LOG("&e&l[TESOUROS] &c&lNome inválido!");
  114. LOG("");
  115. ENDIF;
  116. ENDIF;
  117. IFMATCHES("%&comando%","^remover$");
  118. PROMPT(&lixo,"$$?","Quem você deseja remover?",true);
  119. LOG("");
  120. IF(%&lixo% != "");
  121. REPLACE(@&amigos_tesouro,"|^%&lixo%$","");
  122. UNSET(&array_aux[]);
  123. FOREACH(@&vetor_amigos[],&conteudo);
  124. IF(%&conteudo% != %&lixo%);
  125. PUSH(&array_aux[],"%&conteudo%");
  126. ENDIF;
  127. NEXT;
  128. UNSET(@&vetor_amigos[]);
  129. FOREACH(&array_aux[],&nome_aux);
  130. PUSH(@&vetor_amigos[],"%&nome_aux%");
  131. NEXT;
  132. UNSET(&array_aux[]);
  133. LOG("&e&l[TESOUROS] &a&l%&lixo% &e&lfoi removido da sua lista de tesouros");
  134. LOG("");
  135. ELSE;
  136. LOG("&e&l[TESOUROS] &c&lNome inválido!");
  137. LOG("");
  138. ENDIF;
  139. ENDIF;
  140. IFMATCHES("%&comando%","^mostrar$");
  141. SET(@#visible_label,1);
  142. SETPROPERTY(CONTTESOURO,visible,%@#visible_label%);;
  143. LOG("");
  144. LOG("&e&l[TESOUROS] Tesouros visíveis");
  145. LOG("");
  146. ENDIF;
  147. IFMATCHES("%&comando%","^esconder$");
  148. SET(@#visible_label,0);
  149. SETPROPERTY(CONTTESOURO,visible,%@#visible_label%);
  150. LOG("");
  151. LOG("&e&l[TESOUROS] Tesouros invisíveis");
  152. LOG("");
  153. ENDIF;
  154. IFMATCHES("%&comando%","^resetar (contas|tesouros|lista)$");
  155. LOG("");
  156. IFMATCHES("%&comando%","^resetar contas$");
  157. UNSET(@&vetor_amigos[]);
  158. PUSH(@&vetor_amigos[],"%PLAYER%");
  159. SET(@&amigos_tesouro,"^%PLAYER%$");
  160. LOG("&e&l[TESOUROS] Contas resetadas");
  161. ENDIF;
  162. IFMATCHES("%&comando%","^resetar tesouros$");
  163. UNSET(@#vetor_nivel[]);
  164. LOG("&e&l[TESOUROS] Tesouros resetados");
  165. FOR(#i,0,12);
  166. PUSH(@#vetor_nivel[],0);
  167. NEXT;
  168. UNSAFE(0);
  169. IFMATCHES("%@&cor_tesouro%","^craftlandia$");
  170. SET(&msg_label,"&3&lTESOUROS\n");
  171. FOR(#i,1,12);
  172. IF(#i <= 4);
  173. SET(&cor_msg,"&f");
  174. ELSEIF(#i <= 8);
  175. SET(&cor_msg,"&e");
  176. ELSEIF(#i <= 10);
  177. SET(&cor_msg,"&c");
  178. ELSEIF(#i == 11);
  179. SET(&cor_msg,"&4");
  180. ELSEIF(#i == 12);
  181. SET(&cor_msg,"&5");
  182. ENDIF;
  183. SET(&msg_label,"%&msg_label%%&cor_msg%Nível %#i%: &a%@#vetor_nivel[%#i%]%\n");
  184. NEXT;
  185. ELSEIF(@&cor_tesouro == "colorido");
  186. SET(&msg_label,"&e&lTESOUROS\n");
  187. FOR(#i,1,12);
  188. IF(#i == 10);
  189. SET(&cor_msg,"a");
  190. ELSEIF(#i == 11);
  191. SET(&cor_msg,"b");
  192. ELSEIF(#i == 12);
  193. SET(&cor_msg,"c");
  194. ELSE;
  195. SET(&cor_msg,"%#i%");
  196. ENDIF;
  197. SET(&msg_label,"%&msg_label%&%&cor_msg%Nível %#i%: &f%@#vetor_nivel[%#i%]%\n");
  198. NEXT;
  199. ELSE;
  200. SET(&msg_label,"&e&lTESOUROS\n");
  201. FOR(#i,1,12);
  202. SET(&msg_label,"%&msg_label%&6Nível %#i%: &f%@#vetor_nivel[%#i%]%\n");
  203. NEXT;
  204. ENDIF;
  205. SETLABEL(CONTTESOURO,"%&msg_label%");
  206. ENDUNSAFE;
  207. ENDIF;
  208. IFMATCHES("%&comando%","^resetar lista$");
  209. UNSET(@&vetor_lista[]);
  210. LOG("&e&l[TESOUROS] Lista resetadas");
  211. ENDIF;
  212. LOG("");
  213. ENDIF;
  214. IFMATCHES("%&comando%","^ver (\d+)$",#level_lista,1);
  215. ARRAYSIZE(@&vetor_lista[],#tamanho_vetor);
  216. LOG("");
  217. IF(%#tamanho_vetor% == 0);
  218. LOG("&e&l[TESOURO] &c&lAinda não foi encontrado tesouros");
  219. ELSE;
  220. LOG("&e&l[TESOURO] Pessoas que Encontraram de Nível %&level_lista%:");
  221. UNSAFE(0);
  222. FOREACH(@&vetor_lista[],&conteudo_lista,#index_lista);
  223. SET(#i_lista,%#index_lista%);
  224. INC(#i_lista,1);
  225. MATCH("%&conteudo_lista%","^(\w+)>(\d+)>(.+)$",{&nome_lista,#nivel_lista,&tempo_lista});
  226. IFMATCHES(%#nivel_lista%,"%#level_lista%");
  227. LOG(" &6Encontrado por &f%&nome_lista%&6, %&tempo_lista%");
  228. ENDIF;
  229. NEXT;
  230. ENDUNSAFE;
  231. ENDIF;
  232. ENDIF;
  233. IFMATCHES("%&comando%","^lista (\w+)$",&nick_lista,1);
  234. ARRAYSIZE(@&vetor_lista[],#tamanho_vetor);
  235. LOG("");
  236. IF(%#tamanho_vetor% == 0);
  237. LOG("&e&l[TESOURO] &c&lAinda não foi encontrado tesouros");
  238. ELSE;
  239. LOG("&e&l[TESOURO] Lista de Tesouros Encontrados:");
  240. LOG("&dEncontrados por &a&l%&nick_lista%");
  241. UNSAFE(0);
  242. FOREACH(@&vetor_lista[],&conteudo_lista,#index_lista);
  243. SET(#i_lista,%#index_lista%);
  244. INC(#i_lista,1);
  245. MATCH("%&conteudo_lista%","^(\w+)>(\d+)>(.+)$",{&nome_lista,#nivel_lista,&tempo_lista});
  246. IFMATCHES(%&nome_lista%,"%&nick_lista%");
  247. LOG(" &6Tesouro Nível &f%#nivel_lista%&6, %&tempo_lista%");
  248. ENDIF;
  249. NEXT;
  250. ENDUNSAFE;
  251. ENDIF;
  252. LOG("");
  253. ENDIF;
  254. IFMATCHES("%&comando%","^lista$");
  255. ARRAYSIZE(@&vetor_lista[],#tamanho_vetor);
  256. LOG("");
  257. IF(%#tamanho_vetor% == 0);
  258. LOG("&e&l[TESOURO] &c&lAinda não foi encontrado tesouros");
  259. ELSE;
  260. LOG("&e&l[TESOURO] Lista de Tesouros Encontrados:");
  261. UNSAFE(0);
  262. FOREACH(@&vetor_amigos[],&amigo_lista);
  263. LOG("&dEncontrados por &a&l%&amigo_lista%");
  264. FOREACH(@&vetor_lista[],&conteudo_lista,#index_lista);
  265. SET(#i_lista,%#index_lista%);
  266. INC(#i_lista,1);
  267. MATCH("%&conteudo_lista%","^(\w+)>(\d+)>(.+)$",{&nome_lista,#nivel_lista,&tempo_lista});
  268. IFMATCHES(%&nome_lista%,"%&amigo_lista%");
  269. LOG(" &6Tesouro Nível &f%#nivel_lista%&6, %&tempo_lista%");
  270. ENDIF;
  271. NEXT;
  272. NEXT;
  273. ENDUNSAFE;
  274. ENDIF;
  275. LOG("");
  276. ENDIF;
  277. IFMATCHES("%&comando%","^ultimo$");
  278. LOG("");
  279. IF(%@#ultimo_nivel_tesouro% != 0);
  280. LOG("&e&l[TESOURO] Ultimo tesouro:");
  281. LOG(" &6Encontrado por &f%@&ultimo_nome_tesouro%");
  282. LOG(" &6Tesouro Nível &f%@#ultimo_nivel_tesouro%");
  283. LOG(" %@&tempo_tesouro%");
  284. ELSE;
  285. LOG("&e&l[TESOURO] &c&lAinda não foi encontrado tesouros");
  286. ENDIF;
  287. LOG("");
  288. ENDIF;
  289. IFMATCHES("%&comando%","^cor (padrao|craftlandia|colorido)$",@&cor_tesouro,1);
  290. LOG("");
  291. LOG("&e&l[TESOUROS] Cor alterada para &a&l%@&cor_tesouro%");
  292. LOG("");
  293. ENDIF;
  294. IFMATCHES("%&comando%","^atualizar$");
  295. LOG("");
  296. LOG("&e&l[TESOUROS] Tesouros atualizados");
  297. LOG("");
  298. UNSAFE(0);
  299. IFMATCHES("%@&cor_tesouro%","^craftlandia$");
  300. SET(&msg_label,"&3&lTESOUROS\n");
  301. FOR(#i,1,12);
  302. IF(#i <= 4);
  303. SET(&cor_msg,"&f");
  304. ELSEIF(#i <= 8);
  305. SET(&cor_msg,"&e");
  306. ELSEIF(#i <= 10);
  307. SET(&cor_msg,"&c");
  308. ELSEIF(#i == 11);
  309. SET(&cor_msg,"&4");
  310. ELSEIF(#i == 12);
  311. SET(&cor_msg,"&5");
  312. ENDIF;
  313. SET(&msg_label,"%&msg_label%%&cor_msg%Nível %#i%: &a%@#vetor_nivel[%#i%]%\n");
  314. NEXT;
  315. ELSEIF(@&cor_tesouro == "colorido");
  316. SET(&msg_label,"&e&lTESOUROS\n");
  317. FOR(#i,1,12);
  318. IF(#i == 10);
  319. SET(&cor_msg,"a");
  320. ELSEIF(#i == 11);
  321. SET(&cor_msg,"b");
  322. ELSEIF(#i == 12);
  323. SET(&cor_msg,"c");
  324. ELSE;
  325. SET(&cor_msg,"%#i%");
  326. ENDIF;
  327. SET(&msg_label,"%&msg_label%&%&cor_msg%Nível %#i%: &f%@#vetor_nivel[%#i%]%\n");
  328. NEXT;
  329. ELSE;
  330. SET(&msg_label,"&e&lTESOUROS\n");
  331. FOR(#i,1,12);
  332. SET(&msg_label,"%&msg_label%&6Nível %#i%: &f%@#vetor_nivel[%#i%]%\n");
  333. NEXT;
  334. ENDIF;
  335. SETLABEL(CONTTESOURO,"%&msg_label%");
  336. ENDUNSAFE;
  337. ENDIF;
  338. ENDIF;
  339. }$$
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!