$${
////////////////////////////
// CraftLandia 1.7 ou 1.8 //
////////////////////////////
// Versao deste codigo: //
// 0.1 //
////////////////////////////
IFMATCHES("%CHATCLEAN%","^(»Bem vindo de volta. Por favor digite /login sua-senha.|» CraftLandia Propano \(www.craftlandia.com.br\))$");
//Insira a tecla alfabetica (letra) onde a macro Sleep_MobKill foi instalada (nao apague os " nem
:
&sleep_mobkill_key = "" ;
IF(%&sleep_password%=NONE);
ELSE;
IFMATCHES("%SERVER%","(beta|Beta|BETA).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);
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%","» Você está tentando (.+) um item por (.+) coin\(s\) em uma loja desconhecida");
IF(!confiar);
}$$/confiar$${
ACHIEVEMENTGET("Confiado
#%&dmc%","sign");
SET(confiar);
WAIT(20T);
UNSET(confiar);
ENDIF;
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%","(beta|BETA|Beta).craftlandia.com.br");
GUI(CHAT);
WAIT(2T);
TYPE("/bring @%&nick_aceitar%");
WAIT(2T);
PRESS(RETURN);
ELSE;
IFMATCHES("%SERVER%","(propano|PROPANO|Propano).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;
}$$
