//===== rAthena Script ======================================= 
// Minstrel Job change Quest
//===== By: ================================================== 
//= Masao
//= Credits: Muad_Dib
//===== Current Version: ===================================== 
//= 1.1
//===== Compatible With: ===================================== 
//= Any rAthena SVN
//===== Description: ========================================= 
//= [AEGIS Conversion]
//= Job change Quest from Bard / Clown -> Minstrel.
//===== Additional Comments: ================================= 
//= 1.0 First Version.
//= 1.1 Fix the checking of requirements before job change to Minstel - [JayPee]
//============================================================

alberta,196,133,4	script	Bard#job_min	486,{

	if ((Class >= 4023) && (Class <= 4045)){
		mes "[Bard]";
		mes "Youngling~ On the sea, you should be careful!";
		mes "There are terrible monsters there.";
		next;
		mes "[Bard]";
		mes "I've heard that they eat people!";
		close;
	}

	if (job_min == 0){
		if (Class == Job_Bard || Class == Job_Clown){
			if ((BaseLevel > 98) && (JobLevel > 49)){
				mes "[Bard]";
				mes "The voice of heaven revolves around in my ears";
				mes "like a wandering wind,";
				next;
				mes "[Bard]";
				mes "Even though I close my eyes and cover my ears,";
				mes "I can hear a voice from somewhere,";
				next;
				mes "[Bard]";
				mes "It put temptation in exhausted crewman to deep sleep,";
				mes "made them feel as if they were in a land of dreams.";
				next;
				mes "[Girl]";
				mes "Ahhh!! Awesome!!";
				next;
				mes "[Boy]";
				mes "Encore!! Encore!!!";
				next;
				mes "[Old Man passing by]";
				mes "Eeeee~ that's not real song...";
				next;
				mes "["+strcharinfo(0)+"]";
				mes "Clap.";
				mes "I can feel the rhythm.";
				mes "Can I hear one more song?";
				next;
				mes "[Bard]";
				mes "Hum?";
				mes "Juding by your outfit I think you are good at singing, why don't you sing us a song?";
				next;
				mes "["+strcharinfo(0)+"]";
				mes "??!!";
				next;
				mes "[Bard]";
				mes "Hahaha!";
				mes "Just kidding.";
				mes "Were you serious? Haha.";
				next;
				mes "["+strcharinfo(0)+"]";
				mes "...";
				next;
				mes "[Karian]";
				mes "Sorry~";
				mes "Don't be upset...";
				mes "My name is Karian, I'm just going around.";
				next;
				mes "[Karian]";
				mes "Do you want to go somewhere?";
				mes "Alberta is perfect for traveling.";
				next;
				mes "[Karian]";
				mes "But when you go to sea, you have to be careful.";
				mes "If you run into a Siren, then it's only a matter of time before she kills you.";
				next;
				mes "[Karian]";
				mes "No man can survive after hearing ^f57d7dthe voice of a Siren^000000.";
				next;
				mes "["+strcharinfo(0)+"]";
				mes "I'm "+strcharinfo(0)+".";
				mes "Are you here in Alberta to travel?";
				next;
				mes "[Karian]";
				mes "Um.. I'm not trying to leave...";
				mes "...";
				next;
				mes "[Karian]";
				mes "Yes!";
				mes "I'm looking for '^f57d7dMaestro Song^000000'.";
				next;
				mes "["+strcharinfo(0)+"]";
				mes "^f57d7d'Maestro Song'^000000, you mean the poet of legend?";
				next;
				mes "[Karian]";
				mes "That's right.";
				mes "According to a rumor that I heard, he is a rich noble.";
				mes "But other than that fact, I can't get anymore information.";
				next;
				mes "["+strcharinfo(0)+"]";
				mes "Why can't you get anymore information?";
				next;
				mes "[Karian]";
				mes "Well?";
				mes "That's why I tried to go Prontera...";
				mes "Umm...";
				next;
				mes "[Karian]";
				mes "If you are interested, why don't help me find out where ^f57d7d'Maestro Song'^000000 is?";
				next;
				switch(select("Ok.:No.")){
				case 1:
					mes "[" +strcharinfo(0)+ "]";
					mes "Ok, I will.";
					set job_min,1;
					setquest 11135;
					next;
					break;
				case 2:
					mes "["+strcharinfo(0)+"]";
					mes "I'm not interested.";
					next;
					mes "[Karian]";
					mes "Are you? It can't be helped.";
					mes "See you later~";
					close;
				}
				mes "[Karian]";
				mes "It's good to travel by yourself but sometimes you feel that you want to have friends around.";
				next;
				mes "[Karian]";
				mes "Then "+strcharinfo(0)+".";
				mes "Can you collect some ^f57d7dInformation on 'Maestro Song'^000000 in ^f57d7dProntera^000000?";
				mes "Because I have something to investigate in Alberta.";
				next;
				mes "[Karian]";
				mes "Please come back here after finishing the investigation.";
				close;
			}
			mes "[Bard]";
			mes "You have to be careful when you are going to sea.";
			mes "If you run into a Siren, then it's only a matter of time before she kills you.";
			next;
			mes "[Bard]";
			mes "There is no one who can live when he hears^f57d7dthe voice of Siren^000000.";
			close;
		}
		mes "[Bard]";
		mes "You have to be careful when you are going to sea.";
		mes "If a Siren fascinates you, then it's only a matter of time before she kills you.";
		next;
		mes "[Bard]";
		mes "No man can survive after hearing ^f57d7dthe voice of a Siren^000000.";
		close;
	}else if (job_min == 1){
		mes "[Karian]";
		mes "It's good to travel by yourself but sometimes you feel that you want to have friends around.";
		next;
		mes "[Karian]";
		mes "Then "+strcharinfo(0)+".";
		mes "Can you collect some ^f57d7dInformation on 'Maestro Song'^000000 in ^f57d7dProntera^000000?";
		mes "Because I have something to investigate in Alberta.";
		next;
		mes "[Karian]";
		mes "Please come back here after finishing the investigation.";
		close;
	}else if ((job_min > 1) && (job_min < 4)){
		mes "[Karian]";
		mes "Can you collect some ^f57d7d information on 'Maestro Song'^000000 in ^f57d7dProntera^000000?";
		mes "Because I have something to investigate in Alberta.";
		next;
		mes "[Karian]";
		mes "please come back here after finishing the investigation.";
		close;
	}else if (job_min == 4){
		mes "[Karian]";
		mes ""+strcharinfo(0)+"! Did you already go to Prontera?";
		mes "Did you get any useful information?";
		next;
		mes "[Karian]";
		mes "Hum~ did you?";
		mes "I think that's not enough to use...";
		next;
		mes "[Karian]";
		mes "Huhu~ But I got some useful information from some of the captains here in Alberta.";
		next;
		mes "[Karian]";
		mes "I heard that there is a ship which had a man who could be ^f57d7dMaestro Song^000000.";
		mes "A few years ago, it was a ship headed for ^f57d7dHugel^000000.";
		next;
		mes "[Karian]";
		mes "It doesn't exist any more, so I need to take an airship...";
		mes "It's my first time to take it.";
		next;
		mes "[Karian]";
		mes "Um..";
		mes "Anyway let's meet at the airship in Izlude.";
		set job_min,5;
		changequest 11138,11139;
		close;
	}else if (job_min == 100){
		mes "[Karian]";
		mes "The voice of heaven revolves around my ears";
		mes "like a wandering wind,";
		next;
		mes "[Bard]";
		mes "Even though I close my eyes and cover my ears,";
		mes "I can hear a voice from somewhere,";
		next;
		mes "[Bard]";
		mes "It put temptation in exhausted crewman to deep sleep,";
		mes "make them feel as if they are in the land of dreams.";
		next;
		mes "[Karian]";
		mes "Ah!!! "+strcharinfo(0)+" Long time no see!";
		mes "What? What am I doing here?";
		next;
		mes "[Karian]";
		mes "Well?";
		mes "Let me leave here?";
		close;
	}
	mes "[Bard]";
	mes "The voice of heaven revolves around in my ears";
	mes "like wandering wind,";
	next;
	mes "[Bard]";
	mes "Even though I close my eyes and cover my ears,";
	mes "I can hear the voice from somewhere,";
	next;
	mes "[Bard]";
	mes "It put temptation in exhausted crewman to deep sleep,";
	mes "make them feel as if they are in the land of dreams.";
	close;
}

