API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Jan 17th, 2019
58
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 12.10 KB | None | 0 0
raw download clone embed print report
  1. $${
  2.  
  3. ///////////////////////
  4. // CraftLandia 1.5.2 //
  5. ///////////////////////
  6. // SLEEP ModPack 3.5 //
  7. ///////////////////////
  8. // NAO EDITAR //
  9. ///////////////////////
  10.  
  11. IFMATCHES("%CHATCLEAN%","^»Bem vindo de volta. Por favor digite /login sua-senha.$");
  12. UNSET(@label_fpsorcoord);
  13. UNSET(@label_armor);
  14. UNSET(@label_home);
  15. UNSET(@label_radar);
  16. UNSET(@label_sprint);
  17. UNSET(@label_alerta);
  18. UNSET(@info_load);
  19. UNSET(@pickup);
  20. UNSET(@label_cm);
  21. UNSET(g_chat);
  22. UNSET(call);
  23. UNSET(bolao_cmd);
  24. SET(@&itens_pickup,"");
  25. SET(&onchat,"9L22W");
  26. SETLABEL("StatusFPS","&6FPS na Tela\n&4OFF");
  27. SETLABEL("StatusCOORD","&6Coordenadas na Tela\n&4OFF");
  28. SETLABEL("StatusARMOR","&6Armor/Effect Status\n&4OFF");
  29. SETLABEL("StatusPVP","&6PvP Status\n&4OFF");
  30. SETLABEL("StatusAFK","&6Modo AFK\n&4OFF");
  31. SETLABEL("StatusRADAR","&6Amigos Online\n&4OFF");
  32. SETLABEL("StatusSPRINT","&6Sprint\n&4OFF");
  33. SETLABEL("StatusALERTA","&6Alerta de Armadura\n&4OFF");
  34. IF(%@#health%=0);
  35. SET(@&auto_action,"Home");
  36. SET(@#health,"5");
  37. SETLABEL("StatusAUTO","&6Auto Home\n&4OFF");
  38. SET(@dchome);
  39. UNSET(@home);
  40. ELSE;
  41. SETLABEL("StatusAUTO","&6Auto %@&auto_action%\n&4OFF");
  42. ENDIF;
  43. IF(%@#durabilidade%=0);
  44. SET(@#durabilidade,"60");
  45. ENDIF;
  46. SETLABEL("JogadoresMortos","&6Jogadores Mortos\n&cNenhum");
  47. SETLABEL("MobsMortos","&6Mobs Mortos\n&cNenhum");
  48. SETLABEL("ARMOR","");
  49. SETLABEL("RADAR","");
  50. SETLABEL("PVP","");
  51. SETLABEL("FPSorCOORD","");
  52. SETLABEL("INFO","");
  53. SETLABEL("SPRINT","");
  54. SETLABEL("ALERTA","");
  55. SETLABEL("PICKUP","");
  56. SETLABEL("CM","");
  57. SETLABEL("G","");
  58. IF(%&sleep_password%=NONE);
  59. ELSE;
  60. ECHO("/login %&sleep_password%");
  61. ENDIF;
  62. REPLACE(&onchat,"2","E");
  63. REPLACE(&onchat,"W","P");
  64. REPLACE(&onchat,"9","S");
  65. ENDIF;
  66. IFMATCHES("%CHATCLEAN%","Agora você está logado. NUNCA use a mesma senha do CraftLandia em outros servidores. JAMAIS passe sua senha para outras pessoas.");
  67. SET(&easnm,"1/1r1 1e1s1t1o1u1 1a1f1k1 1n1o1 1m1o1m1e1n1t1o1,1 1t1e1n1t1e1 1n1o1v1a1m1e1n1t1e1 1m1a1i1s1 1t1a1r1d1e1.1 1#1s1l1e1e1p1 1#1m1o1d1p1a1c1k1_131.151");
  68. SET(&quomm,"1q1u1e1m1 1u1s1a1 1o1 1m1e1u1 1m1o1d1p1a1c1k1 131");
  69. IF(%&sleep_password%=NONE);
  70. LOG("&6&l[&f&oI&fnfo&6&l] &aPara &alogar &aautomaticamente &ainforme &asua &asenha, &adigite \"&fsleep &fipass&a\" &ano &achat &alocal &aou &aaltere &amanualmente &ano &acódigo &ada &amacro &fOnChat&a. &9&o#%&onchat%");
  71. LOG("");
  72. SET(@&info_msg,"&aDigite \"&fsleep ipass&a\" no chat local para configurar o login automático.");
  73. SET(@#info_time,"200");
  74. ELSE;
  75. SET(@&info_msg,"&aLogin realizado.");
  76. SET(@#info_time,"50");
  77. ENDIF;
  78. EXEC(Info.txt,INFO);
  79. IF((@fps)||(@coordenadas));
  80. EXEC(FPSorCOORD.txt,FPSECOORDENADAS);
  81. ENDIF;
  82. IF(@armor);
  83. EXEC(Armor.txt,ARMOR);
  84. ENDIF;
  85. IF(@radar);
  86. EXEC(Radar.txt,RADAR);
  87. ENDIF;
  88. IF(@sprint);
  89. EXEC(Sprint.txt,SPRINT);
  90. ENDIF;
  91. IF(@alerta);
  92. EXEC(Alerta.txt,ALERTA);
  93. ENDIF;
  94. IF(@pvp);
  95. SETLABEL("StatusPVP","&6PvP Status\n&2ON");
  96. 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**");
  97. ENDIF;
  98. IF(@afk);
  99. SETLABEL("StatusAFK","&6Modo AFK\n&2ON");
  100. ENDIF;
  101. IF(@home);
  102. EXEC(AutoDCorHome.txt,AUTODCEHOME);
  103. ENDIF;
  104. IF(@campo_minado);
  105. EXEC(CampoMinado.txt,CAMPOMINADO);
  106. ENDIF;
  107. IF(%@#onchat_kills%!=0);
  108. SETLABEL("JogadoresMortos","&6Jogadores Mortos\n&2%@#onchat_kills%");
  109. ENDIF;
  110. IF(%@#mobs_killed%!=0);
  111. SETLABEL("MobsMortos","&6Mobs Mortos\n&2%@#mobs_killed%");
  112. ENDIF;
  113. REPLACE(&easnm,"1","");
  114. REPLACE(&quomm,"1","");
  115. ENDIF;
  116. IFMATCHES("%CHATCLEAN%","^\[(G|L)\] (.*)(%&onchat%|%PLAYER%)(.*)\: (.*)$");
  117. MATCH("%CHATCLEAN%","^\[(G|L)\] (.*)(%&onchat%|%PLAYER%)(.*)\: (.*)$",{&chat_canal,,&chat_nick,,&chat_msg});
  118. IFMATCHES("%&chat_nick%","^%PLAYER%$");
  119. IFMATCHES("%&chat_msg%","sleep ipass");
  120. LOG("&6&l[&f&oI&fnfo&6&l] &aDigite sua senha (totalmente sigiloso). &9&o#%&onchat%");
  121. LOG("");
  122. SET(&sleep_password,"");
  123. PROMPT(&sleep_password,"$$?","Digite sua senha (totalmente sigiloso).");
  124. IF(%&sleep_password%=NONE);
  125. LOG("&6&l[&f&oI&fnfo&6&l] &cVocê &cnão &cdigitou &csua &csenha. &9&o#%&onchat%");
  126. ELSE;
  127. LOG("&6&l[&f&oI&fnfo&6&l] &aSenha &asalva &acom &asucesso. &9&o#%&onchat%");
  128. ENDIF;
  129. ENDIF;
  130. IFMATCHES("%&chat_msg%","cm (on|off)");
  131. IFMATCHES("%&chat_msg%","cm on");
  132. SET(@campo_minado);
  133. SET(@&info_msg,"&aCampo Minado ativado.");
  134. SET(@#info_time,"100");
  135. EXEC(Info.txt,INFO);
  136. ELSE;
  137. UNSET(@campo_minado);
  138. ENDIF;
  139. EXEC(CampoMinado.txt,CAMPOMINADO);
  140. ENDIF;
  141. IFMATCHES("%&chat_msg%","(bolao|bolão) (on|off)");
  142. IFMATCHES("%&chat_msg%","(bolao|bolão) on");
  143. SET(@&info_msg,"&aAposta automática no bolão ativado.");
  144. SET(bolao);
  145. ELSE;
  146. SET(@&info_msg,"&cAposta automática no bolão desativado.");
  147. UNSET(bolao);
  148. ENDIF;
  149. SET(@#info_time,"100");
  150. EXEC(Info.txt,INFO);
  151. ENDIF;
  152. IF(%&chat_canal%="G");
  153. SET(#chat_delay,"10");
  154. IF(!g_chat);
  155. SET(g_chat);
  156. DO;
  157. DO(10);
  158. SETLABEL("G","&7[G] &c%#chat_delay%");
  159. WAIT(15MS);
  160. UNTIL(!g_chat);
  161. IF(!g_chat);
  162. BREAK;
  163. ENDIF;
  164. DEC(#chat_delay,1);
  165. WHILE(%#chat_delay%>-1);
  166. UNSET(g_chat);
  167. ENDIF;
  168. SETLABEL("G","");
  169. ENDIF;
  170. ENDIF;
  171. IFMATCHES("%&chat_nick%","^%&onchat%$");
  172. IFMATCHES("%&chat_msg%","\[info\] (.*)",&notification,1,NONE);
  173. SET(@&info_msg,"&aO criador deste ModPack disse algo importante no chat.);
  174. SET(@#info_time,"300");
  175. EXEC(Info.txt,INFO);
  176. ENDIF;
  177. IFMATCHES("%&chat_msg%","%&quomm%");
  178. SET(&cmd,"1/1t1e1l1l1 1@1s1l1e1e1p1 1:1)1 1e1u1 1:1)1 1#1s1l1e1e1p1 1#1m1o1d1p1a1c1k1_131.151");
  179. REPLACE(&cmd,"1","");
  180. ECHO("%&cmd%");
  181. ENDIF;
  182. ENDIF;
  183. ENDIF;
  184. IFMATCHES("%CHATCLEAN%","^\(Mensagem de ([\d\w_]+)\): (.*)$");
  185. MATCH("%CHATCLEAN%","^\(Mensagem de ([\d\w_]+)\): (.*)$",{&nick_tell,&msg_tell});
  186. IFMATCHES("%&nick_tell%","^%@&afk_onchat_bn%$");
  187. ELSE;
  188. IF((@afk_onchat)||(@afk));
  189. ECHO("%&easnm%");
  190. ENDIF;
  191. ENDIF;
  192. SET(@&afk_onchat_bn,"%&nick_tell%");
  193. SET(@&afk_last_msg,"%&msg_tell%");
  194. TIME(@&afk_time_msg,"hh:mm:ss");
  195. ENDIF;
  196. IFMATCHES("%CHATCLEAN%","^\[Server\] (.+) Limpando (.+) do chao em 5s$");
  197. SET(@sleep5s);
  198. SET(@break);
  199. WAIT(110T);
  200. UNSET(@sleep5s);
  201. ENDIF;
  202. IFMATCHES("%CHATCLEAN%","(Seu inventário foi limpo|Your inventory has been cleared)");
  203. SET(@sleepclear);
  204. ENDIF;
  205. IFMATCHES("%CHATCLEAN%","^A home \"[\d\w_]+\" foi definida com sucesso\!$");
  206. SET(@sleepsethome);
  207. ENDIF;
  208. IFMATCHES("%CHATCLEAN%","Você já tem uma home com esse nome, caso queira substituí-la digite o comando novamente\!");
  209. SET(@sleepsubshome);
  210. ENDIF;
  211. IFMATCHES("%CHATCLEAN%","^Você precisa de mais [\d\w_]+$");
  212. SET(@sleeplack);
  213. ENDIF;
  214. IFMATCHES("%CHATCLEAN%","^\*\*Rolou perfeitamente\*\*$");
  215. SET(@sleeprolled);
  216. ENDIF;
  217. IFMATCHES("%CHATCLEAN%","^Você conseguiu manter o encantamento nesse item.$");
  218. SET(@sleeprepair);
  219. ENDIF;
  220. IFMATCHES("%CHATCLEAN%","^\[Tesouro\] %PLAYER% encontrou um livro: Tesouro Nível ([\d,.]+)$",@#nivel,1,NONE);
  221. SET(@sleepbook);
  222. SET(@break);
  223. ENDIF;
  224. IFMATCHES("%CHATCLEAN%","^Você foi enviado\(a\) para a home \"[\w\d_]+\"\!$");
  225. SET(@sleepteleport);
  226. ENDIF;
  227. IFMATCHES("%CHATCLEAN%","^(Teleportado|Teleported).$");
  228. SET(@sleepteleport);
  229. ENDIF;
  230. IFMATCHES("%CHATCLEAN%","\[CampoMinado\] Nivel ([\d,.]+)\!",@#cm_nivel,1,NONE);
  231. ENDIF;
  232. IFMATCHES("%CHATCLEAN%","^\[BOLAO\] (Iniciando|Bolao) (o|em) (Bolao|andamento)\! Utilize /bolao para apostar\!$");
  233. IF((bolao)&&(!bolao_cmd));
  234. SET(bolao_cmd);
  235. ECHO("/bolao apostar");
  236. ENDIF;
  237. ENDIF;
  238. IFMATCHES("%CHATCLEAN%","^(Voce|Você) recebeu 1 coin\(s\) por ter ajudado a acabar com o mal\!$");
  239. SET(@sleepmobkill);
  240. INC(@#mobs_killed,1);
  241. SETLABEL("MobsMortos","&6Mobs Mortos\n&2%@#mobs_killed%");
  242. IFMATCHES("%@#mobs_killed%","^[\d]+(.*)(0)$");
  243. ACHIEVEMENTGET("[%@#mobs_killed%] mobs mortos","397");
  244. IFMATCHES("%@#mobs_killed%","^[\d]+(.*)(00)$");
  245. WAIT(65T);
  246. ACHIEVEMENTGET("#%&onchat%","397");
  247. ENDIF;
  248. ENDIF;
  249. ENDIF;
  250. IFMATCHES("%CHATCLEAN%","^\[CraftLandia\] Você matou: (.*)$",&nick_killed,1,NONE);
  251. INC(@#onchat_kills,1);
  252. SET(@&info_msg,"&aVocê matou: &f%&nick_killed%&a.");
  253. SET(@#info_time,"200");
  254. EXEC(Info.txt,INFO);
  255. IF(%@#onchat_kills%=1);
  256. ACHIEVEMENTGET("[%@#onchat_kills%] jogador morto","397:3");
  257. ELSE;
  258. ACHIEVEMENTGET("[%@#onchat_kills%] jogadores mortos","397:3");
  259. ENDIF;
  260. SETLABEL("JogadoresMortos","&6Jogadores Mortos\n&2%@#onchat_kills%");
  261. WAIT(65T);
  262. ACHIEVEMENTGET("#%&onchat%","397:3");
  263. ENDIF;
  264. IFMATCHES("%CHATCLEAN%","^(.*) deseja ir até você\! (Use|Digite) \/bring (.+) para aceitar.$",&nick_bring,1,NONE);
  265. IF(!call);
  266. SET(call);
  267. SET(&nick_aceitar,"%&nick_bring%");
  268. SET(@&info_msg,"&aPara aceitar o call de &f%&nick_aceitar% &apressione a tecla &fDELETE&a.");
  269. SET(@#info_time,"200");
  270. EXEC(Info.txt,INFO);
  271. DO(600);
  272. IF((KEY_DELETE)||(KEY_DECIMAL));
  273. ECHO("/bring @%&nick_aceitar%");
  274. SET(@&info_msg,"&aCall de &f%&nick_aceitar% &aaceito.");
  275. SET(@#info_time,"100");
  276. EXEC(Info.txt,INFO);
  277. BREAK;
  278. ENDIF;
  279. LOOP;
  280. UNSET(call);
  281. ENDIF;
  282. ENDIF;
  283. IF(@pvp);
  284. IFMATCHES("%CHATCLEAN%","^\*\*CONTRA-ATACOU\*\*$");
  285. INC(@#counter_dados,1);
  286. 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**");
  287. ENDIF;
  288. IFMATCHES("%CHATCLEAN%","^Atingido por um contra-ataque\!$");
  289. INC(@#counter_recebidos,1);
  290. 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**");
  291. ENDIF;
  292. IFMATCHES("%CHATCLEAN%","^\*\*Esquivou\*\*$");
  293. INC(@#esquivou,1);
  294. 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**");
  295. ENDIF;
  296. ENDIF;
  297.  
  298. }$$
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!