// ------------------------------------------------------------------------------------------
// ------ Script Release
// Title: Premium/ViP Services System
// Author: Diconfrost VaNz - www.wipeoutgaming.info - etherealruneguard@yahoo.com
// Version: 2.1
// Special thanks to the following for helping me making this script
// Jezu
// Dastgr
// clydelion
//
// Note: This is a character-based script. If you want to make this into Account-Based, just put "#" beside "prmm".
// ------------------------------------------------------------------------------------------
prontera,154,196,4	script	Premium Membership	833,{

	mes "[^FF0000Premium Membership Manager^000000]";
	mes "Hello "+strcharinfo(0)+", I'm the one in charge of all Premium Memberships for tbRO.";
	mes "How may I help you today?";
next;
	menu "Tell me about Premium Membership.",P_New,"I'm already ViP!",P_VIP,"Nevermind",P_NVM;

P_New:
	mes "[^FF0000Premium Membership Manager^000000]";
	mes "Premium membership will gain you extra 50% boost of both BASE and JOB experience with additional 100% drop rate.";
	mes "To avail of a Premium Membership for 3 days, you need a ^FF0000Midgard Premium Ticket^000000 that's available in Donation, Vote and Poring Shop.";
		menu "Yes!",F_Yes,"No!",F_No;

F_No:
	mes "[^FF0000Premium Membership Manager^000000]";
	mes "You should get 'em!.";
	mes "It will help you on the start.";
	close;

F_Yes:
	mes "[^FF0000Premium Membership Manager^000000]";
	mes "Haha, i hope you like those items.";
	next;
	mes "By the way, you can earn zennies through quests like going to daily quest, request board, and many more!";
	mes "Did you know that you can have many zennies you want if you gonna hunt more rare items?";
	mes "Try it!";
	close;

P_VIP:
	mes "[^FF0000Premium Membership Manager^000000]";
	mes "Oh you avail our ViP Ticket!";
	mes "Thank you!";
	next;
	mes "[^FF0000Premium Membership Manager^000000]";
	mes "Your Premium Service will expire after " + callfunc("Time2Str",prmm);
	mes "You should maximize it";
	mes "Grind your skills and hunt now!";
	close;

P_NVM:
	mes "[^FF0000Premium Membership Manager^000000]";
	mes "Thank you!";
	mes "Come Again!";
	close;
}

function	script	getPremium	{
	set .@ticks, getarg(0);
	if (.@ticks <= 0)
	{
		debugmes "getPremium - tried to set a timer in the past";
		end;
	}
	set prmm, ((prmm > gettimetick(2)) ? prmm : gettimetick(2)) + .@ticks;
	doevent "login::OnPCLoginEvent";
	return;
}

-	script	login	-1,{
OnPCLoginEvent:
	if (prmm > gettimetick(2)) {
		dispbottom "Your Premium Service will expire after " + callfunc("Time2Str",prmm);
		sc_start SC_ITEMBOOST,(( prmm - gettimetick(2) ) * 1000 ),200;
		sc_start SC_EXPBOOST,(( prmm - gettimetick(2) ) * 1000 ),200;
		sc_start SC_JEXPBOOST,(( prmm - gettimetick(2) ) * 1000 ),200;
		atcommand "@adjgroup 1 "+strcharinfo(0);
		deltimer strnpcinfo(3)+"::OnPCLoginEvent";
		if ((prmm - gettimetick(2)) < 2147483)
		{
			addtimer (prmm - gettimetick(2)) *1000, strnpcinfo(3)+"::OnPCLoginEvent";
		}
		else
		{
			addtimer 2147483000, strnpcinfo(3)+"::OnPCLoginEvent";
		}
	} else if (prmm) {
		atcommand "@adjgroup 0 "+strcharinfo(0);
		sc_end SC_EXPBOOST;
		sc_end SC_JEXPBOOST;
		sc_end SC_ITEMBOOST;
		set prmm, 0;
		dispbottom "Premium Services has ended.";
	}
end;

OnAtcommand:
	dispbottom "Your Premium Service will expire after " + callfunc("Time2Str",prmm);
	end;

OnInit:
	bindatcmd "premium",strnpcinfo(3)+"::OnAtcommand";
	end;

}