prontera,141,97,4	script	Warmhearted woman	701,{

	if (job_min == 1){
		mes "[Warmhearted woman]";
		mes "Maestro Song?";
		mes "I haven't heard that name before.";
		next;
		mes "[Warmhearted woman]";
		mes "Is he a legendary poet?";
		mes "I don't know who he is, but I guess he is a grand man?";
		next;
		mes "[Warmhearted woman]";
		mes "Ah! Ask a ^f57d7dman wearing glasses near the gate of the castle^000000 about a song.";
		mes "He will make a book of 100 hit songs~";
		next;
		mes "[Warmhearted woman]";
		mes "He must know something about making that book.";
		set job_min,2;
		changequest 11135,11136;
		close;
	}else if (job_min == 2){
		mes "[Warmhearted woman]";
		mes "Ah! Ask a ^f57d7dman wearing glasses near the gate of the castle^000000 about the song.";
		mes "They will make a book of 100 hit songs~";
		next;
		mes "[Warmhearted woman]";
		mes "He must know something about making that book.";
		close;
	}
	mes "[Warmhearted woman]";
	mes "I heard that a ^f57d7dman wearing glasses near the gate of the castle^000000 is making a 100 hit song book~";
	close;
}

prontera,140,331,6	script	Glasses-wearing Man	883,{

	if (job_min == 2){
		mes "[Glasses-wearing Man]";
		mes "You mean Maestro Song?";
		mes "I don't know details of his life but I heard that he wrote great songs.";
		next;
		mes "[Glasses-wearing Man]";
		mes "I don't get how a boy raised in a rich environment could write a song like this.";
		next;
		mes "[Glasses-wearing Man]";
		mes "He is still on a trip, but thesedays we haven't heard new songs from him.";
		next;
		mes "[Glasses-wearing Man]";
		mes "So we are worried.";
		next;
		mes "[Glasses-wearing Man]";
		mes "It would be better to ask the ^f57d7dwoman standing in front of the tool shop^000000.";
		set job_min,3;
		changequest 11136,11137;
		close;
	}else if (job_min == 3){
		mes "[Glasses-wearing Man]";
		mes "It would better to ask the ^f57d7dwoman standing in front of the tool shop^000000.";
		close;
	}
	mes "[Glasses-wearing Man]";
	mes "100 hit songs!!";
	mes "Whoever want to be a Minstrel should know about this!";
	next;
	mes "[Glasses-wearing Man]";
	mes "Once this book is completed, I'll be rich!";
	mes "Haha!!";
	close;
}

prontera,146,218,4	script	Woman#job_min	90,{

	if (job_min == 3){
		mes "[Woman]";
		mes "Do you know who Maestro Song is?";
		mes "I think he must be my little boy.";
		next;
		mes "[Woman]";
		mes "A few years ago, he went off to sea but he never came back.";
		next;
		mes "[Woman]";
		mes "He liked to sing a lot but we didn't let him sing.";
		next;
		mes "[Woman]";
		mes "His father didn't like him singing much.";
		next;
		mes "[Woman]";
		mes "So he broke every instrument in the house...";
		mes "It was terrible.";
		mes "Where is my little boy... sniff.";
		next;
		mes "- I can't get anymore -";
		mes "- useful information. -";
		mes "- I'll go back to Alberta -";
		mes "- and talk to that Bard. -";
		set job_min,4;
		changequest 11137,11138;
		close;
	}else if (job_min == 4){
		mes "- I can't get anymore -";
		mes "- useful information. -";
		mes "- Go back to Alberta. -";
		mes "- and talk to that Bard. -";
		close;
	}
	mes "[Woman]";
	mes "Where is my little boy... sniff.";
	close;
}

airplane,222,67,6	script	Karian#job_min1	486,{

	if (job_min == 5){
		mes "[Karian]";
		mes "Yup!!!!!!!!!!!!!!!!!!";
		next;
		mes "[Karian]";
		mes "Please leave me alone.";
		mes "I feel nauseated.";
		next;
		mes "[Karian]";
		mes "Acchh...";
		set job_min,6;
		changequest 11139,11140;
		close2;
		warp "hu_in01",267,8;
		end;
	}
	mes "[Karian]";
	mes "Yup!!!!!!!!";
	next;
	mes "[Karian]";
	mes "Please leave me alone.";
	mes "I feel nauseated.";
	next;
	mes "[Karian]";
	mes "Acchh...";
	close;
}

hu_in01,267,5,3	script	Karian#job_min2	486,{

	if (job_min == 6){
		mes "[Karian]";
		mes "Eeeeh it's so painful.";
		mes "I don't want to feel like this ever again.";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "Are you ok?";
		next;
		mes "[Karian]";
		mes "...";
		mes "No...";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "I'm feeling ok.";
		mes "So, I'm going to find out information in town, you can take a rest.";
		next;
		mes "[Karian]";
		mes "Sorry, blech! I still feel bad...";
		mes "You can get good information from the ^f57d7dPub^000000. Owww...";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "You don't have to tell me everything. I can take care of it.";
		next;
		mes "[Karian]";
		mes "...";
		set job_min,7;
		changequest 11140,11141;
		close;
	}else if (job_min == 7){
		mes "[Karian]";
		mes "Sorry... Owww!";
		mes "You can get good information from the ^f57d7dPub^000000. Owww...";
		close;
	}else if (job_min == 8){
		mes "[Karian]";
		mes "Wooo.";
		mes "Did you get anything?";
		next;
		mes "- Karian doesn't look -";
		mes "- like he's doing well -";
		mes "- you can get information -";
		mes "- from a man in the Pub. -";
		close;
	}else if (job_min == 9){
		mes "[Karian]";
		mes "Owww...";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "How do you feel?";
		next;
		mes "[Karian]";
		mes "Oww...";
		mes "I feel better.";
		next;
		mes "[Karian]";
		mes "Did you get anything?";
		mes "I'm sorry that I can't be more helpful to you.";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "No, it's ok.";
		mes "I met a man in the Pub, he said that he got a song from 'Maestro Song'.";
		next;
		mes "[Karian]";
		mes "Pub?";
		mes "You got a song?";
		mes ".....";
		mes "Bleech...";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "Hey! Are you sure that you are ok?";
		next;
		mes "[Karian]";
		mes "I don't become airsick,";
		mes "It's just bad memories.";
		mes "So did you hear something?";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "I heard a song named ^f57d7d'Metallic Sound'^000000.";
		next;
		mes "[Karian]";
		mes "What?!?!?!?!!!!!";
		mes "You heard that?!";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "Why? Do you know that song?";
		next;
		mes "[Karian]";
		mes "Ahh...";
		mes "Y, yes...";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "Hmm...";
		next;
		mes "[Karian]";
		mes "I met him before.";
		mes "He has a great voice...";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "Yes.";
		mes "I blacked out as I heard that song.";
		next;
		mes "[Karian]";
		mes "He has the destructive power of voice.";
		mes "And he...";
		mes "What else?";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "Ah!!";
		mes "^f57d7d'Maestro Song'^000000 went to ^f57d7dThanatos Tower^000000.";
		mes "I don't know why he went there.";
		next;
		mes "[Karian]";
		mes "Did he? I must go there!";
		set job_min,10;
		changequest 11142,11143;
		close;
	}else if (job_min == 10){
		mes "[Karian]";
		mes "What are you doing? Let's go to Thanatos tower.";
		close;
	}
	mes "[Karian]";
	mes "Of course it's easy to take an airship, but sometimes it can be good to walk.";
	next;
	mes "[Karian]";
	mes "It isn't about my sickness.";
	close;
}

