// Euphy's Premium Account modified by shadowseph. Thanks to them! :))

prontera,149,284,5	script	Premium Setter	899,{
function getPremiumTime;

mes "Want to buy ^0055FFPremium Time^000000 ?";
if( select( "Purchase ^0055FFPremium Time^000000:Cancel" ) == 1 ){
	if( #Premium*1000 != 0 ){
		next;
		mes "Sorry but your ^0055FFPremium Time^000000 is currently activated which will end after "+getPremiumTime( #Premium );
		next;
		mes "You must wait for it to expire before purchasing ^0055FFPremium Time^000000 again";
		next;
		mes "Come back again next time! Thanks!";
		close;
	}
next;
mes "1 Day = "+.DayCost+" Cash Points";
mes "How many Day(s) you want to buy ?";
input .@Day;
if( .@Day || #CASHPOINTS < ( .@Day * .DayCost ) ){
	if( #CASHPOINTS < ( .@Day * .DayCost ) ){
		next;
		mes "You need more "+( ( .@Day * .DayCost ) - #CASHPOINTS )+" Cash Points.";
	}else{
		next;
		mes "You plan to purchase "+.@Day+" Day(s) which total cost is "+( .@Day * .DayCost )+" Cash Points.";
		if( select("Confirm:Cancel") == 1 ){
			set #CASHPOINTS,#CASHPOINTS - ( .@Day * .DayCost );
			set #Premium,#Premium + ( .@Day * 24 * 3600 );
			next;
			mes "You have purchased "+.@Day+" day(s) of Premium Time.";
			sc_start SC_PREM_EXP,(#Premium * 1000),100;
			sc_start SC_PREM_DROP,(#Premium * 1000),200;
		}
	}
}

}
close;

function	getPremiumTime	{
set .@Time,getarg(0);
	set .@SecondLeft,( .@Time % 60 );
	set .@MinuteLeft,( .@Time / 60 % 60 );
	set .@HourLeft,( .@Time / ( 60 * 60 ) % 24 );
	set .@DayLeft,( .@Time / ( 24 * 60 * 60 ) );
	
	set .@TimeLeft$,(( .@DayLeft )?.@DayLeft+" Day(s) ":"" ) +
					(( .@HourLeft )?.@HourLeft+" Hr(s) ":"" ) +
					(( .@MinuteLeft )?.@MinuteLeft+" Min ":"" ) +
					(( .@SecondLeft )?.@SecondLeft+" Sec":"" );				
return ""+.@TimeLeft$+"";
}

OnPCLoginEvent:
if( #Premium*1000 != 0 ){
	announce "Your Premium Time Left : "+getPremiumTime( #Premium )+"",bc_self,0xFFFFFF;
}
end;


OnInit:
setarray .DayCost,500;
end;
}