viewing paste Premium Users ? | Athena

Posted on the
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
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.";
        }
}
 
OnPCLoginEvent:
if( #PremiumUser > gettimetick(2) ){
        sc_start SC_ITEMBOOST,( ( #PremiumUser - gettimetick(2) ) * 1000 ),200;
        sc_start SC_EXPBOOST,( ( #PremiumUser - gettimetick(2) ) * 1000 ),200;
}
}
Viewed 2067 times, submitted by Emistry.