hu_in01,361,103,3	script	Tone-deaf person	995,{

	if (job_min == 7){
		mes "[Tone-deaf person]";
		mes "Lala~ lala~";
		mes "Humming~?";
		next;
		mes "[Tone-deaf person]";
		mes "lalala~";
		mes "lullula~";
		next;
		mes "- It's very hard to hear. -";
		mes "- You start to have doubts -";
		mes "- that such sounds could -";
		mes "- be made from humans. -";
		next;
		switch(select("You move to other side.:Keep listening.")){
		case 1:
			close;
		case 2:
			break;
		}
		mes "[Tone-deaf person]";
		mes "Turuturu~";
		mes "Dadada~";
		next;
		mes "[Tone-deaf person]";
		mes "Shubashuba~ shaaa~";
		mes "Blahblah~";
		mes "Lalala...";
		mes "......!!";
		next;
		if (Class == Job_Bard){
			mes "[Tone-deaf person]";
			mes "Hum!! Hey you, you were listening to my song.";
			mes "You look like a Bard, how about you sing for me as rewarding my song?";
			next;
		}else{
			mes "[Tone-deaf person]";
			mes "Hum!! Hey you, you were listening to my song.";
			mes "You look like a Clown, how about you sing for me as rewarding my song?";
			next;
		}
		mes "["+strcharinfo(0)+"]";
		mes "What?!";
		next;
		mes "[Tone-deaf person]";
		mes "Sing for me.";
		mes "Come on~";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "Ok...";
		mes "Hum hum...";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "You are standing in the middle of Asgard's field.";
		mes "You hand the friut of heaven over to me~";
		mes "You are loved by every god~";
		next;
		mes "[Tone-deaf person]";
		mes "Hooo~ You sing well. I can feel better when I hear ^f57d7d'Idun's apple'^000000~";
		next;
		mes "[Tone-deaf person]";
		mes "As you can see!";
		mes "I'm a guy who can enjoy songs!";
		next;
		mes "[Tone-deaf person]";
		mes "I think it is nothing to be proud of. But I'm good at singing.";
		mes "When I was young, I tried to be a Bard but I had to succeed the family business.";
		next;
		mes "[Tone-deaf person]";
		mes "For a long time I lost my dream, I'm already old.";
		next;
		mes "[Tone-deaf person]";
		mes "I have famliy that needed my protection.";
		mes "But one day I believe that my dreams come true!";
		next;
		mes "[Tone-deaf person]";
		mes "In my spare time, I heard the stories of a tourist in the Pub.";
		mes "When I left there, I didn't want to become a laughing stock.";
		next;
		mes "[Tone-deaf person]";
		mes "And I can show my song to those who know the song.";
		next;
		mes "[Tone-deaf person]";
		mes "They are usually suprised when they hear the song.";
		mes "They are suprised by my skill.";
		mes "Huhu";
		next;
		mes "[Tone-deaf person]";
		mes "But ^f57d7d'Maestro Song'^000000 didn't get discouraged by my song.";
		mes "Of course he isn't good enough to me.";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "Did you meet ^f57d7d'Maestro Song'^000000?";
		next;
		mes "[Tone-deaf person]";
		mes "Hmm? Have you met him?";
		mes "I did. A few years ago.";
		next;
		mes "[Tone-deaf person]";
		mes "When he heard my song, he said that he can't hear songs like this anywhere.";
		next;
		mes "[Tone-deaf person]";
		mes "I could have the opportunity to sing for him in Hugel.";
		mes "There is no one who has skill like that.";
		next;
		mes "[Tone-deaf person]";
		mes "Before he left, I got a song that reminds me of him.";
		next;
		mes "[Tone-deaf person]";
		mes "He said that he will go to Thanatos.";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "Did you get a song?";
		next;
		mes "[Tone-deaf person]";
		mes "Yes!";
		mes "He conceded my ability!";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "Can I hear the song?";
		next;
		mes "[Tone-deaf person]";
		mes "Hum...";
		mes "Wait.";
		mes "I have to find a piece of paper.";
		mes "I put it in my vest.";
		next;
		mes "[Tone-deaf person]";
		mes "Rummaging rummaging.";
		mes "Browsing browsing .";
		set job_min,8;
		close;
	}else if (job_min == 8){
		mes "[Tone-deaf person]";
		mes "I got it.";
		mes "Hum!";
		mes "Listen carefully!";
		mes "^f57d7d'Metallic Sound!!'^000000";
		next;
		mes "[Tone-deaf person]";
		mes "$$$$$$@@@@@!!!!";
		mes "&&$%&@@@$#$~~";
		mes "$#^#$####$$!!!@@#!!!!!";
		percentheal -30,-30;
		next;
		mes "[Tone-deaf person]";
		mes "!@@@$$%^@@#%^%!!!!!!";
		mes "!!!!!!!##$$^^^#^!!!";
		mes "&$$%@@@%@##%~~~";
		percentheal -30,-30;
		next;
		mes "-You lose consciousness.-";
		mes "-This voice must have-";
		mes "-huge destructive-";
		mes "-power.-";
		percentheal -30,-30;
		next;
		mes "-And I can't remember-";
		mes "-the end of this song.-";
		next;
		mes "[Tone-deaf person]";
		mes "Hey~";
		next;
		mes "[Tone-deaf person]";
		mes "Open your eyes~";
		next;
		mes "[Tone-deaf person]";
		mes "Clap";
		mes "Hey~";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "Eeeee...";
		next;
		mes "[Tone-deaf person]";
		mes "I think you are qualified, but you seem to need more training.";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "......";
		next;
		mes "-You're so exhausted.-";
		mes "-So go back to the hotel.-";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "Thank you for your song.";
		mes "I have to go back...";
		next;
		mes "[Tone-deaf person]";
		mes "Ah?";
		mes "Ok see you later.";
		mes "If you want to hear my song, you can visit me.";
		mes "Hahahh";
		set job_min,9;
		changequest 11141,11142;
		close;
	}else if (job_min == 9){
		mes "["+strcharinfo(0)+"]";
		mes "......";
		next;
		mes "-I'm so exhausted.-";
		mes "-you got information-";
		mes "-so go back to the hotel.-";
		close;
	}else if (job_min == 10){
		mes "[Tone-deaf person]";
		mes "Are you leaving??";
		mes "If you want to hear my song, you can visit me.";
		mes "Hahahah";
		close;
	}else if (job_min == 100){
		mes "[Tone-deaf person]";
		mes "Oh!!";
		mes "You seem to be strong!";
		mes "You are no less competent than I am.";
		close;
	}
	mes "[Tone-deaf person]";
	mes "Lala~ lalal~";
	mes "Lulu~?";
	next;
	mes "[Tone-deaf person]";
	mes "Lalalal~";
	mes "Lululul~";
	next;
	mes "-It's very hard to hear.-";
	mes "-You start to have doubts-";
	mes "-that such a sound can be-";
	mes "-coming out a human.-";
	close;
}

tha_scene01,140,200,0	script	min_receipt	139,3,3,{

OnTouch:
	if (job_min == 10){
		mes "-There is a piece of paper on the ground.-";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "What is this?";
		next;
		mes "[Karian]";
		mes "What does it say?";
		donpcevent "Karian#cmd1::OnEnable";
		next;
		mes "===================";
		mes "==photo exchange==";
		mes "======receipt======";
		mes "===================";
		mes "Name : Maestro Song";
		next;
		mes "- Bring this receipt and exchange it";
		mes "";
		mes "- Juno's store manager : Mr. Click.";
		next;
		mes "- Directions : Around Juno's plaza.";
		getitem 6271,1;
		next;
		mes "["+strcharinfo(0)+"]";
		mes "Photo exchange receipt?";
		mes "How did he drop it...";
		next;
		mes "[Karian]";
		mes "Juno's store...";
		mes "Let's go to Juno...";
		set job_min,11;
		changequest 11143,11144;
		donpcevent "Karian#cmd1::OnDisable";
		close;
	}else if (job_min == 11){
		if (countitem(6271) < 1){
			mes "-There is a piece of paper on the ground.-";
			next;
			mes "["+strcharinfo(0)+"]";
			mes "What is this?";
			next;
			mes "[Karian]";
			mes "What does it say?";
			donpcevent "Karian#cmd1::OnEnable";
			next;
			mes "===================";
			mes "==photo exchange==";
			mes "======receipt======";
			mes "===================";
			mes "Name : Maestro Song";
			next;
			mes "- Bring this receipt and exchange it";
			mes "";
			mes "- Juno's store manager : Mr. Click.";
			next;
			mes "- Directions : Around Juno's plaza.";
			getitem 6271,1;
			next;
			mes "["+strcharinfo(0)+"]";
			mes "Photo exchange receipt?";
			mes "How did he drop it...";
			next;
			mes "[Karian]";
			mes "Juno's store...";
			mes "Let's go to Juno...";
			donpcevent "Karian#cmd1::OnDisable";
			close;
		}
	}
}

tha_scene01,139,204,6	script	Karian#cmd1	486,{
	end;

OnInit:
	disablenpc "Karian#cmd1";
	end;

OnEnable:
	enablenpc "Karian#cmd1";
	initnpctimer;
	end;

OnDisable:
	disablenpc "Karian#cmd1";
	stopnpctimer;
	end;

OnTimer15000:
	donpcevent "Karian#cmd1::OnDisable";
	stopnpctimer;
	end;
}

