[Resolvido]ajuda

[LCassells2]

como o adm fecho o outro topico to fazendo esse o cara mando eu passa o codigo pra alguem me ajuda ok vo passa



adm n feche o topico os player tam me ajudando mais q vc sem ofenças n quero ofende vcs ok


$${
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[] = 306;
#li[] = 307;
#li[] = 308;
#li[] = 309;
#li[] = 314;
#li[] = 315;
#li[] = 316;
#li[] = 317;
#li[] = 267;
#li[] = 283;
#li[] = 258;
#li[] = 257;
#li[] = 256;
#li[] = 284;
#li[] = 286;
#li[] = 285;
#li[] = 292;
#li[] = 306;
#li[] = 278;
#li[] = 294;
#li[] = 279;
#li[] = 277;
#li[] = 293;

ACHIEVEMENTGET(limpando inventario,325);
for(#slotn,9,44);
GETSLOTITEM(%#slotn%,#id,#stack);INDEXOF(#li,#index,%#id%);
IF((#index != -1) && (%#id% != 0));
SLOTCLICK(%#slotn%);wait(100ms);slotclick(-999);WAIT(50ms);
ENDIF;
next;
ACHIEVEMENTGET(Inventario limpo,325);
//================================================ discos
ifmatches(%&discos%,s);
}$$
/warp vip
$${
wait(3);
keydown(jump);
wait(2);
keyup(jump);
wait(500ms);
do;
look(EAST);
keydown(forward);
until(%XPOS%=711);
keyup(forward);
do;look(WEST);keydown(right);until(%ZPOS%=652);keyup(right);
do;look(WEST);look(,35);keydown(right);keydown(sneak);key(attack);wait(1ms);until(%ZPOS%=645);wait(10ms);keyup(right);keyup(sneak);do;look(WEST);look(+180,);keydown(forward);until(%XPOS%=733);keyup(forward);do;look(WEST);look(+180,);look(,40);keydown(right);keydown(sneak);key(attack);wait(1ms);until(%ZPOS%=653);wait(10ms);keyup(right);keyup(sneak);
LOG("&3[%PLAYER%]&6Venda terminada.");
}$$
/warp vip
$${
wait(3);
keydown(jump);
wait(2);
keyup(jump);
wait(500ms);
//peixe
keydown(jump);wait(100ms);keyup(jump);
wait(2);do;look(SOUTH);keydown(forward);until(%ZPOS%=666);look(EAST);do;keydown(forward);until(%XPOS%=722);keyup(forward);wait(250ms);
keydown(forward);do;look(SOUTH);keydown(JUMP);until(%ZPOS%=668);keyup(JUMP);do;look(SOUTH);keydown(forward);until(%ZPOS%=672);keyup(forward);
look(205,331);keydown(sneak);
do(15);
key(attack);
wait(350ms);
loop;
keyup(sneak);
}$$
/home pesca
$${
wait(5);
//vende
gui(inventory);
ACHIEVEMENTGET(discos vendidos,2259);
endif;
//================================================ baus
gui();
do;wait(1);
gui(chat);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,80);
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;
}$$

 

[alsantos123]

A área correta não é esta.
Faça um pedido aqui > http://forum.craftlandia.com.br/ipb/index.php?/forum/388-pedidos/
E Você não disse no que precisava de ajuda no macro...

 

[LCassells2]

mais o cara falo pra eu posta pra ve se alguem me passa editada?

 

[lucas maciek]

Poste na área de pedidos de macros.

 

[iSkyDark]

---

Caso resolvido, tópico fechado e tag [Resolvido] Adicionada ao titulo.

Obs: Esta mensagem é automática.