$${
IF(vcacto);
//////////////////////////
// VALOR WARP VIP
#wvv=30
// VALOR WARP LOJA
#wlv=20
//////////////////////////
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%=360);
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 Melancias 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%,360);
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();
}$$
/warp vip
$${
wait(4200ms);
do;
look(east);
keydown(forward);
until(%XPOS%==719);
keyup(forward)
do;
look(south);
keydown(forward);
until(%ZPOS%==667);
do;
keydown(jump);
until(%ZPOS%==669);
keyup(jump);
do;
until(%ZPOS%==674);
keyup(forward);
look(south);
look(,15);
do(3);
key(attack);
wait(300ms);
loop;
loop;
endif;
}$$
/home cacto
$${
wait(2);
endif;
LOOP;
}$$
