[MACRO] Pesca - baús sem limites, lixeira e +

Lembrando Si seu pc e da nasa i nao buga o meu nao e da nasa

 

Jimmy ao invés de colocar os itens que você não quer, pq nao coloca os itens que voce quer. seria mais facil assim.

 

VDD, Phodolao acho que seu macro ainda é o melhor, é claro se o Jimmy tentar arrumar os BUGs.

 

hum muito bom =) umas uma pergunta de uma função vc poderia ''separar ou fazer'' um qmacro q so limpa os items q vc nao quer e um q so pega os item q vc quer ? valeu =D

 

Mais na moral assuma o macro ae
vc esta pescando de 2 em 2 segundos ele da /home pesca

 

Jimmy tesão, bunito e gostosão \o/

 

verdade arruma isso aqui tambem mesmo problema de 2 em 2 sendo ele da /home pescador. por isso nao pude testa se tem mais erros pporrem pelo que estou vendo ele tambem nao da /home bau1....

conserta esses bugs ai se nao nao tem como

 

mto legal, gostosão hu3 pena ke n sou vip e n posso usar tantas homes...
mas vai ajudar os meus fornecedores de p4 unb3 meus amigos vips (escravos -q) vao me dar mais set ainda hehe

 

Pra vc que o macro esta dando /home de cada 2 em 2 segundos arrerumei
Si tiver mais erro so fala

Spoiler

