ENTREGUE [MACRO] Sleep Herbalismo V1 1.7

[zWolffie_]

Eai galera esse Macro é feito pelo Sleep,
apenas fiz umas modificações para funcionar na versão 1.7

Todos os Créditos são para o Sleep!

ID da Cana escrevam [reeds]

[Tutorial do Macro]
http://forum.craftlandia.com.br/ipb/index.php?/topic/526271-macro-sleep-herbalismo-v1-o/

Macro:

Spoiler

$${

if(slepherb);

log("&d&l[MACRO] &6Sleep Herbalismo v1&4&l (OFF)");
ACHIEVEMENTGET("Desligando, by SLEEP",388:4);
unset(slepherb);
unset(slepverif);
unset(sleplook);
unset(@sleplivr);
unset(@slep5s);
stop();

else;

log("&d&l[MACRO] &6Sleep Herbalismo v1&2&l (ON)");
ACHIEVEMENTGET("Iniciando, by SLEEP",264:4);
set(slepherb);
set(slepverif);
set(sleplook);
endif;


IFMATCHES(%DIRECTION%,N);&loc=NORTH;endif;
IFMATCHES(%DIRECTION%,S);&loc=SOUTH;endif;
IFMATCHES(%DIRECTION%,W);&loc=WEST;endif;
IFMATCHES(%DIRECTION%,E);&loc=EAST;endif;


PROMPT(&Plant,$$i, Selecione o item que ira utilizar!);

CLEARCHAT;
log("&a-> &6Insira o número referente a Velocidade de funcionamento da Macro:");log("");
log("&4-> &8Lembrando que, quando maior o tempo, menos Upara !!");
log("&4-> &8Quanto maior o tempo, menos risco de ser banido por Macro Bugado !!");

log("");
log("&4----------------------------------");
log("&9[1] &7Menor e mais Rapida Velocidade.");log("&9[50] &7Recomendada Velocidade.");log("&9[100+] &7Lenta Velocidade.");
log("&4----------------------------------");
log("");

PROMPT(#velo,$$?,"Insira o número referente a Velocidade de funcionamento da Macro.");
if(%#velo%=nothing);log("&4Stop !! Nao deixe em Branco.");unset(slepherb);unset(slepverif);unset(sleplook);unset(@slep5s);stop();endif;


#livr = 387;
#drag = 122;
#temp = 1000;

endif;

}$$/g &festou usando o macro &b[slepherb] &6v1$${
unset(@sleplivr);
unset(@slep5s);
set(sleplook);
if(sleplook);
look(%&loc%);
look(,90);


//=========================================== Herbalizando


do;
do(%#temp%);
do(%#temp%);

if(@sleplivr);

unset(slepverif);
wait(600ms);
look(180,0);
wait(600ms);
key(attack);
wait(600ms);
key(use);
wait(4500ms);
for(#slotn,54,62);
GETSLOTITEM(%#slotn%,#id,#stack);
if((%#id%=%#plant%) || (%#id%=%#drag%));
else;
slotclick(%#slotn%,l,true);
wait(185ms);
endif;
next;
wait(185ms);
getslotitem(53,#id,#stack);
wait(185ms);
if(%#stack%!=0);
endif;
until(%#stack%=0);
wait(600ms);
set(slepverif);
unset(@sleplivr);
gui();
wait(600ms);
look(,90);
wait(600ms);
}$$/home slepherb$${
wait(4);
endif;


if(@slep5s);
log("&d&l[MACRO] &6Parei até Limpar !! &4&o#SleepMacros");
unset(slepverif);
wait(9);
log("&d&l[MACRO] &6Limpo !! Continuando. &4&o#SleepMacros");
unset(@slep5s);
set(slepverif);
endif;
pick(%#plant%);
key(use);
wait(%#velo%ms);
key(attack);

look(%&loc%);
look(,90);
loop;

//=========================================== Verificando

if(slepverif);

gui(inventory);
wait(1000ms);
for(#slot,37,44);
getslotitem(%#slot%,#id,#stack);
if(%#id%=%#plant%);
next;
else;
slotclick(%#slot%,l,true);
wait(185ms);
endif;
next;
for(#slot,9,35);
getslotitem(%#slot%,#id,#stack);
if(%#id%=%#plant%);
slotclick(%#slot%,l,true);
wait(185ms);
endif;
next;
getslotitem(42,#id,#stack);
if(%#id%=%#plant%);
gui();
else;

//=========================================== Guardando possíveis Livros

wait(600ms);
look(180,0);
wait(600ms);
key(attack);
wait(600ms);
key(use);
wait(4500ms);
for(#slotn,54,62);
GETSLOTITEM(%#slotn%,#id,#stack);
if((%#id%=%#plant%) || (%#id%=%#drag%));
else;
slotclick(%#slotn%,l,true);
wait(185ms);
endif;
next;
wait(185ms);
getslotitem(53,#id,#stack);
wait(185ms);
if(%#stack%!=0);
endif;
until(%#stack%=0);
wait(600ms);
gui();
wait(600ms);

//=========================================== Coletando mais Plant

wait(600ms);
look(0,0);
wait(600ms);
key(use);
wait(4500ms);
#click=0;
#id=%#plant%;
do;
getslotitem(64,#id,#stack);
wait(185ms);
if(%#id%=%#plant%);
#tem=1;
else;
#tem=0;
endif;
slotclick(%#click%,l,true);
wait(185ms);
inc(#click,1);
until(%#tem%=1);
gui();
wait(600ms);
look(,90);
wait(600ms);
}$$/home slepherb$${
wait(4);
next;


endif;
endif;
endif;
endif;
gui();
loop;
endif;
}$$

 

[zWolffie_]

@EDIT: Caso haja algum erro me avise

 

[paulinoxz]

Vou testar

 

[koymatt]

Boa, irei testar

 

[Fernando123]

Muito bom, . útil !

 

[bieelsz]

Boa, vou testar

 

[SLEEPP]

Obg por fazer isso por mim. Não conheço muito os comandos e variaveis da 1.7. Enfim =)

Bjos.

 

[zInter00]

Boa, talvez usarei -q

 

[zWolffie_]

Boa, talvez usarei -q

talvez devia deixar 1 like tbm neh -q

Obg por fazer isso por mim. Não conheço muito os comandos e variaveis da 1.7. Enfim =)

Bjos.

Dinada =)

Boa, vou testar

teste sim

Muito bom, . útil !

eu sei -q <3

Boa, irei testar

Vou testar

okay :3

 

[FarofeiroXD]

Irei testar heuheuhe

 

[Patrick_]

'Testando 123

 

[GR6Fluxos]

Boa.

 

[Wasmachine]

Booa !

 

[RyserNTC]

Funciona na 1.8?

 

[Snowlz]

Boa mano ótimo macro :V

 

[DeathM4nzZ]

Vou testa aq.

Enviado de meu GT-I8552B usando Tapatalk