yuno,143,170,6	script	Mr. Click#job_min	748,{

	if (job_min == 11){
		mes "[Mr. Click]";
		mes "Hi~ welcome~";
		mes "I can take a picture for you.";
		mes "Do you want to take a pic?";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "No...";
		mes "Do you remember this receipt?";
		next;
		mes "[Mr. Click]";
		mes "Let me see~";
		mes "Umm...";
		next;
		mes "[Mr. Click]";
		mes "Yes...";
		mes "It looks so old.";
		next;
		mes "[Mr. Click]";
		mes "It's okay.";
		mes "Tourists usually don't pick up their pictures.";
		next;
		mes "[Mr. Click]";
		mes "So there are plenty of photos I've been holding on to.";
		next;
		mes "[Mr. Click]";
		mes "I can find that so easily.";
		mes "I keep lots of old stuff.";
		mes "No problem.";
		next;
		mes "[Mr. Click]";
		mes "browsing~";
		next;
		mes "[Mr. Click]";
		mes "browsing~";
		next;
		mes "[Mr. Click]";
		mes "I think I found it!";
		mes "The photo crashed down, but it's ok.";
		mes "No problem.";
		next;
		mes "[Mr. Click]";
		mes "Here, take a look.";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "The picture!";
		mes "Let me see it!";
		next;
		mes "[Karian]";
		mes "Hurry.";
		donpcevent "Karian#cmd2::OnEnable";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "...";
		next;
		mes "[Karian]";
		mes "Oh~ Good pic, isn't it?";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "I expected I would see the face of 'Maestro Song', but he's wearing a mask...";
		mes "He's wearing a mask?!";
		mes "We came here for this?";
		next;
		mes "[Karian]";
		mes "Ah! look at this!";
		mes "Something is on the back of the picture.";
		next;
		mes "-I want to have a Teddy Bear. I need 33?";
		mes "-In front of Thanatos tower.";
		mes "-Maestro Song.";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "What does it mean?";
		next;
		mes "[Karian]";
		mes "Well...";
		next;
		mes "[Karian]";
		mes "Um... Teddy Bear...";
		mes "Between Einbroch and Lighthalzen, there is an area that teddybears live.";
		next;
		mes "[Karian]";
		mes "We might be able to get something there.";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "Then why would he need 33?";
		next;
		mes "[Karian]";
		mes "Well... Go there and we might be able to find out something.";
		next;
		mes "[Karian]";
		mes "Umm... Then I'll pass by Einbroch and go to Lighthalzen. Why don't you go to the place that Teddy Bears are?";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "Ok. Then let's meet at Lighthalzen's hotel.";
		mes "I'll get the 33 Teddy Bears.";
		donpcevent "Karian#cmd2::OnDisable";
		set job_min,12;
		getitem 6270,1;
		changequest 11144,11145;
		close;
	}else if (job_min == 12){
		mes "[Mr. Click]";
		mes "Then take care.";
		next;
		mes "[Karian]";
		mes "Let's go there!";
		donpcevent "Karian#cmd2::OnEnable";
		next;
		mes "[Karian]";
		mes "Then I'll pass by Einbroch and go to Lighthalzen. Why don't you go to the place that Teddy Bears are?";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "Then let's meet at Lighthalzen's hotel.";
		mes "I'll get the 33 Teddy Bears.";
		donpcevent "Karian#cmd2::OnDisable";
		close;
	}
	mes "[Mr. Click]";
	mes "Hi~ welcome~";
	mes "I can take a picture for you.";
	mes "Do you want to take a pic?";
	close;
}

yuno,146,168,0	script	Karian#cmd2	486,{
	end;

OnInit:
	disablenpc "Karian#cmd2";
	end;

OnEnable:
	enablenpc "Karian#cmd2";
	initnpctimer;
	end;

OnDisable:
	disablenpc "Karian#cmd2";
	stopnpctimer;
	end;

OnTimer100000:
	donpcevent "Karian#cmd2::OnDisable";
	stopnpctimer;
	end;
}

lighthalzen,162,126,3	script	Little Girl#job_min	62,3,3,{

OnTouch:
	if (checkquest(11145,2) == 2){
		if (job_min == 12){
			mes "[Little Girl]";
			mes "Ah!!!!";
			mes "Teddy bear!!!";
			next;
			mes "[Little Girl]";
			mes "Why do you have lots of teddy bears?";
			mes "Where did you get them old man?";
			next;
			mes "["+strcharinfo(0)+"]";
			mes "Hey, I'm not an old man.";
			next;
			mes "[Little Girl]";
			mes "And my name isn't 'Hey'!";
			mes "My name is 'Rion'!";
			next;
			mes "["+strcharinfo(0)+"]";
			mes "Sorry~ sorry~";
			mes "What if I give you a teddy bear.";
			next;
			mes "[Rion]";
			mes "Ah!";
			mes "Are you sure?";
			mes "Hooray!!!";
			next;
			mes "[Rion]";
			mes "A man who I saw before didn't give me teddybears even though he had lots of them!";
			next;
			mes "["+strcharinfo(0)+"]";
			mes "Is he the guy in this pic?";
			next;
			mes "[Rion]";
			mes "I can't rememebr well.";
			mes "But I think he is.";
			next;
			mes "[Rion]";
			mes "My mother said that he was rolling in a room with teddy bears.";
			next;
			mes "[Rion]";
			mes "And he wears teddy bear outfits and goes to the ^f57d7dIce Cave^000000.";
			next;
			mes "[Rion]";
			mes "My mother works here.";
			next;
			mes "["+strcharinfo(0)+"]";
			mes "Ice Cave?";
			next;
			mes "[Rion]";
			mes "Mother said that it's freezing.";
			next;
			mes "[Karian]";
			mes "Hey~ "+strcharinfo(0)+"~";
			next;
			mes "["+strcharinfo(0)+"]";
			mes "Ah, Karian. Did you just get here?";
			next;
			mes "[Karian]";
			mes "Yes.";
			mes "It was much farther away than I'd expected.";
			donpcevent "Karian#cmd3::OnEnable";
			next;
			mes "["+strcharinfo(0)+"]";
			mes "You... walked here?";
			next;
			mes "[Karian]";
			mes "...";
			mes "I didn't want to take the airship again...";
			next;
			mes "["+strcharinfo(0)+"]";
			mes "Oh... got it.";
			mes "Then did you get anything in Einbroch?";
			next;
			mes "[Karian]";
			mes "I think 'Maestro Song' went to Einbroch, but he left soon because of air.";
			mes "How about you? Did you find something about the teddy bears?";
			next;
			mes "["+strcharinfo(0)+"]";
			mes "'Maestro Song' might be in an Ice Cave.";
			next;
			mes "[Karian]";
			mes "Might be?";
			next;
			mes "["+strcharinfo(0)+"]";
			mes "This little... ah... Rion saw him.";
			next;
			mes "[Karian]";
			mes "Then it's time to go to the Ice Cave?";
			mes "Huu... legs hurt.";
			mes "Ok, let's go to there.";
			next;
			mes "["+strcharinfo(0)+"]";
			mes "Okay.";
			next;
			mes "["+strcharinfo(0)+"]";
			mes "Thanks, Rion.";
			mes "I'll give you all the teddy bears I have.";
			next;
			mes "[Rion]";
			mes "Really?!";
			mes "Waaah!!!!!!!!!";
			mes "I'm so happy!!!";
			mes "Thank you, "+strcharinfo(0)+".";
			set job_min,13;
			changequest 11145,11146;
			donpcevent "Karian#cmd3::OnDisable";
			close;
		}else if (job_min == 13){
			mes "[Rion]";
			mes "I heard that 'Maestro Song' when I went to the Ice Cave.";
			mes "Thank you for the Teddy Bears!";
			close;
		}else if (job_min > 13){
			mes "[Rion]";
			mes "I'm having a lot of fun playing with the Teddy Bears!";
			close;
		}
		mes "[Little Girl]";
		mes "I'm having a lot of fun playing with the Teddy Bears!";
		close;
	}
	mes "[Little Girl]";
	mes "Do you like teddy bears?";
	mes "I love 'em!!!!!";
	close;
}

lighthalzen,160,124,6	script	Karian#cmd3	486,{
	end;

OnInit:
	disablenpc "Karian#cmd3";
	end;

OnEnable:
	enablenpc "Karian#cmd3";
	initnpctimer;
	end;

OnDisable:
	disablenpc "Karian#cmd3";
	stopnpctimer;
	end;

OnTimer100000:
	donpcevent "Karian#cmd3::OnDisable";
	stopnpctimer;
	end;
}

ice_dun01,157,15,0	script	Ice Cave Minstrel1	139,2,2,{

OnTouch:
	if (job_min == 13){
		mes "-A long time ago-";
		close2;
		warp "ice_dun01",157,23;
		end;
	}
	end;
}

ice_dun01,157,23,0	script	Ice Cave Minstrel2	139,2,2,{

OnTouch:
	if (job_min == 13){
		mes "-THe giant born to ice-";
		close2;
		warp "ice_dun01",141,41;
		end;
	}
	end;
}

ice_dun01,141,41,0	script	Ice Cave Minstrel3	139,2,2,{

OnTouch:
	if (job_min == 13){
		mes "-died-";
		close2;
		warp "ice_dun01",120,35;
		end;
	}
	end;
}

ice_dun01,120,35,0	script	Ice Cave Minstrel4	139,2,2,{

OnTouch:
	if (job_min == 13){
		mes "-His body became the ground-";
		close2;
		warp "ice_dun01",104,30;
		end;
	}
	end;
}

ice_dun01,104,30,0	script	Ice Cave Minstrel5	139,2,2,{

OnTouch:
	if (job_min == 13){
		mes "-His bones became a mountain-";
		close2;
		warp "ice_dun01",86,23;
		end;
	}
	end;
}

ice_dun01,86,23,0	script	Ice Cave Minstrel6	139,2,2,{

OnTouch:
	if (job_min == 13){
		mes "-his skin became soil-";
		close2;
		warp "ice_dun01",75,19;
		end;
	}
	end;
}

