ENTREGUE [Macro] Pescador Vip Propano

Bem-vindo!

Ao se registrar conosco, você poderá discutir, compartilhar e enviar mensagens privadas com outros membros da nossa comunidade.

Inscreva-se agora!
Status
Não está aberto para novas respostas.
Anderson13fs disse:
Minha net caiu e quando voltou só ficava 'desativando macro! Aguarde' e nada de iniciar, fica só repetindo essa mensagem.

Passou dois minutos, ai eu tive que liga-la manualmente. o Onchat n esta com algum erro? (instalei tudo certinho)


Aproveita e corrija os erros de português do tópico, e diz que precisa ter o mod auto-fish
Clique para expandir...
Só pega o onchat dnv, tava muito rápida aí não ligava.
O topico fiz de noite e esqueci de mencionar que precisa do auto fish.

Enviado de meu XT1078 usando Tapatalk
 
Nugou disse:
Tbm tem que está com a macro press.txt junto com as outras na pasta de macro, senão realmente não vai pegar.

Enviado de meu XT1078 usando Tapatalk
Clique para expandir...
Sim, eu estou. Eu apenas joguei o arquivo press.txt la na pasta (com o script dentro, óbvio), mas n coloquei em nenhuma letra o $$<press.txt>. Pois você não pediu, e mesmo assim continua o erro.
Eu coloquei o @ no if e nos outros negocios com nome "vip", para poder relogar o macro com o macro do Casal win, ai reloguei de boas, porém fica naquela prompt se desejo continuar ou nao o macro, e nao sai daquilo... ai tenho q ir la manualmente (isso com o macro do casal win e o seu no onchat...)

Enviado de meu GT-I8552B usando Tapatalk
 
Anderson13fs disse:
Sim, eu estou. Eu apenas joguei o arquivo press.txt la na pasta (com o script dentro, óbvio), mas n coloquei em nenhuma letra o $$<press.txt>. Pois você não pediu, e mesmo assim continua o erro.
Eu coloquei o @ no if e nos outros negocios com nome "vip", para poder relogar o macro com o macro do Casal win, ai reloguei de boas, porém fica naquela prompt se desejo continuar ou nao o macro, e nao sai daquilo... ai tenho q ir la manualmente (isso com o macro do casal win e o seu no onchat...)

Enviado de meu GT-I8552B usando Tapatalk
Clique para expandir...
vo fazer um video mostrando os passos para instalar corretamente, porque so nas palavras realmente fica dificil para voces. Mas pelo que esta dizendo esta tudo certo.
 
Nugou disse:
vo fazer um video mostrando os passos para instalar corretamente, porque so nas palavras realmente fica dificil para voces. Mas pelo que esta dizendo esta tudo certo.
Clique para expandir...
Ajudaria muito :)

Enviado de meu GT-I8552B usando Tapatalk
 
Nugou disse:
Olá Gente..

Depois de uma grande ajuda do Derozh, criamos a macro de pesca da 1.8 vip.
Demoro mais porque tivemos que fazer varios teste. (MUITOS MESMO)

LEIA ATENTAMENTE PARA A MACRO TRABALHAR CORRETAMENTE. Erros ou problemas so comentar no topico.
É preciso ter o mod autofish para funcionar

ChangeLog:

03/11/2015 --
--Criação do post

07/11/2015 --
--Modificado as macros onchat e press para funcioanr com multi contas.
--Macro principal tambem modificada para aceita o onchat.

O que ela faz?
--Pesca na warp vip somente.
--Guarda itens que você escolhe para guarda em baus infinitos.
--Repara a vara.(é preciso ter 100 em reparação)
--Volta ao lugar onde você escolhe na warp vip.
--Reconecta caso o server reinicie ou sua net cai.

