prontera,164,171,3	script	Race Of The Day	4_F_FAIRYKID,{

	mes "[ ^FF0000Monster Race Of The Day^000000 ]";
	mes "^FF0000MROTD^000000 refer to";
	mes "^0000FFMonster Race of the Day^000000";
	mes "In another word, it mean that the ^FF0000Monster and Race^000000 that you killed by day will grant you ^FF0000Extra Bonus Item & Experience^000000.";
	next;
	mes "[ ^FF0000Monster Race Of The Day^000000 ]";
	mes "Races : ^0000FF"+$rotd$[getrotdrace()]+"^000000";
	mes "Currently gives : ^777777"+getrotdexp()+"% more exp.^000000";
	mes " ";
	mes "Mob name : ^0000FF"+getmonsterinfo ( getmotdinfo(1),MOB_NAME )+"^000000";
	mes "Exp bonus : ^777777"+getmotdinfo(4)+"% more exp.^000000";
	mes "Item bonus : ^777777"+getitemname( getmotdinfo(2) )+"^000000";
	close;

OnChangeROTD:
	delwaitingroom;
	waitingroom "[R] "+$rotd$[getrotdrace()]+", [M] "+getmonsterinfo ( getmotdinfo(1),MOB_NAME )+"",0;
	end;

OnInit:
	setarray $rotd$[0],
		"Formless",
		"Undead",
		"Brute",
		"Plant",
		"Insect",
		"Fish",
		"Demon",
		"Demi Human",
		"Angel",
		"Dragon";
	$rotd_size = getarraysize( $rotd$ );

	for( .@i = 0; .@i < $rotd_size; .@i++ )
		$rotd_menu$ = $rotd_menu$ + $rotd$[.@i] +":";

	$rotd_menu$ = $rotd_menu$ + "^0055FFRandom Race^000000";

OnClock0001:
	setrotd rand( $rotd_size ), rand( 75,200 );
	delwaitingroom;
	waitingroom "[R] "+$rotd$[getrotdrace()]+", [M] "+getmonsterinfo ( getmotdinfo(1),MOB_NAME )+"",0;
	end;
}