ice_dun01,75,19,0	script	Ice Cave Minstrel7	139,2,2,{

OnTouch:
	if (job_min == 13){
		mes "-His blood became a river-";
		close2;
		warp "ice_dun01",56,12;
		end;
	}
	end;
}

ice_dun01,56,12,0	script	Ice Cave Minstrel8	139,2,2,{

OnTouch:
	if (job_min == 13){
		mes "-his hair became a plant-";
		close2;
		warp "ice_dun01",29,26;
		end;
	}
	end;
}

ice_dun01,29,26,0	script	Ice Cave Minstrel9	139,2,2,{

OnTouch:
	if (job_min == 13){
		mes "-His head became the sky-";
		close2;
		warp "ice_dun01",25,46;
		end;
	}
	end;
}

ice_dun01,25,46,0	script	Ice Cave Minstrel10	139,2,2,{

OnTouch:
	if (job_min == 13){
		mes "-His tears from his-";
		close2;
		warp "ice_dun01",20,66;
		end;
	}
	end;
}

ice_dun01,20,66,0	script	Ice Cave Minstrel11	139,2,2,{

OnTouch:
	if (job_min == 13){
		mes "-eyes became dew-";
		close2;
		warp "ice_dun01",22,85;
		end;
	}
	end;
}

ice_dun01,22,85,0	script	Ice Cave Minstrel12	139,2,2,{

OnTouch:
	if (job_min == 13){
		mes "-on the leaves-";
		percentheal -90,0;
		set job_min,14;
		changequest 11146,11147;
		close2;
		warp "ra_in01",361,129;
		end;
	}
	end;
}

ra_in01,361,129,0	script	jmRachelHotel	139,2,2,{

OnTouch:
	if (job_min == 14){
		mes "[Old Woman]";
		mes "Huu!!";
		mes "Wake up!";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "Where am I...?";
		set job_min,15;
		close;
	}
	end;
}

ra_in01,358,130,4	script	Old Woman#job_min	979,{

	if (job_min == 14){
		mes "[Old Woman]";
		mes "Huu!!";
		mes "Wake up!";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "Where am I...?";
		set job_min,15;
		close;
	}else if (job_min == 15){
		mes "[Old Woman]";
		mes "You're in Rachel.";
		mes "You arere strange. You have to wear warmer clothes if you want to go into the Ice Cave.";
		next;
		mes "[Old Woman]";
		mes "You're lucky that my husband found you when he did.";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "Sorry.";
		next;
		mes "[Old Woman]";
		mes "Anyway!! Be careful!";
		mes "You don't believe your youth alone will protect you.";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "I'll be careful.";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "Do you know that song written on the wall of the Ice cave?";
		next;
		mes "[Old Woman]";
		mes "Did you go there to see?";
		mes "A few years ago, one man wearing a mask carved that on the Ice cave.";
		next;
		mes "[Old Woman]";
		mes "I couldn't see his face because of the mask,";
		next;
		mes "[Old Woman]";
		mes "but he got a cold and felt so painful.";
		next;
		mes "[Old Woman]";
		mes "And then he decided to go to Comodo.";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "Comodo?";
		next;
		mes "[Old Woman]";
		mes "Yes, I heard that Comodo is a very fun place, I want to go there before I die.";
		next;
		mes "[Old Woman]";
		mes "If you want to go there you have to take an airship to the Rune-Midgarts Kingdom.";
		next;
		mes "[Old Woman]";
		mes "That's not easy.";
		next;
		mes "[Karian]";
		mes "What?! An Airship?!";
		mes "Eee I don't want to go on an airship again!";
		donpcevent "Karian#cmd4::OnEnable";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "Take it easy...";
		mes "Is there another way to go there?";
		next;
		mes "[Old Woman]";
		mes "Without an airship?";
		mes "You can walk...";
		mes "But it takes a long time...";
		next;
		mes "[Old Woman]";
		mes "Ah! It's Comodo over southern Veins.";
		next;
		mes "[Old Woman]";
		mes "We don't have a proper boat.";
		mes "In southern of Veins, there is a port. If you are lucky you can take it...";
		donpcevent "Karian#cmd4::OnDisable";
		set job_min,16;
		changequest 11147,11148;
		close;
	}else if (job_min == 16){
		mes "[Old Woman]";
		mes "Ah! It's Comodo over southern Veins.";
		next;
		mes "[Old Woman]";
		mes "We don't have a proper boat.";
		mes "In southern of Veins, there is a port. If you are lucky you can take it...";
		close;
	}
	mes "[Old Woman]";
	mes "I heard that Comodo is a very fun place, I want to go there before I die.";
	next;
	mes "[Old Woman]";
	mes "If you want to go there you have to take an Airship to the Rune-Midgarts Kingdom.";
	next;
	mes "[Old Woman]";
	mes "It's the fastest way.";
	close;
}

ra_in01,357,128,0	script	Karian#cmd4	486,{
	end;

OnInit:
	disablenpc "Karian#cmd4";;
	end;

OnEnable:
	enablenpc "Karian#cmd4";;
	initnpctimer;
	end;

OnDisable:
	disablenpc "Karian#cmd4";;
	stopnpctimer;
	end;

OnTimer100000:
	donpcevent "Karian#cmd4::OnDisable";
	stopnpctimer;
	end;
}

