SLEEP HERBALISMO V1
Vou ser rápido e direto, portando caso não saiba fazer o preceso de instalação, desculpe-me, vai ter que pesquisar com o SrGoogle.
OBS: Macro para 1.5.2 e 1.7.2 \o/
[hr]
1. O que a macro faz ??
- O macro vai upar Herbalismo infinitamente até que você desligue ou por ventura (raramente) o item usado para upar acabar (Ex: Cana).
- O macro pode upar até com 3 Hotbar de item no inventário, e pegara mais em um bau duplo caso venha a acabar.
- O macro possui uma Economia de Plantas, parando de upar por 5 segundos quando o chão está para ser limpo.
- O macro vai ficar 24h 'atento' ao chat, caso você peguei um tesouro, automaticamente o macro vai parar para guarda-lo, após guardar, volta a upar.
- O macro vai realizar verificações durando o upe, então, não estranhe se ele abrir o inventário.
[hr]
2. Instalando a macro !!
2.1. Primeiro instale em uma tecla livre (Com a cor cinza) este código, mais lembrando, este código deve ser instalado no Edit-File.
Selecione a letra e coloque o seguinte código: $$<SlepHerb.txt>
Crie um novo arquivo no 'Edit-File' com o mesmo nome (SlepHerb) e cole o seguinte código:
Código 1º Parte do Macro 1.5.2
$${
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,"Escreva o ID do item que vai ser ultilizado para Upar.");
if(%#plant%=nothing);log("&4Stop !! Nao deixe em Branco.");unset(slepherb);unset(slepverif);unset(sleplook);unset(@slep5s);stop();endif;
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 ligando o macro ->#Sleep herbalismo<- sleep my love, até mais =) #sleepmacros$${
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;
}$$
Código 1º Parte do macro 1.7.2
$${
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,"Escreva o ID do item que vai ser ultilizado para Upar.");
if(%&plant%=nothing);log("&4Stop !! Nao deixe em Branco.");unset(slepherb);unset(slepverif);unset(sleplook);unset(@slep5s);stop();endif;
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 = written_book;
#drag = 122;
#temp = 1000;
endif;
}$$/g ligando o macro ->#Sleep herbalismo<- sleep my love, até mais =) #sleepmacros$${
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,36,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(attack);
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;
}$$
1.7.2 Editado por DjRafael.
OBS: Após colar, clique em 'Save' duas vezes.
2.2. Este 2º código, é na parte 'OnChat' do Macro, caso não saiba onde fique, SrGoogle sabe. Lembrando, este código deve ser instalado no Edit-File.
Clique em 'Onchat' e coloque o seguinte código: $$<SlepHerb2.txt>
Crie um novo arquivo no 'Edit-File' com o mesmo nome (SlepHerb2) e cole o seguinte código:
Código 2º Parte do Macro
OBS: Caso não use este da qui, o macro todo não vai funcionar completamente.
$${
ifmatches(%CHAT%,"Limpando itens do chao em 20s");
wait(13);
set(@slep5s);
endif;
&ply = %PLAYER%;
ifmatches(%CHATCLEAN%,"%&ply% encontrou um livro:");
set(@sleplivr);
endif;
}$$
OBS: Após colar, clique em 'Save' duas vezes.
OBS: Caso você já use um macro no 'OnChat' utilize o caractere
| para separa-los.
[hr]
3. Construção da Trap
Pegue: 10 Blocos de sua preferência, 4 baús. No centro coloque o bloco em que sua planta (Item) possa ser plantado.
OBS: Utilize a tecla 'F3' para se localizar.
A trap é simples, basta prestar atenção nas imagens.
Imagens:
Caso utilize a Cana para upar, coloque água para poder planta-la na areia.
[hr]
4. Organização do inventário
O inventário antes de ligar a macro, deverá ficar como na imagem a baixo, como eu uso cana para upar. Se não for cana o seu caso, apenas troque.
OBS: Não coloque item nos primeiros 9 slots do inventário, é lá que vão parar os livros.
Imagens:
[hr]
5. Sethomes
Simples e facil. Marque /sethome slepherb olhando para baixo (Onde o macro vai colocar e tirar a plantação).
[hr]
6. Ligando a macro
Ao ligar a macro vai abrir uma lista com todos os itens do jogo, ache o item que você estará upando Herbalismo e insira o ID na caixa de dialogo. (Aconselho dar /iteminfo segurando o item para já saber o ID, pois a lista que a macro abre, pode ser traiçoeira e bugar todo o funcionamento da macro).
Logo após inserir o ID do item que será usado, a macro vai peguntar qual delay (tempo) você deseja executar. Insira o número de sua preferência e pronto.
[hr]
E por fim, fim. Até o próximo macro =)
Mereço um cubo, vai, de like =)
Bjos.
Clique para expandir...