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

doc60 · Jan 25, 2014

Boa macro parabens

WillianStaker · Jan 25, 2014

Eu coloquei o mesmo código, mas... Quando o inventário enche e fala limpando itens mas ele não joga os itens fora.

O Código que coloquei:

$${
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[] = ^268$;
#li[] = ^269$;
#li[] = ^270$;
#li[] = ^271$;
#li[] = ^290$;
#li[] = ^298$;
#li[] = ^299$;
#li[] = ^300$;
#li[] = ^301$;
#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;
}$$

Resolva para mim se puder e mostre o código resolvido para mim (é claro se puder)

OBG!!! $ $
^

jimmyfilips · Jan 27, 2014

WillianStaker disse:
Eu coloquei o mesmo código, mas... Quando o inventário enche e fala limpando itens mas ele não joga os itens fora.

O Código que coloquei:

$${
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[] = ^268$;
#li[] = ^269$;
#li[] = ^270$;
#li[] = ^271$;
#li[] = ^290$;
#li[] = ^298$;
#li[] = ^299$;
#li[] = ^300$;
#li[] = ^301$;
#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;
}$$

Resolva para mim se puder e mostre o código resolvido para mim (é claro se puder)

OBG!!! $ $
^

#li[] = 268;
#li[] = 269;
#li[] = 270;
#li[] = 271;
#li[] = 290;
#li[] = 298;
#li[] = 299;
#li[] = 300;
#li[] = 301;

Darckcroos · Jan 29, 2014

Esquece xD, macro mt bom (tinha dado um bug aqui, mas ja resolvi, obg)

TheTitaniumBR · Jan 30, 2014

jimmyfilips disse:
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!

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!

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.

Eu queria uma unica ediçãozinha nesse macro, tipo eu ~~deixo duas contas upando~~ e uma delas não é vip, ai queria saber se tem como editar para a parte das homes dos dicos e dos baus eu colocar elas como invite, no caso eu invitaria e ao invez dele dar /home bau1 etc e daria /home thetitaniumbr bau1 etc ... e a mesma coisa com os discos, tem como ? :c

jimmyfilips · Jan 30, 2014

TheTitaniumBR disse:
Eu queria uma unica ediçãozinha nesse macro, tipo eu deixo duas contas upando e uma delas não é vip, ai queria saber se tem como editar para a parte das homes dos dicos e dos baus eu colocar elas como invite, no caso eu invitaria e ao invez dele dar /home bau1 etc e daria /home thetitaniumbr bau1 etc ... e a mesma coisa com os discos, tem como ? :c

está ciente que deixar duas contas upando é passivo de ban por uso de conta fake, certo?

TheTitaniumBR · Jan 30, 2014

jimmyfilips disse:
está ciente que deixar duas contas upando é passivo de ban por uso de conta fake, certo?

mas mesmo que daria ban, faça o macro, pra aqueles que tem um amigo vip e não pode setar homes,

que " é quase o meu caso" eu tenho uma acc vip e a que eu upo pesca nao é vip e eu nao posso setar homes nela, e queria fazer os invites e tal <3

Se for possível é claro

ArthurDiniz1 · Jan 30, 2014

Cara me ajude porfavor, estou com um problema no seu macro...

Ele faz tudo direitinho no meu, mas na hora de guardar ele da /home bau1 e guarda tudo, menos assim ele continua para as homes subsequentes mesmo n tendo mais nada para guardar chegando ate a ultrapassar o limite de homes que tinha falado no inicio.

por exemplo, me pergunta em quantos baus quero guardar eu falo 2, ele vai para o 1 guarda tudo mesmo assim ele vai para o 2 e depois para o 3 ate que aparece que não tem /home bau3 mesmo assim ele continua /home bau4 ; /home bau5 e eu não sei oq fazer...

porfavor tente me ajudar ai, obrigado e desculpe qualquer coisa...

$${
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[] = 298;
#li[] = 299;
#li[] = 300;
#li[] = 301;
#li[] = 291;
#li[] = 290;
#li[] = 292;
#li[] = 294;
#li[] = 268;
#li[] = 269;
#li[] = 270;
#li[] = 271;
#li[] = 272;
#li[] = 273;
#li[] = 274;
#li[] = 275;
#li[] = 283;
#li[] = 284;
#li[] = 285;
#li[] = 286;
#li[] = 2257;
#li[] = 2260;
#li[] = 2258;
#li[] = 2259;
#li[] = 2261;
#li[] = 2262;
#li[] = 2263;
#li[] = 2264;
#li[] = 2265;
#li[] = 2266;
#li[] = 306;
#li[] = 307;
#li[] = 308;
#li[] = 309;
#li[] = 277;
#li[] = 293;
#li[] = 267;

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(300ms);
type(/home bau);wait(300ms);
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(300ms);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;
}$$

felipeta123 · Jan 30, 2014

leomineradorlol · Fev 8, 2014

exelente!

Azuloko · Fev 8, 2014

Mas quando você vai jogar no lixo tipo ele joga os itens encantados tambem?

dancruz19 · Fev 8, 2014

bom dms parabens

THIAGOLIDER · Fev 10, 2014

xOutaca · Fev 12, 2014

GabrieLL17 · Fev 12, 2014

HalleyDJ · Fev 12, 2014

vlw estava precisando da lista com os ids

Tosatuddets1 · Fev 12, 2014

Muito Bom, Parabéns!

zFull · Fev 12, 2014

Gostei

danoss · Fev 14, 2014

Ótimo topico, maco 100% funcional aqui, parabens.

iBorn · Fev 14, 2014

boa macro

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

Bem-vindo!

Neutro

Neutro

Hardcore

Neutro

Razoavel

Hardcore

Razoavel

Craftlandiano

Bom

Razoavel

Neutro

Neutro

Neutro

xOutaca

Neutro

Craftlandiano

Neutro

Bom

Bom

Excelente

Users who are viewing this thread

Estatísticas online

Em alta

Novos membros

Stay Connected