${
if(pesca);
ACHIEVEMENTGET(pesca desativada,346);unset(pesca);stop();
else;
ACHIEVEMENTGET(pesca ativada,346);set(pesca);set(bausok);#nbau=1;
endif;
ifmatches(%DIRECTION%,N);&dir=NORTH;endif;
ifmatches(%DIRECTION%,S);&dir=SOUTH;endif;
ifmatches(%DIRECTION%,E);&dir=EAST;endif;
ifmatches(%DIRECTION%,W);&dir=WEST;endif;

PROMPT(#maxbau,$?,"Quantos baús você irá utilizar?");
PROMPT(&discos,$?,"venderá discos? (s/n)");

do;
//================================================ preparar
}$/home pesca${wait(0);gui(inventory);pick(346);
//================================================ repara
if(%DURABILITY%<20);look(,90);
ACHIEVEMENTGET(Reparando a vara,346);
wait(500ms);key(use);wait(500ms);key(use);
ACHIEVEMENTGET(Vara reparada,346);
endif;
//================================================ pesca
look(%&dir%);look(,-90);
do(19);key(use);wait(10ms);loop;
//================================================ verifica inventario
if(bausok);wait(10ms);
getslotitem(35,#id,#stack);
//================================================ limpa
if(%#stack%!=0);
look(%&dir%);look(,0);

ARRAYSIZE(#li,#size);#size = #size - 1;
FOR(#y,0,%#size%);
POP(#li,#tempvar);
NEXT;

#tempvar = 0;
#li[] = ;
#li[] = ;
#li[] = ;
#li[] = ;
#li[] = ;
#li[] = ;
#li[] = ;
#li[] = ;
#li[] = ;
#li[] = ;

ACHIEVEMENTGET(limpando inventario,325);
for(#slotn,9,44);
GETSLOTITEM(%#slotn%,#id,#stack);INDEXOF(#li,#index,%#id%);
IF((#index != -1) && (%#id% != 0));
SLOTCLICK(%#slotn%);SLOTCLICK(-999);WAIT(50ms);
ENDIF;
next;
ACHIEVEMENTGET(Inventario limpo,325);
//================================================ discos
ifmatches(%&discos%,s);
ACHIEVEMENTGET(vendendo discos,2259);
#hdisco=1
for(#hdisco,1,12);
type(t /home disco%#hdisco%);wait(1);PRESS(return);
wait(5);do(2);key(attack);loop;wait(1);
next;
ACHIEVEMENTGET(discos vendidos,2259);
endif;
//================================================ baus
ACHIEVEMENTGET(guardando itens,146);
do;wait(1);
type(t /home bau%#nbau%);
wait(1);PRESS(return);wait(5);
key(use);wait(1);

for(#slotn,54,89);
GETSLOTITEM(%#slotn%,#id,#stack);
if(%#id%=346);elseif(%#id%=287);else;
slotclick(%#slotn%,l,true);wait(30ms);
endif;
next;
//================================================ verifica bau cheio
wait(500ms);getslotitem(53,#id,#stack);wait(500ms);
if(%#stack%!=0);inc(#nbau);endif;
if(%#nbau%=%#maxbau%);
unset(bausok);ACHIEVEMENTGET(baús cheios,146);gui();
else;gui();endif;

until(%#stack%=0);
ACHIEVEMENTGET(itens guardandos,146);
endif;endif;loop;
}$

 

Essa galera nunca vai mudar ^-^'
Mal-agradecidos.

 

tem como mudar o nome das homes? tipo, para /home p1, p2, p3 e talz...

 

Arrumei o Erro


//================================================ preparar
}$/home pesca${wait(0);gui(inventory);pick(346);
//================================================ repara

O 0 Verde estava 5

 

Testa ae i dps ver si nao tem erro
Coloca esse macro no TPC


$${
if(pesca);
ACHIEVEMENTGET(pesca desativada,346);unset(pesca);stop();
else;
ACHIEVEMENTGET(pesca ativada,346);set(pesca);set(bausok);#nbau=1;
endif;
ifmatches(%DIRECTION%,N);&dir=NORTH;endif;
ifmatches(%DIRECTION%,S);&dir=SOUTH;endif;
ifmatches(%DIRECTION%,E);&dir=EAST;endif;
ifmatches(%DIRECTION%,W);&dir=WEST;endif;

PROMPT(#maxbau,$$?,"Quantos baús você irá utilizar?");
PROMPT(&discos,$$?,"venderá discos? (s/n)");

do;
//================================================ preparar
}$$/home pesca$${wait(0);gui(inventory);pick(346);
//================================================ repara
if(%DURABILITY%<20);look(,90);
ACHIEVEMENTGET(Reparando a vara,346);
wait(500ms);key(use);wait(500ms);key(use);
ACHIEVEMENTGET(Vara reparada,346);
endif;
//================================================ pesca
look(%&dir%);look(,-90);
do(19);key(use);wait(10ms);loop;
//================================================ verifica inventario
if(bausok);wait(10ms);
getslotitem(35,#id,#stack);
//================================================ limpa
if(%#stack%!=0);
look(%&dir%);look(,0);

ARRAYSIZE(#li,#size);#size = #size - 1;
FOR(#y,0,%#size%);
POP(#li,#tempvar);
NEXT;

#tempvar = 0;
#li[] = ;
#li[] = ;
#li[] = ;
#li[] = ;
#li[] = ;
#li[] = ;
#li[] = ;
#li[] = ;
#li[] = ;
#li[] = ;

ACHIEVEMENTGET(limpando inventario,325);
for(#slotn,9,44);
GETSLOTITEM(%#slotn%,#id,#stack);INDEXOF(#li,#index,%#id%);
IF((#index != -1) && (%#id% != 0));
SLOTCLICK(%#slotn%);SLOTCLICK(-999);WAIT(50ms);
ENDIF;
next;
ACHIEVEMENTGET(Inventario limpo,325);
//================================================ discos
ifmatches(%&discos%,s);
ACHIEVEMENTGET(vendendo discos,2259);
#hdisco=1
for(#hdisco,1,12);
type( /home disco%#hdisco%);wait(1);PRESS(return);
wait(5);do(2);key(attack);loop;wait(1);
next;
ACHIEVEMENTGET(discos vendidos,2259);
endif;
//================================================ baus
ACHIEVEMENTGET(guardando itens,146);
do;wait(1);
type( /home bau%#nbau%);
wait(1);PRESS(return);wait(5);
key(use);wait(1);

for(#slotn,54,89);
GETSLOTITEM(%#slotn%,#id,#stack);
if(%#id%=346);elseif(%#id%=287);else;
slotclick(%#slotn%,l,true);wait(30ms);
endif;
next;
//================================================ verifica bau cheio
wait(500ms);getslotitem(53,#id,#stack);wait(500ms);
if(%#stack%!=0);inc(#nbau);endif;
if(%#nbau%=%#maxbau%);
unset(bausok);ACHIEVEMENTGET(baús cheios,146);gui();
else;gui();endif;

until(%#stack%=0);
ACHIEVEMENTGET(itens guardandos,146);
endif;endif;loop;
}$$

 

O meu até funciona legal mas na hora de dar /home pra guardar os itens com type ele PULA e não digita NADA

 

affz n liga pra esses nub q pelo jeito parece q n tem ninguem pra ensina pra eles oq é respeitar os outros

 

Arrumei tenta usa esse
$${
if(pesca);
ACHIEVEMENTGET(pesca desativada,346);unset(pesca);stop();
else;
ACHIEVEMENTGET(pesca ativada,346);set(pesca);set(bausok);#nbau=1;
endif;
ifmatches(%DIRECTION%,N);&dir=NORTH;endif;
ifmatches(%DIRECTION%,S);&dir=SOUTH;endif;
ifmatches(%DIRECTION%,E);&dir=EAST;endif;
ifmatches(%DIRECTION%,W);&dir=WEST;endif;

PROMPT(#maxbau,$$?,"Quantos baús você irá utilizar?");
PROMPT(&discos,$$?,"venderá discos? (s/n)");

do;
//================================================ preparar
}$$/home pesca$${wait(0);gui(inventory);pick(346);
//================================================ repara
if(%DURABILITY%<20);look(,90);
ACHIEVEMENTGET(Reparando a vara,346);
wait(500ms);key(use);wait(500ms);key(use);
ACHIEVEMENTGET(Vara reparada,346);
endif;
//================================================ pesca
look(%&dir%);look(,-90);
do(19);key(use);wait(10ms);loop;
//================================================ verifica inventario
if(bausok);wait(10ms);
getslotitem(35,#id,#stack);
//================================================ limpa
if(%#stack%!=0);
look(%&dir%);look(,0);

ARRAYSIZE(#li,#size);#size = #size - 1;
FOR(#y,0,%#size%);
POP(#li,#tempvar);
NEXT;

#tempvar = 0;
#li[] = ;
#li[] = ;
#li[] = ;
#li[] = ;
#li[] = ;
#li[] = ;
#li[] = ;
#li[] = ;
#li[] = ;
#li[] = ;

ACHIEVEMENTGET(limpando inventario,325);
for(#slotn,9,44);
GETSLOTITEM(%#slotn%,#id,#stack);INDEXOF(#li,#index,%#id%);
IF((#index != -1) && (%#id% != 0));
SLOTCLICK(%#slotn%);SLOTCLICK(-999);WAIT(50ms);
ENDIF;
next;
ACHIEVEMENTGET(Inventario limpo,325);
//================================================ discos
ifmatches(%&discos%,s);
ACHIEVEMENTGET(vendendo discos,2259);
#hdisco=1
for(#hdisco,1,12);
type( /home disco%#hdisco%);wait(1);PRESS(return);
wait(5);do(2);key(attack);loop;wait(1);
next;
ACHIEVEMENTGET(discos vendidos,2259);
endif;
//================================================ baus
ACHIEVEMENTGET(guardando itens,146);
do;wait(1);
type( /home bau%#nbau%);
wait(1);PRESS(return);wait(5);
key(use);wait(1);

for(#slotn,54,89);
GETSLOTITEM(%#slotn%,#id,#stack);
if(%#id%=346);elseif(%#id%=287);else;
slotclick(%#slotn%,l,true);wait(30ms);
endif;
next;
//================================================ verifica bau cheio
wait(500ms);getslotitem(53,#id,#stack);wait(500ms);
if(%#stack%!=0);inc(#nbau);endif;
if(%#nbau%=%#maxbau%);
unset(bausok);ACHIEVEMENTGET(baús cheios,146);gui();
else;gui();endif;

until(%#stack%=0);
ACHIEVEMENTGET(itens guardandos,146);
endif;endif;loop;
}$$

 

='( foi fechado