-    script    FloatingRates    -1,{
OnPCLoginEvent:
OnPCLogoutEvent:
if (getusers(1) >= 5) {
if (getbattleflag("base_exp_rate")==10000 && getbattleflag("job_exp_rate")==10000) {
set $@brate,rand(15000,30000);
set $@jrate,rand(15000,30000);
set $@drate,2000;
setbattleflag "base_exp_rate", $@brate;
setbattleflag "job_exp_rate", $@jrate;
atcommand "@reloadmobdb";
announce "Current floating rates are: "+($@brate/100)+"x"+($@jrate/100)+"x"+($@drate/100)+"x",bc_blue|bc_all;
}
} else if (getusers(1) < 4) {
if (getbattleflag("base_exp_rate")>10000 || getbattleflag("job_exp_rate")>10000) {
set $@brate,10000;
set $@jrate,10000;
set $@drate,2000;
setbattleflag "base_exp_rate", $@brate;
setbattleflag "job_exp_rate", $@jrate;
atcommand "@reloadmobdb";
announce "Current normal rates are: "+($@brate/100)+"x"+($@jrate/100)+"x"+($@drate/100)+"x",bc_blue|bc_all;
delwaitingroom "Info NPC";
donpcevent "Info NPC::OnInit";
}
}
end;
}
 
 
prontera,150,150,5  script  Info NPC    99,{
end;
OnInit:
waitingroom "Rates: "+$@brate/100+"x/"+$@jrate/100+"x/"+drate/100+"x",0;
end;
}