prontera,155,181,5  script  Sample  757,{
mes "Wan to be Premium Users for 1 week ?";
mes "Then give me "+.Amount+" x "+getitemname(.ItemID);
if( countitem( .ItemID ) >= .Amount ){
    if( select("YES:NO") == 1 ){
        delitem .ItemID,.Amount;
        set #PremiumUser,gettimetick(2) + ( .Day * 3600 * 24 );
        sc_start SC_ITEMBOOST,( #PremiumUser * 1000 ),200;
        sc_start SC_EXPBOOST,( #PremiumUser * 1000 ),200;
        mes "Done. enjoy your Premium Services for 1 Week.";
    }
}
close;
 
OnPCLoginEvent:
if( #PremiumUser > gettimetick(2) ){
    sc_start SC_ITEMBOOST,( ( #PremiumUser - gettimetick(2) ) * 1000 ),200;
    sc_start SC_EXPBOOST,( ( #PremiumUser - gettimetick(2) ) * 1000 ),200;
}
end;
}