Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- $${
- ////////////////////////////
- // CraftLandia 1.7 ou 1.8 //
- ////////////////////////////
- // Versao deste codigo: //
- // 0.1 //
- ////////////////////////////
- IFMATCHES("%CHATCLEAN%","^» CraftLandia Region 2.0 \(www.craftlandia.com.br\)$");
- //Insira a tecla alfabetica (letra) onde a macro Sleep_MobKill foi instalada (nao apague os " nem ;):
- &sleep_mobkill_key = "k" ;
- //Insira a tecla alfabetica (letra) onde a macro Sleep_PescaBlaze foi instalada (nao apague os " nem ;):
- &sleep_pescablaze_key = "" ;
- IF(%&sleep_password%=NONE);
- ELSE;
- IFMATCHES("%SERVER%","(region2|Region2|REGION2).craftlandia.com.br");
- GUI(CHAT);
- WAIT(2T);
- TYPE("/login %&sleep_password%");
- WAIT(2T);
- PRESS(RETURN);
- ELSE;
- ECHO("/login %&sleep_password%");
- ENDIF;
- ENDIF;
- SETLABEL("SPRINT","");
- SETLABEL("G","");
- SETLABEL("G2","");
- SET(info_stop);
- SET(&cmd,"9s89l9e98e9p98");
- SET(&dmc,"9S89L9E98E9P98");
- UNSET(g_chat);
- UNSET(call);
- UNSET(confiar);
- FOR(#rpc,8,9);
- REPLACE(&cmd,"%#rpc%","");
- REPLACE(&dmc,"%#rpc%","");
- NEXT;
- ENDIF;
- IFMATCHES("%CHATCLEAN%","Agora você está logado. NUNCA use a mesma senha do CraftLandia em outros servidores. JAMAIS passe sua senha para outras pessoas.");
- IF(%&sleep_password%=NONE);
- 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%");
- LOG("");
- ELSE;
- LOG("&a&l[&f&oI&fnfo&a&l] &aLogin &arealizado. &9&o#%&dmc%");
- LOG("");
- ENDIF;
- IF(@sleep_mobkill);
- UNSET(@sleep_mobkill);
- DO;
- SET(@mobkill_power);
- GUI();
- TYPE(%&sleep_mobkill_key%);
- WAIT(40T);
- UNTIL(@sleep_mobkill);
- ELSEIF(@sleep_pescablaze);
- UNSET(@sleep_pescablaze);
- DO;
- SET(@pescablaze_power);
- GUI();
- TYPE(%&sleep_pescablaze_key%);
- WAIT(40T);
- UNTIL(@sleep_pescablaze);
- ENDIF;
- WAIT(2T);
- UNSET(info_stop);
- DO;
- SET(&label_info,"");
- 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);
- SETLABEL("INFO","%&label_info%");
- UNTIL(info_stop);
- ENDIF;
- IFMATCHES("%CHATCLEAN%","^\[(G|L)\] (.*)(%PLAYER%|%&dmc%)(.*)\: (.*)$");
- MATCH("%CHATCLEAN%","^\[(G|L)\] (.*)(%PLAYER%|%&dmc%)(.*)\: (.*)$",{&chat_canal,,&chat_nick,,&chat_msg});
- IFMATCHES("%PLAYER%","^%&chat_nick%$");
- IFMATCHES("%&chat_msg%","sleep ipass");
- LOG("&a&l[&f&oI&fnfo&a&l] &aDigite sua senha (totalmente sigiloso). &9&o#%&dmc%");
- LOG("");
- SET(&sleep_password,"");
- PROMPT(&sleep_password,$$?,"Digite sua senha (totalmente sigiloso).");
- IF(%&sleep_password%=NONE);
- LOG("&a&l[&f&oI&fnfo&a&l] &cVocê &cnão &cdigitou &csua &csenha. &9&o#%&dmc%");
- ELSE;
- LOG("&a&l[&f&oI&fnfo&a&l] &aSenha &asalva &acom &asucesso. &9&o#%&dmc%");
- ENDIF;
- ENDIF;
- IF(%&chat_canal%="G");
- SET(#chat_delay,"10");
- IF(!g_chat);
- SET(g_chat);
- DO;
- DO(10);
- SETLABEL("G","&7[G] &c%#chat_delay%");
- SETLABEL("G2","&7[G] &c%#chat_delay%");
- WAIT(15MS);
- UNTIL(!g_chat);
- IF(!g_chat);
- BREAK;
- ENDIF;
- DEC(#chat_delay,1);
- WHILE(%#chat_delay%>-1);
- UNSET(g_chat);
- ENDIF;
- SETLABEL("G","");
- SETLABEL("G2","");
- ENDIF;
- ENDIF;
- ENDIF;
- IFMATCHES("%CHATCLEAN%","^\(Mensagem de ([\d\w_]+)\): (.*)$");
- MATCH("%CHATCLEAN%","^\(Mensagem de ([\d\w_]+)\): (.*)$",{&nick_tell});
- IF(@afk_onchat);
- IFMATCHES("%@&afk_onchat_bn%","%&nick_tell%");
- ELSE;
- }$$/r estou afk no momento, tente novamente mais tarde. #SLEEP$${
- SET(@&afk_onchat_bn,"%&nick_tell%");
- ENDIF;
- ENDIF;
- ENDIF;
- IFMATCHES("%CHATCLEAN%","^\[Server\] (.+) Limpando (.+) do chao em 5s$");
- SET(@sleep5s);
- SET(@break);
- WAIT(110T);
- UNSET(@sleep5s);
- ENDIF;
- IFMATCHES("%CHATCLEAN%","(Seu inventário foi limpo|Your inventory has been cleared)");
- SET(@sleepclear);
- ENDIF;
- IFMATCHES("%CHATCLEAN%","^A home \"[\d\w_]+\" foi definida com sucesso\!$");
- SET(@sleepsethome);
- ENDIF;
- IFMATCHES("%CHATCLEAN%","^Você precisa de mais [\d\w_]+$");
- SET(@sleeplack);
- ENDIF;
- IFMATCHES("%CHATCLEAN%","^\*\*Rolou perfeitamente\*\*$");
- SET(@sleeprolled);
- ENDIF;
- IFMATCHES("%CHATCLEAN%","^Você conseguiu manter o encantamento nesse item.$");
- SET(@sleeprepair);
- ENDIF;
- IFMATCHES("%CHATCLEAN%","^\[Tesouro\] %PLAYER% encontrou um livro: Tesouro Nível ([\d,.]+)$",@#nivel,1,NONE);
- SET(@sleepbook);
- SET(@break);
- ENDIF;
- IFMATCHES("%CHATCLEAN%","^Você foi enviado\(a\) para a home \"[\w\d_]+\"\!$");
- SET(@sleepteleport);
- ENDIF;
- IFMATCHES("%CHATCLEAN%","^(Teleportado|Teleported).$");
- SET(@sleepteleport);
- ENDIF;
- IFMATCHES("%CHATCLEAN%","^Voce recebeu 1 coin\(s\) por ter ajudado a acabar com o mal\!$");
- SET(@sleepmobkill);
- INC(#mobs_killed,1);
- IFMATCHES("%#mobs_killed%","^[\d]+(.*)(0)$");
- ACHIEVEMENTGET("[%#mobs_killed%] mobs mortos","skull");
- IFMATCHES("%#mobs_killed%","^[\d]+(.*)(00)$");
- WAIT(65T);
- ACHIEVEMENTGET("#%&dmc%","skull");
- ENDIF;
- ENDIF;
- ENDIF;
- IFMATCHES("%CHATCLEAN%","^\[CraftLandia\] Você matou: (.*)$");
- INC(#onchat_kills,1);
- IF(%#onchat_kills%=1);
- ACHIEVEMENTGET("[%#onchat_kills%] jogador morto","skull:3");
- ELSE;
- ACHIEVEMENTGET("[%#onchat_kills%] jogadores mortos","skull:3");
- ENDIF;
- WAIT(65T);
- ACHIEVEMENTGET("#%&dmc%","skull:3");
- ENDIF;
- IFMATCHES("%CHATCLEAN%","^(.*) deseja ir até você\! (Use|Digite) \/bring (.+) para aceitar.$",&nick_bring,1,NONE);
- IF(!call);
- SET(call);
- SET(&nick_aceitar,"%&nick_bring%");
- ACHIEVEMENTGET("Press DEL para aceitar","ender_pearl");
- DO(600);
- IF((KEY_DELETE)||(KEY_DECIMAL));
- IFMATCHES("%SERVER%","(region2|Region2|REGION2).craftlandia.com.br");
- GUI(CHAT);
- WAIT(2T);
- TYPE("/bring @%&nick_aceitar%");
- WAIT(2T);
- PRESS(RETURN);
- ELSE;
- IFMATCHES("%SERVER%","(region2|Region2|REGION2).craftlandia.com.br");
- ECHO("/bring %&nick_aceitar%");
- ELSE;
- ECHO("/bring @%&nick_aceitar%");
- ENDIF;
- ENDIF;
- WAIT(10T);
- ACHIEVEMENTGET("Aceito :) #%&dmc%","ender_pearl");
- BREAK;
- ENDIF;
- LOOP;
- UNSET(call);
- ENDIF;
- ENDIF;
- }$$
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement