Snaehild 0 Posted July 22, 2014 I tried this VIP system from Diconfrost VaNz. Is it possible to make it stack with the default item modifiers like bubble gum and field manuals? 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_CASH_PLUSEXP,(( prmm - gettimetick(2) ) * 1000 ),150; sc_start SC_CASH_PLUSONLYJOBEXP,(( prmm - gettimetick(2) ) * 1000 ),150; sc_start SC_CASH_RECEIVEITEM,(( prmm - gettimetick(2) ) * 1000 ),150; 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_CASH_PLUSEXP; sc_end SC_CASH_PLUSONLYJOBEXP; sc_end SC_CASH_RECEIVEITEM; set prmm, 0; dispbottom "Premium Services has ended."; }end; Quote Share this post Link to post Share on other sites
I tried this VIP system from Diconfrost VaNz. Is it possible to make it stack with the default item modifiers like bubble gum and field manuals?
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_CASH_PLUSEXP,(( prmm - gettimetick(2) ) * 1000 ),150; sc_start SC_CASH_PLUSONLYJOBEXP,(( prmm - gettimetick(2) ) * 1000 ),150; sc_start SC_CASH_RECEIVEITEM,(( prmm - gettimetick(2) ) * 1000 ),150; 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_CASH_PLUSEXP; sc_end SC_CASH_PLUSONLYJOBEXP; sc_end SC_CASH_RECEIVEITEM; set prmm, 0; dispbottom "Premium Services has ended."; }end;Share this post
Link to post
Share on other sites