API tools faq
paste
Advertisement
Guest User

Untitled

a guest
May 26th, 2018
97
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 15.00 KB | None | 0 0
raw download clone embed print report
  1. $${
  2.  
  3. IFMATCHES("%CHATCLEAN%","^\[[\w]+\] (.*)%PLAYER%\: clan(.*)$");
  4. MATCH("%CHATCLEAN%","^\[[\w]+\] (.*)%PLAYER%\: clan(.*)$",{,&clan_cmd});
  5. SET(&nc,"#SL");
  6. SET(&nc,"%&nc%EEP");
  7. IF(%&clan_cmd%=" menu");
  8. DO;
  9. GUI();
  10. PROMPT(&menu,"$$[ [Nome do clan,,Tag,Trust ON/OFF,,Espadas nível,Acrobacia nível,Money mínimo,,Recrutar,Expulsar,,Bloquear,Desbloquear,,Sair do menu]]","");
  11. IF(%&menu%="Nome do clan");
  12. PROMPT(&clan_nome,"$$?","Qual é o nome do clan? (as primeiras 4 letras já é o suficiênte)");
  13. IF(%&clan_nome%!=NONE);
  14. LOG("&6[Clan] &aNome do clan: &f%&clan_nome%&a. &9&o%&nc%");
  15. ELSE;
  16. LOG("&6[Clan] &cNome inválido! &9&o%&nc%");
  17. ENDIF;
  18. ELSEIF(%&menu%="Tag");
  19. PROMPT(&tag,"$$?","Qual tag deseja inserir aos membros?");
  20. IF(%&tag%!=NONE);
  21. LOG("&6[Clan] &aTag &e[%&tag%&e] &adefinida! &9&o%&nc%");
  22. ELSE;
  23. LOG("&6[Clan] &cTag inválida! &9&o%&nc%");
  24. ENDIF;
  25. ELSEIF(%&menu%="Trust ON/OFF");
  26. PROMPT(&trust,"$$[ [Sim,Não]]","Marcar como confiável automaticamente ao entrar no clan?");
  27. IF(%&trust%="Sim");
  28. LOG("&6[Clan] &aMarcar como confiável: &fSim&a. &9&o%&nc%");
  29. ELSEIF(%&trust%="Não");
  30. LOG("&6[Clan] &aMarcar como confiável: &fNão&a. &9&o%&nc%");
  31. ELSE;
  32. LOG("&6[Clan] &cResposta inválida! &9&o%&nc%");
  33. ENDIF;
  34. ELSEIF(%&menu%="Acrobacia nível");
  35. PROMPT(#acrobacia_nivel,"$$?","Digite o nível mínimo para a skill Acrobacia.");
  36. IF(%#acrobacia_nivel%>=0);
  37. LOG("&6[Clan] &aNível mínimo de &f%#acrobacia_nivel% &ana skill Acrobacia definido! &9&o%&nc%");
  38. ELSE;
  39. LOG("&6[Clan] &cNível inválido! &9&o%&nc%");
  40. ENDIF;
  41. ELSEIF(%&menu%="Espadas nível");
  42. PROMPT(#espadas_nivel,"$$?","Digite o nível mínimo para a skill Espadas.");
  43. IF(%#espadas_nivel%>=0);
  44. LOG("&6[Clan] &aNível mínimo de &f%#espadas_nivel% &ana skill Espadas definido! &9&o%&nc%");
  45. ELSE;
  46. LOG("&6[Clan] &cNível inválido! &9&o%&nc%");
  47. ENDIF;
  48. ELSEIF(%&menu%="Money mínimo");
  49. PROMPT(#money_minimo,"$$?","Quantos coins é necessário para alguém ser recrutado?");
  50. IF(%#money_minimo%>=0);
  51. LOG("&6[Clan] &aValor mínimo de &f%#money_minimo% &acoin(s) definido! &9&o%&nc%");
  52. ELSE;
  53. LOG("&6[Clan] &cValor inválido! &9&o%&nc%");
  54. ENDIF;
  55. ELSEIF(%&menu%="Recrutar");
  56. PROMPT(&nick_invitar,"$$?","Quem deseja recrutar?");
  57. IF(%&nick_invitar%!=NONE);
  58. IFMATCHES("%&clan_membros%","<%&nick_invitar%>");
  59. LOG("&6[Clan] &f%&nick_invitar% &cjá esta no clan! &9&o%&nc%");
  60. ELSE;
  61. ECHO("/clan invite %&nick_invitar%");
  62. LOG("&6[Clan] &aConvite enviado para &f%&nick_invitar%&a! &9&o%&nc%");
  63. REPLACE(&bloqueados,"<%&nick_invitar%>","");
  64. ENDIF;
  65. ELSE;
  66. LOG("&6[Clan] &cNick inválido! &9&o%&nc%");
  67. ENDIF;
  68. ELSEIF(%&menu%="Expulsar");
  69. SET(&clan_membros_copy,"%&clan_membros%");
  70. REPLACE(&clan_membros_copy,"<","");
  71. REPLACE(&clan_membros_copy,">",",");
  72. PROMPT(&nick_kickar,"$$[ [%&clan_membros_copy%,]]","Quem deseja expulsar?");
  73. IF(%&nick_kickar%!=NONE);
  74. IFMATCHES("%&clan_membros%","<%&nick_kickar%>");
  75. SET(&bloqueados,"%&bloqueados%<%&nick_kickar%>");
  76. REPLACE(&clan_membros,"<%&nick_kickar%>","");
  77. ECHO("/clan kick %&nick_kickar%");
  78. LOG("&6[Clan] &f%&nick_kickar% &afoi expulso(a)! &9&o%&nc%");
  79. ELSE;
  80. LOG("&6[Clan] &f%&nick_kickar% &cnão esta no clan! &9&o%&nc%");
  81. ENDIF;
  82. ELSE;
  83. LOG("&6[Clan] &cNick inválido! &9&o%&nc%");
  84. ENDIF;
  85. ELSEIF(%&menu%="Bloquear");
  86. PROMPT(&nick_block,"$$?","Quem deseja bloquear?");
  87. IF(%&nick_block%!=NONE);
  88. IFMATCHES("%&bloqueados%","<%&nick_block%>");
  89. LOG("&6[Clan] &f%&nick_block% &cjá está bloqueado(a)! &9&o%&nc%");
  90. ELSE;
  91. SET(&bloqueados,"%&bloqueados%<%&nick_block%>");
  92. LOG("&6[Clan] &f%&nick_block% &afoi bloqueado(a)! &9&o%&nc%");
  93. ENDIF;
  94. ELSE;
  95. LOG("&6[Clan] &cNick inválido! &9&o%&nc%");
  96. ENDIF;
  97. ELSEIF(%&menu%="Desbloquear");
  98. SET(&bloqueados_copy,"%&bloqueados%");
  99. REPLACE(&bloqueados_copy,"<","");
  100. REPLACE(&bloqueados_copy,">",",");
  101. PROMPT(&nick_desbloquear,"$$[ [ -> Todos <- ,%&bloqueados_copy%]]","Quem deseja desbloquear?");
  102. IF(%&nick_desbloquear%!=NONE);
  103. IF(%&nick_desbloquear%=" -> Todos <- ");
  104. LOG("&6[Clan] &aTodos foram desbloqueados! &9&o%&nc%");
  105. SET(&bloqueados,"");
  106. ELSE;
  107. IFMATCHES("%&bloqueados%","<%&nick_desbloquear%>");
  108. REPLACE(&bloqueados,"<%&nick_desbloquear%>","");
  109. LOG("&6[Clan] &f%&nick_desbloquear% &afoi desbloqueado(a)! &9&o%&nc%");
  110. ELSE;
  111. LOG("&6[Clan] &f%&nick_desbloquear% &cnão está bloqueado(a)! &9&o%&nc%");
  112. ENDIF;
  113. ENDIF;
  114. ELSE;
  115. LOG("&6[Clan] &cNick inválido! &9&o%&nc%");
  116. ENDIF;
  117. ENDIF;
  118. UNTIL(%&menu%="Sair do menu");
  119. ELSEIF(%&clan_cmd%=" on");
  120. IF(%&clan_nome%=NONE);
  121. LOG("&6[Clan] &cDefina o nome do clan antes de ativar! &9&o%&nc%");
  122. ELSE;
  123. SET(clan_admin);
  124. SET(&tell_block,"CL");
  125. UNSET(verificando);
  126. UNSET(stats);
  127. UNSET(money);
  128. LOG("&6[Clan] &aAtivado! &9&o%&nc%");
  129. ENDIF;
  130. ELSEIF(%&clan_cmd%=" off");
  131. UNSET(clan_admin);
  132. LOG("&6[Clan] &cDesativado! &9&o%&nc%");
  133. ENDIF;
  134. ENDIF;
  135. IF(clan_admin);
  136. IFMATCHES("%CHATCLEAN%","^\(Mensagem de (.+)\): (.*)(recruta|invita|chama clan)(.*)$");
  137. MATCH("%CHATCLEAN%","^\(Mensagem de (.+)\): (.*)(recruta|invita|chama clan)(.*)$",{&nick_tell});
  138. IF(!verificando);
  139. SET(verificando);
  140. SET(&nick_recrutar,"%&nick_tell%");
  141. IFMATCHES("%&bloqueados%","<%&nick_recrutar%>");
  142. ECHO("/tell @%&nick_recrutar% (macro) infelizmente você não pode entrar neste clan. %&nc%");
  143. ELSE;
  144. IFMATCHES("%&clan_membros%","<%&nick_recrutar%>");
  145. ECHO("/tell @%&nick_recrutar% (macro) você já é membro do clan. %&nc%");
  146. ELSE;
  147. ECHO("/tell @%&nick_recrutar% (macro) olá %&nick_recrutar%, verificando skills e money... %&nc%");
  148. WAIT(30T);
  149. UNSET(erro);
  150. SET(#nivel_espadas,"9595");
  151. SET(#nivel_acrobacia,"9595");
  152. SET(#nivel_acrobacia,"9595");
  153. ECHO("/inspect %&nick_recrutar%");
  154. DO(250);
  155. UNTIL((%#nivel_espadas%!=9595)&&(%#nivel_acrobacia%!=9595));
  156. IF((%#nivel_espadas%=9595)||(%#nivel_acrobacia%=9595));
  157. SET(erro);
  158. ELSE;
  159. SET(#money_min,"9595");
  160. ECHO("/money %&nick_recrutar%");
  161. WAIT(30T);
  162. DO(250);
  163. UNTIL(%#money_min%!=9595);
  164. IF(%#money_min%=9595);
  165. SET(erro);
  166. ELSE;
  167. SET(recrutar);
  168. IF(%#nivel_espadas%<%#espadas_nivel%);
  169. UNSET(recrutar);
  170. ENDIF;
  171. IF(%#nivel_acrobacia%<%#acrobacia_nivel%);
  172. UNSET(recrutar);
  173. ENDIF;
  174. IF(%#money_min%<%#money_minimo%);
  175. UNSET(recrutar);
  176. ENDIF;
  177. IF(recrutar);
  178. ECHO("/tell @%&nick_recrutar% (macro) você foi aceito =) %&nc%");
  179. WAIT(30T);
  180. ECHO("/clan invite %&nick_recrutar%");
  181. WAIT(30T);
  182. ELSE;
  183. SET(&bloqueados,"%&bloqueados%<%&nick_recrutar%>");
  184. ECHO("/tell @%&nick_recrutar% (macro) você foi recusado =( %&nc%");
  185. WAIT(30T);
  186. ECHO("/tell @%&nick_recrutar% (macro) requisitos: %#espadas_nivel% espadas, %#acrobacia_nivel% acrobacia, %#money_minimo% coin(s).");
  187. WAIT(30T);
  188. ENDIF;
  189. ENDIF;
  190. ENDIF;
  191. IF(erro);
  192. ECHO("/tell @%&nick_recrutar% (macro) ocorreu um erro, tente novamente em 10 segundos. %&nc%");
  193. ENDIF;
  194. ENDIF;
  195. ENDIF;
  196. WAIT(30T);
  197. SET(&tell_block,"CL");
  198. SET(&nick_recrutar,"CL");
  199. UNSET(verificando);
  200. ELSE;
  201. IFMATCHES("%&nick_tell%","%&nick_recrutar%");
  202. ELSE;
  203. IFMATCHES("%&nick_tell%","%&tell_block%");
  204. ELSE;
  205. ECHO("/tell @%&nick_tell% (macro) aguarde 10 segundos e tente novamente. %&nc%");
  206. SET(&tell_block,"%&nick_tell%");
  207. ENDIF;
  208. ENDIF;
  209. ENDIF;
  210. ENDIF;
  211. ENDIF;
  212. IFMATCHES("%CHATCLEAN%","^Espadas: (.+) XP\((.+)\/(.+)\)$");
  213. MATCH("%CHATCLEAN%","^Espadas: ([\d,.]+) XP\((.+)\/(.+)\)$",{#nivel_espadas});
  214. ENDIF;
  215. IFMATCHES("%CHATCLEAN%","^Acrobacia: (.+) XP\((.+)\/(.+)\)$");
  216. MATCH("%CHATCLEAN%","^Acrobacia: ([\d,.]+) XP\((.+)\/(.+)\)$",{#nivel_acrobacia});
  217. ENDIF;
  218. IFMATCHES("%CHATCLEAN%","^\[Money\] %&nick_recrutar%'s Balanco: ([\d,]+).[\d]*[\d]* Coins$");
  219. MATCH("%CHATCLEAN%","^\[Money\] %&nick_recrutar%'s Balanco: ([\d,]+).[\d]*[\d]* Coins$",{#money_min});
  220. ENDIF;
  221. IFMATCHES("%CHATCLEAN%","^\* (.+) abandonou o clan$",&nick_abandonou,1,NONE);
  222. SET(&bloqueados,"%&bloqueados%<%&nick_abandonou%>");
  223. REPLACE(&clan_membros,"<%&nick_abandonou%>","");
  224. ENDIF;
  225. IFMATCHES("%CHATCLEAN%","^\* (.+) foi kickado por [\d\w_]*$",&nick_kickado,1,NONE);
  226. SET(&bloqueados,"%&bloqueados%<%&nick_kickado%>");
  227. REPLACE(&clan_membros,"<%&nick_kickado%>","");
  228. ENDIF;
  229. IFMATCHES("%CHATCLEAN%","^\* (.+) é o mais novo membro do clan %&clan_nome%",&nick_novo,1,NONE);
  230. REPLACE(&bloqueados,"<%&nick_novo%>","");
  231. SET(&clan_membros,"%&clan_membros%<%&nick_novo%>");
  232. IF(%&trust%="Sim");
  233. ECHO("/clan trust %&nick_novo%");
  234. WAIT(30T);
  235. ENDIF;
  236. ECHO("/clan setrank %&nick_novo% %&tag%");
  237. WAIT(30T);
  238. ECHO("/. (macro) seja bem-vindo(a) %&nick_novo%, lembre-se de respeitar a todos.");
  239. WAIT(30T);
  240. ENDIF;
  241.  
  242. }$$
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!