[MACRO] Cacto automatica

$${
if(cac);
LOG(&3[%PLAYER%] &6cacto &4[OFF]);
LOG(&3[%PLAYER%] &6numero de andares construidos: &a%#number%);
unset(cac);KEYUP(jump);stop();
else;
set(cac)
LOG(&3[%PLAYER%] &6cacto &a[ON]);
#count=;
PROMPT(#count,$$?,"Andares:");

#number=0
&dly=2
&ff = %DIRECTION%;
ifmatches(%&ff%,N);&ff=NORTH;endif;
ifmatches(%&ff%,S);&ff=SOUTH;endif;
ifmatches(%&ff%,E);&ff=EAST;endif;
ifmatches(%&ff%,W);&ff=WEST;endif;

if(%#count% <1 )
LOG(&3[%PLAYER%] &6cacto &4[OFF]);
LOG(&3[%PLAYER%] &6numero de andares construidos: &a%#number%);
unset(cac);KEYUP(jump);stop();
endif;

do;

//=========================================

//=======terra

//=======frente
pick(3);
look(%&ff%);look(+25,);
look(,35);
wait(100ms);
key(use);
wait(100ms);

//=======direita
pick(3);
look(%&ff%);look(+60,);
look(,35);
wait(100ms);
key(use);
wait(100ms);

//=======esquerda
pick(3);
look(%&ff%);
look(,60);
wait(100ms);
key(use);
wait(100ms);

//=======atras
pick(3);
look(%&ff%);look(+90,);
look(,60);
wait(100ms);
key(use);
wait(100ms);

//=======pulo
KEYDOWN(jump);
WAIT(100ms);
KEYUP(jump);
WAIT(%&dly%);

//=========================================

//=======areia
//=======frente
pick(12);
look(%&ff%);look(+25,);
look(,35);
wait(100ms);
key(use);
wait(100ms);

//=======direita
pick(12);
look(%&ff%);look(+60,);
look(,35);
wait(100ms);
key(use);
wait(100ms);

//=======esquerda
pick(12);
look(%&ff%);
look(,60);
wait(100ms);
key(use);
wait(100ms);

//=======atras
pick(12);
look(%&ff%);look(+90,);
look(,60);
wait(100ms);
key(use);
wait(100ms);

//=======pulo
KEYDOWN(jump);
WAIT(100ms);
KEYUP(jump);
WAIT(%&dly%);

//=========================================

//=======cacto
//=======frente
pick(81);
look(%&ff%);look(+25,);
look(,35);
wait(100ms);
key(use);
wait(100ms);

//=======direita
pick(81);
look(%&ff%);look(+60,);
look(,35);
wait(100ms);
key(use);
wait(100ms);

//=======esquerda
pick(81);
look(%&ff%);
look(,60);
wait(100ms);
key(use);
wait(100ms);

//=======atras
pick(81);
look(%&ff%);look(+90,);
look(,60);
wait(100ms);
key(use);
wait(100ms);

//=======pulo
KEYDOWN(jump);
WAIT(100ms);
KEYUP(jump);
WAIT(%&dly%);

//=========================================

//=======centro
//=======meio
pick(3);
look(%&ff%);look(+40,);
look(,50);
wait(100ms);
key(use);
wait(100ms);

//=======pulo
KEYDOWN(jump);
WAIT(100ms);
KEYUP(jump);
WAIT(%&dly%);

//=========================================

INC(#number,1);

if(%#number% = %#count%);
LOG(&3[%PLAYER%] &6cacto &4[OFF]);
LOG(&3[%PLAYER%] &6numero de andares construidos: &a%#number%);
unset(cac);KEYUP(jump);stop();
else;
LOG(&3[%PLAYER%] &6numero de andares construidos: &a%#number%);
endif;
loop;

 }$$