Todas as dicas para o Servidor Craftlandia.


quinta-feira, 22 de junho de 2017

MOD E ESSENCIAIS - LINKS



01 - FORGE

http://files.minecraftforge.net/


02 - LITELOADER

http://www.liteloader.com/download


03 - OPTIFINE

http://optifine.net/home


04 - MOD MACRO KEYBIND

http://www.minecraftforum.net/forums/mapping-and-modding/minecraft-mods/1275039-macro-keybind-mod


A - PARA PVP.
Better PVP Mod (Fair-Play) Download

http://chocolateminecraft.com/fairplaydownload.html






quarta-feira, 21 de junho de 2017

MEU ONCHAT COMPLETO - 2017 V1





MEU ONCHAT COMPLETO, VERSÃO 2017:

As linhas em vermelho lá em baixo, vc não precisa usar, são meus labes para onjoin.

$${
ifmatches(%CHATCLEAN%,"Bem vindo de volta.");
ACHIEVEMENTGET(Logando em 1sg- Aguarde,diamond_helmet);
wait(1);
       }$$
       /login SUASENHAAQUI
       $${
//==       /login XXXXX ==//
wait(2);
        ACHIEVEMENTGET(Vc esta Logado- %PLAYER%,diamond_sword);
playsound(mob.chicken.say);

wait(1ms);
endif;
}$$


$${
ifmatches(%CHATCLEAN%,"Bem vindo de volta.");

wait(3);
///=== tempo acima aguarda o autologin iniciar ==///

wait(4);
        ACHIEVEMENTGET(Reiniciando Macro... ,stone);
wait(2);
        unset(cav);
wait(2);
        unset(@cav);
wait(1);

//        exec(cavacavaauto.txt);
        exec(herbalismo.txt);

wait(1ms);
endif;
}$$



$${
   if(@cav);
   ifmatches(%CHATCLEAN%,"Limpando itens do chao em 5s");
ACHIEVEMENTGET("Aguarde 5segundos",furnace);
         gui(inventory);
          wait(8);
     gui();
endif;
endif;
}$$



