//===== eAthena Script ======================================= 
//= Moscovia Quests
//===== By: ================================================== 
//= Kisuka
//===== Current Version: ===================================== 
//= 1.0
//===== Compatible With: ===================================== 
//= eAthena SVN
//===== Description: ========================================= 
//= Quests for Moscovia.
//= The Moving Island, Help Mikhail, Acorn Exchange,
//= Banish Winter, Shafka Hat.
//===== Additional Comments: ================================= 
//= 1.0 First version. [Kisuka]
//============================================================ 

//============================================================================
// The Moving Island
//============================================================================

//----------------------------------------------------------------------------
// Berbayeff - Starting Point
//----------------------------------------------------------------------------
moscovia,171,71,3	script	Berbayeff#npc	968,{
	if (mos_whale_edq < 1) {
		emotion e_an;
		mes "[Berbayeff]";
		mes "This..and..that...";
		mes "All guys...are distrustful.";
		mes "Makes me a braggart.";
		next;
		select("Do you have a problem?");
			mes "[Berbayeff]";
			mes "I haven't seen you before.";
			mes "Are you a traveler?";
			mes "If so, then you may have";
			mes "seen many marvelous things";
			mes "from near and far.";
			next;
			mes "[Berbayeff]";
			mes "I'm sure you'll probably";
			mes "be interested in my story.";
			mes "All the villagers are blockheads,";
			mes "so they treat me like an idiot.";
			next;
			if(select("I'm not interested in any story.:Tell me.") == 1) {
				mes "[Berbayeff]";
				mes "Indeed... You are not interested...";
				mes "That's ok.";
				next;
				mes "[Berbayeff]";
				mes "If you change your mind,";
				mes "you can talk to me whenever.";
				close;
			}
			emotion e_no1;
			mes "[Berbayeff]";
			mes "Good, I have been thinking that";
			mes "I would tell you this story from the start.";
			next;
			mes "[Berbayeff]";
			mes "You seem to have spent";
			mes "only a few days here.";
			mes "Have you ever heard";
			mes "about The Moving Island?";
			next;
			mes "[Berbayeff]";
			mes "In Moscovia,";
			mes "a story is handed down";
			mes "from the ancients, like legends.";
			next;
			mes "[Berbayeff]";
			mes "It is said that";
			mes "there is an island";
			mes "which sometimes moves,";
			mes "not far out at sea.";
			next;
			mes "[Berbayeff]";
			mes "But, nobody has seen";
			mes "the island before.";
			mes "So, few people have";
			mes "believed the legend.";
			next;
			mes "[Berbayeff]";
			mes "Actually, I thought that";
			mes "it might be a kind of";
			mes "old story... nothing more.";
			mes "But then... I saw...";
			next;
			mes "[Berbayeff]";
			mes "Actually, I thought that";
			mes "it might be a kind of";
			mes "old story... nothing more.";
			mes "But then... I saw...";
			mes "The Moving Island!!!";
			next;
			mes "[Berbayeff]";
			mes "Surprised? Right...";
			mes "It is so surprising.";
			mes "Frankly, you don't believe";
			mes "any of this story either.";
			next;
			mes "[Berbayeff]";
			mes "I saw the island";
			mes "from the middle of";
			mes "the village's south shore.";
			next;
			mes "[Berbayeff]";
			mes "At first, I doubted my eyes.";
			mes "I have never heard that that island";
			mes "really existed here, even though I";
			mes "have lived here all my life!";
			next;
			mes "[Berbayeff]";
			mes "I tried to go up";
			mes "to look at it from";
			mes "higher ground, but";
			mes "the island receded";
			mes "and disappeared...";
			mes "back to the sea.";
			next;
			select("The island doesn't appear any more?");
				mes "[Berbayeff]";
				mes "If it does,";
				mes "one might just think";
				mes "that they've looked";
				mes "at an apparition.";
				next;
				mes "[Berbayeff]";
				mes "But a few nights ago...";
				mes "Finally, the island appeared";
				mes "in front of me again,";
				mes "while I was driving my ship to go home.";
				next;
				mes "[Berbayeff]";
				mes "At that time, I tried to";
				mes "get near the island again,";
				mes "slowly, but it disappeared...";
				mes "beyond the sea once more.";
				next;
				mes "[Berbayeff]";
				mes "It was then, I couldn't help";
				mes "to finally believe";
				mes "in the existence of";
				mes "The Moving Island!";
				next;
				mes "[Berbayeff]";
				mes "Surely, this must be";
				mes "a great discovery!";
				mes "Don't you think??";
				mes "Doesn't your heart shout out in";
				mes "hopes of adventuring out to the island?";
				next;
				mes "[Berbayeff]";
				mes "I haven't given up yet!";
				mes "Certainly, it'll appear again";
				mes "right in front of us!";
				next;
				mes "[Berbayeff]";
				mes "And on that day,";
				mes "I'll definitely go up to that";
				mes "island... and verify it with my own eyes!";
				set mos_whale_edq,1;
				close;
	}
	else if (mos_whale_edq == 1) {
		set .@speak,rand(1,5);
		if (.@speak > 0 || .@speak < 3) {
			mes "[Berbayeff]";
			mes "Clearly, I want to prove";
			mes "the existence of that island to everyone...";
			next;
			mes "[Berbayeff]";
			mes "If the island appears again,";
			mes "I should certify its identity.";
			mes "Would you like to try it?";
			close;
		}
		else if (.@speak > 2 || .@speak < 6) {
			mes "[Berbayeff]";
			mes "The best way to find the";
			mes "island is by direct contact";
			mes "with a ship in the sea.";
			next;
			mes "[Berbayeff]";
			mes "Me?";
			mes "Of course I have a ship.";
			mes "I am a fisherman afterall...";
			next;
			mes "[Berbayeff]";
			mes "Ah, you do? You need...";
			mes "a ship? Hm...too bad.";
			mes "I can't lend my ship to you...";
			next;
			mes "[Berbayeff]";
			mes "But maybe Mr. Ibanoff";
			mes "can lend his ship to you";
			mes "He likes going around";
			mes "adventuring like me.";
			mes "He seems to enjoy his youth...";
			next;
			mes "[Berbayeff]";
			mes "Mr. Ibanoff also traveled and";
			mes "adventured all over the world";
			mes "like you, so he might understand";
			mes "your sentiments well.";
			next;
			mes "[Berbayeff]";
			mes "If you want to find the island";
			mes "by ship, go to Mr. Ibanoff";
			mes "and ask for a favor.";
			close;
		}
		else {
			mes "um...What a beautiful day?";
			mes "Hahahahahaha...";
			close;
		}
	}
	else if (mos_whale_edq > 12 && mos_whale_edq < 42) {
		emotion e_omg;
		mes "[Berbayeff]";
		mes "Are you serious? Did you say";
		mes "you've found The Moving Island?";
		next;
		emotion e_no1;
		mes "[Berbayeff]";
		mes "The legend is true!!";
		mes "I was right, wasn't I?";
		mes "You must be a great adventurer.";
		close;
	}else{
		mes "[Berbayeff]";
		mes "Welcome to Moscovia.";
		mes "What's your impression thus far?";
		mes "Looks gorgeous, huh?";
		next;
		mes "[Berbayeff]";
		mes "Most travelers and strangers";
		mes "like our village.";
		mes "I want you to visit places here and";
		mes "there. You'll probably love this town.";
		close;
	}
}

//----------------------------------------------------------------------------
// Mr. Ibanoff - Docks
//----------------------------------------------------------------------------
moscovia,135,49,5	script	Mr. Ibanoff#npc	964,{
	if (mos_whale_edq == 1 || mos_whale_edq == 2) {
		mes "["+strcharinfo(0)+"]";
		mes "Hello. Are you Mr. Ibanoff?";
		next;
		mes "[Mr. Ibanoff]";
		mes "Yes. I am Mr. Ibanoff.";
		mes "What's up?";
		next;
		if(select("Tell me an adventure story.:Lend me your ship.") == 1) {
			mes "[Mr. Ibanoff]";
			mes "You are an adventurer, right?";
			mes "You come from a strange land?";
			mes "Well, well, well...";
			mes "You are welcome here.";
			next;
			mes "[Mr. Ibanoff]";
			mes "When I adventured around";
			mes "Rune Midgarts, maybe it was";
			mes "well before you were born.";
			mes "Ah... I miss those days...";
			next;
			mes "[Mr. Ibanoff]";
			mes "Now, I'm so tired;";
			mes "my body and my heart.";
			mes "I get reminded of fond";
			mes "memories just by looking at the sea...";
			next;
			mes "[Mr. Ibanoff]";
			mes "Um... Stories...";
			mes "What to talk about first?";
			mes "Right, I'll talk about that time I";
			mes "fought against a huge flock of Porings...";
			next;
			mes "["+strcharinfo(0)+"]";
			mes "Hahaha...";
			next;
			mes "[Mr. Ibanoff]";
			mes "You'll be happy that you";
			mes "listened to the adventure story.";
			mes "Well, well, well...";
			mes "When I was 24 years old...";
			mes "My colleagues and I were passing by";
			mes "a forest near Payon...";
			next;
			mes "when...";
			next;
			mes "and....";
			next;
			mes "then.....";
			next;
			mes "Finally......";
			next;
			mes "[Mr. Ibanoff]";
			mes "I did a very good";
			mes "job in the fight, so";
			mes "my colleagues and I were";
			mes "able to get back safely.";
			next;
			mes "[Mr. Ibanoff]";
			mes "What did you think?";
			mes "Next... Let's talk about";
			mes "the haunting of a Goblin mob...!";
			next;
			if(select("I'll listen next time...:Interesting. Keep talking.") == 1) {
				mes "[Mr. Ibanoff]";
				mes "If not...Ooo, I can just";
				mes "keep going and going...";
				mes "No? Too bad... Hehe...";
				mes "Let's talk next time.";
				close;
			}
			mes "[Mr. Ibanoff]";
			mes "Yeah? Ohohoh... my friend,";
			mes "we are in sync with each other...!";
			next;
			mes "[Mr. Ibanoff]";
			mes "Ok, this time I'll talk";
			mes "about the bloody fight at the";
			mes "haunting of a Goblin mob...";
			next;
			mes "You see...";
			next;
			mes "and....";
			next;
			mes "also.....";
			next;
			mes "Lastly......";
			next;
			mes "[Mr. Ibanoff]";
			mes "So, the day's great bloody";
			mes "fight was over like that...";
			mes "Ohwee...";
			next;
			mes "[Mr. Ibanoff]";
			mes "Hah! You are the first";
			mes "to listen carefully to";
			mes "my stories, for a long time.";
			mes "Feels so good...";
			next;
			mes "[Mr. Ibanoff]";
			mes "You absolutely have talent,";
			mes "as a great adventurer.";
			mes "You can become a good friend to me.";
			next;
			mes "[Mr. Ibanoff]";
			mes "Next time, we talk about your";
			mes "adventure story... eh? ~";
			mes "If you ever need anything,";
			mes "come talk to me whenever, hahaha!";
			set mos_whale_edq,2;
			close;
		}
		if (mos_whale_edq == 2) {
			mes "[Mr. Ibanoff]";
			mes "Ah! The good listener!";
			mes "What will you do if you";
			mes "borrow my ship? I wonder...";
			next;
			mes "["+strcharinfo(0)+"]";
			mes "I'm going to adventure out";
			mes "to sea, to find a moving";
			mes "island which has brought";
			mes "many a legend to this neighboring village.";
			next;
			mes "[Mr. Ibanoff]";
			mes "The Moving Island?";
			mes "I have never seen that really...";
			mes "You are young! Hawhawhaw!";
			next;
			mes "[Mr. Ibanoff]";
			mes "I hope that you find";
			mes "the island without fail,";
			mes "and that you bring back";
			mes "surprising news to us!";
			next;
			mes "[Mr. Ibanoff]";
			mes "Let it be so!";
			mes "First, I should check";
			mes "the state of the ship...";
			mes "You have some work to do,";
			mes "if you want to help me.";
			next;
			mes "[Mr. Ibanoff]";
			mes "She has not floated";
			mes "for a long time,";
			mes "so we should check";
			mes "and repair the parts";
			mes "that power her up.";
			next;
			mes "[Mr. Ibanoff]";
			mes "Preparing the tools for repairs, in";
			mes "this place, takes several days...";
			mes "if you can possibly prepare them.";
			next;
			mes "[Mr. Ibanoff]";
			mes "The materials needed are:";
			mes "^0000FFStrange Steel Piece 10, Rusty Screw 10, Flexible Tube 5, Jubilee 10^000000.";
			next;
			mes "[Mr. Ibanoff]";
			mes "When you've prepared all the";
			mes "materials, bring them to me. I'll";
			mes "repair the ship.";
			set mos_whale_edq,3;
			close;
		}else{
			emotion e_ag;
			mes "[Mr. Ibanoff]";
			mes "You want to borrow";
			mes "my ship so spontaneously??";
			mes "I don't even know you!!";
			mes "You are more rude than you look.";
			next;
			mes "[Mr. Ibanoff]";
			mes "I don't know, how you know";
			mes "that I have a ship...";
			mes "Anyway, I can't lend my ship";
			mes "willingly to strangers.";
			close;
		}
	}
	else if (mos_whale_edq == 3) {
		mes "[Mr. Ibanoff]";
		mes "Did you bring all the materials?";
		mes "If we have all the materials,";
		mes "we can prepare for departure!";
		next;
		if (countitem(7167) > 9 && countitem(7317) > 9 && countitem(7325) > 4 && countitem(7312) > 9) {
			mes "[Mr. Ibanoff]";
			mes "Oh! You got the all materials.";
			mes "It's enough.";
			next;
			delitem 7167,10; //Mystery_Iron_Bit
			delitem 7317,10; //Screw
			delitem 7325,5; //Tube
			delitem 7312,10; //Jubilee
			set mos_whale_edq,4;
			mes "[Mr. Ibanoff]";
			mes "Okay, we are at the ready.";
			mes "When would you like to depart?";
			mes "I'll say one thing...";
			mes "It's difficult to keep this";
			mes "ship afloat after the sun has set.";
			next;
			mes "[Mr. Ibanoff]";
			mes "In these neighboring waters,";
			mes "there are many raging waves.";
			mes "After the sun sets, the tide does";
			mes "not get any easier... even for an";
			mes "expert seaman.";
			next;
			mes "[Mr. Ibanoff]";
			mes "Remember, the poor condition of";
			mes "this ship also factors when";
			mes "attempting to plow through the";
			mes "raging waves.";
			next;
			mes "[Mr. Ibanoff]";
			mes "If you are ready to depart, talk to";
			mes "me before the sun sets.";
			close;
		}else{
			mes "[Mr. Ibanoff]";
			mes "These materials are insufficient.";
			mes "Perhaps you forgot some of them?";
			next;
			mes "[Mr. Ibanoff]";
			mes "The materials needed are:";
			mes "^0000FFStrange Steel Piece 10, Rusty Screw 10, Flexible Tube 5, Jubilee 10^000000.";
			close;
		}
	}
	else if (mos_whale_edq == 4) {
		mes "[Mr. Ibanoff]";
		mes "Oh. Are you ready to depart?";
		mes "Good, let's see...";
		next;
		if (gettime(3)>=7 && gettime(3)<20) {
			mes "[Mr. Ibanoff]";
			mes "Hmm. It's not a bad time.";
			mes "We should hurry up";
			mes "before the sun sets.";
			mes "The ship is prepared already";
			mes "at a dock nearby, so we can depart";
			mes "right away.";
			close2;
			warp "mosk_ship",94,110;
			end;
		}else{
			mes "[Mr. Ibanoff]";
			mes "Gee. The sun has already set.";
			mes "It's too dangerous to depart";
			mes "at night because of the waves";
			mes "getting too rugged.";
			next;
			mes "[Mr. Ibanoff]";
			mes "When the sun rises again tomorrow,";
			mes "you can come back. We can't depart";
			mes "right now.";
			close;
		}
	}
	else if (mos_whale_edq > 4 && mos_whale_edq < 15) {
		mes "[Mr. Ibanoff]";
		mes "That last sailing was tough...";
		mes "But, all adventures";
		mes "are like that...";
		mes "Hahaha!";
		next;
		mes "[Mr. Ibanoff]";
		mes "If you keep a mind to";
		mes "depart again... tell me";
		mes "before the sun sets.";
		mes "while the sun rises.";
		next;
		mes "[Mr. Ibanoff]";
		mes "Will you depart?";
		next;
		if(select("I'm not ready.:Let's go.") == 1) {
			mes "[Mr. Ibanoff]";
			mes "When you are ready to depart, tell me.";
			close;
		}
		if (gettime(3)>=7 && gettime(3)<20) {
			set mos_whale_edq,4;
			mes "[Mr. Ibanoff]";
			mes "Hmm. It's not a bad time.";
			mes "We should hurry up";
			mes "before the sun sets.";
			mes "The ship is prepared already";
			mes "at a dock nearby, so we can depart";
			mes "right away.";
			close2;
			warp "mosk_ship",94,110;
			end;
		}else{
			mes "[Mr. Ibanoff]";
			mes "Gee. The sun has already set.";
			mes "It's too dangerous to depart";
			mes "at night because of the waves";
			mes "getting too rugged.";
			next;
			mes "[Mr. Ibanoff]";
			mes "When the sun rises again tomorrow,";
			mes "you can come back. We can't depart";
			mes "right now.";
			close;
		}
	}
	else if (mos_whale_edq == 15) {
		mes "[Mr. Ibanoff]";
		mes "Hey you... You are alive!";
		mes "When you were swept away by the";
		mes "waves, I thought that was the last";
		mes "I would ever see of you!";
		next;
		mes "[Mr. Ibanoff]";
		mes "Anyway, where were you all this time?";
		next;
		select("Explain the whole story.");
			mes "[Mr. Ibanoff]";
			mes "Oh... that's really marvelous.";
			mes "Well I never...";
			mes "The island truly exists...?";
			next;
			mes "[Mr. Ibanoff]";
			mes "What's more...";
			mes "The island is not an island?!?";
			mes "It's a gigantic whale???";
			next;
			mes "[Mr. Ibanoff]";
			mes "And trees grow... and water";
			mes "streams... along the whale's";
			mes "back!!?";
			next;
			mes "[Mr. Ibanoff]";
			mes "That's unbelievable!";
			mes "The most marvelous incident I have";
			mes "ever heard in my lifetime!";
			next;
			mes "[Mr. Ibanoff]";
			mes "Also, I am surprised at the";
			mes "presence of an aged person on Whale";
			mes "Island!";
			next;
			mes "[Mr. Ibanoff]";
			mes "He must be a man strong in";
			mes "spirit... with experience and high";
			mes "discipline.";
			next;
			mes "[Mr. Ibanoff]";
			mes "The story of the island has";
			mes "advanced enough until this part.";
			mes "Why don't you announce your";
			mes "findings to our dearest Csar";
			mes "and receive aid to find Whale";
			mes "Island?";
			next;
			mes "[Mr. Ibanoff]";
			mes "Our dear Csar likes it very";
			mes "much to hear stories about";
			mes "valuable things, so if he";
			mes "listens to your story, he may give";
			mes "you a prize...";
			next;
			mes "[Mr. Ibanoff]";
			mes "And if you have any plans to go";
			mes "back to the island, I want to go";
			mes "together with you! Eh? Hahaha!";
			set mos_whale_edq,16;
			close;
	}
	else if (mos_whale_edq > 15 && mos_whale_edq < 18) {
		mes "[Mr. Ibanoff]";
		mes "If our dear Csar listens to this";
		mes "kind of story, he would find it a";
		mes "pleasure.";
		next;
		mes "[Mr. Ibanoff]";
		mes "He might even give you a prize...";
		close;
	}
	else if (mos_whale_edq == 18) {
		mes "[Mr. Ibanoff]";
		mes "Hm. Our dear Csar requested";
		mes "evidence of the whale island?...";
		next;
		mes "[Mr. Ibanoff]";
		mes "That may prove a little";
		mes "difficult...";
		next;
		mes "[Mr. Ibanoff]";
		mes "Do you have a guarantee that you";
		mes "can find Whale Island again?";
		next;
		mes "[Mr. Ibanoff]";
		mes "I think you won't give up.";
		mes "How about if we depart";
		mes "once more, and I will gladly help";
		mes "you find Whale Island!";
		next;
		if(select("Try again to find Whale Island.:Give up.") == 1) {
			mes "[Mr. Ibanoff]";
			mes "That does it! I expected it.";
			mes "I knew you weren't the type to give up an adventure!";
			next;
			mes "[Mr. Ibanoff]";
			mes "Again, let's get the ship ready and sail before the sun sets!";
			set mos_whale_edq,19;
			close;
		}
		mes "[Mr. Ibanoff]";
		mes "I see...";
		mes "Even though you like adventure,";
		mes "it might be impossible to find";
		mes "Whale Island again...";
		next;
		mes "[Mr. Ibanoff]";
		mes "If you change your mind,";
		mes "anytime, come tell me.";
		mes "Frankly, I would love to see you";
		mes "prove the existence of Whale Island";
		mes "to our dear Csar.";
		close;
	}
	else if (mos_whale_edq == 19) {
		mes "[Mr. Ibanoff]";
		mes "Oh! Are you ready to depart?";
		next;
		if(select("I'm not ready.:Let's go.") == 1) {
			mes "[Mr. Ibanoff]";
			mes "When you are ready to depart, tell me.";
			close;
		}
		if (gettime(3)>=7 && gettime(3)<20) {
			mes "[Mr. Ibanoff]";
			mes "Hmm. It's not a bad time.";
			mes "We should hurry up";
			mes "before the sun sets.";
			mes "The ship is prepared already";
			mes "at a dock nearby, so we can depart";
			mes "right away.";
			close2;
			warp "mosk_ship",94,110;
			end;
		}else{
			mes "[Mr. Ibanoff]";
			mes "Gee. The sun has already set.";
			mes "It's too dangerous to depart";
			mes "at night because of the waves";
			mes "getting too rugged.";
			next;
			mes "[Mr. Ibanoff]";
			mes "When the sun rises again tomorrow,";
			mes "you can come back. We can't depart";
			mes "right now.";
			close;
		}
	}
	else if (mos_whale_edq > 19 && mos_whale_edq < 32) {
		mes "[Mr. Ibanoff]";
		mes "What a surprise!!";
		mes "Where have you been??";
		mes "I was worried that you had";
		mes "disappeared forever!";
		next;
		mes "[Mr. Ibanoff]";
		mes "I don't care... Wherever you have";
		mes "been, it's very good to see you";
		mes "again.";
		set mos_whale_edq,19;
		next;
		mes "[Mr. Ibanoff]";
		mes "I can guess you'd like to go to";
		mes "Whale Island once again...";
		next;
		if (gettime(3)>=7 && gettime(3)<20) {
			mes "[Mr. Ibanoff]";
			mes "Hmm. It's not a bad time.";
			mes "We should hurry up";
			mes "before the sun sets.";
			mes "The ship is prepared already";
			mes "at a dock nearby, so we can depart";
			mes "right away.";
			close2;
			warp "mosk_ship",94,110;
			end;
		}else{
			mes "[Mr. Ibanoff]";
			mes "Gee. The sun has already set.";
			mes "It's too dangerous to depart";
			mes "at night because of the waves";
			mes "getting too rugged.";
			next;
			mes "[Mr. Ibanoff]";
			mes "When the sun rises again tomorrow,";
			mes "you can come back. We can't depart";
			mes "right now.";
			close;
		}
	}
	else if (mos_whale_edq == 32) {
		mes "[Mr. Ibanoff]";
		mes "Oh. You came back!";
		mes "So, how did you do?";
		next;
		mes "[Mr. Ibanoff]";
		mes "You say...";
		mes "If you bring the materials, the old";
		mes "man makes the instrument...";
		next;
		mes "[Mr. Ibanoff]";
		mes "And he promised that he won't move";
		mes "the island until you go back";
		mes "again...";
		next;
		mes "[Mr. Ibanoff]";
		mes "I see. I remember the exact";
		mes "directions. Let's leave";
		mes "immediately, as soon as you are";
		mes "ready.";
		set mos_whale_edq,33;
		close;
	}
	else if (mos_whale_edq > 32 && mos_whale_edq < 39) {
		mes "[Mr. Ibanoff]";
		mes "Oh. Did you get all the";
		mes "materials you needed?";
		next;
		mes "[Mr. Ibanoff]";
		mes "If so, do you want to go now?";
		next;
		if(select("Not yet.:Let's go.") == 1) {
			mes "[Mr. Ibanoff]";
			mes "I see. I will wait.";
			close;
		}
		mes "[Mr. Ibanoff]";
		mes "Ok, let's go!";
		close2;
		warp "mosk_fild01",93,94;
		end;
	}
	else if (mos_whale_edq > 38 && mos_whale_edq < 41) {
		mes "[Mr. Ibanoff]";
		mes "Finally, everything has ended";
		mes "successfully. With this, I add 1";
		mes "more page to my... no, OUR adventure story!";
		next;
		mes "[Mr. Ibanoff]";
		mes "Someday, I want to have another";
		mes "chance to have another fantastic";
		mes "adventure with a person like you!";
		close;
	}
	else if (mos_whale_edq == 41) {
		mes "[Mr. Ibanoff]";
		mes "I heard that you played a great";
		mes "performance, with the instrument";
		mes "from Whale Island, at the Imperial";
		mes "Palace. Eh? You must have quite the talent!";
		next;
		mes "[Mr. Ibanoff]";
		mes "Finally, everything has ended";
		mes "successfully. With this, I add 1";
		mes "more page to my... no, OUR adventure story!";
		next;
		mes "[Mr. Ibanoff]";
		mes "Someday, I want to have another";
		mes "chance to have another fantastic";
		mes "adventure with a person like you!";
		close;
	}
	else if (mos_whale_edq > 90 && mos_whale_edq < 100) {
		mes "[Mr. Ibanoff]";
		mes "What's going on?";
		mes "You should ride a ship now? Let's ready to leave hurry up.";
		set mos_whale_edq,4;
		close;
	}
	else if (mos_whale_edq > 200 && mos_whale_edq < 300) {
		mes "[Mr. Ibanoff]";
		mes "What's going on?";
		mes "You should ride a ship now? Let's ready to leave hurry up.";
		set mos_whale_edq,19;
		close;
	}
	else{
		mes "[Mr. Ibanoff]";
		mes "You are also an adventurer from another province. I also was a great adventurer.";
		next;
		mes "[Mr. Ibanoff]";
		mes "Uf...I just want to be 20 years younger, so I can travel here and there with invigorating youth such as you... Time is an enemy. Hahahahaha!";
		close;
	}
}

//----------------------------------------------------------------------------
// Mr. Ibanoff - Ship
//----------------------------------------------------------------------------
mosk_ship,98,110,3	script	Mr. Ibanoff#npc2	964,{
	if (mos_whale_edq == 4) {
		mes "[Mr. Ibanoff]";
		mes "What a time for sailing!";
		mes "The wind of the sea is so cool.";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "You didn't have to accompany me";
		mes "through this dangerous sailing...";
		next;
		mes "[Mr. Ibanoff]";
		mes "Such as I am, I know the";
		mes "sea a lot better than you!";
		mes "And this ship has been my";
		mes "friend through all my life!";
		mes "I wouldn't abandon a friend.";
		mes "Would you? ~";
		next;
		mes "[Mr. Ibanoff]";
		mes "I will order you where to go, by";
		mes "watching the seas.";
		next;
		mes "[Mr. Ibanoff]";
		mes "You just adjust the direction of";
		mes "the rudder by following my orders.";
		next;
		mes "[Mr. Ibanoff]";
		mes "At first, hold the rudder to go";
		mes "forward, to the east.";
		set mos_whale_edq,5;
		close;
	}
	else if (mos_whale_edq == 5) {
		mes "[Mr. Ibanoff]";
		mes "Keep the direction by holding the";
		mes "rudder to move forward to the";
		mes "East.";
		close;
	}
	else if (mos_whale_edq == 6) {
		set .@ship1,rand(1,4);
		if (.@ship1 == 3) {
			mes "[Mr. Ibanoff]";
			mes "Hm. The sea currents have changed.";
			mes "Adjust the rudder forward to the";
			mes "North, to follow the currents.";
			set mos_whale_edq,7;
			close;
		}else{
			mes "[Mr. Ibanoff]";
			mes "Nothing yet... Nothing has changed";
			mes "in the flow of water. There is";
			mes "nothing to note...";
			next;
			mes "[Mr. Ibanoff]";
			mes "We had better keep sailing on this";
			mes "heading for now.";
			close;
		}
	}
	else if ($@mos1_edq > 0) {
		mes "[Mr. Ibanoff]";
		mes "We must first repulse the";
		mes "monsters!";
		close;
	}
	else if (mos_whale_edq == 7 && $@mos1_edq == 0) {
		mes "[Mr. Ibanoff]";
		mes "Hey!";
		mes "Did you not hear me?";
		mes "Change the rudder forward to the";
		mes "North, and follow the currents!";
		close;
	}
	else if (mos_whale_edq == 8 && $@mos1_edq == 0) {
		set .@ship1,rand(1,3);
		if (.@ship1 == 3) {
			set .@ship2,rand(1,4);
			if (.@ship2 == 1) {
				mes "[Mr. Ibanoff]";
				mes "Hm. The sea currents have changed.";
				mes "Adjust the rudder forward to the";
				mes "East, to follow the currents.";
				set mos_whale_edq,91;
				close;
			}
			else if (.@ship2 == 2) {
				mes "[Mr. Ibanoff]";
				mes "Hm. The sea currents have changed.";
				mes "Adjust the rudder forward to the";
				mes "West, to follow the currents.";
				set mos_whale_edq,92;
				close;
			}
			else if (.@ship2 == 3) {
				mes "[Mr. Ibanoff]";
				mes "Hm. The sea currents have changed.";
				mes "Adjust the rudder forward to the";
				mes "South, to follow the currents.";
				set mos_whale_edq,93;
				close;
			}
			else if (.@ship2 == 4) {
				mes "[Mr. Ibanoff]";
				mes "Hm. The sea currents have changed.";
				mes "Adjust the rudder forward to the";
				mes "North, to follow the currents.";
				set mos_whale_edq,94;
				close;
			}
		}else{
			mes "[Mr. Ibanoff]";
			mes "Nothing yet... Nothing has changed";
			mes "in the flow of water. There is";
			mes "nothing to note...";
			next;
			mes "[Mr. Ibanoff]";
			mes "We had better keep sailing on this heading for now.";
			close;
		}
	}
	else if (mos_whale_edq == 91 && $@mos1_edq == 0) {
		mes "[Mr. Ibanoff]";
		mes "Hey!";
		mes "Did you not hear me?";
		mes "Change the rudder forward to the";
		mes "East, and follow the currents!";
		close;
	}
	else if (mos_whale_edq == 92 && $@mos1_edq == 0) {
		mes "[Mr. Ibanoff]";
		mes "Hey!";
		mes "Did you not hear me?";
		mes "Change the rudder forward to the";
		mes "West, and follow the currents!";
		close;
	}
	else if (mos_whale_edq == 93 && $@mos1_edq == 0) {
		mes "[Mr. Ibanoff]";
		mes "Hey!";
		mes "Did you not hear me?";
		mes "Change the rudder forward to the";
		mes "South, and follow the currents!";
		close;
	}
	else if (mos_whale_edq == 94 && $@mos1_edq == 0) {
		mes "[Mr. Ibanoff]";
		mes "Hey!";
		mes "Did you not hear me?";
		mes "Change the rudder forward to the";
		mes "North, and follow the currents!";
		close;
	}
	else if (mos_whale_edq == 10 && $@mos1_edq == 0) {
		set .@ship1,rand(1,3);
		if (.@ship1 == 2) {
			set .@ship2,rand(1,4);
			if (.@ship2 == 1) {
				mes "[Mr. Ibanoff]";
				mes "Hm. The sea currents have changed.";
				mes "Adjust the rudder forward to the";
				mes "East, to follow the currents.";
				set mos_whale_edq,91;
				close;
			}
			else if (.@ship2 == 2) {
				mes "[Mr. Ibanoff]";
				mes "Hm. The sea currents have changed.";
				mes "Adjust the rudder forward to the";
				mes "West, to follow the currents.";
				set mos_whale_edq,92;
				close;
			}
			else if (.@ship2 == 3) {
				mes "[Mr. Ibanoff]";
				mes "Hm. The sea currents have changed.";
				mes "Adjust the rudder forward to the";
				mes "South, to follow the currents.";
				set mos_whale_edq,93;
				close;
			}
			else if (.@ship2 == 4) {
				mes "[Mr. Ibanoff]";
				mes "Hm. The sea currents have changed.";
				mes "Adjust the rudder forward to the";
				mes "North, to follow the currents.";
				set mos_whale_edq,94;
				close;
			}
		}else{
			mes "[Mr. Ibanoff]";
			mes "Nothing yet... Nothing has changed";
			mes "in the flow of water. There is";
			mes "nothing to note...";
			next;
			mes "[Mr. Ibanoff]";
			mes "We had better keep sailing on this heading for now.";
			close;
		}
	}
	else if (mos_whale_edq == 10 && $@mos1_edq > 0) {
		mes "[Mr. Ibanoff]";
		mes "We must first repulse the";
		mes "monsters!";
		close;
	}
	else if (mos_whale_edq == 11) {
		mes "[Mr. Ibanoff]";
		mes "Look... Beyond the sea!";
		mes "Do you see something moving";
		mes "mysteriously?";
		next;
		mes "[Mr. Ibanoff]";
		mes "Heheh... What is...";
		mes "that... Hey! You...";
		mes "Go around the deck to look more";
		mes "carefully! Go!";
		set mos_whale_edq,12;
		donpcevent "#findship::OnEnable";
		close;
	}
	else if (mos_whale_edq == 12) {
		mes "[Mr. Ibanoff]";
		mes "What are you doing...? Go around";
		mes "the deck to look more carefully!";
		mes "Go!";
		donpcevent "#findship::OnEnable";
		close;
		return;
	}
	else if (mos_whale_edq == 19) {
		mes "[Mr. Ibanoff]";
		mes "This time, I hope to find that";
		mes "whale island again without any";
		mes "incidents...";
		next;
		mes "[Mr. Ibanoff]";
		mes "The method is the same as before.";
		next;
		mes "[Mr. Ibanoff]";
		mes "I will order you where to go, by";
		mes "watching the seas.";
		next;
		mes "[Mr. Ibanoff]";
		mes "You just adjust the direction of";
		mes "the rudder by following my orders.";
		next;
		mes "[Mr. Ibanoff]";
		mes "At first, hold the rudder to go";
		mes "forward, to the east.";
		set mos_whale_edq,20;
		close;
	}
	else if (mos_whale_edq == 20) {
		mes "[Mr. Ibanoff]";
		mes "Keep the direction by holding the";
		mes "rudder to move forward to the";
		mes "East.";
		close;
	}
	else if (mos_whale_edq == 21) {
		set .@ship1,rand(1,3);
		if (.@ship1 == 2) {
			mes "[Mr. Ibanoff]";
			mes "Hm. The sea currents have changed.";
			mes "Adjust the rudder forward to the";
			mes "North, to follow the currents.";
			set mos_whale_edq,22;
			close;
		}else{
			mes "[Mr. Ibanoff]";
			mes "Nothing yet... Nothing has changed";
			mes "in the flow of water. There is";
			mes "nothing to note...";
			next;
			mes "[Mr. Ibanoff]";
			mes "We had better keep sailing on this heading for now.";
			close;
		}
	}
	else if ($@mos1_edq > 0) {
		mes "[Mr. Ibanoff]";
		mes "We must first repulse the";
		mes "monsters!";
		close;
	}
	else if (mos_whale_edq == 22 && $@mos1_edq == 0) {
		mes "[Mr. Ibanoff]";
		mes "Hey!";
		mes "Did you not hear me?";
		mes "Change the rudder forward to the";
		mes "North, and follow the currents!";
		close;
	}
	else if (mos_whale_edq == 23 && $@mos1_edq == 0) {
		set .@ship1,rand(1,5);
		if (.@ship1 == 3) {
			set .@ship2,rand(1,4);
			if (.@ship2 == 1) {
				mes "[Mr. Ibanoff]";
				mes "Hm. The sea currents have changed.";
				mes "Adjust the rudder forward to the";
				mes "East, to follow the currents.";
				set mos_whale_edq,241;
				close;
			}
			else if (.@ship2 == 2) {
				mes "[Mr. Ibanoff]";
				mes "Hm. The sea currents have changed.";
				mes "Adjust the rudder forward to the";
				mes "West, to follow the currents.";
				set mos_whale_edq,242;
				close;
			}
			else if (.@ship2 == 3) {
				mes "[Mr. Ibanoff]";
				mes "Hm. The sea currents have changed.";
				mes "Adjust the rudder forward to the";
				mes "South, to follow the currents.";
				set mos_whale_edq,243;
				close;
			}
			else if (.@ship2 == 4) {
				mes "[Mr. Ibanoff]";
				mes "Hm. The sea currents have changed.";
				mes "Adjust the rudder forward to the";
				mes "North, to follow the currents.";
				set mos_whale_edq,244;
				close;
			}
		}else{
			mes "[Mr. Ibanoff]";
			mes "Nothing yet... Nothing has changed";
			mes "in the flow of water. There is";
			mes "nothing to note...";
			next;
			mes "[Mr. Ibanoff]";
			mes "We had better keep sailing on this heading for now.";
			close;
		}
	}
	else if (mos_whale_edq == 241 && $@mos1_edq == 0) {
		mes "[Mr. Ibanoff]";
		mes "Hey!";
		mes "Did you not hear me?";
		mes "Change the rudder forward to the";
		mes "East, and follow the currents!";
		close;
	}
	else if (mos_whale_edq == 242 && $@mos1_edq == 0) {
		mes "[Mr. Ibanoff]";
		mes "Hey!";
		mes "Did you not hear me?";
		mes "Change the rudder forward to the";
		mes "West, and follow the currents!";
		close;
	}
	else if (mos_whale_edq == 243 && $@mos1_edq == 0) {
		mes "[Mr. Ibanoff]";
		mes "Hey!";
		mes "Did you not hear me?";
		mes "Change the rudder forward to the";
		mes "East, and follow the currents!";
		close;
	}
	else if (mos_whale_edq == 244 && $@mos1_edq == 0) {
		mes "[Mr. Ibanoff]";
		mes "Hey!";
		mes "Did you not hear me?";
		mes "Change the rudder forward to the";
		mes "East, and follow the currents!";
		close;
	}
	else if (mos_whale_edq == 25 && $@mos1_edq == 0) {
		set .@ship1,rand(1,4);
		if (.@ship1 == 3) {
			set .@ship2,rand(1,4);
			if (.@ship2 == 1) {
				mes "[Mr. Ibanoff]";
				mes "Hm. The sea currents have changed.";
				mes "Adjust the rudder forward to the";
				mes "East, to follow the currents.";
				set mos_whale_edq,241;
				close;
			}
			else if (.@ship2 == 2) {
				mes "[Mr. Ibanoff]";
				mes "Hm. The sea currents have changed.";
				mes "Adjust the rudder forward to the";
				mes "West, to follow the currents.";
				set mos_whale_edq,242;
				close;
			}
			else if (.@ship2 == 3) {
				mes "[Mr. Ibanoff]";
				mes "Hm. The sea currents have changed.";
				mes "Adjust the rudder forward to the";
				mes "South, to follow the currents.";
				set mos_whale_edq,243;
				close;
			}
			else if (.@ship2 == 4) {
				mes "[Mr. Ibanoff]";
				mes "Hm. The sea currents have changed.";
				mes "Adjust the rudder forward to the";
				mes "North, to follow the currents.";
				set mos_whale_edq,244;
				close;
			}
		}else{
			mes "[Mr. Ibanoff]";
			mes "Nothing yet... Nothing has changed";
			mes "in the flow of water. There is";
			mes "nothing to note...";
			next;
			mes "[Mr. Ibanoff]";
			mes "We had better keep sailing on this heading for now.";
			close;
		}
	}
	else if (mos_whale_edq == 26) {
		mes "[Mr. Ibanoff]";
		mes "Look there!";
		mes "There is a moving island!";
		mes "We have done well!";
		next;
		mes "[Mr. Ibanoff]";
		mes "Oh...my...";
		mes "It really is there...";
		mes "A whale! It's unbelievable!";
		mes "It is as true as that...";
		next;
		mes "[Mr. Ibanoff]";
		mes "I feel I can go anywhere with you!";
		mes "Even through impossible things!";
		mes "Haha! You are a friend who brings";
		mes "good luck.";
		next;
		mes "[Mr. Ibanoff]";
		mes "Okay, now that you have landed on";
		mes "the island, I have to go back...";
		next;
		mes "[Mr. Ibanoff]";
		mes "If another wave crashes against";
		mes "this boat, I feel she might break";
		mes "into pieces!";
		next;
		mes "[Mr. Ibanoff]";
		mes "Good luck. I hope you";
		mes "can return without problems.";
		mes "I will pray for you.";
		mes "See you next time.";
		set mos_whale_edq,30;
		close2;
		warp "mosk_fild01",93,94;
		end;
	}
	else if (mos_whale_edq == 7 && $@mos1_edq > 0) {
		mes "[Mr. Ibanoff]";
		mes "We must first repulse the";
		mes "monsters!";
		close;
	}
	else if (mos_whale_edq == 8 && $@mos1_edq == 0) {
		mes "[Mr. Ibanoff]";
		mes "Don't adjust wheels now.";
		mes "You can do that under my direction.";
		close;
	}
	else if (mos_whale_edq == 8 && $@mos1_edq > 0) {
		mes "[Mr. Ibanoff]";
		mes "We must first repulse the";
		mes "monsters!";
		close;
	}
	else if (mos_whale_edq == 7 && $@mos1_edq > 0) {
		mes "[Mr. Ibanoff]";
		mes "We must first repulse the";
		mes "monsters!";
		close;
	}
	else if (mos_whale_edq == 8 && $@mos1_edq > 0) {
		mes "[Mr. Ibanoff]";
		mes "We must first repulse the";
		mes "monsters!";
		close;
	}
	else if (mos_whale_edq == 10 && $@mos1_edq > 0) {
		mes "[Mr. Ibanoff]";
		mes "We must first repulse the";
		mes "monsters!";
		close;
	}
	else if (mos_whale_edq > 89 && mos_whale_edq < 100 && $@mos1_edq > 0) {
		mes "[Mr. Ibanoff]";
		mes "We must first repulse the";
		mes "monsters!";
		close;
	}
	else if (mos_whale_edq == 22 && $@mos1_edq > 0) {
		mes "[Mr. Ibanoff]";
		mes "We must first repulse the";
		mes "monsters!";
		close;
	}
	else if (mos_whale_edq == 23 && $@mos1_edq == 0) {
		mes "[Mr. Ibanoff]";
		mes "Don't adjust wheels now.";
		mes "You can do that under my direction.";
		close;
	}
	else if (mos_whale_edq == 23 && $@mos1_edq > 0) {
		mes "[Mr. Ibanoff]";
		mes "We must first repulse the";
		mes "monsters!";
		close;
	}
	else if (mos_whale_edq == 25 && $@mos1_edq > 0) {
		mes "[Mr. Ibanoff]";
		mes "We must first repulse the";
		mes "monsters!";
		close;
	}
	else if (mos_whale_edq > 239 && mos_whale_edq < 250 && $@mos1_edq > 0) {
		mes "[Mr. Ibanoff]";
		mes "We must first repulse the";
		mes "monsters!";
		close;
	}
	else{
		mes "[Mr. Ibanoff]";
		mes "What? How did you get on";
		mes "this ship?? You... No.";
		mes "I'll forgive you this once, but go";
		mes "back now.";
		close2;
		warp "moscovia",163,55;
		end;
	}
}

//----------------------------------------------------------------------------
// Rudder
//----------------------------------------------------------------------------
mosk_ship,101,111,4	script	rudder#ship	111,{
	if (mos_whale_edq == 5) {
		mes "Which way?";
		next;
		switch(select("East:West:South:North")) {
		case 1:
			mes "[Mr. Ibanoff]";
			mes "Good. Firstly, we should";
			mes "keep heading east this way.";
			mes "When I give the order,";
			mes "please adjust the rudder again.";
			set mos_whale_edq,6;
			close;
			break;
		case 2:
			mes "[Mr. Ibanoff]";
			mes "I said that we should go East!";
			mes "You should sail in the right";
			mes "direction! To the east!";
			close;
			break;
		case 3:
			mes "[Mr. Ibanoff]";
			mes "I said that we should go East!";
			mes "You should sail in the right";
			mes "direction! To the east!";
			close;
			break;
		case 4:
			mes "[Mr. Ibanoff]";
			mes "I said that we should go East!";
			mes "You should sail in the right";
			mes "direction! To the east!";
			close;
		}
	}
	else if (mos_whale_edq == 4) {
		mes "[Mr. Ibanoff]";
		mes "You don't have to adjust the rudder for now.";
		mes "Wait for my direction.";
		close;
	}
	else if (mos_whale_edq == 6) {
		mes "[Mr. Ibanoff]";
		mes "Do not yet adjust the rudder.";
		mes "Only when I order you to,";
		mes "you adjust the rudder.";
		close;
	}
	else if (mos_whale_edq == 7 && $@mos1_edq == 0) {
		mes "Which way?";
		next;
		switch(select("East:West:South:North")) {
		case 1:
			set .@ship_mon1,rand(1,5);
			if (.@ship_mon1 == 2) {
				mes "[Mr. Ibanoff]";
				mes "I said that we should go North!";
				mes "You should sail in the right";
				mes "direction! To the north!";
				next;
				mes "[Mr. Ibanoff]";
				mes "Oh no! Monsters have appeared!";
				mes "Let's get ready to fight! Hurry!";
				set $@mos1_edq,$@mos1_edq+1;
				donpcevent "Baehideun1#ship::OnEnable";
				close;
				set .@ship_mon1,rand(1,5);
			}
			else if (.@ship_mon1 == 4) {
				mes "[Mr. Ibanoff]";
				mes "I said that we should go North!";
				mes "You should sail in the right";
				mes "direction! To the north!";
				next;
				mes "[Mr. Ibanoff]";
				mes "Oh no! Monsters have appeared!";
				mes "Let's get ready to fight! Hurry!";
				set $@mos1_edq,$@mos1_edq+1;
				donpcevent "Baehideun2#ship::OnEnable";
				close;
			}else{
				mes "[Mr. Ibanoff]";
				mes "I said that we should go North!";
				mes "You should sail in the right";
				mes "direction! To the north!";
				close;
			}
			break;
		case 2:
			set .@ship_mon1,rand(1,5);
			if (.@ship_mon1 == 2) {
				mes "[Mr. Ibanoff]";
				mes "I said that we should go North!";
				mes "You should sail in the right";
				mes "direction! To the north!";
				next;
				mes "[Mr. Ibanoff]";
				mes "Oh no! Monsters have appeared!";
				mes "Let's get ready to fight! Hurry!";
				set $@mos1_edq,$@mos1_edq+1;
				donpcevent "Baehideun1#ship::OnEnable";
				close;
				set .@ship_mon1,rand(1,5);
			}
			else if (.@ship_mon1 == 4) {
				mes "[Mr. Ibanoff]";
				mes "I said that we should go North!";
				mes "You should sail in the right";
				mes "direction! To the north!";
				next;
				mes "[Mr. Ibanoff]";
				mes "Oh no! Monsters have appeared!";
				mes "Let's get ready to fight! Hurry!";
				set $@mos1_edq,$@mos1_edq+1;
				donpcevent "Baehideun2#ship::OnEnable";
				close;
			}else{
				mes "[Mr. Ibanoff]";
				mes "I said that we should go North!";
				mes "You should sail in the right";
				mes "direction! To the north!";
				close;
			}
			break;
		case 3:
			set .@ship_mon1,rand(1,5);
			if (.@ship_mon1 == 2) {
				mes "[Mr. Ibanoff]";
				mes "I said that we should go North!";
				mes "You should sail in the right";
				mes "direction! To the north!";
				next;
				mes "[Mr. Ibanoff]";
				mes "Oh no! Monsters have appeared!";
				mes "Let's get ready to fight! Hurry!";
				set $@mos1_edq,$@mos1_edq+1;
				donpcevent "Baehideun1#ship::OnEnable";
				close;
				set .@ship_mon1,rand(1,5);
			}
			else if (.@ship_mon1 == 4) {
				mes "[Mr. Ibanoff]";
				mes "I said that we should go North!";
				mes "You should sail in the right";
				mes "direction! To the north!";
				next;
				mes "[Mr. Ibanoff]";
				mes "Oh no! Monsters have appeared!";
				mes "Let's get ready to fight! Hurry!";
				set $@mos1_edq,$@mos1_edq+1;
				donpcevent "Baehideun2#ship::OnEnable";
				close;
			}else{
				mes "[Mr. Ibanoff]";
				mes "I said that we should go North!";
				mes "You should sail in the right";
				mes "direction! To the north!";
				close;
			}
			break;
		case 4:
			mes "[Mr. Ibanoff]";
			mes "Good. Firstly, we should";
			mes "Keep heading north this way.";
			mes "When I give the order,";
			mes "please adjust the rudder again.";
			set mos_whale_edq,8;
			close;
		}
	}
	else if (mos_whale_edq == 7 && $@mos1_edq > 0) {
		mes "[Mr. Ibanoff]";
		mes "We should make sure to kill any";
		mes "monsters onboard.";
		close;
	}
	else if (mos_whale_edq == 8 && $@mos1_edq == 0) {
		mes "[Mr. Ibanoff]";
		mes "Do not yet adjust the rudder.";
		mes "Only when I order you to,";
		mes "you adjust the rudder.";
		close;
	}
	else if (mos_whale_edq == 8 && $@mos1_edq > 0) {
		mes "[Mr. Ibanoff]";
		mes "We should make sure to kill any";
		mes "monsters onboard.";
		close;
	}
	else if (mos_whale_edq == 91 && $@mos1_edq == 0) {
		mes "Which way?";
		next;
		switch(select("East:West:South:North")) {
		case 1:
			set .@ship_mon2,rand(1,4);
			if (.@ship_mon2 == 3) {
				mes "[Mr. Ibanoff]";
				mes "Good. Firstly, we should";
				mes "Keep heading east this way.";
				mes "When I give the order,";
				mes "please adjust the rudder again.";
				next;
				mes "[Mr. Ibanoff]";
				mes "Wait! Something has appeared in front of us...";
				next;
				mes "[Mr. Ibanoff]";
				mes "Monsters!!!";
				next;
				mes "[Mr. Ibanoff]";
				mes "These monsters are like none I have";
				mes "ever encountered! Be careful! We";
				mes "must repulse these monsters!";
				set $@mos1_edq,$@mos1_edq+1;
				set mos_whale_edq,11;
				donpcevent "Baehideun3#ship::OnEnable";
				close;
			}else{
				mes "[Mr. Ibanoff]";
				mes "Good. Firstly, we should";
				mes "Keep heading east this way.";
				mes "When I give the order,";
				mes "please adjust the rudder again.";
				set mos_whale_edq,10;
				close;
			}
			break;
		case 2:
			set .@ship_mon1,rand(1,4);
			if (.@ship_mon1 == 1) {
				mes "[Mr. Ibanoff]";
				mes "I said that we should go East!";
				mes "You should sail in the right";
				mes "direction! To the east!";
				next;
				mes "[Mr. Ibanoff]";
				mes "Oh no! Monsters have appeared!";
				mes "Let's get ready to fight! Hurry!";
				set $@mos1_edq,$@mos1_edq+1;
				donpcevent "Baehideun1#ship::OnEnable";
				close;
				set .@ship_mon1,rand(1,4);
			}
			else if (.@ship_mon1 == 2) {
				mes "[Mr. Ibanoff]";
				mes "I said that we should go East!";
				mes "You should sail in the right";
				mes "direction! To the east!";
				next;
				mes "[Mr. Ibanoff]";
				mes "Oh no! Monsters have appeared!";
				mes "Let's get ready to fight! Hurry!";
				set $@mos1_edq,$@mos1_edq+1;
				donpcevent "Baehideun2#ship::OnEnable";
				close;
			}else{
				mes "[Mr. Ibanoff]";
				mes "I said that we should go East!";
				mes "You should sail in the right";
				mes "direction! To the east!";
				close;
			}
			break;
		case 3:
			set .@ship_mon1,rand(1,4);
			if (.@sship_mon1 == 1) {
				mes "[Mr. Ibanoff]";
				mes "I said that we should go East!";
				mes "You should sail in the right";
				mes "direction! To the east!";
				next;
				mes "[Mr. Ibanoff]";
				mes "Oh no! Monsters have appeared!";
				mes "Let's get ready to fight! Hurry!";
				set $@mos1_edq,$@mos1_edq+1;
				donpcevent "Baehideun1#ship::OnEnable";
				close;
				set .@ship_mon1,rand(1,4);
			}
			else if (.@ship_mon1 == 2) {
				mes "[Mr. Ibanoff]";
				mes "I said that we should go East!";
				mes "You should sail in the right";
				mes "direction! To the east!";
				next;
				mes "[Mr. Ibanoff]";
				mes "Oh no! Monsters have appeared!";
				mes "Let's get ready to fight! Hurry!";
				set $@mos1_edq,$@mos1_edq+1;
				donpcevent "Baehideun2#ship::OnEnable";
				close;
			}else{
				mes "[Mr. Ibanoff]";
				mes "I said that we should go East!";
				mes "You should sail in the right";
				mes "direction! To the east!";
				close;
			}
			break;
		case 4:
			set .@ship_mon1,rand(1,4);
			if (.@ship_mon1 == 1) {
				mes "[Mr. Ibanoff]";
				mes "I said that we should go East!";
				mes "You should sail in the right";
				mes "direction! To the east!";
				next;
				mes "[Mr. Ibanoff]";
				mes "Oh no! Monsters have appeared!";
				mes "Let's get ready to fight! Hurry!";
				set $@mos1_edq,$@mos1_edq+1;
				donpcevent "Baehideun1#ship::OnEnable";
				close;
				set .@ship_mon1,rand(1,4);
			}
			else if (.@ship_mon1 == 2) {
				mes "[Mr. Ibanoff]";
				mes "I said that we should go East!";
				mes "You should sail in the right";
				mes "direction! To the east!";
				next;
				mes "[Mr. Ibanoff]";
				mes "Oh no! Monsters have appeared!";
				mes "Let's get ready to fight! Hurry!";
				set $@mos1_edq,$@mos1_edq+1;
				donpcevent "Baehideun2#ship::OnEnable";
				close;
			}else{
				mes "[Mr. Ibanoff]";
				mes "I said that we should go East!";
				mes "You should sail in the right";
				mes "direction! To the east!";
				close;
			}
		}
	}
	else if (mos_whale_edq == 92 && $@mos1_edq == 0) {
		mes "Which way?";
		next;
		switch(select("East:West:South:North")) {
		case 1:
			set .@ship_mon1,rand(1,4);
			if (.@ship_mon1 == 1) {
				mes "[Mr. Ibanoff]";
				mes "I said that we should go West!";
				mes "You should sail in the right";
				mes "direction! To the west!";
				next;
				mes "[Mr. Ibanoff]";
				mes "Oh no! Monsters have appeared!";
				mes "Let's get ready to fight! Hurry!";
				set $@mos1_edq,$@mos1_edq+1;
				donpcevent "Baehideun1#ship::OnEnable";
				close;
				set ship_mon1,rand(1,4);
			}
			else if (.@ship_mon1 == 2) {
				mes "[Mr. Ibanoff]";
				mes "I said that we should go West!";
				mes "You should sail in the right";
				mes "direction! To the west!";
				next;
				mes "[Mr. Ibanoff]";
				mes "Oh no! Monsters have appeared!";
				mes "Let's get ready to fight! Hurry!";
				set $@mos1_edq,$@mos1_edq+1;
				donpcevent "Baehideun2#ship::OnEnable";
				close;
			}else{
				mes "[Mr. Ibanoff]";
				mes "I said that we should go West!";
				mes "You should sail in the right";
				mes "direction! To the west!";
				close;
			}
			break;
		case 2:
			set .@ship_mon2,rand(1,4);
			if (.@ship_mon2 == 3) {
				mes "[Mr. Ibanoff]";
				mes "Good. Firstly, we should";
				mes "Keep heading west this way.";
				mes "When I give the order,";
				mes "please adjust the rudder again.";
				next;
				mes "[Mr. Ibanoff]";
				mes "Wait! Something has appeared in front of us...";
				next;
				mes "[Mr. Ibanoff]";
				mes "Monsters!!!";
				next;
				mes "[Mr. Ibanoff]";
				mes "These monsters are like none I have";
				mes "ever encountered! Be careful! We";
				mes "must repulse these monsters!";
				set $@mos1_edq,$@mos1_edq+1;
				set mos_whale_edq,11;
				donpcevent "Baehideun3#ship::OnEnable";
				close;
			}else{
				mes "[Mr. Ibanoff]";
				mes "Good. Firstly, we should";
				mes "Keep heading west this way.";
				mes "When I give the order,";
				mes "please adjust the rudder again.";
				set mos_whale_edq,10;
				close;
			}
			break;
		case 3:
			set .@ship_mon1,rand(1,4);
			if (.@ship_mon1 == 1) {
				mes "[Mr. Ibanoff]";
				mes "I said that we should go West!";
				mes "You should sail in the right";
				mes "direction! To the west!";
				next;
				mes "[Mr. Ibanoff]";
				mes "Oh no! Monsters have appeared!";
				mes "Let's get ready to fight! Hurry!";
				set $@mos1_edq,$@mos1_edq+1;
				donpcevent "Baehideun1#ship::OnEnable";
				close;
				set .@ship_mon1,rand(1,4);
			}
			else if (.@ship_mon1 == 2) {
				mes "[Mr. Ibanoff]";
				mes "I said that we should go West!";
				mes "You should sail in the right";
				mes "direction! To the west!";
				next;
				mes "[Mr. Ibanoff]";
				mes "Oh no! Monsters have appeared!";
				mes "Let's get ready to fight! Hurry!";
				set $@mos1_edq,$@mos1_edq+1;
				donpcevent "Baehideun2#ship::OnEnable";
				close;
			}else{
				mes "[Mr. Ibanoff]";
				mes "I said that we should go West!";
				mes "You should sail in the right";
				mes "direction! To the west!";
				close;
			}
			break;
		case 4:
			set .@ship_mon1,rand(1,4);
			if (.@ship_mon1 == 1) {
				mes "[Mr. Ibanoff]";
				mes "I said that we should go West!";
				mes "You should sail in the right";
				mes "direction! To the west!";
				next;
				mes "[Mr. Ibanoff]";
				mes "Oh no! Monsters have appeared!";
				mes "Let's get ready to fight! Hurry!";
				set $@mos1_edq,$@mos1_edq+1;
				donpcevent "Baehideun1#ship::OnEnable";
				close;
				set .@ship_mon1,rand(1,4);
			}
			else if (.@ship_mon1 == 2) {
				mes "[Mr. Ibanoff]";
				mes "I said that we should go West!";
				mes "You should sail in the right";
				mes "direction! To the west!";
				next;
				mes "[Mr. Ibanoff]";
				mes "Oh no! Monsters have appeared!";
				mes "Let's get ready to fight! Hurry!";
				set $@mos1_edq,$@mos1_edq+1;
				donpcevent "Baehideun2#ship::OnEnable";
				close;
			}else{
				mes "[Mr. Ibanoff]";
				mes "I said that we should go West!";
				mes "You should sail in the right";
				mes "direction! To the west!";
				close;
			}
		}
	}
	else if (mos_whale_edq == 93 && $@mos1_edq == 0) {
		mes "Which way?";
		next;
		switch(select("East:West:South:North")) {
		case 1:
			set .@ship_mon1,rand(1,4);
			if (.@ship_mon1 == 1) {
				mes "[Mr. Ibanoff]";
				mes "I said that we should go South!";
				mes "You should sail in the right";
				mes "direction! To the south!";
				next;
				mes "[Mr. Ibanoff]";
				mes "Oh no! Monsters have appeared!";
				mes "Let's get ready to fight! Hurry!";
				set $@mos1_edq,$@mos1_edq+1;
				donpcevent "Baehideun1#ship::OnEnable";
				close;
				set .@ship_mon1,rand(1,4);
			}
			else if (.@ship_mon1 == 2) {
				mes "[Mr. Ibanoff]";
				mes "I said that we should go South!";
				mes "You should sail in the right";
				mes "direction! To the south!";
				next;
				mes "[Mr. Ibanoff]";
				mes "Oh no! Monsters have appeared!";
				mes "Let's get ready to fight! Hurry!";
				set $@mos1_edq,$@mos1_edq+1;
				donpcevent "Baehideun2#ship::OnEnable";
				close;
			}else{
				mes "[Mr. Ibanoff]";
				mes "I said that we should go South!";
				mes "You should sail in the right";
				mes "direction! To the south!";
				close;
			}
			break;
		case 2:
			set .@ship_mon1,rand(1,4);
			if (.@ship_mon1 == 1) {
				mes "[Mr. Ibanoff]";
				mes "I said that we should go South!";
				mes "You should sail in the right";
				mes "direction! To the south!";
				next;
				mes "[Mr. Ibanoff]";
				mes "Oh no! Monsters have appeared!";
				mes "Let's get ready to fight! Hurry!";
				set $@mos1_edq,$@mos1_edq+1;
				donpcevent "Baehideun1#ship::OnEnable";
				close;
				set .@ship_mon1,rand(1,4);
			}
			else if (.@ship_mon1 == 2) {
				mes "[Mr. Ibanoff]";
				mes "I said that we should go South!";
				mes "You should sail in the right";
				mes "direction! To the south!";
				next;
				mes "[Mr. Ibanoff]";
				mes "Oh no! Monsters have appeared!";
				mes "Let's get ready to fight! Hurry!";
				set $@mos1_edq,$@mos1_edq+1;
				donpcevent "Baehideun2#ship::OnEnable";
				close;
			}else{
				mes "[Mr. Ibanoff]";
				mes "I said that we should go South!";
				mes "You should sail in the right";
				mes "direction! To the south!";
				close;
			}
			break;
		case 3:
			set .@ship_mon2,rand(1,4);
			if (.@ship_mon2 == 3) {
				mes "[Mr. Ibanoff]";
				mes "Good. Firstly, we should";
				mes "Keep heading south this way.";
				mes "When I give the order,";
				mes "please adjust the rudder again.";
				next;
				mes "[Mr. Ibanoff]";
				mes "Wait! Something has appeared in front of us...";
				next;
				mes "[Mr. Ibanoff]";
				mes "Monsters!!!";
				next;
				mes "[Mr. Ibanoff]";
				mes "These monsters are like none I have";
				mes "ever encountered! Be careful! We";
				mes "must repulse these monsters!";
				set $@mos1_edq,$@mos1_edq+1;
				set mos_whale_edq,11;
				donpcevent "Baehideun3#ship::OnEnable";
				close;
			}else{
				mes "[Mr. Ibanoff]";
				mes "Good. Firstly, we should";
				mes "Keep heading south this way.";
				mes "When I give the order,";
				mes "please adjust the rudder again.";
				set mos_whale_edq,10;
				close;
			}
			break;
		case 4:
			set .@ship_mon1,rand(1,4);
			if (.@ship_mon1 == 1) {
				mes "[Mr. Ibanoff]";
				mes "I said that we should go South!";
				mes "You should sail in the right";
				mes "direction! To the south!";
				next;
				mes "[Mr. Ibanoff]";
				mes "Oh no! Monsters have appeared!";
				mes "Let's get ready to fight! Hurry!";
				set $@mos1_edq,$@mos1_edq+1;
				donpcevent "Baehideun1#ship::OnEnable";
				close;
				set .@ship_mon1,rand(1,4);
			}
			else if (.@ship_mon1 == 2) {
				mes "[Mr. Ibanoff]";
				mes "I said that we should go South!";
				mes "You should sail in the right";
				mes "direction! To the south!";
				next;
				mes "[Mr. Ibanoff]";
				mes "Oh no! Monsters have appeared!";
				mes "Let's get ready to fight! Hurry!";
				set $@mos1_edq,$@mos1_edq+1;
				donpcevent "Baehideun2#ship::OnEnable";
				close;
			}else{
				mes "[Mr. Ibanoff]";
				mes "I said that we should go South!";
				mes "You should sail in the right";
				mes "direction! To the south!";
				close;
			}
		}
	}
	else if (mos_whale_edq == 94 && $@mos1_edq == 0) {
		mes "Which way?";
		next;
		switch(select("East:West:South:North")) {
		case 1:
			set .@ship_mon1,rand(1,4);
			if (.@ship_mon1 == 1) {
				mes "[Mr. Ibanoff]";
				mes "I said that we should go North!";
				mes "You should sail in the right";
				mes "direction! To the north!";
				next;
				mes "[Mr. Ibanoff]";
				mes "Oh no! Monsters have appeared!";
				mes "Let's get ready to fight! Hurry!";
				set $@mos1_edq,$@mos1_edq+1;
				donpcevent "Baehideun1#ship::OnEnable";
				close;
				set .@ship_mon1,rand(1,4);
			}
			else if (.@ship_mon1 == 2) {
				mes "[Mr. Ibanoff]";
				mes "I said that we should go North!";
				mes "You should sail in the right";
				mes "direction! To the north!";
				next;
				mes "[Mr. Ibanoff]";
				mes "Oh no! Monsters have appeared!";
				mes "Let's get ready to fight! Hurry!";
				set $@mos1_edq,$@mos1_edq+1;
				donpcevent "Baehideun2#ship::OnEnable";
				close;
			}else{
				mes "[Mr. Ibanoff]";
				mes "I said that we should go North!";
				mes "You should sail in the right";
				mes "direction! To the north!";
				close;
			}
			break;
		case 2:
			set .@ship_mon1,rand(1,4);
			if (.@ship_mon1 == 1) {
				mes "[Mr. Ibanoff]";
				mes "I said that we should go North!";
				mes "You should sail in the right";
				mes "direction! To the north!";
				next;
				mes "[Mr. Ibanoff]";
				mes "Oh no! Monsters have appeared!";
				mes "Let's get ready to fight! Hurry!";
				set $@mos1_edq,$@mos1_edq+1;
				donpcevent "Baehideun1#ship::OnEnable";
				close;
				set .@ship_mon1,rand(1,4);
			}
			else if (.@ship_mon1 == 2) {
				mes "[Mr. Ibanoff]";
				mes "I said that we should go North!";
				mes "You should sail in the right";
				mes "direction! To the north!";
				next;
				mes "[Mr. Ibanoff]";
				mes "Oh no! Monsters have appeared!";
				mes "Let's get ready to fight! Hurry!";
				set $@mos1_edq,$@mos1_edq+1;
				donpcevent "Baehideun2#ship::OnEnable";
				close;
			}else{
				mes "[Mr. Ibanoff]";
				mes "I said that we should go North!";
				mes "You should sail in the right";
				mes "direction! To the north!";
				close;
			}
			break;
		case 3:
			set .@ship_mon1,rand(1,4);
			if (.@ship_mon1 == 1) {
				mes "[Mr. Ibanoff]";
				mes "I said that we should go North!";
				mes "You should sail in the right";
				mes "direction! To the north!";
				next;
				mes "[Mr. Ibanoff]";
				mes "Oh no! Monsters have appeared!";
				mes "Let's get ready to fight! Hurry!";
				set $@mos1_edq,$@mos1_edq+1;
				donpcevent "Baehideun1#ship::OnEnable";
				close;
				set .@ship_mon1,rand(1,4);
			}
			else if (.@ship_mon1 == 2) {
				mes "[Mr. Ibanoff]";
				mes "I said that we should go North!";
				mes "You should sail in the right";
				mes "direction! To the north!";
				next;
				mes "[Mr. Ibanoff]";
				mes "Oh no! Monsters have appeared!";
				mes "Let's get ready to fight! Hurry!";
				set $@mos1_edq,$@mos1_edq+1;
				donpcevent "Baehideun2#ship::OnEnable";
				close;
			}else{
				mes "[Mr. Ibanoff]";
				mes "I said that we should go North!";
				mes "You should sail in the right";
				mes "direction! To the north!";
				close;
			}
			break;
		case 4:
			set .@ship_mon2,rand(1,4);
			if (.@ship_mon2 == 3) {
				mes "[Mr. Ibanoff]";
				mes "Good. Firstly, we should";
				mes "Keep heading north this way.";
				mes "When I give the order,";
				mes "please adjust the rudder again.";
				next;
				mes "[Mr. Ibanoff]";
				mes "Wait! Something has appeared in front of us...";
				next;
				mes "[Mr. Ibanoff]";
				mes "Monsters!!!";
				next;
				mes "[Mr. Ibanoff]";
				mes "These monsters are like none I have";
				mes "ever encountered! Be careful! We";
				mes "must repulse these monsters!";
				set $@mos1_edq,$@mos1_edq+1;
				set mos_whale_edq,11;
				donpcevent "Baehideun3#ship::OnEnable";
				close;
			}else{
				mes "[Mr. Ibanoff]";
				mes "Good. Firstly, we should";
				mes "Keep heading north this way.";
				mes "When I give the order,";
				mes "please adjust the rudder again.";
				set mos_whale_edq,10;
				close;
			}
		}
	}
	else if (mos_whale_edq == 7 && $@mos1_edq > 0) {
		mes "[Mr. Ibanoff]";
		mes "We should make sure to kill any";
		mes "monsters onboard.";
		close;
	}
	else if (mos_whale_edq == 8 && $@mos1_edq > 0) {
		mes "[Mr. Ibanoff]";
		mes "We should make sure to kill any";
		mes "monsters onboard.";
		close;
	}
	else if (mos_whale_edq == 10 && $@mos1_edq > 0) {
		mes "[Mr. Ibanoff]";
		mes "We should make sure to kill any";
		mes "monsters onboard.";
		close;
	}
	else if (mos_whale_edq == 11 && $@mos1_edq > 0) {
		mes "[Mr. Ibanoff]";
		mes "We should make sure to kill any";
		mes "monsters onboard.";
		close;
	}
	else if (mos_whale_edq > 10 && mos_whale_edq < 13) {
		mes "[Mr. Ibanoff]";
		mes "Look... Beyond the sea!";
		mes "Do you see something moving";
		mes "mysteriously?";
		next;
		mes "[Mr. Ibanoff]";
		mes "Heheh... What is...";
		mes "that... Hey! You...";
		mes "Go around the deck to look more";
		mes "carefully! Go!";
		close;
	}
	else if (mos_whale_edq > 89 && mos_whale_edq < 100 && $@mos1_edq > 0) {
		mes "[Mr. Ibanoff]";
		mes "We should make sure to kill any";
		mes "monsters onboard.";
		close;
	}
	else if (mos_whale_edq == 20) {
		mes "Which way?";
		next;
		switch(select("East:West:South:North")) {
		case 1:
			mes "[Mr. Ibanoff]";
			mes "Good. Firstly, we should";
			mes "Keep heading east this way.";
			mes "When I give the order,";
			mes "please adjust the rudder again.";
			set mos_whale_edq,21;
			close;
			break;
		case 2:
			mes "[Mr. Ibanoff]";
			mes "I said that we should go East!";
			mes "You should sail in the right";
			mes "direction! To the east!";
			close;
			break;
		case 3:
			mes "[Mr. Ibanoff]";
			mes "I said that we should go East!";
			mes "You should sail in the right";
			mes "direction! To the east!";
			close;
			break;
		case 4:
			mes "[Mr. Ibanoff]";
			mes "I said that we should go East!";
			mes "You should sail in the right";
			mes "direction! To the east!";
			close;
		}
	}
	else if (mos_whale_edq == 21) {
		mes "[Mr. Ibanoff]";
		mes "Do not yet adjust the rudder.";
		mes "Only when I order you to,";
		mes "you adjust the rudder.";
		close;
	}
	else if (mos_whale_edq == 22 && $@mos1_edq == 0) {
		mes "Which way?";
		next;
		switch(select("East:West:South:North")) {
		case 1:
			set .@ship_mon1,rand(1,4);
			if (.@ship_mon1 == 2) {
				mes "[Mr. Ibanoff]";
				mes "I said that we should go North!";
				mes "You should sail in the right";
				mes "direction! To the north!";
				next;
				mes "[Mr. Ibanoff]";
				mes "Oh no! Monsters have appeared!";
				mes "Let's get ready to fight! Hurry!";
				set $@mos1_edq,$@mos1_edq+1;
				donpcevent "Baehideun1#ship::OnEnable";
				close;
				set .@ship_mon1,rand(1,4);
			}
			else if (.@ship_mon1 == 4) {
				mes "[Mr. Ibanoff]";
				mes "I said that we should go North!";
				mes "You should sail in the right";
				mes "direction! To the north!";
				next;
				mes "[Mr. Ibanoff]";
				mes "Oh no! Monsters have appeared!";
				mes "Let's get ready to fight! Hurry!";
				set $@mos1_edq,$@mos1_edq+1;
				donpcevent "Baehideun2#ship::OnEnable";
				close;
			}else{
				mes "[Mr. Ibanoff]";
				mes "I said that we should go North!";
				mes "You should sail in the right";
				mes "direction! To the north!";
				close;
			}
			break;
		case 2:
			set .@ship_mon1,rand(1,4);
			if (.@ship_mon1 == 2) {
				mes "[Mr. Ibanoff]";
				mes "I said that we should go North!";
				mes "You should sail in the right";
				mes "direction! To the north!";
				next;
				mes "[Mr. Ibanoff]";
				mes "Oh no! Monsters have appeared!";
				mes "Let's get ready to fight! Hurry!";
				set $@mos1_edq,$@mos1_edq+1;
				donpcevent "Baehideun1#ship::OnEnable";
				close;
				set .@ship_mon1,rand(1,4);
			}
			else if (.@ship_mon1 == 4) {
				mes "[Mr. Ibanoff]";
				mes "I said that we should go North!";
				mes "You should sail in the right";
				mes "direction! To the north!";
				next;
				mes "[Mr. Ibanoff]";
				mes "Oh no! Monsters have appeared!";
				mes "Let's get ready to fight! Hurry!";
				set $@mos1_edq,$@mos1_edq+1;
				donpcevent "Baehideun2#ship::OnEnable";
				close;
			}else{
				mes "[Mr. Ibanoff]";
				mes "I said that we should go North!";
				mes "You should sail in the right";
				mes "direction! To the north!";
				close;
			}
			break;
		case 3:
			set .@ship_mon1,rand(1,4);
			if (.@ship_mon1 == 2) {
				mes "[Mr. Ibanoff]";
				mes "I said that we should go North!";
				mes "You should sail in the right";
				mes "direction! To the north!";
				next;
				mes "[Mr. Ibanoff]";
				mes "Oh no! Monsters have appeared!";
				mes "Let's get ready to fight! Hurry!";
				set $@mos1_edq,$@mos1_edq+1;
				donpcevent "Baehideun1#ship::OnEnable";
				close;
				set .@ship_mon1,rand(1,4);
			}
			else if (.@ship_mon1 == 4) {
				mes "[Mr. Ibanoff]";
				mes "I said that we should go North!";
				mes "You should sail in the right";
				mes "direction! To the north!";
				next;
				mes "[Mr. Ibanoff]";
				mes "Oh no! Monsters have appeared!";
				mes "Let's get ready to fight! Hurry!";
				set $@mos1_edq,$@mos1_edq+1;
				donpcevent "Baehideun2#ship::OnEnable";
				close;
			}else{
				mes "[Mr. Ibanoff]";
				mes "I said that we should go North!";
				mes "You should sail in the right";
				mes "direction! To the north!";
				close;
			}
			break;
		case 4:
			mes "[Mr. Ibanoff]";
			mes "Good. Firstly, we should";
			mes "Keep heading north this way.";
			mes "When I give the order,";
			mes "please adjust the rudder again.";
			set mos_whale_edq,23;
			close;
		}
	}
	else if (mos_whale_edq == 22 && $@mos1_edq > 0) {
		mes "[Mr. Ibanoff]";
		mes "We should make sure to kill any";
		mes "monsters onboard.";
		close;
	}
	else if (mos_whale_edq == 23 && $@mos1_edq == 0) {
		mes "[Mr. Ibanoff]";
		mes "Do not yet adjust the rudder.";
		mes "Only when I order you to,";
		mes "you adjust the rudder.";
		close;
	}
	else if (mos_whale_edq == 23 && $@mos1_edq > 0) {
		mes "[Mr. Ibanoff]";
		mes "We should make sure to kill any";
		mes "monsters onboard.";
		close;
	}
	else if (mos_whale_edq == 241 && $@mos1_edq == 0) {
		mes "Which way?";
		next;
		switch(select("East:West:South:North")) {
		case 1:
			set .@ship_mon2,rand(1,5);
			if (.@ship_mon2 == 3) {
				mes "[Mr. Ibanoff]";
				mes "Good. Firstly, we should";
				mes "Keep heading east this way.";
				mes "When I give the order,";
				mes "please adjust the rudder again.";
				next;
				mes "[Mr. Ibanoff]";
				mes "Wait! Something has appeared in front of us...";
				next;
				mes "[Mr. Ibanoff]";
				mes "Monsters!!!";
				next;
				mes "[Mr. Ibanoff]";
				mes "These monsters are like none I have";
				mes "ever encountered! Be careful! We";
				mes "must repulse these monsters!";
				set $@mos1_edq,$@mos1_edq+1;
				set mos_whale_edq,26;
				donpcevent "Baehideun4#ship::OnEnable";
				close;
			}else{
				mes "[Mr. Ibanoff]";
				mes "Good. Firstly, we should";
				mes "Keep heading east this way.";
				mes "When I give the order,";
				mes "please adjust the rudder again.";
				set mos_whale_edq,25;
				close;
			}
			break;
		case 2:
			set .@ship_mon1,rand(1,4);
			if (.@ship_mon1 == 1) {
				mes "[Mr. Ibanoff]";
				mes "I said that we should go East!";
				mes "You should sail in the right";
				mes "direction! To the east!";
				next;
				mes "[Mr. Ibanoff]";
				mes "Oh no! Monsters have appeared!";
				mes "Let's get ready to fight! Hurry!";
				set $@mos1_edq,$@mos1_edq+1;
				donpcevent "Baehideun1#ship::OnEnable";
				close;
				set .@ship_mon1,rand(1,4);
			}
			else if (.@ship_mon1 == 2) {
				mes "[Mr. Ibanoff]";
				mes "I said that we should go East!";
				mes "You should sail in the right";
				mes "direction! To the east!";
				next;
				mes "[Mr. Ibanoff]";
				mes "Oh no! Monsters have appeared!";
				mes "Let's get ready to fight! Hurry!";
				set $@mos1_edq,$@mos1_edq+1;
				donpcevent "Baehideun2#ship::OnEnable";
				close;
			}else{
				mes "[Mr. Ibanoff]";
				mes "I said that we should go East!";
				mes "You should sail in the right";
				mes "direction! To the east!";
				close;
			}
			break;
		case 3:
			set .@ship_mon1,rand(1,4);
			if (.@ship_mon1 == 1) {
				mes "[Mr. Ibanoff]";
				mes "I said that we should go East!";
				mes "You should sail in the right";
				mes "direction! To the east!";
				next;
				mes "[Mr. Ibanoff]";
				mes "Oh no! Monsters have appeared!";
				mes "Let's get ready to fight! Hurry!";
				set $@mos1_edq,$@mos1_edq+1;
				donpcevent "Baehideun1#ship::OnEnable";
				close;
				set .@ship_mon1,rand(1,4);
			}
			else if (.@ship_mon1 == 2) {
				mes "[Mr. Ibanoff]";
				mes "I said that we should go East!";
				mes "You should sail in the right";
				mes "direction! To the east!";
				next;
				mes "[Mr. Ibanoff]";
				mes "Oh no! Monsters have appeared!";
				mes "Let's get ready to fight! Hurry!";
				set $@mos1_edq,$@mos1_edq+1;
				donpcevent "Baehideun2#ship::OnEnable";
				close;
			}else{
				mes "[Mr. Ibanoff]";
				mes "I said that we should go East!";
				mes "You should sail in the right";
				mes "direction! To the east!";
				close;
			}
			break;
		case 4:
			set .@ship_mon1,rand(1,4);
			if (.@ship_mon1 == 1) {
				mes "[Mr. Ibanoff]";
				mes "I said that we should go East!";
				mes "You should sail in the right";
				mes "direction! To the east!";
				next;
				mes "[Mr. Ibanoff]";
				mes "Oh no! Monsters have appeared!";
				mes "Let's get ready to fight! Hurry!";
				set $@mos1_edq,$@mos1_edq+1;
				donpcevent "Baehideun1#ship::OnEnable";
				close;
				set .@ship_mon1,rand(1,4);
			}
			else if (.@ship_mon1 == 2) {
				mes "[Mr. Ibanoff]";
				mes "I said that we should go East!";
				mes "You should sail in the right";
				mes "direction! To the east!";
				next;
				mes "[Mr. Ibanoff]";
				mes "Oh no! Monsters have appeared!";
				mes "Let's get ready to fight! Hurry!";
				set $@mos1_edq,$@mos1_edq+1;
				donpcevent "Baehideun2#ship::OnEnable";
				close;
			}else{
				mes "[Mr. Ibanoff]";
				mes "I said that we should go East!";
				mes "You should sail in the right";
				mes "direction! To the east!";
				close;
			}
		}
	}
	else if (mos_whale_edq == 242 && $@mos1_edq == 0) {
		mes "Which way?";
		next;
		switch(select("East:West:South:North")) {
		case 1:
			set .@ship_mon1,rand(1,4);
			if (.@ship_mon1 == 1) {
				mes "[Mr. Ibanoff]";
				mes "I said that we should go West!";
				mes "You should sail in the right";
				mes "direction! To the west!";
				next;
				mes "[Mr. Ibanoff]";
				mes "Oh no! Monsters have appeared!";
				mes "Let's get ready to fight! Hurry!";
				set $@mos1_edq,$@mos1_edq+1;
				donpcevent "Baehideun1#ship::OnEnable";
				close;
				set .@ship_mon1,rand(1,4);
			}
			else if (.@ship_mon1 == 2) {
				mes "[Mr. Ibanoff]";
				mes "I said that we should go West!";
				mes "You should sail in the right";
				mes "direction! To the west!";
				next;
				mes "[Mr. Ibanoff]";
				mes "Oh no! Monsters have appeared!";
				mes "Let's get ready to fight! Hurry!";
				set $@mos1_edq,$@mos1_edq+1;
				donpcevent "Baehideun2#ship::OnEnable";
				close;
			}else{
				mes "[Mr. Ibanoff]";
				mes "I said that we should go West!";
				mes "You should sail in the right";
				mes "direction! To the west!";
				close;
			}
			break;
		case 2:
			set .@ship_mon2,rand(1,5);
			if (.@ship_mon2 == 3) {
				mes "[Mr. Ibanoff]";
				mes "Good. Firstly, we should";
				mes "Keep heading west this way.";
				mes "When I give the order,";
				mes "please adjust the rudder again.";
				next;
				mes "[Mr. Ibanoff]";
				mes "Wait! Something has appeared in front of us...";
				next;
				mes "[Mr. Ibanoff]";
				mes "Monsters!!!";
				next;
				mes "[Mr. Ibanoff]";
				mes "These monsters are like none I have";
				mes "ever encountered! Be careful! We";
				mes "must repulse these monsters!";
				set $@mos1_edq,$@mos1_edq+1;
				set mos_whale_edq,26;
				donpcevent "Baehideun4#ship::OnEnable";
				close;
			}else{
				mes "[Mr. Ibanoff]";
				mes "Good. Firstly, we should";
				mes "Keep heading west this way.";
				mes "When I give the order,";
				mes "please adjust the rudder again.";
				set mos_whale_edq,25;
				close;
			}
			break;
		case 3:
			set .@ship_mon1,rand(1,4);
			if (.@ship_mon1 == 1) {
				mes "[Mr. Ibanoff]";
				mes "I said that we should go West!";
				mes "You should sail in the right";
				mes "direction! To the west!";
				next;
				mes "[Mr. Ibanoff]";
				mes "Oh no! Monsters have appeared!";
				mes "Let's get ready to fight! Hurry!";
				set $@mos1_edq,$@mos1_edq+1;
				donpcevent "Baehideun1#ship::OnEnable";
				close;
				set .@ship_mon1,rand(1,4);
			}
			else if (.@ship_mon1 == 2) {
				mes "[Mr. Ibanoff]";
				mes "I said that we should go West!";
				mes "You should sail in the right";
				mes "direction! To the west!";
				next;
				mes "[Mr. Ibanoff]";
				mes "Oh no! Monsters have appeared!";
				mes "Let's get ready to fight! Hurry!";
				set $@mos1_edq,$@mos1_edq+1;
				donpcevent "Baehideun2#ship::OnEnable";
				close;
			}else{
				mes "[Mr. Ibanoff]";
				mes "I said that we should go West!";
				mes "You should sail in the right";
				mes "direction! To the west!";
				close;
			}
			break;
		case 4:
			set .@ship_mon1,rand(1,4);
			if (.@ship_mon1 == 1) {
				mes "[Mr. Ibanoff]";
				mes "I said that we should go West!";
				mes "You should sail in the right";
				mes "direction! To the west!";
				next;
				mes "[Mr. Ibanoff]";
				mes "Oh no! Monsters have appeared!";
				mes "Let's get ready to fight! Hurry!";
				set $@mos1_edq,$@mos1_edq+1;
				donpcevent "Baehideun1#ship::OnEnable";
				close;
				set .@ship_mon1,rand(1,4);
			}
			else if (.@ship_mon1 == 2) {
				mes "[Mr. Ibanoff]";
				mes "I said that we should go West!";
				mes "You should sail in the right";
				mes "direction! To the west!";
				next;
				mes "[Mr. Ibanoff]";
				mes "Oh no! Monsters have appeared!";
				mes "Let's get ready to fight! Hurry!";
				set $@mos1_edq,$@mos1_edq+1;
				donpcevent "Baehideun2#ship::OnEnable";
				close;
			}else{
				mes "[Mr. Ibanoff]";
				mes "I said that we should go West!";
				mes "You should sail in the right";
				mes "direction! To the west!";
				close;
			}
		}
	}
	else if (mos_whale_edq == 243 && $@mos1_edq == 0) {
		mes "Which way?";
		next;
		switch(select("East:West:South:North")) {
		case 1:
			set .@ship_mon1,rand(1,4);
			if (.@ship_mon1 == 1) {
				mes "[Mr. Ibanoff]";
				mes "I said that we should go South!";
				mes "You should sail in the right";
				mes "direction! To the south!";
				next;
				mes "[Mr. Ibanoff]";
				mes "Oh no! Monsters have appeared!";
				mes "Let's get ready to fight! Hurry!";
				set $@mos1_edq,$@mos1_edq+1;
				donpcevent "Baehideun1#ship::OnEnable";
				close;
				set .@ship_mon1,rand(1,4);
			}
			else if (.@ship_mon1 == 2) {
				mes "[Mr. Ibanoff]";
				mes "I said that we should go South!";
				mes "You should sail in the right";
				mes "direction! To the south!";
				next;
				mes "[Mr. Ibanoff]";
				mes "Oh no! Monsters have appeared!";
				mes "Let's get ready to fight! Hurry!";
				set $@mos1_edq,$@mos1_edq+1;
				donpcevent "Baehideun2#ship::OnEnable";
				close;
			}else{
				mes "[Mr. Ibanoff]";
				mes "I said that we should go South!";
				mes "You should sail in the right";
				mes "direction! To the south!";
				close;
			}
			break;
		case 2:
			set .@ship_mon1,rand(1,4);
			if (.@ship_mon1 == 1) {
				mes "[Mr. Ibanoff]";
				mes "I said that we should go South!";
				mes "You should sail in the right";
				mes "direction! To the south!";
				next;
				mes "[Mr. Ibanoff]";
				mes "Oh no! Monsters have appeared!";
				mes "Let's get ready to fight! Hurry!";
				set $@mos1_edq,$@mos1_edq+1;
				donpcevent "Baehideun1#ship::OnEnable";
				close;
				set .@ship_mon1,rand(1,4);
			}
			else if (.@ship_mon1 == 2) {
				mes "[Mr. Ibanoff]";
				mes "I said that we should go South!";
				mes "You should sail in the right";
				mes "direction! To the south!";
				next;
				mes "[Mr. Ibanoff]";
				mes "Oh no! Monsters have appeared!";
				mes "Let's get ready to fight! Hurry!";
				set $@mos1_edq,$@mos1_edq+1;
				donpcevent "Baehideun2#ship::OnEnable";
				close;
			}else{
				mes "[Mr. Ibanoff]";
				mes "I said that we should go South!";
				mes "You should sail in the right";
				mes "direction! To the south!";
				close;
			}
			break;
		case 3:
			set .@ship_mon2,rand(1,5);
			if (.@ship_mon2 == 3) {
				mes "[Mr. Ibanoff]";
				mes "Good. Firstly, we should";
				mes "Keep heading south this way.";
				mes "When I give the order,";
				mes "please adjust the rudder again.";
				next;
				mes "[Mr. Ibanoff]";
				mes "Wait! Something has appeared in front of us...";
				next;
				mes "[Mr. Ibanoff]";
				mes "Monsters!!!";
				next;
				mes "[Mr. Ibanoff]";
				mes "These monsters are like none I have";
				mes "ever encountered! Be careful! We";
				mes "must repulse these monsters!";
				set $@mos1_edq,$@mos1_edq+1;
				set mos_whale_edq,26;
				donpcevent "Baehideun4#ship::OnEnable";
				close;
			}else{
				mes "[Mr. Ibanoff]";
				mes "Good. Firstly, we should";
				mes "Keep heading south this way.";
				mes "When I give the order,";
				mes "please adjust the rudder again.";
				set mos_whale_edq,25;
				close;
			}
			break;
		case 4:
			set .@ship_mon1,rand(1,4);
			if (.@ship_mon1 == 1) {
				mes "[Mr. Ibanoff]";
				mes "I said that we should go South!";
				mes "You should sail in the right";
				mes "direction! To the south!";
				next;
				mes "[Mr. Ibanoff]";
				mes "Oh no! Monsters have appeared!";
				mes "Let's get ready to fight! Hurry!";
				set $@mos1_edq,$@mos1_edq+1;
				donpcevent "Baehideun1#ship::OnEnable";
				close;
				set .@ship_mon1,rand(1,4);
			}
			else if (.@ship_mon1 == 2) {
				mes "[Mr. Ibanoff]";
				mes "I said that we should go South!";
				mes "You should sail in the right";
				mes "direction! To the south!";
				next;
				mes "[Mr. Ibanoff]";
				mes "Oh no! Monsters have appeared!";
				mes "Let's get ready to fight! Hurry!";
				set $@mos1_edq,$@mos1_edq+1;
				donpcevent "Baehideun2#ship::OnEnable";
				close;
			}else{
				mes "[Mr. Ibanoff]";
				mes "I said that we should go South!";
				mes "You should sail in the right";
				mes "direction! To the south!";
				close;
			}
		}
	}
	else if (mos_whale_edq == 244 && $@mos1_edq == 0) {
		mes "Which way?";
		next;
		switch(select("East:West:South:North")) {
		case 1:
			set .@ship_mon1,rand(1,4);
			if (.@ship_mon1 == 1) {
				mes "[Mr. Ibanoff]";
				mes "I said that we should go North!";
				mes "You should sail in the right";
				mes "direction! To the north!";
				next;
				mes "[Mr. Ibanoff]";
				mes "Oh no! Monsters have appeared!";
				mes "Let's get ready to fight! Hurry!";
				set $@mos1_edq,$@mos1_edq+1;
				donpcevent "Baehideun1#ship::OnEnable";
				close;
				set .@ship_mon1,rand(1,4);
			}
			else if (.@ship_mon1 == 2) {
				mes "[Mr. Ibanoff]";
				mes "I said that we should go North!";
				mes "You should sail in the right";
				mes "direction! To the north!";
				next;
				mes "[Mr. Ibanoff]";
				mes "Oh no! Monsters have appeared!";
				mes "Let's get ready to fight! Hurry!";
				set $@mos1_edq,$@mos1_edq+1;
				donpcevent "Baehideun2#ship::OnEnable";
				close;
			}else{
				mes "[Mr. Ibanoff]";
				mes "I said that we should go North!";
				mes "You should sail in the right";
				mes "direction! To the north!";
				close;
			}
			break;
		case 2:
			set .@ship_mon1,rand(1,4);
			if (.@ship_mon1 == 1) {
				mes "[Mr. Ibanoff]";
				mes "I said that we should go North!";
				mes "You should sail in the right";
				mes "direction! To the north!";
				next;
				mes "[Mr. Ibanoff]";
				mes "Oh no! Monsters have appeared!";
				mes "Let's get ready to fight! Hurry!";
				set $@mos1_edq,$@mos1_edq+1;
				donpcevent "Baehideun1#ship::OnEnable";
				close;
				set .@ship_mon1,rand(1,4);
			}
			else if (.@ship_mon1 == 2) {
				mes "[Mr. Ibanoff]";
				mes "I said that we should go North!";
				mes "You should sail in the right";
				mes "direction! To the north!";
				next;
				mes "[Mr. Ibanoff]";
				mes "Oh no! Monsters have appeared!";
				mes "Let's get ready to fight! Hurry!";
				set $@mos1_edq,$@mos1_edq+1;
				donpcevent "Baehideun2#ship::OnEnable";
				close;
			}else{
				mes "[Mr. Ibanoff]";
				mes "I said that we should go North!";
				mes "You should sail in the right";
				mes "direction! To the north!";
				close;
			}
			break;
		case 3:
			set .@ship_mon1,rand(1,4);
			if (.@ship_mon1 == 1) {
				mes "[Mr. Ibanoff]";
				mes "I said that we should go North!";
				mes "You should sail in the right";
				mes "direction! To the north!";
				next;
				mes "[Mr. Ibanoff]";
				mes "Oh no! Monsters have appeared!";
				mes "Let's get ready to fight! Hurry!";
				set $@mos1_edq,$@mos1_edq+1;
				donpcevent "Baehideun1#ship::OnEnable";
				close;
				set .@ship_mon1,rand(1,4);
			}
			else if (.@ship_mon1 == 2) {
				mes "[Mr. Ibanoff]";
				mes "I said that we should go North!";
				mes "You should sail in the right";
				mes "direction! To the north!";
				next;
				mes "[Mr. Ibanoff]";
				mes "Oh no! Monsters have appeared!";
				mes "Let's get ready to fight! Hurry!";
				set $@mos1_edq,$@mos1_edq+1;
				donpcevent "Baehideun2#ship::OnEnable";
				close;
			}else{
				mes "[Mr. Ibanoff]";
				mes "I said that we should go North!";
				mes "You should sail in the right";
				mes "direction! To the north!";
				close;
			}
			break;
		case 4:
			set .@ship_mon2,rand(1,5);
			if (.@ship_mon2 == 3) {
				mes "[Mr. Ibanoff]";
				mes "Good. Firstly, we should";
				mes "Keep heading north this way.";
				mes "When I give the order,";
				mes "please adjust the rudder again.";
				next;
				mes "[Mr. Ibanoff]";
				mes "Wait! Something has appeared in front of us...";
				next;
				mes "[Mr. Ibanoff]";
				mes "Monsters!!!";
				next;
				mes "[Mr. Ibanoff]";
				mes "These monsters are like none I have";
				mes "ever encountered! Be careful! We";
				mes "must repulse these monsters!";
				set $@mos1_edq,$@mos1_edq+1;
				set mos_whale_edq,26;
				donpcevent "Baehideun4#ship::OnEnable";
				close;
			}else{
				mes "[Mr. Ibanoff]";
				mes "Good. Firstly, we should";
				mes "Keep heading north this way.";
				mes "When I give the order,";
				mes "please adjust the rudder again.";
				set mos_whale_edq,25;
				close;
			}
		}
	}
	else if ($@mos1_edq > 0) {
		mes "[Mr. Ibanoff]";
		mes "We should make sure to kill any";
		mes "monsters onboard.";
		close;
	}
	else if (mos_whale_edq == 22 && $@mos1_edq > 0) {
		mes "[Mr. Ibanoff]";
		mes "We should make sure to kill any";
		mes "monsters onboard.";
		close;
	}
	else if (mos_whale_edq == 23 && $@mos1_edq > 0) {
		mes "[Mr. Ibanoff]";
		mes "We should make sure to kill any";
		mes "monsters onboard.";
		close;
	}
	else if (mos_whale_edq == 25 && $@mos1_edq > 0) {
		mes "[Mr. Ibanoff]";
		mes "We should make sure to kill any";
		mes "monsters onboard.";
		close;
	}
	else if (mos_whale_edq == 25 && $@mos1_edq == 0) {
		mes "[Mr. Ibanoff]";
		mes "You can adjust the rudder,";
		mes "under my direction.";
		close;
	}
	else if (mos_whale_edq > 239 && mos_whale_edq < 250 && $@mos1_edq > 0) {
		mes "[Mr. Ibanoff]";
		mes "We should make sure to kill any";
		mes "monsters onboard.";
		close;
	}
	else if (mos_whale_edq == 26) {
		mes "[Mr. Ibanoff]";
		mes "Hey! Listen to what I am saying.";
		mes "How come you go there without my";
		mes "permission...";
		next;
	}
	else{
		mes "[Mr. Ibanoff]";
		mes "What? How did you get on";
		mes "this ship?? You... No.";
		mes "I'll forgive you this once, but go";
		mes "back now.";
		close2;
		//set mos_whale_edq,4; lol, why is this here?
		warp "moscovia",162,56;
		end;
	}
}

//----------------------------------------------------------------------------
// Aged Stranger - Whale Island
//----------------------------------------------------------------------------
mosk_fild01,86,104,3	script	Aged Stranger#npc	963,{
	if (checkweight(1201,1) == 0 ) {
		mes "[Aged Stranger]";
		mes "You're carrying too many items.";
		mes "Please come after using kafra service.";
		close;
	}
	if ((MaxWeight-Weight) < 2000) {
		mes "[Aged Stranger]";
		mes "You're carrying too many items.";
		mes "Please come after using kafra service.";
		close;
	}
	if (mos_whale_edq == 13) {
		mes "[Aged Stranger]";
		mes "Oh, your awake.";
		mes "How do you feel? Are you ok??";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "Hm... where..is...";
		mes "Eck! What happened...?";
		next;
		mes "[Aged Stranger]";
		mes "Well... You were a bit";
		mes "of a surprise! I haven't";
		mes "talked for a long time...";
		mes "with a person who lives on dry";
		mes "land.";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "Where am I?";
		mes "Who are you old man?";
		next;
		mes "[Aged Stranger]";
		mes "This is... well...";
		mes "What can I say...";
		mes "This is called a moving island, by";
		mes "most people.";
		next;
		mes "[Aged Stranger]";
		mes "This is a small island that only I inhabit.";
		next;
		mes "[Aged Stranger]";
		mes "I call it...";
		mes "Whale Island.";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "This place is very famously known";
		mes "as The Moving Island! But... This";
		mes "island is... Maybe...";
		next;
		mes "[Aged Stranger]";
		mes "Now do you get it? Hahaha!";
		mes "Right. We are standing on";
		mes "the back of a gigantic whale!";
		mes "That's why I call it Whale Island!";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "How...? How is it possible";
		mes "that the water flows in streams";
		mes "here? And trees grow! On the";
		mes "whale's back!?!";
		next;
		mes "[Aged Stranger]";
		mes "Heheheh. This is an island";
		mes "of legend. Right now you are";
		mes "experiencing greatness! Hahahaha!";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "Are you a real person?";
		next;
		mes "[Aged Stranger]";
		mes "Heheh, as you can see,";
		mes "I am just an aged man.";
		mes "I've simply spent my lifetime here";
		mes "leisurely, by breaking off";
		mes "relations with any unworldly life.";
		next;
		mes "[Aged Stranger]";
		mes "Okay, now you get yourself";
		mes "together. I will send you back to";
		mes "dry land. If you don't go back";
		mes "soon, some people may worry.";
		next;
		soundeffect "mos_gusli1.wav",0;
		mes "-The island starts to move slowly";
		mes "when the old man plays an";
		mes "unfamiliar instrument...-";
		next;
		mes "[Aged Stranger]";
		mes "In a few minutes, you will go back";
		mes "to the land from whence you came.";
		mes "You can relax.";
		next;
		mes "-The old man starts to play";
		mes "his instrument, with eyes closed.";
		mes "He is unresponsive...";
		mes "like having fallen into a world";
		mes "only his own.-";
		set mos_whale_edq,14;
		close2;
		donpcevent "#Island Control Tower::OnEnable";
		end;
	}
	else if (mos_whale_edq == 14) {
		soundeffect "mos_gusli1.wav",0;
		mes "-The old man starts to play";
		mes "his instrument, with eyes closed.";
		mes "He is unresponsive...";
		mes "like having fallen into a world";
		mes "only his own.-";
		set mos_whale_edq,15;
		close;
	}
	else if (mos_whale_edq == 15) {
		mes "[Aged Stranger]";
		mes "Hm... Almost there...";
		mes "Young man, you will arrive back on";
		mes "the mainland in a few minutes. Go carefully.";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "Old man, if I want to come back";
		mes "here again, how can I do it?";
		next;
		mes "[Aged Stranger]";
		mes "Hehe... Do you want to come here";
		mes "again? Here? Where I live alone? In";
		mes "this small island? You are";
		mes "funny...";
		next;
		mes "[Aged Stranger]";
		mes "If we are preordained to meet,";
		mes "we will meet here again,";
		mes "won't we? Heheheh...";
		next;
		mes "[Aged Stranger]";
		mes "It's time to... well,";
		mes "go back safely. Someday, if you";
		mes "want to come again to meet me, you";
		mes "can endure the same seas as last";
		mes "time. I won't stop you. Hehehe.";
		close2;
		warp "moscovia",163,54;
		end;
	}
	else if (mos_whale_edq == 30) {
		mes "[Aged Stranger]";
		mes "Hahaha... I didn't know that I";
		mes "would meet you again! How did you";
		mes "return?";
		next;
		select("Explain the whole story.");
			mes "[Aged Stranger]";
			mes "Hm... just like that?";
			mes "Whoever hasn't come here directly";
			mes "would expect you to return like";
			mes "that. Well.";
			next;
			mes "[Aged Stranger]";
			mes "I just wanted to spend the rest of";
			mes "my life here, leisurely... I'm";
			mes "interested in the world... but I'm";
			mes "no match for it...";
			next;
			mes "[Aged Stranger]";
			mes "Do not look sorry for me.";
			mes "When you went back I didn't ask you";
			mes "not to say anything about this";
			mes "island to others.";
			next;
			mes "[Aged Stranger]";
			mes "If I had decided to hide where";
			mes "nobody can find... Well, you";
			mes "needn't worry too much about that";
			mes "now.";
			next;
			mes "[Aged Stranger]";
			mes "Anyway, are you troubled?";
			mes "What are you going to do?";
			next;
			if(select("Think more.:Don't you have a way?") == 1) {
				mes "[Aged Stranger]";
				mes "Do that. Think carefully, the";
				mes "answer is to be found...";
				mes "Hoohoohoo!";
				close;
			}
			mes "[Aged Stranger]";
			mes "To bring the Csar here and show him";
			mes "everything?!? It's difficult...";
			next;
			mes "[Aged Stranger]";
			mes "An evidence of whale island...";
			mes "That's all you need if only it";
			mes "existed in this island...";
			next;
			soundeffect "mos_gusli1.wav",0;
			mes "-The aged man closes his eyes and";
			mes "starts to play his instrument, as";
			mes "he falls in thought.-";
			next;
			mes "["+strcharinfo(0)+"]";
			mes "Old man, could you make one of";
			mes "those instruments for me? That is a";
			mes "marvelous thing that I've seen only";
			mes "here.";
			next;
			mes "[Aged Stranger]";
			mes "Oh... That's a good idea.";
			mes "There isn't an instrument like this";
			mes "in all Moscovia! Absolutely...";
			next;
			mes "[Aged Stranger]";
			mes "Hm... If you grent my request, I";
			mes "will make this instrument for you.";
			next;
			mes "["+strcharinfo(0)+"]";
			mes "What is your request?";
			next;
			mes "[Aged Stranger]";
			mes "Just in time. I have always used";
			mes "this instrument which is already";
			mes "over 50 years old. The body is so";
			mes "worn. It's not surprising that it's";
			mes "falling apart...";
			next;
			mes "[Aged Stranger]";
			mes "It is made with strings that only";
			mes "exist in this place, but you can";
			mes "get the other materials for it in";
			mes "the mainland.";
			next;
			mes "[Aged Stranger]";
			mes "If you bring the materials, I can";
			mes "make a new one.";
			next;
			mes "[Aged Stranger]";
			mes "The materials are ^0000FFLog 30, Tough Vines 20, Antelope Horn 20, Sea-otter Fur 10^000000.";
			next;
			mes "[Aged Stranger]";
			mes "I won't move the island, so you can";
			mes "find it when you come back with the";
			mes "materials.";
			next;
			mes "[Aged Stranger]";
			mes "Tell me whenever you're ready, and";
			mes "I'll send you back to the";
			mes "mainland.";
			set mos_whale_edq,31;
			close;
	}
	else if (mos_whale_edq == 31) {
		mes "[Aged Stranger]";
		mes "Okay, are you ready to go back to the mainland?";
		next;
		if(select("What are the materials?:I am ready.") == 1) {
			mes "[Aged Stranger]";
			mes "You should bring these materials:";
			next;
			mes "[Aged Stranger]";
			mes "You should bring these materials:";
			mes "^0000FFLog 30, Tough Vines 20, Antelope Horn 20, Sea-otter Fur 10^000000.";
			close;
		}
		mes "[Aged Stranger]";
		mes "I see. If so, let's go.";
		next;
		mes "-The old man starts to play";
		mes "his instrument, with eyes closed.";
		mes "He is unresponsive...";
		mes "like having fallen into a world";
		mes "only his own.-";
		set mos_whale_edq,32;
		close2;
		warp "moscovia",162,56;
		end;
	}
	else if (mos_whale_edq == 33) {
		mes "[Aged Stranger]";
		mes "Oh... Did you get all the";
		mes "materials?";
		next;
		if (countitem(7201) > 29 && countitem(7197) > 19 && countitem(7106) > 19 && countitem(7065) > 9) {
			mes "[Aged Stranger]";
			mes "You found the right materials.";
			mes "Okay, I will start to make the";
			mes "instrument.";
			next;
			delitem 7201,30; //Log
			delitem 7197,20; //Tough_Vines
			delitem 7106,20; //Goat's_Horn
			delitem 7065,10; //Sea_Otter_Leather
			set mos_whale_edq,34;
			mes "[Aged Stranger]";
			mes "Wait for a moment until I make the";
			mes "instrument successfully.";
			close;
		}else{
			mes "[Aged Stranger]";
			mes "Ugh... We need more materials...";
			mes "We need ^0000FFLog 30, Tough Vines 20, Antelope Horn 20, Sea-otter Fur 10^000000.";
			next;
			mes "[Aged Stranger]";
			mes "What will you do? Will you go back";
			mes "to the mainland to find the";
			mes "materials?";
			next;
			if(select("What are the materials?:I am ready.") == 1) {
				mes "[Aged Stranger]";
				mes "You should bring these materials:";
				next;
				mes "[Aged Stranger]";
				mes "You should bring these materials:";
				mes "^0000FFLog 30, Tough Vines 20, Antelope Horn 20, Sea-otter Fur 10^000000.";
				close;
			}
			mes "[Aged Stranger]";
			mes "I see. If so, let's go.";
			next;
			soundeffect "mos_gusli1.wav",0;
			mes "-The old man starts to play";
			mes "his instrument, with eyes closed.";
			mes "He is unresponsive...";
			mes "like having fallen into a world";
			mes "only his own.-";
			close2;
			warp "moscovia",162,56;
			end;
		}
	}
	else if (mos_whale_edq == 34) {
		set .@comple,rand(1,3);
		if (.@comple == 2) {
			mes "[Aged Stranger]";
			mes "I have succeeded in making the";
			mes "instrument! Here you are. It's yours.";
			mes "This instrument is called a Gusli.";
			mes "This is a traditional instrument";
			mes "which comes from a faraway land of";
			mes "the ancestors of Moscovia.";
			getitem 2707,1;
			set mos_whale_edq,35;
			next;
			mes "[Aged Stranger]";
			mes "I am the last person who has";
			mes "learned it in this land.";
			next;
			mes "[Aged Stranger]";
			mes "So, indeed... This is a very";
			mes "special item here, that only we";
			mes "have.";
			next;
			mes "[Aged Stranger]";
			mes "If you show this to the good Csar,";
			mes "he can believe your story about the";
			mes "island. Everything is going to be";
			mes "well.";
			next;
			mes "So, what will you do now?";
			next;
			switch(select("How would I get back here?:I want to learn the Gusli.:Go back to the mainland.")) {
			case 1:
				mes "[Aged Stranger]";
				mes "You are my friend now,";
				mes "and you have this instrument.";
				mes "Whenever you want to come back";
				mes "here again, just play the Gusli";
				mes "at the docks of Moscovia.";
				next;
				mes "[Aged Stranger]";
				mes "Even if it's difficult to play it";
				mes "well, because you may not yet know";
				mes "how to play it, it's not a problem.";
				mes "Just make a sound.";
				next;
				mes "[Aged Stranger]";
				mes "This island... this whale... can";
				mes "perceive the sound of a Gusli from";
				mes "an endless distance away.";
				next;
				mes "[Aged Stranger]";
				mes "If you play this instrument,";
				mes "wherever you are, I'll go to you";
				mes "with this island. Only if you are a";
				mes "friend... heheh.";
				close;
				break;
			case 2:
				mes "[Aged Stranger]";
				mes "You really want to...";
				mes "learn this instrument...";
				mes "don't you?";
				mes "Well... it's hard to learn";
				mes "in such a short time...";
				next;
				mes "[Aged Stranger]";
				mes "It's okay if you can't play this";
				mes "instrument. I already made it for you.";
				next;
				mes "[Aged Stranger]";
				mes "But I can teach you how";
				mes "to play it anyway.";
				mes "I can't be too sure, though";
				mes "because I have never taught others.";
				next;
				mes "[Aged Stranger]";
				mes "Okay. If you are ready to play the";
				mes "Gusli, let me know.";
				set mos_whale_edq,36;
				close;
				break;
			case 3:
				mes "[Aged Stranger]";
				mes "I see. Okay, let's go.";
				next;
				mes "[Aged Stranger]";
				mes "Whenever you want to come back here";
				mes "again, play the Gusli at the docks";
				mes "of Moscovia.";
				next;
				mes "[Aged Stranger]";
				mes "Even if it's difficult to play it";
				mes "well, because you may not yet know";
				mes "how to play it, it's not a problem.";
				mes "Just make a sound.";
				next;
				mes "[Aged Stranger]";
				mes "This island... this whale... can";
				mes "perceive the sound of a Gusli from";
				mes "an endless distance away.";
				next;
				mes "[Aged Stranger]";
				mes "If you play this instrument,";
				mes "wherever you are, I'll go to you";
				mes "with this island. Only if you are a";
				mes "friend... heheh.";
				next;
				soundeffect "mos_gusli1.wav",0;
				mes "-The old man starts to play";
				mes "his instrument, with eyes closed.";
				mes "He is unresponsive...";
				mes "like having fallen into a world";
				mes "only his own.-";
				close2;
				warp "moscovia",162,56;
				end;
			}
		}else{
			mes "[Aged Stranger]";
			mes "It's not completed yet. Please wait a little longer.";
			close;
		}
	}
	else if (mos_whale_edq == 35) {
		mes "[Aged Stranger]";
		mes "So, what will you do now?";
		next;
		switch(select("How would I get back here?:I want to learn the Gusli.:Go back to the mainland.")) {
		case 1:
			mes "[Aged Stranger]";
			mes "You are my friend now,";
			mes "and you have this instrument.";
			mes "Whenever you want to come back";
			mes "here again, just play the Gusli";
			mes "at the docks of Moscovia.";
			next;
			mes "[Aged Stranger]";
			mes "Even if it's difficult to play it";
			mes "well, because you may not yet know";
			mes "how to play it, it's not a problem.";
			mes "Just make a sound.";
			next;
			mes "[Aged Stranger]";
			mes "This island... this whale... can";
			mes "perceive the sound of a Gusli from";
			mes "an endless distance away.";
			next;
			mes "[Aged Stranger]";
			mes "If you play this instrument,";
			mes "wherever you are, I'll go to you";
			mes "with this island. Only if you are a";
			mes "friend... heheh.";
			close;
			break;
		case 2:
			mes "[Aged Stranger]";
			mes "You really want to...";
			mes "learn this instrument...";
			mes "don't you?";
			mes "Well... it's hard to learn";
			mes "in such a short time...";
			next;
			mes "[Aged Stranger]";
			mes "It's okay if you can't play this";
			mes "instrument. I already made it for you.";
			next;
			mes "[Aged Stranger]";
			mes "But I can teach you how";
			mes "to play it anyway.";
			mes "I can't be too sure, though";
			mes "because I have never taught others.";
			next;
			mes "[Aged Stranger]";
			mes "Okay. If you are ready to play the";
			mes "Gusli, let me know.";
			set mos_whale_edq,36;
			close;
			break;
		case 3:
			mes "[Aged Stranger]";
			mes "I see. Okay, let's go.";
			next;
			mes "[Aged Stranger]";
			mes "Whenever you want to come back here";
			mes "again, play the Gusli at the docks";
			mes "of Moscovia.";
			next;
			mes "[Aged Stranger]";
			mes "Even if it's difficult to play it";
			mes "well, because you may not yet know";
			mes "how to play it, it's not a problem.";
			mes "Just make a sound.";
			next;
			mes "[Aged Stranger]";
			mes "This island... this whale... can";
			mes "perceive the sound of a Gusli from";
			mes "an endless distance away.";
			next;
			mes "[Aged Stranger]";
			mes "If you play this instrument,";
			mes "wherever you are, I'll go to you";
			mes "with this island. Only if you are a";
			mes "friend... heheh.";
			next;
			soundeffect "mos_gusli1.wav",0;
			mes "-The old man starts to play";
			mes "his instrument, with eyes closed.";
			mes "He is unresponsive...";
			mes "like having fallen into a world";
			mes "only his own.-";
			close2;
			warp "moscovia",162,56;
			end;
		}
	}
	else if (mos_whale_edq == 36) {
		mes "[Aged Stranger]";
		mes "Are you ready to learn the Gusli?";
		mes "Please equip the Gusli.";
		next;
		if(getequipid(EQI_ACC_L || EQI_ACC_R) == 2707) {
			mes "[Aged Stranger]";
			mes "Hm... Very well.";
			mes "At first, look at me how I play,";
			mes "then you play it slowly.";
			next;
			soundeffect "mos_gusli1.wav",0;
			mes "[Aged Stranger]";
			mes "Do not hurry,";
			mes "keep your composure,";
			mes "just look carefully,";
			mes "and follow me slowly.";
			next;
			if (Class == Job_Bard || Class == Job_Clown) {
				mes "[Aged Stranger]";
				mes "Oh! Ooh... Your hands are really good. You are surely talented with a music instrument.";
				next;
				mes "[Aged Stranger]";
				mes "I heard that there are some adventurers in the mainland... that like playing instruments and singing songs! You must be one of them...";
				next;
				mes "[Aged Stranger]";
				mes "This may go faster than I expected.";
				next;
				mes "[Aged Stranger]";
				mes "Okay, it's time for your turn. Play it. Play the song that I played.";
				next;
				set .@music_bard,rand(1,3);
				if (.@music_bard == 2) {
					soundeffect "mos_gusli1.wav",0;
					emotion e_no1;
					specialeffect2 7;
					mes "[Aged Stranger]";
					mes "Oh! You are good at playing the";
					mes "Gusli! In such a short time... you";
					mes "are great!";
					next;
					mes "[Aged Stranger]";
					mes "You've done well. I don't need to";
					mes "teach you any more. Your ability";
					mes "will be improved with more practice.";
					next;
					mes "[Aged Stranger]";
					mes "Now go back to the mainland and";
					mes "play the Gusli for our dear Csar.";
					next;
					mes "[Aged Stranger]";
					mes "With your ability to play, surely";
					mes "you can win the admiration of all.";
					set mos_whale_edq,38;
					close;
				}else{
					mes "[Aged Stranger]";
					mes "Um, a little bit greenhorn...";
					mes "Do not play that way.";
					mes "Take more time to concentrate while";
					mes "you play.";
					next;
					mes "[Aged Stranger]";
					mes "Practice more on your own.";
					mes "I will check on you again.";
					mes "If you practice, you will be good";
					mes "at it in no time.";
					set mos_whale_edq,37;
					close;
				}
			}else{
				mes "[Aged Stranger]";
				mes "Okay, it's time for your turn. Play";
				mes "it. Play the song that I played.";
				next;
				set .@music_etc,rand(1,6);
				if (.@music_etc == 3) {
					soundeffect "mos_gusli1.wav",0;
					emotion e_no1;
					specialeffect2 7;
					mes "[Aged Stranger]";
					mes "Oh! You are good at playing the";
					mes "Gusli! In such a short time... you";
					mes "are great!";
					next;
					mes "[Aged Stranger]";
					mes "You've done well. I don't need to";
					mes "teach you any more. Your ability";
					mes "will be improved with more practice.";
					next;
					mes "[Aged Stranger]";
					mes "Now go back to the mainland and";
					mes "play the Gusli for our dear Csar.";
					next;
					mes "[Aged Stranger]";
					mes "With your ability to play, surely";
					mes "you can win the admiration of all.";
					set mos_whale_edq,38;
					close;
				}else{
					soundeffect "mos_gusli2.wav",0;
					mes "[Aged Stranger]";
					mes "Um, a little bit greenhorn...";
					mes "Do not play that way.";
					mes "Take more time to concentrate while";
					mes "you play.";
					next;
					mes "[Aged Stranger]";
					mes "Practice more on your own.";
					mes "I will check on you again.";
					mes "If you practice, you will be good";
					mes "at it in no time.";
					set mos_whale_edq,37;
					close;
				}
			}
		}else{
			mes "[Aged Stranger]";
			mes "Um... Your preparations are not";
			mes "good. You're not holding the";
			mes "instrument correctly. Equip it";
			mes "properly, and then you can learn.";
			next;
			mes "[Aged Stranger]";
			mes "Tell me again when you are prepared";
			mes "to play the Gusli correctly.";
			close;
		}
	}
	else if (mos_whale_edq == 37) {
		mes "[Aged Stranger]";
		mes "Are you ready to learn the Gusli?";
		next;
		if(getequipid(EQI_ACC_L || EQI_ACC_R) == 2707) {
			mes "[Aged Stranger]";
			mes "Um... You did well.";
			next;
			if (Class == Job_Bard || Class == Job_Clown) {
				mes "[Aged Stranger]";
				mes "with your ability, you can";
				mes "absolutely play it wonderfully.";
				mes "Cheer up.";
				next;
				mes "[Aged Stranger]";
				mes "Good. Let's play again. Play the";
				mes "song that I played.";
				next;
				set .@music_bard,rand(1,3);
				if (.@music_bard == 2) {
					soundeffect "mos_gusli1.wav",0;
					emotion e_no1;
					specialeffect2 7;
					mes "[Aged Stranger]";
					mes "Oh! You are good at playing the";
					mes "Gusli! In such a short time... you";
					mes "are great!";
					next;
					mes "[Aged Stranger]";
					mes "You've done well. I don't need to";
					mes "teach you any more. Your ability";
					mes "will be improved with more practice.";
					next;
					mes "[Aged Stranger]";
					mes "Now go back to the mainland and";
					mes "play the Gusli for our dear Csar.";
					next;
					mes "[Aged Stranger]";
					mes "With your ability to play, surely";
					mes "you can win the admiration of all.";
					set mos_whale_edq,38;
					close;
				}else{
					mes "[Aged Stranger]";
					mes "Um, a little bit greenhorn...";
					mes "Do not play that way.";
					mes "Take more time to concentrate while";
					mes "you play.";
					next;
					mes "[Aged Stranger]";
					mes "Practice more on your own.";
					mes "I will check on you again.";
					mes "If you practice, you will be good";
					mes "at it in no time.";
					set mos_whale_edq,37;
					close;
				}
			}else{
				mes "[Aged Stranger]";
				mes "Good. Let's play again. Play the";
				mes "song that I played.";
				next;
				set .@music_etc,rand(1,6);
				if (.@music_etc == 3) {
					soundeffect "mos_gusli1.wav",0;
					emotion e_no1;
					specialeffect2 7;
					mes "[Aged Stranger]";
					mes "Oh! You are good at playing the";
					mes "Gusli! In such a short time... you";
					mes "are great!";
					next;
					mes "[Aged Stranger]";
					mes "You've done well. I don't need to";
					mes "teach you any more. Your ability";
					mes "will be improved with more practice.";
					next;
					mes "[Aged Stranger]";
					mes "Now go back to the mainland and";
					mes "play the Gusli for our dear Csar.";
					next;
					mes "[Aged Stranger]";
					mes "With your ability to play, surely";
					mes "you can win the admiration of all.";
					set mos_whale_edq,38;
					close;
				}else{
					mes "[Aged Stranger]";
					mes "Um, a little bit greenhorn...";
					mes "Do not play that way.";
					mes "Take more time to concentrate while";
					mes "you play.";
					next;
					mes "[Aged Stranger]";
					mes "Practice more on your own.";
					mes "I will check on you again.";
					mes "If you practice, you will be good";
					mes "at it in no time.";
					set mos_whale_edq,37;
					close;
				}
			}
		}else{
			mes "[Aged Stranger]";
			mes "Um... Your preparations are not";
			mes "good. You're not holding the";
			mes "instrument correctly. Equip it";
			mes "properly, and then you can learn.";
			next;
			mes "[Aged Stranger]";
			mes "Tell me again when you are prepared";
			mes "to play the Gusli correctly.";
			close;
		}
	}
	else if (mos_whale_edq == 38) {
		mes "[Aged Stranger]";
		mes "So, what will you do now?";
		next;
		if(select("How would I get back here?:Go back to the mainland.") == 1) {
			mes "[Aged Stranger]";
			mes "You are my friend now,";
			mes "and you have this instrument.";
			mes "Whenever you want to come back";
			mes "here again, just play the Gusli";
			mes "at the docks of Moscovia.";
			next;
			mes "[Aged Stranger]";
			mes "Even if it's difficult to play it";
			mes "well, because you may not yet know";
			mes "how to play it, it's not a problem.";
			mes "Just make a sound.";
			next;
			mes "[Aged Stranger]";
			mes "This island... this whale... can";
			mes "perceive the sound of a Gusli from";
			mes "an endless distance away.";
			next;
			mes "[Aged Stranger]";
			mes "If you play this instrument,";
			mes "wherever you are, I'll go to you";
			mes "with this island. Only if you are a";
			mes "friend... heheh.";
			close;
		}
		mes "[Aged Stranger]";
		mes "I see. Okay, let's go.";
		next;
		mes "[Aged Stranger]";
		mes "Whenever you want to come back here";
		mes "again, play the Gusli at the docks";
		mes "of Moscovia.";
		next;
		mes "[Aged Stranger]";
		mes "Even if it's difficult to play it";
		mes "well, because you may not yet know";
		mes "how to play it, it's not a problem.";
		mes "Just make a sound.";
		next;
		mes "[Aged Stranger]";
		mes "This island... this whale... can";
		mes "perceive the sound of a Gusli from";
		mes "an endless distance away.";
		next;
		mes "[Aged Stranger]";
		mes "If you play this instrument,";
		mes "wherever you are, I'll go to you";
		mes "with this island. Only if you are a";
		mes "friend... heheh.";
		next;
		soundeffect "mos_gusli1.wav",0;
		mes "-The old man starts to play";
		mes "his instrument, with eyes closed.";
		mes "He is unresponsive...";
		mes "like having fallen into a world";
		mes "only his own.-";
		close2;
		warp "moscovia",162,56;
		end;
	}
	else if (mos_whale_edq > 38) {
		mes "[Aged Stranger]";
		mes "This is the Whale Island.";
		mes "I don't know how you came here.";
		next;
		mes "[Aged Stranger]";
		mes "If you want, I can send you back";
		mes "to the mainland. What'll it be?";
		next;
		switch(select("Look around.:Go back to the mainland.:Venture into the unkown.")) {
		case 1:
			mes "[Aged Stranger]";
			mes "Well, well... Do as you please.";
			mes "If so, I will take a rest.";
			close;
			break;
		case 2:
			mes "[Aged Stranger]";
			mes "I see. If so, let's go.";
			next;
			soundeffect "mos_gusli1.wav",0;
			mes "-The old man starts to play";
			mes "his instrument, with eyes closed.";
			mes "He is unresponsive...";
			mes "like having fallen into a world";
			mes "only his own.-";
			close2;
			warp "moscovia",162,56;
			end;
			break;
		case 3:
			mes "[Aged Stranger]";
			mes "Oh, if you want, I can";
			mes "guide you to a good place for you.";
			next;
			mes "[Aged Stranger]";
			mes "There are some lands...";
			mes "untouched and mysterious...";
			mes "around Moscovia...";
			next;
			mes "[Aged Stranger]";
			mes "If you want, I'll send you there. What do you think of that?";
			next;
			if(select("Consider it.:Ok, please send me there.") == 1) {
				mes "[Aged Stranger]";
				mes "Well, well... Do as you please.";
				mes "If so, I will take a rest.";
				close;
			}
			mes "[Aged Stranger]";
			mes "I see. If so, let's go.";
			next;
			soundeffect "mos_gusli1.wav",0;
			mes "-The old man starts to play";
			mes "his instrument, with eyes closed.";
			mes "He is unresponsive...";
			mes "like having fallen into a world";
			mes "only his own.-";
			close2;
			warp "mosk_fild02",204,54;
			end;
		}
	}else{
		mes "[Aged Stranger]";
		mes "Long time, no see!";
		mes "You probably like the island, don't you?";
		mes "Please stay and take a rest.";
		next;
		mes "[Aged Stranger]";
		mes "Or if you want, I can send you back";
		mes "to the mainland. What'll it be?";
		next;
		if(select("Look around.:Go back to the mainland.") == 1) {
			mes "[Aged Stranger]";
			mes "Well, well... Do as you please.";
			mes "If so, I will take a rest.";
			close;
		}
		mes "[Aged Stranger]";
		mes "Good. I will go to the place";
		mes "right way.";
		next;
		soundeffect "mos_gusli1.wav",0;
		mes "A old man started to play a instrument";
		mes "closing his eyes.";
		mes "And then he didn't any answer so, looks like";
		mes "falling down to only his world.";
		close2;
		warp "moscovia",162,56;
		end;
	}
}

//----------------------------------------------------------------------------
// Csar Alexsay III - Moscovia Palace
//----------------------------------------------------------------------------
mosk_in,131,92,3	script	Csar Alexsay III#npc	965,{
	if (checkweight(1201,1) == 0 ) {
		mes "[Csar Alexsay III]";
		mes "You're carrying too many items.";
		mes "Please come after using kafra service.";
		close;
	}
	if ((MaxWeight-Weight) < 2000) {
		mes "[Csar Alexsay III]";
		mes "You're carrying too many items.";
		mes "Please come after using kafra service.";
		close;
	}
	if (mos_nowinter == 12) {
		mes "[Csar Alexsay III]";
		mes "You!!!";
		mes "So many people saw you";
		mes "meet with Baba Yaga!";
		next;
		mes "[Csar Alexsay III]";
		mes "The guilt which must be felt, when";
		mes "meeting secretly with a witch...";
		next;
		mes "[Csar Alexsay III]";
		mes "For that, we indict capital";
		mes "punishment without any just trial!";
		next;
		mes "[Csar Alexsay III]";
		mes "But you are a stranger to these";
		mes "lands... So I will hold you in special trial.";
		next;
		mes "[Csar Alexsay III]";
		mes "If you have anything to say...";
		mes "spare me no detail.";
		next;
		select("Explain the circumstances.");
		mes "-Talk about what happened with Baba";
		mes "Yaga, and move forward with the plan.-";
		next;
		mes "[Csar Alexsay III]";
		mes "Hm-hm, that's an embarrassing story...";
		mes "But if you are telling the";
		mes "truth, my people will be pleased.";
		next;
		mes "[Csar Alexsay III]";
		mes "Okay, Bring to me";
		mes "any evidence, to believe";
		mes "what you are saying.";
		next;
		mes "[Csar Alexsay III]";
		mes "You killed the Baba Yaga!!";
		mes "If this is true, bring";
		mes "me Yaga's Pestles.";
		mes "If you do, I will make";
		mes "sure no one ever doubts you.";
		next;
		if (countitem(7762) > 39) {
			if(select("Show the Yaga's Pestles.:Do nothing.") == 1) {
				mes "[" + PcName + "]";
				mes "Yes, Here you are.";
				next;
				mes "-Offered the Yaga's Pestles.-";
				delitem 7762,40;
				next;
				mes "[Csar Alexsay III]";
				mes "Hm.. You do have them.";
				mes "For the time being, I will admit";
				mes "that you are coming and going to";
				mes "hunt Baba Yaga.";
				next;
				mes "[Csar Alexsay III]";
				mes "But do not engage in doubtable";
				mes "behavior that would instigate my";
				mes "people to act in a strange way!";
				next;
				mes "[Csar Alexsay III]";
				mes "If you do that, I will arrest you immediately!";
				mes "So take care of yourself.";
				next;
				mes "[Csar Alexsay III]";
				mes "And, when you succeed in";
				mes "banishing winter with magic,";
				mes "announce that to me immediately.";
				set mos_nowinter,14;
				close;
			}
			mes "[Csar Alexsay III]";
			mes "I said to bring me";
			mes "40 Yaga's Pestles";
			mes "from the Baba Yaga.";
			set mos_nowinter,13;
			close;
		}else{
			mes "[Csar Alexsay III]";
			mes "I said to bring me";
			mes "40 Yaga's Pestles";
			mes "from the Baba Yaga.";
			set mos_nowinter,13;
			close;
		}
	}
	else if (mos_nowinter == 13) {
		mes "[Csar Alexsay III]";
		mes "Did you bring some evidence to";
		mes "resolve your issue of doubt, traveler?";
		next;
		if(select("Yes, I did.:I am confused.") == 1) {
			if (countitem(7762) > 39) {
				delitem 7762,40;
				mes "[Csar Alexsay III]";
				mes "Good,";
				mes "I won't doubt you any more.";
				mes "Because you've proven yourself,";
				mes "you can remain a free traveler.";
				next;
				mes "[Csar Alexsay III]";
				mes "Surely, I hate cooperating with Baba Yaga.";
				mes "But if my people are happy";
				mes "after the work you do,";
				mes "I am also pleased.";
				next;
				mes "[Csar Alexsay III]";
				mes "For the time being, I will admit";
				mes "that you are coming and going to";
				mes "hunt Baba Yaga.";
				next;
				mes "[Csar Alexsay III]";
				mes "But do not engage in doubtable";
				mes "behavior that would instigate my";
				mes "people to act in a strange way!";
				next;
				mes "[Csar Alexsay III]";
				mes "If you do that, I will arrest you immediately!";
				mes "So take care of yourself.";
				set mos_nowinter,14;
				close;
			}else{
				mes "[Csar Alexsay III]";
				mes "Your items do not match the";
				mes "count of 40 Yaga's Pestles.";
				mes "Did you forget the amount,";
				mes "or did you wish to lie to me...";
				next;
				mes "[Csar Alexsay III]";
				mes "I will treat that as a joke!";
				mes "A kind of sarcasm!";
				mes "You go away now and bring some";
				mes "evidence to certify your innocence.";
				close;
			}
		}
		mes "[Csar Alexsay III]";
		mes "I said to bring me";
		mes "40 Yaga's Pestles";
		mes "from the Baba Yaga.";
		next;
		mes "[Csar Alexsay III]";
		mes "Are you here to tease me?";
		close;
	}
	else if (mos_nowinter == 14) {
		mes "[Csar Alexsay III]";
		mes "It'd be great if I stayed put, for";
		mes "the good of both me and my people.";
		mes "I don't want to see the Baba Yaga";
		mes "personally.";
		next;
		mes "[Csar Alexsay III]";
		mes "So, I want you to ";
		mes "take my place for that.";
		next;
		mes "[Csar Alexsay III]";
		mes "Please help Baba Yaga";
		mes "to seize the summer.";
		close;
	}
	else if (mos_nowinter == 20) {
		mes "[Csar Alexsay III]";
		mes "Are you here for...";
		next;
		mes "[Csar Alexsay III]";
		mes "I already heard about the";
		mes "weather from the minister.";
		next;
		mes "[Csar Alexsay III]";
		mes "Actually, I was a little";
		mes "dissatisfied with the doing";
		mes "of witchcraft at the center";
		mes "of the square...";
		next;
		mes "[Csar Alexsay III]";
		mes "But... I can admit it was good work.";
		next;
		mes "[Csar Alexsay III]";
		mes "Everyone hates the cold winter.";
		mes "Now, the winter will not";
		mes "come anymore! So, I'm very pleased.";
		next;
		mes "[Csar Alexsay III]";
		mes "Right.";
		mes "I want to give you something";
		mes "in the name of the people.";
		next;
		mes "[Csar Alexsay III]";
		mes "Here,take it.";
		mes "I give it as an atonement";
		mes "to make my people happy.";
		set mos_nowinter,21;
		getitem 603,1;
		next;
		mes "[Csar Alexsay III]";
		mes "Stay here as long as you want, and";
		mes "enjoy yourself to the fullest this summer.";
		close;
	}
	else{
		if (mos_whale_edq < 16) {
			mes "[Csar Alexsay III]";
			mes "Welcome to Moscovia!";
			mes "I am the ruler, Csar Aleksay III, of Moscovia.";
			next;
			mes "[Csar Alexsay III]";
			mes "Go back to your hometown and talk about the beauty of Moscovia! Talk about my great government to all the people of the lands!";
			close;
		}
		else if (mos_whale_edq == 16) {
			mes "[Csar Alexsay III]";
			mes "A foreign traveler...?";
			mes " Do you have something to tell me?";
			next;
			mes "[Csar Alexsay III]";
			mes "If it is not important,";
			mes "have an audience with the Prime Minister first.";
			close;
		}
		else if (mos_whale_edq == 17) {
			mes "[Csar Alexsay III]";
			mes "Oh, are you the traveler who told me about an interesting adventure story...";
			next;
			mes "[Csar Alexsay III]";
			mes "Not only are you not from Moscovia, but also... you have found the moving island, which only existed in legends! I want to hear details...";
			next;
			mes "[Csar Alexsay III]";
			mes "Let's hear it...";
			mes "Tell me quickly.";
			mes "I'm anxious to know the truth about the island...";
			next;
			select("Tell the story all the while.");
				mes "...";
				next;
				mes "... ...";
				next;
				mes "... ... ...";
				next;
				mes "... ... ... ...";
				next;
				mes "[Csar Alexsay III]";
				mes "Surely, an interesting story... But it sounds so unbelievable! What do you think, Prime Minister?";
				next;
				mes "[Prime Minister Dmitree]";
				mes "It doesn't sound like a lie,";
				mes "but it's difficult to believe";
				mes "completely. I mean, I've known";
				mes "a whale to be huge, but...";
				next;
				mes "[Prime Minister Dmitree]";
				mes "a person living there...";
				mes "water streaming...";
				mes "and a tree growing on it...!!!";
				mes "Hmm...";
				next;
				mes "[Csar Alexsay III]";
				mes "I agree. I have heard many kinds of mysterious adventure stories, but this sounds like an absurd story!";
				next;
				mes "[Csar Alexsay III]";
				mes "Not to mention that it's happened near my nation. Unbelievable!";
				next;
				mes "[Prime Minister Dmitree]";
				mes "But Csar... In my memory,";
				mes "I heard that exactly, the";
				mes "last time a story was told";
				mes "about the mysterious moving island. But there was a musical instrument...which an old man played.";
				next;
				mes "[Csar Alexsay III]";
				mes "Really? Tell me the details.";
				next;
				mes "[Prime Minister Dmitree]";
				mes "Surely, I have heard the same";
				mes "story, as told in the legends";
				mes "of our ancestors; about an old man who lived there.";
				next;
				mes "[Csar Alexsay III]";
				mes "Hm. There are many doubtful points. Ordinarily, I would give you a big prize, but in this case, it is difficult to believe.";
				next;
				mes "[Csar Alexsay III]";
				mes "Bring me something to prove";
				mes "the existence of the whale.";
				mes "If you do, I will give you a big prize.";
				next;
				mes "[Csar Alexsay III]";
				mes "But if you don't,";
				mes "I will punish you for your lies! Bring this instrument that supposedly an old man has.";
				next;
				mes "[Prime Minister Dmitree]";
				mes "Csar... This is a foreigner...";
				mes "No disrespect was meant to you.";
				mes "Perhaps a little more generosity is in order?.";
				next;
				mes "[Csar Alexsay III]";
				mes "No way! If the story is not true, many other foreign travelers who pass by this land will disrespect me like this... What would you have me do?";
				next;
				mes "[Prime Minister Dmitree]";
				mes "......";
				next;
				mes "[Csar Alexsay III]";
				mes "You got it, traveler?";
				mes "You have a heavy responsibility.";
				mes "Bring evidence of this whale island to me, to provide me with some relief. Now go.";
				set mos_whale_edq,18;
				close;
		}
		else if (mos_whale_edq > 17 && mos_whale_edq < 35) {
			mes "[Csar Alexsay III]";
			mes "I'm tired... I want to take a rest, so... leave.";
			next;
			mes "[Csar Alexsay III]";
			mes "Just think about finding the whale island...";
			close;
		}
		else if (mos_whale_edq == 35) {
			mes "[Csar Alexsay III]";
			mes "Oh. You've come back...";
			mes "Hm. Did you find something to bring";
			mes "to me from the whale island?";
			next;
			mes "[Csar Alexsay III]";
			mes "Did you bring the instrument?";
			mes "A Gooselri? Which only exists";
			mes "in the whale island? Let's see.";
			next;
			if (getequipid(EQI_ACC_L || EQI_ACC_R) == 2707 || countitem(2707) > 0) {
				mes "[Csar Alexsay III]";
				mes "Oh... Is this instrument... a Gooselri?";
				next;
				mes "[Prime Minister Dmitree]";
				mes "Actually, Csar, I believe it is";
				mes "called a Gusli.";
				next;
				mes "[Csar Alexsay III]";
				mes "Oh. Prime Minister, is this the";
				mes "correct instrument from the";
				mes "legends, then?";
				next;
				mes "[Prime Minister Dmitree]";
				mes "I can't be sure, but this is";
				mes "definitely an instrument never seen";
				mes "in our lands before.";
				next;
				mes "[Csar Alexsay III]";
				mes "Hm. This is also my first time";
				mes "seeing this kind of muscial";
				mes "instrument. So mysterious... Hey!";
				mes "Can you play it?";
				next;
				if(select("I can play.:I can't play it.") == 1) {
					mes "[Csar Alexsay III]";
					mes "You can play it!";
					mes "Good, play it right away!";
					next;
					soundeffect "mos_gusli2.wav",0;
					donpcevent "Csar Alexsay III#npc::OnEmoteAg";
					donpcevent "Prime Minister Dmitree#m::OnEmoteAg";
					mes "[Csar Alexsay III]";
					mes "Um... What is this? Do you mock me?";
					mes "You are so impudent... You...!";
					next;
					mes "[Prime Minister Dmitree]";
					mes "Csar... Calm down, please.";
					mes "If you are quick to anger by such a";
					mes "lowly person, it will become a";
					mes "problem of prestige for you.";
					next;
					mes "[Csar Alexsay III]";
					mes "Agh... I agree with you.";
					mes "You. Give a proper prize to the";
					mes "adventurer and send them on their way.";
					next;
					mes "[Prime Minister Dmitree]";
					mes "How can I re...reward...?";
					next;
					emotion e_pif;
					mes "[Csar Alexsay III]";
					mes "I ordered you instead Prime";
					mes "Minister, to make this poor player";
					mes "disappear from in front of my eyes,";
					mes "right now.";
					next;
					mes "[Prime Minister Dmitree]";
					mes "You should be grateful for the";
					mes "Csar's mercy... impudent";
					mes "traveler...";
					next;
					mes "[Prime Minister Dmitree]";
					mes "Even though I regard as your effort for the time so, award you. Take it and go out.";
					getitem 12702,1;
					getexp 500000,0;
					set mos_whale_edq,39;
					close;
				}
				mes "[Csar Alexsay III]";
				mes "Um... That's too bad.";
				mes "I see... Will I ever believe...";
				next;
				mes "[Csar Alexsay III]";
				mes "Thanks for your efforts.";
				mes "Hey, Prime Minister,";
				mes "reward this traveler.";
				next;
				mes "[Prime Minister Dmitree]";
				mes "How can I reward the traveler?";
				next;
				mes "[Csar Alexsay III]";
				mes "I leave the matter in your hands;";
				mes "it's up to you. I will take a";
				mes "rest.";
				next;
				mes "[Prime Minister Dmitree]";
				mes "The Csar didn't take pleasure in";
				mes "your story, as I expected.";
				next;
				mes "[Prime Minister Dmitree]";
				mes "Even though I regard as your effort for the time so, award you. Take it.";
				getitem 12702,1;
				getexp 700000,0;
				set mos_whale_edq,40;
				close;
			}else{
				mes "[Csar Alexsay III]";
				mes "What are you doing? Can you play it";
				mes "without even holding the muscial instrument???";
				next;
				mes "[Csar Alexsay III]";
				mes "Don't be impudent with me! Do it right!";
				close;
			}
		}
		else if (mos_whale_edq == 38) {
			mes "[Csar Alexsay III]";
			mes "Oh you come...hum did you find";
			mes "something to satisfy me";
			mes "at the whale island?";
			next;
			if (getequipid(EQI_ACC_L || EQI_ACC_R) == 2707 || countitem(2707) > 0) {
				mes "[Csar Alexsay III]";
				mes "Oh... Is this instrument... a Gooselri?";
				next;
				mes "[Prime Minister Dmitree]";
				mes "Actually, Csar, I believe it is called a Gusli.";
				next;
				mes "[Csar Alexsay III]";
				mes "Oh. Prime Minister, is this the";
				mes "correct instrument from the";
				mes "legends, then?";
				next;
				mes "[Prime Minister Dmitree]";
				mes "I can't be sure, but this is";
				mes "definitely an instrument never seen";
				mes "in our lands before.";
				next;
				mes "[Csar Alexsay III]";
				mes "Hm. This is also my first time";
				mes "seeing this kind of musical";
				mes "instrument. So mysterious... Hey!";
				mes "Can you play it?";
				next;
				mes "["+strcharinfo(0)+"]";
				mes "Yes. I learned how to play it at Whale Island.";
				next;
				mes "[Csar Alexsay III]";
				mes "Oh! Oh!... You can play it!";
				mes "Play it right away. I wonder about its sound.";
				next;
				soundeffect "mos_gusli1.wav",0;
				mes "-When the music of the Gusli is";
				mes "played, all the people in the";
				mes "Csar's Palace fall in with the tune.-";
				next;
				donpcevent "Csar Alexsay III#npc::OnEmoteSob";
				donpcevent "Prime Minister Dmitree#m::OnEmoteSob";
				mes "[Csar Alexsay III]";
				mes "Oh! I can't hear without tears.";
				mes "That's a sad tune.";
				next;
				mes "[Prime Minister Dmitree]";
				mes "That's right, Csar.";
				mes "I have never heard a sad tune such as this.";
				mes "Kh-huk. Sniff.";
				next;
				mes "[Csar Alexsay III]";
				mes "Huk... You. Give a big prize to";
				mes "this traveler!";
				next;
				mes "[Prime Minister Dmitree]";
				mes "Hukhuk... Sniff. How can I reward this?";
				next;
				mes "[Csar Alexsay III]";
				mes "I leave this matter in your hands.";
				mes "Give a proper prize to whom has";
				mes "Shown me a great story and";
				mes "beautiful music.";
				next;
				mes "[Prime Minister Dmitree]";
				mes "I express thanks to you on behalf";
				mes "of our dear Csar and all the people";
				mes "in his palace. I will reward your";
				mes "efforts, in the name of the Csar.";
				getitem 617,1;
				getexp 1200000,0;
				set mos_whale_edq,41;
				close;
			}else{
				mes "[Csar Alexsay III]";
				mes "But you... Where do you keep the";
				mes "instrument which you are to show me?";
				next;
				mes "[Csar Alexsay III]";
				mes "Don't you need to be holding the instrument, in order to play it???";
				next;
				mes "["+strcharinfo(0)+"]";
				mes "I'm sorry. I will be ready now, and try again to play it.";
				close;
			}
		}
		else if (mos_whale_edq == 39) {
			mes "[Csar Alexsay III]";
			mes "What happen... If you have special things go out.";
			close;
		}
		else if (mos_whale_edq == 40) {
			mes "[Csar Alexsay III]";
			mes "Um... You are a traveler as I saw.";
			mes "If you have special things, don't interfere my rest.";
			close;
		}
		else if (mos_whale_edq == 41) {
			mes "[Csar Alexsay III]";
			mes "Oh... You. ~";
			mes "Nice to see you again.";
			mes "I want for you to sometimes stop by here and play some music for me. ~";
			close;
		}
		else{
			mes "[Csar Alexsay III]";
			mes "Welcome to Moscovia,";
			mes "I am Csar Alexsay the Third.";
			next;
			mes "[Csar Alexsay III]";
			mes "Go back to your hometown and tell everyone about the beauty of Moscovia,";
			mes "and my great government.";
			close;
		}
	}
	
	OnEmoteAg:
		emotion e_ag;
		end;
		
	OnEmoteSob:
		emotion e_sob;
		end;
}

//----------------------------------------------------------------------------
// Prime Minister Dmitree - Moscovia Palace
//----------------------------------------------------------------------------
mosk_in,127,89,3	script	Prime Minister Dmitree#m	967,{
	if (mos_nowinter > 11 && mos_nowinter < 14) {
		mes "[Prime Minister Dmitree]";
		mes "You are in trouble if";
		mes "you conspire against the Csar,";
		mes "so, make your actions carefull,";
		mes "and if you want to clean yourself";
		mes "from suspicion... do everything you";
		mes "can to prove your innocence.";
		close;
	}
	else if (mos_nowinter == 14) {
		mes "[Prime Minister Dmitree]";
		mes "You have just cleared your name,";
		mes "but... we don't trust you wholly yet.";
		next;
		mes "[Prime Minister Dmitree]";
		mes "I can't trust you, but...";
		mes "if you succeed in taking hold of";
		mes "the summer... I might be able to.";
		close;
	}
	else if (mos_nowinter == 20) {
		mes "[Prime Minister Dmitree]";
		mes "We know that you mean well.";
		mes "But we can't fully trust you,";
		mes "so we kept an eye on your movements.";
		next;
		mes "[Prime Minister Dmitree]";
		mes "I heard that you performed";
		mes "witchcraft at the palace square...";
		mes "so, I ordered scholars to";
		mes "investigate the weather.";
		next;
		mes "[Prime Minister Dmitree]";
		mes "The results from taking observation";
		mes "of the weather, are the reducing";
		mes "change of temperature, and that the";
		mes "highest temperature is now stabilized.";
		next;
		mes "[Prime Minister Dmitree]";
		mes "I don't know what this may mean, by";
		mes "way of principle, but I've decided";
		mes "to admit the facts.";
		next;
		mes "[Prime Minister Dmitree]";
		mes "Already, our dear Csar knows.";
		mes "I finished the report.";
		mes "Go and announce it to him.";
		close;
	}
	else{
		if (mos_whale_edq < 16) {
			mes "[Prime Minister Dmitree]";
			mes "You are a foreign traveler. This is the Moscovia Palace, home of Csar Aleksay the Third. Extending your every courtesy here... is not bad manners.";
			close;
		}
		else if (mos_whale_edq == 16) {
			mes "[Prime Minister Dmitree]";
			mes "Traveler, why have you come to the Csar's Palace?";
			next;
			if(select("Just to look around.:To see the dear Csar.") == 1) {
				mes "[Prime Minister Dmitree]";
				mes "If so... look around with caution. Do not bother the Csar.";
				next;
				mes "[Prime Minister Dmitree]";
				mes "Moscovia welcomes all travelers such as yourself!";
				next;
				mes "[Prime Minister Dmitree]";
				mes "Marvelously, our dear Csar likes it very much when interesting stories are often told to him.";
				close;
			}
			mes "[Prime Minister Dmitree]";
			mes "Did you come to see our dear Csar? If so, tell me your business with him in advance.";
			next;
			if(select("I'd like to say hello.:I have an adventure story for him.") == 1) {
				mes "[Prime Minister Dmitree]";
				mes "I will tell him directly about your business. You don't need to worry yourself with the Csar.";
				close;
			}
			mes "[Prime Minister Dmitree]";
			mes "I wonder what sort of things have happened to you... The Csar will be very pleased to hear your stories.";
			next;
			mes "[Prime Minister Dmitree]";
			mes "I will admit you. If our dear Csar is satisfied with your story, he will give you a big prize.";
			set mos_whale_edq,17;
			close;
		}
		else if (mos_whale_edq == 17) {
			mes "[Prime Minister Dmitree]";
			mes "I already announced you,";
			mes "so go see him and speak to him directly.";
			close;
		}
		else if (mos_whale_edq > 17 && mos_whale_edq < 35) {
			mes "[Prime Minister Dmitree]";
			mes "Now, our dear Csar needs a rest.";
			mes "You should do your duty and go find the whale island.";
			close;
		}
		else if (mos_whale_edq == 35) {
			mes "[Prime Minister Dmitree]";
			mes "Ah! You've come back.";
			mes "I will request for you to see him immediately.";
			close;
		}
		else if (mos_whale_edq == 38) {
			mes "[Prime Minister Dmitree]";
			mes "Ah! You've come back.";
			mes "I will request for you to see him immediately.";
			close;
		}
		else if (mos_whale_edq == 39) {
			mes "[Prime Minister Dmitree]";
			mes "I don't want to hear your terrible ";
			mes "performance any more so, go out away.";
			close;
		}
		else if (mos_whale_edq == 40) {
			mes "[Prime Minister Dmitree]";
			mes "What's up? Dear Chare is taking a rest.";
			mes "If you have nothing special, go out.";
			close;
		}
		else if (mos_whale_edq == 41) {
			mes "[Prime Minister Dmitree]";
			mes "Your Gusli performance was so touching.";
			mes "Unforgettable! Whenever you are here, please allow us to hear that tune again.";
			close;
		}else{
			mes "[Prime Minister Dmitree]";
			mes "You are a foreign traveler. This is a palace";
			mes "which lives Alexei the Third.";
			mes "Extend you every courtesy don't not bad manner.";
			close;
		}
	}
}

//----------------------------------------------------------------------------
// Island Trigger - Docks
//----------------------------------------------------------------------------
moscovia,136,46,4	script	Find#ship	844,4,4,{
	end;
	
OnTouch:
	if (mos_whale_edq > 34) {
		mes "-Watching the sea from the docks,";
		mes "it suddenly dawns upon you that you";
		mes "have memories from Whale Island.-";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "Stop by the whale island?";
		next;
		if(select("Go to Whale Island.:Stay put.") == 1) {
			if (getequipid(EQI_ACC_L || EQI_ACC_R) == 2707) {
				soundeffect "mos_gusli2.wav",0;
				mes "-Slowly, your hands are on the";
				mes "Gusli, and the playing starts...";
				mes "reminding you of the melody which";
				mes "the aged stranger had played...-";
				next;
				mes "[Village resident]";
				mes "So...something is rising from the sea!!!";
				next;
				mes "[Village Youth]";
				mes "What...What is that...??";
				next;
				mes "[Mr. Ibanoff]";
				mes "Ohohoh!... That's the whale";
				mes "island...!!! Someday, I hope to go there! Hahaha.";
				next;
				warp "mosk_fild01",95,93;
			}else{
				mes "["+strcharinfo(0)+"]";
				mes "Oh my goodness... Slipped right out";
				mes "of my mind... to forget equipping the Gusli.";
				next;
				mes "["+strcharinfo(0)+"]";
				mes "The aged stranger said that when I";
				mes "want to go to Whale Island again, I";
				mes "should play the Gusli from this place...";
				close;
			}
		}
		mes "["+strcharinfo(0)+"]";
		mes "I can go some other time.";
		mes "I will do other work now.";
		close;
	}else{
		end;
	}
}

//----------------------------------------------------------------------------
// Triggers
//----------------------------------------------------------------------------

mosk_ship,1,1,4	script	Baehideun#ship	-1,{
OnInit:
	set $@mos1_edq,0;
	end;
}

mosk_ship,81,110,0	script	#findship	844,5,5,{
OnInit:
	disablenpc "#findship";
	stopnpctimer;
	end;

OnEnable:
	enablenpc "#findship";
	initnpctimer;
	end;

OnDisable:
	disablenpc "#findship";
	set $@mos1_edq,0;
	end;

OnTouch:
	if (mos_whale_edq == 12) {
		mes "seeewaaaaaaaaaaa";
		next;
		mes "[Mr. Ibanoff]";
		mes "Hey "+strcharinfo(0)+"! Look!";
		mes "It's dangerous! Hide! Hurry!";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "That... that is...";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "Something... something is rising...";
		next;
		mes "[Mr. Ibanoff]";
		mes "Watch out! "+strcharinfo(0)+"!";
		mes "Ah... That... That is... What...";
		set mos_whale_edq,13;
		close2;
		warp "mosk_fild01",95,93;
		end;
	}else{
		end;
	}
	end;

OnTimer300000:
	donpcevent "#findship::OnDisable";
	end;
}

mosk_ship,2,2,4	script	Baehideun1#ship	-1,{
OnInit:
	disablenpc "Baehideun1#ship";
	stopnpctimer;
	end;
	
OnEnable:
	enablenpc "Baehideun1#ship";
	monster "mosk_ship",89,112,"Sea Monster",1425,1,"Baehideun1#ship::OnMyMobDead";
	monster "mosk_ship",85,110,"Sea Monster",1425,1,"Baehideun1#ship::OnMyMobDead";
	initnpctimer;
	end;

OnDisable:
	set $@mos1_edq,0;
	stopnpctimer;
	disablenpc "Baehideun1#ship";
	end;

OnMyMobDead:
	if (mobcount("mosk_ship","Baehideun1#ship::OnMyMobDead") < 1) {
		set $@mos1_edq,0;
		mes "[Mr. Ibanoff]";
		mes "Now that all the monsters are gone,";
		mes "we can start sailing again";
		mes "normally.";
		donpcevent "Baehideun1#ship::OnDisable";
		close;
	}
	end;

OnTimer300000:
	killmonster "mosk_ship","Baehideun1#ship::OnMyMobDead";
	set $@mos1_edq,0;
	donpcevent "Baehideun1#ship::OnDisable";
	end;
}

mosk_ship,3,3,4	script	Baehideun2#ship	-1,{
OnInit:
	disablenpc "Baehideun2#ship";
	stopnpctimer;
	end;

OnEnable:
	enablenpc "Baehideun2#ship";
	monster "mosk_ship",89,112,"Sea Monster",1425,1,"Baehideun2#ship::OnMyMobDead";
	monster "mosk_ship",80,110,"Sea Monster",1426,1,"Baehideun2#ship::OnMyMobDead";
	monster "mosk_ship",83,114,"Sea Monster",1426,1,"Baehideun2#ship::OnMyMobDead";
	monster "mosk_ship",85,110,"Sea Monster",1425,1,"Baehideun2#ship::OnMyMobDead";
	initnpctimer;
	end;

OnDisable:
	set $@mos1_edq,0;
	stopnpctimer;
	disablenpc "Baehideun2#ship";
	end;

OnMyMobDead:
	if (mobcount("mosk_ship","Baehideun2#ship::OnMyMobDead") < 1) {
		set $@mos1_edq,0;
		mes "[Mr. Ibanoff]";
		mes "Now that all the monsters are gone,";
		mes "we can start sailing again";
		mes "normally.";
		donpcevent "Baehideun2#ship::OnDisable";
		close;
	}
	end;

OnTimer300000:
	killmonster "mosk_ship","Baehideun2#ship::OnMyMobDead";
	set $@mos1_edq,0;
	donpcevent "Baehideun2#ship::OnDisable";
	end;
}

mosk_ship,5,5,4	script	Baehideun3#ship	-1,{
OnInit:
	disablenpc "Baehideun3#ship";
	stopnpctimer;
	end;

OnEnable:
	enablenpc "Baehideun3#ship";
	monster "mosk_ship",85,111,"Sea Monster",1451,1,"Baehideun3#ship::OnMyMobDead";
	monster "mosk_ship",89,112,"Sea Monster",1543,1,"Baehideun3#ship::OnMyMobDead";
	monster "mosk_ship",90,106,"Sea Monster",1543,1,"Baehideun3#ship::OnMyMobDead";
	initnpctimer;
	end;

OnDisable:
	set $@mos1_edq,0;
	stopnpctimer;
	disablenpc "Baehideun3#ship";
	end;

OnMyMobDead:
	if (mobcount("mosk_ship","Baehideun3#ship::OnMyMobDead") < 1) {
		set $@mos1_edq,0;
		mes "[Mr. Ibanoff]";
		mes "Now that all the monsters are gone,";
		mes "we can start sailing again";
		mes "normally.";
		set mos_whale_edq,11;
		donpcevent "Baehideun3#ship::OnDisable";
		close;
	}
	end;

OnTimer300000:
	killmonster "mosk_ship","Baehideun3#ship::OnMyMobDead";
	set $@mos1_edq,0;
	donpcevent "Baehideun3#ship::OnDisable";
	end;
}

mosk_ship,15,15,4	script	Baehideun4#ship	-1,{
OnInit:
	disablenpc "Baehideun4#ship";
	stopnpctimer;
	end;

OnEnable:
	enablenpc "Baehideun4#ship";
	monster "mosk_ship",85,111,"Sea Monster",1451,1,"Baehideun4#ship::OnMyMobDead";
	monster "mosk_ship",89,112,"Sea Monster",1543,1,"Baehideun4#ship::OnMyMobDead";
	monster "mosk_ship",90,106,"Sea Monster",1543,1,"Baehideun4#ship::OnMyMobDead";
	initnpctimer;
	end;

OnDisable:
	set $@mos1_edq,0;
	stopnpctimer;
	disablenpc "Baehideun4#ship";
	end;

OnMyMobDead:
	if (mobcount("mosk_ship","Baehideun1#ship::OnMyMobDead") < 1) {
		set $@mos1_edq,0;
		mes "[Mr. Ibanoff]";
		mes "Now that all the monsters are gone,";
		mes "we can start sailing again";
		mes "normally.";
		set mos_whale_edq,26;
		donpcevent "Baehideun4#ship::OnDisable";
		close;
	}
	end;

OnTimer300000:
	killmonster "mosk_ship","Baehideun4#ship::OnMyMobDead";
	set $@mos1_edq,0;
	donpcevent "Baehideun4#ship::OnDisable";
	end;
}

mosk_fild01,21,21,0	script	#Island Control Tower	-1,{
OnInit:
	disablenpc "#Island Control Tower";
	stopnpctimer;
	end;

OnEnable:
	enablenpc "#Island Control Tower";
	initnpctimer;
	end;

OnDisable:	
	disablenpc "#Island Control Tower";
	stopnpctimer;
	end;

OnTimer20000:
	set mos_whale_edq,15;
	disablenpc "#Island Control Tower";
	end;
}

//============================================================================
// Help Mikhail
//============================================================================

//----------------------------------------------------------------------------
// Gallina - Starting Point
//----------------------------------------------------------------------------
mosk_in,144,279,5	script	Gallina#mos	959,{
	if (mos_swan == 0) {
		mes "[Gallina]";
		mes "Oh, where the heck is he?";
		mes "I'll teach him a lesson.";
		mes "He's timid like Dad.";
		next;
		mes "[Anna]";
		mes "Mikhail, he's a coward, a crybaby.";
		mes "Mikhail, he's a coward, a crybaby.";
		next;
		mes "[Gallina]";
		mes "It's because you didn't look after your brother. So you clean the house, Anna?";
		next;
		donpcevent "Anna#mos::OnEmoteSob";
		mes "[Anna]";
		mes "Oh, my................";
		next;
		if(select("Talk to her.:Just pass by her") == 1) {
			mes "["+strcharinfo(0)+"]";
			mes "Hello, there?";
			next;
			mes "[Gallina]";
			mes "Oh, God!";
			mes "I didn't see you there. Sorry!";
			mes "You want to buy a hotcake, don't you?";
			mes "I'm sorry but we're not ready to open the store..";
			next;
			mes "["+strcharinfo(0)+"]";
			mes "No, that's ok.";
			mes "Is there something that I can help with? What's the matter?";
			next;
			mes "[Gallina]";
			mes "Oh, well...";
			mes "My son, Mikhail broke our Matrushka while I was away from home.";
			mes "He's afraid that I would punish him. So he ran away.";
			next;
			mes "[Gallina]";
			mes "How timid the boy is!";
			mes "I doubt that he'd be able to be a great general in the future";
			next;
			mes "[Gallina]";
			mes "He used to come home at this time.";
			mes "I'm worried that something bad has happened to him.";
			next;
			mes "["+strcharinfo(0)+"]";
			mes "You look anxious. I'd like to help you to find your son.";
			next;
			mes "[Gallina]";
			mes "Did you say I'm anxious?";
			mes "I'm just anxious for him to get home.";
			mes "...So I can punish him for what he did.";
			next;
			mes "[Gallina]";
			mes "But it's not good that I refuse your kindness";
			mes "Will you find Mikhail for me?";
			next;
			if(select("I was not serious.:Yes, I will!") == 1) {
				mes "[Gallina]";
				mes "You meanie! I'm not in the mood for jokes.";
				close;
			}
			mes "[Gallina]";
			mes "Oh, God, You're so kind";
			mes "Mikhail is such a timid boy. I guess he didn't leave this village.";
			mes "Please bring him to me, then~";
			set mos_swan,1;
			close;
		}
		mes "[Gallina]";
		mes "I'm worried that he's making trouble somewhere...";
		close;
	}
	else if (mos_swan == 1) {
		mes "[Gallina]";
		mes "Mikhail, my timid son must still be in this village.";
		mes "I'm sorry if he's shy and timid like his father.";
		close;
	}
	else if (mos_swan > 1 && mos_swan < 25) {
		mes "["+strcharinfo(0)+"]";
		mes "Mikhail hasn't come yet?";
		next;
		mes "[Gallina]";
		mes "No, where on earth is he?";
		close;
	}
	else if (mos_swan == 25) {
		mes "[Gallina]";
		mes "He came back with my Matrushka roughly pasted together and just left...";
		next;
		mes "[Gallina]";
		mes "I'm sorry that I treated the little boy badly.";
		mes "He did his best in his own way.";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "That's ok. You will be a sweet mom to your little boy. haha";
		next;
		mes "[Gallina]";
		mes "Yes. I'm sure I will. hoho..";
		mes "Anna, my daughter made a mistake. She laid the blame upon her brother alone. I'll punish her too.";
		next;
		mes "[Gallina]";
		mes "I appreciate your effort. You went to a dangerous place to find my son";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "It often happens to me, hehe.";
		next;
		mes "[Gallina]";
		mes "I can't afford to reward you with much but... I'll let you know how to make a delicious hotcake!";
		next;
		mes "[Gallina]";
		mes "I have to work now but Larissa will tell you about that. She's our maid..";
		mes "She's really a nice cook.";
		next;
		mes "[Gallina]";
		mes "Hotcakes of Moscovia are so delicious!";
		mes "Once you make it, I bet you that you'll love it.";
		next;
		mes "[Gallina]";
		mes "Well, now I have to get to work!";
		mes "I'll make you my hotcakes someday. Please visit me later";
		set mos_swan,100;
		getexp 1000000,0;
		close;
	}else{
		mes "[Gallina]";
		mes "I'm always trying to prepare a new dish.";
		mes "What do you think of 'the most spicy chilli hotcake in the world'?";
		mes "I think that will be great!";
		close;
	}
	
	OnEmoteSob:
		emotion e_sob;
		end;
}

//----------------------------------------------------------------------------
// Anna - Sister
//----------------------------------------------------------------------------
mosk_in,148,274,1	script	Anna#mos	958,{
	if (mos_swan == 0) {
		mes "[Gallina]";
		mes "Oh, where the heck is he?";
		mes "I'll teach him a lesson.";
		mes "He's timid like Dad.";
		next;
		mes "[Anna]";
		mes "Mikhail, he's a coward, a crybaby.";
		mes "Mikhail, he's a coward, a crybaby.";
		next;
		mes "[Gallina]";
		mes "It's because you didn't look after your brother. So you clean the house, Anna?";
		next;
		emotion e_sob;
		mes "[Anna]";
		mes "Oh, my................";
		next;
		if(select("Talk to her.:Just pass by her") == 1) {
			mes "["+strcharinfo(0)+"]";
			mes "Hello, there?";
			next;
			mes "[Gallina]";
			mes "Oh, God!";
			mes "I didn't see you there. Sorry!";
			mes "You want to buy a hotcake, don't you?";
			mes "I'm sorry but we're not ready to open the store..";
			next;
			mes "["+strcharinfo(0)+"]";
			mes "No, that's ok.";
			mes "Is there something that I can help with? What's the matter?";
			next;
			mes "[Gallina]";
			mes "Oh, well...";
			mes "My son, Mikhail broke our Matrushka while I was away from home.";
			mes "He's afraid that I would punish him. So he ran away.";
			next;
			mes "[Gallina]";
			mes "How timid the boy is!";
			mes "I doubt that he'd be able to be a great general in the future";
			next;
			mes "[Gallina]";
			mes "He used to come home at this time.";
			mes "I'm worried that something bad has happened to him.";
			next;
			mes "["+strcharinfo(0)+"]";
			mes "You look anxious. I'd like to help you to find your son.";
			next;
			mes "[Gallina]";
			mes "Did you say I'm anxious?";
			mes "I'm just anxious for him to get home.";
			mes "...So I can punish him for what he did.";
			next;
			mes "[Gallina]";
			mes "But it's not good that I refuse your kindness";
			mes "Will you find Mikhail for me?";
			next;
			if(select("I was not serious.:Yes, I will!") == 1) {
				mes "[Gallina]";
				mes "You meanie! I'm not in the mood for jokes.";
				close;
			}
			mes "[Gallina]";
			mes "Oh, God, You're so kind";
			mes "Mikhail is such a timid boy. I guess he didn't leave this village.";
			mes "Please bring him to me, then~";
			set mos_swan,1;
			close;
		}
		mes "[Gallina]";
		mes "I'm worried that he's making trouble somewhere...";
		close;
	}
	else if (mos_swan == 1) {
		mes "[Anna]";
		mes "Mikhail, he's a coward, a crybaby.";
		mes "Mikhail, he's a coward, a crybaby.";
		close;
	}
	else if (mos_swan == 2) {
		mes "[Anna]";
		mes "Why are you here?";
		next;
		while(1) {
			switch(select("About where Mikhail might be hiding:About their relationship:About the situation:Ask her about other things:End the conversation")) {
			case 1:
				mes "["+strcharinfo(0)+"]";
				mes "Where is Mikhail?";
				mes "Do you know where he is?";
				next;
				emotion 39;
				mes "[Anna]";
				mes "If I had known that, I would have already found him, you fool.";
				next;
				emotion 4,1;
				mes "["+strcharinfo(0)+"]";
				mes "Hahaha, you're right.";
				next;
				break;
			case 2:
				mes "["+strcharinfo(0)+"]";
				mes "How's your relationship with your brother?";
				next;
				mes "[Anna]";
				mes "Mikhail always stays behind me and asks me to read books!";
				mes "And he cries too much.";
				mes "It annoys me.";
				mes "And he only wants to play with me. That's why he has no friends.";
				next;
				mes "["+strcharinfo(0)+"]";
				mes "You seem very courageous.";
				mes "I can understand why your mother worries about him.";
				next;
				break;
			case 3:
				mes "["+strcharinfo(0)+"]";
				mes "What were you doing when Mikhail broke your mother's Matrushka?";
				next;
				mes "[Anna]";
				mes "I was there.";
				next;
				mes "["+strcharinfo(0)+"]";
				mes "Oh were you?";
				next;
				mes "[Anna]";
				mes "When my parents were out, they asked me to take care of Mikhail.";
				mes "I didn't want to do that but I'm his sister so I was reading a book next to him.";
				next;
				mes "[Anna]";
				mes "He began to tease me to read a book for him and later, he annoyed me saying that he's hungry!";
				next;
				mes "[Anna]";
				mes "I was so bothered with him and I pretended not to hear him and kept reading. I guess it made him mad and so he broke the Matrushka.";
				next;
				mes "[Anna]";
				mes "He made trouble and began to cry!";
				mes "He's such a timid boy...";
				mes "(giggling)";
				next;
				mes "[Anna]";
				mes "And then I told him that we should glue the pieces together before Mom came back, so Mikhail went to get ^3131FFpaste^000000 but he hasn't come back yet.";
				next;
				mes "["+strcharinfo(0)+"]";
				mes "Where can you get it?";
				mes "Why didn't you go with him?";
				next;
				mes "[Anna]";
				mes "Do you think we kids know that?";
				mes "He broke it and should get the thing by himself!";
				mes "And Mom said that he should do his work for himself to become a great general.";
				next;
				mes "["+strcharinfo(0)+"]";
				mes "Don't you have any idea of where he might be?";
				next;
				mes "[Anna]";
				mes "No.";
				next;
				mes "["+strcharinfo(0)+"]";
				mes "Is there anyone who is close to him?";
				next;
				emotion 32;
				mes "[Anna]";
				mes "(giggle) He's a fool and has no friends.";
				mes "But among our villagers, the lady of ^3131FFInn 'Sticky Herb Tree'^000000 has held Mikhail dear.";
				next;
				mes "[Anna]";
				mes "I have no idea any more.";
				next;
				mes "- Anna sticks her tongue out. -";
				next;
				mes "["+strcharinfo(0)+"]";
				mes "It's the only clue, I guess I'll go to ^3131FFInn 'Sticky Herb Tree'^000000?";
				if (mos_swan == 2) {
					set mos_swan,3;
				}
				next;
				break;
			case 4:
				mes "["+strcharinfo(0)+"]";
				mes "What am I going to ask her?";
				next;
				input .@AnnaInfo$;
				mes "["+strcharinfo(0)+"]";
				mes "Anna,";
				mes ""+.@AnnaInfo$+"?";
				mes "Do you know what this is?";
				next;
				if (.@AnnaInfo$ == "Gravity") {
					mes "[Anna]";
					mes "I know that they have a game called RAGNAROK Online 2... and they like... what am I saying now... right?";
					next;
				}
				else if (.@AnnaInfo$ == "Gallina") {
					mes "[Anna]";
					mes "Mom's hotcakes are so delicious! Oh, it's sweet flavor!";
					mes "Everyone in this village likes Mom's hotcakes. Hehe.";
					next;
				}
				else if (.@AnnaInfo$ == "Mikhail") {
					mes "[Anna]";
					mes "Mikhail is a timid fool!";
					next;
				}
				else {
					mes "[Anna]";
					mes "I have no idea about that thing.";
					next;
				}
				break;
			case 5:
				mes "[Anna]";;
				mes "Hmm ~ ~ ~ ~ ";
				next;
				mes "- Anna frowns at me and sticks out her tongue.";
				mes "She doesn't want to talk to me -";
				close;
			}
		}
	}
	else if (mos_swan == 3) {
		mes "["+strcharinfo(0)+"]";
		mes "Ok, I got a clue from Anna and one thing that I have to do is go to ^3131FFInn 'Sticky Herb Tree'^000000.";
		close;
	}
	else if (mos_swan > 3 && mos_swan < 12) {
		mes "[Anna]";
		mes "Mikhail is foolish, timid and a coward!";
		close;
	}
	else if (mos_swan == 25) {
		mes "[Anna]";
		mes "Mik..ha..il";
		mes "He tattled on me to mom...";
		next;
		mes "[Gallina]";
		mes "Anna!";
		next;
		mes "[Anna]";
		mes "....I'm sorry.";
		close;
	}
	else if (mos_swan == 100) {
		mes "[Anna]";
		mes "Mik..ha..il";
		mes "He tattled on me to mom...";
		next;
		mes "[Gallina]";
		mes "Anna!";
		next;
		emotion e_sob;
		mes "[Anna]";
		mes "....I'm sorry.";
		close;
	}
	else {
		mes "[Anna]";
		mes "....I'm bored.";
		close;
	}
}

//----------------------------------------------------------------------------
// Bed
//----------------------------------------------------------------------------
mosk_in,136,279,3	script	Bed#mos1	111,{
	if (mos_swan == 11) {
		mes "- There are sheets and a pillow which seem so neat and soft that I'll probably fall asleep as soon as I lie down on them. -";
		next;
		if(select("Check other things:Look it over ") == 1) {
			mes "- You'll examine the bed later -";
			close;
		}
		mes "- You come near the bed to look it over. -";
		next;
		mes " .............. ";
		mes " .............. ";
		mes " .............. ";
		mes " .............. ";
		next;
		mes " .............. ";
		mes " .............. ";
		mes " .............. ";
		mes " .............. ";
		mes " .............. ";
		next;
		mes "- You didn't find anything -";
		close;
	}else{
		mes "- There are sheets and a pillow which seem so neat and soft that I'll probably fall asleep as soon as I lie down on them -";
		close;
	}
}

mosk_in,161,279,3	duplicate(Bed#mos1)	Bed#mos2	111

//----------------------------------------------------------------------------
// Fire pot + Mikhail
//----------------------------------------------------------------------------
mosk_in,205,268,3	script	Fire pot#mos	111,{
	if (mos_swan == 0) {
		mes "- It's a fire pot to heat the room or bake something -";
		close;
	}
	else if (mos_swan == 1) {
		mes "- It's a fire pot that is used when Gallina bakes hotcakes.";
		mes "It seems that this has not been used for a long time.";
		mes "I think I should ask his family where he might have fun off to -";
		set mos_swan,2;
		close;
	}
	else if (mos_swan > 1 && mos_swan < 11) {
		mes "- It's a fire pot that is used when Gallina bakes hotcakes.";
		mes "It seems that it was used a long time ago. -";
		close;
	}
	else if (mos_swan == 11) {
		mes "- It's a fire pot that is used when Gallina bakes hotcakes.";
		mes "It seems that it was used a long time ago. -";
		next;
		if(select("Check other things:Look it over") == 1) {
			mes "- You decide to check out other things -";
			close;
		}
		mes "- You come near the pot to look it over. -";
		next;
		mes " .............. ";
		mes " .............. ";
		mes " .............. ";
		mes " .............. ";
		next;
		mes " .............. ";
		mes " .............. ";
		mes " .............. ";
		mes " .............. ";
		mes " .............. ";
		next;
		mes "- As you look it over very carefully, you find some pieces of bread on the floor around the fire pot! -";
		next;
		switch(select("Mikhail is in the fire pot.:Mikhail is around the fire pot.:There's nothing between pieces of bread and Mikhail.")) {
		case 1:
			mes "["+strcharinfo(0)+"]";
			mes "I finally found him.";
			next;
			mes "- You put your arm into the hole of the fire pot. -";
			next;
			mes "- Something makes a rustling sound. -";
			next;
			mes "- You call Mikhail with a low voice. -";
			next;
			mes "["+strcharinfo(0)+"]";
			mes "Mik-ha-il-.";
			next;
			mes "- .......................... -";
			next;
			mes "["+strcharinfo(0)+"]";
			mes "Mikhail.";
			mes "I know you're there, please come out.";
			next;
			mes "- .......................... -";
			next;
			mes "["+strcharinfo(0)+"]";
			mes "Your mom and sister are worried about you.";
			next;
			mes "[???]";
			mes ".......hey.";
			next;
			mes "["+strcharinfo(0)+"]";
			mes "?????";
			next;
			mes "[Mikhail]";
			mes ".......No, I can't............";
			mes "I'll.... be punished........";
			next;
			mes "["+strcharinfo(0)+"]";
			mes "No, you won't, Mikhail.";
			mes "Your mom is worried about you so much.";
			mes "Your sister, too.";
			next;
			mes "["+strcharinfo(0)+"]";
			mes "You broke your mom's Matrushka by mistake, didn't you?";
			mes "I'll tell her about your mistake. Please come out.";
			next;
			mes "[Mikhail]";
			mes "Oh.. ma.. matrushka..";
			mes "I didn't break..it.. it..wasn't.. just me!";
			next;
			mes "["+strcharinfo(0)+"]";
			mes "And?";
			next;
			mes "[Mikhail]";
			mes "Anna pushed me and bumped me......";
			mes "But she told Mom that it was just me who broke it....";
			next;
			mes "["+strcharinfo(0)+"]";
			mes "Oh, dear! You and Anna did that but she put all the blame on you?";
			next;
			mes "[Mikhail]";
			mes "Yes.....";
			next;
			mes "["+strcharinfo(0)+"]";
			mes "You should come out and tell your mom the truth! Let's go Mikhail.";
			next;
			mes "[Mikhail]";
			mes "No! No, I can't!!";
			next;
			mes "- A small-white hand comes out of the fire pot and grabs your ankle -";
			next;
			mes "[Mikhail]";
			mes "No...I'm afraid that Mom will punish me...";
			mes "Because Grandma's Matrushka is broken......";
			next;
			mes "["+strcharinfo(0)+"]";
			mes "Oh, my. Please don't cry little boy.";
			mes "There's no way. I'll get a paste to bond all the pieces together. And then you can bring it back to your mom and apologize to her.";
			next;
			mes "[Mikhail]";
			mes "Can you... get... a paste?";
			next;
			mes "["+strcharinfo(0)+"]";
			mes "You don't believe me?";
			mes "Ok, stay here. I'll be right back with the paste.";
			next;
			mes "- I need to know what's required for the paste.";
			mes "I'll ask that guy ^3131FFMr. Victor^000000 about them. -";
			set mos_swan,12;
			close;
			break;
		case 2:
			mes "- I guess he's near the fire pot. Where can I find him? -";
			close;
			break;
		case 3:
			mes "- I guess pieces of bread have nothing to do with Mikhail. -";
			close;
		}
	}
	else if (mos_swan == 12) {
		mes "- Ok, what I have to do first is ask Mr.Victor what I need for the paste. -";
		close;
	}
	else if (mos_swan == 24) {
		mes "["+strcharinfo(0)+"]";
		mes "Hey, Mikhail. I've got the paste!.";
		next;
		mes "[Mikhail]";
		mes "......Really? are you serious?";
		next;
		donpcevent "Mikhail#mos::OnEnable";
		mes "- You hand over the paste from Victor to Mikhail. -";
		next;
		mes "[Mikhail]";
		mes "Wow! Great!";
		next;
		mes "- He begins working on the broken Matrushka as if he was piecing together a puzzle. -";
		next;
		mes "[Mikhail]";
		mes "I've done it!!!!!!!";
		mes "Thank you so much!!!";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "You're welcome, haha.";
		mes "Anyway, can you promise me one thing?";
		next;
		mes "[Mikhail]";
		mes "What?";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "Bring back the Matrushka to your mother, and promise me that you will be a brave general in the future.";
		next;
		mes "[Mikhail]";
		mes ".............";
		next;
		mes "[Mikhail]";
		mes "OK, I will!";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "Hoohoo, you're good boy.";
		next;
		mes "[Mikhail]";
		mes "Now I'm gonna give this back to Mom.";
		donpcevent "Mikhail#mos::OnInit";
		set mos_swan,25;
		delitem 7764,1;
		close;
	}
	else{
		mes "- It's a fire pot to heat the room or bake something -";
		close;
	}
}

mosk_in,202,269,5	script	Mikhail#mos	962,{
	end;
OnInit:
	hideonnpc "Mikhail#mos";
	end;
	
OnEnable:
	hideoffnpc "Mikhail#mos";
	end;
}

//----------------------------------------------------------------------------
// Sticky Herb Tree Inn NPCs
//----------------------------------------------------------------------------
mosk_in,135,191,5	script	Landlord#mos	961,{
	mes "[Landlord]";
	mes "Oh, welcome to the Inn 'Sticky Herb Tree'.";
	mes "It is the most comfortable and calmest place in all of Moscovia.";
	next;
	if (mos_swan == 3) {
		switch(select("Save:Stay the night - 5000z:Ask her about Mikhail.")) {
		case 1:
			mes "[Landlord]";
			mes "Your respawn point has been saved.";
			mes "Hope we can see you again next time hoho.";
			savepoint "mosk_in",142,189;
			close;
			break;
		case 2:
			if (Zeny > 4999) {
				mes "[Landlord]";
				mes "Ok, I'll bring you the best room.";
				mes "Please have a rest, young adventurer.";
				close2;
				set Zeny,Zeny-5000;
				percentheal 100,100;
				warp "mosk_in",215,181;
				end;
			}else{
				mes "[Landlord]";
				mes "The service charge is 5000z.";
				mes "Please make sure you have enough money for the service.";
				close;
			}
			break;
		case 3:
			mes "[Landlord]";
			emotion 3;
			if (sex) {
				mes "Oh~! You look great! Look at the solid muscle!";
				mes "But you look tired. Is it because of a long journey?";
				next;
				mes "[Landlord]";
				mes "We've got a room available just for you. It's the best in town. How about staying the night?";
				mes "I'll charge you at reasonable price for you, handsome guy.";
			}else{
				mes "Oh, you look great! Look at your fair skin! ";
				mes "But you look tired. Is it because of a long journey?";
				next;
				mes "[Landlord]";
				mes "We've got a room available just for you. It's like a princess' room.";
				mes "How about staying the night? I'll mark down the price for you, beautiful lady.";
			}
			next;
			mes "["+strcharinfo(0)+"]";
			mes "Oh, I'm sorry but I didn't come to stay here.";
			mes "I'm looking for a kid and I've got something to ask you...";
			next;
			emotion e_omg;
			mes "[Landlord]";
			mes "What!?!?";
			next;
			mes "[Landlord]";
			mes "Hey~ You've heard about 'give and take'?";
			mes "Haven't you?";
			mes "If you're my customer, I could offer you what you want but you're not!";
			next;
			mes "[Landlord]";
			mes "If you promise me to stay overnight, I'll tell you about what you want to know. Deal?";
			next;
			if(select("Refuse.:Stay overnight and get the info. - 5000z") == 1) {
				emotion 7;
				mes "[Landlord]";
				mes "Well, get the info by yourself then.";
				close;
			}
			if (Zeny < 5000) {
				mes "[Landlord]";
				mes "No way. You don't have enough money.";
				mes "Go away! I can't offer you a room.";
				close;
			}else{
				mes "[Landlord]";
				mes "Oh, God! You're as great as you look~";
				mes "Ok, I'll bring you to the room in a bit!!";
				next;
				mes "[Landlord]";
				mes "Come on, please follow me with your luggage.";
				mes "Oh, let me carry them. Hohoho, you must be exhausted.";
				mes "I wish you a good night's rest. Hohoho.";
				set mos_swan,4;
				close2;
				set Zeny,Zeny-5000;
				percentheal 100,100;
				warp "mosk_in",215,181;
				end;
			}
		}
	}
	else if (mos_swan == 4 || mos_swan == 5) {
		mes "[Landlord]";
		mes "You're up already?";
		mes "Well since you're young you've probably already recovered all of your strength.";
		mes "Hohoho.";
		next;
		while(1) {
			switch(select("Ask her about the inn:Ask her about Mikhail.:End the conversation")) {
			case 1:
				mes "[Landlord]";
				mes "The name of our inn came from a big apple tree which is outside of the village.";
				mes "I hope our inn will be the most famous place in Moscovia like the apple tree that distinguishes itself in the thick wood.";
				next;
				break;
			case 2:
				mes "[Landlord]";
				mes "Mikhail?";
				mes "Ah! You're talking about a cute boy, Mr. Ibanoff's son?";
				mes "Yes I saw him. He was here a few hours ago.";
				next;
				mes "[Landlord]";
				mes "He looked pale and asked me for a high-strength adhesive. He might've broken something important.";
				next;
				mes "[Landlord]";
				mes "I felt sorry for him because he was so tense. He's such a sweet boy. I'd like to make him my son.";
				mes "Hohoho";
				next;
				mes "["+strcharinfo(0)+"]";
				mes "So what happened?";
				mes "Did Mikhail get it?";
				next;
				mes "[Landlord]";
				mes "Hoho, I don't really know. Maybe my husband does...";
				mes "He's not much to look at, but he's good at repairing and making stuff! hoho";
				next;
				mes "[Landlord]";
				mes "But it's been a long time since he was out of Moscovia so I can't ask him how to make adhesives now...";
				next;
				mes "["+strcharinfo(0)+"]";
				mes "......And then?";
				next;
				mes "[Landlord]";
				mes "I told him to go to the pub over there.";
				mes "I also told him not to drink what those guys offer to him!";
				mes "Cause he's such a cute boy!";
				next;
				mes "["+strcharinfo(0)+"]";
				mes "So, did he go there?";
				next;
				mes "[Landlord]";
				mes "Yes he did-.";
				mes "As he's a good boy, he would go there.";
				mes "He's really gentle.";
				next;
				mes "["+strcharinfo(0)+"]";
				mes "OK. Thank you for your answers!";
				next;
				mes "[Landlord]";
				mes "I was unkind to make you stay here but wasn't it easier for you? hoho.";
				mes "When it gets dark, promise me to come here again. Hoho";
				set mos_swan,7;
				close;
				break;
			case 3:
				mes "[Landlord]";
				mes "When you need to take a rest, where will you go?";
				next;
				mes "[Landlord]";
				mes "You should come back here to Inn 'Sticky Herb Tree'. Ok?";
				mes "I'll offer you better service next time.";
				close;
			}
		}
	}
	else{
		if(select("Save:Stay the night - 5000z") == 1) {
			mes "[Landlord]";
			mes "Your respawn point has been saved.";
			mes "Hope we can see you again next time hoho.";
			savepoint "mosk_in",142,189;
			close;
		}
		if (Zeny> 4999) {
			mes "[Landlord]";
			mes "Please be comfortable.";
			close2;
			set Zeny,Zeny-5000;
			percentheal 100,100;
			warp "mosk_in",215,181;
			end;
		}else{
			mes "[Landlord]";
			mes "The service charge is 5000z.";
			mes "Please make sure you have enough money for the service.";
			close;
		}
	}
}

mosk_in,141,212,3	script	Pub Owner#mos	964,{
	if (checkweight(1201,1) == 0 ) {
		mes "- Please stop here !! -";
		mes "- You're carrying too many items -";
		mes "- Please try again -";
		mes "- after using the kafra service -";
		close;
	}
	if ((MaxWeight-Weight) < 2000) {
		mes "- Please stop here!! -";
		mes "- You're carrying too many items -";
		mes "- Please try again -";
		mes "- after using the kafra service -";
		close;
	}
	if (mos_swan == 7) {
		mes "[Pub Owner]";
		mes "We've got another wanderer here";
		mes "Welcome to our pub.";
		mes "I'm Alexandre of ^3131FF'Pub Stream'^000000. You can call me 'Sasha'.";
		next;
		if(select("Ask him about Mikhail.:Order a drink.") == 1) {
			mes "["+strcharinfo(0)+"]";
			mes "Sasha, has a little boy called 'Mikhail' came here?";
			next;
			mes "[Pub Owner]";
			mes "Are you talking about the cute little boy? Yes he has came here.";
			mes "He looked pale and needed a high-strength adhesive .";
			next;
			mes "["+strcharinfo(0)+"]";
			mes "So what did you say ?";
			next;
			mes "[Pub Owner]";
			mes "I don't know well about that thing.";
			mes "However, I know a person who may know about that so I introduced him to Mikhail.";
			next;
			mes "["+strcharinfo(0)+"]";
			mes "Who's that person?";
			next;
			mes "[Pub Owner]";
			mes "It's Victor over there.";
			mes "He's very careful about details so we call him ^3131FF'hedgehog Victor'^000000.";
			mes "No one knows about it well except him.";
			next;
			mes "["+strcharinfo(0)+"]";
			mes "Sasha, thanks a lot!";
			next;
			mes "[Pub Owner]";
			mes "You're welcome.";
			set mos_swan,8;
			close;
		}
		mes "[Pub Owner]";
		mes "Although you may be an experienced adventurer, you look so young.";
		mes "I recommend you these drinks. Which one will you take?";
		next;
		switch(select("Milk - 1000z:Sticky_Herb juice - 1000z:They are all expensive!")) {
		case 1:
			if (Zeny > 999) {
				set Zeny,Zeny-1000;
				set mos_swan,9;
				getitem 519,1;
				mes "[Pub Owner]";
				mes "Here you are. This is what you ordered.";
				mes "How do you like Moscovia?";
				next;
				mes "["+strcharinfo(0)+"]";
				mes "Yes, it's beautiful and gorgeous.";
				mes "Sasha, most of all, can you answer one question?";
				next;
				mes "[Pub Owner]";
				mes "About what?";
				next;
				mes "["+strcharinfo(0)+"]";
				mes "Has Mikhail come here?";
				next;
				mes "[Pub Owner]";
				mes "Yes he has.";
				mes "He looked pale and needed a high-strength adhesive.";
				next;
				mes "["+strcharinfo(0)+"]";
				mes "So what happened?";
				next;
				mes "[Pub Owner]";
				mes "I don't know much about adhesives.";
				mes "But, I know a person who may know about them so I introduced Mikhail to him.";
				next;
				mes "["+strcharinfo(0)+"]";
				mes "Who's this person?";
				next;
				mes "[Pub Owner]";
				mes "It's Victor over there.";
				mes "He's very careful about details so we call him ^3131FF'Hedgehog Victor'^000000.";
				mes "No one knows adhesives as well as he does.";
				next;
				mes "["+strcharinfo(0)+"]";
				mes "Sasha, thanks a lot!";
				next;
				mes "[Pub Owner]";
				mes "You're welcome.";
				close;
			}else{
				mes "[Pub Owner]";
				mes "You'll need a lot of money while you're traveling.";
				mes "If you don't have enough money, I'll offer you a glass of water.";
				close;
			}
			break;
		case 2:
			if (Zeny > 999) {
				set Zeny,Zeny-1000;
				set mos_swan,9;
				getitem 531,1;
				mes "[Pub Owner]";
				mes "Here you are. This is what you ordered.";
				mes "How do you like Moscovia?";
				next;
				mes "["+strcharinfo(0)+"]";
				mes "Yes, it's beautiful and gorgeous.";
				mes "Sasha, most of all, can you answer one question?";
				next;
				mes "[Pub Owner]";
				mes "About what?";
				next;
				mes "["+strcharinfo(0)+"]";
				mes "Has Mikhail come here?";
				next;
				mes "[Pub Owner]";
				mes "Yes he has.";
				mes "He looked pale and needed a high-strength adhesive.";
				next;
				mes "["+strcharinfo(0)+"]";
				mes "So what happened?";
				next;
				mes "[Pub Owner]";
				mes "I don't know much about adhesives.";
				mes "But, I know a person who may know about them so I introduced Mikhail to him.";
				next;
				mes "["+strcharinfo(0)+"]";
				mes "Who's this person?";
				next;
				mes "[Pub Owner]";
				mes "It's Victor over there.";
				mes "He's very careful about details so we call him ^3131FF'Hedgehog Victor'^000000.";
				mes "No one knows adhesives as well as he does.";
				next;
				mes "["+strcharinfo(0)+"]";
				mes "Sasha, thanks a lot!";
				next;
				mes "[Pub Owner]";
				mes "You're welcome.";
				close;
			}else{
				mes "[Pub Owner]";
				mes "You'll need a lot of money while you're traveling.";
				mes "If you don't have enough money, I'll offer you a glass of water.";
				close;
			}
			break;
		case 3:
			mes "[Pub Owner]";
			mes "Hahaha, too much for you eh cheapskate.";
			close;
		}
	}
	else if (mos_swan == 8) {
		mes "[Pub Owner]";
		mes "While I work in this pub, I can hear stories from all around the world.";
		mes "They are all heroes of their life.";
		next;
		mes "[Pub Owner]";
		mes "Each story interests me so a day passes quick.";
		mes "That's why I love my job.";
		next;
		mes "[Pub Owner]";
		mes "Well, do you have some stories for me? or you've got something to ask me.";
		mes "I recommend you those drinks.";
		next;
		switch(select("Milk - 1000z:Apple juice - 1000z:They are all expensive!")) {
		case 1:
			if (Zeny > 999) {
				set Zeny,Zeny-1000;
				set mos_swan,9;
				getitem 519,1;
				mes "[Pub Owner]";
				mes "Here you are. This is what you ordered.";
				mes "Enjoy yourself.";
				close;
			}else{
				mes "[Pub Owner]";
				mes "You'll need a lot of money while you're traveling.";
				mes "If you don't have enough money, I'll offer you a glass of water.";
				close;
			}
			break;
		case 2:
			if (Zeny > 999) {
				set Zeny,Zeny-1000;
				set mos_swan,9;
				getitem 531,1;
				mes "[Pub Owner]";
				mes "Here you are. This is what you ordered.";
				mes "Enjoy yourself.";
				close;
			}else{
				mes "[Pub Owner]";
				mes "You'll need a lot of money while you're traveling.";
				mes "If you don't have enough money, I'll offer you a glass of water.";
				close;
			}
			break;
		case 3:
			mes "[Pub Owner]";
			mes "Hahaha, Here is the sightseeing place.";
			close;
		}
	}
	else if (mos_swan == 9) {
		mes "[Pub Owner]";
		mes "Have you spoken to Victor?";
		close;
	}
	else {
		mes "[Pub Owner]";
		mes "Welcome to our pub.";
		mes "I'm Alexandre of ^3131FF'Stream Pub'^000000. But, everyone calls me 'Sasha'.";
		mes "It's a fine day today. I feel like going out.";
		close;
	}
}

mosk_in,147,202,3	script	Victor#mos	968,{
	if (checkweight(1201,1) == 0 ) {
		mes "- Please stop here !! -";
		mes "- You're carrying too many items -";
		mes "- Please try again -";
		mes "- after using the kafra service -";
		close;
	}
	if ((MaxWeight-Weight) < 2000) {
		mes "- Please stop here!! -";
		mes "- You're carrying too many items -";
		mes "- Please try again -";
		mes "- after using the kafra service -";
		close;
	}
	if (mos_swan == 8) {
		mes "["+strcharinfo(0)+"]";
		mes "Excuse me.";
		mes "Could you spare a few minutes for me?";
		next;
		mes "[Victor]";
		mes "Who are you?";
		mes "What gives you the right to say such a thing?";
		mes "I'm busy appreciating wine in this glass.";
		close;
	}
	else if (mos_swan == 9) {
		mes "["+strcharinfo(0)+"]";
		mes "Excuse me.";
		mes "Could you spare a few minutes for me?";
		next;
		mes "[Victor]";
		mes "Who are you?";
		mes "What gives you the right to say such a thing?";
		mes "I'm busy appreciating wine in this glass.";
		next;
		mes "[Victor]";
		mes "Pardon? You're drinking too.";
		mes "Ok, it's lonely to drink alone. I but I've gotten used to it.";
		next;
		mes "[Victor]";
		mes "Well, tell me what you have on your mind. I'm listening.";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "Have you seen a little boy who was looking for paste?";
		next;
		mes "[Victor]";
		mes "..................";
		next;
		mes "[Victor]";
		mes "You're talking about Mikhail?";
		mes "He's such a sentimental boy. I was troubled by him";
		next;
		mes "[Victor]";
		mes "By the way, how did you know that he came to see me? Did he say anything to you?";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "Mikhail hasn't come back yet since he left to get the paste. He broke his mother's Matrushka..";
		next;
		mes "[Victor]";
		mes "............What?";
		mes "Hmm.. Oh dear.....";
		mes "I doubt he went there.";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "There?";
		next;
		mes "[Victor]";
		mes "Yes. Baba Yaga 'The Terrible' and other scary animals live there.";
		next;
		mes "[Victor]";
		mes "The little boy came here crying a few hours ago.";
		mes "He's got something that needs to be stuck together, so he needed a high-strength adhesive.";
		next;
		mes "[Victor]";
		mes "But I don't carry such a thing. So I told him to bring me some stuff for it.";
		next;
		mes "[Victor]";
		mes "To get the stuff for a high-strength adhesive, you need to go to an isolated swamp. You can reach it by boat and it takes a long time.";
		next;
		mes "[Victor]";
		mes "But the way to the swamp is very dangerous. There are horrible monsters around it, all hunting with eager eyes.";
		next;
		mes "[Victor]";
		mes "Especially, the old lady Baba Yaga who attacks anyone she sees. She especially likes youngsters like you. haha!";
		mes "heeheehee!!";
		next;
		mes "[Victor]";
		mes "...You turned pale! hahaha!!";
		next;
		mes "[Victor]";
		mes "But...";
		mes "I'm exaggerating a little, it's true that there are scary things.";
		mes "But, I don't believe that a little and timid boy like Mikhail would go there. It's impossible!";
		next;
		mes "[Victor]";
		mes "I said to him, 'you can never, ever go there' and told him to go back home.";
		mes "He asked for the impossible so I calmed him down with some bread.";
		next;
		mes "[Victor]";
		mes "He was already white with fear that he broke his mother's matrushka. Do you think that he would go there?";
		next;
		mes "[Victor]";
		mes "He might've just hidden himself somewhere, haha!";
		set mos_swan,10;
		close;
	}
	else if (mos_swan == 10 || mos_swan == 11) {
		mes "[Victor]";
		mes "There's a large island near Moscovia. It takes so much time to reach there by a boat. So nobody wants to go there. ";
		next;
		mes "[Victor]";
		mes "If you go deep into it's forest, you can find a swamp where sticky weeds are growing.";
		next;
		mes "[Victor]";
		mes "The way to go there is full of danger. Do think that a timid boy like Mikhail can go there?";
		close;
	}
	else if (mos_swan == 12) {
		mes "[Victor]";
		mes "You came back. Hmm, are you about to make me responsible that he's gone?";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "No, I found him. You don't have to worry.";
		next;
		mes "[Victor]";
		mes "So, what do you want with me?";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "I promised him I'd make the high-strength adhesive. What do I have to do for that?";
		next;
		mes "[Victor]";
		mes "Why are you so eager to make it? How important is the stuff?";
		mes "Well, I don't care...";
		next;
		mes "[Victor]";
		mes "There's a large island near Moscovia. It takes so much time to reach there by a boat. So nobody wants to go there.";
		next;
		mes "[Victor]";
		mes "If you go deep into it's forest, you can find a swamp where sticky weeds are growing.";
		next;
		mes "[Victor]";
		mes "You should bring ^3131FF'10 sticky herbs'^000000 and ^3131FF 1 medicine bowl^000000 to me.";
		set mos_swan,13;
		close;
	}
	else if (mos_swan > 12 && mos_swan < 23) {
		mes "[Victor]";
		mes "If you want to make adhesives";
		mes "get 10 sticky herbs and";
		mes "1 medicine bowl for me.";
		mes "Those sticky herbs are growing in the swamp. It may be dangerous but that shouldn't be a problem for you?";
		close;
	}
	else if (mos_swan == 23) {
		mes "[Victor]";
		mes "What do you want with me this time??";
		mes "Oh, you said you wanted an adhesive...";
		mes "You're bothering me so much!";
		next;
		if (countitem(7763) > 9 && countitem(7134) > 0) {
			mes "[Victor]";
			mes "Give me the stuff! I'll make it quickly. You're annoying me!";
			next;
			mes "- He's making adhesive with a crunching sound -";
			mes "- He's making adhesive with a crunching sound -";
			mes "- He's making adhesive with a crunching sound -";
			next;
			mes "- And he may be rubbing something -";
			mes "- And he may be rubbing something -";
			mes "- And he may be rubbing something -";
			mes "- And he may be rubbing something -";
			next;
			mes "[Victor]";
			mes "Ok, done!";
			mes "I don't want you to bother me any longer!";
			mes "Please leave!";
			delitem 7763,10;
			delitem 7134,1;
			set mos_swan,24;
			getitem 7764,1;
			close;
		}else{
			mes "[Victor]";
			mes "He's annoying me so much. Give me the materials!";
			mes "Oh dear? What are those things? I said 10 sticky herbs and 1 medicine bowl!!";
			next;
			mes "[Victor]";
			mes "Even though I'm always in the pub, I have my own business... !";
			next;
			mes "[Victor]";
			mes ".............!!!!";
			next;
			mes "[Victor]";
			mes "..................";
			mes "What are you staring at? Bring them to me right now!";
			close;
		}
	}
	else{
		mes "[Victor]";
		mes "What did you say? I just want to drink peacefully!";
		close;
	}
}

mosk_in,215,181,0	script	#swan_inn	-1,1,1,{
	end;
	
OnTouch:
	if (mos_swan == 4) {
		mes "..................";
		mes "..................";
		next;
		mes "..................";
		mes "..................";
		mes "..................";
		next;
		mes "..................";
		mes "..................";
		mes "..................";
		mes "..................";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "Oh, I got a good night's sleep. How long did I sleep?";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "Althought I was forced to stay here, it's true that it's got great facilities.";
		mes "I feel refreshed.";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "Ok, I guess I will go to the landlord to get some info.";
		set mos_swan,5;
		close;
	}else{
		end;
	}
}

//----------------------------------------------------------------------------
// Swamp
//----------------------------------------------------------------------------
mosk_dun03,153,90,3	script	Bubbling Swamp#mos1	844,{
	if (checkweight(1201,1) == 0) {
		mes "- Your bag is very heavy today -";
		close;
	}
	if ((MaxWeight-Weight) < 2000) {
		mes "- Your bag is very heavy today -";
		close;
	}
	if (mos_swan == 10) {
		mes "- You feel sticky just looking at this swamp. -";
		next;
		mes "- Gas bubbles are rising. The atomosphere here is pretty scary -";
		next;
		mes "["+PcName+"]";
		mes "I don't see any traces of Mikhail. I think I should go back and check his house one more time.";
		set mos_swan,11;
		close;
	}
	else if (mos_swan == 11 && mos_swan == 12) {
		mes "- You can see a small muddy swamp -";
		next;
		mes "- Gas bubbles are rising. The atmosphere here is pretty scary -";
		close;
	}
	else if (mos_swan > 12 && mos_swan < 23) {
		mes "- You feel sticky just looking at the swamp. -";
		next;
		mes "- Gas bubbles are rising. The atmosphere here is pretty scary -";
		next;
		mes "- You stretch out to find sticky herbs. -";
		next;
		set .@leaf_mos,rand(1,10);
		if (.@leaf_mos < 6) {
			mes "- You have pricked your finger on a Sticky Herb. -";
			if (mos_swan == 22) {
				getitem 7763,1;
				set mos_swan,23;
				close;
			}else{
				getitem 7763,1;
				close;
			}
		}else{
			mes "- You have pricked your finger on a Green Herb. -";
			getitem 511,1;
			close;
		}
	}
	else {
		mes "- You can see a small swamp which seems very muddy. -";
		next;
		mes "- Gas bubbles are rising. The atmosphere here is pretty scary -";
		close;
	}
}

//----------------------------------------------------------------------------
// Larissa - Hotcake Quests
//----------------------------------------------------------------------------
mosk_in,211,259,5	script	Larissa#mos_01	960,{
	if (checkweight(1201,1) == 0) {
		mes "- Please stop here !! -";
		mes "- You're carrying too many items -";
		mes "- Please try again -";
		mes "- after using the kafra service -";
		close;
	}
	if ((MaxWeight-Weight) < 2000) {
		mes "- Please stop here !! -";
		mes "- You're carrying too many items -";
		mes "- Please try again -";
		mes "- after using the kafra service -";
		close;
	}
	if (mos_swan == 100) {
		mes "[Larissa]";
		mes "Oh, you're the adventurer that Madame told me about .";
		mes "Did you find her son?";
		mes "I'm so glad. He's a good kid.";
		next;
		mes "[Larissa]";
		mes "Here you are. This special pancake is for you.";
		mes "It will be very delicious.";
		set mos_swan,101;
		getitem 592,5;
		getitem 593,5;
		next;
		mes "[Larissa]";
		mes "Whenever you'd like to eat these pancake, you come on by.";
		mes "I'll bake you the most delicious one.";
		close;
	}
	else if (mos_swan > 100) {
		mes "[Larissa]";
		mes "Did the pancake taste good?";
		mes "Would you like another pancake?";
		next;
		if(select("Yes:No") == 1) {
			if (countitem(7031) > 0 && countitem(519) > 1 && countitem(504) > 1 && countitem(548) > 0 && countitem(1019) > 0 && countitem(518) > 0) {
				mes "[Larissa]";
				mes "Let me check if you have all the ingredients.";
				mes "A frying pan, milk... potion that softens the dough, cheese..honey..and firewood.";
				mes "Perfect!";
				next;
				mes "[Larissa]";
				mes "Let us begin by kneading the dough.";
				mes "I'll add sugar and baking powder.";
				mes "It can be mixed well with this sieve.";
				next;
				mes "[Larissa]";
				mes "What should I do with the wheat flour?";
				next;
				switch(select("Turn it down.:Pass it through a sieve.:Press it with your fist.")) {
				case 1:
					mes "[Larissa]";
					mes "Oh, my! What are you doing now?";
					mes "I'm going to do that from the beginning.";
					mes "Look, pass it through a sieve.";
					next;
					break;
				case 2:
					mes "[Larissa]";
					mes "There you go. Just do it slowly while tapping the sides, sifting the sugar and baking powder through the sieve together.";
					next;
					break;
				case 3:
					mes "[Larissa]";
					mes "If we don't have the sieve, we can use our fist but we've got one. So we might as well use it right?";
					next;
				}
				mes "[Larissa]";
				mes "That way, it will mix well.";
				mes "And then I'm adding an egg, some milk and a white potion.";
				mes "What next?";
				next;
				if(select("Stir it up with great speed.:Do the same as she said.") == 1) {
					mes "[Larissa]";
					mes "No, you don't have to do that way. It won't rise properly if you stir it too fast.";
					next;
				}else{
					mes "[Larissa]";
					mes "You're very good at this!";
					next;
				}
				mes "[Larissa]";
				mes "It'll rise while baking if you stir it properly";
				mes "Ok, let me bake now. Let's pour it on our pan and spread it around.";
				next;
				mes "[Larissa]";
				mes "Cook in low temperature. It'll rise and have bubbles on it.";
				mes "When you see the bubbles, you can turn it over.";
				next;
				if(select("Cook in high temperature.:Can I turn it over now?") == 1) {
					mes "[Larissa]";
					mes "No, you don't do that.";
					mes "You'll burn it up.";
					mes "Wait for a while.";
					next;
				}else{
					mes "[Larissa]";
					mes "Hmm let's see. It's good.";
					mes "You were good at it.";
					next;
				}
				mes "[Larissa]";
				mes "Ok, turn it over. Oh it looks delicious";
				mes "What should I top it with? First I put some cheese but the rest is up to you...";
				next;
				switch(select("Caviar:Mushrooms:Honey:Strawberry jam:Sour cream")) {
				case 1:
					mes "[Larissa]";
					mes "Ok. you want caviar. Forturnately, I still have a little left.";
					mes "Hoohoo, this'll be luxurious..";
					mes "Here we go. It's all done!";
					delitem 7031,1;
					delitem 519,2;
					delitem 504,2;
					delitem 548,1;
					delitem 1019,1;
					delitem 518,1;
					getitem 591,1;
					close;
					break;
				case 2:
					mes "[Larissa]";
					mes "Ok. you want mushrooms.. It has an earthly flavor.";
					mes "Here we go. It's all done!";
					delitem 7031,1;
					delitem 519,2;
					delitem 504,2;
					delitem 548,1;
					delitem 1019,1;
					delitem 518,1;
					getitem 595,1;
					close;
					break;
				case 3:
					mes "[Larissa]";
					mes "Ok, honey syrup goes perfectly with pancakes.";
					mes "Here we go. It's all done!";
					delitem 7031,1;
					delitem 519,2;
					delitem 504,2;
					delitem 548,1;
					delitem 1019,1;
					delitem 518,1;
					getitem 593,1;
					close;
					break;
				case 4:
					mes "[Larissa]";
					mes "Who could get sick of pancakes with strawberry jam?";
					mes "Hoohoo it tastes sweet too.";
					mes "Here we go. It's all done!";
					delitem 7031,1;
					delitem 519,2;
					delitem 504,2;
					delitem 548,1;
					delitem 1019,1;
					delitem 518,1;
					getitem 592,1;
					close;
					break;
				case 5:
					mes "[Larissa]";
					mes "You want sour cream.. you will feel as if you fly in the sky.";
					mes "It can help reduce stress.";
					mes "Here we go. It's all done!";
					delitem 7031,1;
					delitem 519,2;
					delitem 504,2;
					delitem 548,1;
					delitem 1019,1;
					delitem 518,1;
					getitem 594,1;
					close;
				}
			}else{
				mes "[Larissa]";
				mes "That's good. I have ingredients and several toppings but...";
				mes "It's still not enough. You need to get all of the things that we don't have now.";
				next;
				mes "[Larissa]";
				mes "I need ^4d4dff1 old frying pan , 2 bottles of milk , 2 white potion, 1 cheese, 1 Trunk, 1 Honey ^000000.";
				mes "We can bake our pancake when we get all of those.";
				close;
			}
		}
		mes "[Larissa]";
		mes "Ok we can bake it next time.";
		mes "I'm always available.";
		close;
	}
	else{
		mes "[Larissa]";
		mes "Young lady is a practical joker and her brother is tenderhearted.";
		mes "By the way, I haven't seen him for quite some time.";
		close;
	}
}

//============================================================================
// Acorn Exchange
//============================================================================

//----------------------------------------------------------------------------
// Acorn Dealer - Sells Acorns
//----------------------------------------------------------------------------
moscovia,208,182,7	script	Acorn Dealer#mos	967,{
	mes "[Acorn Dealer]";
	mes "We have very fresh acorns. Everyone will like them!";
	mes "You can buy one acorn for 100zeny!";
	next;
	if(select("Buy one.:What can I use them for?") == 2) {
		mes "[Acorn Dealer]";
		mes "Well uh...";
		mes "You can grind them to make";
		mes "something to eat and you can feed squirrels.";
		next;
		mes "[Acorn Dealer]";
		mes "Someone can decorate their house";
		mes "with them but I don't know how...";
		mes "they've got to be highly talented.";
		mes "Haha.";
		close;
	}
	mes "[Acorn Dealer]";
	mes "I'll bet you that they are very fresh!";
	mes "How many acorns do you need?";
	next;
	while(.@input <= 0 || .@input > 500) {
		input .@input;
		if (.@input <= 0) {
			mes "[Acorn Dealer]";
			mes "Do you want to cancel this trade?";
			close;
		}
		if (.@input > 500) {
			mes "[Acorn Dealer]";
			mes "You can't buy more than 500.";
			next;
		}
		
	}
	if (!checkweight(1026, .@input)) {
		mes "[Acorn Dealer]";
		mes "Hello, I think you can't get acorns";
		mes "now. You're carrying too many";
		mes "items!";
		mes "Please use Kafra service. I'll be";
		mes "right here.";
		close;
	}
	set .@price, .@input * 100;
	if (Zeny < .@price) {
		mes "[Acorn Dealer]";
		mes "Hello? You've turned pale! Are you ok??";
		mes "Do you have enough money?";
		close;
	}else{
		mes "[Acorn Dealer]";
		mes "Oh, thank you...";
		mes "What do you think of them? They're fresh, aren't they?";
		set Zeny,Zeny - .@price;
		getitem 1026,.@input;
		close;
	}
}

//----------------------------------------------------------------------------
// Big Squirrel - Trade Acorns for Gems
//----------------------------------------------------------------------------
mosk_fild01,113,108,3	script	Big Squirrel#mos	111,{
	if (checkweight(1201,1) == 0 ) {
		mes "- Please stop here !! -";
		mes "- You're carrying too many items -";
		mes "- Please try again -";
		mes "- after using the kafra service -";
		close;
	}
	if ((MaxWeight-Weight) < 2000) {
		mes "- Please stop here!! -";
		mes "- You're carrying too many items -";
		mes "- Please try again -";
		mes "- after using the kafra service -";
		close;
	}
	mes "- It's an extroardinary big squirrel. -";
	next;
	mes "- When the animal comes across you, it starts to sniffle and purse up it's lips. -";
	next;
	if (countitem(1026) > 19) {
		switch(select("Give acorns to it.:Ignore it.:Ask about the squirrel.")) {
		case 1:
			mes "- You take one of acorns out and hold it out to the squirrel. -";
			next;
			mes "- It cocked it's ears up and begins to nibble the acorn quickly. -";
			next;
			mes "- It makes a crunching sound -";
			mes "- It makes a crunching sound -";
			mes "- It makes a crunching sound -";
			next;
			mes "- After eating the acorn up, the squirrel dances around wildly. Suddenly it curls its body and throws something up with a spit-spit sound -";
			delitem 1026,20;
			set .@cyworld,rand(1,1000);
			set .@stworld,rand(1,150);
			if (.@cyworld > 0 && .@cyworld < 100) {
				getitem 733,1;
			}
			else if (.@cyworld == 100) {
				if (.@stworld > 0 && .@stworld < 10)
					getitem 718,1;
				else if (.@stworld > 9 && .@stworld < 20)
					getitem 719,1;
				else if (.@stworld > 19 && .@stworld < 30)
					getitem 720,1;
				else if (.@stworld > 29 && .@stworld < 40)
					getitem 721,1;
				else if (.@stworld > 39 && .@stworld < 50)
					getitem 722,1;
				else if (.@stworld > 49 && .@stworld < 60)
					getitem 723,1;
				else if (.@stworld > 59 && .@stworld < 70)
					getitem 725,1;
				else if (.@stworld > 69 && .@stworld < 80)
					getitem 728,1;
				else if (.@stworld > 79 && .@stworld < 90)
					getitem 729,1;
				else if (.@stworld > 89 && .@stworld < 100)
					getitem 730,1;
				else
					getitem 7289,1;
			}
			else if (.@cyworld > 100 && .@cyworld < 200) {
				getitem 733,1;
			}
			else if (.@cyworld == 200) {
				if (.@stworld > 0 && .@stworld < 10)
					getitem 718,1;
				else if (.@stworld > 9 && .@stworld < 20)
					getitem 719,1;
				else if (.@stworld > 19 && .@stworld < 30)
					getitem 720,1;
				else if (.@stworld > 29 && .@stworld < 40)
					getitem 721,1;
				else if (.@stworld > 39 && .@stworld < 50)
					getitem 722,1;
				else if (.@stworld > 49 && .@stworld < 60)
					getitem 723,1;
				else if (.@stworld > 59 && .@stworld < 70)
					getitem 725,1;
				else if (.@stworld > 69 && .@stworld < 80)
					getitem 728,1;
				else if (.@stworld > 79 && .@stworld < 90)
					getitem 729,1;
				else if (.@stworld > 89 && .@stworld < 100)
					getitem 731,1;
				else
					set .@stonez1,rand(1,10);
					if (.@stonez1 < 6)
						getitem 7290,1;
					else if (.@stonez1 > 5 && .@stonez1 < 8)
						getitem 7297,1;
					else
						getitem 7292,1;
			}
			else if (.@cyworld > 200 && .@cyworld < 300) {
				getitem 733,1;
			}
			else if (.@cyworld == 300) {
				if (.@stworld > 0 && .@stworld < 10)
					getitem 718,1;
				else if (.@stworld > 9 && .@stworld < 20)
					getitem 719,1;
				else if (.@stworld > 19 && .@stworld < 30)
					getitem 720,1;
				else if (.@stworld > 29 && .@stworld < 40)
					getitem 721,1;
				else if (.@stworld > 39 && .@stworld < 50)
					getitem 722,1;
				else if (.@stworld > 49 && .@stworld < 60)
					getitem 723,1;
				else if (.@stworld > 59 && .@stworld < 70)
					getitem 725,1;
				else if (.@stworld > 69 && .@stworld < 80)
					getitem 728,1;
				else if (.@stworld > 79 && .@stworld < 90)
					getitem 729,1;
				else if (.@stworld > 89 && .@stworld < 100)
					getitem 732,1;
				else
					set .@stonez2,rand(1,10);
					if (.@stonez2 < 6)
						getitem 7291,1;
					else
						getitem 7294,1;
			}
			else if (.@cyworld > 300 && .@cyworld < 400) {
				getitem 733,1;
			}
			else if (.@cyworld == 400) {
				if (.@stworld > 0 && .@stworld < 10)
					getitem 718,1;
				else if (.@stworld > 9 && .@stworld < 20)
					getitem 719,1;
				else if (.@stworld > 19 && .@stworld < 30)
					getitem 720,1;
				else if (.@stworld > 29 && .@stworld < 40)
					getitem 721,1;
				else if (.@stworld > 39 && .@stworld < 50)
					getitem 722,1;
				else if (.@stworld > 49 && .@stworld < 60)
					getitem 723,1;
				else if (.@stworld > 59 && .@stworld < 70)
					getitem 725,1;
				else if (.@stworld > 69 && .@stworld < 80)
					getitem 728,1;
				else if (.@stworld > 79 && .@stworld < 90)
					getitem 729,1;
				else if (.@stworld > 89 && .@stworld < 100)
					getitem 730,1;
				else
					getitem 7295,1;
			}
			else if (.@cyworld > 400 && .@cyworld < 500) {
				getitem 733,1;
			}
			else if (.@cyworld == 500) {
				if (.@stworld > 0 && .@stworld < 10)
					getitem 718,1;
				else if (.@stworld > 9 && .@stworld < 20)
					getitem 719,1;
				else if (.@stworld > 19 && .@stworld < 30)
					getitem 720,1;
				else if (.@stworld > 29 && .@stworld < 40)
					getitem 721,1;
				else if (.@stworld > 39 && .@stworld < 50)
					getitem 722,1;
				else if (.@stworld > 49 && .@stworld < 60)
					getitem 723,1;
				else if (.@stworld > 59 && .@stworld < 70)
					getitem 725,1;
				else if (.@stworld > 69 && .@stworld < 80)
					getitem 728,1;
				else if (.@stworld > 79 && .@stworld < 90)
					getitem 729,1;
				else if (.@stworld > 89 && .@stworld < 100)
					getitem 731,1;
				else
					getitem 7293,1;
			}
			else if (.@cyworld > 500 && .@cyworld < 600) {
				getitem 724,1;
			}
			else if (.@cyworld == 600) {
				if (.@stworld > 0 && .@stworld < 10)
					getitem 718,1;
				else if (.@stworld > 9 && .@stworld < 20)
					getitem 719,1;
				else if (.@stworld > 19 && .@stworld < 30)
					getitem 720,1;
				else if (.@stworld > 29 && .@stworld < 40)
					getitem 721,1;
				else if (.@stworld > 39 && .@stworld < 50)
					getitem 722,1;
				else if (.@stworld > 49 && .@stworld < 60)
					getitem 723,1;
				else if (.@stworld > 59 && .@stworld < 70)
					getitem 725,1;
				else if (.@stworld > 69 && .@stworld < 80)
					getitem 728,1;
				else if (.@stworld > 79 && .@stworld < 90)
					getitem 729,1;
				else if (.@stworld > 89 && .@stworld < 100)
					getitem 732,1;
				else
					getitem 7292,1;
			}
			else if (.@cyworld > 600 && .@cyworld < 700) {
				getitem 724,1;
			}
			else if (.@cyworld == 700) {
				if (.@stworld > 0 && .@stworld < 10)
					getitem 718,1;
				else if (.@stworld > 9 && .@stworld < 20)
					getitem 719,1;
				else if (.@stworld > 19 && .@stworld < 30)
					getitem 720,1;
				else if (.@stworld > 29 && .@stworld < 40)
					getitem 721,1;
				else if (.@stworld > 39 && .@stworld < 50)
					getitem 722,1;
				else if (.@stworld > 49 && .@stworld < 60)
					getitem 723,1;
				else if (.@stworld > 59 && .@stworld < 70)
					getitem 725,1;
				else if (.@stworld > 69 && .@stworld < 80)
					getitem 728,1;
				else if (.@stworld > 79 && .@stworld < 90)
					getitem 729,1;
				else if (.@stworld > 89 && .@stworld < 100)
					getitem 730,1;
				else
					getitem 7290,1;
			}
			else if (.@cyworld > 700 && .@cyworld < 800) {
				getitem 724,1;
			}
			else if (.@cyworld == 800) {
				if (.@stworld > 0 && .@stworld < 10)
					getitem 718,1;
				else if (.@stworld > 9 && .@stworld < 20)
					getitem 719,1;
				else if (.@stworld > 19 && .@stworld < 30)
					getitem 720,1;
				else if (.@stworld > 29 && .@stworld < 40)
					getitem 721,1;
				else if (.@stworld > 39 && .@stworld < 50)
					getitem 722,1;
				else if (.@stworld > 49 && .@stworld < 60)
					getitem 723,1;
				else if (.@stworld > 59 && .@stworld < 70)
					getitem 725,1;
				else if (.@stworld > 69 && .@stworld < 80)
					getitem 728,1;
				else if (.@stworld > 79 && .@stworld < 90)
					getitem 729,1;
				else if (.@stworld > 89 && .@stworld < 100)
					getitem 731,1;
				else
					getitem 7296,1;
			}
			else if (.@cyworld > 800 && .@cyworld < 900) {
				getitem 724,1;
			}
			else if (.@cyworld == 900) {
				if (.@stworld > 0 && .@stworld < 10)
					getitem 718,1;
				else if (.@stworld > 9 && .@stworld < 20)
					getitem 719,1;
				else if (.@stworld > 19 && .@stworld < 30)
					getitem 720,1;
				else if (.@stworld > 29 && .@stworld < 40)
					getitem 721,1;
				else if (.@stworld > 39 && .@stworld < 50)
					getitem 722,1;
				else if (.@stworld > 49 && .@stworld < 60)
					getitem 723,1;
				else if (.@stworld > 59 && .@stworld < 70)
					getitem 725,1;
				else if (.@stworld > 69 && .@stworld < 80)
					getitem 728,1;
				else if (.@stworld > 79 && .@stworld < 90)
					getitem 729,1;
				else if (.@stworld > 89 && .@stworld < 100)
					getitem 732,1;
				else
					getitem 7297,1;
			}
			else if (.@cyworld == 1000) {
				getitem 727,1;
			}
			else {
				getitem 724,1;
			}
			close;
			break;
		case 2:
			mes "["+strcharinfo(0)+"]";
			mes "It's so cute.";
			close;
			break;
		case 3:
			mes "[Aged Man]";
			mes "Is it bigger than an ordinary one?";
			mes "I found it one day and was barely able to save it...";
			next;
			mes "[Aged Man]";
			mes "I felt that heaven had sent me a friend so that my life wouldn't be so lonely.";
			next;
			mes "[Aged Man]";
			mes "But I didn't know that it eats so much, it won't give me any attention if I give anything ^3131FFbelow 20 acorns^000000.";
			mes "That's why it's bigger than ordinary ones hahaha.";
			close;
		}
	}else{
		mes "- The squirrel looks at the acorn which you held for a while but it turned its head with indifference. -";
		close;
	}
}

mosk_fild01,113,108,5	script	#mos_sq	1104,2,2,{
	end;
	
OnTouch:
	if (checkweight(1201,1) == 0 ) {
		mes "- Please stop here !! -";
		mes "- You're carrying too many items -";
		mes "- Please try again -";
		mes "- after using the kafra service -";
		close;
	}
	if ((MaxWeight-Weight) < 2000) {
		mes "- Please stop here!! -";
		mes "- You're carrying too many items -";
		mes "- Please try again -";
		mes "- after using the kafra service -";
		close;
	}
	mes "- It's an extroardinary big squirrel. -";
	next;
	mes "- When the animal comes across you, it starts to sniffle and purse up it's lips. -";
	next;
	if (countitem(1026) > 19) {
		switch(select("Give acorns to it.:Ignore it.:Ask about the squirrel.")) {
		case 1:
			mes "- You take one of acorns out and hold it out to the squirrel. -";
			next;
			mes "- It cocked it's ears up and begins to nibble the acorn quickly. -";
			next;
			mes "- It makes a crunching sound -";
			mes "- It makes a crunching sound -";
			mes "- It makes a crunching sound -";
			next;
			mes "- After eating the acorn up, the squirrel dances around wildly. Suddenly it curls its body and throws something up with a spit-spit sound -";
			delitem 1026,20;
			set .@cyworld,rand(1,1000);
			set .@stworld,rand(1,150);
			if (.@cyworld > 0 && .@cyworld < 100) {
				getitem 733,1;
			}
			else if (.@cyworld == 100) {
				if (.@stworld > 0 && .@stworld < 10)
					getitem 718,1;
				else if (.@stworld > 9 && .@stworld < 20)
					getitem 719,1;
				else if (.@stworld > 19 && .@stworld < 30)
					getitem 720,1;
				else if (.@stworld > 29 && .@stworld < 40)
					getitem 721,1;
				else if (.@stworld > 39 && .@stworld < 50)
					getitem 722,1;
				else if (.@stworld > 49 && .@stworld < 60)
					getitem 723,1;
				else if (.@stworld > 59 && .@stworld < 70)
					getitem 725,1;
				else if (.@stworld > 69 && .@stworld < 80)
					getitem 728,1;
				else if (.@stworld > 79 && .@stworld < 90)
					getitem 729,1;
				else if (.@stworld > 89 && .@stworld < 100)
					getitem 730,1;
				else
					getitem 7289,1;
			}
			else if (.@cyworld > 100 && .@cyworld < 200) {
				getitem 733,1;
			}
			else if (.@cyworld == 200) {
				if (.@stworld > 0 && .@stworld < 10)
					getitem 718,1;
				else if (.@stworld > 9 && .@stworld < 20)
					getitem 719,1;
				else if (.@stworld > 19 && .@stworld < 30)
					getitem 720,1;
				else if (.@stworld > 29 && .@stworld < 40)
					getitem 721,1;
				else if (.@stworld > 39 && .@stworld < 50)
					getitem 722,1;
				else if (.@stworld > 49 && .@stworld < 60)
					getitem 723,1;
				else if (.@stworld > 59 && .@stworld < 70)
					getitem 725,1;
				else if (.@stworld > 69 && .@stworld < 80)
					getitem 728,1;
				else if (.@stworld > 79 && .@stworld < 90)
					getitem 729,1;
				else if (.@stworld > 89 && .@stworld < 100)
					getitem 731,1;
				else
					set .@stonez1,rand(1,10);
					if (.@stonez1 < 6)
						getitem 7290,1;
					else if (.@stonez1 > 5 && .@stonez1 < 8)
						getitem 7297,1;
					else
						getitem 7292,1;
			}
			else if (.@cyworld > 200 && .@cyworld < 300) {
				getitem 733,1;
			}
			else if (.@cyworld == 300) {
				if (.@stworld > 0 && .@stworld < 10)
					getitem 718,1;
				else if (.@stworld > 9 && .@stworld < 20)
					getitem 719,1;
				else if (.@stworld > 19 && .@stworld < 30)
					getitem 720,1;
				else if (.@stworld > 29 && .@stworld < 40)
					getitem 721,1;
				else if (.@stworld > 39 && .@stworld < 50)
					getitem 722,1;
				else if (.@stworld > 49 && .@stworld < 60)
					getitem 723,1;
				else if (.@stworld > 59 && .@stworld < 70)
					getitem 725,1;
				else if (.@stworld > 69 && .@stworld < 80)
					getitem 728,1;
				else if (.@stworld > 79 && .@stworld < 90)
					getitem 729,1;
				else if (.@stworld > 89 && .@stworld < 100)
					getitem 732,1;
				else
					set .@stonez2,rand(1,10);
					if (.@stonez2 < 6)
						getitem 7291,1;
					else
						getitem 7294,1;
			}
			else if (.@cyworld > 300 && .@cyworld < 400) {
				getitem 733,1;
			}
			else if (.@cyworld == 400) {
				if (.@stworld > 0 && .@stworld < 10)
					getitem 718,1;
				else if (.@stworld > 9 && .@stworld < 20)
					getitem 719,1;
				else if (.@stworld > 19 && .@stworld < 30)
					getitem 720,1;
				else if (.@stworld > 29 && .@stworld < 40)
					getitem 721,1;
				else if (.@stworld > 39 && .@stworld < 50)
					getitem 722,1;
				else if (.@stworld > 49 && .@stworld < 60)
					getitem 723,1;
				else if (.@stworld > 59 && .@stworld < 70)
					getitem 725,1;
				else if (.@stworld > 69 && .@stworld < 80)
					getitem 728,1;
				else if (.@stworld > 79 && .@stworld < 90)
					getitem 729,1;
				else if (.@stworld > 89 && .@stworld < 100)
					getitem 730,1;
				else
					getitem 7295,1;
			}
			else if (.@cyworld > 400 && .@cyworld < 500) {
				getitem 733,1;
			}
			else if (.@cyworld == 500) {
				if (.@stworld > 0 && .@stworld < 10)
					getitem 718,1;
				else if (.@stworld > 9 && .@stworld < 20)
					getitem 719,1;
				else if (.@stworld > 19 && .@stworld < 30)
					getitem 720,1;
				else if (.@stworld > 29 && .@stworld < 40)
					getitem 721,1;
				else if (.@stworld > 39 && .@stworld < 50)
					getitem 722,1;
				else if (.@stworld > 49 && .@stworld < 60)
					getitem 723,1;
				else if (.@stworld > 59 && .@stworld < 70)
					getitem 725,1;
				else if (.@stworld > 69 && .@stworld < 80)
					getitem 728,1;
				else if (.@stworld > 79 && .@stworld < 90)
					getitem 729,1;
				else if (.@stworld > 89 && .@stworld < 100)
					getitem 731,1;
				else
					getitem 7293,1;
			}
			else if (.@cyworld > 500 && .@cyworld < 600) {
				getitem 724,1;
			}
			else if (.@cyworld == 600) {
				if (.@stworld > 0 && .@stworld < 10)
					getitem 718,1;
				else if (.@stworld > 9 && .@stworld < 20)
					getitem 719,1;
				else if (.@stworld > 19 && .@stworld < 30)
					getitem 720,1;
				else if (.@stworld > 29 && .@stworld < 40)
					getitem 721,1;
				else if (.@stworld > 39 && .@stworld < 50)
					getitem 722,1;
				else if (.@stworld > 49 && .@stworld < 60)
					getitem 723,1;
				else if (.@stworld > 59 && .@stworld < 70)
					getitem 725,1;
				else if (.@stworld > 69 && .@stworld < 80)
					getitem 728,1;
				else if (.@stworld > 79 && .@stworld < 90)
					getitem 729,1;
				else if (.@stworld > 89 && .@stworld < 100)
					getitem 732,1;
				else
					getitem 7292,1;
			}
			else if (.@cyworld > 600 && .@cyworld < 700) {
				getitem 724,1;
			}
			else if (.@cyworld == 700) {
				if (.@stworld > 0 && .@stworld < 10)
					getitem 718,1;
				else if (.@stworld > 9 && .@stworld < 20)
					getitem 719,1;
				else if (.@stworld > 19 && .@stworld < 30)
					getitem 720,1;
				else if (.@stworld > 29 && .@stworld < 40)
					getitem 721,1;
				else if (.@stworld > 39 && .@stworld < 50)
					getitem 722,1;
				else if (.@stworld > 49 && .@stworld < 60)
					getitem 723,1;
				else if (.@stworld > 59 && .@stworld < 70)
					getitem 725,1;
				else if (.@stworld > 69 && .@stworld < 80)
					getitem 728,1;
				else if (.@stworld > 79 && .@stworld < 90)
					getitem 729,1;
				else if (.@stworld > 89 && .@stworld < 100)
					getitem 730,1;
				else
					getitem 7290,1;
			}
			else if (.@cyworld > 700 && .@cyworld < 800) {
				getitem 724,1;
			}
			else if (.@cyworld == 800) {
				if (.@stworld > 0 && .@stworld < 10)
					getitem 718,1;
				else if (.@stworld > 9 && .@stworld < 20)
					getitem 719,1;
				else if (.@stworld > 19 && .@stworld < 30)
					getitem 720,1;
				else if (.@stworld > 29 && .@stworld < 40)
					getitem 721,1;
				else if (.@stworld > 39 && .@stworld < 50)
					getitem 722,1;
				else if (.@stworld > 49 && .@stworld < 60)
					getitem 723,1;
				else if (.@stworld > 59 && .@stworld < 70)
					getitem 725,1;
				else if (.@stworld > 69 && .@stworld < 80)
					getitem 728,1;
				else if (.@stworld > 79 && .@stworld < 90)
					getitem 729,1;
				else if (.@stworld > 89 && .@stworld < 100)
					getitem 731,1;
				else
					getitem 7296,1;
			}
			else if (.@cyworld > 800 && .@cyworld < 900) {
				getitem 724,1;
			}
			else if (.@cyworld == 900) {
				if (.@stworld > 0 && .@stworld < 10)
					getitem 718,1;
				else if (.@stworld > 9 && .@stworld < 20)
					getitem 719,1;
				else if (.@stworld > 19 && .@stworld < 30)
					getitem 720,1;
				else if (.@stworld > 29 && .@stworld < 40)
					getitem 721,1;
				else if (.@stworld > 39 && .@stworld < 50)
					getitem 722,1;
				else if (.@stworld > 49 && .@stworld < 60)
					getitem 723,1;
				else if (.@stworld > 59 && .@stworld < 70)
					getitem 725,1;
				else if (.@stworld > 69 && .@stworld < 80)
					getitem 728,1;
				else if (.@stworld > 79 && .@stworld < 90)
					getitem 729,1;
				else if (.@stworld > 89 && .@stworld < 100)
					getitem 732,1;
				else
					getitem 7297,1;
			}
			else if (.@cyworld == 1000) {
				getitem 727,1;
			}
			else {
				getitem 724,1;
			}
			close;
			break;
		case 2:
			mes "["+strcharinfo(0)+"]";
			mes "It's so cute.";
			close;
			break;
		case 3:
			mes "[Aged Man]";
			mes "Is it bigger than an ordinary one?";
			mes "I found it one day and was barely able to save it...";
			next;
			mes "[Aged Man]";
			mes "I felt that heaven had sent me a friend so that my life wouldn't be so lonely.";
			next;
			mes "[Aged Man]";
			mes "But I didn't know that it eats so much, it won't give me any attention if I give anything ^3131FFbelow 20 acorns^000000.";
			mes "That's why it's bigger than ordinary ones hahaha.";
			close;
		}
	}else{
		mes "- The squirrel looks at the acorn which you held for a while but it turned its head with indifference. -";
		close;
	}
}

//============================================================================
// Banish Winter
//============================================================================

//----------------------------------------------------------------------------
// Baba Yaga, the Horrible - Starting Point
//----------------------------------------------------------------------------
mosk_in,215,46,5	script	#babayaga	-1,7,7,{
	end;
	
OnTouch:
	if (mos_nowinter == 0) {
		if (countitem(7762) > 39 && BaseLevel > 59) {
			set mos_nowinter,2;
			mes "[Baba Yaga, the Horrible]";
			mes "Who the hell are you?";
			mes "You want me to kick your ass!";
			next;
			mes "[Baba Yaga, the Horrible]";
			mes "No. They are...";
			next;
			mes "[Baba Yaga, the Horrible]";
			mes "You have our Yaga Pestles!";
			mes "You have so many of them...";
			next;
			mes "[Baba Yaga, the Horrible]";
			mes "Who, who are you?";
			close;
		}
		else if (countitem(7762) > 39 && BaseLevel < 60) {
			mes "[Baba Yaga, the Horrible]";
			mes "Hohoho~";
			mes "You cannot beat my friends!";
			mes "I don't know where you got";
			mes "those Yaga Pestles, but";
			mes "give them back to me!";
			set mos_nowinter,1;
			set .@getback,rand(1,20);
			delitem 7762,.@getback;
			close2;
			warp "mosk_dun02",53,217;
			end;
		}
		else{
			mes "[Baba Yaga, the Horrible]";
			mes "Who the hell are you?";
			mes "You want me to kick your ass!";
			set mos_nowinter,1;
			close2;
			warp "mosk_dun02",53,217;
			end;
		}
	}
	else if (mos_nowinter == 1) {
		if (countitem(7762) > 39 && BaseLevel > 59) {
			set mos_nowinter,2;
			mes "[Baba Yaga, the Horrible]";
			mes "Who the hell are you.";
			mes "You want me to kick your ass!";
			next;
			mes "[Baba Yaga, the Horrible]";
			mes "No. They are...";
			next;
			mes "[Baba Yaga, the Horrible]";
			mes "You have our Yaga Pestles!";
			mes "You have so many of them...";
			next;
			mes "[Baba Yaga, the Horrible]";
			mes "Who, who are you?";
			close;
		}
		else if (countitem(7762) > 39 && BaseLevel < 60) {
			mes "[Baba Yaga, the Horrible]";
			mes "You, chicken,";
			mes "I need to kick your ass more.";
			next;
			if (Sex) {
				mes "[Baba Yaga, the Horrible]";
				mes "I will bewitch";
				mes "and enslave you.";
				mes "Come here, Heeee!";
			}else{
				mes "[Baba Yaga, the Horrible]";
				mes "Recently, I have no appetite.";
				mes "But you will be";
				mes "a good appetizer.";
				mes "Come here, Heeeeeeeee.";
			}
			close2;
			warp "mosk_dun02",53,217;
			end;
		}
		else {
			mes "[Baba Yaga, the Horrible]";
			mes "I need to kick your ass more.";
			mes "Come here";
			mes "to play a game";
			mes "Heeeeeeeeeeee";
			close2;
			warp "mosk_dun02",53,217;
			end;
		}
	}
}

mosk_in,215,46,5	script	Baba Yaga, the Horrible	970,{
	if (mos_nowinter == 0 || mos_nowinter == 1) {
		mes "[Baba Yaga, the Horrible]";
		mes "Hohoho";
		mes "I need to kick your ass more.";
		mes "Come here,";
		mes "to play a game.";
		mes "Heeeeeeeee.";
		close2;
		warp "mosk_dun02",53,217;
		end;
	}
	else if (mos_nowinter == 2) {
		mes "[Baba Yaga, the Horrible]";
		mes "Let me live, leave me alone, and don't come near me.";
		mes "Stop, I am hungry and scared.";
		next;
		mes "-She is blabbing something weird.-";
		next;
		mes "[Baba Yaga, the Horrible]";
		mes "Yes, if you let me live, I will compensate you";
		mes "with a present, how about that?";
		next;
		if(select("A present?:I don't need.") == 1) {
			mes "[Baba Yaga, the Horrible]";
			mes "Yes, if you let me live";
			mes "I will give you the Yaga Pestles";
			mes "Aren't you gathering them?";
			next;
			select("I don't need them anymore.");
		}
		mes "[Baba Yaga, the Horrible]";
		mes "Kaaaaaaaaaak!";
		mes "Please, let me live,";
		mes "I will do anything you want.";
		next;
		mes "[Baba Yaga, the Horrible]";
		mes "Don't you need any cream for wounds";
		mes "or indigestion?";
		mes "They are a bit dirty,";
		mes "but very useful.";
		next;
		select("Well...");
		mes "[Baba Yaga, the Horrible]";
		mes "How about this?";
		mes "I bewitch this country so that";
		mes "the winter will never come here again.";
		next;
		mes "[Baba Yaga, the Horrible]";
		mes "I guess that people will like it and";
		mes "I'm sure that the Csar";
		mes "will award you for it.";
		next;
		mes "[Baba Yaga, the Horrible]";
		mes "Ah? You seem";
		mes "interested... ya?";
		mes "What do you think about that?";
		next;
		if(select("Good, but I think you're lying.:I am not interested.") == 1) {
			mes "[Baba Yaga, the Horrible]";
			mes "Sure, you can trust me.";
			mes "It is so complicated that I cannot";
			mes "perform it on my own";
			mes "I am not a liar.";
			next;
			mes "[Baba Yaga, the Horrible]";
			mes "But, the problem is...";
			next;
			mes "[Baba Yaga, the Horrible]";
			mes "I am not able to get the materials neccessary";
			mes "because I don't feel good.";
			next;
			mes "[Baba Yaga, the Horrible]";
			mes "So,";
			mes "if you give me a hand,";
			mes "I can use the magic that";
			mes "stops winter from returning. Will you help me?";
			next;
			if(select("Ok, I will.:No. I don't like it.") == 1) {
				mes "[Baba Yaga, the Horrible]";
				mes "Ah, do you accept?";
				mes "Thank you.";
				next;
				mes "[Baba Yaga, the Horrible]";
				mes "Well, I thank you for your kindness.";
				mes "Let's cooperate and";
				mes "make my Secret Medicine.";
				next;
				mes "[Baba Yaga, the Horrible]";
				mes "Let me see... Ah...";
				next;
				mes "[Baba Yaga, the Horrible]";
				mes "It is not used often.";
				mes "I don't remember";
				mes "where it is.";
				mes "Could you please come back later?";
				set mos_nowinter,5;
				close;
			}else{
				mes "[Baba Yaga, the Horrible]";
				mes "Heeeek,";
				mes "Just, just I need a little help.. It is really little.";
				next;
				mes "[Baba Yaga, the Horrible]";
				mes "Please, don't kill me...";
				next;
				mes "'Hmmm, what should I do...'";
				set mos_nowinter,4;
				close;
			}
		}else{
			mes "[Baba Yaga, the Horrible]";
			mes "Akkk... What on earth did you do to me...";
			next;
			mes "Hmm... What do you want...";
			set mos_nowinter,3;
			close;
		}
	}
	else if (mos_nowinter == 3) {
		mes "[Baba Yaga, the Horrible]";
		mes "Akkkk!";
		mes "You came back..";
		next;
		mes "[Baba Yaga, the Horrible]";
		mes "If you tell the Csar that";
		mes "winter won't come back again";
		mes "he will reward you.";
		next;
		mes "[Baba Yaga, the Horrible]";
		mes "Isn't that better for you";
		mes "than hurting me?";
		next;
		if(select("Ok, tell me the story.:Let me think...") == 1) {
			mes "[Baba Yaga, the Horrible]";
			mes "Certainly, trust me.";
			mes "It is so complicated that I cannot";
			mes "perform it on my own";
			mes "I am not a liar.";
			next;
			mes "[Baba Yaga, the Horrible]";
			mes "The problem is...";
			next;
			mes "[Baba Yaga, the Horrible]";
			mes "I am not able to get the materials neccessary";
			mes "because I don't feel good.";
			next;
			mes "[Baba Yaga, the Horrible]";
			mes "So,";
			mes "if you give me a hand.";
			mes "I can use the magic that";
			mes "stops winter from returning. Will you help me?";
			next;
			if(select("Ok, I will.:No. I don't like it.") == 1) {
				mes "[Baba Yaga, the Horrible]";
				mes "Ah, do you accept?";
				mes "Thank you.";
				next;
				mes "[Baba Yaga, the Horrible]";
				mes "Well, I thank you for your kindness.";
				mes "Let's cooperate and";
				mes "make my Secret Medicine.";
				next;
				mes "[Baba Yaga, the Horrible]";
				mes "Let me see... Ah...";
				next;
				mes "[Baba Yaga, the Horrible]";
				mes "It is not used often.";
				mes "I don't remember";
				mes "where it is.";
				mes "Could you please come back later?";
				set mos_nowinter,5;
				close;
			}else{
				mes "[Baba Yaga, the Horrible]";
				mes "Heeeeek,";
				mes "Just, just I need a little help.. It is really little.";
				next;
				mes "[Baba Yaga, the Horrible]";
				mes "Please, don't kill me...";
				next;
				mes "'Hmm... what should I do...'";
				set mos_nowinter,4;
				close;
			}
		}
		mes "[Baba Yaga, the Horrible]";
		mes "You think more...";
		mes "What do you want from me...";
		close;
	}
	else if (mos_nowinter == 4) {
		mes "[Baba Yaga, the Horrible]";
		mes "You just need to help little,";
		mes "really little...";
		next;
		mes "[Baba Yaga, the Horrible]";
		mes "Well, did you change your mind?";
		next;
		if(select("Ok, let's try.:Let me think more...") == 1) {
			mes "[Baba Yaga, the Horrible]";
			mes "Ah, do you accept?";
			mes "Thank you.";
			next;
			mes "[Baba Yaga, the Horrible]";
			mes "Well, I thank you for your kindness.";
			mes "Let's cooperate and";
			mes "make my Secret Medicine.";
			next;
			mes "[Baba Yaga, the Horrible]";
			mes "Let me see... Ah...";
			next;
			mes "[Baba Yaga, the Horrible]";
			mes "It is not used often.";
			mes "I don't remember";
			mes "where it is.";
			mes "Could you please come back later?";
			set mos_nowinter,5;
			close;
		}
		mes "[Baba Yaga, the Horrible]";
		mes "You think more...";
		mes "What do you want from me...";
		close;
	}
	else if (mos_nowinter == 5) {
		mes "[Baba Yaga, the Horrible]";
		mes "Let me see...where the season spell...";
		next;
		mes "rummaging..";
		next;
		mes "[Baba Yaga, the Horrible]";
		mes "Ah, here it is... I found it!";
		mes "Hoook~ Hoook~";
		next;
		mes "-What a dusty old book!-";
		next;
		mes "[Baba Yaga, the Horrible]";
		mes "Well, open your ears.";
		mes "It is so rare around here that";
		mes "it is not easy for you to remember at once.";
		next;
		mes "[Baba Yaga, the Horrible]";
		mes "Above all,";
		mes "I need 20 Grasshopper's Legs...";
		next;
		mes "[Baba Yaga, the Horrible]";
		mes "Cough, cough,";
		mes "Kaaak, Kaaaaak";
		next;
		mes "[Baba Yaga, the Horrible]";
		mes "Sniff, sniff.";
		mes "5 Spawn...";
		next;
		mes "[Baba Yaga, the Horrible]";
		mes "eh... and...";
		mes "20 Wings Of Red Bat...";
		next;
		mes "[Baba Yaga, the Horrible]";
		mes "Let me see...";
		mes "a glue, no, to cast a spell";
		mes "10 Sticky Mucus...";
		next;
		if(select("...Are you sure?:A glue? You want me to kill you?!") == 1) {
			mes "[Baba Yaga, the Horrible]";
			mes "Yes, yes, I am certain. Why don't you trust me...";
			next;
			mes "[Baba Yaga, the Horrible]";
			mes "Cough, cough,";
			mes "I am coughing now, so do not disturb me,";
			mes "you write them down.";
			set .@plus1,1;
			next;
		}else{
			mes "[Baba Yaga, the Horrible]";
			mes "No, It just...";
			next;
			mes "[Baba Yaga, the Horrible]";
			mes "Ehhh, terrible.";
			mes "Hey, relax your hand and";
			mes "keep writing.";
			mes "Forget the Sticky Mucus...";
			next;
		}
		mes "[Baba Yaga, the Horrible]";
		mes "Where were we...";
		mes "Cough, cough, cough!";
		next;
		mes "[Baba Yaga, the Horrible]";
		mes "Ah, yes. Next elements are";
		mes "essential.";
		next;
		mes "[Baba Yaga, the Horrible]";
		mes "10 Witched Starsand";
		mes "10 Fine Grits...";
		mes "Hooook, hooook~";
		mes "Ekkkk, what a dusty book!";
		next;
		mes "[Baba Yaga, the Horrible]";
		mes "Next is for";
		mes "someting hot.";
		mes "1 Detonator";
		mes "5 Red Blood,";
		mes "and 10 Burning Hearts.";
		next;
		mes "[Baba Yaga, the Horrible]";
		mes "Ah, and I need";
		mes "a 1, 2, or 3 carat";
		mes "^ff0000Diamond^000000.";
		next;
		if (.@plus1 == 1) {
			mes "[Baba Yaga, the Horrible]";
			mes "Ok, I am repeating the items.";
			mes "Eh, they are...";
			next;
			mes "[Baba Yaga, the Horrible]";
			mes "^ff000020 Grasshopper's Legs,";
			mes "5 Spawn,";
			mes "20 Wing Of Red Bat,";
			mes "10 Sticky Mucus,";
			mes "10 Witched Starsand^000000...";
			next;
			mes "[Baba Yaga, the Horrible]";
			mes "^ff000010 Fine Grit,";
			mes "1 Detonator,";
			mes "5 Boody Red,";
			mes "10 Burning Heart^000000 and,";
			mes "a 1, 2, or 3 carat";
			mes "^ff00001 Diamond^000000.";
			set mos_nowinter,6;
			next;
		}else{
			mes "[Baba Yaga, the Horrible]";
			mes "Ok, I am repeating the items.";
			mes "Eh, they are...";
			next;
			mes "[Baba Yaga, the Horrible]";
			mes "^ff000020 Grasshopper's Legs,";
			mes "5 Spawn,";
			mes "20 Wing Of Red Bat,";
			mes "10 Witched Starsand^000000...";
			next;
			mes "[Baba Yaga, the Horrible]";
			mes "^ff000010 Fine Grit,";
			mes "1 Detonator,";
			mes "5 Bloody Red,";
			mes "10 Burning Heart^000000 and,";
			mes "a 1, 2, or 3 carat";
			mes "^ff0000Diamond^000000.";
			set mos_nowinter,7;
			next;
		}
		mes "[Baba Yaga, the Horrible]";
		mes "I am preparing to make it,";
		mes "you should get me them quickly. Cough, cough!";
		close;
	}
	else if (mos_nowinter == 6) {
		mes "[Baba Yaga, the Horrible]";
		mes "Ehhh... You came back early.";
		next;
		mes "[Baba Yaga, the Horrible]";
		mes "I'm almost prepared..";
		mes "Did you get";
		mes "all of the items?";
		next;
		if (countitem(940) > 19 && countitem(908) > 4 && countitem(7006) > 19 && countitem(1061) > 9 && countitem(7041) > 9 && countitem(1051) > 0 && countitem(990) > 4 && countitem(938) > 9 && countitem(7097) > 9 && (countitem(730) > 0 || countitem(731) > 0 || countitem(732) > 0)) {
			delitem 940,20;
			delitem 908,5;
			delitem 7006,20;
			delitem 1061,10;
			delitem 7041,10;
			delitem 938,10;
			delitem 1051,1;
			delitem 990,5;
			delitem 7097,10;
			if (countitem(730) > 0) {
				delitem 730,1;
			}else{
				if (countitem(731) > 0) {
					delitem 731,1;
				}else{
					delitem 732,1;
				}
			}
			set mos_nowinter,8;
			mes "[Baba Yaga, the Horrible]";
			mes "Right, you got them all.";
			mes "With this amount.. For some time...";
			mes "No, to make the Secret Medicine,";
			mes "These are enough, cough.";
			next;
			mes "[Baba Yaga, the Horrible]";
			mes "Let me see, we have all";
			mes "that we need...";
			next;
			mes "[Baba Yaga, the Horrible]";
			mes "Ehhhh...";
			mes "Huk!";
			next;
			mes "[Baba Yaga, the Horrible]";
			mes "Cough, cough, cough!";
			mes "Eh... I mean...";
			next;
			mes "[Baba Yaga, the Horrible]";
			mes "Have you heard the story of";
			mes "a dragon sleeping for a long time?";
			mes "Next thing that I need is";
			mes "something from that dragon, kkkk.";
			next;
			mes "[Baba Yaga, the Horrible]";
			mes "You can find a funny-shaped bottle";
			mes "in the dragon's lair.";
			mes "It's a gourd bottle, that can";
			mes "contain people's speech.";
			mes "I must have this.";
			next;
			mes "[Baba Yaga, the Horrible]";
			mes "I don't know how strong you are,";
			mes "but I would like to recommend that";
			mes "you avoid fighting that dragon, Kaaaaak~";
			next;
			mes "[Baba Yaga, the Horrible]";
			mes "Then, release me.";
			mes "I want to do something,";
			mes "...but, my life is the priority. Yes, it is... Cough, cough!";
			close;
		}else{
			mes "[Baba Yaga, the Horrible]";
			mes "I think";
			mes "I need more, cough, cough!";
			next;
			mes "[Baba Yaga, the Horrible]";
			mes "I am not able to do";
			mes "anything without them.";
			mes "I am repeating the items in the list,";
			mes "you should get them all, kaaaaak!";
			next;
			mes "[Baba Yaga, the Horrible]";
			mes "^ff000020 Grasshopper's Legs,";
			mes "5 Spawn,";
			mes "20 Wings Of Red Bat";
			mes "10 Sticky Mucus,";
			mes "10 Witch Starsand^000000...";
			next;
			mes "[Baba Yaga, the Horrible]";
			mes "^ff000010 Fine Grit,";
			mes "1 Detonator,";
			mes "5 Boody Red";
			mes "10 Burning Hearts^000000 and";
			mes "a 1, 2, or 3 carat";
			mes "^ff0000Diamond^000000.";
			next;
			mes "[Baba Yaga, the Horrible]";
			mes "Cough, cough.";
			mes "Hu, I talked so much";
			mes "that it hurts me, Kaaaak~";
			close;
		}
	}
	else if (mos_nowinter == 7) {
		mes "[Baba Yaga, the Horrible]";
		mes "Ehhh... You came back earlier.";
		next;
		mes "[Baba Yaga, the Horrible]";
		mes "I almost prepared";
		mes "Did you get";
		mes "all of them?";
		next;
		if (countitem(940) > 19 && countitem(908) > 4 && countitem(7006) > 19 && countitem(1061) > 9 && countitem(7041) > 9 && countitem(1051) > 0 && countitem(990) > 4 && countitem(7097) > 9 && (countitem(730) > 0 || countitem(731) > 0 || countitem(732) > 0)) {
			delitem 940,20;
			delitem 908,5;
			delitem 7006,20;
			delitem 1061,10;
			delitem 7041,10;
			delitem 1051,1;
			delitem 990,5;
			delitem 7097,10;
			if (countitem(730) > 0) {
				delitem 730,1;
			}else{
				if (countitem(731) > 0) {
					delitem 731,1;
				}else{
					delitem 732,1;
				}
			}
			set mos_nowinter,8;
			mes "[Baba Yaga, the Horrible]";
			mes "Right, you got them all.";
			mes "With this amount.. For some time......";
			mes "No, to make the Secret Medicine.";
			mes "These are enough, cough.";
			next;
			mes "[Baba Yaga, the Horrible]";
			mes "Let me see, we have all";
			mes "that we need...";
			next;
			mes "[Baba Yaga, the Horrible]";
			mes "Ehhh...";
			mes "Huk!";
			next;
			mes "[Baba Yaga, the Horrible]";
			mes "Cough, cough, cough!";
			mes "Eh... I mean...";
			next;
			mes "[Baba Yaga, the Horrible]";
			mes "Have you heard the story of";
			mes "a dragon sleeping for a long time?";
			mes "Next thing that I need is";
			mes "somwthing from that dragon, kkkk.";
			next;
			mes "[Baba Yaga, the Horrible]";
			mes "You can find a funny-shaped bottle";
			mes "in the dragon's lair.";
			mes "It's a gourd bottle, that can";
			mes "contain people's speech.";
			mes "I must have this.";
			next;
			mes "[Baba Yaga, the Horrible]";
			mes "I don't know how strong you are,";
			mes "but I would like to recommend that";
			mes "you avoid fighting that dragon, Kaaaaak~";
			next;
			mes "[Baba Yaga, the Horrible]";
			mes "Then, release me.";
			mes "I want to do something,";
			mes "...but, my life is the priority. Yes, it is... Cough, cough!";
			close;
		}else{
			mes "[Baba Yaga, the Horrible]";
			mes "I think";
			mes "I need more, cough, cough!";
			next;
			mes "[Baba Yaga, the Horrible]";
			mes "I am not able to do";
			mes "anything without them.";
			mes "I am repeating the items in the list,";
			mes "you should get them all, kaaaaak!";
			next;
			mes "[Baba Yaga, the Horrible]";
			mes "^ff000020 Grasshopper's Legs,";
			mes "5 Spawn,";
			mes "20 Wings Of Red Bat,";
			mes "10 Witch Starsand^000000...";
			next;
			mes "[Baba Yaga, the Horrible]";
			mes "^ff000010 Fine Grit,";
			mes "1 Detonator,";
			mes "5 Boody Red,";
			mes "10 Burning Hearts^000000 and";
			mes "a 1, 2, or 3 carat";
			mes "^ff0000Diamond^000000.";
			next;
			mes "[Baba Yaga, the Horrible]";
			mes "Cough, cough.";
			mes "Hu, I talked so much";
			mes "that it hurts me, Kaaaak~";
			close;
		}
	}
	else if (mos_nowinter == 8) {
		mes "[Baba Yaga, the Horrible]";
		mes "It is very, very hard to return alive";
		mes "from a lair of a dragon";
		mes "without strength and courage.";
		next;
		mes "[Baba Yaga, the Horrible]";
		mes "Unless you want to be killed,";
		mes "you'd better forget";
		mes "the magic gourd bottle, cough!";
		close;
	}
	else if (mos_nowinter == 9) {
		if (countitem(7761) > 0) {
			mes "[Baba Yaga, the Horrible]";
			mes "Akkkk?";
			mes "Did you really bring it";
			mes "from the lair of the dragon...?";
			next;
			mes "[Baba Yaga, the Horrible]";
			mes "You are superbly great.";
			mes "I don't know whether";
			mes "you killed the dragon or";
			mes "you just stole it from the dragon,";
			mes "either way I don't care.";
			next;
			mes "[Baba Yaga, the Horrible]";
			mes "It is great that";
			mes "you've returned alive";
			mes "from the lair of the dragon, cough!";
			next;
			mes "[Baba Yaga, the Horrible]";
			mes "Here, I told you before that";
			mes "this gourd bottle can";
			mes "contain people's speech";
			next;
			mes "[Baba Yaga, the Horrible]";
			mes "The next thing that we have to do";
			mes "is to recieve sincere speechs from";
			mes "people with this bottle.";
			next;
			mes "[Baba Yaga, the Horrible]";
			mes "The important thing is that";
			mes "you cannot force them to speak.";
			mes "For example, you cannot tell them";
			mes "to say 'I don't want winter to come.'";
			next;
			mes "[Baba Yaga, the Horrible]";
			mes "You should have them";
			mes "speak naturally.";
			mes "Ah, one more thing that";
			mes "you have to take care to remember.";
			next;
			mes "[Baba Yaga, the Horrible]";
			mes "You need to have the";
			mes "voices of three people.";
			mes "From a child, a young person and a";
			mes "middle aged person.";
			next;
			mes "[Baba Yaga, the Horrible]";
			mes "The magic is not just witchcraft";
			mes "This type of magic is effective";
			mes "only by embodying the desires of people.";
			next;
			mes "[Baba Yaga, the Horrible]";
			mes "Take care of yourself, cough, cough.";
			set mos_nowinter,10;
			close;
		}else{
			mes "[Baba Yaga, the Horrible]";
			mes "It is very, very hard to return alive";
			mes "from a lair of a dragon";
			mes "without strength and courage.";
			next;
			mes "[Baba Yaga, the Horrible]";
			mes "Unless you want to be killed";
			mes "you'd better forget";
			mes "the magic gourd bottle, cough!";
			close;
		}
	}
	else if (mos_nowinter == 10) {
		mes "[Baba Yaga, the Horrible]";
		mes "To make the magic,";
		mes "I need you to contain";
		mes "the wish phrase 'I don't want winter to come.'";
		mes "from the three people, kkk.";
		next;
		mes "[Baba Yaga, the Horrible]";
		mes "But, one thing that you need to remember";
		mes "is, do not force them to say it!";
		next;
		mes "[Baba Yaga, the Horrible]";
		mes "Next,";
		mes "you should contain the word from";
		mes "a child, a young man and a middle aged man.";
		next;
		mes "[Baba Yaga, the Horrible]";
		mes "Well, take care of yourself.";
		mes "Cough, cough, cough!";
		close;
	}
	else if (mos_nowinter > 10 && mos_nowinter < 14) {
		mes "[Baba Yaga, the Horrible]";
		mes "My place has been revealed, cough, cough.";
		mes "because of you!";
		next;
		mes "[Baba Yaga, the Horrible]";
		mes "What did you do outside?";
		mes "The soldiers of the Csar are";
		mes "surrounding here so that";
		mes "I cannot go out.";
		close;
	}
	else if (mos_nowinter == 14) {
		mes "[Baba Yaga, the Horrible]";
		mes "Did you do";
		mes "what I told";
		mes "you to do?";
		next;
		if (countitem(7761) > 0) {
			delitem 7761,1;
			mes "[Baba Yaga, the Horrible]";
			mes "Anyway, give me the bottle and";
			mes "think about";
			mes "what to do, cough!";
			next;
		}else{
			mes "[Baba Yaga, the Horrible]";
			mes "Where is the Gourd Bottle?";
			mes "I can't do anything without it.";
			mes "Cough, cough!";
			close;
		}
		mes "[Baba Yaga, the Horrible]";
		mes "This bottle will be";
		mes "used later and now,";
		mes "the last step remains";
		mes "to complete the work.";
		mes "Pass me the book.";
		next;
		mes "[Baba Yaga, the Horrible]";
		mes "My abilities are deteriorating";
		mes "and magic should only be";
		mes "done by a single person.";
		mes "So, you must compound the materials yourself,";
		mes "kaaaaak!";
		next;
		mes "[Baba Yaga, the Horrible]";
		mes "I know it is hard to do,";
		mes "but it is the magic that";
		mes "embodies and reveals";
		mes "people's desires.";
		mes "It is useless unless you put your";
		mes "full effort into it, cough!";
		next;
		mes "[Baba Yaga, the Horrible]";
		mes "Ok, you see that book??";
		mes "The letters on the book ";
		mes "are illegible,";
		mes "But you'll be able to read it 'cuz";
		mes "I added comments under the lines for you.";
		next;
		mes "[Baba Yaga, the Horrible]";
		mes "Read carefully and just follow what";
		mes "it tells you.";
		mes "The magic is complete.";
		mes "Do your best,";
		mes "Cough!";
		set mos_nowinter,15;
		close;
	}
	else if (mos_nowinter == 15 || mos_nowinter == 16) {
		mes "[Baba Yaga, the Horrible]";
		mes "Magic does not come from";
		mes "something mysterious.";
		next;
		mes "[Baba Yaga, the Horrible]";
		mes "It is your effort";
		mes "that makes magic.";
		mes "There is a saying,";
		mes "if you really want it,";
		mes "it will happen, cough!";
		next;
		mes "[Baba Yaga, the Horrible]";
		mes "Here, according to the book";
		mes "put the materials in the pot and";
		mes "boil them for some time.";
		close;
	}
	else if (mos_nowinter == 17) {
		mes "[Baba Yaga, the Horrible]";
		mes "Ehmmm...";
		mes "Don't you think that";
		mes "something is wrong?";
		next;
		mes "[Baba Yaga, the Horrible]";
		mes "Well, try it again.";
		mes "We still have enough materials.";
		set mos_nowinter,16;
		close;
	}
	else if (mos_nowinter == 18) {
		mes "[Baba Yaga, the Horrible]";
		mes "Let me see, hmm!";
		next;
		mes "[Baba Yaga, the Horrible]";
		mes "Hmm, this might be your first time, but";
		mes "this is good.";
		mes "You may be talented, kkkk.";
		next;
		mes "[Baba Yaga, the Horrible]";
		mes "Now then, we are in the final step.";
		mes "I'll put the medicine in the bottle,";
		mes "you break it by dropping it";
		mes "in the center of the town.";
		next;
		mes "[Baba Yaga, the Horrible]";
		mes "If you do this, what the viallagers want";
		mes "will be happeing,";
		mes "forever.";
		set mos_nowinter,19;
		getitem 7765,1;
		close;
	}
	else if (mos_nowinter == 19) {
		mes "[Baba Yaga, the Horrible]";
		mes "You just drop the bottle";
		mes "in the middle of the village";
		mes "to break it.";
		next;
		mes "[Baba Yaga, the Horrible]";
		mes "And then,";
		mes "It doesn't matter to me";
		mes "if you tell the whole town or";
		mes "report to the Csar to be praised.";
		next;
		mes "[Baba Yaga, the Horrible]";
		mes "But, don't come back to me, cough, cough.";
		close;
	}
	else {
		mes "[Baba Yaga, the Horrible]";
		mes "Hey,";
		mes "I told you";
		mes "to never come back, cough.";
		next;
		mes "[Baba Yaga, the Horrible]";
		mes "Stop disturbing me.";
		close;
	}
}

//----------------------------------------------------------------------------
// Book
//----------------------------------------------------------------------------
mosk_in,217,45,0	script	#book_russia	111,{
	if (mos_nowinter == 15) {
		mes "-Beside the pot,";
		mes "There is an unusually large book.";
		mes "The letters are in disarray and";
		mes "some of them, I can't understand.";
		mes "The comments by Baba Yaga";
		mes "help me read some of them.-";
		next;
		mes "-Ok, time to read it.-";
		next;
		mes "...Therefore, this spell is";
		mes "particularly good among our mighty ones.";
		mes "Usually, the magic is considered";
		mes "as a contract with evil.";
		mes "But, the following is not the power";
		mes "of Hell but of Nature and the spirit of humans.";
		mes "I already told you that this spell";
		mes "has 2 features as follows.";
		mes "First, it changes natural phenomenon.";
		mes "Unlike the idea from foolish scholars,";
		mes "this world is composed of invisable and precise orders.";
		mes "The things that people call";
		mes "miracles are made by stimulating";
		mes "them or simply altering their arrangement.";
		mes "Most of the spells for weather";
		mes "changing are included in them and";
		mes "they require a high level of comprehension.";
		mes "The orders of this world are not simply aligned.";
		mes "It is amost impossible to observe";
		mes "the smallest and detailed part of";
		mes "them and completely understand their structure";
		mes "However, it is not that difficult";
		mes "to repeat the spells that are already made.";
		mes "This thick spell book is for that purpose.";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "That? That's just the preface?!";
		next;
		mes "...The second feature is";
		mes "This spell book represents the desire of mankind.";
		mes "Their spirit is so great,";
		mes "sometimes flames in their hearts";
		mes "are embodied and become reality.";
		mes "Now, practice one of the spells for weather.";
		mes "You have to go to a damp and deserted place,";
		mes "and have a pot of melting materials";
		mes "along with the spirit of the caster.";
		mes "The next spells should be conducted";
		mes "through the exact process.";
		mes "If you realize that something is";
		mes "wrong, you'd MUST stop immediately.";
		mes "To prevent the ordinary from";
		mes "abusing the magic,";
		mes "the narratives of the materials are metaphors,";
		mes "but, whoever understands this can";
		mes "read everything in it.";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "It just accounts for the spell.";
		mes "What a long preface.";
		mes "I'll mark this spot.";
		mes "so I can easily find the mixing";
		mes "process next time...";
		set mos_nowinter,16;
		next;
		mes "^0000ffSeasonal Magic^000000:^ff0000Eternal Summer^000000";
		mes "First of all, you need to put and";
		mes "mix the first 3 things in a pre-heated pot.";
		mes "The extended arms of those who stalk at night,";
		mes "The rotten mixture of plants and animals,";
		mes "and the limbs of one going forward,";
		mes "who wants to run backward.";
		mes "This first stage should be complete.";
		mes "Just after this stage, the mixture";
		mes "will barely show any alteration.";
		mes "After this, you must add the liquid";
		mes "that aids all life and stir 20 times.";
		mes "At this point you will certainly";
		mes "see its color and smell changing.";
		mes "Remember that if you realize that";
		mes "something is wrong, you must stop and start over.";
		mes "Following these precise steps are";
		mes "most important when working on magic.";
		mes "Next, 2 things must be put in the pot.";
		mes "First, objects that are seen when";
		mes "looking at the night sky.";
		mes "Second the pretty mass of earth,";
		mes "slipping through even when watered.";
		mes "You should check if it's smell has changed.";
		mes "Then stir it well 15 times.";
		mes "It's color will change.";
		mes "The final ingredients will be those";
		mes "that contain heat.";
		mes "You must follow the order.";
		mes "Stones that have the attribute of sun,";
		mes "brains of a marine sphere,";
		mes "the organ of passion,";
		mes "and a stone that cannot be cut.";
		mes "Once the final ingredient is placed in the pot,";
		mes "It will be over.";
		mes "The solution must be sprinkled at";
		mes "the place where you want to affect,";
		mes "the changing of the seasons.";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "I'll mark this page so that I";
		mes "know where to read next time.";
		close;
	}
	else if (mos_nowinter == 16) {
		if(select("Read from the preface.:Read from the marked page.") == 1) {
			mes "...Therefore, this spell is";
			mes "particularly good among our mighty ones.";
			mes "Usually, the magic is considered";
			mes "as a contract with evil.";
			mes "But, the following is not the power";
			mes "of Hell but of Nature and the spirit of humans.";
			mes "I already told you that this spell";
			mes "has 2 features as follows.";
			mes "First, it changes natural phenomenon.";
			mes "Unlike the idea from foolish scholars,";
			mes "this world is composed of invisable and precise orders.";
			mes "The things that people call";
			mes "miracles are made by stimulating";
			mes "them or simply altering their arrangement.";
			mes "Most of the spells for weather";
			mes "changing are included in them and";
			mes "they require a high level of comprehension.";
			mes "The orders of this world are not simply aligned.";
			mes "It is amost impossible to observe";
			mes "the smallest and detailed part of";
			mes "them and completely understand their structure";
			mes "However, it is not that difficult";
			mes "to repeat the spells that are already made.";
			mes "This thick spell book is for that purpose.";
			next;
			mes "...The second feature is";
			mes "This spell book represents the desire of mankind.";
			mes "Their spirit is so great,";
			mes "sometimes flames in their hearts";
			mes "are embodied and become reality.";
			mes "Now, practice one of the spells for weather.";
			mes "You have to go to a damp and deserted place,";
			mes "and have a pot of melting materials";
			mes "along with the spirit of the caster.";
			mes "The next spells should be conducted";
			mes "through the exact process.";
			mes "If you realize that something is";
			mes "wrong, you'd MUST stop immediately.";
			mes "To prevent the ordinary from";
			mes "abusing the magic,";
			mes "the narratives of the materials are metaphors,";
			mes "but, whoever understands this can";
			mes "read everything in it.";
			next;
			mes "^0000ffSeasonal Magic^000000:^ff0000Eternal Summer^000000";
			mes "First of all, you need to put and";
			mes "mix the first 3 things in a pre-heated pot.";
			mes "The extended arms of those who stalk at night,";
			mes "The rotten mixture of plants and animals,";
			mes "and the limbs of one going forward,";
			mes "who wants to run backward.";
			mes "This first stage should be complete.";
			mes "Just after this stage, the mixture";
			mes "will barely show any alteration.";
			mes "After this, you must add the liquid";
			mes "that aids all life and stir 20 times.";
			mes "At this point you will certainly";
			mes "see its color and smell changing.";
			mes "Remember that if you realize that";
			mes "something is wrong, you must stop and start over.";
			mes "Following these precise steps are";
			mes "most important when working on magic.";
			mes "Next, 2 things must be put in the pot.";
			mes "First, objects that are seen when";
			mes "looking at the night sky.";
			mes "Second the pretty mass of earth,";
			mes "slipping through even when watered.";
			mes "You should check if it's smell has changed.";
			mes "Then stir it well 15 times.";
			mes "It's color will change.";
			mes "The final ingredients will be those";
			mes "that contain heat.";
			mes "You must follow the order.";
			mes "Stones that have the attribute of sun,";
			mes "brains of a marine sphere,";
			mes "the organ of passion,";
			mes "and a stone that cannot be cut.";
			mes "Once the final ingredient is placed in the pot,";
			mes "It will be over.";
			mes "The solution must be sprinkled at";
			mes "the place where you want to affect,";
			mes "the changing of the seasons.";
			close;
		}
		mes "^0000ffSeasonal Magic^000000:^ff0000Eternal Summer^000000";
		mes "First of all, you need to put and";
		mes "mix the first 3 things in a pre-heated pot.";
		mes "The extended arms of those who stalk at night,";
		mes "The rotten mixture of plants and animals,";
		mes "and the limbs of one going forward,";
		mes "who wants to run backward.";
		mes "This first stage should be complete.";
		mes "Just after this stage, the mixture";
		mes "will barely show any alteration.";
		mes "After this, you must add the liquid";
		mes "that aids all life and stir 20 times.";
		mes "At this point you will certainly";
		mes "see its color and smell changing.";
		mes "Remember that if you realize that";
		mes "something is wrong, you must stop and start over.";
		mes "Following these precise steps are";
		mes "most important when working on magic.";
		mes "Next, 2 things must be put in the pot.";
		mes "First, objects that are seen when";
		mes "looking at the night sky.";
		mes "Second the pretty mass of earth,";
		mes "slipping through even when watered.";
		mes "You should check if it's smell has changed.";
		mes "Then stir it well 15 times.";
		mes "It's color will change.";
		mes "The final ingredients will be those";
		mes "that contain heat.";
		mes "You must follow the order.";
		mes "Stones that have the attribute of sun,";
		mes "brains of a marine sphere,";
		mes "the organ of passion,";
		mes "and a stone that cannot be cut.";
		mes "Once the final ingredient is placed in the pot,";
		mes "It will be over.";
		mes "The solution must be sprinkled at";
		mes "the place where you want to affect,";
		mes "the changing of the seasons.";
		close;
	}
	else if (mos_nowinter > 14) {
		mes "-This book is the magic book that";
		mes "helped me make the medicine, but,";
		mes "I never want to read it again.-";
		close;
	}
	else {
		mes "-It's an unusually large book laid down, open.-";
		close;
	}
}

//----------------------------------------------------------------------------
// Mixing Pot
//----------------------------------------------------------------------------
mosk_in,221,43,0	script	#bowl	111,{
	if (mos_nowinter == 16) {
		mes "-It is a very dirty pot.";
		mes "Something is boiling";
		mes "Baba Yaga might have done something";
		mes "with it.";
		mes "Well, let's get it started.-";
		next;
		while(1) {
			mes "-Something is still being boiled in the pot.";
			mes "What am I going to do?-";
			next;
			switch(select("Put the materials in it.:Pour water in it.:Stir it up.:It is over!")) {
			case 1:
				switch(select("Powder Of Wing Of Bat:Liquid Of Spawn:Grasshopper's Leg:Starsand Of Witch:Fine Grit")) {
				case 1:
					if (.@bat > 0) {
						mes "-I put the Powder Of Wing Of Bat in the pot.";
						mes "Its smell slightly changes.-";
						specialeffect EF_POISONHIT;
						set .@nankai,.@nankai+1;
					}else{
						mes "-I put the Powder Of Wing Of Bat in the pot.";
						mes "It's color slightly changes.-";
						specialeffect EF_SMOKE;
						set .@bat,.@bat+1;
						set .@maho,.@maho+1;
						set .@nankai,.@nankai+1;
					}
					next;
					break;
				case 2:
					if (.@mush > 0) {
						mes "-I put the Liquid Of Spawn in the pot.";
						mes "Its smell slightly changes.-";
						specialeffect EF_POISONHIT;
						set .@nankai,.@nankai+1;
					}else{
						mes "-I put the Liquid Of Spawn in the pot.";
						mes "It's color slightly changes.-";
						specialeffect EF_SMOKE;
						set .@mush,.@mush+1;
						set .@maho,.@maho+1;
						set .@nankai,.@nankai+1;
					}
					next;
					break;
				case 3:
					if (.@locker > 0) {
						mes "-I put the Grasshopper's Leg in the pot.";
						mes "Its smell slightly changes.-";
						specialeffect EF_POISONHIT;
						set .@nankai,.@nankai+1;
					}else{
						mes "-I put the Grasshopper's Leg in the pot.";
						mes "It's color slightly changes.-";
						specialeffect EF_SMOKE;
						set .@locker,.@locker+1;
						set .@maho,.@maho+1;
						set .@nankai,.@nankai+1;
					}
					next;
					break;
				case 4:
					specialeffect EF_POISONHIT;
					set .@nankai,.@nankai+1;
					mes "-I put the Starsand Of Witch in the pot.";
					mes "Its smell slightly changes.-";
					next;
					break;
				case 5:
					specialeffect EF_POISONHIT;
					set .@nankai,.@nankai+1;
					mes "-I put the Fine Grit in the pot.";
					mes "Its smell slightly changes.-";
					next;
					break;
				}
				break;
			case 2:
				specialeffect EF_POISONHIT;
				set .@nankai,.@nankai+1;
				mes "-I pour water in the pot a little.";
				mes "The liquid has become thin.";
				mes "No other remarkable changes";
				mes "have happened.-";
				next;
				break;
			case 3:
				specialeffect EF_POISONHIT;
				set .@nankai,.@nankai+1;
				mes "-I stir it up";
				mes "with a stick several times.";
				mes "No other remarkable changes";
				mes "have happened.-";
				next;
				break;
			case 4:
				specialeffect EF_POISONATTACK;
				mes "["+strcharinfo(0)+"]";
				mes "I will tell Baba Yaga that";
				mes "the work has been done.";
				set mos_nowinter,17;
				close;
			}
		if (.@nankai == 3) {
			}
		}
		specialeffect EF_BUBBLE;
		mes "-The liquid has been changed";
		mes "and is now bubbling.";
		mes "It seems to have shrunk,";
		mes "but not by much.-";
		next;
		mes "-Anyway, the first step is done";
		mes "let's go on the next stage.-";
		next;
		while(1) {
			mes "-Well, What am I going to do?-";
			next;
			switch(select("Put the materials in it.:Pour water in it.:Stir it up.:It is over!")) {
			case 1:
				switch(select("Powder Of Wing Of Bat:Liquid Of Spawn:Grasshopper's Leg:Starsand Of Witch:Fine Grit")) {
				case 1:
					specialeffect EF_POISONHIT;
					set .@nankai,.@nankai+1;
					mes "-I put the Powder Of Wing Of Bat in it.";
					mes "It's smell drastically changes.-";
					next;
					break;
				case 2:
					specialeffect EF_POISONHIT;
					set .@nankai,.@nankai+1;
					mes "-I put the Liquid Of Spawn in the pot.";
					mes "It's smell drastically changes.-";
					next;
					break;
				case 3:
					specialeffect EF_POISONHIT;
					set .@nankai,.@nankai+1;
					mes "-I put the Grasshopper's Leg in the pot.";
					mes "It's smell drastically changes.-";
					next;
					break;
				case 4:
					if (.@nankai == 5 || .@nankai == 6) {
						if (.@star > 0) {
							specialeffect EF_POISONHIT;
							mes "-I put the Starsand Of Witch in the pot.";
							mes "Its color slightly changes.-";
							next;
						}else{
							mes "-I put the Starsand Of Witch in the pot.";
							mes "Its smell slightly changes.-";
							specialeffect EF_SMOKE;
							set .@maho,.@maho+1;
							set .@star,.@star+1;
							next;
						}
					}else{
						specialeffect EF_POISONHIT;
						mes "-I put the Starsand Of Witch in the pot.";
						mes "Its color slightly changes.-";
						set .@star,.@star+1;
						next;
					}
					set .@nankai,.@nankai+1;
					break;
				case 5:
					if (.@nankai == 5 || .@nankai == 6) {
						if (.@sand > 0) {
							specialeffect EF_POISONHIT;
							mes "-I put the Fine Grit in the pot.";
							mes "Its color slightly changes.-";
							next;
						}else{
							mes "-I put the Fine Grit in the pot.";
							mes "Its smell slightly changes.-";
							specialeffect EF_SMOKE;
							set .@sand,.@sand+1;
							set .@maho,.@maho+1;
							next;
						}
					}else{
						specialeffect EF_POISONHIT;
						mes "-I put the Fine Grit in the pot.";
						mes "Its color slightly changes.-";
						set .@sand,@sand+1;
						next;
					}
					set .@nankai,.@nankai+1;
				}
				break;
			case 2:
				if (.@nankai == 3) {
					mes "-I pour water in the pot a little.";
					mes "The boiling sounds stronger as if";
					mes "something in the cloudy liquid";
					mes "has changed.-";
					specialeffect EF_DRAGONSMOKE;
					set .@maho,.@maho+1;
					set .@nankai,.@nankai+1;
					next;
				}else{
					specialeffect EF_POISONHIT;
					mes "-I pour water in the pot and, the liquid gets thin.-";
					set .@nankai,.@nankai+1;
					next;
				}
				break;
			case 3:
				if (.@nankai == 4) {
					mes "["+strcharinfo(0)+"]";
					mes "Ok, I will stir it up this time.";
					mes "How many times should I..?";
					next;
					input .@input;
					if (.@input == 20) {
						mes "-It must be 20 times.-";
						next;
						specialeffect EF_WIND;
						mes "-Stirring up makes it";
						mes "brighter and";
						mes "its smell gets";
						mes "more bearable.";
						set .@maho,.@maho+1;
						set .@nankai,.@nankai+1;
						next;
					}
					else if (.@input == 0) {
						mes "-I won't stir it up.-";
						next;
					}
					else if (.@input > 100) {
						mes "-It won't be able";
						mes "to stir so many times.";
						mes "Let me think again.-";
						next;
					}
					else {
						mes "-Yes, it must be " + .@input + " times.-";
						next;
						mes "-I stir it up really hard.";
						mes "It is boiled.-";
						set .@nankai,.@nankai+1;
						next;
					}
				}else{
					mes "-Bubble, bubble-";
					next;
					mes "["+strcharinfo(0)+"]";
					mes "Something changed?";
					set .@nankai,.@nankai+1;
					next;
				}
				break;
			case 4:
				mes "["+strcharinfo(0)+"]";
				mes "I will tell Baba Yaga that";
				mes "it has been done.";
				set mos_nowinter,17;
				specialeffect EF_POISONATTACK;
				close;
			}
		if (.@nankai == 7) {
			}
		}
		mes "-I am sure that the book told me";
		mes "to wait for some time.-";
		next;
		mes "............";
		next;
		mes "............";
		next;
		mes "-The smell of the liquid boiling in";
		mes "the pot has changed enough.";
		mes "Let's go on to the next stage.-";
		next;
		while(1) {
			mes "-Well, What am I going to do?-";
			next;
			switch(select("Put the materials in it.:Pour water in it.:Stir it up.:It is over!")) {
			case 1:
				if (.@nankai != 11) {
					switch(select("Witched Starsand:Fine Grit:Detonator:Red Blood:Burning Heart")) {
					case 1:
						specialeffect EF_POISONHIT;
						set .@nankai,.@nankai+1;
						mes "-I put the Starsand Of Witch in the pot.";
						mes "Its smell slightly changes.-";
						next;
						break;
					case 2:
						specialeffect EF_POISONHIT;
						set .@nankai,.@nankai+1;
						mes "I put the Fine Grit in the pot.";
						mes "Its smell slightly changes.-";
						next;
						break;
					case 3:
						if (.@nankai == 9) {
							mes "-I put the Detonator in the pot.";
							mes "The smell has been changed a little.-";
							specialeffect EF_SMOKE;
							set .@maho,.@maho+1;
							set .@nankai,.@nankai+1;
							next;
						}else{
							specialeffect EF_POISONHIT;
							mes "-I put the Detonator in the pot.";
							mes "The smell gets worse.-";
							set .@nankai,.@nankai+1;
							next;
						}
						break;
					case 4:
						if (.@nankai == 8) {
							mes "-I put the Boody Red in the pot.-";
							mes "The smell has been changed a little.-";
							specialeffect EF_SMOKE;
							set .@maho,.@maho+1;
							set .@nankai,.@nankai+1;
							next;
						}else{
							specialeffect EF_POISONHIT;
							mes "-I put the Boody Red in the pot.";
							mes "The smell gets worse.-";
							set .@nankai,.@nankai+1;
							next;
						}
						break;
					case 5:
						if (.@nankai == 10) {
							mes "-I put the Burning Heart in the pot.";
							mes "The smell has been changed a little.-";
							specialeffect EF_SMOKE;
							set .@maho,.@maho+1;
							set .@nankai,.@nankai+1;
							next;
						}else{
							specialeffect EF_POISONHIT;
							mes "-I put the Burning Heart in the pot.";
							mes "The smell gets worse.-";
							set .@nankai,.@nankai+1;
							next;
						}
					}
				}else{
					switch(select("Witched Starsand:Fine Grit:Detonator:Red Blood:Burning Heart:Piece Of Diamond")) {
					case 1:
						set .@nankai,.@nankai+1;
						specialeffect EF_POISONHIT;
						mes "-I put the Starsand Of Witch in the pot.";
						mes "The smell gets worse.-";
						next;
						break;
					case 2:
						set .@nankai,.@nankai+1;
						specialeffect EF_POISONHIT;
						mes "I put the Fine Grit in the pot.";
						mes "The smell gets worse.-";
						next;
						break;
					case 3:
						mes "-I put the Detonator in the pot.";
						mes "The smell gets worse.-";
						specialeffect EF_POISONHIT;
						set .@nankai,.@nankai+1;
						next;
						break;
					case 4:
						mes "-I put the Boody Red in the pot.";
						mes "The smell gets worse.-";
						specialeffect EF_POISONHIT;
						set .@nankai,.@nankai+1;
						next;
						break;
					case 5:
						mes "-I put the Burning Heart in the pot.";
						mes "The smell gets better.-";
						specialeffect EF_POISONHIT;
						set .@nankai,.@nankai+1;
						next;
						break;
					case 6:
						mes "-I put a Piece Of Diamond in the pot.";
						mes "The solution alters in color.-";
						specialeffect EF_SMOKE;
						set .@maho,.@maho+1;
						set .@nankai,.@nankai+1;
						next;
						break;
					}
				}
				break;
			case 2:
				set .@nankai,.@nankai+1;
				mes "-I pour water in the pot a little.";
				mes "The smell gest better.-";
				next;
				break;
			case 3:
				if (.@nankai == 7) {
					mes "["+strcharinfo(0)+"]";
					mes "Ok, I will stir it up this time.";
					mes "How many times should I...?";
					next;
					input .@input;
					if (.@input == 15) {
						mes "-It must be 15 times.-";
						next;
						specialeffect EF_WIND;
						mes "-Stirring up makes it";
						mes "brighter.-";
						set .@maho,.@maho+1;
						set .@nankai,.@nankai+1;
						next;
					}
					else if (.@input == 0) {
						mes "-I won't stir it up.-";
						next;
					}
					else if (.@input > 100) {
						mes "-It won't be to";
						mes "stir so many times.";
						mes "Let me think again.-";
						next;
					}
					else {
						mes "-Yes, it must be " + .@input + " times.-";
						next;
						mes "-I stir it up really hard.";
						mes "It is boiled.-";
						set .@nankai,.@nankai+1;
						next;
					}
				}else{
					mes "-Bubble, bubble-";
					next;
					mes "["+strcharinfo(0)+"]";
					mes "Something changed?";
					set .@nankai,.@nankai+1;
					next;
				}
				break;
			case 4:
				if (.@maho == 12) {
					mes "-It seems that the work is over.";
					mes "I need to show this to Baba Yaga.-";
					set mos_nowinter,18;
					specialeffect EF_GASPUSH;
					close;
				}else{
					mes "-It seems that the work is over.";
					mes "I need to show this to Baba Yaga.-";
					specialeffect EF_POISONATTACK;
					set mos_nowinter,17;
					close;
				}
			}
		}
	}
}

//----------------------------------------------------------------------------
// Center of Town
//----------------------------------------------------------------------------
moscovia,224,190,0	script	#nowinterplz	844,{
	if (mos_nowinter == 19) {
		if (countitem(7765) > 0) {
			mes "["+strcharinfo(0)+"]";
			mes "This place must be";
			mes "the center of town...";
			next;
			mes "["+strcharinfo(0)+"]";
			mes "Ok, let's do it!";
			next;
			mes "-I drop the magic bottle";
			mes "containing Baba Yaga's";
			mes "Secret Medicine.-";
			delitem 7765,1;
			specialeffect EF_BARRIER;
			set mos_nowinter,20;
			next;
			mes "-You feel like your";
			mes "body is heating up.";
			mes "It's much hotter";
			mes "than before.-";
			next;
			mes "["+strcharinfo(0)+"]";
			mes "I'm sure that the season has changed";
			mes "But how can I confirm this?";
			next;
			mes "["+strcharinfo(0)+"]";
			mes "First I'm going to see the Csar.";
			mes "He would like to hear about this.";
			close;
		}else{
			mes "["+strcharinfo(0)+"]";
			mes "Ah, where did I place";
			mes "the magic bottle that Baba Yaga gave to me...";
			close;
		}
	}else{
		end;
	}
}

//----------------------------------------------------------------------------
// Villagers
//----------------------------------------------------------------------------
moscovia,252,203,5	script	A Little Girl#mos1	958,{
	if (mos_nowinter == 10) {
		if (mos_kid == 1) {
			mes "[Yosefina]";
			mes "Baba Yaga, the Horrible Cannibal";
			mes "is living outside the town.";
			next;
			mes "[Yosefina]";
			mes "My mom told me.";
			mes "that she is real.";
			close;
		}else{
			set .@kid,rand(1,100);
			select("Do you like the warm weather, little girl?");
			if (.@kid > 70) {
				mes "[Yosefina]";
				mes "Yes, I like it very much~";
				mes "I never want it to leave. I don't want winter to come.";
				specialeffect2 EF_SUMMONSLAVE;
				set mos_kid,1;
				if (mos_middle == 1 && mos_elder == 1) {
					set mos_nowinter,11;
				}
				close;
			}else{
				mes "[Yosefina]";
				mes "Yes, I like it very much~";
				mes "But, as soon as the sun sets I must go back home.";
				next;
				mes "[Yosefina]";
				mes "Baba Yaga kidnaps";
				mes "bad kids wandering";
				mes "in the night, I heard.";
				close;
			}
		}
	}else{
		mes "[Yosefina]";
		mes "Baba Yaga, the Horrible Cannibal";
		mes "is living outside the town.";
		next;
		mes "[Yosefina]";
		mes "My mom told me.";
		mes "that she is real.";
		close;
	}
}

moscovia,233,204,3	script	A Young Man#mos2	968,{
	if (mos_nowinter == 10) {
		if (mos_middle == 1) {
			mes "[Fedor]";
			mes "Finally, winter is over.";
			mes "Spring is coming";
			mes "to my mind...";
			close;
		}else{
			select("You don't like winter, do you?");
			set .@kid,rand(1,100);
			if (.@kid > 70) {
				mes "[Fedor]";
				mes "No, I don't like the cold winter.";
				mes "And I get angry when";
				mes "seeing couples.";
				specialeffect2 EF_SUMMONSLAVE;
				set mos_middle,1;
				if (mos_kid == 1 && mos_elder == 1) {
					set mos_nowinter,11;
				}
				close;
			}else{
				mes "[Fedor]";
				mes "Huuuu, I wish I could have a girlfriend";
				mes "I would be able to enjoy the warm sunlight better...";
				next;
				mes "[Fedor]";
				mes "Who are you?";
				mes "Don't make matters worse!";
				close;
			}
		}
	}else{
		mes "[Fedor]";
		mes "Finally, winter is over.";
		mes "Spring is coming";
		mes "to my mind...";
		close;
	}
}

moscovia,219,229,5	script	A Middle-Aged Man#mos3	964,{
	if (mos_nowinter == 10) {
		if (mos_elder == 1) {
			mes "[Viktor]";
			mes "Our people are very, very";
			mes "proud of their strength and";
			mes "invincible spirits.";
			next;
			mes "[Viktor]";
			mes "It doesn't matter to us";
			mes "how cold the winter is!";
			close;
		}else{
			set .@kid,rand(1,100);
			select("Who ever likes the winter?");
			if (.@kid > 70) {
				mes "[Viktor]";
				mes "Tell me about it!";
				mes "Everyone will be sad";
				mes "when it comes again.";
				mes "I don't want winter to come.";
				specialeffect2 EF_SUMMONSLAVE;
				set mos_elder,1;
				if (mos_kid == 1 && mos_middle == 1) {
					set mos_nowinter,11;
				}
				close;
			}else{
				mes "[Viktor]";
				mes "Hmm, do you think so...";
				mes "I am too familar with both";
				mes "summer and winter to care much for";
				mes "one over the other.";
				close;
			}
		}
	}else{
		mes "[Viktor]";
		mes "Our people are very, very";
		mes "proud of their strength and";
		mes "invincible spirits.";
		next;
		mes "[Viktor]";
		mes "It doesn't matter to us";
		mes "how cold the winter is!";
		close;
	}
}

moscovia,255,203,3	script	A Little Boy#mos4	962,{
	if (mos_nowinter == 10) {
		if (mos_kid == 1) {
			mes "[Vasili]";
			mes "Wow, he is";
			mes "an adventurer, an adventurer!!";
			next;
			mes "[Vasili]";
			mes "Tell me your exciting story.";
			mes "Have you fought a dragon?";
			mes "Where is your gold-shining sword and shield?";
			mes "Where?";
			close;
		}else{
			mes "[Vasili]";
			mes "Wow, he is";
			mes "an adventurer, an adventurer!!";
			next;
			mes "[Vasili]";
			mes "Why did you come here?";
			mes "Don't you have any colleague?";
			mes "I heard that the heroes in epics were tall,";
			mes "but, why are you so small?";
			mes "Where is your gold-shining sword?";
			mes "I heard that the armor gliterred white,";
			mes "but, why don't you have on the armor?";
			mes "Won't you go for aonther adventure?";
			mes "How can you do it in the cold and snowy winter?";
			next;
			set .@kid,rand(1,100);
			select("I will go if it gets warm.");
			if (.@kid > 70) {
				mes "[Vasili]";
				mes "Will you? I will also";
				mes "go out for adventures";
				mes "with shining armor and";
				mes "a long and heavy sword";
				mes "some day.";
				next;
				specialeffect2 EF_SUMMONSLAVE;
				mes "[Vasili]";
				mes "If winter is gone,";
				mes "it is much easier to go on adventures.";
				set mos_kid,1;
				if (mos_middle == 1 && mos_elder == 1) {
					set mos_nowinter,11;
				}
				close;
			}else{
				mes "[Vasili]";
				mes "Ah, when are you leaving?";
				mes "Where are you going this time?";
				next;
				mes "[Vasili]";
				mes "Will you go to slay the dragon,";
				mes "that breathes fire and can";
				mes "exterminates 10 men by flapping";
				mes "its wings once?";
				close;
			}
		}
	}else{
		mes "[Vasili]";
		mes "Wow, he is";
		mes "an adventurer, an adventurer!!";
		next;
		mes "[Vasili]";
		mes "Tell me your exciting story.";
		mes "Have you fought a dragon?";
		mes "Where is your gold-shining sword and shield?";
		mes "Where?";
		close;
	}
}

moscovia,204,188,5	script	A Lady#mos5	959,{
	if (mos_nowinter == 10) {
		if (mos_middle == 1) {
			mes "[Katya]";
			mes "The spring has come~";
			next;
			mes "[Katya]";
			mes "A million sunflowers are blooming~";
			close;
		}else{
			set .@kid,rand(1,100);
			select("You look good today.");
			if (.@kid > 70) {
				mes "[Katya]";
				mes "Yes, I feel good.";
				mes "When it gets warm, sunflowers bloom.";
				mes "The sunflower is the symbol";
				mes "of this province.";
				next;
				specialeffect2 EF_SUMMONSLAVE;
				mes "[Katya]";
				mes "I wish that winter never comes back and";
				mes "I could see sunflowers everyday.";
				set mos_middle,1;
				if (mos_kid == 1 && mos_elder == 1) {
					set mos_nowinter,11;
				}
				close;
			}else{
				mes "[Katya]";
				mes "Yes, I feel good.";
				mes "When it gets warm, sunflowers bloom.";
				mes "The sunflower is the symbol";
				mes "of this province.";
				close;
			}
		}
	}else{
		mes "[Katya]";
		mes "The spring has come~";
		next;
		mes "[Katya]";
		mes "A million sunflowers are blooming~";
		close;
	}
}

moscovia,167,97,3	script	A Lady#mos6	961,{
	if (mos_nowinter == 10) {
		if (mos_elder == 1) {
			mes "[Roza]";
			mes "Naughty children get too";
			mes "excited in the warm days.";
			next;
			mes "[Roza]";
			mes "Where is the sun?";
			mes "Where is it hiding?";
			close;
		}else{
			set .@kid,rand(1,100);
			select("The weather is getting warmer.");
			if (.@kid > 70) {
				mes "[Roza]";
				mes "Yes, kids like it and";
				mes "flowers are blooimg.";
				next;
				specialeffect2 EF_SUMMONSLAVE;
				mes "[Roza]";
				mes "Who ever likes the cold and dark winter?";
				mes "I hope this weather last forever.";
				set mos_elder,1;
				if (mos_kid == 1 && mos_middle == 1) {
					set mos_nowinter,11;
				}
				close;
			}else{
				mes "[Roza]";
				mes "In the warm days,";
				mes "I'm in trouble.";
				mes "It's too hard to control";
				mes "the children.";
				next;
				mes "[Roza]";
				mes "I think";
				mes "I need winter again.";
				close;
			}
		}
	}else{
		mes "[Roza]";
		mes "Naughty children get too";
		mes "excited in the warm days.";
		next;
		mes "[Roza]";
		mes "Where is the sun?";
		mes "Where is it hiding?";
		close;
	}
}

moscovia,202,102,3	script	A Little Boy#mos7	962,{
	if (mos_nowinter == 10) {
		if (mos_kid == 1) {
			mes "[Feliks]";
			mes "This is the story";
			mes "about a terrible dragon.";
			next;
			mes "[Feliks]";
			mes "It is sleeping";
			mes "in its lair,";
			mes "but, it destroys everything";
			mes "around it when it awakes.";
			next;
			mes "[Feliks]";
			mes "This came from my grandma's";
			mes "grandma's grandma's";
			mes "grandma's grandma's";
			mes "grandma's grandma.";
			close;
		}else{
			set .@kid,rand(1,100);
			select("Do you like mysterious stories?");
			if (.@kid > 70) {
				mes "[Feliks]";
				mes "Yes, I love them.";
				mes "But, in winter,";
				mes "nobody comes out of their homes.";
				mes "So its not very fun.";
				next;
				specialeffect2 EF_SUMMONSLAVE;
				mes "[Feliks]";
				mes "If winter never comes";
				mes "I can have";
				mes "fun all the time...";
				set mos_kid,1;
				if (mos_middle == 1 && mos_elder == 1) {
					set mos_nowinter,11;
				}
				close;
			}else{
				mes "[Feliks]";
				mes "Yes, my Grandma told me";
				mes "fairy-tales.";
				mes "The winter is cold, but";
				mes "it is fun to hear them.";
				close;
			}
		}
	}else{
		mes "[Feliks]";
		mes "This is the story";
		mes "about a terrible dragon.";
		next;
		mes "[Feliks]";
		mes "It is sleeping";
		mes "in its lair,";
		mes "but, it destroys everything";
		mes "around it when it awakes.";
		next;
		mes "[Feliks]";
		mes "This came from my grandma's";
		mes "grandma's grandma's";
		mes "grandma's grandma's";
		mes "grandma's grandma.";
		close;
	}
}

moscovia,220,172,3	script	A Young Man#mos8	968,{
	if (mos_nowinter == 10) {
		if (mos_middle == 1) {
			mes "[Ilyav]";
			mes "I am going to adventure";
			mes "to experience new worlds";
			mes "as you do.";
			close;
		}else{
			set .@kid,rand(1,100);
			mes "[Ilyav]";
			mes "I am going to adventure";
			mes "to experience new worlds";
			mes "as you do.";
			next;
			select("When do you feel good?");
			if (.@kid > 70) {
				mes "[Ilyav]";
				mes "When the weather is as good as recently";
				mes "I feel an impulse to adventure";
				mes "many times a day.";
				next;
				specialeffect2 EF_SUMMONSLAVE;
				mes "[Ilyav]";
				mes "But, I don't want to in the cold winter.";
				mes "Hu, if the weather everday was as good as lately,";
				mes "I would like to go out a lot more.";
				mes "I hate winter...";
				set mos_middle,1;
				if (mos_kid == 1 && mos_elder == 1) {
					set mos_nowinter,11;
				}
				close;
			}else{
				mes "[Ilyav]";
				mes "Well...";
				mes "I don't know.";
				mes "I just am sometimes.";
				close;
			}
		}
	}else{
		mes "[Ilyav]";
		mes "I am going to adventure";
		mes "to experience new worlds";
		mes "as you do.";
		close;
	}
}

moscovia,253,175,3	script	A Man#mos9	964,{
	if (mos_nowinter == 10) {
		if (mos_elder == 1) {
			mes "[Orek]";
			mes "The present Csar is a bit strict and";
			mes "terrible, but";
			mes "he actually loves";
			mes "his people.";
			close;
		}else{
			set .@kid,rand(1,100);
			select("What do you usually do in winter?");
			if (.@kid > 70) {
				mes "[Orek]";
				mes "It is too cold in winter so I don't go outside.";
				mes "There's so much snow that it makes it hard to go";
				mes "around here and there.";
				next;
				specialeffect2 EF_SUMMONSLAVE;
				mes "[Orek]";
				mes "In winter, fishing is more difficult,";
				mes "anyway, it is bad for us.";
				mes "I think it would be ok if we never had winter again.";
				set mos_elder,1;
				if (mos_kid == 1 && mos_middle == 1) {
					set mos_nowinter,11;
				}
				close;
			}else{
				mes "[Orek]";
				mes "It snows a lot in winter and";
				mes "gets too cold.";
				mes "So, we don't go outside";
				mes "without a particular reason.";
				next;
				mes "[Orek]";
				mes "My family just sits beside the pechka and talks,";
				mes "hoping that winter passes by soon.";
				close;
			}
		}
	}else{
		mes "[Orek]";
		mes "The present Csar is a bit strict and";
		mes "terrible, but";
		mes "he actually loves";
		mes "his people.";
		close;
	}
}

moscovia,168,135,3	script	A Lady#mos10	961,{
	if (mos_nowinter == 10) {
		if (mos_elder == 1) {
			mes "[Kyra]";
			mes "I've seen many people";
			mes "from other provinces recently.";
			next;
			mes "[Kyra]";
			mes "This used to not";
			mes "be a tourist town.";
			mes "What happend...?";
			close;
		}else{
			mes "[Kyra]";
			mes "I've seen many people";
			mes "from other provinces recently.";
			next;
			mes "[Kyra]";
			mes "This used to not";
			mes "be a tourist town.";
			mes "What happend...?";
			next;
			select("Here it is warm and good.");
			set .@kid,rand(1,100);
			if (.@kid > 70) {
				mes "[Kyra]";
				mes "Hohoho, that may be true now.";
				mes "But, you don't even know how cold it gets here in winter.";
				mes "You wouldn't even want to go outside.";
				next;
				specialeffect2 EF_SUMMONSLAVE;
				mes "[Kyra]";
				mes "It is good to stay with my family, but";
				mes "nobody likes the cold winter.";
				set mos_elder,1;
				if (mos_kid == 1 && mos_middle == 1) {
					set mos_nowinter,11;
				}
				close;
			}else{
				mes "[Kyra]";
				mes "Hohoho, that may be true now.";
				mes "But, you don't even know how cold it gets here in winter.";
				mes "You wouldn't even want to go outside.";
				close;
			}
		}
	}else{
		mes "[Kyra]";
		mes "I've seen many people";
		mes "from other provinces recently.";
		next;
		mes "[Kyra]";
		mes "This used to not";
		mes "be a tourist town.";
		mes "What happend...?";
		close;
	}
}

moscovia,192,80,3	script	A Lady#mos11	959,{
	if (mos_nowinter == 10) {
		if (mos_middle == 1) {
			mes "[Sabina]";
			mes "Sunflowers are squeezed for oil and";
			mes "their bodies are used for medicianl purposes.";
			mes "They are very useful.";
			close;
		}else{
			mes "[Sabina]";
			mes "Sunflowers are squeezed for oil and";
			mes "their bodies are used for medicianl purposes.";
			mes "They are very useful.";
			next;
			select("When do sunflowers bloom?");
			set .@kid,rand(1,100);
			if (.@kid > 70) {
				mes "[Sabina]";
				mes "They start to bloom";
				mes "from the late summer.";
				mes "You cannot help being";
				mes "attracted to sunflowers,";
				mes "if you see the spectacluar scene";
				mes "of a field filled up with them.";
				next;
				mes "[Sabina]";
				mes "If the summmer continues to last,";
				mes "I can see them all the time...";
				specialeffect2 EF_SUMMONSLAVE;
				set mos_middle,1;
				if (mos_kid == 1 && mos_elder == 1) {
					set mos_nowinter,11;
				}
				close;
			}else{
				mes "[Sabina]";
				mes "They start to bloom";
				mes "from the late summer.";
				mes "You cannot help being";
				mes "attracted to sunflowers,";
				mes "if you see the spectacluar scene";
				mes "of a field filled up with them.";
				close;
			}
		}
	}else{
		mes "[Sabina]";
		mes "Sunflowers are squeezed for oil and";
		mes "their bodies are used for medicianl purposes.";
		mes "They are very useful.";
		close;
	}
}

moscovia,211,215,5	script	A Young Man#mos12	967,{
	if (mos_nowinter == 10) {
		if (mos_middle == 1) {
			mes "[Izlof]";
			mes "There is a old saying,";
			mes "'an opportunity is a chance.'";
			next;
			mes "[Izlof]";
			mes "It is best to confess";
			mes "to ladies in the warm weather,";
			mes "when their minds wander";
			mes "like right now!";
			close;
		}else{
			set .@kid,rand(1,100);
			mes "[Izlof]";
			mes "There is a old saying,";
			mes "'an opportunity is a chance.'";
			next;
			mes "[Izlof]";
			mes "It is best to confess";
			mes "to ladies in the warm weather,";
			mes "when their minds wander";
			mes "right now!";
			next;
			select("It's good to have warm weather.");
			if (.@kid > 70) {
				mes "[Izlof]";
				mes "Of course.";
				mes "From now on, it is my golden age of apportunity!";
				next;
				specialeffect2 EF_SUMMONSLAVE;
				mes "[Izlof]";
				mes "If it is the summer all the time,";
				mes "my life will be in an amorous mood.";
				mes "Hahaha!";
				mes "I don't want winter to come.";
				set mos_middle,1;
				if (mos_kid == 1 && mos_elder == 1) {
					set mos_nowinter,11;
				}
				close;
			}else{
				mes "[Izlof]";
				mes "Of course.";
				mes "The cold winter has gone.";
				mes "From now on, it is my golden age!";
				close;
			}
		}
	}else{
		mes "[Izlof]";
		mes "There is a old saying,";
		mes "'an opportunity is a chance.'";
		next;
		mes "[Izlof]";
		mes "It is best to confess";
		mes "to ladies in the warm weather,";
		mes "when their minds wander";
		mes "right now!";
		close;
	}
}

moscovia,149,112,3	script	A Man#mos13	964,{
	if (mos_nowinter == 10) {
		if (mos_elder == 1) {
			mes "[Lev]";
			mes "I was once like you,";
			mes "with a hot heart and cool reason,";
			mes "adventuring everywhere and";
			mes "coping with all the troubles...";
			close;
		}else{
			mes "[Lev]";
			mes "I was once like you,";
			mes "with a hot heart and cool reason,";
			mes "adventuring everywhere and";
			mes "coping with all the troubles...";
			next;
			set .@kid,rand(1,100);
			select("You need to take a rest.");
			if (.@kid > 70) {
				mes "[Lev]";
				mes "Yes, under the warm sunlight,";
				mes "I like to rest.";
				next;
				specialeffect2 EF_SUMMONSLAVE;
				mes "[Lev]";
				mes "I hope that this warm weather";
				mes "will last forever.";
				mes "I hate the cold winter.";
				set mos_elder,1;
				if (mos_kid == 1 && mos_middle == 1) {
					set mos_nowinter,11;
				}
				close;
			}else{
				mes "[Lev]";
				mes "Yes, under the warm sunlight,";
				mes "I like to rest.";
				next;
				mes "[Lev]";
				mes "But, I am still alive!";
				mes "I don't want to hear talk";
				mes "like that from you.";
				close;
			}
		}
	}else{
		mes "[Lev]";
		mes "I was once like you,";
		mes "with a hot heart and cool reason,";
		mes "adventuring everywhere and";
		mes "coping with all the troubles...";
		close;
	}
}

moscovia,196,71,3	script	A Young Man#mos14	968,{
	if (mos_nowinter == 10) {
		if (mos_middle == 1) {
			mes "[Fredek]";
			mes "The men here grow up";
			mes "after going through tough waves in";
			mes "the vast sea";
			next;
			mes "[Fredek]";
			mes "Do you like";
			mes "sailing?";
			close;
		}else{
			mes "[Fredek]";
			mes "The men here grow up";
			mes "after going through tough waves in";
			mes "the vast sea";
			next;
			select("However, if winter comes...");
			set .@kid,rand(1,100);
			if (.@kid > 70) {
				mes "[Fredek]";
				mes "Yes, in winter the";
				mes "sea is frozen, so it";
				mes "is impossible to sail.";
				next;
				specialeffect2 EF_SUMMONSLAVE;
				mes "[Fredek]";
				mes "I hope that winter never comes.";
				mes "It is my dream.";
				set mos_middle,1;
				if (mos_kid == 1 && mos_elder == 1) {
					set mos_nowinter,11;
				}
				close;
			}else{
				mes "[Fredek]";
				mes "Although I won't be able";
				mes "to sail, my passion is not";
				mes "cooled down from winter.";
				close;
			}
		}
	}else{
		mes "[Fredek]";
		mes "The men here grow up";
		mes "after going through tough waves in";
		mes "the vast sea";
		next;
		mes "[Fredek]";
		mes "Do you like";
		mes "sailing?";
		close;
	}
}

moscovia,234,168,5	script	A Man#mos15	964,{
	if (mos_nowinter == 10) {
		if (mos_elder == 1) {
			mes "[Gavrel]";
			mes "Don't you think that the castle is magnificent?";
			mes "It was built by my great great grandfather.";
			close;
		}else{
			mes "[Gavrel]";
			mes "Don't you think that the castle is magnificent?";
			mes "It was built by my great great grandfather.";
			next;
			mes "[Gavrel]";
			mes "It is very strong and";
			mes "it is warm inside of it.";
			mes "I am very proud of it.";
			next;
			select("Is it cold much in winter?");
			set .@kid,rand(1,100);
			if (.@kid > 70) {
				mes "[Gavrel]";
				mes "Yes, it is very cold.";
				mes "If you didn't prepare,";
				mes "it would be hard for you.";
				next;
				specialeffect2 EF_SUMMONSLAVE;
				mes "[Gavrel]";
				mes "It would be a lot better";
				mes "if winter never came again.";
				mes "But, design of coldness is";
				mes "winter itself, isn't it?";
				set mos_elder,1;
				if (mos_kid == 1 && mos_middle == 1) {
					set mos_nowinter,11;
				}
				close;
			}else{
				mes "[Gavrel]";
				mes "Yes, it is very cold.";
				mes "If you didn't prepare,";
				mes "it would be hard for you.";
				close;
			}
		}
	}else{
		mes "[Gavrel]";
		mes "Don't you think that the castle is magnificent?";
		mes "It was built by my great great grandfather.";
		close;
	}
}

moscovia,228,80,3	script	A Little Boy#mos16	962,{
	if (mos_nowinter == 10) {
		if (mos_kid == 1) {
			mes "[Rurik]";
			mes "It's hard to look up at you.";
			mes "Come lower so I can see your eyes.";
			next;
			mes "[Rurik]";
			mes "Hmm, that's better.";
			mes "Children are the future.";
			mes "I won't have a future if I fall";
			mes "back and hurt my neck";
			mes "while looking up at you.";
			close;
		}else{
			set .@kid,rand(1,100);
			select("Do you like summer?");
			if (.@kid > 70) {
				mes "[Rurik]";
				mes "Ah, move a bit to the side.";
				mes "a bit more... Yes.";
				mes "Ah, stop there.";
				next;
				mes "[Rurik]";
				mes "I certainly like the summer.";
				mes "Unless the sunlight is too strong,";
				mes "it is much better than the cold winter.";
				next;
				specialeffect2 EF_SUMMONSLAVE;
				mes "[Rurik]";
				mes "By the way, what is this for?";
				mes "It is natural to like the summer.";
				mes "Do you think";
				mes "the winter should come again?";
				set mos_kid,1;
				if (mos_middle == 1 && mos_elder == 1) {
					set mos_nowinter,11;
				}
				close;
			}else{
				mes "[Rurik]";
				mes "Sure, I like the summer.";
				mes "Why are you asking";
				mes "such a question so suddenly?";
				close;
			}
		}
	}else{
		mes "[Rurik]";
		mes "It's hard to look up at you.";
		mes "Come lower so I can see your eyes.";
		next;
		mes "[Rurik]";
		mes "Hmm, that's better.";
		mes "Children are the future.";
		mes "I won't have a future if I fall";
		mes "back and hurt my neck";
		mes "while looking up at you.";
		close;
	}
}

//----------------------------------------------------------------------------
// Magic Bottle
//----------------------------------------------------------------------------
mosk_dun03,225,233,0	script	Pile of skeletons#mosk	111,{
	if (mos_nowinter == 8) {
		mes "-There are ugly skulls";
		mes "all over here but, ";
		mes "this is the only place that I can stay.-";
		next;
		mes "-Get closer to see";
		mes "more carefully.-";
		close;
	}else{
		mes "-The ugly skulls are gathered.-";
		close;
	}
}

mosk_dun03,225,233,0	script	#Magic_Bottle	-1,5,5,{
	end;
	
OnTouch:
	if (mos_nowinter == 8) {
		mes "-She said that the Magic Gourd Bottle that";
		mes "can hold people's speech";
		mes "is around here.-";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "This is probably the only place";
		mes "where the bottle is hidden,";
		mes "but there are bones all over.";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "Anyway, why am I here?";
		mes "It would be trouble if";
		mes "the dragon came back...";
		next;
		while(1) {
			if(select("Look for it.:I will try next time.") == 1) {
				set .@findout,rand(1,20);
				if (Class == THIEF || Class == THIEF_H || Class == ROGUE || Class == ROGUE_H || Class == ASSASSIN || Class == ASSASSIN_H) {
					mes "["+strcharinfo(0)+"]";
					mes "Here it is.";
					mes "That was easy to find.";
					set mos_nowinter,9;
					getitem 7761,1;
					close;
				}else{
					if (.@findout > 14) {
						mes "["+strcharinfo(0)+"]";
						mes "Ah, I got it!";
						mes "I better get out of here quickly.";
						set mos_nowinter,9;
						getitem 7761,1;
						close;
					}else{
						mes "............";
						next;
						mes "["+strcharinfo(0)+"]";
						mes "Where the hell is it?!";
						mes "It has to be in here somewhere!";
						next;
					}
				}
			}
			mes "["+strcharinfo(0)+"]";
			mes "I will try later.";
			close;
		}
	}
}

//----------------------------------------------------------------------------
// Csar Alexsay III
//----------------------------------------------------------------------------
mosk_in,131,92,3	script	#Csar	-1,7,7,{
	if (mos_nowinter == 12) {
		mes "[Csar Alexsay III]";
		mes "You!!!";
		mes "So many people saw you";
		mes "meet with Baba Yaga!";
		next;
		mes "[Csar Alexsay III]";
		mes "The guilt which must be felt, when";
		mes "meeting secretly with a witch...";
		next;
		mes "[Csar Alexsay III]";
		mes "For that, we indict capital";
		mes "punishment without any just trial!";
		next;
		mes "[Csar Alexsay III]";
		mes "But you are a stranger to these";
		mes "lands... So I will hold you in special trial.";
		next;
		mes "[Csar Alexsay III]";
		mes "If you have anything to say...";
		mes "spare me no detail.";
		next;
		select("Explain the circumstances.");
		mes "-Talk about what happened with Baba";
		mes "Yaga, and move forward with the plan.-";
		next;
		mes "[Csar Alexsay III]";
		mes "Hm-hm, that's an embarrassing story...";
		mes "But if you are telling the";
		mes "truth, my people will be pleased.";
		next;
		mes "[Csar Alexsay III]";
		mes "Okay, Bring to me";
		mes "any evidence, to believe";
		mes "what you are saying.";
		next;
		mes "[Csar Alexsay III]";
		mes "You killed the Baba Yaga!!";
		mes "If this is true, bring";
		mes "me Yaga's Pestles.";
		mes "If you do, I will make";
		mes "sure no one ever doubts you.";
		next;
		if (countitem(7762) > 39) {
			if(select("Show the Yaga's Pestles.:Do nothing.") == 1) {
				mes "[" + PcName + "]";
				mes "Yes, Here you are.";
				next;
				mes "-Offered the Yaga's Pestles.-";
				delitem 7762,40;
				next;
				mes "[Csar Alexsay III]";
				mes "Hm.. You do have them.";
				mes "For the time being, I will admit";
				mes "that you are coming and going to";
				mes "hunt Baba Yaga.";
				next;
				mes "[Csar Alexsay III]";
				mes "But do not engage in doubtable";
				mes "behavior that would instigate my";
				mes "people to act in a strange way!";
				next;
				mes "[Csar Alexsay III]";
				mes "If you do that, I will arrest you immediately!";
				mes "So take care of yourself.";
				next;
				mes "[Csar Alexsay III]";
				mes "And, when you succeed in";
				mes "banishing winter with magic,";
				mes "announce that to me immediately.";
				set mos_nowinter,14;
				close;
			}
			mes "[Csar Alexsay III]";
			mes "I said to bring me";
			mes "40 Yaga's Pestles";
			mes "from the Baba Yaga.";
			set mos_nowinter,13;
			close;
		}else{
			mes "[Csar Alexsay III]";
			mes "I said to bring me";
			mes "40 Yaga's Pestles";
			mes "from the Baba Yaga.";
			set mos_nowinter,13;
			close;
		}
	}
}

//============================================================================
// Shafka Hat
//============================================================================
moscovia,211,93,3	script	Irina#edq	958,{
	if (checkweight(1201,1) == 0 ) {
		mes "Wait a moment!!";
		mes "You have too many items.";
		mes "You can't receive this.";
		mes "Lighten your weight and";
		mes "try again.";
		close;
	}
	mes "[Irina]";
	mes "Hello, foreign traveler!";
	mes "Have you had good day";
	mes "in Moscovia?";
	next;
	mes "[Irina]";
	mes "A special souvenir for visiting Moscovia...?";
	next;
	mes "[Irina]";
	mes "For you, let's make a Shafka hat.";
	mes "The Shafka has practicality and";
	mes "it's spruce! Do you want one?";
	next;
	if(select("Learn about the Shafka.:Make a Shafka hat.") == 1) {
		mes "[Irina]";
		mes "When I look at you, you seem to";
		mes "want to put on something of a thick";
		mes "fur hat on your head, out in this";
		mes "temperature. A Shafka!";
		next;
		mes "[Irina]";
		mes "If you've come here for the first";
		mes "time, you might not know... that";
		mes "winter here is famous for being so";
		mes "long and cold in Moscovia.";
		next;
		mes "[Irina]";
		mes "A Shafka hat is especially";
		mes "necessary to live here during the";
		mes "cold seasons. Without this hat, you";
		mes "may not endure a winter!";
		next;
		mes "[Irina]";
		mes "Now, the long, long winter has";
		mes "ended and the sun is shining... But";
		mes "someday the winter will come again.";
		mes "So, for preparation, you should";
		mes "keep a Shafka hat handy.";
		next;
		mes "[Irina]";
		mes "Don't worry about keeping warm if";
		mes "you're wearing a Shafka hat. Even";
		mes "during the coldest weather... You";
		mes "can roll around in the snow and the";
		mes "Shafka still keeps you warm!";
		close;
	}
	mes "[Irina]";
	mes "Do you want to make a Shafka hat?";
	mes "Heheh. Good idea!";
	mes "That's a good task.";
	mes "You will be grateful forever.";
	next;
	mes "[Irina]";
	mes "If you bring the materials,";
	mes "we can make one immediately!";
	mes "The materials are: ^0000FFNine Tails 20, Yarn 10, Soft Silk 10, Sea-otter Fur 20, Spool 1^000000.";
	next;
	if (countitem(1022) > 19 && countitem(7038) > 9 && countitem(7166) > 9 && countitem(7065) > 19 && countitem(7217) > 0) {
		mes "[Irina]";
		mes "You did well.";
		mes "Give me the materials. I will make the Shafka.";
		next;
		delitem 1022,20; //Fox_Tail
		delitem 7038,10; //Yarn
		delitem 7166,10; //Soft_Silk_Cloth
		delitem 7065,20; //Sea_Otter_Leather
		delitem 7217,1; //Spool
		getitem 5243,1; //Chullos
		mes "[Irina]";
		mes "Good, I made it. So, how about it?";
		mes "Do you like it?";
		next;
		mes "[Irina]";
		mes "If you need a Shafka hat,";
		mes "come to me whenever,";
		mes "with the materials.";
		mes "I will make it.";
		next;
		mes "[Irina]";
		mes "Okay?";
		mes "Okay, so... Bye-bye!~";
		close;
	}else{
		mes "[Irina]";
		mes "Ah... You lack some materials. We";
		mes "can't make the Shafka hat with just";
		mes "these materials.";
		next;
		mes "[Irina]";
		mes "If you bring the right materials, I";
		mes "will make a Shafka immediately.";
		next;
		mes "[Irina]";
		mes "The materials are: ^0000FFNine Tails 20, Yarn 10, Soft Silk 10, Sea-otter Fur 20, Spool 1^000000.";
		close;
	}
}