Todas as dicas para o Servidor Craftlandia.


quarta-feira, 21 de junho de 2017

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: não testei esse macro. Use por sua conta e risco.

$${
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;
}$$


MACRO REEQUIPAR DO SLEEP

Esse macro pega a parte de armadura que quebrou e a repõe na mesma hora, basta ter em qualquer canto do inventario, mas se não outra para repor o macro não vai bugar, ele entende.

Ainda não testei.

$${
TOGGLE(sleep_macro);
    IF(sleep_macro);
        LOG("&6[AutoArmor] &aLigado");
        LOG("&e&l» &7Script desenvolvido por &9SLEEP&7.");
        SET(elmo_estoque);
        SET(peito_estoque);
        SET(calca_estoque);
        SET(bota_estoque);
        UNSET(autoarmor);
    ELSE;
        LOG("&6[AutoArmor] &cDesligado ");
        LOG("&e&l» &7Script desenvolvido por &9SLEEP&7.");
        STOP;
    ENDIF;

    DO;
            IF((%HELMID%=0)&&(elmo_estoque));
                SET(autoarmor);
                SET(&armor_name,"&9Elmo");
                SET(&arm_id,"diamond_helmet");
            ELSEIF((%CHESTPLATEID%=0)&&(peito_estoque));
                SET(autoarmor);
                SET(&armor_name,"&9Peitoral");
                SET(&arm_id,"diamond_chestplate");
            ELSEIF((%LEGGINGSID%=0)&&(calca_estoque));
                SET(autoarmor);
                SET(&armor_name,"&9Calças");
                SET(&arm_id,"diamond_leggings");
            ELSEIF((%BOOTSID%=0)&&(bota_estoque));
                SET(autoarmor);
                SET(&armor_name,"&9Botas");
                SET(&arm_id,"diamond_boots");
            ENDIF;
            IF(autoarmor);
                GUI(INVENTORY);
                    IF(KEY_W);
                        KEYDOWN(FORWARD);
                    ELSEIF(KEY_S);
                        KEYDOWN(BACK);
                    ENDIF;
                    IF(KEY_A);
                        KEYDOWN(LEFT);
                    ELSEIF(KEY_D);
                        KEYDOWN(RIGHT);
                    ENDIF;
                    IF(SHIFT);
                        KEYDOWN(SNEAK);
                    ELSEIF(KEY_SPACE);
                        KEYDOWN(JUMP);
                    ENDIF;  
                    IF(RMOUSE);
                        KEY(USE);
                    ENDIF;                  
                GETSLOT(%&arm_id%,#sleep_slot,9);
                    IF(%#sleep_slot%=-1);
                        LOG("&e&l» %&armor_name% &7sem estoque.");
                            IF(%&arm_id%="diamond_helmet");
                                UNSET(elmo_estoque);
                            ELSEIF(%&arm_id%="diamond_chestplate");
                                UNSET(peito_estoque);
                            ELSEIF(%&arm_id%="diamond_leggings");
                                UNSET(calca_estoque);
                            ELSEIF(%&arm_id%="diamond_boots");
                                UNSET(bota_estoque);
                            ENDIF;
                    ELSE;
                        SLOTCLICK(%#sleep_slot%,L,TRUE);
                        LOG("&e&l» %&armor_name% &7equipado.");
                    ENDIF;
                GUI();
                WAIT(15MS);   
                    IF((!elmo_estoque)&&(!peito_estoque)&&(!calca_estoque)&&(!bota_estoque));
                        LOG("&6[AutoArmor] &cDesligado ");
                        LOG("&e&l» &7Script desenvolvido por &9SLEEP&7.");
                        TOGGLE(sleep_macro);
                        STOP;                           
                    ENDIF;                  
            ENDIF;
        UNSET(autoarmor);
    LOOP;

}$$ 

FONTE:
http://forum.craftlandia.com.br/ipb/index.php?/topic/738644-macro-auto-armor/
←  Anterior Proxima  → Página inicial