ENTREGUE [MACRO]Venda de MELANCIA NA WARP LOJA [1.8]PROPANO

*editei outra macro para ser compativel com a 1.8 e vender melancia

Sethomes:
/sethome melon - na FARM automatica de melancia
/sethome wloja - na frente da placa de melancia(warploja)

---------------------------------------------------------------------
VENDA DE MELANCIA WARP LOJA

$${
IF(vcacto);
//////////////////////////
// VALOR WARP VIP
#wvv=124
// VALOR WARP LOJA
#wlv=64
//////////////////////////
LOG("&3[%PLAYER%] &6Coleta e venda &4[OFF]");
UNSET(vcacto);GUI();
STOP();
ELSE;
LOG("&3[%PLAYER%] &6Coleta e venda &2[ON]");
LOG("&3[%PLAYER%] &3Para desligar pressione %KEYNAME%");
SET(vcacto);#nslot=9;#sok=0;#sok2=0;#svazio=0;#cct=0;
ENDIF;
////////////////////////////////////////////
gui(inventory);wait(500ms);
log("&6Mantenha seu inventário &faberto!");
log("&6Preparando relatório, &faguarde...");
////////////////////////////////////////////
do;
getslotitem(%#nslot%,&id,#stack)
ifmatches(%&id%,air);
INC(#svazio,1);
else;
if(%&id%=melon);
if(%#stack%=64);
INC(#sok,1);
INC(#cct,64);
else;
INC(#cct,%#stack%);
endif;
else;
INC(#sok2,1);
endif;
endif;
INC(#nslot,1);
until(%#nslot% = 45);
#lucro=%#sok%*%#wvv%;
#lucro2=%#sok%*%#wlv%;

log("----------------------------");
log("&6Packs de melancia completos: &f%#sok%");
log("&6Slots com outros itens: &f%#sok2%");
log("&6Quantidade atual de melancias: &f%#cct%");
log("&6Lucro na warp vip: &f%#lucro%");
log("&6Lucro na warp loja: &f%#lucro2%");
log("----------------------------");
////////////////////////////////////////////
}$$
$${
////////////////////////////////////////////
log("&6Mantenha seu inventário &faberto!");
DO;
gui(inventory);wait(500ms);
#nslot=9;#sok=0;#sok2=0;#svazio=0;#cct=0;
do;
getslotitem(%#nslot%,&id,#stack)
ifmatches(%&id%,air);
INC(#svazio,1);
else;
ifmatches(%&id%,cactus);
if(%#stack%=64);
INC(#sok,1);
INC(#cct,64);
else;
INC(#cct,%#stack%);
INC(#svazio,1);
endif;
endif;
endif;
INC(#nslot,1);
until(%#nslot% = 45);

#lucro=%#sok%*%#wvv%;
#lucro2=%#sok%*%#wlv%;

if(SHIFT);
log("----------------------------");
log("&6Quantidade atual de melancias: &f%#cct%");
log("&6Lucro na warp vip (somente packs): &f%#lucro%");
log("&6Lucro na warp loja (somente packs): &f%#lucro2%");
log("----------------------------");
endif;

if(%#svazio%=0);
log("----------------------------");
log("Itens prontos para venda!");
log("&6Quantidade atual de melancias: &f%#cct%");
log("&6Lucro na warp vip (somente packs): &f%#lucro%");
log("&6Lucro na warp loja (somente packs): &f%#lucro2%");
log("----------------------------");
GUI();

}$$
/home wloja
$${
wait(10);
do(40);
key(attack);
wait(600ms);
loop;
}$$
/home melon
$${
wait(2);
endif;
LOOP;
}$$