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