$${
if(a);
unset(a);
log(&a[Macro &4OFF);
stop();
else;
set(a);
PROMPT(#nbau,$$?,Quantos baus vc vai limpar?);
PROMPT(#qbau,$$?,Começar por qual bau?);
wait(50ms);
do;
if(%#qbau%=%#nbau%+1);
unset(a);
log(todos os baus foram limpos);
stop();
endif;
log(indo para o bau %#qbau%);
echo(/home disco%#qbau%);
wait(3);
key(use);
wait(3);
#tempvar = 0;
#li[] = 265;
#li[] = 38;
#li[] = 262;
#li[] = 289;
#li[] = 287;
for(#slotn,0,53);
GETSLOTITEM(%#slotn%,#id,#stack);INDEXOF(#li,#index,%#id%);
IF((#index != -1) && (%#id% != 0));
SLOTCLICK(%#slotn%,l);SLOTCLICK(-999);WAIT(250ms);
ENDIF;
NEXT;
inc(#qbau);
loop;
endif;
}$$