sec_in02,174,146,4	script	Bard#vip		51,{

	if(.delay > gettimetick(2) ){
		mes "[ Bard ]";
		mes "I'm sorry, but I can only play a song every 5 minutes.";
		mes "Please talk to me after a few more minutes.";
		close;
		end;
	}

	mes "[ Bard ]";
	mes "I can play you a number of songs.";
	mes "What would you like to do?";
	switch(select("Play a song:View the list")){

		case 1:
			mes "[ Bard ]";
			mes "What number did you want to play?";
			input .@bgm;
			if(.@bgm > .genre_count+100 || .@bgm < .genre_count){
				next;
				mes "[ Bard ]";
				mes "That is not possible to play right now.";
				close;
				end;
			}
			if(.genre$ == "JPop"){
				for(set .@i,.genre_count;.@i < getarraysize(.title$);.@i++){
					if(.@bgm == .number[.@i])
						set .@bgm_check, .@bgm_check+1;
				}
				if( .@bgm_check < 1 ) {
					mes "[ Bard ]";
					mes "I'm sorry, but what you selected is not available.";
					mes "Please try again.";
					close;
					end;
				}
				next;
				mes "[ Bard ]";
				mes "Splendid choice!";
				mes "I will play it shortly.";
				close2;
				announce strcharinfo(0)+" has chosen to play "+.title$[.@bgm]+" in the AFK Room!",1;
				playBGMall .number$[.@bgm];
				set .delay, gettimetick(2) + 300;
				end;
			}
			else if(.genre$ == "Alternative"){
				for(set .@i,.genre_count;.@i < getarraysize(.title$);.@i++){
					if(.@bgm == .number[.@i])
						set .@bgm_check, .@bgm_check+1;
				}
				if( .@bgm_check < 1 ) {
					mes "[ Bard ]";
					mes "I'm sorry, but what you selected is not available.";
					mes "Please try again.";
					close;
					end;
				}
				next;
				mes "[ Bard ]";
				mes "Splendid choice!";
				mes "I will play it shortly.";
				close2;
				announce strcharinfo(0)+" has chosen to play "+.title$[.@bgm]+" in the AFK Room!",1;
				playBGMall .number$[.@bgm];
				set .delay, gettimetick(2) + 300;
				end;
			}

		case 2:
			next;
			mes "[ Bard ]";
			mes "I can play the following: ";
			mes "^FF0000---------^000000^00FF00---------^000000^0000FF---------^000000";
			mes "[^FF0000Number^000000] - [^0000FFTitle^000000]";
			mes "[^FF0000Current Genre: ^000000^0000FF"+.genre$+"^000000]";
			if(.genre$ == "Alternative")
				for(set .@i,.genre_count; .@i < getarraysize(.title$); .@i++){
					mes "^FF0000"+.number$[.@i]+"^000000 - ^0000FF"+.title$[.@i]+"^000000";
				}
			else if(.genre$ == "JPop")
				for(set .@i,.genre_count; .@i < getarraysize(.title$); .@i++){
					mes "^FF0000"+.number$[.@i]+"^000000 - ^0000FF"+.title$[.@i]+"^000000";
				}
			close;
			end;
	}
OnRepick:
	if(getgmlevel() < 99) end;
OnMinute30:
OnInit:
	bindatcmd "repickgenre",strnpcinfo(3)+"::OnRepick";
	set .@genre,rand(0,1);
		switch(.@genre){
			case 0:
				set .genre$,"JPop";
				setarray .title$[700],"Renai Circulation"; //Title of the Song
				setarray .number$[700],"700"; //Number of the song [ BGM Folder ]
				setarray .number[700],700; //Same as above, need for checks
				set .genre_count,700; //Do not touch
				break;
			case 1:
				set .genre$,"Alternative";
				setarray .title$[600],"In the Zone"; //Title of the Song
				setarray .number$[600],"600"; //Number of the song [ BGM Folder ]
				setarray .number[600],600; //Same as above, need for checks
				set .genre_count,600; //Do not touch
				break;
		}
	announce "Bard: My current genre for now is "+.genre$,0;
	end;
}