ve_fild07,131,132,5	script	=Notice=#job_min	837,{

	if (job_min == 16){
		mes "===Notice===";
		mes "Maestro Song, Go to Comodo by boat!";
		mes "Be ambitious!";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "Will it be okay...";
		next;
		mes "[Karian]";
		mes "Don't worry, trust me!!";
		donpcevent "Karian#cmd5::OnEnable";
		next;
		mes "-It's not easy to trust her-";
		next;
		switch(select("I don't like this.:Take the kayak.")){
		case 1:
			mes "[Karian]";
			mes "I never ride airships ever...";
			donpcevent "Karian#cmd5::OnDisable";
			close;
		case 2:
			mes "[Karian]";
			mes "Ok Then let's go!!!!!";
			next;
			mes "-If you take a small boat,-";
			mes "-and go ahead-";
			mes "-to Comodo,-";
			mes "-You should see-";
			mes "-other small boats.-";
			next;
			mes "["+strcharinfo(0)+"]";
			mes "Hmm...";
			mes "I didn't think that there was anyone who would cross over this sea with a boat.";
			mes "You sure I'll see other boats?";
			next;
			mes "[Karian]";
			mes "They will be headed the other direction.";
			donpcevent "Karian#cmd5::OnDisable";
			next;
			mes "["+strcharinfo(0)+"]";
			mes "Where are you going?";
			next;
			mes "[Karian]";
			mes "Well? I haven't heard of the place's name before.";
			mes "It's just called 'island' from what I heard.";
			next;
			mes "-For a whlie the silence-";
			mes "-continues. Karian starts-";
			mes "-to hum as she rows.-";
			next;
			mes "-Listening to Karian hum-";
			mes "-You suddenly feel like-";
			mes "-you're sitting in water.-";
			next;
			mes "["+strcharinfo(0)+"]";
			mes "Hey! There's a water leak!!";
			next;
			mes "[Karian]";
			mes "Ahhhh!!!!!!!!!!!!!!";
			next;
			set .@rand,rand(7,9);
			if (.@rand == 7){
				switch(select("Throw the water out.:Row.:Dance.")){
				case 1:
					mes "[Karian]";
					mes "I'll row and you just throw the water out!!";
					next;
					break;
				case 2:
					mes "[Karian]";
					mes "The boat is sinking!!!";
					close;
				case 3:
					mes "[Karian]";
					mes "What the hell do you think you're doing?";
					close;
				}
			}else if (.@rand == 8){
				switch(select("Row.:Throw the water out.:Dance.")){
				case 1:
					mes "[Karian]";
					mes "The boat is sinking!!!";
					close;
				case 2:
					mes "[Karian]";
					mes "I'll row and you just throw the water out!!";
					next;
					break;
				case 3:
					mes "[Karian]";
					mes "What the hell do you think you're doing?";
					close;
				}
			}
			switch(select("Dance.:Row.:Throw the water out.")){
			case 1:
				mes "[Karian]";
				mes "What the hell do you think you're doing?";
				close;
			case 2:
				mes "[Karian]";
				mes "The boat is sinking!!!";
				close;
			case 3:
				mes "[Karian]";
				mes "I'll row and you just throw the water out!!";
				next;
				break;
			}
			set .@rand,rand(7,9);
			if (.@rand == 7){
				switch(select("Throw the water out.:Row.:Dance.")){
				case 1:
					mes "[Karian]";
					mes "I'll row and you just throw the water out!!";
					next;
					break;
				case 2:
					mes "[Karian]";
					mes "The boat is sinking!!!";
					close;
				case 3:
					mes "[Karian]";
					mes "What the hell do you think you're doing?";
					close;
				}
			}else if (.@rand == 8){
				switch(select("Row.:Throw the water out.:Sleep.")){
				case 1:
					mes "[Karian]";
					mes "The boat is sinking!!!";
					close;
				case 2:
					mes "[Karian]";
					mes "I'll row and you just throw the water out!!";
					next;
					break;
				case 3:
					mes "[Karian]";
					mes "What the hell do you think you're doing?";
					close;
				}
			}
			switch(select("Sleep.:Row.:Throw the water out.")){
			case 1:
				mes "[Karian]";
				mes "What the hell do you think you're doing?";
				close;
			case 2:
				mes "[Karian]";
				mes "The boat is sinking!!!";
				close;
			case 3:
				mes "[Karian]";
				mes "I'll row and you just throw the water out!!";
				next;
				break;
			}
			set .@rand,rand(7,9);
			if (.@rand == 7){
				switch(select("Throw the water out.:Row.:Sleep.")){
				case 1:
					mes "[Karian]";
					mes "I'll row and you just throw the water out!!";
					next;
					break;
				case 2:
					mes "[Karian]";
					mes "The boat is sinking!!!";
					close;
				case 3:
					mes "[Karian]";
					mes "What the hell do you think you're doing?";
					close;
				}
			}else if (.@rand == 8){
				switch(select("Row.:Throw the water out.:Sing.")){
				case 1:
					mes "[Karian]";
					mes "The boat is sinking!!!";
					close;
				case 2:
					mes "[Karian]";
					mes "I'll row and you just throw the water out!!";
					next;
					break;
				case 3:
					mes "[Karian]";
					mes "What the hell do you think you're doing?";
					close;
				}
			}
			switch(select("Sing.:Row.:Throw the water out.")){
			case 1:
				mes "[Karian]";
				mes "What the hell do you think you're doing?";
				close;
			case 2:
				mes "[Karian]";
				mes "The boat is sinking!!!";
				close;
			case 3:
				mes "[Karian]";
				mes "I'll row and you just throw the water out!!";
				next;
				break;
			}
			set .@rand,rand(7,9);
			if (.@rand == 7){
				switch(select("Throw the water out.:Row.:Have some water.")){
				case 1:
					mes "[Karian]";
					mes "I'll row and you just throw the water out!!";
					next;
					break;
				case 2:
					mes "[Karian]";
					mes "The boat is sinking!!!";
					close;
				case 3:
					mes "[Karian]";
					mes "What the hell do you think you're doing?";
					close;
				}
			}else if (.@rand == 8){
				switch(select("Row.:Throw the water out.:Have some water.")){
				case 1:
					mes "[Karian]";
					mes "The boat is sinking!!!";
					close;
				case 2:
					mes "[Karian]";
					mes "I'll row and you just throw the water out!!";
					next;
					break;
				case 3:
					mes "[Karian]";
					mes "What the hell do you think you're doing?";
					close;
				}
			}
			switch(select("Have some water.:Row.:Throw the water out.")){
			case 1:
				mes "[Karian]";
				mes "What the hell do you think you're doing?";
				close;
			case 2:
				mes "[Karian]";
				mes "The boat is sinking!!!";
				close;
			case 3:
				mes "[Karian]";
				mes "I'll row and you just throw the water out!!";
				next;
				break;
			}
			set .@rand,rand(7,9);
			if (.@rand == 7){
				switch(select("Throw the water out.:Row.:Shout 'Viva'.")){
				case 1:
					mes "[Karian]";
					mes "I'll row and you just throw the water out!!";
					next;
					break;
				case 2:
					mes "[Karian]";
					mes "The boat is sinking!!!";
					close;
				case 3:
					mes "[Karian]";
					mes "What the hell do you think you're doing?";
					close;
				}
			}else if (.@rand == 8){
				switch(select("Row.:Throw the water out.:Shout 'Viva'.")){
				case 1:
					mes "[Karian]";
					mes "The boat is sinking!!!";
					close;
				case 2:
					mes "[Karian]";
					mes "I'll row and you just throw the water out!!";
					next;
					break;
				case 3:
					mes "[Karian]";
					mes "What the hell do you think you're doing?";
					close;
				}
			}
			switch(select("Shout 'Viva'.:Row.:Throw the water out.")){
			case 1:
				mes "[Karian]";
				mes "What the hell do you think you're doing?";
				close;
			case 2:
				mes "[Karian]";
				mes "The boat is sinking!!!";
				close;
			case 3:
				mes "[Karian]";
				mes "I'll row and you just throw the water out!!";
				next;
				break;
			}
			set .@rand,rand(7,9);
			if (.@rand == 7){
				switch(select("Throw the water out.:Row.:Go fishing.")){
				case 1:
					mes "[Karian]";
					mes "I'll row and you just throw the water out!!";
					next;
					break;
				case 2:
					mes "[Karian]";
					mes "The boat is sinking!!!";
					close;
				case 3:
					mes "[Karian]";
					mes "What the hell do you think you're doing?";
					close;
				}
			}else if (.@rand == 8){
				switch(select("Row.:Throw the water out.:Go fishing.")){
				case 1:
					mes "[Karian]";
					mes "The boat is sinking!!!";
					close;
				case 2:
					mes "[Karian]";
					mes "I'll row and you just throw the water out!!";
					next;
					break;
				case 3:
					mes "[Karian]";
					mes "What the hell do you think you're doing?";
					close;
				}
			}
			switch(select("Go fishing.:Row.:Throw the water out.")){
			case 1:
				mes "[Karian]";
				mes "What the hell do you think you're doing?";
				close;
			case 2:
				mes "[Karian]";
				mes "The boat is sinking!!!";
				close;
			case 3:
				mes "[Karian]";
				mes "I'll row and you just throw the water out!!";
				next;
				break;
			}
			set .@rand,rand(7,9);
			if (.@rand == 7){
				switch(select("Throw the water out.:Row.:Listen to my song.")){
				case 1:
					mes "[Karian]";
					mes "I'll row and you just throw the water out!!";
					next;
					break;
				case 2:
					mes "[Karian]";
					mes "The boat is sinking!!!";
					close;
				case 3:
					mes "[Karian]";
					mes "What the hell do you think you're doing?";
					close;
				}
			}else if (.@rand == 8){
				switch(select("Row.:Throw the water out.:Listen to my song.")){
				case 1:
					mes "[Karian]";
					mes "The boat is sinking!!!";
					close;
				case 2:
					mes "[Karian]";
					mes "I'll row and you just throw the water out!!";
					next;
					break;
				case 3:
					mes "[Karian]";
					mes "What the hell do you think you're doing?";
					close;
				}
			}
			switch(select("Listen to my song.:Row.:Throw the water out.")){
			case 1:
				mes "[Karian]";
				mes "What the hell do you think you're doing?";
				close;
			case 2:
				mes "[Karian]";
				mes "The boat is sinking!!!";
				close;
			case 3:
				mes "[Karian]";
				mes "I'll row and you just throw the water out!!";
				next;
				break;
			}
			set .@rand,rand(7,9);
			if (.@rand == 7){
				switch(select("Throw the water out.:Row.:Pray.")){
				case 1:
					mes "[Karian]";
					mes "I'll row and you just throw the water out!!";
					next;
					break;
				case 2:
					mes "[Karian]";
					mes "The boat is sinking!!!";
					close;
				case 3:
					mes "[Karian]";
					mes "What the hell do you think you're doing?";
					close;
				}
			}else if (.@rand == 8){
				switch(select("Row.:Throw the water out.:Pray.")){
				case 1:
					mes "[Karian]";
					mes "The boat is sinking!!!";
					close;
				case 2:
					mes "[Karian]";
					mes "I'll row and you just throw the water out!!";
					next;
					break;
				case 3:
					mes "[Karian]";
					mes "What the hell do you think you're doing?";
					close;
				}
			}
			switch(select("Pray.:Row.:Throw the water out.")){
			case 1:
				mes "[Karian]";
				mes "What the hell do you think you're doing?";
				close;
			case 2:
				mes "[Karian]";
				mes "The boat is sinking!!!";
				close;
			case 3:
				mes "[Karian]";
				mes "I'll row and you just throw the water out!!";
				next;
				break;
			}
			set .@rand,rand(7,9);
			if (.@rand == 7){
				switch(select("Throw the water out.:Row.:Eat some food.")){
				case 1:
					mes "[Karian]";
					mes "I'll row and you just throw the water out!!";
					next;
					break;
				case 2:
					mes "[Karian]";
					mes "The boat is sinking!!!";
					close;
				case 3:
					mes "[Karian]";
					mes "What the hell do you think you're doing?";
					close;
				}
			}else if (.@rand == 8){
				switch(select("Row.:Throw the water out.:Eat some food.")){
				case 1:
					mes "[Karian]";
					mes "The boat is sinking!!!";
					close;
				case 2:
					mes "[Karian]";
					mes "I'll row and you just throw the water out!!";
					next;
					break;
				case 3:
					mes "[Karian]";
					mes "What the hell do you think you're doing?";
					close;
				}
			}
			switch(select("Eat some food.:Row.:Throw the water out.")){
			case 1:
				mes "[Karian]";
				mes "What the hell do you think you're doing?";
				close;
			case 2:
				mes "[Karian]";
				mes "The boat is sinking!!!";
			case 3:
				mes "[Karian]";
				mes "I'll row and you just throw the water out!!";
				next;
				break;
			}
			set .@rand,rand(7,9);
			if (.@rand == 7){
				switch(select("Throw the water out.:Row.:Give up.")){
				case 1:
					mes "[Karian]";
					mes "I'll row and you just throw the water out!!";
					next;
					break;
				case 2:
					mes "[Karian]";
					mes "The boat is sinking!!!";
					close;
				case 3:
					mes "[Karian]";
					mes "What the hell do you think you're doing?";
					close;
				}
			}else if (.@rand == 8){
				switch(select("Row.:Throw the water out.:Give up.")){
				case 1:
					mes "[Karian]";
					mes "The boat is sinking!!!";
					close;
				case 2:
					mes "[Karian]";
					mes "I'll row and you just throw the water out!!";
					next;
					break;
				case 3:
					mes "[Karian]";
					mes "What the hell do you think you're doing?";
					close;
				}
			}
			switch(select("Give up.:Row.:Throw the water out.")){
			case 1:
				mes "[Karian]";
				mes "What the hell do you think you're doing?";
				close;
			case 2:
				mes "[Karian]";
				mes "The boat is sinking!!!";
				close;
			case 3:
				mes "[Karian]";
				mes "I'll row and you just throw the water out!!";
				next;
				break;
			}
			mes "-I've escaped from the-";
			mes "-throes of death a-";
			mes "-countless amount of times.-";
			set job_min,17;
			changequest 11148,11149;
			close2;
			warp "comodo",184,108;
			end;
		}
	}
	mes "===Notice===";
	mes "Maestro Song, Go to Comodo by boat!";
	mes "Be ambitious!";
	close;
}

