could anyone please modif this script to make it works on rathena??? its eathena script though
//========= Description ===========
// Floating Rates NPC, accesible via WHISPER
//========= By ============
// Kitsune (www.ro.noobfury.com)
//========= Version ===========
// 1.0 - Working version archieved. [Kitsune]
// 1.1 - Added a random rate float and added auto rate multipliers. [Kitsune]
// 1.2 - Added a event announce on login and corrected some bugs. [Kitsune]
//========= Works on =========
// Eathena 900+ ?
//===========================
//++EDIT++
// If you want this NPC to be invisible, uncomment the first line
// and comment the second.
//script frates -1,{
prt_in,94,70,5 script FloatingRates 939,{
OnWhisperGlobal:
if (getgmlevel() == 99){
mes "["+$servername$+" Rates event]";
mes "Hello master ^0000FF" + strcharinfo(0) +"!";
mes "^000000What must i do for you?";
switch (select("Manual rate float & set","Cancel ongoing float","Set event Time","Exit","Randomic Rate Float")){
case 1:
next;
mes "["+$servername$+" Rates event]";
mes "Please tell me which Base rate you want";
mes "PS: It gets multiplied auto!";
input $mbrate;
set $mbrate,$mbrate*100; //Multiplies the rate by 100 So you don't have to put the raw rate.
next;
mes "["+$servername$+" Rates event]";
mes "Please tell me which Job rate you want";
mes "PS: It gets multiplied auto!";
input $mjrate;
set $mjrate,$mjrate*100;
next;
mes "["+$servername$+" Rates event]";
mes "Want to change the drop rates?";
switch (select("Yes","No")){
case 1:
next;
mes "["+$servername$+" Rates event]";
mes "Please tell me which DROP rate you want";
mes "PS: It gets multiplied auto!";
input $mdrate;
set $mdrate,$mdrate*100;
break;
case 2:
next;
set $mdrate,0;
break;
}
mes "["+$servername$+" Rates event]";
mes "Ok the rates are:";
mes "Base:^0000FF"+($mbrate/100);
mes "^000000Job:^FF0000"+($mjrate/100);
if ($mdrate == 0){
mes "^000000Drop:^00FF00Not changed!";
} else {
mes "^000000Drop:^00FF00"+($mdrate/100);
}
next;
mes "["+$servername$+" Rates event]";
mes "It\'s ok to change?";
switch (select("Yes","No")){
case 1:
next;
mes "["+$servername$+" Rates event]";
mes "O.K.!! Changing the rates now!";
next;
mes "["+$servername$+" Rates event]";
mes "Rate sucessfuly changed! Have fun.";
close2;
callfunc("ratechange");
callfunc("defaultrates");
end;
case 2:
next;
mes "["+$servername$+" Rates event]";
mes "Bailing out!";
close;
}
case 2:
next;
mes "["+$servername$+" Rates event]";
mes "Are you sure that you want to cancel the ongoing float?";
switch (select("Yes","No")){
case 1:
next;
mes "["+$servername$+" Rates event]";
mes "Cancelling...";
callfunc("defaultrates");
next;
mes "["+$servername$+" Rates event]";
mes "Rate float cancellated";
close;
case 2:
next;
mes "Bailing out!";
close;
}
case 3:
next;
mes "["+$servername$+" Rates event]";
mes "Please input the new time duration of the event in HOURS";
input $tempo;
next;
mes "["+$servername$+" Rates event]";
mes "The new time is "+$tempo+" Hours";
close;
case 4:
close;
case 5:
next;
mes "["+$servername$+" Rates event]";
mes "Radomically changing rates";
close2;
callfunc("randomrates");
callfunc("ratechange");
callfunc("defaultrates");
end;
}
}
mes "["+$servername$+" Rates event]";
mes "Good day "+strcharinfo(0);
mes "I Shall not be used by non GM caracters";
close;
//Hours that the script runs - OPTIONAL
//Horas que o script vai rodar - OPCIONAL
Onclock2200:
Onclock1200:
callfunc("randomrates");
callfunc("ratechange");
callfunc("defaultrates");
end;
//--------------------------------
OnInit:
//DEFAULT RATES GOES HERE
//RATE PADR�O AQUI
set $basedefault,200000;
set $jobdefault,200000;
set $itemdefault,100000;
//MAXIMUM RANDOM RATE FLOAT
//RATE RANDOM MAXIMA
set $basemaxrandom,300000;
set $jobmaxrandom,300000;
set $itemmaxrandom,150000;
//SERVER NAME GOES HERE!!!
//NOME DO SEU SERVER AQUI!!!
set $servername$,"NoobFury RO";
//Sets the default time in hours.
//Coloca o tempo padr�o
if (!$tempo) set $tempo,1;
debugmes "NPC: Floating Rates Loaded Successfully";
end;
}
function script ratechange {
//Base exp
setbattleflag("base_exp_rate",$mbrate);
//Job exp
setbattleflag("job_exp_rate",$mjrate);
//Drops caso use
if ($mdrate != 0){
setbattleflag("item_rate_common",$mdrate);
setbattleflag("item_rate_heal",$mdrate);
setbattleflag("item_rate_use",$mdrate);
setbattleflag("item_rate_equip",$mdrate);
announce $servername$+" ADMINS PROUDLY PRESENTS!",bc_all,0xFFFFFF;
sleep 3000;
announce "Super Rates Event Time!!!",bc_all,0xFFFFFF;
sleep 5000;
announce "LOOK! THE RATES CHANGED!: Base:"+($mbrate/100)+"x
Job:"+($mjrate/100)+"x Drops:"+($mdrate/100)+"x",bc_all,0xFFFFFF;
sleep 5000;
announce "Run Cause this will last "+$tempo+" hour only!!!",bc_all,0xFFFFFF;
atcommand "@reloadmobdb";
set $fratesevent,1;
sleep2 $tempo*60*60*1000;
return;
}
announce $servername$+" ADMINS PROUDLY PRESENTS!",bc_all,0xFFFFFF;
sleep 3000;
announce "Super Rates Event Time!!!",bc_all,0xFFFFFF;
sleep 5000;
announce "LOOK! THE RATES CHANGED!: Base:"+($mbrate/100)+"x Job:"+($mjrate/100)+"x",bc_all,0xFFFFFF;
sleep 5000;
announce "Run \'cause this will last "+$tempo+" hour only!!!",bc_all,0xFFFFFF;
atcommand "@reloadmobdb";
set $fratesevent,1;
sleep2 $tempo*60*60*1000;
return;
}
function script defaultrates {
//Base exp
setbattleflag("base_exp_rate",$basedefault);
//Job exp
setbattleflag("job_exp_rate",$jobdefault);
//Drops caso use
if ($mdrate != 0){
setbattleflag("item_rate_common",$itemdefault);
setbattleflag("item_rate_heal",$itemdefault);
setbattleflag("item_rate_use",$itemdefault);
setbattleflag("item_rate_equip",$itemdefault);
}
announce "Rates Changed Back to normal!",bc_all,0xFFFFFF;
set $fratesevent,0;
atcommand "@reloadmobdb";
return;
}
function script randomrates {
set $mbrate,rand($basedefault,$basemaxrandom);
set $mjrate,rand($jobdefault,$jobmaxrandom);
set $mdrate,rand($itemdefault,$itemmaxrandom);
return;
}
- script ratesevent -1,{
OnPcLoginEvent:
if ($fratesevent == 1) dispbottom "Super rates Event currently active!";
end;
}
Question
YuliChenz
could anyone please modif this script to make it works on rathena??? its eathena script though
Code tag.
Link to comment
Share on other sites
16 answers to this question
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.