ROTD v3

prontera,164,175,4  script  ROTD    436,{
while(1){

mes "^FF0000ROTD^000000 refer to ^0000FFRace of the Day^000000";
mes "In another word, it mean that the ^FF0000Monster's Race^000000 that you killed by day will grant you ^FF0000Extra Bonus EXP / Item / Zeny ^000000.";
next;
mes "[ ^FF0000Today's ROTD^000000 ] = ^0000FF"+.ROTD$[.Race]+"^000000 Race";
mes "^FF0000_____________________________^000000";
mes "Bonus Lists :";
mes "^FF0000@^000000 EXP  = ^0000FF"+( ( !.BonusEXP )?"No":.BonusEXP+" %" )+"^000000 EXP Bonus";
mes "^FF0000@^000000 Zeny = ^0000FF"+( ( !.BonusZeny )?"No":.BonusZeny )+"^000000 Zeny";
mes "^FF0000@^000000 Item = ^0000FF"+( ( !.BonusItemAmount )?"No Items":.BonusItemAmount+" x "+getitemname( .BonusItem ) )+"^000000";
if( .BonusItemAmount ){
    mes "^FF0000@^000000 Rate = ^0000FF"+.BonusRate+"^000000 %";
    mes "^FF0000_____________________________^000000";
    mes "The Amount of Bonus Reward is given ^FF0000Randomly^000000 at a fixed Rate.";
    }
next;
switch(select("^4EEE94ROTD Information^000000",
            "^0000FFSet a New Monster's Race^000000",
            ( getgmlevel() < 80 )?"":"^FF0000[GM]^000000Set EXP Bonus",
            ( getgmlevel() < 80 )?"":"^FF0000[GM]^000000Set Item / Zeny Bonus")){

Case 1:
    mes "Today's ROTD has choosen ^0000FF"+.ROTD$[.Race]+"^000000 Race , which will grant you some ^FF0000Extra Bonus EXP^000000.";
    mes "The amount of ^FF0000EXP Bonus^000000 are ^0000FF"+.BonusEXP+" %^000000.";
    next;
    mes "For ^0000FFParty Members^000000 , they will only receive ^FF0000Bonus EXP^000000 if they didnt killed any monster.";
    mes "Besides, they have to stay in the ^FF0000Same Map^000000 in order to get the ^FF0000EXP Bonus^000000.";
    next;
    break;

Case 2:
    mes "Choose ^FF0000Randomly / Manually^000000 ?";
    for( set .@i,0; .@i < getarraysize( .ROTD$ ); set .@i,.@i+1 ){
        mes "[ ^FF0000"+.@i+"^000000. ] ^0000FF"+.ROTD$[.@i]+"^000000 Race";
        }
    message strcharinfo(0),"Input the Number. Choose Random if you want it Randomise a Race for you.";
    input .Race,0,getarraysize( .ROTD$ )-1;
    next;
    if( .Race == getarraysize( .ROTD$ )-1 ){
    set .Race,rand( getarraysize( .ROTD$ )-1 );
    }
    mes "[ ^FF0000ROTD Update^000000 ]";
    mes "[ ^FF0000Updated^000000 ] = ^0000FF"+.ROTD$[.Race]+"^000000 Race";
    mes "[ ^FF0000Bonus EXP^000000 ] = Extra ^0000FF"+.BonusEXP+"^000000 %";
    announce "[ ROTD ] : New Race : "+.ROTD$[.Race]+" with Bonus EXP of "+.BonusEXP+" % ",bc_blue;
    delwaitingroom;
    waitingroom "[ROTD]:"+.ROTD$[.Race]+" ",0;
    next;
    break;

Case 3:
    mes "Set ^FF0000Random EXP / Manually^000000";
    mes "Input 0 for ^0000FFRandom Bonus EXP Rate^000000";
    mes "Input ^FF0000RATE^000000 for ^0000FFManual Bonus EXP Rate^000000";
    mes "^FF0000EXP Range^000000 : 1% ~ 100%";
    mes "Current Rate = [ ^0000FF"+.BonusEXP+"^000000 % ]";
    input .BonusEXP,0,100;
    if( .BonusEXP == 0 ){
    set .BonusEXP,rand( 1,100 );
    }
    next;
    mes "The New EXP Rate is [ ^0000FF"+.BonusEXP+"^000000 % ]";
    announce "[ ROTD ] : New Race : "+.ROTD$[.Race]+" with Bonus EXP of "+.BonusEXP+" % ",bc_blue;
    next;
    break;

Case 4:
    mes "You may set a ^FF0000 Item / Zeny Bonus^000000 for the ^0000FFROTD^000000.";
    mes "This will work when you have killed a ^FF0000ROTD's Monster^000000, there will be a chances for Player to gain the ^FF0000Item / Zeny^000000.";
    next;
    mes "Input the ^FF0000Zeny Bonus^000000";
    message strcharinfo(0),"You may input 0 to disable it. [ Use it Wisely ]";
    input .BonusZeny;;
    mes "Input the ^FF0000Item ID^000000";
    do{
    input .BonusItem,0,32767;
    }while( getitemname( .BonusItem ) == "null" );
    mes "Input the ^FF0000Item Bonus Amount^000000";
    mes "Range of Amount = 0 ~ 30,000";
    message strcharinfo(0),"You may input 0 to disable it. [ Use it Wisely ]";
    input .BonusItemAmount,0,30000;
    next;
    mes "^FF0000Rate^000000 to get it ??";
    mes "^FF0000100 = 100%^000000";
    mes "^FF0000 10 =  10%^000000";
    mes "^FF0000  1 =   1%^000000";
    mes "^FF0000  0 = DISABLED^000000";
    input .BonusRate,0,100;
    next;
    mes "[ ^FF0000ROTD Update^000000 ]";
    mes "^0000FFZeny Bonus^000000 : "+.BonusZeny+" Zeny";
    mes "^0000FFItem Bonus^000000 : "+.BonusItemAmount+" x "+getitemname( .BonusItem );
    mes "^0000FFItem Rate^000000  : "+.BonusRate+" %";
    next;
    break;
    }
}
close;

OnInit:
OnClock0000:
setarray .ROTD$[0],
                "Formless",
                "Undead",
                "Brute",
                "Plant",
                "Insect",
                "Fish",
                "Demon",
                "Demi-Human",
                "Angel",
                "Dragon",
                "Random";

set .Race,rand( 10 );
set .BonusEXP,rand( 1,100 );
set .ExpLvlRange,10;
delwaitingroom;
waitingroom "[ROTD]:"+.ROTD$[.Race]+" ",0;
end;

OnNPCKillEvent:
if( getmonsterinfo( killedrid,19 ) != .Race  )end;
set .@Location$,strcharinfo(3);
set .BaseLvl,BaseLevel;
getpartymember getcharid(1),1;
getpartymember getcharid(1),2;
for ( set .@a, 0; .@a < .partymembercount; set .@a, .@a +1 ){
    if ( isloggedin( .partymemberaid[.@a] )  ){
        attachrid( .partymemberaid[.@a] );
            if( strcharinfo(3) == .@Location$ && ( .BaseLel - BaseLevel ) <= .ExpLvlRange ){
            getexp ( getmonsterinfo( killedrid,3 ) * .BonusEXP / 100 ),( getmonsterinfo( killedrid,4 ) * .BonusEXP / 100 );
            }
        }
    }
    if( rand(100) <= .BonusRate && .BonusItemAmount ){
        getitem .BonusItem,rand( 1,.BonusItemAmount );
        }
    if( rand(100) <= .BonusRate && .BonusZeny ){
        set Zeny,Zeny + rand( 1,.BonusZeny );
        }
    end;
}