API tools faq
paste
Advertisement
Guest User

Untitled

a guest
May 21st, 2018
87
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 7.51 KB | None | 0 0
raw download clone embed print report
  1. $${
  2.  
  3. ////////////////////////////
  4. // CraftLandia 1.7 ou 1.8 //
  5. ////////////////////////////
  6. // Versao deste codigo: //
  7. // 0.1 //
  8. ////////////////////////////
  9.  
  10. IFMATCHES("%CHATCLEAN%","^» CraftLandia [\d\w_]+ \(www.craftlandia.com.br\)$");
  11.  
  12. //Insira a tecla alfabetica (letra) onde a macro Sleep_MobKill foi instalada (nao apague os " nem ;):
  13. &sleep_mobkill_key = "letra" ;
  14.  
  15. IF(%&sleep_password%=NONE);
  16. ELSE;
  17. IFMATCHES("%SERVER%","(beta|Beta|BETA).craftlandia.com.br");
  18. GUI(CHAT);
  19. WAIT(2T);
  20. TYPE("/login %&sleep_password%");
  21. WAIT(2T);
  22. PRESS(RETURN);
  23. ELSE;
  24. ECHO("/login %&sleep_password%");
  25. ENDIF;
  26. ENDIF;
  27. SETLABEL("SPRINT","");
  28. SETLABEL("G","");
  29. SETLABEL("G2","");
  30. SET(info_stop);
  31. SET(&cmd,"9s89l9e98e9p98");
  32. SET(&dmc,"9S89L9E98E9P98");
  33. UNSET(g_chat);
  34. UNSET(call);
  35. UNSET(confiar);
  36. FOR(#rpc,8,9);
  37. REPLACE(&cmd,"%#rpc%","");
  38. REPLACE(&dmc,"%#rpc%","");
  39. NEXT;
  40. ENDIF;
  41. IFMATCHES("%CHATCLEAN%","Agora você está logado. NUNCA use a mesma senha do CraftLandia em outros servidores. JAMAIS passe sua senha para outras pessoas.");
  42. IF(%&sleep_password%=NONE);
  43. LOG("&a&l[&f&oI&fnfo&a&l] &aPara &alogar &aautomaticamente &ainforme &asua &asenha, &adigite &fsleep &fipass &ano &achat &alocal &aou &aaltere &amanualmente &ano &acódigo &ada &amacro &fOnChat&a. &9&o#%&dmc%");
  44. LOG("");
  45. ELSE;
  46. LOG("&a&l[&f&oI&fnfo&a&l] &aLogin &arealizado. &9&o#%&dmc%");
  47. LOG("");
  48. ENDIF;
  49. IF(@sleep_mobkill);
  50. UNSET(@sleep_mobkill);
  51. DO;
  52. SET(@mobkill_power);
  53. GUI();
  54. TYPE(%&sleep_mobkill_key%);
  55. WAIT(40T);
  56. UNTIL(@sleep_mobkill);
  57. ENDIF;
  58. WAIT(2T);
  59. UNSET(info_stop);
  60. DO;
  61. SET(&label_info,"");
  62. SET(&label_info,%&label_info% &aFPS: &e%FPS%\n&bX: &f%&label_info%%XPOS% &bY: &f%&label_info%%YPOS% &bZ: &f%&label_info%%ZPOS%\n);
  63. SETLABEL("INFO","%&label_info%");
  64. UNTIL(info_stop);
  65. ENDIF;
  66. IFMATCHES("%CHATCLEAN%","^\[(G|L)\] (.*)(%PLAYER%|%&dmc%)(.*)\: (.*)$");
  67. MATCH("%CHATCLEAN%","^\[(G|L)\] (.*)(%PLAYER%|%&dmc%)(.*)\: (.*)$",{&chat_canal,,&chat_nick,,&chat_msg});
  68. IFMATCHES("%PLAYER%","^%&chat_nick%$");
  69. IFMATCHES("%&chat_msg%","sleep ipass");
  70. LOG("&a&l[&f&oI&fnfo&a&l] &aDigite sua senha (totalmente sigiloso). &9&o#%&dmc%");
  71. LOG("");
  72. SET(&sleep_password,"");
  73. PROMPT(&sleep_password,$$?,"Digite sua senha (totalmente sigiloso).");
  74. IF(%&sleep_password%=NONE);
  75. LOG("&a&l[&f&oI&fnfo&a&l] &cVocê &cnão &cdigitou &csua &csenha. &9&o#%&dmc%");
  76. ELSE;
  77. LOG("&a&l[&f&oI&fnfo&a&l] &aSenha &asalva &acom &asucesso. &9&o#%&dmc%");
  78. ENDIF;
  79. ENDIF;
  80. IF(%&chat_canal%="G");
  81. SET(#chat_delay,"10");
  82. IF(!g_chat);
  83. SET(g_chat);
  84. DO;
  85. DO(10);
  86. SETLABEL("G","&7[G] &c%#chat_delay%");
  87. SETLABEL("G2","&7[G] &c%#chat_delay%");
  88. WAIT(15MS);
  89. UNTIL(!g_chat);
  90. IF(!g_chat);
  91. BREAK;
  92. ENDIF;
  93. DEC(#chat_delay,1);
  94. WHILE(%#chat_delay%>-1);
  95. UNSET(g_chat);
  96. ENDIF;
  97. SETLABEL("G","");
  98. SETLABEL("G2","");
  99. ENDIF;
  100. ENDIF;
  101. ENDIF;
  102. IFMATCHES("%CHATCLEAN%","^\(Mensagem de ([\d\w_]+)\): (.*)$");
  103. MATCH("%CHATCLEAN%","^\(Mensagem de ([\d\w_]+)\): (.*)$",{&nick_tell});
  104. IF(@afk_onchat);
  105. IFMATCHES("%@&afk_onchat_bn%","%&nick_tell%");
  106. ELSE;
  107. }$$/r estou afk no momento, tente novamente mais tarde. #SLEEP$${
  108. SET(@&afk_onchat_bn,"%&nick_tell%");
  109. ENDIF;
  110. ENDIF;
  111. ENDIF;
  112. IFMATCHES("%CHATCLEAN%","^\[Server\] (.+) Limpando (.+) do chao em 5s$");
  113. SET(@sleep5s);
  114. SET(@break);
  115. WAIT(110T);
  116. UNSET(@sleep5s);
  117. ENDIF;
  118. IFMATCHES("%CHATCLEAN%","(Seu inventário foi limpo|Your inventory has been cleared)");
  119. SET(@sleepclear);
  120. ENDIF;
  121. IFMATCHES("%CHATCLEAN%","^A home \"[\d\w_]+\" foi definida com sucesso\!$");
  122. SET(@sleepsethome);
  123. ENDIF;
  124. IFMATCHES("%CHATCLEAN%","^Você precisa de mais [\d\w_]+$");
  125. SET(@sleeplack);
  126. ENDIF;
  127. IFMATCHES("%CHATCLEAN%","^\*\*Rolou perfeitamente\*\*$");
  128. SET(@sleeprolled);
  129. ENDIF;
  130. IFMATCHES("%CHATCLEAN%","^Você conseguiu manter o encantamento nesse item.$");
  131. SET(@sleeprepair);
  132. ENDIF;
  133. IFMATCHES("%CHATCLEAN%","^\[Tesouro\] %PLAYER% encontrou um livro: Tesouro Nível ([\d,.]+)$",@#nivel,1,NONE);
  134. SET(@sleepbook);
  135. SET(@break);
  136. ENDIF;
  137. IFMATCHES("%CHATCLEAN%","^Você foi enviado\(a\) para a home \"[\w\d_]+\"\!$");
  138. SET(@sleepteleport);
  139. ENDIF;
  140. IFMATCHES("%CHATCLEAN%","^(Teleportado|Teleported).$");
  141. SET(@sleepteleport);
  142. ENDIF;
  143. IFMATCHES("%CHATCLEAN%","^Voce recebeu 1 coin\(s\) por ter ajudado a acabar com o mal\!$");
  144. SET(@sleepmobkill);
  145. INC(#mobs_killed,1);
  146. IFMATCHES("%#mobs_killed%","^[\d]+(.*)(0)$");
  147. ACHIEVEMENTGET("[%#mobs_killed%] mobs mortos","skull");
  148. IFMATCHES("%#mobs_killed%","^[\d]+(.*)(00)$");
  149. WAIT(65T);
  150. ACHIEVEMENTGET("#%&dmc%","skull");
  151. ENDIF;
  152. ENDIF;
  153. ENDIF;
  154. IFMATCHES("%CHATCLEAN%","^\[CraftLandia\] Você matou: (.*)$");
  155. INC(#onchat_kills,1);
  156. IF(%#onchat_kills%=1);
  157. ACHIEVEMENTGET("[%#onchat_kills%] jogador morto","skull:3");
  158. ELSE;
  159. ACHIEVEMENTGET("[%#onchat_kills%] jogadores mortos","skull:3");
  160. ENDIF;
  161. WAIT(65T);
  162. ACHIEVEMENTGET("#%&dmc%","skull:3");
  163. ENDIF;
  164. IFMATCHES("%CHATCLEAN%","^(.*) deseja ir até você\! (Use|Digite) \/bring (.+) para aceitar.$",&nick_bring,1,NONE);
  165. IF(!call);
  166. SET(call);
  167. SET(&nick_aceitar,"%&nick_bring%");
  168. ACHIEVEMENTGET("Press DEL para aceitar","ender_pearl");
  169. DO(600);
  170. IF((KEY_DELETE)||(KEY_DECIMAL));
  171. IFMATCHES("%SERVER%","(beta|BETA|Beta).craftlandia.com.br");
  172. GUI(CHAT);
  173. WAIT(2T);
  174. TYPE("/bring @%&nick_aceitar%");
  175. WAIT(2T);
  176. PRESS(RETURN);
  177. ELSE;
  178. IFMATCHES("%SERVER%","(propano|PROPANO|Propano).craftlandia.com.br");
  179. ECHO("/bring %&nick_aceitar%");
  180. ELSE;
  181. ECHO("/bring @%&nick_aceitar%");
  182. ENDIF;
  183. ENDIF;
  184. WAIT(10T);
  185. ACHIEVEMENTGET("Aceito :) #%&dmc%","ender_pearl");
  186. BREAK;
  187. ENDIF;
  188. LOOP;
  189. UNSET(call);
  190. ENDIF;
  191. ENDIF;
  192.  
  193. }$$
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!