ve_fild07,129,132,5	script	Karian#cmd5	486,{
	end;

OnInit:
	disablenpc "Karian#cmd5";
	end;

OnEnable:
	enablenpc "Karian#cmd5";
	initnpctimer;
	end;

OnDisable:
	disablenpc "Karian#cmd5";
	stopnpctimer;
	end;

OnTimer30000:
	donpcevent "Karian#cmd5::OnDisable";
	stopnpctimer;
	end;
}

comodo,184,108,0	script	jmComodo Almost Dead	139,2,2,{

OnTouch:
	if (job_min == 17){
		mes "["+strcharinfo(0)+"]";
		mes "I'm... I'm alive~";
		next;
		mes "[Karian]";
		mes "That was a close call.";
		donpcevent "Karian#cmd6::OnEnable";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "You're the one that insisted that we ride on that boat. That's how we ended up like this in the first place!";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "We wouldn't have suffered like this if we just took the Airship.";
		next;
		mes "[Karian]";
		mes "But I told you that I don't ride airships!";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "I can't believe this!";
		next;
		mes "[Karian]";
		mes "Well, let's forget about the past!";
		mes "Since we're in Comodo, let's just have some fun okay?";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "Then what should we do about looking for 'Maestro Song'??";
		next;
		mes "[Karian]";
		mes "Oh yeah...";
		mes "Why don't we ask the villagers?";
		donpcevent "Karian#cmd6::OnDisable";
		set job_min,18;
		changequest 11149,11150;
		close;
	}
	end;
}

comodo,184,109,0	script	Karian#cmd6	486,{
	end;

OnInit:
	disablenpc "Karian#cmd6";
	end;

OnEnable:
	enablenpc "Karian#cmd6";
	initnpctimer;
	end;

OnDisable:
	disablenpc "Karian#cmd6";
	stopnpctimer;
	end;

OnTimer100000:
	donpcevent "Karian#cmd6::OnDisable";
	stopnpctimer;
	end;
}

comodo,192,119,0	script	Kayak Master#job_min	98,{

	if (job_min == 18){
		mes "[Kayak Master]";
		mes "What?";
		mes "Maestro Song?";
		mes "I don't know~";
		next;
		mes "[Kayak Master]";
		mes "Go to the diner located in the northern part of Comodo.";
		mes "If he visits this town, he would likely go there first.";
		next;
		mes "[Kayak Master]";
		mes "The hostess is good at memorizing the faces of customers.";
		mes "It's good for business you know?";
		set job_min,19;
		changequest 11150,11151;
		close;
	}
	mes "[Kayak Master]";
	mes "The sea is man's dream.";
	next;
	mes "[Kayak Master]";
	mes "It's my hope that I can cross over to Hugel someday!";
	close;
}

comodo,159,316,4	script	Woman Roasting Meat	701,{

	if (job_min == 19){
		mes "[Woman Roasting Meat]";
		mes "Maestro Song?";
		mes "Yes, I remember that face because he visited a few years ago.";
		next;
		mes "[Woman Roasting Meat]";
		mes "He ate a whole plate of baby back ribs by himself...";
		mes "How can I forget his face?";
		next;
		mes "[Woman Roasting Meat]";
		mes "It was kind of a big fuss.";
		mes "It was so crowded because of him.";
		next;
		mes "[Woman Roasting Meat]";
		mes "Finally, he became exhaused and he wanted to go somewhere quiet.";
		next;
		mes "[Woman Roasting Meat]";
		mes "I told him that there was a quiet place near Morroc, and he left.";
		next;
		mes "[Woman Roasting Meat]";
		mes "I regret that.";
		next;
		mes "[Woman Roasting Meat]";
		mes "He raised our income a lot while he was here...";
		set job_min,20;
		changequest 11151,11152;
		close;
	}else if (job_min == 20){
		mes "[Woman Roasting Meat]";
		mes "Where is the quiet place?";
		mes "Well I'm not sure but there is a mysterious building in south-eastern part of Morroc.";
		next;
		mes "[Woman Roasting Meat]";
		mes "I heard that some mysterious people gather there.";
		mes "I think they're part of some secret guild called ash... or assa... Oh I forget...";
		close;
	}
	mes "[Woman Roasting Meat]";
	mes "He ate a whole plate of baby back ribs by himself.";
	next;
	mes "[Woman Roasting Meat]";
	mes "I'll never forget him.";
	close;
}

moc_fild16,206,232,0	script	jmTransfer news	139,3,3,{

OnTouch:
	if (job_min == 20){
		mes "["+strcharinfo(0)+"]";
		mes "Um? What is this?";
		mes "Something covered by sand?";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "Ah It's!!";
		mes "I think 'Maestro Song' dropped it!";
		next;
		mes "[Karian]";
		mes "What?! How do you know?";
		donpcevent "Karian#cmd7::OnEnable";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "The lyrics from the man I met in hugel on the receipt...";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "and this poem written on this paper.";
		mes "The calligraphy style is the same.";
		next;
		mes "[Karian]";
		mes "I want to see clock tower...";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "But this poem can't be a clue...";
		mes "...";
		mes "What?";
		next;
		mes "[Karian]";
		mes "......";
		mes "I want to see clock tower.";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "Clock tower?";
		mes "What are you saying all of a sudden?";
		next;
		mes "[Karian]";
		mes "The... huge clock tower in Al De Baran.";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "I know but...";
		next;
		mes "[Karian]";
		mes "Will you join me?";
		next;
		switch(select("Refuse.:Accept.")){
		case 1:
			mes "[Karian]";
			mes "Come on~Come on~";
			mes "Come on~Come on~";
			mes "Come on~~~~~~~~~";
			next;
			mes "[Karian]";
			mes "We don't have anymore clues.";
			next;
			mes "[Karian]";
			mes "Hey! Let's go~~";
			donpcevent "Karian#cmd7::OnDisable";
			set job_min,21;
			changequest 11152,11153;
			close;
		case 2:
			mes "["+strcharinfo(0)+"]";
			mes "Ok that's not a bad idea...";
			next;
			mes "[Karian]";
			mes "Ok!!!";
			mes "Hey! Let's go~~";
			donpcevent "Karian#cmd7::OnDisable";
			set job_min,21;
			changequest 11152,11153;
			close;
		}
	}
	end;
}

moc_fild16,204,231,0	script	Karian#cmd7	486,{
	end;

OnInit:
	disablenpc "Karian#cmd7";
	end;

OnEnable:
	enablenpc "Karian#cmd7";
	initnpctimer;
	end;

OnDisable:
	disablenpc "Karian#cmd7";
	stopnpctimer;
	end;

OnTimer100000:
	donpcevent "Karian#cmd7::OnDisable";
	stopnpctimer;
	end;
}

