daily pastebin goal
41%
SHARE
TWEET

Untitled

a guest Apr 16th, 2018 57 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  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 = "" ;
  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. }$$
RAW Paste Data
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
 
Top