viewing paste Premium/ViP Services System | Athena

Posted on the | Last edited on
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
// ------------------------------------------------------------------------------------------
// ------ Script Release
// Title: Premium/ViP Services System
// Author: Diconfrost VaNz - diconfrost13@gmail.com - http://www.facebook.com/diconfrost13
// 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,155,181,5  script  Clahador    757,{
 
    mes "[^FF0000Clahador^000000]";
    mes "Hello "+strcharinfo(0)+", I'm ^FF0000Clahador the butcher^000000.";
    mes "I will be of help if you need something.";
next;
    mes "[^FF0000Clahador^000000]";
    mes "Oh! you need help?";
    mes "What kind of help do you need?";
next;
    menu "Newbie here",P_New,"I'm a ViP!",P_VIP,"Nevermind",P_NVM;
 
P_New:
    mes "[^FF0000Clahador^000000]";
    mes "Did you already claim your free items in the ^FF0000Freebies NPC^000000???";
        menu "Yes!",F_Yes,"No!",F_No;
 
F_No:
    mes "[^FF0000Clahador^000000]";
    mes "You should get 'em!.";
    mes "It will help you on the start.";
    close;
 
F_Yes:
    mes "[^FF0000Clahador^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 "[^FF0000Clahador^000000]";
    mes "Oh you avail our ViP Ticket!";
    mes "Thank you!";
    next;
    mes "[^FF0000Clahador^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 "[^FF0000Clahador^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",premium);
        sc_start SC_EXPBOOST,(( prmm - gettimetick(2) ) * 1000 ),200;
        sc_start SC_JEXPBOOST,(( prmm - gettimetick(2) ) * 1000 ),200;
        sc_start SC_ITEMBOOST,(( prmm - gettimetick(2) ) * 1000 ),100;
        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; 
 
}
Viewed 4942 times, submitted by diconfrost13.