aldebaran,140,130,0	script	jmAldebaran Clock Tower	139,3,3,{

OnTouch:
	if (job_min == 21){
		mes "["+strcharinfo(0)+"]";
		mes "Anyway why do you want to visit this place?";
		next;
		mes "[Karian]";
		mes "......";
		donpcevent "Karian#cmd8::OnEnable";
		next;
		mes "[Karian]";
		mes "This is my friend's favorite place.";
		mes "When we feel tired, we see that tower.";
		next;
		mes "[Karian]";
		mes "Let me go back to my hometown.";
		mes "There are many beautiful flowers.";
		mes "The birds sing for me.";
		mes "It's this old town.";
		next;
		mes "[Karian]";
		mes "I harvest crops";
		mes "for my church.";
		mes "There is no warmer";
		mes "place than where";
		mes "I was raised.";
		next;
		mes "[Karian]";
		mes "Let me go back to my hometown.";
		mes "Let me play in the lake until I die.";
		mes "I'll take a rest";
		mes "at the end of my life.";
		next;
		mes "[Karian]";
		mes "Where is Misa and Masa.";
		mes "They already went to the";
		mes "brilliant mountain where";
		mes "it is full of freedom and";
		mes "pleasure I want to go";
		mes "there soon.";
		next;
		mes "[Karian]";
		mes "It's a song that my friend always sang for me.";
		mes "I haven't sung it in a long time...";
		next;
		mes "[Karian]";
		mes "Why don't we go back to Prontera?";
		next;
		mes "[Karian]";
		mes "I can't get rid of the the memories that I was impressed with when I entered Prontera's gates.";
		set job_min,22;
		changequest 11153,11154;
		donpcevent "Karian#cmd8::OnDisable";
		close;
	}else if (job_min == 22){
		mes "[Karian]";
		mes "Let's go back to Prontera?";
		next;
		mes "[Karian]";
		mes "I can't get rid of the the memories that I was impressed with when I entered Prontera's gates.";
		close;
	}
	end;
}

aldebaran,142,128,2	script	Karian#cmd8	486,{
	end;

OnInit:
	disablenpc "Karian#cmd8";
	end;

OnEnable:
	enablenpc "Karian#cmd8";
	initnpctimer;
	end;

OnDisable:
	disablenpc "Karian#cmd8";
	stopnpctimer;
	end;

OnTimer100000:
	donpcevent "Karian#cmd8::OnDisable";
	stopnpctimer;
	end;
}

prontera,155,40,0	script	jmprt1	139,2,2,{

OnTouch:
	if (job_min == 22){
		mes "[Karian]";
		mes "I've finally come back.";
		mes "Back to Prontera...";
		donpcevent "Karian#cmd9::OnEnable";
		next;
		mes "[Karian]";
		mes "I'm so tired.";
		mes "I want to take a rest~";
		mes "Come here, "+strcharinfo(0)+".";
		set job_min,23;
		close;
	}
	end;
}

prontera,155,49,4	script	Karian#cmd9	486,{
	end;

OnInit:
	disablenpc "Karian#cmd9";
	end;

OnEnable:
	enablenpc "Karian#cmd9";
	initnpctimer;
	end;

OnDisable:
	disablenpc "Karian#cmd9";
	stopnpctimer;
	end;

OnTimer300000:
	donpcevent "Karian#cmd9::OnDisable";
	stopnpctimer;
	end;
}

prontera,155,42,0	script	prtjm1	139,1,1,{

OnTouch:
	if (job_min == 23){
		mes "-Let me go back to my hometown.-";
		set job_min,24;
		close2;
		warp "prontera",155,44;
		end;
	}
	end;
}

prontera,155,44,0	script	prtjm2	139,1,1,{

OnTouch:
	if (job_min == 24){
		mes "-There are many beautiful flowers.-";
		set job_min,25;
		close2;
		warp "prontera",155,46;
		end;
	}
	end;
}

prontera,155,46,0	script	prtjm3	139,1,1,{

OnTouch:
	if (job_min == 25){
		mes "-The birds sing for me.-";
		set job_min,26;
		close2;
		warp "prontera",155,48;
		end;
	}
	end;
}

prontera,155,48,0	script	prtjm4	139,1,1,{

OnTouch:
	if (job_min == 26 || job_min == 27){
		mes "-It's this old town.-";
		next;
		if(SkillPoint != 0){
			mes "[Karian]";
			mes "Hey... Don't you know how to use your skill points?";
			mes "You should use them.";
			close;
		}
		if ((Class >= 4023) && (Class <= 4045)){
			mes "[Karian]";
			mes "Why... Why are you so little?";
			close;
		}
		if(checkweight(1201,1) == 0){
			mes "^3355FFWait a minute! You're";
			mes "carrying too many items";
			mes "right now: store some of";
			mes "your extra things in Kafra";
			mes "Storage, and then come back.^000000";
			close;
		}
		if (JobLevel < 50 || BaseLevel < 99){
			mes "[Karian]";
			mes "Hey... why are you so low?";
			mes "How did you lose levels?";
			close;
		}
		if (Class == Job_Bard || Class == Job_Clown){
			mes "["+strcharinfo(0)+"]";
			mes "-It's a poem that you picked up in the desert.-";
			next;
			mes "["+strcharinfo(0)+"]";
			mes "-How does Karian know-";
			mes "-that song's not a poem?-";
			next;
			mes "[Karian]";
			mes "Why are you looking at me?";
			mes "How was it? Have fun??";
			set job_min,27;
			donpcevent "Karian#cmd9::OnDisable";
			close2;
			warp "prt_in",101,174;
			end;
		}
		mes "[Karian]";
		mes "Hey... you changed your outfit?";
		mes "How'd you do that?";
		close;
	}
	end;
}

prt_in,94,172,4	script	Karian#job_min3	480,{

if ((Class >= 4023) && (Class <= 4045)){
	mes "[Karian]";
	mes "Why... Why are you so little?";
	close;
}
if(job_min >= 27)
{
	if (job_min > 99){
		switch(select("Talk.:Leave.")){
		case 1:
			mes "[Maestro Song]";
			mes "The name 'Karian'?";
			mes "He gave it to me.";
			next;
			mes "[Maestro Song]";
			mes "He said that when he hears my song, he feels warmhearted.";
			mes "'Kallianga' means hot air.";
			next;
			mes "[Maestro Song]";
			mes "He likes to sing..";
			next;
			mes "[Maestro Song]";
			mes "And he's good at singing for sure?";
			next;
			mes "[Maestro Song]";
			mes "Ah! If it's okay with you, I want to take a pic with you in Juno?";
			next;
			mes "[Maestro Song]";
			mes "I want to have something to remember you by.";
			close;
		case 2:
			mes "[Maestro Song]";
			mes "See you.";
			mes "It was really fun.";
			close2;
			warp "prontera",156,99;
			end;
		}
	}
	if(checkweight(1201,1) == 0){
		mes "^3355FFWait a minute! You're";
		mes "carrying too many items";
		mes "right now: store some of";
		mes "your extra things in Kafra";
		mes "Storage, and then come back.^000000";
		close;
	}
	if (JobLevel < 50 || BaseLevel < 99){
		mes "[Karian]";
		mes "Hey... why are you so low?";
		mes "How did you lose levels?";
		close;
	}
	if (SkillPoint != 0){
		mes "[Karian]";
		mes "Hey... Don't you know how to use your skill points?";
		mes "You should use them.";
		close;
	}
	if (Class == Job_Bard || Class == Job_Clown){
		mes "[Karian]";
		mes "I'm sorry about the lie.";
		mes "The song written on this paper...";
		next;
		mes "[Karian]";
		mes "I really want to find my friend's article left behind.";
		mes "I couldn't find it by myself.";
		next;
		mes "[Karian]";
		mes "I gave it to my friend but he kept it precious...";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "Did you give it to him?";
		mes "Wait a second!";
		mes "Just who are you?";
		next;
		mes "[Maestro Song]";
		mes "Yes! I'm 'Maestro Song'!";
		mes "Are you suprised!?";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "......";
		next;
		mes "[Maestro Song]";
		mes "This is my present to you.";
		next;
		if (Class == Job_Bard){
			mes "[Maestro Song]";
			mes "You are also my friend.";
			set job_min,100;
			jobchange Job_Minstrel;
			completequest 11154;
			getitem 5751,1;
			getitem 2795,1;
			close;
		}else if (Class == Job_Clown){
			mes "[Maestro Song]";
			mes "You are also my friend.";
			set job_min,100;
			jobchange Job_Minstrel_T;
			completequest 11154;
			getitem 5751,1;
			getitem 2795,1;
			close;
		}
		mes "[Maestro Song]";
		mes "Huh?";
		close;
	}
}
	mes "[Karian]";
	mes "How did you get in here?";
	close;
}