// ************************************************************
// Premium Account Sample - eAmod
// ************************************************************
// Users can come to this script to pay for Premium Time. This mode runs only in the current Account, and expires when the Premium Time is over.
// You can configure bonus experience, discounts in cash shops, and @commands available for Premium Account only.
// Premium Account conf/battle settings ( see eAmod.conf )
// Extra experience Bonus when killing mobs. Value is from 0 to 100, as a Percent. Example 5 = 5%
//premium_bonusexp: 50
// Discount when using Cash Shops. Value is from 0 to 100, as a Percent. Example 5 = 5%
// premium_discount: 0
// Drop boost for Premium account users. Value is %, where 5 become 5%.
// The bonus drop increases the normal drop rate just like Bubble Gum does.
// If normal drop is 30% and premium_dropboost is 10. The final drop rate will be 33%, not 40%.
//premium_dropboost: 50
// Only for eAthena and 3CeAM Builds. rAthena use group simulation on /conf/battle/eAmod.conf setting premium_group_id and /conf/groups.conf files.
// To give access to @commands to Premium Account users, go to the file /conf/atcommand_athena.conf and add an Extra ,1 to each command setting you want to enable for Premium Users.
// Example
// go: 40,80
// That means, 40 GM level using @go, 80 Gm level using #go
// To enable @go to Premium Account just do this:
// go: 40,80,1
prontera,145,171,5 script Platinum Agent 504,{
// Settings: -----------------------------
//set .@Cost, 10000; // Cash Points required
set .@Time, 4 * 7 * 24 * 60 * 60; // Time in Seconds = 4 weeks, 7 days per week, 24 hours per day, 60 minutes per day, 60 seconds per minute. = 1 month in this sample.
set .@Time$, "28 days";
// ---------------------------------------
cutin "jpn_rinne01",2;
mes "[Platinum Agent]";
mes "Hello! I am the agent in charge of Platinum Membership.";
if( isPremium() == 1 )
mes "Your Platinum status expires in ^FF0000" + callfunc("Time2Str",#Premium_Tick) + "^000000.";
mes "What can I do for you?";
next;
// isPremium() returns 1 if the current user Account is Premium and it have not expired.
// It works together with #Premium_Tick, which is a Account Var set with a Unix Time value, representing when the Premium Account expires.
// isPremium() is the same as #Premium_Tick > gettimetick(2)
switch( select("Apply for/Extend Platinum status:What is a Platinum Member?") )
{
case 1:
cutin "jpn_rinne01",2;
mes "[Platinum Agent]";
if( isPremium() == 1 )
mes "Would you like to extend your Platinum Status?";
else
mes "Would you like to be a Platinum Member?";
mes "I can increase your Platinum status by ^FF0000" + .@Time$ + "^000000";
mes "All I require is a ^FF0000Platinum Package Ticket^000000.";
next;
if( select("Yes:No") == 2 )
{
cutin "jpn_rinne02",2;
mes "[Platinum Agent]";
mes "Come back if you change your mind!";
next;
mes "[Platinum Agent]";
mes "sigh...";
cutin "", 255;
close;
}
if(countitem(30019) < 1 ) // ADDED 674 FOR THE MEANTIME
{
cutin "jpn_rinne02",2;
mes "Sorry, but you do not have a ^FF0000Platinum Package Ticket^000000. Please come back when you do!";
next;
mes "[Platinum Agent]";
mes "sigh...";
cutin "", 255;
close;
}
if( isPremium() == 1 )
set #Premium_Tick, #Premium_Tick + .@Time; // Time Extension
else
set #Premium_Tick, gettimetick(2) + .@Time; // New Premium Account
progressbar "ffff00",7;
delitem 30019,1;
specialeffect2 EF_MAPPILLAR;
cutin "jpn_rinne02",2;
mes "[Platinum Agent]";
mes "Congratulations! Thank you for enrolling in the Platinum Program!";
next;
mes "[Platinum Agent]";
mes "Your Platinum status will expire in ^FF0000" + callfunc("Time2Str",#Premium_Tick) + "^000000. Have a nice day!";
cutin "", 255;
close;
case 2:
// Edit this messages to explain your Users about the Premium Account in your server.
// ----------------------------------------------------------------------------------
cutin "jpn_rinne01",2;
mes "[Platinum Agent]";
mes "Premium accounts are a little better than normal accounts. Along with extra commands, Platinum members also gain additional 50% boost of both base and job experience.";
mes "It costs a ^FF0000Platinum Package Ticket^000000 for a 28 day membership. You can buy a ticket for ^FF000020 iRO Tokens^000000. for You might also be lucky and receive a premium ticket from the ^FF0000Intense Gift Box^000000! ";
next;
mes "[Platinum Agent]";
mes "Available Perks for Platinum Accounts";
next;
switch(select("Commands:Additional Perks")) {
case 1:
mes "[Platinum Agent]";
mes "@mobinfo/@mi/@monsterinfo";
mes "@iteminfo/ @ii";
mes "@whodrops";
mes "@font";
mes "@petrename";
mes "@storage";
mes "@homstats";
mes "@hominfo";
mes "@pettalk";
mes "@homtalk";
mes "@whosell";
mes "@return";
mes "@noask";
mes "@whereis";
mes "@aloot";
cutin "", 255;
close;
end;
case 2:
mes "[Platinum Agent]";
mes "Additonal Storage, which is rent storage with 600 slots.";
mes "Additional 50% Job and Base Experience";
mes "Free Stylist";
mes "Free Warpers";
mes "Free Healer";
mes "Free Mail";
mes "Free Cart Rent";
cutin "", 255;
close;
end;
}
}
}