$${
IFMATCHES(%CHATCLEAN%,"Agora você está logado. NUNCA use a mesma senha do CraftLandia em outros servidores.");
wait(1800ms);

}$$
/stats
$${
wait(10ms);
endif;

ifmatches(%CHATCLEAN%,"Escavaçao: ([0-9]+),",#a,1);
ifmatches(%CHATCLEAN%,"Escavaçao: %#a%,([0-9]+) XP",#b,1);
setlabel(v1,&6Escavacao: &a%#a%.%#b%,v1);
ifmatches(%CHATCLEAN%,"Habilidade escavaçao aumentada em 1.");
#b = %#b%+1
endif;
endif;
endif;

ifmatches(%CHATCLEAN%,"Escavaçao: ([0-9]+) XP",#c,1);
setlabel(v1,&6Escavacao: &a%#c%,v1);
ifmatches(%CHATCLEAN%,"Habilidade escavaçã aumentada em 1.");
#c = %#c%+1
endif;
endif;

ifmatches(%CHATCLEAN%,"Pescador: ([0-9]+),",#a,1);
ifmatches(%CHATCLEAN%,"Pescador: %#a%,([0-9]+) XP",#b,1);
setlabel(v2,&6Pescador: &a%#a%.%#b%,v2);
ifmatches(%CHATCLEAN%,"Habilidade pescador aumentada em 1.");
#b = %#b%+1
endif;
endif;
endif;

ifmatches(%CHATCLEAN%,"Pescador: ([0-9]+) XP",#c,1);
setlabel(v2,&6Pescador: &a%#c%,v2);
ifmatches(%CHATCLEAN%,"Habilidade pescador aumentada em 1.");
#c = %#c%+1
endif;
endif;

ifmatches(%CHATCLEAN%,"Herbalismo: ([0-9]+),",#a,1);
ifmatches(%CHATCLEAN%,"Herbalismo: %#a%,([0-9]+) XP",#b,1);
setlabel(v3,&6Herbalismo: &a%#a%.%#b%,v3);
ifmatches(%CHATCLEAN%,"Habilidade herbalismo aumentada em 1.");
#b = %#b%+1
endif;
endif;
endif;

ifmatches(%CHATCLEAN%,"Herbalismo: ([0-9]+) XP",#c,1);
setlabel(v3,&6Herbalismo: &a%#c%,v3);
ifmatches(%CHATCLEAN%,"Habilidade herbalismo aumentada em 1.");
#c = %#c%+1
endif;
endif;

ifmatches(%CHATCLEAN%,"Mineraçã: ([0-9]+),",#a,1);
ifmatches(%CHATCLEAN%,"Mineraçã: %#a%,([0-9]+) XP",#b,1);
setlabel(v4,&6Mineraçã: &a%#a%.%#b%,v4);
ifmatches(%CHATCLEAN%,"Habilidade mineraçã aumentada em 1.");
#b = %#b%+1
endif;
endif;
endif;

ifmatches(%CHATCLEAN%,"Mineraçã: ([0-9]+) XP",#c,1);
setlabel(v4,&6Mineracao: &a%#c%,v4);
ifmatches(%CHATCLEAN%,"Habilidade mineraçã aumentada em 1.");
#c = %#c%+1
endif;
endif;

ifmatches(%CHATCLEAN%,"Lenhador: ([0-9]+),",#a,1);
ifmatches(%CHATCLEAN%,"Lenhador: %#a%,([0-9]+) XP",#b,1);
setlabel(v5,&6Lenhador: &a%#a%.%#b%,v5);
ifmatches(%CHATCLEAN%,"Habilidade lenhador aumentada em 1.");
#b = %#b%+1
endif
endif;
endif;

ifmatches(%CHATCLEAN%,"Lenhador: ([0-9]+) XP",#c,1);
setlabel(v5,&6Lenhador: &a%#c%,v5);
ifmatches(%CHATCLEAN%,"Habilidade lenhador aumentada em 1.");
#c = %#c%+1
endif;
endif;

ifmatches(%CHATCLEAN%,"Arqueiro: ([0-9]+),",#a,1);
ifmatches(%CHATCLEAN%,"Arqueiro: %#a%,([0-9]+) XP",#b,1);
setlabel(v6,&6Arqueiro: &a%#a%.%#b%,v6);
ifmatches(%CHATCLEAN%,"Habilidade arqueiro aumentada em 1.");
#b = %#b%+1
endif;
endif;
endif;

ifmatches(%CHATCLEAN%,"Arqueiro: ([0-9]+) XP",#c,1);
setlabel(v6,&6Arqueiro: &a%#c%,v6);
ifmatches(%CHATCLEAN%,"Habilidade arqueiro aumentada em 1.");
#c = %#c%+1
endif;
endif;

ifmatches(%CHATCLEAN%,"Espadas: ([0-9]+),",#a,1);
ifmatches(%CHATCLEAN%,"Espadas: %#a%,([0-9]+) XP",#b,1);
setlabel(v7,&6Espadas: &a%#a%.%#b%,v7);
ifmatches(%CHATCLEAN%,"Habilidade espadas aumentada em 1.");
#b = %#b%+1
endif;
endif;
endif;

ifmatches(%CHATCLEAN%,"Espadas: ([0-9]+) XP",#c,1);
setlabel(v7,&6Espadas: &a%#c%,v7);
ifmatches(%CHATCLEAN%,"Habilidade espadas aumentada em 1.");
#c = %#c%+1
endif;
endif;

ifmatches(%CHATCLEAN%,"Domar: ([0-9]+),",#a,1);
ifmatches(%CHATCLEAN%,"Domar: %#a%,([0-9]+) XP",#b,1);
setlabel(v8,&6Domar: &a%#a%.%#b%,v8);
ifmatches(%CHATCLEAN%,"Habilidade domar aumentada em 1.");
#b = %#b%+1
endif;
endif;
endif;

ifmatches(%CHATCLEAN%,"Domar: ([0-9]+) XP",#c,1);
setlabel(v8,&6Domar: &a%#c%,v8);
ifmatches(%CHATCLEAN%,"Habilidade domar aumentada em 1.");
#c = %#c%+1
endif;
endif;

ifmatches(%CHATCLEAN%,"Acrobacia: ([0-9]+),",#a,1);
ifmatches(%CHATCLEAN%,"Acrobacia: %#a%,([0-9]+) XP",#b,1);
setlabel(v9,&6Acrobacia: &a%#a%.%#b%,v9);
ifmatches(%CHATCLEAN%,"Habilidade acrobacia aumentada em 1.");
#b = %#b%+1
endif;
endif;
endif;

ifmatches(%CHATCLEAN%,"Acrobacia: ([0-9]+) XP",#c,1);
setlabel(v9,&6Acrobacia: &a%#c%,v9);
ifmatches(%CHATCLEAN%,"Habilidade acrobacia aumentada em 1.");
#c = %#c%+1
endif;
endif;

ifmatches(%CHATCLEAN%,"Reparaçã: ([0-9]+),",#a,1);
ifmatches(%CHATCLEAN%,"Reparaçã: %#a%,([0-9]+) XP",#b,1);
setlabel(v10,&6Reparaçã: &a%#a%.%#b%,v10);
ifmatches(%CHATCLEAN%,"Habilidade reparaçã aumentada em 1.");
#b = %#b%+1
endif;
endif;
endif;

ifmatches(%CHATCLEAN%,"Reparaçã: ([0-9]+) XP",#c,1);
setlabel(v10,&6Reparacao: &a%#c%,v10);
ifmatches(%CHATCLEAN%,"Habilidade reparaçã aumentada em 1.");
#c = %#c%+1
endif;
endif;

ifmatches(%CHATCLEAN%,"Desarmado: ([0-9]+),",#a,1);
ifmatches(%CHATCLEAN%,"Desarmado: %#a%,([0-9]+) XP",#b,1);
setlabel(v11,&6Desarmado: &a%#a%.%#b%,v11);
ifmatches(%CHATCLEAN%,"Habilidade desarmado aumentada em 1.");
#b = %#b%+1
endif;
endif;
endif;
ifmatches(%CHATCLEAN%,"Desarmado: ([0-9]+) XP",#c,1);
setlabel(v11,&6Desarmado: &a%#c%,v11);
ifmatches(%CHATCLEAN%,"Habilidade desarmado aumentada em 1.");
#c = %#c%+1
endif;
endif;

ifmatches(%CHATCLEAN%,"Machado: ([0-9]+),",#a,1);
ifmatches(%CHATCLEAN%,"Machado: %#a%,([0-9]+) XP",#b,1);
setlabel(v11,&6Machado: &a%#a%.%#b%,v11);
ifmatches(%CHATCLEAN%,"Habilidade machado aumentada em 1.");
#b = %#b%+1
endif;
endif;
endif;

ifmatches(%CHATCLEAN%,"Machado: ([0-9]+) XP",#c,1);
setlabel(v12,&6Machado: &a%#c%,v12);
ifmatches(%CHATCLEAN%,"Habilidade machado aumentada em 1.");
#c = %#c%+1
endif;
endif;
}$$




$${
&rgxsaldo="^(\[l\] [\S]+%PLAYER%\: reset saldo)$";ifmatches(%CHATCLEAN%,%&rgxsaldo%);set(filt);#saldo=0;&saldo=0;log(&d» &6Saldo Resetado!);endif;
&rgxmob="^(\[l\] [\S]+%PLAYER%\: reset mob)$";ifmatches(%CHATCLEAN%,%&rgxmob%);set(filt);#mobs=0;log(&d» &6Mobs Resetado!);endif;
&rgxplayer="^(\[l\] [\S]+%PLAYER%\: reset kills)$";ifmatches(%CHATCLEAN%,%&rgxplayer%);set(filt);#morreu=0;#matou=0;log(&d» &6Mortes Resetadas!);endif;
ifmatches(%CHATCLEAN%,[\»]Agora você está logado\. NUNCA);wait(1);#acbiel = 0;
#pbiel = 0;
#abiel = 0;
#pebiel = 0;
}$$|/money|$${wait(1);}$$|/stats|$${endif;

ifmatches(%CHATCLEAN%,\>(.+) comprou .+,&rum,1);set(filt);ifmatches(%&rum%,Voce);&plt=-;else;&plt=+;endif;
        &rgx1ad="\>.+ comprou .+ por ([0-9]+)\,([0-9]+)\,([0-9]+)\.([0-9]+) Coins";ifmatches(%CHATCLEAN%,%&rgx1ad%);MATCH(%CHATCLEAN%,%&rgx1ad%,{&aatd,&bbtd,&cctd});MATCH(%&aatd%%&bbtd%%&cctd%,([0-9]+),{#d});endif;
                &rgx2ad="\>.+ comprou .+ por ([0-9]+)\,([0-9]+)\.([0-9]+) Coins";ifmatches(%CHATCLEAN%,%&rgx2ad%);MATCH(%CHATCLEAN%,%&rgx2ad%,{&bbsd,&ccsd});MATCH(%&bbsd%%&ccsd%,([0-9]+),{#d});endif;
                        &rgx3ad="\>.+ comprou .+ por ([0-9]+)\.([0-9]+) Coins";ifmatches(%CHATCLEAN%,%&rgx3ad%);MATCH(%CHATCLEAN%,%&rgx3ad%,{&ccod});MATCH(%&ccod%,([0-9]+),{#d});endif;
                            ifmatches(%&plt%,\+);#saldo=%#saldo%+%#d%;@#t=%@#t%-%#d%;endif;ifmatches(%&plt%,\-);@#t=%@#t%+%#d%;#saldo=%#saldo%-%#d%;endif;
endif;

ifmatches(%CHATCLEAN%,\>(.+) vendeu .+,&rum,1);set(filt);ifmatches(%&rum%,Voce);&plt=+;else;&plt=-;endif;
        &rgx1ac="\>.+ vendeu .+ por ([0-9]+)\,([0-9]+)\,([0-9]+)\.([0-9]+) Coins";ifmatches(%CHATCLEAN%,%&rgx1ac%);MATCH(%CHATCLEAN%,%&rgx1ac%,{&aatc,&bbtc,&cctc});MATCH(%&aatc%%&bbtc%%&cctc%,([0-9]+),{#g});endif;
                &rgx2ac="\>.+ vendeu .+ por ([0-9]+)\,([0-9]+)\.([0-9]+) Coins";ifmatches(%CHATCLEAN%,%&rgx2ac%);MATCH(%CHATCLEAN%,%&rgx2ac%,{&bbsc,&ccsc});MATCH(%&bbsc%%&ccsc%,([0-9]+),{#g});endif;
                        &rgx3ac="\>.+ vendeu .+ por ([0-9]+)\.([0-9]+) Coins";ifmatches(%CHATCLEAN%,%&rgx3ac%);MATCH(%CHATCLEAN%,%&rgx3ac%,{&ccac});MATCH(%&ccac%,([0-9]+),{#g});endif;
                            ifmatches(%&plt%,\+);#saldo=%#saldo%+%#g%;@#t=%@#t%+%#g%;;endif;ifmatches(%&plt%,\-);@#t=%@#t%-%#g%;#saldo=%#saldo%-%#g%;endif;
endif;

ifmatches(%CHATCLEAN%,^\[Money\] ([\S]+).+[\.]$,&rum,1);set(filt);ifmatches(%&rum%,Voce);&plt=-;else;&plt=+;endif;
                &rgx1act="\[Money\] .+ ([0-9]+)\,([0-9]+)\,([0-9]+)\.([0-9]+) Coins.+";ifmatches(%CHATCLEAN%,%&rgx1act%);MATCH(%CHATCLEAN%,%&rgx1act%,{&aatct,&bbtct,&cctct});MATCH(%&aatct%%&bbtct%%&cctct%,([0-9]+),{#p});endif;
                        &rgx2act="\[Money\] .+ ([0-9]+)\,([0-9]+)\.([0-9]+) Coins.+";ifmatches(%CHATCLEAN%,%&rgx2act%);MATCH(%CHATCLEAN%,%&rgx2act%,{&bbsct,&ccsct});MATCH(%&bbsct%%&ccsct%,([0-9]+),{#p});endif;
                                &rgx3act="\[Money\] .+ ([0-9]+)\.([0-9]+) Coins.+";ifmatches(%CHATCLEAN%,%&rgx3act%);MATCH(%CHATCLEAN%,%&rgx3act%,{&ccact});MATCH(%&ccact%,([0-9]+),{#p});endif;
                                    ifmatches(%&plt%,\+);#saldo=%#saldo%+%#p%;@#t=%@#t%+%#p%;endif;ifmatches(%&plt%,\-);#saldo=%#saldo%-%#p%;@#t=%@#t%-%#p%;endif;
endif;

&rgxmob="^Voce recebeu ([\S]+) Coin por ter ajudado a acabar com o mal $";ifmatches(%CHATCLEAN%,%&rgxmob%,#mob,1);@#t=%@#t%+%#mob%;#saldo=%#saldo%+%#mob%;#mobs=%#mobs%+1;set(filt);endif;
&rgxpl1="^\[CraftLandia\] Você matou\:.+";ifmatches(%CHATCLEAN%,%&rgxpl1%);#matou=%#matou%+1;set(filt);;endif;
&rgxpl2="^\[CraftLandia\] Você foi morto por:.+";ifmatches(%CHATCLEAN%,%&rgxpl2%);#morreu=%#morreu%+1;set(filt);endif;

&rgx1b="\[Money\] Balanco\: ([0-9]+)\,([0-9]+)\,([0-9]+)\.([0-9]+) Coins";ifmatches(%CHATCLEAN%,%&rgx1b%);MATCH(%CHATCLEAN%,%&rgx1b%,{&a,&b,&c});MATCH(%&a%%&b%%&c%,([0-9]+),{@#t});set(filt);endif;
&rgx2b="\[Money\] Balanco\: ([0-9]+)\,([0-9]+)\.([0-9]+) Coins";ifmatches(%CHATCLEAN%,%&rgx2b%);MATCH(%CHATCLEAN%,%&rgx2b%,{&b,&c});MATCH(%&b%%&c%,([0-9]+),{@#t});set(filt);endif;
&rgx3b="\[Money\] Balanco\: ([0-9]+)\.([0-9]+) Coins";ifmatches(%CHATCLEAN%,%&rgx3b%);MATCH(%CHATCLEAN%,%&rgx3b%,{&c});MATCH(%&c%,([0-9]+),{@#t});set(filt);endif;


if(filt);unset(filt);
if(%@#t%>9999999);&rrgx="([1-9]{1}[0-9]{1})([0-9]{3})([0-9]{3})";MATCH(%@#t%,%&rrgx%,{&ra,&rb,&rc});&t=%&ra%.%&rb%.%&rc%;else;
if(%@#t%>999999);&rrgx="([1-9]{1})([0-9]{3})([0-9]{3})";MATCH(%@#t%,%&rrgx%,{&ra,&rb,&rc});&t=%&ra%.%&rb%.%&rc%;else;
if(%@#t%>99999);&rrgx="([1-9]{1}[0-9]{2})([0-9]{3})";MATCH(%@#t%,%&rrgx%,{&rb,&rc});&t=%&rb%.%&rc%;else;
if(%@#t%>9999);&rrgx="([1-9]{1}[0-9]{1})([0-9]{3})";MATCH(%@#t%,%&rrgx%,{&rb,&rc});&t=%&rb%.%&rc%;else;
if(%@#t%>999);&rrgx="([1-9]{1})([0-9]{3})";MATCH(%@#t%,%&rrgx%,{&rb,&rc});&t=%&rb%.%&rc%;else;
if(%@#t%<=999);&rrgx="([0-9]{1,3})";MATCH(%@#t%,%&rrgx%,{&rc});&t=%&rc%;endif;endif;endif;endif;endif;endif;
if((%#saldo%>9999999)||(%#saldo%<-9999999));&arrgx="([\-]?[1-9]{1}[0-9]{1})([0-9]{3})([0-9]{3})";MATCH(%#saldo%,%&arrgx%,{&ara,&arb,&arc});&saldo=%&ara%.%&arb%.%&arc%;else;
if((%#saldo%>999999)||(%#saldo%<-999999));&arrgx="([\-]?[1-9]{1})([0-9]{3})([0-9]{3})";MATCH(%#saldo%,%&arrgx%,{&ara,&arb,&arc});&saldo=%&ara%.%&arb%.%&arc%;else;
if((%#saldo%>99999)||(%#saldo%<-99999));&arrgx="([\-]?[1-9]{1}[0-9]{2})([0-9]{3})";MATCH(%#saldo%,%&arrgx%,{&arb,&arc});&saldo=%&arb%.%&arc%;else;
if((%#saldo%>9999)||(%#saldo%<-9999));&arrgx="([\-]?[1-9]{1}[0-9]{1})([0-9]{3})";MATCH(%#saldo%,%&arrgx%,{&arb,&arc});&saldo=%&arb%.%&arc%;else;
if((%#saldo%>999)||(%#saldo%<-999));&arrgx="([\-]?[1-9]{1})([0-9]{3})";MATCH(%#saldo%,%&arrgx%,{&arb,&arc});&saldo=%&arb%.%&arc%;else;
if((%#saldo%<=999)||(%#saldo%>=-999));&arrgx="([\-]?[0-9]{1,3})";MATCH(%#saldo%,%&arrgx%,{&arc});&saldo=%&arc%;endif;endif;endif;endif;endif;endif;
if(%#saldo%<0);&sgy=;&saldohm="&c :(";else;&sgy=+;&saldohm="&c :)";endif;if(%#saldo%=0);&sgy=;&saldohm="&c '-'";endif;
setlabel(DD1,&6Dinheiro: &3%&t%,DD1);
setlabel(DD2,"&6Saldo: &3%&sgy%%&saldo%%&saldohm%",DD2);
setlabel(DD4,&6Mobs mortos: &3%#mobs%,DD4);
endif;
}$$






$${
if(@tellrecorder); 
       ifmatches(%CHATCLEAN%,"^\(Mensagem de (.+)\): .*$",&pname,1,none);
        match(%CHATCLEAN%,"^\(Mensagem de .+\): (.*)$",&message,1,none);

        wait(1ms);
        time(&date,"dd/MM/yyyy HH:mm:ss");
        logto("tells.txt","[%&date%] %&pname%: %&message%");

        log(&6 ATENCAO = AVISO: &aMensagem recebida e arquivada.);
        ACHIEVEMENTGET(MESANGEM ARQUIVADA,furnace);
          wait(1);
     playsound(mob.bat.death);

       wait(1);
        }$$
         /r Desculpe-me, mas no momento estou AFK, upando.
          $${
           wait(15);
endIf;
endIf;
}$$




Escavação para RECONNECT - 2017





MACRO DE ESCAVAÇÃO PARA RECONNECT:

$${
wait(10ms);
}$$
/home macroesc
$${
wait(1);
}$$

$${
if(cav);
unset(cav);
log( );
log("&6&l[VIP] &d&lCavaCavaAuto &4(Desligado) &f- &aAproximadamente &a%#exp% de EXP.");
     ACHIEVEMENTGET("CavaCavaAuto Desligado",diamond_shovel);
     playsound(mob.bat.death);
log( );

unset(@cav);
stop();

else;
set(cav);
log( );
log("&6&l[VIP] &d&lCavaCavaAuto &2(LIGADO)");
      ACHIEVEMENTGET("CavaCavaAuto Ligado",diamond_shovel);
      playsound(mob.bat.death);
log( );

set(@cav);
IFMATCHES(%DIRECTION%,N);
&near = NORTH;
ENDIF;
IFMATCHES(%DIRECTION%,S);
&near = SOUTH;
ENDIF;
IFMATCHES(%DIRECTION%,W);
&near = WEST;
ENDIF;
IFMATCHES(%DIRECTION%,E);
&near = EAST;
ENDIF;

#exp = 0;
#bau = 1;

//....... Que bloco usara para cavar?
&bloco=soul_sand
//.......Que tipo de pa ira ser usada?
&pa=diamond_shovel
//.......Qual o material usado na reparacao da sua pa?
&rep=diamond
//.......Em qual durabilidade voce quer reparar sua pa?
#dur=100
//.......Qual delay para verificar o Inventario? Recomendado: 140 - 250
&del=240
//.......Qual delay para quebrar os blocos? 1 = rapido | acima de 1 = diminuir a velociade
#vel=1

#dur=%#dur%;
#repq=0;

look(%&near%);
look(,55);

set(cav2);
do;
do(%&del%);
pick(%&bloco%);
key(use);
wait(%#vel%ms);
pick(%&pa%);

if(%DURABILITY%<%#dur%);
gui(inventory);
for(#i,9,45);
getslotitem(%#i%,&id,#stack1);
if(%&id%=%&rep%);
#repq=%#repq%+%#stack1%;
endif;
next;
wait(1);
gui();

if(%#repq%=0);

log( );
log("&6&l[VIP] &d&lCava-Cava &4(OFF) &dNao pode reparar &f- &aAproximadamente &a%#exp% de EXP.");
log( );

unset(@cav);
unset(cav);
unset(cav2);
stop();

else(%#repq%>0%);

#repq=0;
look(%&near%);
look(,90);
key(use);
wait(2);
#repq=0;

endif;endif;

endif;

look(%&near%);
look(,55);
key(attack);
inc(#exp, 1);
loop;
  
if(cav2);
gui(inventory);
wait(1);
getslotitem(35,#id,#stack);
if(%#stack%=0);
gui();
else;
do;
wait(1);
 }$$
  
$${if(%#bau%=1);}$$
/home esc1
$${endif;}$$
$${if(%#bau%=2);}$$
/home esc2
$${endif;}$$
$${if(%#bau%=3);}$$
/home esc3
$${endif;}$$
$${if(%#bau%=4);}$$
/home esc4
$${endif;}$$
$${if(%#bau%=5);}$$
/home esc5
$${endif;}$$
$${if(%#bau%=6);}$$
/home esc6
$${endif;}$$
$${if(%#bau%=7);}$$
/home esc7
$${endif;}$$
$${if(%#bau%=8);}$$
/home esc8
$${endif;}$$
$${if(%#bau%=9);}$$
/home esc9
$${endif;}$$
$${if(%#bau%=10);}$$
/home esc10
$${endif;}$$
$${if(%#bau%=11);}$$
/home esc11
$${endif;}$$
$${if(%#bau%=12);}$$
/home esc12
$${endif;}$$
$${if(%#bau%=13);}$$
/home esc13
$${endif;}$$
$${if(%#bau%=14);}$$
/home esc14
$${endif;}$$
$${if(%#bau%=15);}$$
/home esc15
$${endif;}$$
$${if(%#bau%=16);}$$
/home esc16
$${endif;}$$
$${if(%#bau%=17);}$$
/home esc17
$${endif;}$$
$${if(%#bau%=18);}$$
/home esc18
$${endif;}$$
$${if(%#bau%=19);}$$
/home esc19
$${endif;}$$
$${if(%#bau%=20);}$$
/home esc20
$${endif;}$$
  
$${
wait(5);
key(use);
wait(1);
for(#slotn,54,89);
GETSLOTITEM(%#slotn%,&id,#stack);
if((%&id%=%&pa%) || (%&id%=%&bloco%) || (%&id%=%&rep%));
else;
slotclick(%#slotn%,l,true);wait(30ms);
endif;
next;
wait(500ms);
getslotitem(53,#id,#stack);
wait(500ms);
if(%#stack%!=0);inc(#bau);

endif;
if(%#bau%=11);
unset(cav2);
log(&d&l[MACRO] Cava-Cava &b"Baus cheios! Voltando a escavar.");
gui();
else;
gui();
endif;
until(%#stack%=0);

}$$
/home macroesc
$${

wait(2);
endif;
endif;
gui(inventory);
wait(600ms);
for(#slot,9,35);
GETSLOTITEM(%#slot%,&id,#stack);
if((%&id%=%&pa%) || (%&id%=%&bloco%));
slotclick(%#slot%,l,true);wait(30ms);
endif;
next;
gui();

loop;
endif;
}$$




ONCHAT PARA O ESCAVAÇÃO:

$${
ifmatches(%CHATCLEAN%,"Bem vindo de volta.");
ACHIEVEMENTGET(Logando em 1sg- Aguarde,diamond_helmet);
wait(1);
       }$$
       /login SUASENHAAQUI
       $${
wait(2);
        ACHIEVEMENTGET(Vc esta Logado- %PLAYER%,diamond_sword);
playsound(mob.chicken.say);

wait(1ms);
endif;
}$$



$${
ifmatches(%CHATCLEAN%,"Bem vindo de volta.");

wait(3);
///=== tempo acima aguarda o autologin iniciar ==///

wait(4);
        ACHIEVEMENTGET(Reiniciando Macro... ,stone);
wait(2);
        unset(cav);
wait(2);
        unset(@cav);
wait(1);
//        exec(cavacavaauto.txt);
//        exec(herbalismo.txt);

wait(1ms);
endif;
}$$



$${
   if(@cav);
   ifmatches(%CHATCLEAN%,"Limpando itens do chao em 5s");
ACHIEVEMENTGET("Aguarde 5segundos",furnace);
         gui(inventory);
          wait(8);
     gui();
endif;
endif;
}$$


segunda-feira, 19 de junho de 2017

MACROS ONJOIN - INFOS NA TELA

SEGUE ABAIXO O MACRO COMPLETO.





MACRO:

$${
do;
//===FPS====================== FPS====================//
setlabel(fps2,&7&lFPS&f: &a&o%FPS%,fps2)
setlabel(fps,&6&lFPS &e» &b&l%FPS%,fps);

//==========TEMPO
//wait(1ms);
setlabel(ST9,&bTempo em Ticks: &a%TICKS%,ST9);
setlabel(ST10,&bHorário do jogo: &a%DAYTIME%,ST10);
setlabel(ST11,&7&lHorário&f: &a&o%TIME%,ST11);
   //DOIS EM UM//
setlabel(hora,&6&lHora &e» &b&l%TIME% &e- &b&l%DAYTIME%);


//==JOGADOR
setlabel(jogador2,&bGamer&e» &a%PLAYER%,jogador2);
setlabel(jogador1,&bPlayer: &a%PLAYER%,jogador1);

setlabel(jogador0,&e» &b&l%PLAYER%);
setlabel(jogador,&6&lJogador &e» &b&l%PLAYER%);

/////--BESTEIRAS --///////////////////////////////
setlabel(ST13,&7&lSaúde&f: &a&o%HEALTH%,ST13);
setlabel(ST14,&7&lTextura&f: &a&o%TEXTUREPACK%,ST14);
setlabel(ST15,&7&lTxT&f: &a&o%SERVER ADDRESS%,ST15);



//wait(1ms);
//==coordenadas=============== COORDENADAS ==================================//
setlabel(coordenada,&bX &6%XPOS% &bY &6%YPOS% &bZ &6%ZPOS%)
//==setlabel(coordenada,&6&lCoord &e» &bX &6&l%XPOS% &bY &6&l%YPOS% &bZ &6&l%ZPOS%)


//==POT=========================== PORCOES ==================================//
&eff=;
foreach(effects);
&effname=%EFFECTNAME%:;
#time=%EFFECTTIME%;
#id=%EFFECTID%;
if(%#time%>=60);
#prim=%#time%/60;
#seg=%#time%-(%#prim%*60);
if(%#seg%<10);
&seg=0%#seg%;
else;
&seg=%#seg%;
endif;
&efftime=%#prim%:%&seg%;
else;
if(%#time%<10);
&efftime=0:0%#time%;
else;
&efftime=0:%#time%;
  endif;
  endif;
if(%#time%<11);
&efftime=&c&l%&efftime%;
else;
&efftime=&2%&efftime%;
endif;
&eff=%&eff%\n&f%&effname% %&efftime%;
next;
setlabel(POT,"%&eff%",POT);



//===============================ARMADURA QUE USO ==================//
if(%HELMNAME%="None");
&cap="&e&l» &6Sem Elmo";
else;
 &cap="&fElmo&8: &2 %HELMDURABILITY%";
if(%HELMDURABILITY% < 50);
 &cap="&fElmo&8: &c%HELMDURABILITY%";
endif;
endif;

if(%CHESTPLATENAME%="None");
&pet="&e&l» &6Sem Peitoral";
else;
   &pet="&fPeito&8: &2%CHESTPLATEDURABILITY%";
if(%CHESTPLATEDURABILITY% < 100);
   &pet="&fPeito&8: &f%CHESTPLATEDURABILITY%";
if(%CHESTPLATEDURABILITY% < 80);
   &pet="&fPeito&8: &7%CHESTPLATEDURABILITY%";
if(%CHESTPLATEDURABILITY% < 60);
   &pet="&fPeito&8: &e%CHESTPLATEDURABILITY%";
if(%CHESTPLATEDURABILITY% < 40);
   &pet="&fPeito&8: &6%CHESTPLATEDURABILITY%";
if(%CHESTPLATEDURABILITY% < 25);
   &pet="&fPeito&8: &c%CHESTPLATEDURABILITY%";
if(%CHESTPLATEDURABILITY% < 10);
   &pet="&fPeito&8: &4%CHESTPLATEDURABILITY%";
endif;
endif;
endif;
endif;
endif;
endif;
endif;
endif;

if(%LEGGINGSNAME%="None");
&cal="&e&l» &6Sem Calça";
else;
&cal="&fCalça&8: &2%LEGGINGSDURABILITY%";
if(%LEGGINGSDURABILITY% < 50);
&cal="&6Calça&8: &c&l%LEGGINGSDURABILITY%";
endif;
endif;

if(%BOOTSNAME%="None");
&bot="&e&l» &6Sem Bota";
else;
&bot="&fBota&8: &2%BOOTSDURABILITY%";
 if(%BOOTSDURABILITY% < 50);
&bot="&fBota&8: &c&l%BOOTSDURABILITY%";
endif;
endif;

      setlabel(SET,"%&cap%\n%&pet%\n%&cal%\n%&bot%",SET);
//===setlabel(SET,"%&cap%\n\n%&pet%\n\n%&cal%\n\n%&bot%",SET);



//================== ARMADURA, ITEM POR ITEM =============================//
wait(1ms)
if(%HELMDURABILITY% != 0);
setlabel(ELMO,"&6&lELMO &e» &b&l%HELMDURABILITY%",ELMO);
else;
setlabel(ELMO,"&6&lELMO &e» &b&lSEM",ELMO);
endif;

wait(1ms)
if(%CHESTPLATEDURABILITY% != 0);
setlabel(PEITO,"&6&lPEITO &e» &b&l%CHESTPLATEDURABILITY%",PEITO);
else;
setlabel(PEITO,"&6&lPEITO &e» &b&lSEM",PEITO);
endif;
wait(1ms)

if(%LEGGINGSDURABILITY% != 0);
setlabel(CALCA,"&6&lCALCA &e» &b&l%LEGGINGSDURABILITY%",CALCA);
else;
setlabel(CALCA,"&6&lCALCA &e» &b&lSEM",CALCA);
endif;
wait(1ms)

if(%BOOTSDURABILITY% != 0);
setlabel(BOTA,"&6&lBOTA &e» &b&l%BOOTSDURABILITY%",BOTA);
else;
setlabel(BOTA,"&6&lBOTA &e» &b&lSEM",BOTA);
endif;
wait(1ms)



//===================== SET NO RED =====================//
if(%HELMDURABILITY% < 50);
&cap=&4ELMO NO RED;
ELSE;
&cap= ;
endif;

if(%CHESTPLATEDURABILITY% < 50);
&pet=&4PEITO NO RED;
ELSE;
&pet= ;
endif;

if(%LEGGINGSDURABILITY% < 50);
&cal=&4Calça  NO RED;
ELSE;
&cal= ;
endif;

if(%BOOTSDURABILITY% < 50);
&bot=&4BOTA NO RED;
  else;
&bot= &bot=&6-Sem Bota-;
endif;

setlabel(SETRED,"%&cap%\n\n%&pet%\n\n%&cal%\n\n%&bot%",SETRED)



//===========================MAO=======================//
if(%DURABILITY% > 0);
setlabel(MAO,"&b%ITEMNAME% &a» &6%DURABILITY%",MAO);
  else;
  setlabel(MAO,"&bMAO &a» &6%ITEMNAME%",MAO);
endif;



//=================POCOES 002=============================//
wait(1ms)
&pot="";
FOREACH(effects);
&pot = "%&pot%\n&6&l%EFFECTNAME% &e» &b&l%EFFECTTIME%";
NEXT;
setlabel(POT2,%&pot%);



//===segunda label de pocoes============================//
//=================================== POT
&eff=;
foreach(effects);
&effname=%EFFECTNAME%:;
#time=%EFFECTTIME%;
#id=%EFFECTID%;
if(%#time%>=60);
#prim=%#time%/60;
#seg=%#time%-(%#prim%*60);
if(%#seg%<10);
&seg=0%#seg%;
else;
&seg=%#seg%;
endif;
&efftime=%#prim%:%&seg%;
  else;
if(%#time%<10);
&efftime=0:0%#time%;
else;
&efftime=0:%#time%;
endif;
endif;
if(%#time%<11);
&efftime=&c&l%&efftime%;
else;
&efftime=&2%&efftime%;
endif;
&eff=%&eff%\n&f%&effname% %&efftime%;
next;
setlabel(POT3,"%&eff%",POT3);
//////////////////////////


loop;

////tutorial de cor //////////
//
// &6&l
// o primeiro "&6" é a cor
// o segudno "&l" é o negrito
//
//
/////////////////////////////

endif;
}$$

terça-feira, 13 de junho de 2017

COMPRARVIP AUTOMATICAMENTE


MACRO:
$${
ifmatches(%CHATCLEAN%,"[VIP] ^(.+) colocou um VIP a venda por",&cvip,1,none);
}$$
/clear
$${
wait(500ms);
type(t /comprarvip %&cvip%);
press(return);
endif;
}$$



FONTE:
http://forum.craftlandia.com.br/ipb/index.php?/topic/549548-macro-comprando-vip-comprarvip/

segunda-feira, 12 de junho de 2017

MACRO DE ACEITAR BRING

USE-O no onchat, e para aceitar pressione o Delete do seu teclado, ou troque na função a tecla.




Ainda ão testei.
$${
ifmatches(%CHATCLEAN%,"^([a-zA-Z0-9\-_]{2,16}) deseja ir até você! Digite /bring ([a-zA-Z0-9\-_]{2,16}) para aceitar.$",&nicpk,1,none);

ACHIEVEMENTGET(Call Pendente,diamond_helmet);

log(" ");
log(&6&l%&nick% Mandou Call, aperte &c&lDELL &6&lpara aceitar.);
log(&6&l%&nick% Mandou Call, aperte &c&lDELL &6&lpara aceitar.);
log(" ");

do;
ifmatches(%KEY_DELETE%,true);
wait(200ms);
   echo(/bring %&nicpk%);
wait(500ms);
   press(RETURN);
break;
endif;
endif;

loop;
endif;
}$$


Proxima  → Página inicial