[background=#181818]Como instalar?[/background]
[background=#181818]Macro de Pesca[/background]
[background=#181818]1-[/background][background=#181818]Aperte "Shift+Grave" para entrar na tela de bind do modmacro.[/background]
[background=#181818]2-[/background][background=#181818]escolha uma tecla, de preferencia que esteja cinza.[/background]
[background=#181818]3-[/background][background=#181818]na caixa preta, escolha um nome para o comando, $$<nome.txt>, em que "nome" é o nome de sua preferencia.[/background]
[background=#181818]4-[/background][background=#181818]inda na mesma tela, aperte em "arquivo" ou "edit file".[/background]
[background=#181818]5-[/background][background=#181818]na caixa preta coloque o mesmo nome que você escolheu na tela anterior, apos isso aperte em "criar".[/background]
[background=#181818]6-[/background][background=#181818]Na tela seguinte, você ira colar a macro que esta logo abaixo de acordo com sua versão.[/background]
[background=#181818]7-[/background][background=#181818]Apos colar a macro, aperte em salvar, na proxima tela aperte em salvar novamente, em bom up. [/background]
[background=#181818] [/background]
[background=#181818]A macro do onchat.[/background]
[background=#181818]1 - [/background][background=#181818]Aperte "Shift+Grave" para entrar na tela de bind do modmacro.[/background]
[background=#181818]2 - [/background][background=#181818]Aperte em uma seta que esta apontada para a direita na parte superior da tela.[/background]
[background=#181818]3 - [/background][background=#181818]Na tela seguinte, aperte em "onchat".[/background]
[background=#181818]4 - [/background][background=#181818]na caixa preta, coloque o nome de "nugou". Ficara assim: $$<nugou.txt>[/background]
[background=#181818]5 - [/background][background=#181818]Ainda na mesma tela, aperte em "arquivo" ou "edit file".[/background]
[background=#181818]6 - [/background][background=#181818]na caixa preta coloque o mesmo nome que você escolheu na tela anterior, apos isso aperte em "criar".[/background]
[background=#181818]7 - [/background][background=#181818]Na tela seguinte, você ira colar a macro que esta logo abaixo chamada onchat.[/background]
[background=#181818]8 - [/background][background=#181818]Apos colar a macro, aperte em salvar, na proxima tela aperte em salvar novamente, em bom up. [/background]

[background=#181818]Macro auxiliar "press.txt"[/background]
[background=#181818]1-[/background][background=#181818]Aperte "Shift+Grave" para entrar na tela de bind do modmacro.[/background]
[background=#181818]2-[/background][background=#181818]escolha uma tecla.[/background]
[background=#181818]3-[/background][background=#181818]aperte em "arquivo" ou "edit file".[/background]
[background=#181818]4-[/background][background=#181818]na caixa preta coloque o mesmo nome "press"(minusculo obrigatoriamente), apos isso aperte em "criar".[/background]
[background=#181818]5-[/background][background=#181818]Na tela seguinte, você ira colar a macro que esta logo abaixo.[/background]
[background=#181818]6-[/background][background=#181818]Apos colar a macro, aperte em salvar, na proxima tela aperte em salvar novamente, em bom up. [/background]

Como usar?
--Ligue a macro na posição que fique melhor para você pesca na warp vip(ligue somente na warp vip de preferencia dentro do lago). A macro irá salvar para onde está olhando e sua posição para quando ela for reparar ou guarda ela voltar para o mesmo lugar.
--Deixe sua vara no slot 1(primeiro da esquerda para a direita), a macro não irá guarda ou jogar fora.
--A macro ja guarda por padrão somente livros do tesouro, o resto(ate mesmo a vara que for pescada) tem que ser selecionada.
--A linha você pode por em qualquer lugar do inventario. (ainda não tem a função de pegar mais linha --por enquanto--)
--Toda vez que falta 3 slot para o inventario ficar cheio ela ira jogar os itens que não foram selecionados fora, se ainda continuar com 3 slot vazio ela ira guarda nos baus.
--Repara a vara quando tiver com menos de 20 de durabilidade.
--Set a home pescabau(/home pescabau) em cima do bloco de ferro de acordo com a imagem abaixo.(trap de baus a mesma das outras macros)
WgvVXZL.png


Video:
[youtube]https://www.youtube.com/watch?v=ChS3VP9qVXw&feature[/youtube]

Macros:
press.txt(07/11/2015) -- se você ja tem o de outra macro minha, não é necessário por denovo.
//ALFABETO
if(%@&chave[%@#idp%]%="A");press(A);endif;
if(%@&chave[%@#idp%]%="B");press( B);endif;
if(%@&chave[%@#idp%]%="C");press(C);endif;
if(%@&chave[%@#idp%]%="D");press(D);endif;
if(%@&chave[%@#idp%]%="E");press(E);endif;
if(%@&chave[%@#idp%]%="F");press(F);endif;
if(%@&chave[%@#idp%]%="G");press(G);endif;
if(%@&chave[%@#idp%]%="H");press(H);endif;
if(%@&chave[%@#idp%]%="I");press(I);endif;
if(%@&chave[%@#idp%]%="J");press(J);endif;
if(%@&chave[%@#idp%]%="K");press(K);endif;
if(%@&chave[%@#idp%]%="L");press(L);endif;
if(%@&chave[%@#idp%]%="M");press(M);endif;
if(%@&chave[%@#idp%]%="N");press(N);endif;
if(%@&chave[%@#idp%]%="O");press(O);endif;
if(%@&chave[%@#idp%]%="P");press(P);endif;
if(%@&chave[%@#idp%]%="Q");press(Q);endif;
if(%@&chave[%@#idp%]%="R");press(R);endif;
if(%@&chave[%@#idp%]%="S");press(S);endif;
if(%@&chave[%@#idp%]%="T");press(T);endif;
if(%@&chave[%@#idp%]%="U");press(U);endif;
if(%@&chave[%@#idp%]%="V");press(V);endif;
if(%@&chave[%@#idp%]%="W");press(W);endif;
if(%@&chave[%@#idp%]%="X");press(X);endif;
if(%@&chave[%@#idp%]%="Y");press(Y);endif;
if(%@&chave[%@#idp%]%="Z");press(Z);endif;
//NUMERO DO TECLADO
if(%@&chave[%@#idp%]%="1");press(1);endif;
if(%@&chave[%@#idp%]%="2");press(2);endif;
if(%@&chave[%@#idp%]%="3");press(3);endif;
if(%@&chave[%@#idp%]%="4");press(4);endif;
if(%@&chave[%@#idp%]%="5");press(5);endif;
if(%@&chave[%@#idp%]%="6");press(6);endif;
if(%@&chave[%@#idp%]%="7");press(7);endif;
if(%@&chave[%@#idp%]%="8");press(8);endif;
if(%@&chave[%@#idp%]%="9");press(9);endif;
if(%@&chave[%@#idp%]%="0");press(0);endif;
//NUMERO DO NUMLOCK
if(%@&chave[%@#idp%]%="NUMPAD1");press(NUMPAD1);endif;
if(%@&chave[%@#idp%]%="NUMPAD2");press(NUMPAD2);endif;
if(%@&chave[%@#idp%]%="NUMPAD3");press(NUMPAD3);endif;
if(%@&chave[%@#idp%]%="NUMPAD4");press(NUMPAD4);endif;
if(%@&chave[%@#idp%]%="NUMPAD5");press(NUMPAD5);endif;
if(%@&chave[%@#idp%]%="NUMPAD6");press(NUMPAD6);endif;
if(%@&chave[%@#idp%]%="NUMPAD7");press(NUMPAD7);endif;
if(%@&chave[%@#idp%]%="NUMPAD8");press(NUMPAD8);endif;
if(%@&chave[%@#idp%]%="NUMPAD9");press(NUMPAD9);endif;
if(%@&chave[%@#idp%]%="NUMPAD0");press(NUMPAD0);endif;
if(%@&chave[%@#idp%]%="NUMPADENTER");press(NUMPADENTER);endif;
if(%@&chave[%@#idp%]%="NUMLOCK");press(NUMLOCK);endif;
if(%@&chave[%@#idp%]%="DIVIDE");press(DIVIDE);endif;
if(%@&chave[%@#idp%]%="MULTIPLY");press(MULTIPLY);endif;
if(%@&chave[%@#idp%]%="ADD");press(ADD);endif;
if(%@&chave[%@#idp%]%="DECIMAL");press(DECIMAL);endif;
//TECLAS FX
if(%@&chave[%@#idp%]%="F1");press(F1);endif;
if(%@&chave[%@#idp%]%="F2");press(F2);endif;
if(%@&chave[%@#idp%]%="F3");press(F3);endif;
if(%@&chave[%@#idp%]%="F4");press(F4);endif;
if(%@&chave[%@#idp%]%="F5");press(F5);endif;
if(%@&chave[%@#idp%]%="F6");press(F6);endif;
if(%@&chave[%@#idp%]%="F7");press(F7);endif;
if(%@&chave[%@#idp%]%="F8");press(F8);endif;
if(%@&chave[%@#idp%]%="F9");press(F9);endif;
if(%@&chave[%@#idp%]%="F10");press(F10);endif;
if(%@&chave[%@#idp%]%="F11");press(F11);endif;
if(%@&chave[%@#idp%]%="F12");press(F12);endif;
//CARACTERES
if(%@&chave[%@#idp%]%="MINUS");press(MINUS);endif;
if(%@&chave[%@#idp%]%="EQUALS");press(EQUALS);endif;
if(%@&chave[%@#idp%]%="LBRACKET");press(LBRACKET);endif;
if(%@&chave[%@#idp%]%="RBRACKET");press(RBRACKET);endif;
if(%@&chave[%@#idp%]%="SEMICOLON");press(SEMICOLON);endif;
if(%@&chave[%@#idp%]%="GRAVE");press(GRAVE);endif;
if(%@&chave[%@#idp%]%="TAB");press(TAB);endif;
if(%@&chave[%@#idp%]%="CAPITAL");press(CAPITAL);endif;
if(%@&chave[%@#idp%]%="LSHIFT");press(LSHIFT);endif;
if(%@&chave[%@#idp%]%="RSHIFT");press(RSHIFT);endif;
if(%@&chave[%@#idp%]%="LCONTROL");press(LCONTROL);endif;
if(%@&chave[%@#idp%]%="RCONTROL");press(RCONTROL);endif;
if(%@&chave[%@#idp%]%="SLASH");press(SLASH);endif;
if(%@&chave[%@#idp%]%="BACKSLASH");press(BACKSLASH);endif;
if(%@&chave[%@#idp%]%="LMETA");press(LMETA);endif;
if(%@&chave[%@#idp%]%="RMETA");press(RMETA);endif;
if(%@&chave[%@#idp%]%="COMMA");press(COMMA);endif;
if(%@&chave[%@#idp%]%="PERIOD");press(PERIOD);endif;
if(%@&chave[%@#idp%]%="APOSTROPHE");press(APOSTROPHE);endif;
//SETAS
if(%@&chave[%@#idp%]%="UP");press(UP);endif;
if(%@&chave[%@#idp%]%="DOWN");press(DOWN);endif;
if(%@&chave[%@#idp%]%="LEFT");press(LEFT);endif;
if(%@&chave[%@#idp%]%="RIGHT");press(RIGHT);endif;
//TECLAS DE SISTEMA
if(%@&chave[%@#idp%]%="SYSRQ");press(SYSRQ);endif;
if(%@&chave[%@#idp%]%="SCROLL");press(SCROLL);endif;
if(%@&chave[%@#idp%]%="PAUSE");press(PAUSE);endif;
if(%@&chave[%@#idp%]%="INSERT");press(INSERT);endif;
if(%@&chave[%@#idp%]%="HOME");press(HOME);endif;
if(%@&chave[%@#idp%]%="DELETE");press(DELETE);endif;
if(%@&chave[%@#idp%]%="END");press(END);endif;
if(%@&chave[%@#idp%]%="PRIOR");press(PRIOR);endif;
if(%@&chave[%@#idp%]%="NEXT");press(NEXT);endif;
if(%@&chave[%@#idp%]%="ESCAPE");press(ESCAPE);endif;
if(%@&chave[%@#idp%]%="BACK");press(BACK);endif;
//MOUSE
if(%@&chave[%@#idp%]%="MWHEELUP");press(MWHEELUP);endif;
if(%@&chave[%@#idp%]%="MWHEELDOWN");press(MWHEELDOWN);endif;
if(%@&chave[%@#idp%]%="LMOUSE");press(LMOUSE);endif;
if(%@&chave[%@#idp%]%="RMOUSE");press(RMOUSE);endif;
if(%@&chave[%@#idp%]%="MOUSE4");press(MOUSE4);endif;
if(%@&chave[%@#idp%]%="MOUSE3");press(MOUSE3);endif;
if(%@&chave[%@#idp%]%="MIDDLEMOUSE");press(MIDDLEMOUSE);endif;

OnChat -- 07/11/2015
Código: 
$${
ifmatches(%CHATCLEAN%,"^»Bem vindo de volta\. Por favor digite \/login sua-senha\.$");
if(!one);set(one);#tp=1;&player[1]=%PLAYER%;endif;
set(addplayer);
for(#p,1,%#tp%);
ifmatches(%&player[%#p%]%,%PLAYER%);
@#idp=%#p%;
unset(addplayer);
break;
endif;
next;
if(addplayer);
inc(#tp);
&player[%#tp%]=%PLAYER%;
@#idp=%#tp%;
endif;
endif;
&login="^» Craftlandia (.*) \(www.craftlandia.com.br\)$";
match(%CHATCLEAN%,%&login%,{&a});
if(@reiniciar);
ifmatches(%CHATCLEAN%,"\[Server\] Servidor será reiniciado em \[2\] minutos\.");
log(&6[Macro]&b Servidor sendo reiniciado em 2 minutos);
set(@rs);
set(espe);
log(&6[Macro]&b Pausando Macro!!! Aguardando...);
do;gui();wait(1);until(%GUI%="NONE");
wait(60);
log(&6[Macro]&b Servidor sendo reiniciado em 1 minutos);
wait(49);
#time=10;
do(10);
log(&6[Macro]&b Servidor sendo reiniciado em &6%#time% &bsegundos);
wait(1);
dec(#time);
loop;
endif;
if(espe);
if((%&a%="Titan-1")|(%&a%="Titan-2")|(%&a%="Minecraft"));
log(&6[Macro]&b Aguardando 10 segundos....);
wait(10);
unset(espe);
log(&6[Macro]&b Termino da pausa!!!);
log(&6[Macro]&b Continuando Macro...);
unset(@rs);
set(@exit);
else;
ifmatches(%CHATCLEAN%,"^»Agora você está logado\. NUNCA (.*)");
unset(espe);
log(&6[Macro]&b Termino da pausa!!!);
log(&6[Macro]&b Continuando Macro...);
unset(@rs);
set(@exit);
endif;
endif;
endif;
endif;
if(@limpeza);
ifmatches(%CHATCLEAN%,"^\[Server\] » Limpando itens do chao em 5s$");
set(@lc);
log(&6[Macro]&b Servidor limpando o chão!!!);
log(&6[Macro]&b Pausando Macro!!! Aguardando...);
gui();
#time=5;
do(5);
if(%#time%!=1);
log(&6[Macro]&b Limpando em %#time% segundos);
else;
log(&6[Macro]&b Limpando em %#time% segundo);
endif;
dec(#time);
wait(1);
loop;
log(&6[Macro]&b Aguardando 3 segundos!!!);
wait(3);
log(&6[Macro]&b Termino da pausa!!!);
log(&6[Macro]&b Continuando Macro...);
unset(@lc);
set(@exit);
endif;
endif;
if(@livro);
&teso = "^\[Tesouro\] %PLAYER% encontrou um livro\: Tesouro Nível ([0-9]+)$";
ifmatches(%CHATCLEAN%,%&teso%);
inc(@#tesouro);
@&hora[%@#tesouro%] = %DATETIME%;
set(@pl);
endif;
else;
@#tesouro=0;
endif;
if(@rec);
&login = "^»Agora você está logado\. NUNCA (.*)";
ifmatches(%CHATCLEAN%,%&login%);
#i=100;
log(&6[Macro]&b Seu login foi efetuado!);
do;
clearchat;
log(&6[Macro]&b Ativando macro em %#i%);
log(&6[Macro]&b Para cancela pressione "ESC");
if(KEY_ESCAPE);
unset(@rec);
unset(at);
break;
else;
set(at);
endif;
if(#i=0);
break;
endif;
dec(#i);
loop;
if(at);
unset(at);
do;gui(macroplayback);wait(3);log(&6[Macro]&b Desativando macro! Aguarde...);exec(press.txt);wait(1);until(!@rec);
log(&6[Macro]&b Macro desativada!);
if(@pergunta);unset(@pergunta);set(@des);endif;
do;gui(macroplayback);wait(3);log(&6[Macro]&b Ativando macro! Aguarde...);exec(press.txt);wait(1);until(@rec);
log(&6[Macro]&b Macro reativada com sucesso!);
gui();
endif;
endif;
endif;
if(@pv);
ifmatches(%CHATCLEAN%,"^» Ei.. Você já está nesse mundo!$");
set(@home);
endif;
endif;
if(@mob);
ifmatches(%CHATCLEAN%,"^Voce recebeu 1 coin\(s\) por ter ajudado a acabar com o mal!$");
inc(@#mob);
log(sim);
endif;
else;
@#mob=0;
endif;
}$$

Pescador VIP Propano -- 07/11/2015
Código: 
$${
if(vip);
log(&6[Macro]&b Pescador Vip Propano &4[Off]);
unset(vip);
unset(@pv);
unset(@rec);
unset(@des);
set(reload);
stop;
else;
set(vip);
set(@rec);
set(@pv);
set(@pergunta);
@&chave[%@#idp%]=%KEYNAME%;
if(!@des);
if(reload);
unset(reset);set(&cor[1],&6&l»);set(&cor[2],&0);set(p1);
do;
clearchat;
log(&b====&6Continuar de onde paro?&b====);
log( &61 &b- %&cor[1]%Sim &f--- %&cor[2]%Não );
log( &60 &b- &fContinuar);
if(KEY_1);wait(1ms);if(!p1);set(&cor[1],&6&l»);set(&cor[2],&0);unset(reset);set(p1);set(reload);else;set(&cor[1],&0);set(&cor[2],&6&l»);unset(p1);unset(reload);set(reset);endif;endif;
if(KEY_0);break;endif;
loop;
else;
set(reset);
endif;
if(reset);
&guar=none;
&guarda=written_book;
do;
prompt(&guar,$$i,Selecione os itens para guardar! (Digite 0 para sair));
ifmatches(%&guar%,air|0|none);
break;
else;
&guarda=%&guarda%|%&guar%;
endif;
loop;
ifmatches(%DIRECTION%,N);&dir=north;endif;
ifmatches(%DIRECTION%,S);&dir=south;endif;
ifmatches(%DIRECTION%,W);&dir=west;endif;
ifmatches(%DIRECTION%,E);&dir=east;endif;
#xp=%XPOS%;
#zp=%ZPOS%;
#yaw=%YAW% + 180;
#pitch=%PITCH%;
endif;
#temp=0;
#bau=4;
#fil=1;
endif;
log(&6[Macro]&b Pescador Vip Propano &2[On]);
log(&6[Macro]&b Coordenadas Gravadas:);
log(&6&lX: &b%#xp%);
log(&6&lZ: &b%#zp%);
set(jog);
do;
do;
look(%&dir%);
look(%#yaw%,%#pitch%);
inc(#temp);
if(%#temp%>=50);
#vazio = 0;
do;gui(inventory);wait(1);until(%GUI%="GUIINVENTORY");
#temp=0;
for(#i,9,44);
look(%&dir%);
look(%#yaw%,%#pitch%);
slot(1);
if(jog);unset(jog);wait(1);slot(1);key(use);endif;
getslotitem(%#i%,&id);
ifmatches(%&id%,air);
inc(#vazio);
endif;
if(%GUI%="NONE");#vazio=4;break;endif;
next;
if(%#vazio%<=3);
break;
gui();
endif;
gui();
endif;
if((%XPOS%!=%#xp%)|(%ZPOS%!=%#zp%));
set(repos);
unset(reparar);
unset(guarda);
#vazio=4;
gui();
break;
endif;
if(%DURABILITY%<20);
#vazio=4;
set(reparar);
gui();
break;
endif;
loop;
if(%#vazio%<=3);
look(%#yaw%,%#pitch%);
do;gui(inventory);wait(1);until(%GUI%="GUIINVENTORY");
for(#i,9,44);
getslotitem(%#i%,&id);
ifmatches(%&id%,%&guarda%|string);else;
if(%#i%!=36);slotclick(%#i%);endif;
slotclick(-999);
wait(100ms);
endif;
next;
#vazio = 0;
for(#i,9,44);
getslotitem(%#i%,&id);
ifmatches(%&id%,air);
inc(#vazio);
endif;
next;
if(%#vazio%<=3);
set(guarda);
endif;
endif;
if(reparar);
unset(reparar);
#x=%XPOS%;#z=%ZPOS%;
do;
}$$/home pescabau$${
wait(10);
until((%XPOS%!=%#x%)|(%ZPOS%!=%#z%));
keydown(jump);wait(1);keyup(jump);wait(1);
look(,90);
do(3);slot(1);key(use);key(attack);loop;
set(repos);
endif;
if(guarda);
unset(guarda);
gui();
#x=%XPOS%;#z=%ZPOS%;
do;
}$$/home pescabau$${
wait(10);
until((%XPOS%!=%#x%)|(%ZPOS%!=%#z%));
keydown(jump);wait(1);keyup(jump);wait(1);
#x = %XPOS%;
#z = %ZPOS%;
do;
#exit = 0;
do;
ifmatches(%DIRECTION%,N);getidrel(0,%#bau%,-2,&vbau);&dir_bau=North;#pos = %XPOS%;#posf = %#x% + (%#fil% - 1);endif;
ifmatches(%DIRECTION%,S);getidrel(0,%#bau%,2,&vbau);&dir_bau=South;#pos = %XPOS%;#posf = %#x% - (%#fil% - 1);endif;
ifmatches(%DIRECTION%,W);getidrel(-2,%#bau%,0,&vbau);&dir_bau=West;#pos = %ZPOS%;#posf = %#z% - (%#fil% - 1);endif;
ifmatches(%DIRECTION%,E);getidrel(2,%#bau%,0,&vbau);&dir_bau=East;#pos = %ZPOS%;#posf = %#z% + (%#fil% - 1);endif;
look(%&dir_bau%);
if(%#bau% = 4);look(,-62);endif;
if(%#bau% = 3);look(,-50);endif;
if(%#bau% = 2);look(,-25);endif;
if(%#bau% = 1);look(,0);endif;
if(%#bau% = 0);look(,35);endif;
if(%#pos% != %#posf%);keydown(right);keydown(sneak);endif;
until(%#pos% = %#posf%);
wait(100ms);
keyup(right);
keyup(sneak);
wait(1);
if((%&vbau%="chest")|(%&vbau%="trapped_chest"));
do;key(use);wait(5);until(%GUI% = "GUICHEST");
wait(1);
#sbv = 0;
for(#i,0,53);
getslotitem(%#i%,&id);
if(%&id% = "air");
#sbv = 1;
break;
endif;
next;
if(%#sbv% = 1);
for(#i,54,89);
getslotitem(%#i%,&id);
ifmatches(%&id%,%&guarda%);
if(%#i%!=81);slotclick(%#i%,l,true);endif;
wait(150ms);
endif;
next;
#exit = 0;
for(#i,0,53);
getslotitem(%#i%,&id);
if(%&id% = "air");
#exit = 1;
break;
endif;
next;
if(%#exit% = 0);
dec(#bau);
gui();
if(%#bau% = -1);
#bau = 4;
inc(#fil);
endif;
endif;
gui();
else;
dec(#bau);
if(%#bau% = -1);
#bau = 4;
inc(#fil);
endif;
gui();
endif;
else;
log(&6[Macro]&b Acabo os baus!!!);
log(&6[Macro]&b Pesca Vip &4[Off]);
unset(vip);
stop;
endif;
until(%#exit% = 1);
set(repos);
endif;
if(repos);
unset(repos);
log(&6[Macro]&b Voltando para o pesqueiro....);
wait(1);
#x=%XPOS%;#z=%ZPOS%;
do;
}$$/warp vip$${
wait(10);
if(@home);
unset(@home);
do(5);
}$$/spawn$${
wait(5);
until((%XPOS%!=%#x%)|(%ZPOS%!=%#z%));
wait(10);
endif;
until((%XPOS%=702)&&(%ZPOS%=656));
keydown(jump);wait(1);keyup(jump);
do;
sprint;
keydown(forward);
look(south);
getidrel(0,0,1,&bl);if(%&bl%!="air");keydown(jump);else;keyup(jump);endif;
if(%ZPOS%>=892);keydown(sneak);else;keyup(sneak);endif;
until(%ZPOS%=895);
unsprint;keyup(forward);keyup(sneak);keyup(jump);
do;
calcyawto(%#xp%,%#zp%,#vist);#vist=%#vist%+180;
look(%#vist%,0);
keydown(forward);
keydown(jump);
getidrel(0,0,1,&bl1);getidrel(0,1,1,&bl2);if((%&bl1%="log")|(%&bl2%="log"));keydown(right);else;keyup(right);endif;
until((%XPOS%=%#xp%)&&(%ZPOS%=%#zp%));
keyup(forward);keyup(sneak);keyup(jump);
gui(inventory);
slot(1);
set(jog);
endif;
loop;
endif;
}$$
[background=#181818] [/background]
Clique para expandir...
Onsw wu coloco minha senha pra ele logar?
 
Status
Não está aberto para novas respostas.

Users who are viewing this thread

Total: 1 (membros: 0, visitantes: 1)

Estatísticas online

Membros online
0
Visitantes online
3
Total de visitantes
3
Os totais podem incluir visitantes ocultos.

Em alta

Novos membros

Stay Connected

Voltar
Topo