viewing paste Unknown #13790 | 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
-       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 (#premium) {
        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.";
}
}
 
OnAtcommand:
dispbottom "Your Premium Service will expire after " + callfunc("Time2Str",prmm);
 
OnInit: bindatcmd "premium",strnpcinfo(3)+"::OnAtcommand"; end;
 
}
Viewed 662 times, submitted by Pneuma.