ENTREGUE [2.0] Pesca - lixeira, baus ilimitados e +

igor rafael · 24 Abril 2014

mas e quem nao e vip como que fica ?

ShOz · 24 Abril 2014

igor rafael disse:

mas e quem nao e vip como que fica ?
Clique para expandir...

kkkk é o meu caso. Acho que se aumentar-se o delay das homes já ficava de boa pra quem não é vip.

Quell0x · 27 Abril 2014

Muito Bom o Macro Jimmy parabéns aqui não deu nenhum erro por enquanto !

joaogataoo · 8 Maio 2014

passa o macro q pesca guardar e vende disco na warp vip ae pf vejo mts e mts usando mais ninguem passa e nao tem no forum obg e #continuacomseucanaljimy

Mr.Radikal · 10 Maio 2014

Jimmy Me manda por MP um que não venda no /warp loja mano .. que apenas repare joga itens lix fora e guarde .. pfvr

joex2002 · 12 Maio 2014

o meu n esta funcionando a parte se jogar fora os itens olha o meu id fica assim:
$${
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
gui(inventory);pick(346);
look(%&dir%);look(,-90);
//================================================ repara
if(%DURABILITY%<20);look(,90);
ACHIEVEMENTGET(Reparando a vara,346);
wait(500ms);
do(2);key(use);wait(500ms);loop;
ACHIEVEMENTGET(Vara reparada,346);
endif;
//================================================ pesca
look(%&dir%);look(,-90);
do(19);key(use);wait(1ms);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[] =307;
#li[] =308;
#li[] =309;
#li[] =310;
#li[] =277;
#li[] =278;
#li[] =279;
#li[] =300;
#li[] =299;
#li[] =282;
#li[] =283:
#li[] =284:

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(250ms);
ENDIF;
next;
ACHIEVEMENTGET(Inventario limpo,325);
//================================================ discos
ifmatches(%&discos%,s);
gui();
ACHIEVEMENTGET(vendendo discos,2259);
for(#hdisco,1,12);
type(sst);wait(500ms);
type( /home disco);wait(500ms);
type(%#hdisco%);wait(1);PRESS(return);
wait(5);do(2);key(attack);wait(1);loop;wait(1);
next;
ACHIEVEMENTGET(discos vendidos,2259);
endif;
//================================================ baus
gui();
do;wait(1);
type(sst);wait(500ms);
type( /home bau);wait(500ms);
type(%#nbau%);
wait(1);PRESS(return);wait(5);
ACHIEVEMENTGET(guardando itens,146);
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);
}$$/home pesca$${wait(5);
endif;endif;loop;
}$$
ele fica com espaco no li sem eu colocar esapço me ajuda pfv
obg
pelo menos eu acho q e esse o problema... esse macro n da pra usar quem n repara linha ainda?

ZeitsuGamer · 12 Maio 2014

como tem que ser a trap?

joaogataoo · 13 Maio 2014

pra q lado tem q marcar sethome ????

Gustavo Andrade · 13 Maio 2014

Tem essa macro ao evez de sethome na warp loja vende na warp vip?

DistrictZiKa · 16 Maio 2014

Meu esta dando erro ele ; conta ate 3 segs /home disco1 / ai vai ate o 15 ... dps vai pro baus . dps vai pra /home pesca ; e faz tudo dnv . oq eu faço ?

tomeneHC · 17 Maio 2014

pra mim ele olha pra frente em vez de ollhar para cima =/ pq?

joaogataoo · 18 Maio 2014

jimmy ta tudo certo mais ele nao guardar os outros itens

Gustavo(craft) · 18 Maio 2014

Boa

xDuarte · 30 Maio 2014

jimmyfilips disse:

FUNCIONA NA VERSÃO: 1.5.2 - 1.7.2 (inclui o region 2.0)

Eai galera, tudo bem? Sim, estou de volta!
Este tópico foi editado (http://forum.craftlandia.com.br/ipb/index.php?/topic/241741-macro-pesca-baús-sem-limites-lixeira-e/) pelo fato da falta de respeitos de algum, mas achei injusto deixar muitos sem por causa de poucos.

caso encontre algum bug, deixe descrito o erro logo a baixo que assim que possível irei corrigi-lo!

Agradecimentos a [member=EndeeR] e [member=DJRemix], seus vídeos demonstrando os bugs ajudaram muito na correção!

[hr]
Este macro foi criado do zero, porém foi baseado na ideia de um macro que o [member=EvilGamer] me pediu para editar.
O criador do macro em qual me baseei foi o [member=JVFC11].
Quero agradecer também ao [member=zFurion], pois foi em macros dele que aprendi a utilizar as arrays.
Créditos ao [member=shibusen] pelo comando que faz aparecer os avisos na tela como "achievements".

IMPORTANTE
Sim, o texto é grande, mas se quer que o macro funcione, leia por completo, perguntas que tiverem a resposta no próprio tópico serão ignoradas.

COMO FUNCIONA
Ao ativar, o macro fará duas perguntas:
- Quantos baús você irá usar (utilize números, as homes serão /home bau1 ate /home bau__, sendo a quantia ilimitada)
- Se você irá vender discos ('s' para sim, 'n' para não

Este macro tem as seguintes funções:
- Pesca
- Repara
- vende discos na warp loja
- Joga itens selecionados fora
- guarda os itens restantes

MÉTODO DE USO
1 - Trap
A trap é o modelo básico, bloco de ferro em baixo, água em cima, tendo apenas uma diferença:
deixe ela 1x2, e no bloco da frente, coloque lava com uma cerca em cima para evitar acidentes, desta forma:

deixe uma home setada nela com o nome de /home pesca

2 - Inventário
ele nunca irá guardar linhas e varas, as únicas coisas com o que você deve se preocupar são:
- deixe a vara na hotbar (qualquer slot)
- não utilize este slot (por questão de eficiência, o macro verifica se há itens ali para ver se o inventário está cheio):

3 - Baús
deixe setado uma home para cada baú, utilizando o padrão:
/home bau1
/home bau2
/home bau3
/home bau4
/home bau5
etc...
(lembrando que a quantia total é você que escolhe)

4 - Discos
Caso queira vender os discos, vá até a warp loja e use as homes
/home disco1
/home disco2
/home disco3
/home disco4
/home disco5
/home disco6
/home disco7
/home disco8
/home disco9
/home disco10
/home disco11
/home disco12
(sendo uma para cada disco)

5 - Itens lixo
para definir quais itens irão para a lixeira, localize este trecho na macro:
#li[] = ;
#li[] = ;
#li[] = ;
#li[] = ;
#li[] = ;
#li[] = ;
#li[] = ;
#li[] = ;
#li[] = ;
#li[] = ;

para escolher os itens, marque em cada linha o ID do item a ser jogado fora, se precisar de mais itens, coloque mais linhas, se utilizar menos, não tem problema nenhum, a quantia é você que define!
Utilize este padrão para marcar o item:
#li[] = 314;
#li[] = 315;
#li[] = 316;
#li[] = 317;

para ajudar, segue a lista dos id's

MACRO

$${
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
gui(inventory);pick(346);
look(%&dir%);look(,-90);
//================================================ repara
if(%DURABILITY%<20);look(,90);
ACHIEVEMENTGET(Reparando a vara,346);
wait(500ms);
do(2);key(use);wait(500ms);loop;
ACHIEVEMENTGET(Vara reparada,346);
endif;
//================================================ pesca
look(%&dir%);look(,-90);
do(19);key(use);wait(1ms);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(250ms);
ENDIF;
next;
ACHIEVEMENTGET(Inventario limpo,325);
//================================================ discos
ifmatches(%&discos%,s);
gui();
ACHIEVEMENTGET(vendendo discos,2259);
for(#hdisco,1,12);
type(sst);wait(500ms);
type( /home disco);wait(500ms);
type(%#hdisco%);wait(1);PRESS(return);
wait(5);do(2);key(attack);wait(1);loop;wait(1);
next;
ACHIEVEMENTGET(discos vendidos,2259);
endif;
//================================================ baus
gui();
do;wait(1);
type(sst);wait(500ms);
type( /home bau);wait(500ms);
type(%#nbau%);
wait(1);PRESS(return);wait(5);
ACHIEVEMENTGET(guardando itens,146);
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);
}$$/home pesca$${wait(5);
endif;endif;loop;
}$$

CHANGELOG
29/12/2013 - Tópico criado
29/12/2013 - Bug "/home pesca toda hora" corrigido
29/12/2013 - dificuldade com as homes disco e bau (comando type) corrigidas, delay para digitar aumentado
29/12/2013 - aumentado tempo entre "batidas" na placa de venda dos discos
30/12/2013 - corrigido bug de pular para home disco2
30/12/2013 - corrigido bug da home bau
30/12/2013 - corrigido bug de jogar a vara contra a parede ao voltar para a home pesca

Encontrou bug? Diga nos comentários!
[hr]

LEIA COM ATENÇÃO
O macro foi testado e funciona, se algo não está funcionando como deveria para você, comente e tentarei ver o que acontece no seu caso, lembrando que estou compartilhando este macro a vocês por opção, para ajudar a todos, eu poderia deixar este macro apenas guardado, então não venha me xingar se algo der errado e não tente "mandar" eu te ajudar, pois não estou postando isso por obrigação, e sim porque gosto de ajudar vocês.

Seja respeitoso ou não pensarei duas vezes antes de te ignorar.
[hr]
Clique para expandir...

region 2.0 n funciona?

imperiius · 30 Maio 2014

legal

zubazuu · 1 Junho 2014

jimmy tem como botqar uma home de bau
?

HPTutorials · 2 Junho 2014

boa, vou guardar aqui pra quando chegar lvl de pescar disco.

boa, vou guardar aqui pra quando chegar lvl de pescar disco.

Orochimaro · 3 Junho 2014

jimmy , to com um probleminha aqui , n sou mais vip , portanto demoro 3 segundos pra chegar no /home bau , por causa deste delay meu carinha clica antes de chegar no bau , quando chega lá ja aparece que já guardou tudo , e volta a pescar , tem como vc arruma pra mim ? aumentar o tempo de delay !

Macro:

$${
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
gui(inventory);pick(346);
look(%&dir%);look(,-90);
//================================================ repara
if(%DURABILITY%<20);look(,90);
ACHIEVEMENTGET(Reparando a vara,346);
wait(500ms);
do(2);key(use);wait(500ms);loop;
ACHIEVEMENTGET(Vara reparada,346);
endif;
//================================================ pesca
look(%&dir%);look(,-90);
do(19);key(use);wait(1ms);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[] = 314;
#li[] = 315;
#li[] = 316;
#li[] = 317;
#li[] = 306;
#li[] = 307;
#li[] = 308;
#li[] = 309;
#li[] = 283;
#li[] = 284;
#li[] = 285;
#li[] = 286;
#li[] = 256;
#li[] = 257;
#li[] = 258;
#li[] = 267;
#li[] = 2256;
#li[] = 2257;
#li[] = 2258;
#li[] = 2259;
#li[] = 2260;
#li[] = 2261;
#li[] = 2262;
#li[] = 2263;
#li[] = 2264;
#li[] = 2265;
#li[] = 2266;
#li[] = 2267;
#li[] = 292;
#li[] = 293;
#li[] = 294;

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(250ms);
ENDIF;
next;
ACHIEVEMENTGET(Inventario limpo,325);
//================================================ discos
ifmatches(%&discos%,s);
gui();
ACHIEVEMENTGET(vendendo discos,2259);
for(#hdisco,1,12);
type(sst);wait(500ms);
type( /home disco);wait(500ms);
type(%#hdisco%);wait(1);PRESS(return);
wait(5);do(2);key(attack);wait(1);loop;wait(1);
next;
ACHIEVEMENTGET(discos vendidos,2259);
endif;
//================================================ baus
gui();
do;wait(1);
type(sst);wait(500ms);
type( /home bau);wait(500ms);
type(%#nbau%);
wait(1);PRESS(return);wait(5);
ACHIEVEMENTGET(guardando itens,146);
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);
}$$/home pesca$${wait(5);
endif;endif;loop;
}$$

joexostenta · 6 Junho 2014

ajuda ae
#li[] = 301;
#li[] = 300;
#li[] = 299;
#li[] = 298;
#li[] = 291;
#li[] = 290;
#li[] = 275;
#li[] = 274;
#li[] = 273;
#li[] = 272;
#li[] = 271;
#li[] = 270;
#li[] = 269;
#li[] = 268;
#li[] = 258;
#li[] = 257;
#li[] = ^ 256;
#li[] = ^314$;
#li[] = ^315$;
#li[] = ^316$;
#li[] = ^317$;
o

joexostenta · 7 Junho 2014

oq tem de errado ele n joga fora os itens

ENTREGUE [2.0] Pesca - lixeira, baus ilimitados e +

Shoutbox (0)

igor rafael Neutro

ShOz Neutro
VIP

Quell0x Neutro
VIP

joaogataoo Neutro
Banido

Mr.Radikal Bom
VIP

joex2002 Neutro
VIP

ZeitsuGamer Neutro
VIP

joaogataoo Neutro
Banido

Gustavo Andrade Neutro
VIP

DistrictZiKa Neutro
VIP

tomeneHC Neutro
VIP

joaogataoo Neutro
Banido

Gustavo(craft) Bom
VIP

xDuarte Neutro

imperiius Craftlandiano
Administração

zubazuu Neutro

HPTutorials Bom
VIP

Orochimaro Neutro
VIP

joexostenta Neutro
VIP

joexostenta Neutro
VIP

ENTREGUE [2.0] Pesca - lixeira, baus ilimitados e +

Shoutbox (0)

igor rafael Neutro

ShOz Neutro VIP

Quell0x Neutro VIP

joaogataoo Neutro Banido

Mr.Radikal Bom VIP

joex2002 Neutro VIP

ZeitsuGamer Neutro VIP

joaogataoo Neutro Banido

Gustavo Andrade Neutro VIP

DistrictZiKa Neutro VIP

tomeneHC Neutro VIP

joaogataoo Neutro Banido

Gustavo(craft) Bom VIP

xDuarte Neutro

imperiius Craftlandiano Administração

zubazuu Neutro

HPTutorials Bom VIP

Orochimaro Neutro VIP

joexostenta Neutro VIP

joexostenta Neutro VIP

ShOz Neutro
VIP

Quell0x Neutro
VIP

joaogataoo Neutro
Banido

Mr.Radikal Bom
VIP

joex2002 Neutro
VIP

ZeitsuGamer Neutro
VIP

joaogataoo Neutro
Banido

Gustavo Andrade Neutro
VIP

DistrictZiKa Neutro
VIP

tomeneHC Neutro
VIP

joaogataoo Neutro
Banido

Gustavo(craft) Bom
VIP

imperiius Craftlandiano
Administração

HPTutorials Bom
VIP

Orochimaro Neutro
VIP

joexostenta Neutro
VIP

joexostenta Neutro
VIP