viewing paste Unknown #12931 | 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 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152
// ************************************************************
// 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;
        }
    }
}
 
Viewed 1021 times, submitted by Guest.