daily pastebin goal
81%
SHARE
TWEET

Untitled

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