$${

    //////////////////////////
    //   CraftLandia 1.5.2  //
    //////////////////////////
    // Versao deste codigo: //
    // 0.1                  //
    //////////////////////////

    IFMATCHES("%CHATCLEAN%","^»Bem vindo de volta. Por favor digite /login sua-senha.$");
            IF(%&sleep_password%=NONE);
            ELSE;
                IFMATCHES("%SERVER%","(heaven|server3|hardcore|Heaven|Server3|Hardcore).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;
        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","397");
                    IFMATCHES("%#mobs_killed%","^[\d]+(.*)(00)$");
                        WAIT(65T);
                        ACHIEVEMENTGET("#%&dmc%","397");
                    ENDIF;
            ENDIF;
    ENDIF;
    IFMATCHES("%CHATCLEAN%","^\[CraftLandia\] Você matou: (.*)$");
        INC(#onchat_kills,1);
            IF(%#onchat_kills%=1);
                ACHIEVEMENTGET("[%#onchat_kills%] jogador morto","397:3");
            ELSE;
                ACHIEVEMENTGET("[%#onchat_kills%] jogadores mortos","397:3");
            ENDIF;
        WAIT(65T);
        ACHIEVEMENTGET("#%&dmc%","397:3");
    ENDIF;
    IFMATCHES("%CHATCLEAN%","» Você está tentando (.+) um item por (.+) coin\(s\) em uma loja desconhecida");
        IF(!confiar);
            }$$/confiar$${
            ACHIEVEMENTGET("Confiado :) #%&dmc%","323");
            SET(confiar);
            WAIT(20T);
            UNSET(confiar);
        ENDIF;
    ENDIF;
    IFMATCHES("%CHATCLEAN%","^(.*) deseja ir até você! Use \/bring \@nick para aceitar.$",&nick_bring,1,NONE);
        IF(!call);
            SET(call);
            SET(&nick_aceitar,"%&nick_bring%");
                ACHIEVEMENTGET("Press DEL para aceitar","90");
                    DO(600);
                        IF((KEY_DELETE)||(KEY_DECIMAL));
                                IFMATCHES("%SERVER%","(heaven|server3|hardcore|Heaven|Server3|Hardcore).craftlandia.com.br");
                                    GUI(CHAT);
                                    WAIT(2T);
                                    TYPE("/bring @%&nick_aceitar%");
                                    WAIT(2T);
                                    PRESS(RETURN);
                                ELSE;
                                    ECHO("/bring @%&nick_aceitar%");
                                ENDIF;
                            WAIT(10T);
                            ACHIEVEMENTGET("Aceito :) #%&dmc%","90");
                            BREAK;
                        ENDIF;
                    LOOP;
            UNSET(call);
        ENDIF;
    ENDIF;

}$$