//===== rAthena Script ======================================= 
//= Quest NPCs related to Morroc
//===== By: ================================================== 
//= kobra_k88
//===== Current Version: ===================================== 
//= 2.7
//===== Compatible With: ===================================== 
//= rAthena SVN
//===== Description: ========================================= 
//= [Official Conversion]
//= - Stop Post
//= - Binoculars Quest
//= - Assassin Pub NPCs/supporting quest NPCS. [Disabled]
//= - Resurrection of Satan Morroc
//= - The Crow of the Fate
//= - Succession of the Prince
//===== Additional Comments: ================================= 
//= 1.1 Fixed exploits [Lupus]
//= 1.2 Added Dandelion's Request / Morroc Invasion quest. [SinSloth]
//= 1.3 Updated dialogs from Binoculars Quest. [Samuray22]
//= 1.3a added GM lvl check as in other invansion quests [Lupus]
//= 1.4 Fixed a small bug in Dandelion's Request. [SinSloth]
//= 1.5 Fixed a little bug with "Job_Alchemist" changed to "Job_Alchem". [Samuray22]
//= 1.6 Fixed a nasty bug in last part of the quest. [SinSloth]
//= 1.6a replaced item "names" with item id. [Lupus]
//= 1.7 Fixed a bug with XP rewards. [SinSloth]
//= 1.8 Fixed a bug which prevented reset of events. [SinSloth]
//= 1.9 Corrected NPC names to fall within proper restrictions. [L0ne_W0lf]
//= 2.0 Fixed bad NPC header data to comply with rev. 11603. [L0ne_W0lf]
//= 2.0a Corrected a Typo error ";;". [Samuray22]
//= 2.1 Assassins will now get their request item. (bugreport:1220) [L0ne_W0lf]
//= 2.2 Updated Binocular and Stop Post quests. [L0ne_W0lf]
//= 2.3 Replaced effect numerics with constants. [Samuray22]
//= 2.4 Implemented Ep. 12.1 Continental Guard Quest. [L0ne_W0lf]
//=     Moved Dandelion's Request to a it's own file.
//=     Added support NPCs required to finish Gaebolg quest.
//= 2.5 Fixed Group of Evil never re-enabling. [L0ne_W0lf]
//= 2.6 Added quest log commands for Resurrection of Satan Morroc. [L0ne_W0lf]
//=     Added the two remaining episode 12.1 quests. 
//=     Updated Satan Morroc Quest to allow peopel who have
//=     finished it to return to the previous map.
//= 2.7 Corrected weight checks, they only check for inventory slots. [L0ne_W0lf]
//============================================================ 
//ֹͣ־ͷ
moc_ruins,114,181,4	script	˹̩	89,{
	mes "[˹̩]";
	mes "ӭ١ӭ^3355FF' ֹͣ־ͷ '^000000 ˹̵̩ꡣ";
	next;
	mes "֪Ƿǵļʷ..";
	mes "ǼԶΪҪͨʱͿʼͨ־ƣѾʮʷˡ";
	mes "ǳӵһЩרŶ^3355FF' ֹͣ־ͷ '^000000 ĶнװƷ";
	next;
	switch( select( "^3355FF' ֹͣ־ͷ '^000000:Ի")) {
	case 1:
		mes "ӵʮƾʷļ^3355FF' ֹͣ־ͷ '^000000չװƷ..";
		mes "гϮŽͨ־ƴͳ۾Ϊ֮һҼá";
		mes "һʹĹ˿ʧ";
		next;
		mes "^3355FF' ֹͣ־ͷ'^000000 Ҫ^3355FF' ֽ 91100  '^000000  ..";
		mes "^3355FF' ľͷ 50  '^000000  ^3355FF' ɫȾ 1 Ͱ '^000000 ";
		next;
		if(countitem(1019) > 49 && countitem(983) > 0 && Zeny > 91099) {
			delitem 1019,50;
			delitem 983,1;
			set Zeny,Zeny-91100;
			mes "[˹̩]";
			mes " ӵʮƾʷ˹̩^3355FF' ֹͣ־ͷ '^000000 ";
			mes "ллĹ٣ӭ´";
			getitem 2272,1;
			close;
		}
		else {
			mes "[˹̩]";
			mes "׼Ĳϲ?";
			mes "ȷһ¡";
			close;
		}
	case 2:
		mes "[˹̩]";
		mes "л˹̩嶩Ʒ";
		mes "ף˳ġ";
		close;
	}
}


//Զ
moc_ruins,118,176,4	script		64,{
	mes "[ŷ]";
	mes " - й˿";
	mes "֪Ҫ˵ʲô";
	mes "Ϊħ۾Ķ԰ ?";
	next;
	switch(select( "ʲôħ۾?:ħ۾:")) {
	case 1:
		mes "[ŷ]";
		mes "ǵ  ʽӦ ' ^3355FFԶ^000000 ' ";
		mes "ǳͰ״ͷ";
		mes "кüƬһ";
		mes "ù߷";
		mes "ԶĶ";
		mes "Ļǿģ";
		next;
		mes "[ŷ]";
		mes "? ܰ?";
		mes "";
		mes ". . . . .";
		mes ".. ô ?㿴̫ŵ?";
		mes "˵Ŀģ";
		next;
		mes "[ŷ]";
		mes "ԶҪĶ";
		mes "һһ ..";
		mes "^3355FFתƬ^000000 һ ^3355FF^000000 һƬ У ^3355FF50000 ^000000 ";
		close;
	case 2:
		if (countitem(2243) > 0 && countitem(999) > 99 && Zeny > 49999) {
			mes "[ŷ]";
			mes "ãϣ⸱۾ܹĿ";
			next;
			delitem 2243,1;
			delitem 999, 100;
			set Zeny,Zeny-50000;
			mes "[ŷ]";
			mes "ˣħ۾";
			getitem 2296,1;
			next;
			mes "[ŷ]";
			mes "ǣұ˵......";
			mes "Ҫ㲻ÿĶŶ...";
			close;
		}
		else {
			mes "[ŷ]";
			mes "    ";
			mes "ôԶڳ½";
			mes "ô";
			mes "̫ˣ";
		close;
		}
	case 3:
		mes "[ŷ]";
		mes "ιιιι";
		mes "Ƕ";
		mes "ڳ½Զ";
		mes "Ĺѧʦŷȣұ";
		mes "Ӧ˵Ļ ? ˵ ?";
		close;
	}
}

yuno_in04,180,106,3	script	ڶŮ#moc_girl1	73,{
	mes "[" + strcharinfo(0) + "]";
	mes "˼Ҫ⡣";
	next;
	mes "[]";
	mes "˼æڿ顣";
	mes "ôʲôأ";
	next;
	select("ڿʲô飿");
	mes "[]";
	mes "ǣԼ滪 ɪ ĳ鼮֮һ";
	mes "Ǹңд鸾Ĺ£Ǹ...";
	next;
	mes "[]";
	mes "ҲԿҪҪ";
	next;
	mes "[" + strcharinfo(0) + "]";
	mes "ޣûȤ";
	mes "ˡ";
	close;
}

morocc_in,46,125,5	script	ϯ#moc_ex1	729,{
	mes "[Ƥ]";
	mes "ħĴ..";
	mes ".. ˻Ҫһ";
	next;
	mes "[Ƥ]";
	mes "û뵽ͬʱħ.....";
	close;
}

que_job01,70,84,1	script	Ů#moc_ex002	882,{
	mes "[Ů]";
	mes ".. ôһ£";
	mes "..";
	mes "ôûһ˳";
	emotion e_sob;
	next;
	mes "["+ strcharinfo(0) +"]";
	mes ".......";
	mes "ľͻƽ....";
	close;
}

// ½ / ħ޿
// ============================================================
moc_fild20,354,183,3	script	½Ӿ#01::	707,3,3,{
	if ((rebirth_moc_edq == 0) && (rebirth_moc_edq < 4)) {
		mes "[½Ӿ]";
		mes "ǽֹһ˽ĵطǳΣ⸽߶";
		next;
		switch(select("ȡԻ:ѯô")) {
		case 1:
			close;
		case 2:
			mes "[½Ӿ]";
			mes "㻹֪? ӡ޿˴ħ޿˸";
			next;
			mes "[½Ӿ]";
			mes "ħ޿ħ֮ƶտɳĮȥˣȻǸɳĮͳħܲ";
			next;
			mes "[½Ӿ]";
			mes "Ŀǰ޿˴ħӰ죬ܵԸļ˺";
			next;
			mes "[½Ӿ]";
			mes "¡ ķ¡گĿǰ޿ַӵƽȫֹô";
			next;
			mes "[½Ӿ]";
			mes "ϸڷȥѯ޿˴为";
			mes "ֳָӵĴ½Ӱ?";
			next;
			switch(select("Ի:ѯʴ½ӵλ")) {
			case 1:
				close;
			case 2:
				mes "[½Ӿ]";
				mes "ʴ½ӵλ? ½Ŀǰפ޿˴Ӫ";
				next;
				mes "[½Ӿ]";
				mes "ԸĻҿȥ...";
				next;
				switch(select(":鷳")) {
				case 1:
					mes "[½Ӿ]";
					mes "?... ô·СģϿ뿪";
					close;
				case 2:
					mes "[½Ӿ]";
					mes "û⣬㵽޿˴ֳ";
					close2;
					warp "morocc",160,61;
					end;
				}
			}
		}
	}
	else if ((rebirth_moc_edq > 3) && (rebirth_moc_edq < 8)) {
		mes "[½Ӿ]";
		mes "ǽֹһ˽ĵطǳΣ⸽߶";
		next;
		switch(select("ȡԻ:Ϊ˵ҪȥԭҰ:ǰ޿˵ֳ")) {
		case 1:
			close;
		case 2:
			if ($@re_moc < 3) {
				getpartymember(getcharid(1));
				set .@partymembercount,$@partymembercount;
				copyarray .@partymembername$[0],$@partymembername$[0],.@partymembercount;
				while (.@partymembercount >= 0) {
					set .@name$,.@partymembername$[.@partymembercount];
					if (isloggedin(getcharid(3,.@name$))) {
						set .@onlinemembers,.@onlinemembers + 1;
					}
					set .@partymembercount,.@partymembercount - 1;
				}
				if ((.@onlinemembers > 1) && (countitem(7826) > 0)) {
					mes "[½Ӿ]";
					mes "......";
					next;
					mes "[½Ӿ]";
					mes "ȷϹˣǴ½ӵĶԱף˳";
					next;
					mes "[½Ӿ]";
					mes "㵽ԭҰʱ͸ԭҰڴĴ͵㣬»ص";
					close2;
					warp "moc_fild21",38,193;
					end;
				}
				else if ((.@onlinemembers < 2) && (countitem(7826) > 0)) {
					mes "[½Ӿ]";
					mes "ȷϹˣǴ½ӵĶԱպ԰»ӳر";
					next;
					mes "[½Ӿ]";
					mes "'ΪǼΣյĵشϽԱǵĵΪر2Ϻж'";
					next;
					mes "[½Ӿ]";
					mes "ֳҶԱӺ";
					close;
				}
				else if (countitem(7826) < 1) {
					mes "[½Ӿ]";
					mes "ֻЯʼʿ֤ˣܲơ";
					close;
				}
				else {
					close;
				}
			}
			else {
				mes "[½Ӿ]";
				mes "ѾյֹܲΪһѰʱѾ޿˵⵽";
				next;
				mes "[½Ӿ]";
				mes "Ҫȵ󣬲顣";
				close;
			}
		case 3:
			mes "[½Ӿ]";
			mes "û⣬㵽޿˴ֳ";
			close2;
			warp "morocc",160,61;
			end;
		}
	}
	else if (rebirth_moc_edq == 8) {
		mes "[½Ӿ]";
		mes "ڴ½ӵðռรð?";
		next;
		getpartymember(getcharid(1));
		set .@partymembercount,$@partymembercount;
		copyarray .@partymembername$[0],$@partymembername$[0],.@partymembercount;
		while (.@partymembercount >= 0) {
			set .@name$,.@partymembername$[.@partymembercount];
			if (isloggedin(getcharid(3,.@name$))) {
				set .@onlinemembers,.@onlinemembers + 1;
			}
			set .@partymembercount,.@partymembercount - 1;
		}
		switch(select("Ϊ˵ҪȥһԭҰ:Ϊ˵ҪȥڶԭҰ:޿ֳ:ȡԻ")) {
		case 1:
			if ((.@onlinemembers > 1) && (countitem(7826) > 0)) {
				mes "[½Ӿ]";
				mes "......";
				next;
				mes "[½Ӿ]";
				mes "ǵģȷϣһ½ӵĳԱϣ˳ףˡ";
				next;
				mes "[½Ӿ]";
				mes "һȥĻͨǱߵĴ͵Ϳԡ";
				close2;
				warp "moc_fild21",38,193;
				end;
			}
			else if ((.@onlinemembers < 2) && (countitem(7826) > 0)) {
				mes "[½Ӿ]";
				mes "ȷϹˣǴ½ӵĶԱպ԰»ӳر";
				next;
				mes "[½Ӿ]";
				mes "'ΪǼΣյĵشϽԱǵĵΪر2Ϻж'";
				next;
				mes "[½Ӿ]";
				mes "ֳҶԱӺ";
				close;
			}
			else if (countitem(7826) < 1) {
				mes "[½Ӿ]";
				mes "ֻЯʼʿ֤ˣܲơ";
				close;
			}
			else {
				close;
			}
		case 2:
			if ((.@onlinemembers > 1) && (countitem(7826) > 0)) {
				mes "[½Ӿ]";
				mes "......";
				next;
				mes "[½Ӿ]";
				mes "ȷϹˣǴ½ӵĶԱף˳";
				next;
				mes "[½Ӿ]";
				mes "㵽ԭҰʱ͸ԭҰڴĴ͵㣬»ص";
				close2;
				warp "moc_fild22",38,193;
				end;
			}
			else if ((.@onlinemembers < 2) && (countitem(7826) > 0)) {
				mes "[½Ӿ]";
				mes "ȷϹˣǴ½ӵĶԱպ԰»ӳر";
				next;
				mes "[½Ӿ]";
				mes "'ΪǼΣյĵشϽԱǵĵΪر2Ϻж'";
				next;
				mes "[½Ӿ]";
				mes "ֳҶԱӺ";
				close;
			}
			else if (countitem(7826) < 1) {
				mes "[½Ӿ]";
				mes "ֻЯʼʿ֤ˣܲơ";
				close;
			}
			else {
				close;
			}
		case 3:
			mes "[½Ӿ]";
			mes "û⣬㵽޿˴ֳ";
			close2;
			warp "morocc",160,61;
			end;
		case 4:
			close;
		}
	}
	else {
		end;
	}

//OnTouch2:
OnTouch:
	mes "[½Ӿ]";
	mes "ǽֹһ˽ĵطǳΣ⸽߶";
	close;
	end;
}

moc_fild20,354,174,3	duplicate()	½Ӿ#02	707,3,3
moc_fild20,38,174,5	duplicate()	½Ӿ#03	707,3,3
moc_fild20,38,183,5	duplicate()	½Ӿ#04	707,3,3
moc_fild20,189,21,7	duplicate()	½Ӿ#05	707,3,3
moc_fild20,200,21,7	duplicate()	½Ӿ#06	707,3,3
moc_fild20,203,336,5	duplicate()	½Ӿ#07	707,3,3
moc_fild20,215,336,3	duplicate()	½Ӿ#08	707,3,3

prontera,164,304,3	script	޿˴½Ӵ#01::	997,3,3,{
	set .@area$,strnpcinfo(2);
	if (.@area$ == "01") { set .@area$,"¡"; }
	else if (.@area$ == "02") { set .@area$,""; }
	else if (.@area$ == "03") { set .@area$,""; }
	else if (.@area$ == "04") { set .@area$,""; }
	else if (.@area$ == "05") { set .@area$,""; }
	mes "[½ ]";
	if (BaseLevel > 79) {
		mes ""+ strcharinfo(0) +"ǷĽ¼";
		mes "Ҿͽص";
		next;
		mes "[½ ]";
		mes "Ǵ޿˴½ܲɵ" + .@area$ + "";
		mes "Ĵ"+ strcharinfo(0) +"";
		mes "ĸλðռ";
	}
	else {
		mes "Ǵ޿˴½ܲɵ" + .@area$ + "";
		mes "Ĵ¬";
		mes "׵¼ȫ";
	}
	next;
	select("޿˴½ܲôһ°?");
	mes "[½ ]";
	mes "ʱ䲻ˣҾͼ򵥶Ҫ˵";
	next;
	mes "[½ ]";
	mes "ħ޿...";
	mes "Ѿˣӡ޿˵¹ͥ޿...";
	mes "Ǹ޿";
	next;
	mes "[½ ]";
	mes "ܴӰ죬޴븽˲˷";
	next;
	mes "[½ ]";
	mes "ֱǧٿ...";
	mes "й֮޲޿ΧһƬ";
	next;
	mes "[½ ]";
	mes "ȻԲ߾Ǵٳ֯ħ޿˴½... ¬";
	mes "׵¼ȫϢ";
	next;
	mes "[½ ]";
	if (BaseLevel > 79) {
		mes "ȻҪҪ"+ strcharinfo(0) +"һ";
		mes "ɫðռǵİæΪٴηӡ޿...";
		next;
		mes "[½ ]";
		mes "ϸȥѯǴ½ӵĶӳ!";
		mes "Ⱥ"+ strcharinfo(0) +"";
		next;
		mes "[½ ]";
		mes "ַӵܲ...";
		mes "Ŀǰ޿빬͢ʱ";
	} 
	else {
		mes "ȻҪҪðռǵЭΪٴηӡ޿...";
		next;
		mes "[½ ]";
		mes "Ŀǰ޿˴ܵħӰ죬Լ 7ص";
		next;
		mes "[½ ]";
		mes "ΧڽɳĮħ޿˺ĻӰԼǿħĳ֣𽥱... Ҫౣ";
	}
	close;

OnTouch:
	if (BaseLevel > 79) {
		mes "[½ ]";
		mes "... "+ strcharinfo(0) +"?";
		mes "ȷĻ˵꣬ǷǳҪ";
		next;
		mes "[½ ]";
		mes "̬˵";
		close;
	}
	end;
}

geffen,128,90,3	duplicate()	޿˴½Ӵ#02	997,3,3
payon,200,113,3	duplicate()	޿˴½Ӵ#03	997,3,3
alberta,127,64,3	duplicate()	޿˴½Ӵ#04	998,3,3
aldebaran,135,128,3	duplicate()	޿˴½Ӵ#05	998,3,3

morocc,176,103,3	script	½ 	754,{
	if (rebirth_moc_edq > 3) {
		mes "[½ ]";
		mes "ˣܲϢ...";
		next;
		mes "[½ ]";
		mes "...";
		next;
		mes "[½ ]";
		mes "ĿǰûϢ... ף˳񣬱";
		close;
	}
	else if (rebirth_moc_edq == 0) {
		mes "[½ ]";
		mes "Ǹ޿ַѯ٣?";
		next;
		switch(select("ʲôط?::ѯʴֿ")) {
		case 1:
			mes "[½ ]";
			mes "Ǹ鲼ڴ½͵ðռǣΪֹħ޿˶ۼ½ӵĵط";
			next;
			mes "[½ ]";
			mes "Ҳ֪ħĸ¬ ׵¼½ٵΣֱӵĹϵ";
			next;
			mes "[½ ]";
			mes "֮ħмĴ½ӣĿǰݱĽֹħĸ׼";
			next;
			mes "[½ ]";
			mes "ҲܵگǶԼʵĵðռҵĻڱά½ĺƽ";
			close;
		case 2:
			if (BaseLevel > 79) {
				mes "[½ ]";
				mes "... ";
				mes strcharinfo(0) + "԰ɣڵ㣬Ѿ˽";
				next;
				mes "[½ ]";
				mes "һ̵ǼǺʱȥԵһ";
				next;
				mes "[½ ]";
				mes "ȥλĴ½ӽͶԻɣлл";
				set rebirth_moc_edq,1;
				setquest 3050;
				close;
			}
			else {
				mes "[½ ]";
				mes "߶ȿ϶־... Ҳвܵ־ͿԽ";
				next;
				mes "[½ ]";
				mes "ħ޿˱κħﶼǿ󣬸Σ";
				next;
				mes "[½ ]";
				mes "ȹ˺Լİȫ";
				close;
			}
		case 3:
			mes "[½ ]";
			mes "״ܲ룬Ҳ֪˺⸽ҲǳΣ";
			next;
			mes "[½ ]";
			mes "Ȼگ½½صðռǺʿǶۼַ... ԲԵǿħ";
			next;
			mes "[½ ]";
			mes "⸽뾡ܵǵָʾעİȫ";
			close;
		}
	}
	else {
		mes "[½ ]";
		mes "ѾɱˣҰ»ӳԻ";
		close;
	}
}

morocc,159,113,3	script	 Ͷ	752,{
	if (rebirth_moc_edq == 0) {
		mes "[ Ͷ]";
		mes "㲻ǳʱ޿ˣǱֹħ޿˸Ĵ½ӽͶ";
		next;
		mes "[ Ͷ]";
		mes "ʵ̫æ޷һһðռ˵ȥ⸽˰";
		next;
		mes "[ Ͷ]";
		mes "ĿǰæѡҪǴ½ӵѪ˲";
		close;
	}
	else if (rebirth_moc_edq == 1) {
		mes "[ Ͷ]";
		mes "㲻ǳʱ޿ˣǱֹħ޿˸Ĵ½ӽͶ";
		next;
		mes "[ Ͷ]";
		mes "? ںæͼ򵥶Ҫ˵";
		next;
		switch(select("ѯʹڴ½:½:Ի")) {
		case 1:
			mes "[ Ͷ]";
			mes "...";
			mes ";Ӧзֵ˰ɣӡ޿µħ޿˸";
			next;
			mes "[ Ͷ]";
			mes "ܴӰ޿˴伸ˣħƶտɳĮ󽫸ռΪ";
			next;
			mes "[ Ͷ]";
			mes "ȥ޿ˣ׵¼ȴ½...";
			next;
			mes "[ Ͷ]";
			mes "һگ£񲿶ӺԶðռǾۼַֹħַ";
			next;
			mes "[ Ͷ]";
			mes "Ȼ... Ҳܱ֤...";
			mes "ǴˣΪδ...";
			next;
			mes "[ Ͷ]";
			mes "ȰΣյʱ»ؼҺúТ˳ĸԼ";
			close;
		case 2:
			mes "[ Ͷ]";
			mes "ʲô?... ...";
			mes "ҲǴ½ӶԱ?";
			next;
			if (BaseLevel > 79) {
				mes "[ Ͷ]";
				mes "... ʲô? " + strcharinfo(0) + "?";
				mes "... ҲʶһЩ";
				next;
				mes "[ Ͷ]";
				mes "ܻͬСɣħ޿û? ħ";
				next;
				mes "[ Ͷ]";
				mes "Ҫǿˣ֪ÿжһĲΪĶӲҪǵ?";
				next;
				mes "[ Ͷ]";
				mes "˵ϵŴ½˵ش¼ֻҪʤδ¶";
				next;
				mes "[ Ͷ]";
				mes "б׾ðռһŵĻǣұ£Ҳܷ鷢ȥ";
				next;
				switch(select("Ի:ٴҪ½")) {
				case 1:
					close;
				case 2:
					mes "[ Ͷ]";
					mes "... ڵʵ޷룬㻹ǶôΣյ";
					next;
					mes "[ Ͷ]";
					mes "ҪԼ?";
					mes "ħĿֲ֮ǰħǽȻͬ";
					next;
					mes "[ Ͷ]";
					mes "ΪǳİΣ˵ģðľĵط";
					next;
					switch(select("Ի:һҪ½")) {
					case 1:
						close;
					case 2:
						mes "[ Ͷ]";
						mes "... ˻ǹִҿǳıӵɣ˵һ";
						next;
						mes "[ Ͷ]";
						mes "ڼΣյĴ֮£޷ò룬Щȥʿǲÿ?";
						next;
						mes "[ Ͷ]";
						mes "һðռѾʬҰԱˣļֻǶ";
						next;
						switch(select(":֤ҵʵ")) {
						case 1:
							close;
						case 2:
							mes "[ Ͷ]";
							mes "ʲô? ˵Ҫ֤ʵ?";
							mes "...";
							next;
							mes "[" + strcharinfo(0) + "]";
							mes "֤ʵ㿴ĻҼ½Ӱ";
							next;
							mes "[ Ͷ]";
							mes "...";
							next;
							mes "[ Ͷ]";
							mes "ðɣôĿı°ɣ°׵ĻҾͳʵ";
							next;
							mes "[ Ͷ]";
							mes "Ǵ½Ϊ˱ϮǣСʱ޿˴͸ɳĮά־";
							next;
							mes "[ Ͷ]";
							mes "Ϊ¶ӪʿʯֻʯĹ";
							next;
							mes "[ Ͷ]";
							mes "˵ҶѨͻɽѨħ";
							mes "вϨĻ... ?";
							mes "ȥռЩ";
							next;
							switch(select("ܣٿһ:û⣬Ѳ")) {
							case 1:
								mes "[ Ͷ]";
								mes "... ˣ?";
								mes "˷ʱ䣬";
								close;
							case 2:
								mes "[ Ͷ]";
								mes "ܺãҾĿԴɣ ^0000FF 30^000000";
								mes "ס?";
								set rebirth_moc_edq,2;
								changequest 3050,3051;
								close;
							}
						}
					}
				}
			}
			else {
				mes "[ Ͷ]";
				mes "ʲôһ㱾¶ûУôܼǴ½ӣ";
				next;
				mes "[ Ͷ]";
				mes "Ҿܻᵼҵʿʿ½ֻлħ޿ˣɡ";
				next;
				mes "[ Ͷ]";
				mes "㲻ܹʶΣԣǽûκΰҼΪǵðռңΪǸ˵ͿԼħ޿ˣӶŪԼ";
				next;
				mes "[ Ͷ]";
				mes "һܾδ˵в޴ļһﲻԸŶӡϲӢ۸塣";
				next;
				mes "[ Ͷ]";
				mes "˼ûоðռǲģϣסǣȶԼ";
				close;
			}
		case 3:
			close;
		}
	}
	else if (rebirth_moc_edq == 2) {
		mes "[ Ͷ]";
		mes " ^0000FF 30^000000 ?";
		mes "㲻´ȴֿտյİ?";
		next;
		if (countitem(7098) > 29) {
			mes "[ Ͷ]";
			mes "... һ...";
			mes "ûǻҪ";
			next;
			mes "[ Ͷ]";
			mes "֮ллĻ֣и";
			next;
			mes "[" + strcharinfo(0) + "]";
			mes "ԸҼ½?";
			next;
			mes "[ Ͷ]";
			mes "! ˵ʲô...";
			mes "ô򵥵Ͳܾ";
			next;
			mes "[ Ͷ]";
			mes "һ... ...";
			next;
			mes "[" + strcharinfo(0) + "]";
			mes "ҲӦûô򵥣ԾҰ";
			next;
			mes "[ Ͷ]";
			mes "ҵһ£...";
			next;
			mes "[ Ͷ]";
			mes "";
			mes "ʵҵĲӲȫ׵¼ʿɣЩǴӱӶ㷢ȷ岢ʿȵ...";
			next;
			mes "[ Ͷ]";
			mes "δɳĮִйЩɳĮҲû֪ЩǷܶסɳĮͷɳ...";
			next;
			mes "[" + strcharinfo(0) + "]";
			mes "(ԭǸƽ...)";
			next;
			mes "[ Ͷ]";
			mes "˵ڱѨгûӵбħЩʿҲ...";
			next;
			switch(select("Ϊ:ȥռҪ?")) {
			case 1:
				mes "[ Ͷ]";
				mes "˳üҵıƥ֮ºԼ";
				next;
				mes "[ Ͷ]";
				mes "ô㵽ȫĵطɣ";
				close;
			case 2:
				mes "[ Ͷ]";
				mes "ʲô? Ըȥռ? ...";
				next;
				mes "[ Ͷ]";
				mes "ҪรҪ 50";
				next;
				mes "[ Ͷ]";
				mes "ô?  ^0000FF 50^000000ɣȻԽԽ";
				delitem 7098,30; //Live_Coal
				set rebirth_moc_edq,3;
				changequest 3051,3052;
				close;
			}
		}
		else {
			mes "[ Ͷ]";
			mes "ι... û? Ҫ 30 30";
			next;
			mes "[ Ͷ]";
			mes "ȥɣȻҲʱ...";
			close;
		}
	}
	else if (rebirth_moc_edq == 3) {
		mes "[ Ͷ]";
		mes "?  50?";
		next;
		if (countitem(7561) > 49) {
			mes "[ Ͷ]";
			mes "... ˣһúʹı";
			next;
			mes "[ Ͷ]";
			mes "°";
			delitem 7561,50; //Ice_Heart
			getitem 7826,1; //Continental_Guard_Paper
			set rebirth_moc_edq,4;
			changequest 3052,3053;
			next;
			mes "[" + strcharinfo(0) + "]";
			mes "...?";
			next;
			mes "[ Ͷ]";
			mes "ǳΪǴ½ӶԱ֤飬ҲòӢ±";
			next;
			mes "[ Ͷ]";
			mes "һж׼? ҪԼĴ";
			next;
			mes "[ Ͷ]";
			mes "Ҫ˵ֲ򵥣½ӵĶԱЯħ޿ȫֹ临";
			next;
			mes "[ Ͷ]";
			mes "ǰ޿˳û·ϣǵĶԱʹ˺٣ħĵ¼ҵɱ֮";
			next;
			mes "[ Ͷ]";
			mes "ֵλֵʱˣףҺˆ";
			close;
		}
		else {
			mes "[ Ͷ]";
			mes "ι... û? Ҫ 50 50";
			next;
			mes "[ Ͷ]";
			mes "ȥɣȻҲʱ?...";
			close;
		}
	}
	else if (rebirth_moc_edq == 4) {
		mes "[ Ͷ]";
		mes "ԭ...";
		mes "ûϸ˵⸽ֿ";
		mes "... ?";
		next;
		switch(select(":Ҳ")) {
		case 1:
			mes "[ Ͷ]";
			mes "ҪΪ½ӶԱԿħ޿ʱӦҪ֪鱨";
			next;
			mes "[ Ͷ]";
			mes "㻹ǵ̬չ֮ǰ޿? Ȼ֮ǰҲδ...";
			next;
			mes "[ Ͷ]";
			mes "Ҳ֪Ŀǰ޿˳ڵĸںͨΧԭҰǴ½ӹܿ";
			next;
			mes "[ Ͷ]";
			mes "ɳħĸĿǰտɳĮϳûħΣ... ԭ";
			next;
			mes "[ Ͷ]";
			mes "ħ޿˵ǿʱմԪĹѣȻĿǰֻӰ쵽⸽... Შط";
			next;
			mes "[ Ͷ]";
			mes "ʱմԪĹѣʹڵ޿ɳĮΣЩطƾʧ쳣";
			next;
			mes "[ Ͷ]";
			mes "˳ħǿħħĻӰǼ֣صв";
			next;
			mes "[ Ͷ]";
			mes "ʵҲȥ֤ʵ... õ鱨Щˣϸȥʴ½ٰ";
			next;
			mes "[ Ͷ]";
			mes "½δǵȫԸȥֹħ˵";
			close;
		case 2:
			mes "[ Ͷ]";
			mes "? ֪... ôȥԱרɣǲѹħĻ½Ҳûδ";
			close;
		}
	}
	else if (rebirth_moc_edq == 5) {
		mes "[ Ͷ]";
		mes "ʲô? ˵ħ޿?";
		next;
		mes "[ Ͷ]";
		mes "ħô?";
		mes "֤ܵ?";
		next;
		mes "[ Ͷ]";
		mes "ֻǿͷ˵㡣ҵ˼ǣҪǷӦôصʲôΪ֤أ";
		next;
		mes "[ Ͷ]";
		mes "ȥʤ֤һ";
		close;
	}
	else if (rebirth_moc_edq == 6) {
		mes "[ Ͷ]";
		mes "ʲô? ˵ħ޿?";
		next;
		mes "[ Ͷ]";
		mes "ħô?";
		mes "֤ܵ?";
		next;
		if (countitem(7820) > 0) {
			mes "[ Ͷ]";
			mes "......";
			next;
			mes "[ Ͷ]";
			mes "...";
			mes "ӦûҸ߶ȿ϶Ĺͣ½ҺתΣΪ";
			next;
			mes "[ Ͷ]";
			mes "ҿ";
			mes "ħ޿ܵص˺󣬶ʱյķ϶";
			next;
			mes "[ Ͷ]";
			mes "ϧĿǰûܵʱյһȥ׷ɱ޿ˣٳɹֹħٶȽ٣ʱһ...";
			next;
			mes "[ Ͷ]";
			mes "Ƭ...";
			mes "ṩǷḻйδħĲͶԲߵ鱨";
			next;
			mes "[ Ͷ]";
			mes "ȶĹҴ½Ӻ׵¼ʾʮֵл⣬һµ";
			next;
			delitem 7820,1; //Morroc_Skin
			getexp 2000000,0;
			set rebirth_moc_edq,7;
			changequest 3055,3056;
			mes "[ Ͷ]";
			mes "׼˼Ʒҿ...";
			mes "ѡ?";
			next;
			switch(select("1. ʼʿĻ:2. ʯ:3. ׹")) {
			case 1:
				mes "[ Ͷ]";
				mes "½ӵӡǿ͵״͵Ʒ";
				next;
				mes "[ Ͷ]";
				mes "^0000FF MaxHP+50װʱٶȻ";
				mes "3%^000000ЧװƷ";
				next;
				mes "[ Ͷ]";
				mes "Ҫ½ӵӡ?";
				next;
				switch(select("1. :2. ձĶ")) {
				case 1:
					mes "[ Ͷ]";
					mes "֪ˣһ½ӵӡ";
					next;
					getitem 2730,1; //Morroc_Seal
					set rebirth_moc_edq,8;
					completequest 3056;
					mes "[ Ͷ]";
					mes "Ҳ֪һδϾԷҲʡ͵ĵ...";
					next;
					mes "[ Ͷ]";
					mes "㲻Ҫи̽ͱѲ߰ɣȻһ׼ʵĽ";
					next;
					mes "[ Ͷ]";
					mes "...";
					mes "ԷĵĻȥϢˣͽǰ...";
					close;
				case 2:
					mes "[ Ͷ]";
					mes "...";
					mes "ˣôѡ";
					close;
				}
			case 2:
				mes "[ Ͷ]";
				mes "¬ʯǳħ״͵Ʒ";
				next;
				mes "[ Ͷ]";
				mes "";
				mes "^0000FFMaxSP+50ЧװƷװʱʩӳʱ";
				mes " 1%^000000ЧװƷ";
				next;
				mes "[ Ͷ]";
				mes "Ҫ¬ʯ?";
				next;
				switch(select("1. :2. ձĶ")) {
				case 1:
					mes "[ Ͷ]";
					mes "֪ˣһ¬ʯ";
					next;
					getitem 2731,1; //Morroc_Charm_Stone
					set rebirth_moc_edq,8;
					completequest 3056;
					mes "[ Ͷ]";
					mes "Ҳ֪һδϾԷҲʡ͵ĵ...";
					next;
					mes "[ Ͷ]";
					mes "㲻Ҫи̽ͱѲ߰ɣȻһ׼ʵĽ";
					next;
					mes "[ Ͷ]";
					mes "...";
					mes "ԷĵĻȥϢˣͽǰ...";
					close;
				case 2:
					mes "[ Ͷ]";
					mes "...";
					mes "ˣôѡ";
					close;
				}
			case 3:
				mes "[ Ͷ]";
				mes "֮ۻ״͵Ʒ";
				next;
				mes "[ Ͷ]";
				mes "^0000FF Cri + 5^000000  ЧװƷ";
				next;
				mes "[ Ͷ]";
				mes "Ҫ֮ۻ?";
				next;
				switch(select("1. :2. ձĶ")) {
				case 1:
					mes "[ Ͷ]";
					mes "֪ˣһ֮ۻ";
					next;
					getitem 2732,1; //Morroc_Ring
					set rebirth_moc_edq,8;
					completequest 3056;
					mes "[ Ͷ]";
					mes "Ҳ֪һδϾԷҲʡ͵ĵ...";
					next;
					mes "[ Ͷ]";
					mes "㲻Ҫи̽ͱѲ߰ɣȻһ׼ʵĽ";
					next;
					mes "[ Ͷ]";
					mes "...";
					mes "ԷĵĻȥϢˣͽǰ...";
					close;
				case 2:
					mes "[ Ͷ]";
					mes "...";
					mes "ˣôѡ";
					close;
				}
			}
		}
		else {
			mes "[ Ͷ]";
			mes "ֻǿͷ˵㡣ҵ˼ǣҪǷӦôصʲôΪ֤أ";
			next;
			mes "[ Ͷ]";
			mes "ȥʤ֤һ";
			close;
		}
	}
	else if (rebirth_moc_edq == 7) {
		mes "[ Ͷ]";
		mes "׼˼Ʒҿ...";
		mes "ѡ?";
		next;
		switch(select("1. ½ӵӡ:2. ¬ʯ:3.֮ۻ")) {
		case 1:
			mes "[ Ͷ]";
			mes "½ӵӡǿ͵״͵Ʒ";
			next;
			mes "[ Ͷ]";
			mes "^0000FF MHP+50װʱٶȻ";
			mes "3%^000000ЧװƷ";
			next;
			mes "[ Ͷ]";
			mes "Ҫ½ӵӡ?";
			next;
			switch(select("1. :2. ձĶ")) {
			case 1:
				mes "[ Ͷ]";
				mes "֪ˣһ½ӵӡ";
				next;
				getitem 2730,1; //Morroc_Seal
				set rebirth_moc_edq,8;
				completequest 3056;
				mes "[ Ͷ]";
				mes "Ҳ֪һδϾԷҲʡ͵ĵ...";
				next;
				mes "[ Ͷ]";
				mes "㲻Ҫи̽ͱѲ߰ɣȻһ׼ʵĽ";
				next;
				mes "[ Ͷ]";
				mes "...";
				mes "ԷĵĻȥϢˣͽǰ...";
				close;
			case 2:
				mes "[ Ͷ]";
				mes "...";
				mes "ˣôѡ";
				close;
			}
		case 2:
			mes "[ Ͷ]";
			mes "¬ʯǳħ״͵Ʒ";
			next;
			mes "[ Ͷ]";
			mes "";
			mes "^0000FFMSP+50ЧװƷװʱʩӳʱ";
			mes " 1%^000000ЧװƷ";
			next;
			mes "[ Ͷ]";
			mes "Ҫ¬ʯ?";
			next;
			switch(select("1. :2. ձĶ")) {
			case 1:
				mes "[ Ͷ]";
				mes "֪ˣһ¬ʯ";
				next;
				getitem 2731,1; //Morroc_Charm_Stone
				set rebirth_moc_edq,8;
				completequest 3056;
				mes "[ Ͷ]";
				mes "Ҳ֪һδϾԷҲʡ͵ĵ...";
				next;
				mes "[ Ͷ]";
				mes "㲻Ҫи̽ͱѲ߰ɣȻһ׼ʵĽ";
				next;
				mes "[ Ͷ]";
				mes "...";
				mes "ԷĵĻȥϢˣͽǰ...";
				close;
			case 2:
				mes "[ Ͷ]";
				mes "...";
				mes "ˣôѡ";
				close;
			}
		case 3:
			mes "[ Ͷ]";
			mes "֮ۻ״͵Ʒ";
			next;
			mes "[ Ͷ]";
			mes "^0000FF CRI + 5^000000  ЧװƷ";
			next;
			mes "[ Ͷ]";
			mes "Ҫ֮ۻ?";
			next;
			switch(select("1. :2. ձĶ")) {
			case 1:
				mes "[ Ͷ]";
				mes "֪ˣһ֮ۻ";
				next;
				getitem 2732,1; //Morroc_Ring
				set rebirth_moc_edq,8;
				completequest 3056;
				mes "[ Ͷ]";
				mes "Ҳ֪һδϾԷҲʡ͵ĵ...";
				next;
				mes "[ Ͷ]";
				mes "㲻Ҫи̽ͱѲ߰ɣȻһ׼ʵĽ";
				next;
				mes "[ Ͷ]";
				mes "...";
				mes "ԷĵĻȥϢˣͽǰ...";
				close;
			case 2:
				mes "[ Ͷ]";
				mes "...";
				mes "ˣôѡ";
				close;
			}
		}
	}
	else if (rebirth_moc_edq == 8) {
		mes "[ Ͷ]";
		mes "˵׼ǲģоԱȥħ޿ɵɧ";
		next;
		mes "[ Ͷ]";
		mes "ҶҪͣæµˣʧħҲ֪ʱٳ...";
		next;
		mes "[ Ͷ]";
		mes "ҲҪ鷳ˣס½Ĵҵ";
		close;
	}
	else {
		mes "[ Ͷ]";
		mes "㲻ǳʱ޿ˣǱֹħ޿˸Ĵ½ӽͶ";
		next;
		mes "[ Ͷ]";
		mes "ʵ̫æ޷һһðռ˵ȥ⸽˰";
		next;
		mes "[ Ͷ]";
		mes "ĿǰæѡҪǴ½ӵѪ˲";
		close;
	}
}

moc_fild21,38,193,0	script	Morocc Timer#edq	-1,6,6,{
OnInit:
	set $@re_moc,0;
	end;

OnTouch:
	if ($@re_moc == 0) {
		set $@re_moc,1;
		donpcevent "Satan Broadcast#edq::OnEnable";
	}
	end;
}

moc_fild21,1,1,0	script	Satan Broadcast#edq	844,{
OnInit:
	disablenpc "Satan Broadcast#edq";
	end;

OnEnable:
	enablenpc "Satan Broadcast#edq";
	initnpctimer;
	end;

OnTimer5000:
	mapannounce "moc_fild21","ħ޿ : 涼ǣǿɼΰ...",bc_map,"0xFFFF00";
	end;

OnTimer15000:
	mapannounce "moc_fild21","ħ޿ : ҲˣڵʱҲе...",bc_map,"0xFFFF00";
	end;

OnTimer25000:
	mapannounce "moc_fild21","ħ޿ : ٵһ°... ļһǣٵһ...",bc_map,"0xFFFF00";
	stopnpctimer;
	end;

OnDisable:
	disablenpc "Satan Broadcast#edq";
	end;
}

moc_fild21,178,239,0	script	ڰ֮ͽ#edq	844,1,1,{
	if (((rebirth_moc_edq == 4) || (rebirth_moc_edq == 7)) && ($@re_moc == 1)) {
		set $@re_moc,2;
		mes "޷ݵľ޴ڰʱյķ϶ѹȸоŶ˼";
		next;
		mes "ڳâڰʱշ϶ϣоǿҵɭϢ";
		next;
		mes "[" + strcharinfo(0) + "]";
		mes "... ";
		close2;
		donpcevent "Satan Summon#edq::OnEnable";
		end;
	}
	else {
		mes "޷ݵľ޴ڰʱյķ϶ѹȸоŶĺ˼";
		next;
		mes "ڳâڰʱշ϶ϣоǿҵɭϢ";
		close;
	}

OnInit:
	enablenpc "ڰ֮ͽ#edq";
	end;

OnEnable:
	enablenpc "ڰ֮ͽ#edq";
	end;

OnDisable:
	disablenpc "ڰ֮ͽ#edq";
	donpcevent "ʱյѷ#edq::OnEnable";
	end;
}

moc_fild21,177,239,0	script	ʱյѷ#edq	844,1,1,{
	if ((rebirth_moc_edq == 4) && ($@re_moc == 3)) {
		mes "ħʧ֮ʱյķ϶ԭĿĵĺڰϢҲɢ";
		next;
		mes "ָƽķ϶֮ԭӨâƬҲɢȥ";
		next;
		mes "ּʧȥâƬ";
		getitem 7820,1; //Morroc_Skin
		set rebirth_moc_edq,6;
		changequest 3053,3055;
		close;
	}
	else {
		mes "...";
		mes "ǳĺڰ֮Ļʼææɢ";
		next;
		mes "оٿӦûΣ";
		close;
	}

OnInit:
	disablenpc "ʱյѷ#edq";
	end;

OnEnable:
	initnpctimer;
	enablenpc "ʱյѷ#edq";
	end;

OnDisable:
	stopnpctimer;
	disablenpc "ʱյѷ#edq";
	donpcevent "ڰ֮ͽ#edq::OnEnable";
	set $@re_moc,0;
	end;

OnTimer1800000:
	set $@re_moc,4;
	end;

OnTimer21600000:
	stopnpctimer;
	set $@re_moc,0;
	donpcevent "ʱյѷ#edq::OnDisable";
	end;
}

moc_fild21,3,1,0	script	Satan Summon#edq	844,{
OnInit:
	disablenpc "Satan Summon#edq";
	end;

OnEnable:
	enablenpc "Satan Summon#edq";
	initnpctimer;
	monster "moc_fild21",177,217,"ħ޿",1916,1,"Satan Summon#edq::OnMyMobDead";
	end;

OnDisable:
	stopnpctimer;
	killmonster "moc_fild21","Satan Summon#edq::OnMyMobDead";
	set $@re_moc,0;
	disablenpc "Satan Summon#edq";
	end;

OnMyMobDead:
	set $@re_moc,3;
	announce "ŵȹ桿ħ޿  [" + strcharinfo(0) + "] Ķܣʱѷ죡",bc_all,0xFFff97;
	mapannounce "moc_fild21","ʱƈӲдһ°ɣҲʱѷҵģ",bc_map,"0xFFFF00";
	donpcevent "ʱյѷ#edq::OnEnable";
	donpcevent "Satan Broadcast#edq::OnDisable";
	donpcevent "ڰ֮ͽ#edq::OnDisable";
	disablenpc "Satan Summon#edq";
	end;

OnTimer5400000:
	mapannounce "moc_fild21","ҪӦЩëͷСӻͦ˵ģ",bc_map,"0xFFFF00";
	end;

OnTimer5415000:
	mapannounce "moc_fild21","Һæҿûʱ˷",bc_map,"0xFFFF00";
	stopnpctimer;
	killmonster "moc_fild21","Satan Summon#edq::OnMyMobDead";
	set $@re_moc,0;
	donpcevent "Satan Summon#edq::OnDisable";
	end;
}

moc_fild22,0,0,0	script	Morroc Control	-1,{
	end;

OnWoundedMorrocDeath:
	announce "ɾ桿˵ħ޿  [" + strcharinfo(0) + "] Ķˣ",bc_all,0xFFff97;
OnInit:
	initnpctimer;
	end;

OnTimer86400000:
	stopnpctimer;
	monster "moc_fild22",0,0,"˵ħ޿",1917,1,"Morroc Control::OnWoundedMorrocDeath";
	end;
}

//Mapflags
moc_fild20	mapflag	nowarpto
moc_fild20	mapflag	nomemo
moc_fild21	mapflag	nowarpto
moc_fild21	mapflag	nomemo
moc_fild22	mapflag	nowarpto
moc_fild22	mapflag	nomemo


// ˵ѻδ
// ============================================================
moc_ruins,137,70,3	script	#garas	48,{
	if (BaseLevel > 59) {
		if (checkweight(703,3) == 0) {
			mes "- ̫Ʒ,ֿٽ. -";
			close;
		}
		if (barmunt_crow == 0) {
			mes "^660000ħ޿˴ݻٶɷɳĮ֮޿^000000";
			next;
			mes "^660000޿˵Ǽ͵,ܹӵ,ǵԻƻ޿˳е޿.^000000";
			next;
			mes "^660000ǰ,ʹվԵøɱ,Ȼһ΢Цʴȵϵ,һ.^000000";
			next;
			mes "^660000ɵЦ.ǽʬ,Ȼǻ,ƺһ.֪ι,㷢ԼòȤ.^000000";
			next;
			emotion 3;
			mes "[]";
			mes "... ...";
			next;
			mes "[]";
			mes "㽡Ƥ޿˽ף·.";
			next;
			emotion e_sob;
			mes "[]";
			mes "΢Ц߶֮⻷.һĸ.Ц÷ŮӰк!...,ҵı!";
			next;
			mes "^660000ǰ˻ע.ƺио,Ȼ,ԼĻ,ȫĴ.^000000";
			next;
			switch(select("Speak:Pass Him By")) {
			case 1:
				mes "["+ strcharinfo(0) +"]";
				mes "ںԼ˵?";
				next;
				emotion e_omg;
				mes "[]";
				mes "!ҵ!ضһħʹ,ͼҺĸӦ!";
				mes "Ҳ,Ϊ!";
				next;
				mes "^660000ܾ,,Щƺƽ.";
				mes "֪θо,ֻǿŲһ.^000000";
				next;
				mes "["+ strcharinfo(0) +"]";
				mes "˭?";
				next;
				emotion e_omg;
				mes "[]";
				mes "ʲô?Ȼ֪,ǿ¬׵¼Ӷλΰ֮һ.";
				next;
				emotion 54;
				mes "[]";
				mes "ʲô֪?,޴,Ҳֻһź,ȵðռ.ٺ!";
				next;
				mes "^660000...ڿʼڸղź˵.^000000";
				next;
				mes "[]";
				mes "ҵͬ,ֻԼȱκʵ.";
				mes "Ǵ,ʱæµ.ɼ˸!......";
				next;
				mes "[]";
				mes "һβɷᵽ'޿ʱ' ,һ.";
				next;
				emotion 38;
				mes "[]";
				mes "ζ...ڵȴ.ǺǺ!";
				mes "֪,¬׵¼Ӷͼеİÿһдǵ...Ǿ!";
				next;
				mes "^660000ƺһŮ˵Ŀȷ˿.һ,ȻȻͣ,ܾɥ.^000000";
				next;
				mes "[]";
				mes "һ....";
				next;
				mes "[]";
				mes "ҵ˵^FF0000'ϣ'^000000޷дһ: ^FF0000'˵ѻ,'^000000 ûлῴⱾ!";
				next;
				mes "^660000˵ѻ000000?";
				next;
				mes "[]";
				mes "Ϲ,Ȼ϶֪޿˶.";
				next;
				mes "[]";
				mes "ҪȥǱ,˵.ûʱ䴭,Ϊ!";
				next;
				emotion e_sob;
				mes "[]";
				mes "ҵױ˷...**!";
				mes ",!ǧ!";
				next;
				mes "^660000ƺģ,,Ŵ齹.ͬʹ.^000000";
				next;
				mes "^660000˿,ȻͻȻתͷ.^000000";
				next;
				emotion e_ic;
				mes "[]";
				mes "....... û,!";
				next;
				mes "["+ strcharinfo(0) +"]";
				mes "?";
				emotion 19,1;
				next;
				mes "[]";
				mes "㿴.Ҫ˸һ!";
				mes "ϵ.ȥ?ҿԸһĻ,¬׵¼ӶصǶ.";
				next;
				mes "^660000֤㲻ǵ,µðռ...?^000000";
				next;
				mes "[]";
				mes "ֻҪҵһ¡ͼ.ܼ,?";
				mes "ϲȰĶ,ϣ֪δͼҳǱ.";
				next;
				if (Sex == 1) {
					mes "[]";
					mes ",ҿԸһĻ... һ. ǺǺǺ.";
					mes "ô?ҵ,?";
					next;
				}
				else {
					mes "[]";
					mes ",ҿԸһĻ... һ. ǺǺǺ.";
					mes "㲻ϲһŮƬ?,Ӧ,ҿԽһλӢ޿˾ʶ...";
					mes "ô?ҵ,?";
					next;
				}
				mes "^660000ô?^000000";
				next;
				switch(select(":")) {
				case 1:
					mes "[]";
					mes ",Ҫ?";
					next;
					mes "[]";
					mes "лл!סⱾ:ϣصƷ,˵ѻ.¡ͼҵ.";
					mes ",! ҵ !";
					set barmunt_crow,1;
					setquest 2063;
					close;
				case 2:
					mes "[]";
					mes "ʲô,㲻֪ͼҳһ? ...";
					close;
				}
			case 2:
				mes "[]";
				mes "Ŷ... ... ҵ...";
				close;
			}
		}
		else if (barmunt_crow == 1) {
			mes "[]";
			mes "лл!סⱾ:ϣصƷ,˵ѻ.¡ͼҵ.";
			close;
		}
		else if (barmunt_crow == 10) {
			mes "[]";
			mes "Ŷ... ... ҵ...";
			next;
			mes "^660000һο,ĥһ,סĻ.^000000";
			next;
			mes "^660000Сĵ߽,һļ.^000000";
			next;
			emotion e_omg;
			mes "[]";
			mes "! ˭?!";
			next;
			mes "^660000...... 㲻... ^000000";
			next;
			mes "[]";
			mes "˭ҴҸ?Ҫҵһ... ?";
			mes "찡,㰡.ôôʱ?¡ﲻ·?";
			next;
			mes "["+ strcharinfo(0) +"]";
			mes ".,ҴͼҲ.ֻܵ޷ҵ,... !";
			specialeffect2 EF_VENOMDUST;
			next;
			mes "^660000,ŵĴһ.^000000";
			next;
			mes "[]";
			mes "... 㻹ð?";
			mes "ǺǺ,еĸɿ.лл...ȵ,ұܵ޷ȥⱾ?!";
			next;
			mes "[]";
			mes "...,Ϊҿκ.һðռ.лл.";
			mes "?Ҳ޷λԱ.";
			next;
			mes "["+ strcharinfo(0) +"]";
			mes "..................";
			next;
			mes "[]";
			mes "Ϊ.Ȿ¡ͼû,Ȼζ,¬׵¼Ӷû˶Ȿ.";
			next;
			mes "[]";
			mes "... ! , ׷߹ζĶһ! ...!";
			emotion 14;
			next;
			mes "[]";
			mes "Һ˷лĶѧ! ̫!";
			mes "ӦȥĶⱾ!ǺǺ!";
			emotion 2;
			next;
			mes "[]";
			mes "ѽ,ҲǱ.֪,һò.";
			next;
			mes "[]";
			mes ",ⱾĻҴӦ.";
			next;
			cutin "mami01",4;
			mes "[]";
			mes "žСͼ!е,һжԸ?!";
			mes "ô˿ű˵Ƭ?,!ҪΪҸŮ!";
			next;
			cutin "mami02",4;
			mes "["+ strcharinfo(0) +"]";
			mes "'еĲͬ,۾β...ĺһϲѧ.";
			mes "ȵ,ʲôʱʼעħϵĳ?,Щĺ!'";
			next;
			mes "[]";
			mes "ѾⱾ<ʹر :ڿħ>͸,ȫͼƬ.?";
			next;
			mes "^660000ض.,ںǷϲⱾ.^000000";
			next;
			switch(select("뿴.:,лл")) {
			case 1:
				mes "'^660000ð,ʹѵ,Ҳúñ.'^000000";
				next;
				break;
			case 2:
				mes "["+ strcharinfo(0) +"]";
				mes ",лл.ҶһȤ.";
				next;
				mes "...^660000ô˵,޷ܾ.Ȱ,¶޷ܾ...^000000";
				next;
				break;
			}
			mes "^660000գգ۾,Ļ,Ҫúõı.^000000";
			set barmunt_crow,11;
			getitem 7795,1; //Mami_Photo_Album
			next;
			mes "[]";
			mes ",Ȿ߰ϣظȤ,ҽȥ<˵ѻ>ǰ, ^3131FF<˵ĺۼ>^000000Լ.";
			next;
			mes "[]";
			mes "Ҳһ.";
			next;
			mes "[]";
			mes "ҪʼⱾ,һҵ,벻Ҫ.";
			next;
			mes "^660000ǰ,ӱʵԼĻз.^000000";
			next;
			mes "^660000˵ĺۼ,?";
			mes "ûбҪ,ȥⱾ...^000000";
			next;
			mes "["+ strcharinfo(0) +"]";
			mes "ȵ,ǲζұصŵͼ?";
			next;
			mes "^660000صŵļ̾һ.^000000";
			changequest 2067,2068;
			close2;
			cutin "",255;
			end;
		}
		else if (barmunt_crow == 11) {
			mes "^660000̤˵ŵó,ȥĶ<˵ѻ>ǰ: <˵ĺۼ>.^000000";
			close;
		}
		else if (barmunt_crow == 15) {
			if ((countitem(7797) == 1) && (countitem(7796) == 1)) {
				mes "["+ strcharinfo(0) +"]";
				mes ", !";
				mes "һĶע,뿴?";
				next;
				mes "[]";
				mes "ʲ... ʲô?!";
				mes "ʲô? ҿ!?";
				next;
				mes "^660000óһаϯױǩ.^000000";
				next;
				mes "[]";
				mes "ҵ!";
				mes "һ԰ע!";
				mes "!";
				next;
				switch(select(":")) {
				case 1:
					mes "[]";
					mes " "+ strcharinfo(0) +"!";
					mes "!лл!";
					next;
					mes "[]";
					mes "~~!";
					mes "峿ȥ!,!";
					delitem 7797,1; //Author_Memo
					delitem 7796,1; //Author_Autograph
					set barmunt_crow,16;
					getexp 900000,900000;
					close;
				case 2:
					mes "[]";
					mes "?ʲô,ڶ?";
					close;
				}
			}
			else {
				mes "[]";
				mes ".........";
				close;
			}
		}
		else {
			mes "[]";
			mes ".........";
			close;
		}
	}
	else {
		mes "˿,λðɫ.";
		close;
	}
}

prt_in,179,92,3	script	ͼݹԱ#garas	57,{
	if (barmunt_crow == 0) {
		mes "[ͼݹԱ]";
		mes "ͼ¬׵¼Ӷ³ħķֲ,ɵҵ.";
		mes "Ҳкܶðռұض鼮,Ҫ?";
		next;
		mes "[ͼݹԱ]";
		mes "ֵͼҲйٿȫ.";
		mes "Ȥ,ʱͼݹ.";
		close;
	}
	else if (barmunt_crow == 1) {
		mes "[ͼݹԱ]";
		mes "ͼ¬׵¼Ӷ³ħķֲ,ɵҵ.";
		mes "Ҳкܶðռұض鼮,Ҫ?";
		next;
		switch(select("Ѱһ:ͼ")) {
		case 1:
			mes "[ͼݹԱ]";
			mes "ҪѰһ?";
			mes "û,ҿ԰.";
			mes "Ҫʲô?";
			next;
			switch(select("˵:˵:ؼ")) {
			case 1:
				mes "[ͼݹԱ]";
				mes "֪?";
				mes "û,ʲô?";
				input .@input$;
				next;
				if (compare(.@input$,"˵ѻ") == 1) {
					mes "[ͼݹԱ]";
					mes ""+.@input$+"...?";
					mes "õ,...";
					next;
				}
				else {
					mes "[ͼݹԱ]";
					mes "...ܱǸ,ͼ,ҴûмⱾ.";
					close;
				}
				break;
			case 2:
				mes "[ͼݹԱ]";
				mes "Ҫĳλҵ?";
				mes "ֽʲô?";
				input .@input$;
				next;
				if (compare(.@input$,"ϯ") == 1) {
					mes "[ͼݹԱ]";
					mes ""+.@input$+"...?";
					mes "õ,...";
					next;
				}
				else {
					mes "[ͼݹԱ]";
					mes "...ҺܱǸ.ͼＸʮ,˵һλ.";
					close;
				}
				break;
			case 3:
				mes "[ͼݹԱ]";
				mes "ҪҵǱ߶Ѽ.";
				mes "û,һ㻹ǵõĶ.";
				next;
				input .@input$;
				if ((compare(.@input$,"") == 1) || (compare(.@input$,"ѻ") == 1) || (compare(.@input$,"") == 1) || (compare(.@input$,"ϣ") == 1)) {
					mes "[ͼݹԱ]";
					mes ""+.@input$+"...?";
					mes "õ,...";
					next;
				}
				else {
					mes "[ͼݹԱ]";
					mes "...Բ,طö,û˵һֽӽṩ";
					close;
				}
				break;
			}
			emotion e_ic;
			mes "[ͼݹԱ]";
			mes "!֪˵Ȿ:";
			next;
			mes "[ͼݹԱ]";
			mes "^3131FFϣص";
			mes "<˵ѻ>^000000!";
			next;
			mes "["+ strcharinfo(0) +"]";
			mes "!Ҫҵ!";
			next;
			mes "[ͼݹԱ]";
			mes "..иϢҪ.";
			mes "Ȿǳӭ,ߵļ޷ȶҲ.";
			mes "ͼҵⱾ,̫.ҪȹһʱⱾٰ,Ϊʲô?";
			next;
			mes "[ͼݹԱ]";
			mes "㲻æ,ĺⱾ,һ:ȥŵͼҿ.";
			mes "ܴ޷ͼҵκһ.ǰ,ȷǴڵ.";
			next;
			mes "[ͼݹԱ]";
			mes "ŵԶ,ķǳⱾ,Ǿֵõ.";
			next;
			mes "^660000ⱾȻҪ,ǴӦ˵¾һҪ.ȥŵͼ.^000000";
			set barmunt_crow,2;
			changequest 2063,2064;
			close;
		case 2:
			mes "[ͼݹԱ]";
			mes "ÿһ鶼ԸĹ,ǻۺҸĸо.";
			mes "Χ!Ǽ֤һ.ÿ,Ƕµ˼.";
			close;
		}
	}
	else if (barmunt_crow == 2) {
		mes "[ͼݹԱ]";
		mes "^3131FF˵ѻ^000000Ѿ,ʹһ,Ҳ¬׵¼Ӷκεطҵ.";
		mes "ĺĶ,ȥŵͼҿ.";
		close;
	}
	else {
		mes "[ͼݹԱ]";
		mes "ͼ¬׵¼Ӷ³ħķֲ,ɵҵ.";
		mes "Ҳкܶðռұض鼮,Ҫ?";
		next;
		mes "[ͼݹԱ]";
		mes "ֵͼҲйٿȫ.";
		mes "Ȥ,ʱͼݹ.";
		close;
	}
}

yuno,333,210,5	script	ͼݹݳ#garas	57,{
	if (barmunt_crow == 2) {
		mes "[]";
		mes "!";
		mes "... !";
		next;
		mes "^660000һֻͼſڴ.^000000";
		next;
		mes "[ͼݹݳ]";
		mes "ֻ! !";
		next;
		mes "^660000һͼſڴ󺰴.^000000";
		next;
		mes "["+ strcharinfo(0) +"]";
		mes "﷢ʲô?";
		next;
		mes "[ͼݹݳ]";
		mes "ʵҲûʲô,ͼݶһֻ޴ѻټСʱ.";
		mes "...Ϊܴһֲõĸо.";
		next;
		mes "[ͼݹݳ]";
		mes "߿!ֻ!뿪!!";
		next;
		mes "^660000̧ͷ,һֻ޴ѻͼݵݶ,ͬĵ.^000000";
		next;
		mes "[ͼݹݳ]";
		mes "߿! ǲôĵط!";
		mes "ҵëȻҵĹ˿!";
		next;
		mes "[ͼݹݳ]";
		mes "... ð.";
		mes "(һʯͷ)";
		mes "˵߿,ֻ!";
		next;
		mes "(-)";
		next;
		mes "(!)";
		specialeffect EF_PIERCE;
		next;
		mes "()";
		next;
		mes "^660000ӳʯͷе˲,ѻɵ.^000000";
		mes "^660000ȻݶһȦ,ëȻ.^000000";
		specialeffect EF_BAT;
		next;
		mes "[ͼݹݳ]";
		mes "... Ϊʲô㲻뿪?!";
		next;
		mes "^660000ʼѻ,ƺһҲ.෴,ɵø.";
		mes "뿪ѻ,ŹҲͣ.^000000";
		next;
		mes "^660000㿴˿,ֵ֧ѻʯӻʱë.^000000";
		next;
		mes "["+ strcharinfo(0) +"]";
		mes ",ôë.һֻ޴ѻҪܴëܷ.";
		next;
		mes "[ͼݹݳ]";
		mes "ʱ,˵ֻǰ¶,ëܹ˵ף,Ժܶʫǩ.";
		next;
		mes "[ͼݹݳ]";
		mes "йһ֧Сë,ȻȻȻĳΪͼݹݳ. !";
		next;
		mes "[ͼݹݳ]";
		mes "Ӧ֪Ǿ, 'һͼݹ3֮,֪е.'";
		mes "Ҫֻë.ܸ˵.";
		next;
		mes "["+ strcharinfo(0) +"]";
		mes "ǵ.";
		next;
		mes "^660000ӵϼһ֧޴ĺɫë.";
		mes "ëоǳ,оһʲƸ.^000000";
		next;
		mes "["+ strcharinfo(0) +"]";
		mes "...!";
		specialeffect2 EF_VENOMDUST;
		next;
		mes "[ͼݹݳ]";
		mes "ϵ۱.ð?";
		mes "Ӧչ˺Լ,һðռ.";
		next;
		mes "^660000Ȼо÷.^000000";
		next;
		mes "[ͼݹݳ]";
		mes "źȵȷ,Ҹðʱĸ׶Һ.";
		mes "ұ֤ܿͻõ.";
		next;
		mes "^660000,һЧ...^000000";
		emotion e_dots,1;
		set barmunt_crow,3;
		close;
	}
	else {
		mes "[ͼݹݳ]";
		mes "ע岻Ҫð!";
		close;
	}
}

yuno,336,203,0	script	#garas_catch	139,3,3,{
//OnTouch2:
OnTouch:
	if (barmunt_crow == 2) {
		mes "[]";
		mes "!";
		mes "... !";
		next;
		mes "^660000һֻͼſڴ.^000000";
		next;
		mes "[ͼݹݳ]";
		mes "ֻ! !";
		next;
		mes "^660000һͼſڴ󺰴.^000000";
		next;
		mes "["+ strcharinfo(0) +"]";
		mes "﷢ʲô?";
		next;
		mes "[ͼݹݳ]";
		mes "ʵҲûʲô,ͼݶһֻ޴ѻټСʱ.";
		mes "...Ϊܴһֲõĸо.";
		next;
		mes "[ͼݹݳ]";
		mes "߿!ֻ!뿪!!";
		next;
		mes "^660000̧ͷ,һֻ޴ѻͼݵݶ,ͬĵ.^000000";
		next;
		mes "[ͼݹݳ]";
		mes "߿! ǲôĵط!";
		mes "ҵëȻҵĹ˿!";
		next;
		mes "[ͼݹݳ]";
		mes "... ð.";
		mes "(һʯͷ)";
		mes "˵߿,ֻ!";
		next;
		mes "(-)";
		next;
		mes "(!)";
		specialeffect EF_PIERCE;
		next;
		mes "()";
		next;
		mes "^660000ӳʯͷе˲,ѻɵ.^000000";
		mes "^660000ȻݶһȦ,ëȻ.^000000";
		specialeffect EF_BAT;
		next;
		mes "[ͼݹݳ]";
		mes "... Ϊʲô㲻뿪?!";
		next;
		mes "^660000ʼѻ,ƺһҲ.෴,ɵø.";
		mes "뿪ѻ,ŹҲͣ.^000000";
		next;
		mes "^660000㿴˿,ֵ֧ѻʯӻʱë.^000000";
		next;
		mes "["+ strcharinfo(0) +"]";
		mes ",ôë.һֻ޴ѻҪܴëܷ.";
		next;
		mes "[ͼݹݳ]";
		mes "ʱ,˵ֻǰ¶,ëܹ˵ף,Ժܶʫǩ.";
		next;
		mes "[ͼݹݳ]";
		mes "йһ֧Сë,ȻȻȻĳΪͼݹݳ. !";
		next;
		mes "[ͼݹݳ]";
		mes "Ӧ֪Ǿ, 'һͼݹ3֮,֪е.'";
		mes "Ҫֻë.ܸ˵.";
		next;
		mes "["+ strcharinfo(0) +"]";
		mes "ǵ.";
		next;
		mes "^660000ӵϼһ֧޴ĺɫë.";
		mes "ëоǳ,оһʲƸ.^000000";
		next;
		mes "["+ strcharinfo(0) +"]";
		mes "...!";
		specialeffect2 EF_VENOMDUST;
		next;
		mes "[ͼݹݳ]";
		mes "ϵ۱.ð?";
		mes "Ӧչ˺Լ,һðռ.";
		next;
		mes "^660000Ȼо÷.^000000";
		next;
		mes "[ͼݹݳ]";
		mes "źȵȷ,Ҹðʱĸ׶Һ.";
		mes "ұ֤ܿͻõ.";
		next;
		mes "^660000,һЧ...^000000";
		emotion e_dots,1;
		set barmunt_crow,3;
		close;
	}
	end;
}

yuno,343,204,1	script	#garas_eff	111,{
	end;
}

yuno,335,208,5	script	Dog#garas	81,{
	mes "[Dog]";
	mes "Bowwow!";
	close;
}

yuno_in04,111,57,3	script	ͼݼְԱ#garas	862,{
	if (barmunt_crow == 3) {
		mes "[ͼݼְԱ]";
		mes "ӦѧԺٷŻȥ..";
		mes "ЩƳϵҾúɥ....";
		next;
		mes "[ͼݼְԱ]";
		mes "...ʲô԰?";
		next;
		mes "["+ strcharinfo(0) +"]";
		mes "Ұϣص<˵ѻ>...";
		emotion e_wah,1;
		specialeffect2 EF_VENOMDUST;
		next;
		mes "[ͼݼְԱ]";
		mes "ҼǵǱ...һƳ.";
		mes "ڷ^3131FFҲ^000000. ڳĽҵ.";
		next;
		mes "["+ strcharinfo(0) +"]";
		mes "лл.";
		close;
	}
	else if (barmunt_crow == 7) {
		mes "[ͼݼְԱ]";
		mes "ʲôΪ?";
		next;
		mes "["+ strcharinfo(0) +"]";
		mes "....ҵɵ...?!";
		specialeffect2 EF_VENOMDUST;
		next;
		mes "[ͼݼְԱ]";
		mes "ڽķҵ.";
		mes "ŷ,ΪǶܹ.";
		next;
		mes "["+ strcharinfo(0) +"]";
		mes "лл...!";
		specialeffect2 EF_VENOMDUST;
		close;
	}
	else if (barmunt_crow == 11) {
		mes "[ͼݼְԱ]";
		mes "ӦѧԺٷŻȥ..";
		mes "ЩƳϵҾúɥ....";
		next;
		mes "[ͼݼְԱ]";
		mes "...ʲô԰?";
		next;
		mes "["+ strcharinfo(0) +"]";
		mes "Ұϣص<˵ѻ>...";
		specialeffect2 EF_VENOMDUST;
		next;
		mes "[ͼݼְԱ]";
		mes "ҼǵǱ...һƳ.";
		mes "ڷ^3131FFҲ^000000. ڳĽҵ.";
		next;
		mes "["+ strcharinfo(0) +"]";
		mes "лл.";
		next;
		mes "[ͼݼְԱ]";
		mes "¸ϣؾܷǳ,Ѿǳ.";
		mes "Ҷü<˵ĺۼ>. ˵,Ǳǳ,Ըⲻ䷳Ķ.";
		next;
		mes "[ͼݼְԱ]";
		mes "...ӡ̵ĳ......";
		next;
		mes "[ͼݼְԱ]";
		mes "!ӢȼպĴ¥... ^FF0000--  --^000000";
		specialeffect2 EF_BASH3D2;
		close2;
		warp "que_ba",264,186;
		end;
	}
	else if (barmunt_crow == 12) {
		mes "[ͼݼְԱ]";
		mes "㻹?е..";
		mes "㿴е԰.";
		next;
		mes "[ͼݼְԱ]";
		mes "Ϊʲô㲻ȥϢһ?һ<˵ĺۼ>ʲô.";
		mes "ߵҵ.";
		close;
	}
	end;
}

yuno_in04,100,5,3	script	Ľ	111,{
	if (barmunt_crow == 3) {
		mes "^660000鼮ķƺڸΪʲôӵݵŵΪѧߵĳ.^000000";
		next;
		mes "^660000ǰмдų.^000000";
		next;
		mes "^660000Ⲣҵ'˵ѻ',";
		mes "ΪǿǽһΨһ.^000000";
		next;
		mes "["+ strcharinfo(0) +"]";
		mes "̫...!";
		specialeffect2 EF_VENOMDUST;
		next;
		mes "["+ strcharinfo(0) +"]";
		mes "..ӦðλĿȷ˿.";
		next;
		mes "^FF0000--  --^000000";
		next;
		mes "^660000ɧͱԹʱ.Ȼ,оһ,ǰһ...^000000";
		set barmunt_crow,4;
		close2;
		specialeffect2 EF_BASH3D2;
		warp "que_ba",247,33;
		end;
	}
	else if (barmunt_crow == 4) {
		mes "^660000鼮ķƺڸΪʲôӵݵŵΪѧߵĳ.^000000";
		next;
		mes "^660000ǰмдų.^000000";
		next;
		mes "^660000Ⲣҵ'˵ѻ',";
		mes "ΪǿǽһΨһ.^000000";
		next;
		mes "["+ strcharinfo(0) +"]";
		mes "̫...!";
		specialeffect2 EF_VENOMDUST;
		next;
		mes "["+ strcharinfo(0) +"]";
		mes "..ӦðλĿȷ˿.";
		next;
		mes "^FF0000--  --^000000";
		next;
		mes "^660000ɧͱԹʱ.Ȼ,оһ,ǰһ...^000000";
		close;
		specialeffect2 EF_BASH3D2;
		warp "que_ba",247,33;
		end;
	}
	else if (barmunt_crow == 5) {
		mes "^660000鼮ķƺڸΪʲôӵݵŵΪѧߵĳ.^000000";
		next;
		mes "^660000ǰмдų.^000000";
		next;
		mes "^660000Ⲣҵ'˵ѻ',";
		mes "ΪǿǽһΨһ.^000000";
		next;
		mes "["+ strcharinfo(0) +"]";
		mes "̫...!";
		specialeffect2 EF_VENOMDUST;
		next;
		mes "["+ strcharinfo(0) +"]";
		mes "..ӦðλĿȷ˿.";
		next;
		mes "^FF0000--  --^000000";
		next;
		mes "^660000ɧͱԹʱ.Ȼ,оһ,ǰһ...^000000";
		close2;
		specialeffect2 EF_BASH3D2;
		warp "que_ba",247,33;
		end;
	}
	end;
}

yuno_in04,100,3,0	script	#garas_path	139,1,1,{
//OnTouch2:
OnTouch2:
	if (barmunt_crow == 6) {
		mes "...................................";
		next;
		mes "...................................";
		mes "...................................";
		next;
		mes "...................................";
		mes "...................................";
		mes "...................................";
		next;
		mes "^660000Ȼͼ,";
		mes "ֲлʵ.^000000";
		next;
		mes "^660000ͷŲ,϶ǿյ.^000000";
		next;
		mes "["+ strcharinfo(0) +"]";
		mes "ξлһЩ...!";
		specialeffect2 EF_VENOMDUST;
		next;
		mes "^660000һ˵ξ:һ޷вΪ֪ĵطһȼյʵ.";
		mes "Ų,²ζʲô.^000000";
		next;
		mes "^660000ٴδ,ʲôҲûз.^000000";
		next;
		mes "<....Ũصͻҵļ,һ...>";
		next;
		mes "...................................";
		next;
		mes "<- ,ڸ?!! -";
		mes "-Ҳܶ!-";
		mes "̮ʵ,߽һԹ,СĵȡȻļп. >";
		next;
		mes "^660000...................................^000000";
		next;
		mes "^660000Ȿ齲ʵ,ξп.^000000";
		next;
		mes "["+ strcharinfo(0) +"]";
		mes "?ʶĸо?";
		next;
		mes "^660000Ȼ,ֻһ,Ȼһǳصľ.^000000";
		next;
		mes "...................................";
		next;
		mes "...................................";
		next;
		mes "'^660000ⳡ¹ڹȥ.ôĻ,ҿ϶ڹȥıֽҵ.";
		mes "...ҷǳ֪...^000000'";
		set barmunt_crow,7;
		changequest 2064,2065;
		close;
	}
	else if (barmunt_crow == 7) {
		mes "["+ strcharinfo(0) +"]";
		mes "ҹڻֵ,Ӧȥ?";
		close;
	}
	end;
}

yuno_in04,117,102,3	script	ż	844,{
	if (barmunt_crow == 7) {
		mes "^660000һļеľ,һľɱֽ.^000000";
		next;
		mes "^660000ϸıֽ,Ѱκιڻ¹ʵ.^000000";
		next;
		while(1) {
			mes "...................................";
			next;
			mes "...................................";
			next;
			set .@newspp,rand(1,10);
			if ((.@newspp == 1) || (.@newspp == 2)) {
				mes "- һҳ -";
				mes "Ĵ̿˹ֵ:ֻԸ.'";
				mes " ";
				mes "˹ֵ»̿ͳƺŵԭ";
				mes "оҵԼ";
				mes "Ůʿеȵ,";
				mes "кصԴȭ:";
				mes "һӢ,¶.";
				mes "λ˵Ĵ̿";
				mes "΢Цһ:";
				mes "һֱܵĺһŮһ,";
				mes "Ǵ.";
				mes "Ů֪Ů˾M,";
				mes "¡,";
				mes "Ϊδ޵İȫܾṩǸϢ.";
				mes "Ϣ,";
				mes "Ů˿ʾ߿,";
				mes "˵, 'ôЦ.";
				mes "̿ͱӰ.'";
				mes "ڷ˿ǵķӦ,";
				mes "˹ֵºδ޲̫.";
				mes " ";
				next;
			}
			else if ((.@newspp == 3) || (.@newspp == 4)) {
				mes "- ҳ -";
				mes "ŵı";
				mes " ";
				mes ",ŵ㳡Ŀ";
				mes "˵ı.";
				mes "ݴǵŵʿ,";
				mes "BһֱAĵΪǲ,";
				mes "ƺܲס.";
				mes "ǿʼǰ,AĺŷBĴ,";
				mes "˵Ľźʹ.'";
				mes ",Щ!";
				mes " ";
				next;
			}
			else if (.@newspp == 5) {
				mes "ϵ۵ľ:һʵһΪҽ";
				mes " ";
				mes "Ũصڱŵ,";
				mes "һʵµ.";
				mes "ѶϢδ,";
				mes "Ŀ߳,";
				mes "ʵǿյ,";
				mes "ûκε˻,";
				mes "ֻ,";
				mes "Դƶϳһʵ.";
				mes "ѧҶ¹ֳĽ,";
				mes "ӲдĻȡ,";
				mes "ʵǱ＼Ŀо,";
				mes "ʾΪϵ۵ķŭ,";
				mes "ڰŪĳͷ.";
				mes " ";
				next;
				mes "["+ strcharinfo(0) +"]";
				mes "...........................";
				mes "...........................";
				mes "мĵط!";
				next;
				mes "ȵ,ôѵȥ...?";
				next;
				mes "ټŷ.";
				mes "ԱµϢ.";
				next;
				mes "Ӧκκ̳߰?";
				next;
				mes "о˷ܵӿ.";
				mes "ⲻһλ߻,ķڹȥ.";
				next;
				mes "["+ strcharinfo(0) +"]";
				mes "Ҳ!";
				mes "... Ӧ ^FF0000һӵѨδ֪.^000000.";
				set barmunt_crow,8;
				changequest 2065,2066;
				close;
			}
			else if ((.@newspp == 6) || (.@newspp == 7)) {
				mes "- ҳ -";
				mes "- Ⱦҵˮ -";
				mes " ";
				mes "xһ - ";
				mes "ݡ˵´.";
				mes "'Ⱦҵˮ'ͼݵаΪλ.";
				mes "'Ⱦҵˮ'һŮ츣ȻĹ.";
				mes "ĸǰҪˮ,а.";
				mes "ҪԿȾȻа,ʹˮԴ.";
				mes "Ȿܿ챻ѡΪһҪѧ,";
				mes "޷ȹ͹ߵˮƽͻʶ.";
				mes " ";
				next;
			}
			else {
				mes "򱴺տ̮ (2)";
				mes " ";
				mes "ݰ򱴺չ˾ĹԱ,";
				mes "򱴺ղɿҵѾͣ,";
				mes "ѷʬ,";
				mes "һҴ߱ҽԺ.";
				mes "һؼת۵,";
				mes "ǼѰҴߵϣ,";
				mes "Ƹרҵ¹ԭ.";
				mes " ";
				next;
			}
		}
	}
	else {
		mes "^660000һļľ,źһѾɱֽ.^000000";
		close;
	}
}

yuno_in04,169,123,3	script	ɵ#oliver_h	407,{
	if (checkweight(617,3) == 0) {
		mes "- ̫޷ -";
		close;
	}
	if (barmunt_crow > 14) {
		mes "^660000λڱʼǱϿٵд.^000000";
		next;
		mes "["+ strcharinfo(0) +"]";
		mes "һǲҪȥ,еʱ,ѵ.";
		close;
	}
	else if (barmunt_crow == 13) {
		cutin "oliver_pre",2;
		if (countitem(7795) < 1) {
			mes "[ ϣ]";
			mes "Ůʿ...";
			close2;
			cutin "",255;
			end;
		}
		mes "[ ϣ]";
		mes "ıע,ԸŮʿ?";
		next;
		switch(select("ǵ:")) {
		case 1:
			cutin "oliver_smile",2;
			mes "[ ϣ]";
			mes ",лл!";
			next;
			mes "[ ϣ]";
			mes "һûյҵİ˰,";
			next;
			break;
		case 2:
			mes "[ ϣ]";
			mes "ð... ...";
			emotion e_sob;
			close2;
			cutin "",255;
			end;
		}
		mes "[ ϣ]";
		mes "һûл,ҵĳ˵зǳĶ.ϣ㹻.";
		next;
		mes "["+ strcharinfo(0) +"]";
		mes ",лл.";
		mes "֪, ޿... ! ...һŮʿĳ˿... ! Ϊʲô㲻ȥ?";
		next;
		mes "["+ strcharinfo(0) +"]";
		mes "ҴõǱΪ,и鼮... !";
		next;
		mes "[ ϣ]";
		mes "ллΪҴмֵϢ!";
		next;
		mes "[ ϣ]";
		mes "!ұд,,ڻû!";
		next;
		mes "[ ϣ]";
		mes "ϣҲϲҵһ.Ҫ...лл!";
		next;
		cutin "oliver_smile",255;
		mes "^660000һֻͷӬһ.Ѹٴİ,óԼ,ܵһǰ,ʼٵд.";
		mes ",ɵɵ,Ϊһ,ƷǷǳ.^000000";
		next;
		mes "^660000׼뿪ʱ,ֵһֽ.^000000";
		next;
		mes "^660000ֽͿѻ,<˵ѻ>ڶ. ŹС˵ <˵ѻ>ֽ.^000000";
		next;
		mes "^3131FFŴ = ĳֶԴ^000000";
		mes "^3131FF - һŮӵ^000000";
		mes "^3131FFĸ = ˹ȥ?!^000000";
		close2;
		specialeffect2 EF_ENHANCE;
		delitem 7795,1; //Mami_Photo_Album
		set barmunt_crow,14;
		getitem 7796,1; //Author_Autograph
		getitem 7797,1; //Author_Memo
		getitem 617,1; //Old_Violet_Box
		warp "que_ba",270,270;
		end;
	}
	else if (barmunt_crow == 14) {
		mes "["+ strcharinfo(0) +"]";
		mes "ⲻ֪ǲ.";
		mes "ŵ.";
		next;
		mes "["+ strcharinfo(0) +"]";
		mes ",ϣ.";
		next;
		cutin "oliver_think",2;
		mes "[ ϣ]";
		mes ".................";
		mes ".................";
		mes "...........?";
		next;
		cutin "oliver_think",255;
		mes "úܱǸ,ϰ.";
		next;
		mes "["+ strcharinfo(0) +"]";
		mes ".";
		next;
		mes "^660000ӿڴ﷭ȥұ¼,ͼſڼ𵽵ѻë,ͻȻ...^000000";
		next;
		mes "(ػ)";
		specialeffect EF_VENOMDUST;
		specialeffect2 EF_DETOXICATION;
		next;
		mes "^660000ë,㻹ûӦʱ˺Ƭ.^000000";
		next;
		mes "^660000ؿ,һ:ɵɵ,Ƿǳ.^000000";
		next;
		cutin "oliver_hum",2;
		mes "[ ϣ]";
		mes "?!";
		mes "ëô?";
		next;
		mes "[ ϣ]";
		emotion e_wah;
		mes "!?";
		mes "ҵ,ҺܱǸ!ҺܱǸ!";
		next;
		mes "^660000ֱԭԸ,ʼǸղŵΪ.^000000";
		next;
		emotion e_sob;
		mes "[ ϣ]";
		mes "...Ҳ֪εǸ...";
		mes "ֻ... ұ÷ǳ.ҡ!,Բ!";
		next;
		mes "["+ strcharinfo(0) +"]";
		mes "û,ֻڽϼ.㲻صǸ.";
		next;
		mes "[ ϣ]";
		mes "Ȼ㶼ô˵,лл.";
		mes ",Ҹеھ...";
		next;
		mes "["+ strcharinfo(0) +"]";
		mes ",ı¼.";
		next;
		mes "[ ϣ]";
		mes "԰,Ѿû.";
		mes "...";
		next;
		cutin "oliver_pre",2;
		mes "[ ϣ]";
		mes "иΰ뷨.ҺܱǸ,Ҫ.";
		next;
		cutin "oliver_pre",255;
		mes "^660000˵Ժ,ȫרעд.^000000";
		next;
		mes "["+ strcharinfo(0) +"]";
		mes "˵ר.";
		mes "Ҳ˶дİ?";
		next;
		mes "["+ strcharinfo(0) +"]";
		mes "...ȵ,Һ񲻴...";
		mes "ͷʹؿڳصĸоҲ,һߵ̫Զ!";
		next;
		mes "["+ strcharinfo(0) +"]";
		mes "ĪΪ֧ѻë?Ļ...?";
		next;
		switch(select("ΪǱʯ:Ϊ˺ѻë")) {
		case 1:
			mes "["+ strcharinfo(0) +"]";
			mes ".";
			mes "ӦΪǿ鼯ѻʯͷ,";
			next;
			mes "["+ strcharinfo(0) +"]";
			mes "һжΪǸͼݹݳ!";
			mes "ֵҵëû,Ҳܵκ.";
			next;
			break;
		case 2:
			mes "["+ strcharinfo(0) +"]";
			mes "Ҽǵû˵뿪ʱһ֧ɫë.";
			next;
			mes "["+ strcharinfo(0) +"]";
			mes "Ȼ,λŮѻ;ȻֻѻëҴͿ.";
			next;
			mes "["+ strcharinfo(0) +"]";
			mes "..................";
			next;
			mes "["+ strcharinfo(0) +"]";
			mes "û,ֻѻϣ!";
			mes "Ҳ֪Ƿͼݹݳѻʯ...";
			next;
			mes "["+ strcharinfo(0) +"]";
			mes "..................";
			mes "һ޴뷨.";
			next;
			break;
		}
		mes "["+ strcharinfo(0) +"]";
		mes ".";
		mes "ҪҵĲ!";
		mes "һ,ھҪʵ~";
		next;
		mes "^660000뿪ͼʱ,ӦҰ̸̸ȽϺ.^000000";
		next;
		mes "["+ strcharinfo(0) +"]";
		mes "൱Ȥ,Ҳͦ۵.Ӧõҵð?";
		set barmunt_crow,15;
		completequest 2068;
		close2;
		cutin "",255;
		end;
	}
	else {
		mes "^660000һܿɵڵ,ƺѰʲô.^000000";
		close;
	}
}

yuno_in04,167,120,3	script	ƾɵ#garas	111,{
	if (checkweight(617,3) == 0) {
		mes "- Ѿ̫޷ -";
		close;
	}
	if (barmunt_crow == 12) {
		if (countitem(7795) < 1) {
			mes "- 㻹иҪû. -";
			close;
		}
		mes "^660000Ȿķ,ȴܽ.Ӧкܶ˷Ĺ.^000000";
		next;
		mes "^660000Сķһҳ,ܵĻһξ.^000000";
		next;
		mes ".........................";
		mes ".........................";
		mes ".........................";
		next;
		mes "< ʱ - ܼסô - Ĵ,뵽δ֪ĵطȥ.";
		mes "һСкʱ,ͱʥ˸ǻ.ʹö,ڸ̰¶.";
		mes ",Сͱһׯĵ¼,ȴ.";
		mes "ҵļĸ,뵽ȥѧϰ֪ʶ,Ǻ뷨,ǳ.";
		mes ",Ȱ費֯ӱʵ.";
		mes " ";
		mes "- Ϣ! Ϣ! -";
		mes "޾ĺڰб.ͼ㿪ֹ˻.>";
		next;
		mes ".........................";
		mes ".........................";
		mes ".........................";
		next;
		mes "< - ...-";
		mes "-....-";
		mes "- ,ܿ?оô? -";
		mes "һ˼߽,ϴ΢Ц,.Скʼе,һδӴׯĵط.";
		mes "ǿԼӴ,˿.";
		mes " ";
		mes "- ?Ϊʲô? - ";
		mes "- ϳڽϷڽ.ҵֽк.ԽҺ,.-";
		mes "-.......-";
		mes "- ʲô? -";
		mes "-.......-";
		mes "- Ϊʲôڽ?ס?ĸĸһܵ.-";
		mes "ǵĻðҰһ,ŵô.";
		mes "- ûסĵط,Ҳûиĸ. -";
		mes "ò˺ܾ.,λƺǳ:ǳͬСк.Ǽ,Ҫס.";
		mes ",ʼѧϰ.һŵѧĽ.,.>";
		next;
		mes ".........................";
		mes ".........................";
		mes ".........................";
		next;
		mes "^660000оڶ㿴Ǳ.̧ͷ,һܿɵڿ.^000000";
		next;
		cutin "oliver_pre",2;
		mes "^660000Ц߽,ҡҡ.^000000";
		next;
		mes "[ܿɵ]";
		mes ",ڶ<˵ĺۼ>!";
		mes ",ܸ˼.Ȿ.ҵ<˵ѻ>,ҵ!Ҿú,лл!Ǻ.";
		next;
		mes "["+ strcharinfo(0) +"]";
		mes ",.Ҳһ...";
		next;
		mes "[ ϣ]";
		mes "!Ҫҵǩ?";
		next;
		mes "(д)";
		next;
		mes "[ ϣ]";
		mes "^660000ӿڴóһֽ,ǳǩ,Ȼ󽻸.^000000";
		next;
		mes ",.ǩôһ,ҫ!";
		next;
		mes "[ ϣ]";
		mes "ʵ,ֻдпĶ:Ҳ֪ǻôϲҵĹ!˵.";
		next;
		mes "["+ strcharinfo(0) +"]";
		mes "?";
		next;
		cutin "oliver_think",2;
		mes "[ ϣ]";
		mes "ǵ,һֱξ,ʵ.";
		mes "˸ΰҵͨǵξ.Ҳһ.!";
		next;
		mes "оνξֲĸо,ֻͨ.";
		mes "κ㿴һ,ζξ.ȻѾеɽʵڵ.";
		next;
		mes "["+ strcharinfo(0) +"]";
		mes "Ӣ۰...";
		next;
		cutin "oliver_pre",2;
		mes "[ ϣ]";
		mes "!";
		mes "ɲ?!";
		emotion e_omg;
		next;
		mes "["+ strcharinfo(0) +"]";
		mes "?";
		next;
		mes "^660000˳۾תͷȥ,ֻ.^000000";
		next;
		mes "["+ strcharinfo(0) +"]";
		mes "...!ϣ,ϲҵİ?ֻһҴѵõİ...";
		specialeffect2 EF_VENOMDUST;
		next;
		mes "[ ϣ]";
		mes ",ǵ!";
		next;
		mes "[ ϣ]";
		mes "ҿĶ!";
		next;
		mes "^660000һ±Ķ,...^000000";
		next;
		cutin "oliver_smile",2;
		mes "[ ϣ]";
		mes "Ůʿ!";
		emotion 14;
		next;
		mes "^660000޿˵İϲ¬׵¼Ӷΰż֮һ,һǰϲõԭ.^000000";
		emotion e_dots,1;
		next;
		mes "["+ strcharinfo(0) +"]";
		mes "!Ҳķ˿?";
		specialeffect2 EF_VENOMDUST;
		next;
		mes "[ ϣ]";
		mes "˵Ц?!ǵȻ!";
		mes ",ҵһһƯŮ?";
		mes "Ǳ½ʶǻŮ.";
		next;
		mes "^660000ƺһ֪,Զ޷.^000000";
		next;
		mes "[ ϣ]";
		mes "ҿԿһ?";
		next;
		mes "^660000ݸ.^000000";
		next;
		mes "[ ϣ]";
		mes ".................";
		next;
		mes "[ ϣ]";
		mes "...!";
		cutin "mami01",4;
		emotion 3;
		next;
		mes "[ ϣ]";
		mes "...Ŷ!";
		cutin "mami02",4;
		emotion 3;
		next;
		cutin "oliver_smile",2;
		mes "[ ϣ]";
		mes "ΪʲôᰮŮʿ.";
		mes "ðռ,һĿȷ˿.ҵⱾϡ?";
		next;
		mes "["+ strcharinfo(0) +"]";
		mes ",ֻǴĳΪõ... !";
		specialeffect2 EF_VENOMDUST;
		next;
		mes "[ ϣ]";
		mes "ʲô?ҳԾ!";
		mes "ҳԾȻŮʿ,";
		mes "˳Ծ,ϵ۰һѵõֵ!";
		mes "Ȿ鷢֮һķɴɵ¬׵¼Ӷȥ,";
		mes "Ȼֵʱ!";
		next;
		mes "["+ strcharinfo(0) +"]";
		mes "...............";
		mes "... ...";
		emotion 4,1;
		next;
		mes "[ ϣ]";
		mes "...";
		mes "Ȼ㲻ϲⱾ,Ϊʲô";
		next;
		mes "[ ϣ]";
		mes "Ҹ߹,Ըȥ.~";
		mes "ĺ!";
		next;
		switch(select(":")) {
		case 1:
			mes "[ ϣ]";
			mes ",лл!";
			next;
			mes "[ ϣ]";
			mes "һûյҵİ˰,?";
			next;
			break;
		case 2:
			mes "[ ϣ]";
			mes "ð... ...";
			emotion e_sob;
			set barmunt_crow,13;
			close2;
			cutin "",255;
			end;
		}
		mes "[ ϣ]";
		mes "һûл,ҵĳ˵ŷǳĶ.ϣ㹻.";
		next;
		mes "["+ strcharinfo(0) +"]";
		mes ",лл.";
		mes "֪, ޿... ! ...һŮʿĳ˿... ! Ϊʲô㲻ȥ?";
		next;
		mes "["+ strcharinfo(0) +"]";
		mes "ҴõǱΪ,и鼮... !";
		next;
		mes "[ ϣ]";
		mes "ллΪҴмֵϢ!";
		next;
		mes "[ ϣ]";
		mes "!ұд,,ڻû!";
		next;
		mes "[ ϣ]";
		mes "ϣҲϲҵһ.Ҫ...лл!";
		next;
		cutin "oliver_smile",255;
		mes "^660000һֻͷӬһ.Ѹٴİ,óԼ,ܵһǰ,ʼٵд.";
		mes ",ɵɵ,Ϊһ,ƷǷǳ.^000000";
		next;
		mes "^660000׼뿪ʱ,ֵһֽ.^000000";
		next;
		mes "^660000ֽͿѻ,<˵ѻ>ڶ. ŹС˵ <˵ѻ>ֽ.^000000";
		next;
		mes "^3131FFŴ = ĳֶԴ^000000";
		mes "^3131FF - һŮӵ^000000";
		mes "^3131FFĸ = ˹ȥ?!^000000";
		close2;
		specialeffect2 EF_ENHANCE;
		delitem 7795,1; //Mami_Photo_Album
		set barmunt_crow,14;
		getitem 7796,1; //Author_Autograph
		getitem 7797,1; //Author_Memo
		getitem 617,1; //Old_Violet_Box
		warp "que_ba",270,270;
		cutin "",255;
		end;
	}
	else {
		mes "^660000The book's cover was seriously damaged, considering its recent publishing date. Many people must have turned its pages.^000000";
		close;
	}
}

que_ba,247,33,0	script	#bpast_1_1	-1,1,1,{
//OnTouch2:
OnTouch:
	if (barmunt_crow < 4) {
		warp "ama_dun03",119,110;
	}
	else {
		sc_end SC_Blind;
		mes "[???]";
		mes "!";
		next;
		mes "^660000Ȿķ,ȴܽ.Ӧкܶ˷Ĺ.^000000";
		next;
		mes "^660000оµĵƶ,ȻڱϽһ.^000000";
		next;
		mes "^660000ƾɾ޴Ľ򿪵ĴƮ˰ɫ.^000000";
		close;
	}
}

que_ba,257,39,3	script	ŮоԺ#bpast	744,{
	if (barmunt_crow < 4) {
		warp "ama_dun03",119,110;
	}
	else if (barmunt_crow == 4) {
		mes "^660000סʱ,һŮ˾.㱾ܵİļע.^000000";
		next;
		mes "["+ strcharinfo(0) +"]";
		mes "!!...";
		mes "...?";
		specialeffect2 EF_VENOMDUST;
		next;
		mes "- Pzzzz -";
		specialeffect EF_CLOAKING;
		next;
		mes "^660000˾ȵ,ִ.^000000";
		next;
		mes "["+ strcharinfo(0) +"]";
		mes "...ҵĶ?";
		close;
	}
	else {
		warp "yuno_in04",100,3;
	}
	end;
}

que_ba,265,34,0	warp	#bpast_1to2	1,1,que_ba,156,37

que_ba,176,43,7	script	оԱ#bpast_2_1	402,{
	specialeffect EF_CLOAKING;
	mes "[оԱ]";
	mes "л!";
	mes ",,!";
	close;
}

que_ba,181,14,7	script	Researcher#bpast_2_2	865,{
	specialeffect EF_CLOAKING;
	mes "[оԱ]";
	mes ", !";
	mes "... Ҳܺ... Ҫȥ...";
	close;
}

que_ba,183,25,0	warp	#bpast_2to3_1	1,1,que_ba,72,25;
que_ba,183,52,0	warp	#bpast_2to3_2	1,1,que_ba,72,51;

que_ba,102,56,0	script	#3room_barmunt	-1,3,3,{
//OnTouch2:
OnTouch:
	if (barmunt_crow < 4) {
		warp "yuno_in04",100,3;
	}
	else {
		mes "^660000㴩ɵ,һڱķ.^000000";
		next;
		mes "^660000Ϊ,㿴Ķ,֪ʲôڷ.^000000";
		next;
		mes "^660000۾,.˵,ǵļӰó˵״.^000000";
		next;
		mes "[Ů]";
		mes "! ... !";
		mes "Щ... , !";
		next;
		mes "^660000ĿΪĻԽԽƵ.^000000";
		next;
		mes "[]";
		mes ",ǵ!";
		next;
		mes "[Ů]";
		mes "...ֻõ?";
		next;
		mes "[]";
		mes "? ....";
		mes "^3131FF''^000000, ǲȥ...Ǵûл.";
		next;
		mes "- ҡҡ׹ -";
		next;
		mes "[]";
		mes "Argh!";
		next;
		mes "^660000Ψһĳڱס,û߳.ǽڵһ̮.^000000";
		next;
		mes "^660000ǸѸٿǽ,ʼڿĽ.^000000";
		next;
		mes "[]";
		mes "...!";
		next;
		mes "[]";
		mes "߰,!";
		next;
		mes "[]";
		mes "ȵ,Ǳǵĺһ.";
		next;
		mes "^660000Ǹ޵ŮߵǽһԹǱ.^000000";
		next;
		mes "[]";
		mes "!!ûʱ!!";
		if (barmunt_crow == 4) {
			set barmunt_crow,5;
		}
		sc_start SC_Blind,600000,0,10000;
		close2;
		warp "que_ba",53,232;
		end;
	}
	end;
}

que_ba,104,55,3	script	Grotesque Ů#eva1	980,{
	specialeffect EF_CLOAKING;
	end;
}

que_ba,99,51,7	script	Grotesque #zid1	999,{
	specialeffect EF_CLOAKING;
	end;
}

que_ba,53,232,0	script	#garas_f_yume	139,1,1,{
//OnTouch2:
OnTouch:
	if (barmunt_crow == 5) {
		//GetHEALTHSTATE VAR_HEALTHSTATENORMAL 0
		mes "^660000ͻȻһâʹ۾.Ӻ,۾,Լ޷ȹ͹.^000000";
		next;
		mes "^660000Ȼֹһ:㿴ӳʵҵ˺Ů.^000000";
		next;
		mes "["+ strcharinfo(0) +"]";
		mes "...";
		next;
		mes "[ι״]";
		mes "Ӧõȥ?";
		mes "û˻Ỷӭ...ǿ!";
		next;
		mes "[]";
		mes "...";
		mes "֪һԲĶѨ.";
		mes "ǿһʱ.";
		next;
		mes "^660000ƺоĴ,ʼ򱱱.^000000";
		next;
		mes "^660000㿴뿪ıӰ,ڶǱ....^000000";
		set barmunt_crow,6;
		specialeffect2 EF_FLASHER;
		close2;
		warp "yuno_in04",100,3;
	}
	else {
		warp "yuno_in04",100,3;
	}
	end;
}

que_ba,50,238,1	script	Grotesque Ů#eva2	980,{
	specialeffect EF_CLOAKING;
	end;
}

que_ba,48,227,7	script	Grotesque #zid2	999,{
	specialeffect EF_CLOAKING;
	end;
}

que_ba,264,186,0	script	#barmut_room1	139,2,2,{
//OnTouch2:
OnTouch:
	if (barmunt_crow == 11) {
		mes "^660000˹,.㷢Լһլ.^000000";
		next;
		mes "^660000оؿھʹ,ͺڼѹ.^000000";
		next;
		mes "^660000լǳŸ߹,,һξеʵ.^000000";
		next;
		mes "^660000ܵĻ,֪ⷿӲû̮.סؿڵʹ,ĴѰҳ,һվ¥µĻ.^000000";
		next;
		mes "^660000ƺʱ,ķһֵͳ˵.^000000";
		next;
		mes "[]";
		mes ".....................";
		mes "Ͼ,Ū...";
		mes "Զļƻ...";
		mes "ʹõҲĿ...";
		next;
		mes "[]";
		mes "ҵ...";
		mes "Ѿ׼ý...һ...";
		next;
		mes "^660000ûѻ˵ͱ.ͬʱ,...^000000";
		specialeffect EF_METEORSTORM;
		set barmunt_crow,12;
		close2;
		warp "yuno_in04",108,57;
	}
	else {
		warp "yuno_in04",108,57;
	}
	end;
}

que_ba,270,181,3	script	#barmunt_fire	755,{
	end;
}

que_ba,270,270,0	script	#barmunt_living	139,1,1,{
//OnTouch2:
OnTouch:
	mes "..................";
	mes "..................";
	mes "..................";
	mes "..................";
	next;
	mes "[]";
	mes "..................";
	mes "..................";
	mes "..................";
	mes "...,!";
	next;
	mes "[]";
	mes "һ?";
	mes "..................";
	mes "...찡,̫.";
	next;
	mes "[]";
	mes "ĸ...һͨ.";
	mes "վ?";
	mes "..................";
	next;
	mes "^660000,ץźʪͷ.^000000";
	next;
	mes "["+ strcharinfo(0) +"]";
	mes "һ.";
	mes "ӦÿҲ˵ʲô,һ.";
	next;
	mes "^660000㾯ض.";
	mes "ͻȻתͷ,ŭŤ.^000000";
	next;
	mes "[]";
	mes "ôҵҵ?!";
	next;
	mes "["+ strcharinfo(0) +"]";
	mes "...ʲô!õ!õ!";
	next;
	enablenpc "#barmut_onna";
	mes "[Ů]";
	mes "㲻ô,.";
	next;
	mes "^660000,";
	mes "ת,һλŮվ.^000000";
	next;
	mes "[Ů]";
	mes "Ҫ,ʱе --  ^FF00FF^000000 and ^FF00FF^000000 -- Ȼ.";
	next;
	mes "[]";
	mes "ǱͲӦô!";
	next;
	mes "[Ů]";
	mes "ľ.Ҳ...";
	next;
	mes "[]";
	mes "!";
	next;
	mes "^660000ŭ˰γһѵŮ.Ů˱һֻѻ,صЦ.^000000";
	disablenpc "#barmut_onna";
	specialeffect EF_BAT;
	next;
	mes "[ص ]";
	mes "ע,ôŬȥӱ...";
	soundeffect "loli_ruri_stand.wav",0;
	next;
	mes "..................";
	mes "..................";
	mes "..................";
	mes "..................";
	next;
	mes "..................";
	mes "..................";
	mes "..................";
	mes "..................";
	close2;
	warp "yuno_in04",165,122;
	end;
}

que_ba,263,276,3	script	#barmut_room2	755,{
	end;
}

que_ba,266,268,3	script	#barmut_onna	982,{
OnInit:
	disablenpc "#barmut_onna";
	end;
}

cave,82,97,3	script	Ѩе#g1	996,3,3,{
	if (barmunt_crow == 8) {
		mes "[Ѩе]";
		mes "ǲ.";
		next;
		switch(select(":,˵!")) {
		case 1:
			mes "[Ѩе]";
			mes ",Ҿ֪㺦!";
			close2;
			warp "cave",81,92;
			end;
		case 2:
			mes "["+ strcharinfo(0) +"]";
			mes "...!";
			mes "'Һ˲ͬ... !";
			mes "... !";
			specialeffect2 EF_VENOMDUST;
			next;
			mes "^660000Ȼе㺦,ûа,˵.^000000";
			next;
			mes "["+ strcharinfo(0) +"]";
			mes "˵!";
			input .@input$;
			mes " ^FF0000"+.@input$+"^000000!";
			next;
			if (compare(.@input$,"") == 0) {
				mes "[Ѩе]";
				mes "ں˵Ц?ҪѰʧٺͯӦȥŵ.";
				close2;
				warp "cave",81,92;
				end;
			}
			else {
				mes "[Ѩе]";
				mes "............!!!!";
				next;
				mes "[Ѩе]";
				mes "˵?";
				mes "...";
				mes "ȵ.";
				next;
				emotion 44;
				mes "[Ѩе]";
				mes ",ѵ!";
				enablenpc "ѵ#garas1";
				next;
				mes "[Ѩе]";
				mes "ȥ,һ.";
				disablenpc "ѵ#garas1";
				next;
				mes "^660000˾ȵ,֪˭.㻹ǲĴ!̫.^000000";
				next;
				mes "^660000ǳ˷ܺڴ.ξζʲô.^000000";
				enablenpc "ѵ#garas1";
				next;
				mes "[Ѩе]";
				mes ",.";
				next;
				disablenpc "ѵ#garas1";
				mes "[Ѩе]";
				mes "¥ȥ.˵κλκ֮ǰȿ.㶮ҵ˼?";
				next;
				mes "^660000Ǹߵһ,ͨ.";
				mes "ŵսȭͷ,Ȼʼ¥.^000000";
				set barmunt_crow,9;
				close2;
				warp "cave",82,105;
				end;
			}
		}
	}
	else if (barmunt_crow < 8) {
		mes "[Ѩе]";
		mes "˲.";
		next;
		mes "^660000,ҳúܿ.^000000";
		close2;
		warp "cave",81,92;
		end;
	}
	else {
		mes "[Ѩе]";
		mes "ҵҪһ?";
		mes "ÿ,ⲻӭ.";
		close;
	}

//OnTouch2:
OnTouch:
	if (barmunt_crow == 8) {
		mes "[Ѩе]";
		mes "˲.";
		next;
		switch(select(":,˵!")) {
		case 1:
			mes "[Ѩе]";
			mes ",Ҿ֪㺦!";
			close2;
			warp "cave",81,92;
			end;
		case 2:
			mes "["+ strcharinfo(0) +"]";
			mes "...!";
			mes "'Һ˲ͬ... !";
			mes "... !";
			specialeffect2 EF_VENOMDUST;
			next;
			mes "^660000Ȼе㺦,ûа,˵.^000000";
			next;
			mes "["+ strcharinfo(0) +"]";
			mes "˵!";
			input .@input$;
			mes " ^FF0000"+.@input$+"^000000!";
			next;
			if (compare(.@input$,"") == 0) {
				mes "[Ѩе]";
				mes "ں˵Ц?ҪѰʧٺͯӦȥŵ.";
				close2;
				warp "cave",81,92;
				end;
			}
			else {
				mes "[Ѩе]";
				mes "............!!!!";
				next;
				mes "[Ѩе]";
				mes "˵?";
				mes "...";
				mes "ȵ.";
				next;
				emotion 44;
				mes "[Ѩе]";
				mes ",ѵ!";
				enablenpc "ѵ#garas1";
				next;
				mes "[Ѩе]";

				mes "ȥ,һ.";
				disablenpc "ѵ#garas1";
				next;
				mes "^660000˾ȵ,֪˭.㻹ǲĴ!̫.^000000";
				next;
				mes "^660000ǳ˷ܺڴ.ξζʲô.^000000";
				enablenpc "ѵ#garas1";
				next;
				mes "[Ѩе]";
				mes ",.";
				next;
				disablenpc "ѵ#garas1";
				mes "[Ѩе]";
				mes "¥ȥ.˵κλκ֮ǰȿ.㶮ҵ˼?";
				next;
				mes "^660000Ǹߵһ,ͨ.";
				mes "ŵսȭͷ,Ȼʼ¥.^000000";
				set barmunt_crow,9;
				close2;
				warp "cave",82,105;
				end;
			}
		}
	}
	else if (barmunt_crow < 8) {
		mes "[Ѩе]";
		mes "˲.";
		next;
		mes "^660000,ҳúܿ.^000000";
		close2;
		warp "cave",81,92;
	}
	end;
}

cave,85,101,3	script	ѵ#garas1	401,{
OnInit:
	disablenpc "ѵ#garas1";
	end;
}

ein_fild01,28,261,0	warp	cave_in1	1,1,cave,97,24
cave,97,21,0	warp	case_out1	1,1,ein_fild01,28,255

cave,86,167,0	warp	zid_in	1,1,cave,77,185
cave,79,180,0	warp	zid_out	3,3,cave,90,162

cave,22,186,3	script	 #zid	999,{
	if (barmunt_crow == 9) {
		mes "^660000㿴һ÷ǳ.";
		mes "ξпһǸ.Ȼ,ݺƤϿԿѾ.^000000";
		next;
		mes "()";
		next;
		mes "["+ strcharinfo(0) +"]";
		mes "...";
		next;
		mes "^660000˹ؿ,оؿʹ...";
		mes "оƺʹ,ͣĿԺʹ.^000000";
		next;
		mes "^660000ؿڵʹ,㾪ȵĶ.^000000";
		next;
		mes "^660000лл,ʼ˵.^000000";
		next;
		mes "[ ]";
		mes "㱻ҵòŵ?";
		next;
		mes "[ ]";
		mes ",֪...?";
		next;
		mes "^660000,ûʲô˵.^000000";
		next;
		mes "["+ strcharinfo(0) +"]";
		mes "!";
		specialeffect2 EF_VENOMDUST;
		next;
		mes "["+ strcharinfo(0) +"]";
		mes "ʶһа ϣص?";
		next;
		mes "[ ]";
		mes "?Ҳʶ.";
		mes "ʲôϵ?";
		next;
		mes "^660000ѰС˵<˵ѻ>,ͷֵ.^000000";
		next;
		mes "....................";
		next;
		mes "....................";
		mes "....................";
		next;
		mes "....................";
		mes "....................";
		mes "....................";
		next;
		mes "^660000۾ķ˼ҳ,Ȼ黹,ʼ˵.^000000";
		next;
		mes "[ ]";
		mes "Һܾ,ⱾĹ...ҵ.";
		next;
		while(1) {
			mes "[]";
			mes "ҵֽл,֪ʲô,֪Ȿ.";
			next;
			switch(select("ɽ:Լ::Ի")) {
			case 1:
				mes "[]";
				mes "ûע⵽ǵĴͨ˲ͬ?";
				next;
				mes "[]";
				mes "ǵĺĿԴ޴ĳɾ빱,ҲҪ֪ʶ.";
				mes "ÿһ˶...Ƕܺ.ǰϵ۵Ľɫ,Ѱɵ֪ʶ,.";
				next;
				mes "[]";
				mes "뷴,̫ǿ.Ǳѡֻܶ...ʹ֪ǲԵ.";
				next;
				break;
			case 2:
				mes "[]";
				mes "һͨ,ƶʧȥҵĽ,غ.";
				mes "ÿ쵣ʳﲻ,ԸμһЩʵ.";
				mes "ҲҪİ,ҵΪ''ʱҲ.";
				next;
				mes "[]";
				mes ",Ψһһס,˼,һСׯγ.";
				mes "ϵĴ,оһݳҪ.";
				next;
				break;
			case 3:
				mes "[]";
				mes "ʵ,Һ޽еĲͨʵ.";
				mes "ǵʵڷ.";
				next;
				mes "[]";
				mes "ûʵĿ,";
				mes "һϵ¼ͼо.";
				mes "ΪоΪഴһȫµ...";
				next;
				mes "[]";
				mes "޾ǵ֮һ...Ȼ,ͬ,ΪҰԼƶ.";
				next;
				mes "[]";
				mes "һ...";
				mes "Ͽ,һֱ֧о.";
				next;
				mes "[]";
				mes "...ھɱ,ްһ...ȥʵ.";
				mes "û뵽׽Լ,ʱоԱ.";
				next;
				mes "[]";
				mes "ʵŻ.Ҳ¾ξ.ջеĽ.";
				next;
				mes "[]";
				mes "޺֮,Ƿﶨ.Ͼ,ǲܻͨ˵.";
				next;
				mes "[]";
				mes "޾һʵɳΪһƽ,ʵ.";
				next;
				mes "[]";
				mes "Ǹкʱ10,ֵഺ...֪,кŮ.";
				next;
				mes "[]";
				mes ".ںڰɽеȴĻع.һʱ,ûеַŸ,ֹͣ.ʱ޾ʧ.";
				mes "뿪ķҵ^3131FFһֻ޴ĺɫë^000000.";
				next;
				mes "[]";
				mes "Ҳ֪Ϊʲô,...޲ٳ...";
				next;
				break;
			case 4:
				set .@exitloop,1;
				break;
			}
			if (.@exitloop) break;
		}
		mes "[]";
		mes "...";
		mes "޵ǸСк...";
		next;
		mes "[]";
		mes "Ӧò,̫.Ǻܾǰ...";
		next;
		mes "[]";
		mes ".........................";
		next;
		mes "[]";
		mes "ֻǹϵļ...ΪʲôҪ?Ϊʲôÿ˶?";
		next;
		mes "^660000µͷ˵,ͣһ,ֽ˵.^000000";
		next;
		mes "[]";
		mes "Ѿ,ټǵк.";
		mes "ҵĿǱĴ,ǰڰɽ.";
		next;
		mes "[]";
		mes "ⱾȤ,Ǹаļһﾭ˷ϵ.";
		next;
		mes "[]";
		mes "ʹ,ҲѾ̫.";
		next;
		mes "[]";
		mes "뿴:˭뿪ɽ,޻Ǹк?û.";
		next;
		mes "[]";
		mes ".................................";
		next;
		mes "[]";
		mes "ҺܱǸ,ֻе.";
		mes "ôξѹ,صȥ.";
		mes "...ɱһֻһ...";
		next;
		mes "[]";
		mes "ͬ,벻Ҫñ֪ǵ.";
		next;
		mes "^660000תͷԶ.㻹ȷһǲ,һжôĳԽʵ...^000000";
		next;
		mes "^660000ͻ¾ɥ̸,ص޿ȥ,﷢һ.^000000";
		set barmunt_crow,10;
		changequest 2066,2067;
		close;
	}
	else if (barmunt_crow == 10) {
		mes "ƺѾⱾʧȥȤ.";
		mes "ҪⱾ̸޿˵İ.";
		close;
	}
	else {
		mes "[ ]";
		mes "Ҫҵ...";
		close;
	}
}

cave,91,43,3	script	Ѩе#f_cave1	870,{
	mes "[Ѩе]";
	mes "()";
	next;
	mes "[Ѩе]";
	mes "... ...";
	close;
}

cave,72,71,5	script	Ѩе#m_cave2	981,{
	mes "[Ѩе]";
	mes "...";
	mes "Ҫ... ?";
	next;
	mes "- ħ. -";
	close;
}

cave,134,62,1	script	Ѩе#m_cave3	981,{
	mes "[Ѩе]";
	mes "!";
	mes "Ư!";
	mes "۰!";
	mes "ҵ!";
	close;
}

cave,113,74,5	script	Ѩе#f_cave4	401,{
	mes "[Ѩе]";
	mes "û˻ӭ,뿪.";
	next;
	mes "[Ѩе]";
	mes "۾..Ե!ٺٺ!";
	close;
}

cave,76,39,5	shop	ѨеŮ#f_cave5	62,712:-1

cave,108,34,3	script	Ѩе#f_cave6	979,{
	mes "[Ѩе]";
	mes "Ǻ,ô˵...?";
	mes "!";
	next;
	mes "[Ѩе]";
	mes "һ...";
	next;
	mes "()";
	mes "()";
	close;
}

cave,105,32,7	script	Ѩе#f_cave7	979,{
	mes "[Ѩе]";
	mes "Ǻ,ô˵...?";
	mes "!";
	next;
	mes "[Ѩе]";
	mes "һ...";
	next;
	mes "()";
	mes "()";
	close;
}

// λ̳
// ============================================================
prontera,153,353,4	script	#prince1	105,{
	if (nk_prince == 0) {
		if (rebirth_moc_edq > 1) {
			mes "[]";
			mes "һʼҷԺĴ,Ҫһɿðռ.һǹҷǳҪ.";
			next;
			if (aru_monas > 23) {
				mes "[]";
				mes "ܶԹҴϰ,ǶĶħ.Ǳ뾡𲻱ҪĿֻ.";
				next;
				mes "[]";
				mes "벻Ҫ̫...ʵ,¬׵¼Ӷصǰι,˹̹,";
				next;
				switch(select("?:Ҫеǻʽ?")) {
				case 1:
					emotion e_gasp;
					mes "[]";
					mes "Ѿ֪...";
					mes "ҲҪ̫.";
					next;
					mes "[]";
					mes "λ̫ܿʱ.";
					mes ",һιѡڻ.,Ϊ¬׵¼Ӷ.";
					set nk_prince,1;
					setquest 10000;
					close;
				case 2:
					mes "[]";
					mes "...";
					next;
					mes "[]";
					mes "ô?";
					mes "ľõǻһҺҪ?";
					next;
					mes "[]";
					mes "...";
					mes "ڴǺƽ.һǲ֪ô,̫.";
					next;
					mes "[]";
					mes "˹̹,¬׵¼Ӷͳ...";
					next;
					mes "[]";
					mes "...";
					mes ".";
					next;
					mes "[]";
					mes "Ϊ˷ֹɢ,Ϣûй.ʼҷͥѾھѡȡһι.Ǻܻڴ.";
					next;
					mes "[]";
					mes "Ҫѧϰʦ߱Ĳ.ҵʹṩЩϢһɿ¸ҵðռ.";
					next;
					mes "[]";
					mes "æ...";
					mes "Ϊ¬׵¼Ӷصδ.";
					set nk_prince,1;
					setquest 10000;
					close;
				}
			}
			else {
				mes "[]";
				mes "ܶԹҴϰ,ǶĶħ.Ǳ뾡𲻱ҪĿֻ.";
				next;
				mes "[]";
				mes "ûڹǰһ¼,";
				mes "ܻһЩ.";
				next;
				mes "[]";
				mes "ҵǶԸЩ.";
				mes "ѾҵĻлһЩ...";
				next;
				mes "[]";
				mes "˹̹...";
				next;
				mes "[]";
				mes "˹̹...";
				mes "......";
				mes "...˳¼Բʹ.";
				next;
				mes "[]";
				mes "ʼҷԺѡһι,ҵҵһʵðռҶǽм.";
				next;
				mes "[]";
				mes "ǻ֪";
				mes "ΪʦҪЩʲô,";
				mes "ϣܹ¬׵¼Ӷ";
				mes "ƽͰ.";
				set nk_prince,1;
				setquest 10000;
				close;
			}
		}
		else {
			mes "[]";
			mes "һ׵¼ӶĴ.";
			mes "ʲôر?";
			next;
			mes "[]";
			mes "㿴ʲôֵĶ?˵ʲôСϢ?";
			close;
		}
	}
	else if (nk_prince == 1) {
		mes "[]";
		mes "Ҫȥ¬׵¼ӶѡµĹ.";
		next;
		mes "[]";
		mes "һѰðռ.ԸΪ¬׵¼Ӷش޴ҫ!";
		close;
	}
	else {
		mes "[]";
		mes "ʹ.Ҫһͬ.ʱ˰.";
		close;
	}
}

prt_castle,117,163,5	script	#prince	755,{
	if (checkquest(10004) == 1) {
		mes "[]";
		mes "!";
		mes "ô?Ҿúλѡ˵.";
		next;
		mes "[]";
		mes ".?";
		mes "һٵĹ,ô!";
		next;
		mes "[]";
		mes "Ǿһºѡ~";
		next;
		mes "-Ϻ̸̸";
		mes "ҶԸλѡӵӡ,";
		mes "Ҹʵ.-";
		next;
		mes "[]";
		mes "?˵һжкܴİ..";
		next;
		mes "[]";
		mes "·,";
		mes "һЩֶؼ尬ӵҥ.";
		mes "ȥһеĺѡ?ҷǳҪЩϢ.";
		next;
		mes "[]";
		mes "ƿܻı...˿ܻ.ҵ,Ϊ޷ӰӵҥԶƫ̻ѡ.";
		next;
		mes "[]";
		mes "...ȥһ.";
		completequest 10004;
		setquest 10018;
		setquest 10019;
		setquest 10020;
		setquest 10021;
		setquest 10022;
		close;
	}
	if (nk_prince == 1) {
		mes "[]";
		mes "ô?";
		mes "ǲ⿪ŵ!";
		next;
		switch(select("뿪:Ǵ")) {
		case 1:
			mes "[]";
			mes "Ϊʲô?ȥ!";
			warp "prontera",155,353;
			close;
		case 2:
			mes "[]";
			mes "......";
			next;
			if (BaseLevel > 89) {
				mes "[]";
				mes "ֻܶм,ǰͥ.ְҵ.";
				next;
				mes "[]";
				mes "ҵû㹻ʸ.";
				next;
				mes "[]";
				mes "...";
				next;
				mes "[]";
				mes "һḻðռ,ʵ....Ҫ˲Ǹһ˵ľʵѡ.";
				next;
				mes "[]";
				mes "ҪһЩص,";
				mes "Կ֤Ƿʸ.";
				next;
				mes "[]";
				mes ",Ҫһ򵥵Ŀ.";
				mes "ҿ.";
				next;
				mes "[]";
				mes "Ⲣܸ.ֻҪÿһض龳̹ʵ̵Ļش.";
				next;
				mes "[]";
				mes "ǿʼ.";
				next;
				mes "[]";
				mes "Ϊһ쵼,";
				mes "һҪʲô?";
				next;
				switch(select("ʵ.:ԵЧ.:ܴлʲô.")) {
				case 1:
					set .@int,.@int+10;
					break;
				case 2:
					set .@solid,.@solid+10;
					break;
				case 3:
					set .@brave,.@brave+10;
					break;
				}
				mes "[]";
				mes "սʧȥһԱ,Ӧô?";
				next;
				switch(select("Ŭ.:Ա.:ͣϢ.")) {
				case 1:
					set .@brave,.@brave+10;
					break;
				case 2:
					set .@int,.@int+10;
					break;
				case 3:
					set .@solid,.@solid+10;
					break;
				}
				mes "[]";
				mes "δԳɹ...";
				next;
				switch(select("ԼȻ.:Ҳη.:ҪĶԱ.")) {
				case 1:
					set .@int,.@int+10;
					break;
				case 2:
					set .@solid,.@solid+10;
					break;
				case 3:
					set .@brave,.@brave+10;
					break;
				}
				mes "[]";
				mes "ʲôְҵó,ר?";
				next;
				switch(select("ʦ,:,:ʿ,̹")) {
				case 1:
					set .@int,.@int+10;
					break;
				case 2:
					set .@brave,.@brave+10;
					break;
				case 3:
					set .@solid,.@solid+10;
					break;
				}
				mes "[]";
				mes "˭?";
				next;
				switch(select("һǿ.:һḻ.:һ.")) {
				case 1:
					set .@brave,.@brave+10;
					break;
				case 2:
					set .@int,.@int+10;
					break;
				case 3:
					set .@solid,.@solid+10;
					break;
				}
				mes "[]";
				mes "һܰɳ?";
				next;
				switch(select("˼ʹϵ.:ռϢ.:ʶͻ.")) {
				case 1:
					set .@solid,.@solid+10;
					break;
				case 2:
					set .@int,.@int+10;
					break;
				case 3:
					set .@brave,.@brave+10;
					break;
				}
				mes "[]";
				mes "ͨι?";
				next;
				switch(select("ʧܶȥ.:ԥ.:㲢µ.")) {
				case 1:
					set .@int,.@int+10;
					break;
				case 2:
					set .@brave,.@brave+10;
					break;
				case 3:
					set .@solid,.@solid+10;
					break;
				}
				mes "[]";
				mes "׷ʲô?";
				next;
				switch(select("Լĳɳ.:ƽ.:׷.")) {
				case 1:
					set .@brave,.@brave+10;
					break;
				case 2:
					set .@solid,.@solid+10;
					break;
				case 3:
					set .@int,.@int+10;
					break;
				}
				mes "[]";
				mes "һĵ,";
				mes "Ҫʲô?";
				next;
				switch(select("ͼ:ʯ:")) {
				case 1:
					set .@int,.@int+10;
					break;
				case 2:
					set .@solid,.@solid+10;
					break;
				case 3:
					set .@brave,.@brave+10;
					break;
				}
				mes "[]";
				mes "ϲʲô͵Ĺ?";
				next;
				switch(select(":Ӣ۴:ڽ̹")) {
				case 1:
					set .@solid,.@solid+10;
					break;
				case 2:
					set .@brave,.@brave+10;
					break;
				case 3:
					set .@int,.@int+10;
					break;
				}
				mes "[]";
				mes "㵽һµĵط,";
				mes "Ҫʲô?";
				next;
				switch(select("ȷ.:Զ۲.:.")) {
				case 1:
					set .@brave,.@brave+10;
					break;
				case 2:
					set .@int,.@int+10;
					break;
				case 3:
					set .@solid,.@solid+10;
					break;
				}
				mes "[]";
				mes "Ŀǰ¬׵¼Ӷ";
				mes "Ҫʲô?";
				next;
				switch(select("Ҽǿ.:úͿƼ.:άֹȫ.")) {
				case 1:
					set .@brave,.@brave+10;
					break;
				case 2:
					set .@int,.@int+10;
					break;
				case 3:
					set .@solid,.@solid+10;
					break;
				}
				mes "[]";
				mes "ʿԽ.";
				mes "...";
				next;
				if (.@brave > 50) {
					if (.@int > 30) {
						mes "[]";
						mes "ᶨ,";
						mes "ж,";
						mes "ĿǰΪֹ.";
						next;
					}
					else if (.@solid > 30) {
						mes "[]";
						mes "¸,";
						mes "ǿ,";
						mes "ܰ.";
						next;
					}
					else {
						mes "[]";
						mes ".";
						mes "ܿ˷е.";
						next;
					}
				}
				else if (.@int > 50) {
					if (.@brave > 30) {
						mes "[]";
						mes "ᶨ,";
						mes "ж,";
						mes "ĿǰΪֹ.";
						next;
					}
					else if (.@solid > 30) {
						mes "[]";
						mes "ж";
						mes "͸Ե̬,";
						mes "ĿǰΪֹ.";
						next;
					}
					else {
						mes "[]";
						mes "侲ǵľ,";
						mes "зḻľ.";
						next;
					}
				}
				else if (.@solid > 50) {
					if (.@brave > 30) {
						mes "[]";
						mes "¸,";
						mes "ǿ,";
						mes "ܰ.";
						next;
					}
					else if (.@int > 30) {
						mes "[]";
						mes "ж,";
						mes "úƽĸо,";
						mes "ĿǰΪֹ.";
						next;
					}
					else {
						mes "[]";
						mes "...,ʵ...";
						mes "ûκŤĵط...";
						mes "ȶƽҪ.";
						next;
					}
				}
				mes "[]";
				mes "Ϊʤ.";
				mes "ҶԸոյĴ³ΪʾǸ.";
				next;
				mes "[]";
				mes ",Ҫһæ.ѾΪðռҼ.";
				next;
				mes "[]";
				mes "Ѿ˺ܳʱܿ,һ.ڿʼǰ׼һ.׼˾ͻ,.";
				next;
				set nk_prince,4;
				changequest 10000,10003;
				close;
			}
			else {
				mes "[]";
				mes "㲻һḻðռ.";
				mes "شĹ,Ҳܽȥ.";
				next;
				mes "[]";
				mes ",֤Լһḻðռ,Ҿͨһ.";
				next;
				mes "[]";
				mes "Have you heard of Glastheim? In that area, there are monsters named Knights of Abyss.";
				next;
				mes "[]";
				mes "Ԩʿ";
				mes "^ff0000^000000.";
				mes ",";
				mes "һ.";
				set nk_prince,2;
				changequest 10000,10001;
				next;
				mes "[]";
				mes "ռ,";
				mes "ټ.";
				mes "ټ...";
				close;
			}
		}
	}
	else if (nk_prince == 2) {
		mes "[]";
		mes "?ҲѾ˹غķ.";
		next;
		mes "[]";
		mes "Ѿ˵?";
		next;
		if (countitem(1064) > 1) {
			mes "[]";
			mes "!";
			mes "̹˵,û뵽Ū.̫.";
			next;
			mes "[]";
			mes "ð,֤.ͨ˵һ.";
			delitem 1064,2; //Reins
			set nk_prince,3;
			changequest 10001,10002;
			next;
			mes "[]";
			mes "ۺѡԸʱ,ܺз,˸ҲΪҪ.";
			next;
			mes "[]";
			mes "ĳ˵,һǲԸ.һϵм򵥵,.׼˵.";
			close;
		}
		else {
			mes "[]";
			mes "ûǰһ.ôط?ҲΪܽۺѡݹ.";
			next;
			mes "[]";
			mes ".";
			close;
		}
	}
	else if (nk_prince == 3) {
		mes "[]";
		mes "Ѿ׼?";
		mes "οԲ...";
		next;
		mes "[]";
		mes "Ϊ˽ĳЩµ̬ȺΪ.ϸҵѡ,̹ʻش¼Ŀ.";
		next;
		mes "[]";
		mes "ǿʼ.";
		next;
		mes "[]";
		mes "Ϊһ쵼,";
		mes "һҪʲô?";
		next;
		switch(select("ʵ.:ԵЧ.:ܴлʲô.")) {
		case 1:
			set .@int,.@int+10;
			break;
		case 2:
			set .@solid,.@solid+10;
			break;
		case 3:
			set .@brave,.@brave+10;
			break;
		}
		mes "[Inspector]";
		mes "սʧȥһԱ,Ӧô?";
		next;
		switch(select("Ŭ.:Ա.:ͣϢ.")) {
		case 1:
			set .@brave,.@brave+10;
			break;
		case 2:
			set .@int,.@int+10;
			break;
		case 3:
			set .@solid,.@solid+10;
			break;
		}
		mes "[]";
		mes "δԳɹ...";
		next;
		switch(select("ԼȻ.:Ҳη.:ҪĶԱ.")) {
		
		case 1:
			set .@int,.@int+10;
			break;
		case 2:
			set .@solid,.@solid+10;
			break;
		case 3:
			set .@brave,.@brave+10;
			break;
		}
		mes "[]";
		mes "ʲôְҵó,ר?";
		next;
		switch(select("ʦ,:,:ʿ,̹")) {
		case 1:
			set .@int,.@int+10;
			break;
		case 2:
			set .@brave,.@brave+10;
			break;
		case 3:
			set .@solid,.@solid+10;
			break;
		}
		mes "[]";
		mes "˭?";
		next;
		switch(select("һǿ.:һḻ.:һ.")) {
		case 1:
			set .@brave,.@brave+10;
			break;
		case 2:
			set .@int,.@int+10;
			break;
		case 3:
			set .@solid,.@solid+10;
			break;
		}
		mes "[]";
		mes "һܰɳ?";
		next;
		switch(select("˼ʹϵ.:ռϢ.:ʶͻ.")) {
		case 1:
			set .@solid,.@solid+10;
			break;
		case 2:
			set .@int,.@int+10;
			break;
		case 3:
			set .@brave,.@brave+10;
			break;
		}
		mes "[]";
		mes "ͨι?";
		next;
		switch(select("ʧܶȥ.:ԥ.:㲢µ.")) {
		case 1:
			set .@int,.@int+10;
			break;
		case 2:
			set .@brave,.@brave+10;
			break;
		case 3:
			set .@solid,.@solid+10;
			break;
		}
		mes "[]";
		mes "׷ʲô?";
		next;
		switch(select("Լĳɳ.:ƽ.:׷.")) {
		case 1:
			set .@brave,.@brave+10;
			break;
		case 2:
			set .@solid,.@solid+10;
			break;
		case 3:
			set .@int,.@int+10;
			break;
		}
		mes "[]";
		mes "һĵ,";
		mes "Ҫʲô?";
		next;
		switch(select("ͼ:ʯ:")) {
		case 1:
			set .@int,.@int+10;
			break;
		case 2:
			set .@solid,.@solid+10;
			break;
		case 3:
			set .@brave,.@brave+10;
			break;
		}
		mes "[]";
		mes "ϲʲô͵Ĺ?";
		next;
		switch(select(":Ӣ۴:ڽ̹")) {
		case 1:
			set .@solid,.@solid+10;
			break;
		case 2:
			set .@brave,.@brave+10;
			break;
		case 3:
			set .@int,.@int+10;
			break;
		}
		mes "[]";
		mes "㵽һµĵط,";
		mes "Ҫʲô?";
		next;
		switch(select("ȷ.:Զ۲.:.")) {
		case 1:
			set .@brave,.@brave+10;
			break;
		case 2:
			set .@int,.@int+10;
			break;
		case 3:
			set .@solid,.@solid+10;
			break;
		}
		mes "[]";
		mes "Ŀǰ¬׵¼Ӷ";
		mes "Ҫʲô?";
		next;
		switch(select("Ҽǿ.:úͿƼ.:άֹȫ.")) {
		case 1:
			set .@brave,.@brave+10;
			break;
		case 2:
			set .@int,.@int+10;
			break;
		case 3:
			set .@solid,.@solid+10;
			break;
		}
		mes "[]";
		mes "ʿԽ.";
		mes "...";
		next;
		if (.@brave > 50) {
			if (.@int > 30) {
				mes "[]";
				mes "ᶨ,";
				mes "ж,";
				mes "ĿǰΪֹ.";
				next;
			}
			else if (.@solid > 30) {
				mes "[]";
				mes "¸,";
				mes "ǿ,";
				mes "ܰ.";
				next;
			}
			else {
				mes "[]";
				mes ".";
				mes "ܿ˷е.";
				next;
			}
		}
		else if (.@int > 50) {
			if (.@brave > 30) {
				mes "[]";
				mes "ᶨ,";
				mes "ж,";
				mes "ĿǰΪֹ.";
				next;
			}
			else if (.@solid > 30) {
				mes "[]";
				mes "ж";
				mes "͸Ե̬,";
				mes "ĿǰΪֹ.";
				next;
			}
			else {
				mes "[]";
				mes "侲ǵľ,";
				mes "зḻľ.";
				next;
			}
		}
		else if (.@solid > 50) {
			if (.@brave > 30) {
				mes "[]";
				mes "¸,";
				mes "ǿ,";
				mes "ܰ.";
				next;
			}
			else if (.@int > 30) {
				mes "[]";
				mes "ж,";
				mes "úƽĸо,";
				mes "ĿǰΪֹ.";
				next;
			}
			else {
				mes "[]";
				mes "...,ʵ...";
				mes "ûκŤĵط...";
				mes "ȶƽҪ.";
				next;
			}
		}
		mes "[]";
		mes "Ϊʤ.";
		mes "ҶԸոյĴ³ΪʾǸ.";
		next;
		mes "[]";
		mes ",Ҫһæ.ѾΪðռҼ.";
		next;
		mes "[]";
		mes "Ѿ˺ܳʱܿ,һ.ڿʼǰ׼һ.׼˾ͻ,.";
		next;
		set nk_prince,4;
		changequest 10002,10003;
		close;
	}
	else if (nk_prince == 4) {
		mes "[]";
		mes "ӭ...";
		mes "ڻ,";
		mes "Ӧȥʲô.";
		mes "СĴӵĹϵ.ע.";
		next;
		mes "[]";
		mes "һش.";
		next;
		while(1) {
			switch(select("Ӧôȷ.:ڼ?:ҵǱܵ?:û.")) {
			case 1:
				mes "[]";
				mes "ǵ߸ѡ߸ͬļͥ.кѡ˶סͬһط,ҽǽܸ.";
				next;
				mes "[]";
				mes "ӽЩѡ,һЩƷʵ,۲ǵж,Ȼһ㱨.";
				next;
				mes "[]";
				mes "ԭĹ:Ʒڻĺܳһʱı,еѡڲ.";
				next;
				mes "[]";
				mes "Ϊ޿˸,Ķ,Ҳܲȶ.";
				next;
				mes "[]";
				mes "ÿһæŵ޿˵Ϯ.";
				next;
				mes "[]";
				mes "һ,ͥıķʽ,þḻðռȥۺѡ.ԭ.";
				next;
				set .@prince,1;
				break;
			case 2:
				mes "[]";
				mes ".Ѿĸ,˹̹!";
				next;
				mes "[]";
				mes "ǲûֵú?";
				next;
				break;
			case 3:
				mes "[]";
				mes "Ȼ...";
				mes ",ڹղȶ.Ψһѡ.";
				next;
				mes "[]";
				mes "ÿֻܴڸ߸ߵΧǽ,ֻܴӸǽԶԶ.";
				next;
				break;
			case 4:
				if (.@prince == 1) {
					mes "[]";
					mes "ΪѾ㹻.";
					mes "ڸȥ.";
					next;
					mes "[]";
					mes "ȵҽٵķ,ῴһİĵطվһʿ.һȿ.";
					next;
					mes "[]";
					mes "ʿ,ҵһܵ.ֻҪʿ̸,ʿͻȥ.";
					next;
					mes "[]";
					mes "˵,¬׵¼ӶǷǳص.ʹѾǿܶ,һǾò.";
					next;
					mes "[]";
					mes "밴˵.";
					mes "ллŬ.";
					set nk_prince,5;
					completequest 10003;
					setquest 10005;
					setquest 10006;
					setquest 10007;
					setquest 10008;
					setquest 10009;
					setquest 10010;
					setquest 10011;
					close;
				}
				else {
					mes "[]";
					mes "а˵?ǷҪ㶼ܱɵ̬ȥ,һҪעһ.";
					next;
					mes "[]";
					mes "ûжȥ,ҿðռ.,ȥȥĵط.";
					next;
				}
				break;
			}
		}
	}
	else if (nk_prince == 7) {
		mes "[]";
		mes "չô";
		mes "ȷʵǸѵĹҪסΪǹЧ";
		next;
		if ((nkprince_eisen == 15) && (checkquest(10025) == 1)) {
			mes "-ҸǴγͻ-";
			next;
			mes "[]";
			mes "ʲô!? ֱ޷!";
			mes ",...";
			next;
			mes "[]";
			mes "ϣ...?";
			next;
			mes "[]";
			mes "Ѿ˼ѡ˵Ĺ.";
			mes "ǳл㵽ĿǰΪֹİ.İ,δϣ.";
			next;
			mes "[" + strcharinfo(0) + "]";
			mes "(ƺһҲ,пʲôԭ?ҷǳ.)";
			next;
			mes "[]";
			mes "ĸܲ͸¶κ,Ҫȫܵ.";
			next;
			mes "[]";
			mes ",뱣õĹ̬.";
			mes "Ϊ¼׵¼Ӷ!";
			if ((BaseLevel > 80) && (BaseLevel < 86)) {
				getexp 400000,0;
			}
			else if ((BaseLevel > 85) && (BaseLevel < 91)) {
				getexp 450000,0;
			}
			else if ((BaseLevel > 90) && (BaseLevel < 96)) {
				getexp 500000,0;
			}
			else if ((BaseLevel > 95) && (BaseLevel < 99)) {
				getexp 550000,0;
			}
			else if (BaseLevel == 99) {
				getexp 1100000,0;
			}
			else {
				getexp 300000,0;
			}
			set nk_prince,8;
			completequest 10025;
			close;
		}
		else {
			mes "[]";
			mes ",Ҳ..";
			close;
		}
	}
	else if ((nk_prince == 8) || (nk_prince == 9)) {
		mes "[]";
		mes "һΪ¬׵¼Ӷصҫ!";
		close;
	}
	else {
		mes "[]";
		mes ",ʦ.";
		mes "ϣܹ.ҽһкѡ?";
		next;
		switch(select("ǵ.:û.")) {
		case 1:
			mes "[]";
			mes "ǳ.";
			mes "ϣ֪ӵ.";
			close;
		case 2:
			mes "[]";
			mes ",Ѿ.";
			close;
		}
		close;
	}
}

prt_castle,272,375,4	script		881,{
	if (nk_prince > 6) {
		mes "-ָԿ.-";
		close;
	}
	if (checkquest(10020) == 2) {
		mes "[ϣ]";
		mes "...Ϊʲôôù!";
		mes "˵Ū,⵽Ӧô...";
		close;
	}
	else if (checkquest(10020) == 1) {
		mes "[ϣ]";
		mes "Щ,浹ù...ֻɧŷ...";
		close;
	}
	if (nk_prince < 5) {
		mes "[]";
		mes "˭?";
		mes "Ӧǲ׼İ?";
		next;
		mes "[]";
		mes "뿪ҵ.";
		close;
	}
	else if (nk_prince == 5) {
		mes "[]";
		mes "˭?";
		mes "϶˽ڵ.Ī...ðռҼʦ?";
		next;
		select(".");
		mes "[]";
		mes "?....ҽаϣ,˹ĺϷ.ԽҰϣ.";
		next;
		mes "[ϣ]";
		mes "ҵȫ...";
		next;
		mes "[ϣ]";
		mes ".";
		mes "κҵ,ҪϢ.";
		set nk_prince,6;
		completequest 10011;
		set .@prin1,checkquest(10005);
		set .@prin2,checkquest(10006);
		set .@prin3,checkquest(10007);
		set .@prin4,checkquest(10008);
		set .@prin5,checkquest(10009);
		set .@prin6,checkquest(10010);
		set .@prin7,checkquest(10011);
		if ((.@prin1 + .@prin2 + .@prin3 + .@prin4 + .@prin5 + .@prin6 + .@prin7) == 14) {
			setquest 10012;
		}
		close;
	}
	else {
		mes "[ϣ]";
		mes "......ҵ֪!";
		mes "⹤...";
		next;
		mes "-.-";
		close;
	}
}

prt_castle,274,372,4	script	#hans	48,{
	if (checkquest(10020) == 2) {
		mes "[ ˹]";
		mes "... ... ...";
		mes "... ǳ, Ǹ!";
		mes "... Ϊҷ˺ܴĴ!";
		next;
		mes "[ ˹]";
		mes "ҵûʲô,һΪκǸ!";
		close;
	}
	else if (checkquest(10020) == 1) {
		mes "...-";
		mes "-ΪҺͬ.-";
		close;
	}
	if (nk_prince == 6) {
		mes "[ ˹]";
		mes "ʲô,?";
		mes "ҵֽк˹,ϣӵ.";
		next;
		mes "[ ˹]";
		mes "ʲô԰?";
		next;
		switch(select("ϣ.:ûʲô.")) {
		case 1:
			mes "[ ˹]";
			mes "ǰϣӵķԸ...?";
			next;
			select("һЩĹ.");
			mes "[ ˹]";
			mes ".";
			mes "̹˵,ϣӶȨôȤ.";
			next;
			mes "[ ˹]";
			mes "ÿ춼дռ.,д:'ûʲôر·'.ʱ,Ҳ֮Ĺϵ.";
			next;
			mes "[ ˹]";
			mes "ϲ.";
			mes "ǲǺܹŹ?";
			mes "һС.";
			next;
			mes "[ ˹]";
			mes "ϲŵķװ,װ.ص,ϲԿ׵.";
			next;
			mes "[ ˹]";
			mes "ҲΪҵıκƫ̻...㿴...";
			next;
			mes "[ ˹]";
			mes "ȫҪ˵.";
			mes "...~";
			next;
			emotion e_gasp;
			mes "[ ˹]";
			mes ",!";
			mes "ҪСָ!";
			next;
			mes "[ϣ]";
			mes ".........";
			next;
			mes "[ ˹]";
			mes "...û...";
			mes "...";
			next;
			mes "[" + strcharinfo(0) + "]";
			mes "......";
			close;
		case 2:
			mes "[ ˹]";
			mes "Ҫȥ?";
			next;
			mes "[ ˹]";
			mes "ȻܻһЩ,㲻رĻش.";
			close;
		}
	}
	else {
		mes "[ ˹]";
		mes "?";
		mes "ðռҼʦ??";
		close;
	}
}

prt_castle,339,202,3	script	#urgen	989,{
	if (nk_prince > 6) {
		mes "[ռ]";
		mes "...Ư.";
		mes "ⲻʺ...";
		close;
	}
	if (checkquest(10021) == 2) {
		mes "[ռ]";
		mes "оͦĵ.,ڿʲô?ҳȥ!";
		next;
		mes "[ռ]";
		mes "ڲ״̬.ҽ첻κ.";
		close;
	}
	else if (checkquest(10021) == 1) {
		mes "[ռ]";
		mes "...ʲô?ֻ...";
		mes "ֻ˵˵?";
		close;
	}
	if (nk_prince < 5) {
		mes "[]";
		mes ",";
		mes "ʺ.";
		next;
		mes "[]";
		mes "Զһ,ܶԶͶԶ.";
		close;
	}
	else if (nk_prince > 4) {
		mes "[]";
		mes "~ ~ ~";
		mes "Ʒʵ?";
		next;
		mes "[]";
		mes "˵ռ,άɼһˮ.";
		next;
		mes "[ռ]";
		mes "һ㲻.һ,رΪһ.";
		next;
		mes "[ռ]";
		mes "...";
		mes ",";
		mes "ش.";
		next;
		while(1) {
			switch(select("ôӳɳʼ˵...:Ĺҹ?:Ȥ?:´.")) {
			case 1:
				mes "[ռ]";
				mes "˧СŮ˼";
				mes "ֹĽ.,뿪Щ.";
				next;
				mes "[ռ]";
				mes "ҵʱ";
				mes "ӦóЩ.";
				next;
				mes "[ռ]";
				mes "ұú.,ҶŮ˶η.";
				set .@p_a,1;
				next;
				break;
			case 2:
				mes "[ռ]";
				mes "ӦӦ,ǹҵ.˵,ҵĴѾ㹻.";
				next;
				mes "[ռ]";
				mes "ֻҪ˵,ǲžԼϣ.";
				set .@p_b,1;
				next;
				break;
			case 3:
				mes "[ռ]";
				mes "Ȼչҵ.Ӧ׷,ǺȻ,?";
				next;
				mes "[ռ]";
				mes "κ¶Ӧ,һ⡪ļʦ.վԶһ?Ϊζҿ첻ܺ.";
				set .@p_c,1;
				next;
				break;
			case 4:
				mes "[ռ]";
				mes "һܼǿ.˳ʱ,㻹ûжʧԼ.";
				if (.@p_a + .@p_b + .@p_c == 3) {
					completequest 10009;
				}
				completequest 10011;
				set .@prin1,checkquest(10005);
				set .@prin2,checkquest(10006);
				set .@prin3,checkquest(10007);
				set .@prin4,checkquest(10008);
				set .@prin5,checkquest(10009);
				set .@prin6,checkquest(10010);
				set .@prin7,checkquest(10011);
				if ((.@prin1 + .@prin2 + .@prin3 + .@prin4 + .@prin5 + .@prin6 + .@prin7) == 14) {
					setquest 10012;
				}
				close;
			}
		}
	}
}

prt_castle,289,201,3	script	#helmut	991,{
	if (nk_prince > 6) {
		mes "[ն]";
		mes "ɵ.Ӧɱ.Һ.";
		close;
	}
	if (checkquest(10022) == 2) {
		mes "[ն]";
		mes "... !";
		mes "ֶص!!";
		mes "Ҹô? ! !";
		close;
	}
	else if (checkquest(10022) == 1) {
		mes "-Ǻ,";
		mes "ϴŭ.-";
		close;
	}
	if (nk_prince < 5) {
		mes "[ն]";
		mes "㲻Ӧ!";
		mes "뿪!";
		close;
	}
	else if (nk_prince > 4) {
		mes "[ն]";
		mes "µļʦ?ᷳ˶ο!ǽ";
		next;
		mes "-Ӧô￪ʼ?-";
		next;
		switch(select("ı...:Ұ...:Ĺҹ...:ʶ.")) {
		case 1:
			mes "[ն]";
			mes "Ҳ֪ôش,Һᷳ.ֱش!";
			next;
			mes "[ն]";
			mes "һλ;бԹ,!Ҿɺ.";
			next;
			mes "[" + strcharinfo(0) + "]";
			mes "............";
			mes "ð,....";
			next;
			mes "[ն]";
			mes "Ǻն.";
			mes "ϲսϵѪζ,Ҳϲ.";
			next;
			mes "[ն]";
			mes "Һ̶ʽ˵.Ұ?......?ܶʹ.";
			next;
			mes "[ն]";
			mes "ҳΪ,ҪǿǵľӺͳһ½;ҪйͶҲ.";
			next;
			mes "[ն]";
			mes "~ȿ~! ҵĺʹ! һʱҺһֱ. ~ȿ~!";
			next;
			mes "[ն]";
			mes "!";
			mes "ơ! ơ!";
			next;
			mes "[ն]";
			mes "Ϊʲôվ?û˵!!";
			next;
			mes "[" + strcharinfo(0) + "]";
			mes "......";
			completequest 10010;
			set .@prin1,checkquest(10005);
			set .@prin2,checkquest(10006);
			set .@prin3,checkquest(10007);
			set .@prin4,checkquest(10008);
			set .@prin5,checkquest(10009);
			set .@prin6,checkquest(10010);
			set .@prin7,checkquest(10011);
			if ((.@prin1 + .@prin2 + .@prin3 + .@prin4 + .@prin5 + .@prin6 + .@prin7) == 14) {
				setquest 10012;
			}
			close;
		case 2:
			mes "[ն]";
			mes "Ҳ֪ôش,Һᷳ.ֱش!";
			next;
			mes "[ն]";
			mes "һλ;бԹ,!Ҿɺ.";
			next;
			mes "[" + strcharinfo(0) + "]";
			mes "............";
			mes "ð,....";
			next;
			mes "[ն]";
			mes "Ǻն.";
			mes "ϲսϵѪζ,Ҳϲ.";
			next;
			mes "[ն]";
			mes "Һ̶ʽ˵.Ұ?......?ܶʹ.";
			next;
			mes "[ն]";
			mes "ҳΪ,ҪǿǵľӺͳһ½;ҪйͶҲ.";
			next;
			mes "[ն]";
			mes "~ȿ~! ҵĺʹ! һʱҺһֱ. ~ȿ~!";
			next;
			mes "[ն]";
			mes "!";
			mes "ơ! ơ!";
			next;
			mes "[ն]";
			mes "Ϊʲôվ?û˵!!";
			next;
			mes "[" + strcharinfo(0) + "]";
			mes "......";
			completequest 10010;
			set .@prin1,checkquest(10005);
			set .@prin2,checkquest(10006);
			set .@prin3,checkquest(10007);
			set .@prin4,checkquest(10008);
			set .@prin5,checkquest(10009);
			set .@prin6,checkquest(10010);
			set .@prin7,checkquest(10011);
			if ((.@prin1 + .@prin2 + .@prin3 + .@prin4 + .@prin5 + .@prin6 + .@prin7) == 14) {
				setquest 10012;
			}
			close;
		case 3:
			mes "[ն]";
			mes "Ҳ֪ôش,Һᷳ.ֱش!";
			next;
			mes "[ն]";
			mes "һλ;бԹ,!Ҿɺ.";
			next;
			mes "[" + strcharinfo(0) + "]";
			mes "............";
			mes "ð,....";
			next;
			mes "[ն]";
			mes "Ǻն.";
			mes "ϲսϵѪζ,Ҳϲ.";
			next;
			mes "[ն]";
			mes "Һ̶ʽ˵.Ұ?......?ܶʹ.";
			next;
			mes "[ն]";
			mes "ҳΪ,ҪǿǵľӺͳһ½;ҪйͶҲ.";
			next;
			mes "[ն]";
			mes "~ȿ~! ҵĺʹ! һʱҺһֱ. ~ȿ~!";
			next;
			mes "[ն]";
			mes "!";
			mes "ơ! ơ!";
			next;
			mes "[ն]";
			mes "Ϊʲôվ?û˵!!";
			next;
			mes "[" + strcharinfo(0) + "]";
			mes "......";
			completequest 10010;
			set .@prin1,checkquest(10005);
			set .@prin2,checkquest(10006);
			set .@prin3,checkquest(10007);
			set .@prin4,checkquest(10008);
			set .@prin5,checkquest(10009);
			set .@prin6,checkquest(10010);
			set .@prin7,checkquest(10011);
			if ((.@prin1 + .@prin2 + .@prin3 + .@prin4 + .@prin5 + .@prin6 + .@prin7) == 14) {
				setquest 10012;
			}
			close;
		case 4:
			mes "[" + strcharinfo(0) + "]";
			mes ",,";
			mes "һͻ.";
			next;
			mes "[ն]";
			mes "ð,.";
			mes "!!";
			mes "ٲҾƾʹƨ!";
			mes "ǲְ?";
			close;
		}
	}
}

prt_castle,288,208,4	script		962,{
	mes "[]";
	mes "ʲô,?";
	mes "Ǻնӵ...";
	mes ".";
	next;
	mes "[ն]";
	mes "!";
	mes "ơ! ơ!";
	next;
	mes "[]";
	mes "ҺܱǸ.";
	mes "ҪȥҪ...";
	close;
}

prt_castle,391,205,3	script	#poe	993,{
	if (nk_prince > 6) {
		mes "[]";
		mes "۷ʲô,ֻһеʧ.";
		close;
	}
	if (checkquest(10018) == 2) {
		mes "[]";
		mes "׷еľ.ʹʱ򲻵ò.,Ҷʧ.";
		close;
	}
	else if (checkquest(10018) == 1) {
		mes "[]";
		mes "......";
		close;
	}
	if (nk_prince < 5) {
		mes "[]";
		mes "˭?";
		mes "Ҿ㲻Ӧó.";
		mes "Ϊ˼̳?";
		close;
	}
	else if (nk_prince > 4) {
		mes "[]";
		mes ".";
		mes "һλðռ!";
		mes "սð.ǵð...㲻ֹͣð...";
		next;
		mes "[]";
		mes "ҵֽ.";
		mes "¼.ס,֧...";
		next;
		mes "[]";
		mes ",Ϊһðռҵ.";
		mes "ⲻ,ֱֻ֪Ƿȷ.";
		next;
		mes "[]";
		mes "Ҳһֱٶ۵˽̸.";
		mes "Ҳһֱ.";
		next;
		mes "[]";
		mes "113ſƬ,˵ѡһſƬ,ڴĻС.";
		next;
		mes "[]";
		mes ",7м.7ɹҲʧ.ϷĿǸȷ,2,ǿʼ.";
		next;
		while(.@wincount < 2) {
			set .@card,rand(1,13);
			mes "[]";
			mes "õ,ѡȽϴ߽С.";
			mes "ֻѡһ.";
			next;
			switch(select(":С")) {
			case 1:
				mes "[]";
				mes "?...";
				mes "ѡһſ!";
				next;
				mes "[]";
				mes "ѡ..." + .@card + "!!";
				next;
				if (.@card > 7) {
					set .@wincount,.@wincount+1;
					mes "[]";
					mes ",!";
					if (.@wincount == 2) {
						mes "Ӯ2?...";
						next;
						break;
					}
					else {
						mes "㻹Ҫٴ1.";
						next;
					}
				}
				else if (.@card == 7) {
					mes "[]";
					mes "м.";
					mes "´Ŭ.";
					next;
				}
				else {
					mes "[]";
					mes "...";
					mes "ϣ´к.";
					close;
				}
				break;
			case 2:
				mes "[]";
				mes "С?...";
				mes "ѡһſ!";
				next;
				mes "[]";
				mes "ѡ..." + .@card + "!!";
				next;
				if (.@card < 7) {
					set .@wincount,.@wincount+1;
					mes "[]";
					mes ",¶!";
					if (.@wincount == 2) {
						mes "Ӯ2?...";
						next;
						break;
					}
					else {
						mes "㻹1.";
						next;
					}
				}
				else if (.@card == 7) {
					mes "[]";
					mes "м.";
					mes "´Ŭ.";
					next;
				}
				else {
					mes "[]";
					mes "...";
					mes "ϣ´к.";
					close;
				}
				break;
			}
		}
		mes "[]";
		mes "ܺ,ֱֻ˲Żϲֿ.һЩҲǺȻ.";
		next;
		mes "[]";
		mes "ֿ,ҲԺ֪!֪ʲô.";
		next;
		mes "[]";
		mes "...֪Щʲô?";
		next;
		while(1) {
			switch(select("ı...:Ĺҹ...:Ȥ...:һ.")) {
			case 1:
				mes "[]";
				mes "ҵı...";
				mes "ȥ.";
				mes "ΪǲҪ,Ҽǲ...";
				next;
				mes "[]";
				mes "ҿ˵һսҴ,ʺ.!";
				next;
				mes "[]";
				mes "Ҳò¹ʺս...һ,һֱ׷µʽ...";
				next;
				mes "[]";
				mes "ԶҪԼʧͷ,!";
				next;
				mes "[]";
				mes "......";
				next;
				mes "[]";
				mes "ܿ?";
				mes "ͬϢ,?";
				set .@p_a,1;
				next;
				break;
			case 2:
				mes "[]";
				mes "ΪһӦֻĿ,֤ǵ..";
				next;
				mes "[]";
				mes "Ӧÿսǳ,Ҫɶܵҵľ.";
				next;
				mes "[]";
				mes "ǹ,һȡÿһ.";
				next;
				mes "[]";
				mes "ҵļ,ҵѶѭ浸.";
				next;
				mes "[]";
				mes "һֱ˵.Ҫȥ,Σյ,ȻȻ...Լ...";
				next;
				mes "[]";
				mes "ǶĻ,";
				mes "Ҳҵļ.";
				set .@p_b,1;
				next;
				break;
			case 3:
				mes "[]";
				mes "һЩµʳ!";
				mes "Ҳںʲô!";
				next;
				mes "[]";
				mes "ǵʱҪ̽,ҿһ̽նӳ!̽,Ѱ,...Щҵ.??";
				next;
				mes "[]";
				mes "ܶ˵ϲĲ.ֻǳս,ϲ׬Ǯ!һɱŵ.";
				set .@p_c,1;
				next;
				break;
			case 4:
				mes "[]";
				mes "ð,";
				mes "´μһ˷ܶΣյĵط.";
				if (.@p_a + .@p_b + .@p_c == 3) {
					completequest 10007;
				}
				set .@prin1,checkquest(10005);
				set .@prin2,checkquest(10006);
				set .@prin3,checkquest(10007);
				set .@prin4,checkquest(10008);
				set .@prin5,checkquest(10009);
				set .@prin6,checkquest(10010);
				set .@prin7,checkquest(10011);
				if ((.@prin1 + .@prin2 + .@prin3 + .@prin4 + .@prin5 + .@prin6 + .@prin7) == 14) {
					setquest 10012;
				}
				close;
			}
		}
	}
}

prt_castle,364,375,4	script	#peter	987,{
	if (nk_prince > 6) {
		mes "[]";
		mes "ʦ.";
		mes "ڰһСŮ?";
		next;
		switch(select("ǵ,ҿ.:,Ҳȥ.")) {
		case 1:
			mes "[]";
			mes "СŮƽ.Ȼҿ.ҵİָոȥ...~";
			close;
		case 2:
			mes "[]";
			mes "ûϵ.";
			mes "Ȼҿ.ҵİָոȥ...~";
			close;
		}
	}
	if (checkquest(10019) == 2) {
		mes "[]";
		mes "...Ϸʲô?...";
		close;
	}
	else if (checkquest(10019)== 1) {
		mes "[]";
		mes "......";
		close;
	}
	if (checkquest(10008) == 2) {
		if (checkquest(10014) == 2) {
			mes "[]";
			mes "ĺܸм.";
			mes "!";
			close;
		}
		else if (checkquest(10014) == 1) {
			mes "[]";
			mes "Һܸ˼Ů.һҿ,ȥ.";
			next;
			mes "[]";
			mes "ллȥ.ĺܸл.ҵһ.";
			completequest 10014;
			getitem 644,1; //Gift_Box
			close;
		}
		else {
			mes "[]";
			mes "?ʦ.";
			close;
		}
	}
	else {
		if (nk_prince < 4) {
			mes "[]";
			mes "Ϊ㲻.";
			close;
		}
		else if (nk_prince > 4) {
			mes "[]";
			mes ",";
			mes ",ĺ.Һܸ˼.";
			next;
			mes "[]";
			mes "ʲô֪?";
			next;
			while(1) {
				switch(select("ı...:Ĺҹ...:Ȥ...:һ...")) {
				case 1:
					mes "[]";
					mes "ҵļ岻Ӱ.ҵͯҲԣ.ұҹͼְ׬Ǯ.";
					next;
					mes "[]";
					mes "ЩܹҲϸ.Ǻõһ.";
					next;
					mes "[]";
					mes "㹻ش?";
					next;
					break;
				case 2:
					mes "[]";
					mes "˵,ԼĹ,Ҫʵ,Ȼл֧.";
					mes "֮,˵,ҵͳΪƽ.";
					next;
					mes "[]";
					mes ",ҪӲͬײ֧,ⲻһƽȵ,ԵĿʵ.";
					next;
					break;
				case 3:
					mes "[]";
					mes "ҵİĶ鼮.ΪӦǰ,ҪһŬ̬.";
					next;
					break;
				case 4:
					mes "[]";
					mes ",?";
					next;
					mes "[]";
					mes "Ҫæ...ܲҵĹ?";
					next;
					mes "[]";
					mes ",Ҳϲ...˸ıҵ뷨...";
					next;
					mes "[]";
					mes "һİŮ...";
					next;
					mes "[]";
					mes "˵,ҵ̫.ӿ԰.׺.";
					next;
					mes "[]";
					mes "뱨.";
					mes "ΪŶкܴ.⻨,һ.";
					next;
					mes "[]";
					mes "ܰҰȥǸŮ?";
					completequest 10008;
					next;
					switch(select("õ,û.:ȥ.")) {
					case 1:
						mes "[]";
						mes "ǳл!";
						mes "ౣ.";
						getitem 744,1; //Bunch_Of_Flowers
						setquest 10013;
						set .@prin1,checkquest(10005);
						set .@prin2,checkquest(10006);
						set .@prin3,checkquest(10007);
						set .@prin4,checkquest(10008);
						set .@prin5,checkquest(10009);
						set .@prin6,checkquest(10010);
						set .@prin7,checkquest(10011);
						if ((.@prin1 + .@prin2 + .@prin3 + .@prin4 + .@prin5 + .@prin6 + .@prin7) == 14) {
							setquest 10012;
						}
						close;
					case 2:
						mes "[]";
						mes "...";
						mes "֪Լ.";
						setquest 10013;
						set .@prin1,checkquest(10005);
						set .@prin2,checkquest(10006);
						set .@prin3,checkquest(10007);
						set .@prin4,checkquest(10008);
						set .@prin5,checkquest(10009);
						set .@prin6,checkquest(10010);
						set .@prin7,checkquest(10011);
						if ((.@prin1 + .@prin2 + .@prin3 + .@prin4 + .@prin5 + .@prin6 + .@prin7) == 14) {
							setquest 10012;
						}
						close;
					}
				}
			}
		}
	}
}

aldebaran,132,184,3	script	СŮ#prince	96,{
	if (checkquest(10013) == 1) {
		if (countitem(744) > 0) {
			// Missed
			mes "[СŮ]";
			mes ",ҵĻ?";
			mes ".";
			next;
			mes "[СŮ]";
			mes "һ.";
			mes "ټ,";
			mes "Ҹ,ҺϲЩ.";
			mes "Щѽ...";
			mes "ͷ.";
			next;
			mes "[СŮ]";
			mes "Ҫؼ";
			mes "ЩŽƿ.";
			mes "~";
			delitem 744,1; //Bunch_Of_Flowers
			changequest 10013,10014;
			close;
		}
		else {
			mes "[СŮ]";
			mes ",˵Ĺ? ... ...";
			close;
		}
	}
	else {
		mes "[СŮ]";
		mes ",˵Ĺ? ... ...";
		close;
	}
}

prt_castle,314,373,4	script	#eisen	983,{
	if (nkprince_eisen > 2) {
		if (nkprince_eisen == 3) {
			mes "[]";
			mes "ķ ...?";
			mes "ôص.û鷳쳣,ֻеֵֹ.";
			next;
			mes "[]";
			mes "ܵ.Ҳͬ,һͬĵĹ.Լϸ.";
			set nkprince_eisen,4;
			close;
		}
		else if (nkprince_eisen == 4) {
			mes "[]";
			mes "ǰ,";
			mes "ҽΪ¬׵¼Ӷ֮.";
			close;
		}
		else if (nkprince_eisen == 5) {
			mes "[]";
			mes "ǷΪ,ǶӦͨ,¬׵¼ӶسΪõĹ.";
			next;
			mes "[ķ]";
			mes "ô.";
			mes ",ҾӦúҵĸô.Ǳһ.";
			next;
			mes "[]";
			mes "... ͳι,Ҫİ ; Ҷ,һҪɱ......";
			next;
			mes "[]";
			mes "Ե,Ҳɱ,? ,ԶҪã,ԶҪľ.";
			next;
			mes "[ķ]";
			mes "ֵ,Ϊ.Զᷢ,...˵.";
			next;
			mes "[]";
			mes "ֻһ.";
			mes "Ҫ̫.";
			next;
			mes "[ķ]";
			mes "ðɺð.";
			mes "Ҫô.";
			mes "һֵһ,Զ.";
			next;
			emotion e_gasp;
			mes "[]";
			mes "?ʦ.";
			mes "ôǵĽ̸кȻ?";
			next;
			mes "[ķ]";
			mes "ô,ֵ?û̸ʲô,ֻڼᶨ.";
			next;
			mes "[]";
			mes ",Ǿֵһ˸,Ǿɱ.";
			next;
			mes "[ķ]";
			mes "ֵ?!";
			next;
			mes "[]";
			mes "ͨһֶЭ.㲻˵,ΪĳЩ˵һܺõĽ,?";
			next;
			mes "[ķ]";
			mes "..ֵ,ķʽ̫.ǱüʦԼĹ۵.";
			next;
			mes "[]";
			mes "ĸԻô.Ҳǿѵľ!˭пô?ҵĬǿ϶Ļش!ǵЭô.";
			next;
			mes "[ķ]";
			mes "....ʦ,бǸ.ð,Բ.Ҿŵ.Ϊ̫...֪...Բ...~";
			next;
			mes "[ķ]";
			mes ",Ҫҵķ.õĹ̬,ʦ.";
			donpcevent "#another_ern::OnDisable";
			set nkprince_eisen,6;
			close;
		}
		else if (nkprince_eisen == 6) {
			mes "[]";
			mes "˵һҵļҪ,";
			mes "ûҵ.";
			next;
			mes "[]";
			mes "ҵ˵...";
			mes "˵ʲô?...";
			mes "㿴?";
			set nkprince_eisen,7;
			changequest 10012,10016;
			close;
		}
		else if (nkprince_eisen == 7) {
			mes "[]";
			mes "...,Χ.";
			mes "!";
			close;
		}
		else if (nkprince_eisen == 8) {
			mes "[]";
			mes "㾭.";
			mes "֪һʵ,һԹҷǳҪ.һֱǶ...";
			next;
			switch(select("I have something...:Is that so? Then, see you later.")) {
			case 1:
				mes "[" + strcharinfo(0) + "]";
				mes "ҿһֶؼ.";
				next;
				mes "[]";
				mes "?";
				mes "Ϊʲô?";
				next;
				mes "[" + strcharinfo(0) + "]";
				mes "-Ҹķ.-";
				next;
				mes "[]";
				mes "......";
				next;
				mes "[]";
				mes "ʲô!˵?...";
				next;
				mes "[]";
				mes "......";
				next;
				mes "[]";
				mes "ҺܱǸ,һ˾һ.Զһ!";
				set nkprince_eisen,9;
				close2;
				warp "prt_castle",318,273;
				end;
			case 2:
				mes "[]";
				mes "õ,̫!";
				close;
			}
		}
		else if ((nkprince_eisen == 9) || (nkprince_eisen == 10) || (nkprince_eisen == 11) || (nkprince_eisen == 12)) {
			mes "[]";
			mes "ҺܱǸ,һ˾һ.Զһ!";
			close2;
			warp "prt_castle",318,273;
			end;
		}
		else if (nkprince_eisen == 13) {
			mes "[]";
			mes "Ҹ,Ҳ뵱.Ҳδıҵ뷨.";
			next;
			mes "[ķ]";
			mes "ֵ!Ҳ֪Ϊʲôʹ!ų?!";
			next;
			mes "[]";
			mes "ʹ?ң...ҿ...?,ǵ,ȷʵ....!!!";
			next;
			mes "[ķ]";
			mes "ֵ,..?";
			next;
			mes "[]";
			mes "...ֻӱ.֮,һϸ...,Ѿһ.";
			next;
			mes "[]";
			mes "ķ.";
			next;
			mes "[ķ]";
			mes "?... ?";
			next;
			mes "[]";
			mes ".";
			next;
			mes "- ɳɳ. - ";
			next;
			mes "- һ̽ķ.-";
			next;
			mes "[ķ]";
			mes "ʲô?...ֶؼĻ̽?Ϊʲô...";
			next;
			mes "[]";
			mes "һĻ.ǵļ֤,㻹ǵǵĳŵ?";
			next;
			mes "[ķ]";
			mes "ʲô?ŵ?֤?.....Ҫ?";
			next;
			mes "[]";
			mes ".ھʱ.";
			next;
			mes "[ķ]";
			mes "˵!Ϊһô?!";
			next;
			mes "[]";
			mes "׳!жӦù.ûл.Ϊ̫ʧ,类ɱ..";
			next;
			mes "[ķ]";
			mes ",,ɵĻ.ʲô¶ûз.Ҫصǰʽ.ֵ,Ұ.ʲô...";
			next;
			mes "[]";
			mes "̫!˵ǹ?ͬ?!Ӧһ˽!,ûʸΪһļ̳.";
			next;
			mes "[ķ]";
			mes "...!";
			next;
			mes "[]";
			mes "ûõ!ܰ.ܳΪһеʶ,ô˾͸óΪ.";
			next;
			mes "[]";
			mes "?!ֵ?!";
			next;
			mes "(׵ؿڳذ)";
			specialeffect EF_HIT2;
			set nkprince_eisen,14;
			donpcevent "#another_ern::OnDisable";
			donpcevent "#another_ern1::OnEnable";
			close;
		}
		else if (nkprince_eisen == 14) {
			mes "..ֵ?...? ";
			mes "ɱ....ɱ?";
			mes "...ֵ?...";
			next;
			mes "[]";
			mes "ѹ.ɱ...ܺ,Ϊǳ...ǺϷ...?";
			next;
			mes "[ķ]";
			mes ",ֵ...ڻ,Ҵȥҽ,ûµ!";
			next;
			mes "[]";
			mes "̫...ҵѾ...֪...ʹһ...һŻʲô...Ҳ...";
			next;
			mes "[ķ]";
			mes ",ֵ...ô?!";
			next;
			mes "[]";
			mes ",ҵֵ...һ...ԳΪ......,ı.";
			next;
			mes "[ķ]";
			mes "...ֵ...ҵֵ...Ϊʲô...Ϊʲô?! Ϊʲô㿴˰?ΪʲôҪ..?ֵ...";
			next;
			mes "[]";
			mes ",...㲻Ҫ֪.ǵĳŵ...ҪΪ...ã,,һɱ...ӵ!!!";
			next;
			mes "[ķ]";
			mes "...Ҳ֪!Ҳ֪ʲô!";
			next;
			mes "[]";
			mes "㲻Ҫ֪...ֻҪ֪,ֻҵ,ܳΪ.,Ҳҵ...ҪҵĻ!!";
			next;
			mes "[ķ]";
			mes "׳......";
			next;
			mes "[]";
			mes "...ʦ,֪Ӧô.ע.,...ȫ.";
			next;
			mes "[]";
			mes "֤һɱĹ,ʧȥ˻...ֺܹ,óΪȨ.";
			next;
			mes "[]";
			mes "㲻ô˵,ҵͺ....??";
			next;
			switch(select("... ð,Ը.:......")) {
			case 1:
				mes "[" + strcharinfo(0) + "]";
				mes "... ð,Ը,...";
				next;
				break;
			case 2:
				mes "[" + strcharinfo(0) + "]";
				mes "......";
				next;
				mes "[]";
				mes "Ĭ... ǴӦ... ˵... ҵ... ǳɹ...";
				next;
				break;
			}
			mes "[]";
			mes "...ҿ.....ȥ...лл...ǳ...лл......";
			next;
			mes "[ķ]";
			mes "ֵ...";
			next;
			mes "[]";
			mes "Ȼ,Զ... ټ... Բ ... Ҳܺȥ.";
			next;
			mes "[ķ]";
			mes "ֵ֣?";
			next;
			mes "[]";
			mes "......";
			next;
			mes "[ķ]";
			mes "...ֵ,ֵ!";
			next;
			mes "[]";
			mes "......";
			next;
			mes "[ķ]";
			mes "ֵ!!!!!!!!!!!!";
			next;
			set nkprince_eisen,15;
			set nk_prince,7;
			donpcevent "#another_ern1::OnDisable";
			changequest 10024,10025;
			close2;
			warp "prt_castle",318,273;
			end;
		}
	}
	if (nk_prince < 5) {
		mes "[]";
		mes "㲻.";
		next;
		mes "[]";
		mes "ϳȥ.";
		mes "Ҳ.";
		close;
	}
	else if (nk_prince > 4) {
		mes "[]";
		mes "ļʦ?ֶؼİ.ԽҰ,һ.";
		next;
		mes "[]";
		mes "ϣ,ⲢζźõĴ.";
		next;
		while(1) {
			mes "-Ҫ...-";
			next;
			mes "[" + strcharinfo(0) + "]";
			mes "ʹ...";
			next;
			switch(select("ı...:Ĺҹ...:Ȥ...:û,һ.")) {
			case 1:
				mes "[]";
				mes "Ҫ˽ÿı?";
				next;
				mes "[]";
				mes "С,Ҿϲܶණ,ѧϰǵ֪ʶ.,Ҫܼ˵ĸ.˵,ֻһĹ.";
				next;
				mes "[]";
				mes "Ҳ,ΪһõĹӦúЩС.";
				next;
				mes "[]";
				mes "˵ҵΪǺ,ǶõĴ.Ҵ?";
				next;
				mes "[]";
				mes "ȻһЩľ,ҿŬѧϰȱٵ.˭ܱ֤һΪ!.";
				next;
				mes "[]";
				mes "ҺһЩ,";
				mes "Ҳʱ,Щ쵰ֵᷢ.";
				next;
				mes "[]";
				mes "˵,г.ҾֻǲŻ.";
				next;
				mes "[]";
				mes "˵,ܽÿһ.";
				next;
				mes "[]";
				mes "֮ǰ,.ҳֶؼ,һܳĹͥ.";
				next;
				mes "[]";
				mes "Ȼ,ҵͱ͹.";
				mes "Ϊҵı,濴ͺС.ѹ.";
				next;
				mes "[]";
				mes "δ,۵ǰ׵ֶؼ,ֶؼİ.";
				next;
				mes "[]";
				mes "ֶؼ屾кܸߵ,һҵֽһ,Ϊ.";
				next;
				break;
			case 2:
				mes "[]";
				mes "ΪǵĹ";
				mes "Ӧɵͯɫ.";
				next;
				mes "[]";
				mes "Ȼ,ʧܺ;ɥ˶Լȱ,սǵ.";
				next;
				mes "[]";
				mes "޵ľ.̹׵˵,ҲϲҵĹɹѡٵ.";
				next;
				mes "[]";
				mes "ȻƶȿҳΪ";
				mes "ȡ,!";
				mes ".";
				emotion e_heh;
				next;
				mes "[]";
				mes "Һιѡ.";
				mes "Ҳܳ.";
				next;
				mes "[]";
				mes "Ҳ˵,ǵǰ¬׵¼Ӷʽ,ƺûо˵쵼.";
				next;
				mes "[]";
				mes "Ϊ,㱣֤.ûкѡʺλ.Ҫѡһ˳ΪĶֵĻ,Ϊǰķ.";
				next;
				mes "[]";
				mes "һº͵,֪ණ,ҳŵ.һ൱ʵļ̳.";
				next;
				mes "[]";
				mes "........";
				next;
				mes "[]";
				mes "˵̫.";
				mes "ҺܱǸ˵˶Ļ,.";
				next;
				break;
			case 3:
				mes "[]";
				mes "ϲĻ.";
				mes "ҲϷ,";
				mes "翨ƺ.";
				mes "ΪЩϷȽʺѧ.";
				next;
				mes "[]";
				mes "ҵֵܰķһֱϲѧϰ.";
				next;
				mes "[]";
				mes "ҳΪ,";
				mes "Ҳһ촦ļ.";
				next;
				mes "[]";
				mes "˵.";
				next;
				break;
			case 4:
				mes "[]";
				mes "õ...";
				mes ".";
				if (nkprince_eisen == 2) {
					set nkprince_eisen,3;
				}
				else {
					set nkprince_eisen,1;
				}
				completequest 10005;
				set .@prin1,checkquest(10005);
				set .@prin2,checkquest(10006);
				set .@prin3,checkquest(10007);
				set .@prin4,checkquest(10008);
				set .@prin5,checkquest(10009);
				set .@prin6,checkquest(10010);
				set .@prin7,checkquest(10011);
				if ((.@prin1 + .@prin2 + .@prin3 + .@prin4 + .@prin5 + .@prin6 + .@prin7) == 14) {
					setquest 10012;
				}
				close;
			}
		}
	}
}

prt_castle,368,312,4	script	#ern	985,{
	if (checkquest(10024) == 2) {
		mes "[ķ]";
		mes "...ֵ,ϣ...";
		mes "...뿪.";
		mes "Ҳ뿴κ.";
		close;
	}
	else if (checkquest(01024) == 1) {
		mes "[ķ]";
		mes "...ֵ...";
		close;
	}
	if (nkprince_eisen > 2) {
		if (nkprince_eisen == 3) {
			mes "[ķ]";
			mes "ҵֵܰ?һΰ.";
			next;
			mes "̬̫ǿӲ,ʱһ.ʹǸʱ,ҲԸҵĻ;ƺص鷳.";
			next;
			mes "[ķ]";
			mes "ҲΪ,ΪǱȽ׽.";
			next;
			mes "[ķ]";
			mes "һֱ.Ҿû֮ҵĽ.";
			next;
			mes "[ķ]";
			mes "㲻һΰ?";
			mes "Ǹֵ.";
			close;
		}
		else if (nkprince_eisen == 5) {
			mes "[ķ]";
			mes "ҺͰиƻ.";
			mes "ûҪ,Ҫȥ. ";
			close;
		}
		else if (nkprince_eisen == 6) {
			mes "[ķ]";
			mes "˵ֶؼ˵,п?";
			next;
			mes "[ķ]";
			mes "ƺ׻Ҳ.";
			set nkprince_eisen,7;
			changequest 10012,10016;
			close;
		}
		else if (nkprince_eisen == 9) {
			mes "[ķ]";
			mes ",ʦ.";
			mes "";
			mes "ûмĹ?";
			next;
			mes "[ķ]";
			mes "ûиĻҪ˵.,Щ.Һܵ,ϣⲻǸ.";
			set nkprince_eisen,10;
			changequest 10017,10004;
			close;
		}
		else if ((nkprince_eisen == 10) || (nkprince_eisen == 11) || (nkprince_eisen == 12)) {
			mes "[ķ]";
			mes "׿.";
			mes "ı仯,Ҹе.";
			next;
			mes "[ķ]";
			mes "ⲻ̫õ.";
			mes "Ű׻ָ.һǸо.";
			close;
		}
		else if (nkprince_eisen == 15) {
			mes "[ķ]";
			mes "...";
			mes "ҵֵ,...";
			mes "...ô.";
			next;
			mes "[ķ]";
			mes "......";
			next;
			mes "[ķ]";
			mes "뿪,Ҳ뿴κ.";
			close;
		}
		else {
			mes "[ķ]";
			mes "ӭ,ʦ.";
			mes ",һжϰ,?";
			close;
		}
	}
	if (nk_prince < 5) {
		mes "[]";
		mes "㲻һðռҼʦ,";
		mes "ͲӦó.";
		close;
	}
	else if (nk_prince > 4) {
		mes "[]";
		mes ".";
		mes "֪Ǽʦ.";
		mes "ǰķ,.";
		next;
		mes "[ķ]";
		mes "ΪʦһĹ,һᾡŬ.";
		next;
		mes "[ķ]";
		mes ".";
		next;
		mes "[" + strcharinfo(0) + "]";
		mes "(Ϊһ̳ߵĺѡƺ̫ò.)";
		next;
		while(1) {
			mes "-Щʲô.-";
			next;
			switch(select("ļͥ.:Ĺҹ.:ȤͰ.:һ.")) {
			case 1:
				mes "[ķ]";
				mes "ʱ,Ҿܵ˻ʼҽ.ûж˲ò򳳼ܹ.";
				next;
				mes "[ķ]";
				mes "ΪҵС,ΪҲӱ.";
				next;
				mes "[ķ]";
				mes "Ȼ,һ....";
				next;
				mes "[ķ]";
				mes "Ǹ.ܲò,˺׼.";
				next;
				mes "[ķ]";
				mes "Ϊһش,Ҫѧϰ.õ,ӦҪעⱣֳ߶.";
				next;
				mes "[ķ]";
				mes "˵,̱ȽҪ.,Ұƽȵ.ûЧ,׾˵,˭ܲµʲô.";
				break;
			case 2:
				mes "[ķ]";
				mes "ҵ˹?";
				next;
				mes "[ķ]";
				mes "Ϊ޵,Ϊһ,޵.";
				next;
				mes "[ķ]";
				mes "ͻ˸Ĺƶ,Ȼ󼯺ϴǻһЩ.";
				next;
				mes "[ķ]";
				mes "׻Ჹҵȱ.ǰ,еĹڸԱԼǶҵʦ.";
				next;
				mes "[ķ]";
				mes "ҵ,ڰ߻˺֪ܶʶ.кܴ.";
				next;
				break;
			case 3:
				mes "[ķ]";
				mes "ûرİ,ԸѧϰͶ.";
				next;
				mes "[ķ]";
				mes "ҺϲͰһ.㹻,µ뷨,Ը.";
				next;
				mes "[ķ]";
				mes "˵ʵ,Ͱ׵.̫æ,ûʲô¼ȥ.ΪҪ.";
				next;
				mes "[ķ]";
				mes "ǴӦѡһȥ...Һڴ.";
				next;
				mes "[ķ]";
				mes "...Щ㹻?";
				next;
				break;
			case 4:
				mes "[ķ]";
				mes "õ.,һ.";
				if (nkprince_eisen == 1) {
					set nkprince_eisen,3;
				}
				else {
					set nkprince_eisen,2;
				}
				completequest 10006;
				set .@prin1,checkquest(10005);
				set .@prin2,checkquest(10006);
				set .@prin3,checkquest(10007);
				set .@prin4,checkquest(10008);
				set .@prin5,checkquest(10009);
				set .@prin6,checkquest(10010);
				set .@prin7,checkquest(10011);
				if ((.@prin1 + .@prin2 + .@prin3 + .@prin4 + .@prin5 + .@prin6 + .@prin7) == 14) {
					setquest 10012;
				}
				close;
			}
		}
	}
}

prt_castle,163,319,0	script	#twonoble	-1,3,3,{
//OnTouch2:
OnTouch:
	if (nkprince_eisen == 7) {
		donpcevent "#valter::OnEnable";
		donpcevent "#rihart::OnEnable";
		mes "[]";
		mes "㲻ص.";
		mes "һױѡΪ,彫Ϊڶ.";
		next;
		mes "[]";
		mes ",Ӱĺѡ.ԾӰ.";
		next;
		mes "[һֶؼ]";
		mes "Ȼǿĺѡ,Ҳкܸߵ,ǲɶõ.";
		next;
		mes "[һֶؼ]";
		mes "ðķж?";
		next;
		mes "[]";
		mes "Ȼ,ʹʬҲֲ˵...㲻ص.";
		next;
		mes "[һֶؼ]";
		mes "һ׵ѡ,ɱ,Ȼ...";
		next;
		mes "[]";
		mes "ǵļ彫쵼,.....";
		next;
		mes "[һֶؼ]";
		mes "֪,ֶغͼȫһ.";
		next;
		mes "[]";
		mes "߸Ǽֶ,Žʩغֶؼ.";
		next;
		mes "[һֶؼ]";
		mes "ǵ.Ϊʲôֶؼͼֶ.,׺Ͱķ...ʩؼͺϣ.";
		next;
		mes "[һֶؼ]";
		mes "ֶؼͼֶ岻ܹ,ǵĹ,ȥ.";
		next;
		mes "[]";
		mes "ллṩϢ,һ׼.е˶Ϲȥ׺Ͱķͬ.";
		next;
		mes "[һֶؼ]";
		mes "ǻҪһ.,κ֪.";
		next;
		mes "[]";
		mes "ǵ,Ϊ¬׵¼Ӷصδ.";
		next;
		mes "[һֶؼ]";
		mes "һΪ¬׵¼Ӷصδ...";
		mes "?";
		next;
		emotion e_gasp;
		mes "[һֶؼ]";
		mes "... .";
		mes ".";
		next;
		mes "[]";
		mes "...";
		donpcevent "#valter::OnDisable";
		donpcevent "#rihart::OnDisable";
		next;
		mes "[" + strcharinfo(0) + "]";
		mes "(ֶؼѡǰ.";
		mes "ѡ.)";
		next;
		mes "[" + strcharinfo(0) + "]";
		mes "(֮ı?⵽ô.)";
		changequest 10016,10017;
		set nkprince_eisen,8;
		close;
	}
}

prt_castle,156,325,4	script	#valter	86,{
	mes "[]";
	mes "ÿ.";
	mes "ôҺ˵.";
	close;

OnInit:
	disablenpc "#valter";
	end;

OnEnable:
	enablenpc "#valter";
	end;

OnDisable:
	disablenpc "#valter";
	end;
}

prt_castle,157,323,3	script	#rihart	880,{
	mes "[]";
	mes "-.";
	mes "ô!";
	close;

OnInit:
	disablenpc "#rihart";
	end;

OnEnable:
	enablenpc "#rihart";
	end;

OnDisable:
	disablenpc "#rihart";
	end;
}

prt_castle,314,371,0	script	#another_ern	985,{
	if (nkprince_eisen == 13) {
		mes "[]";
		mes "Ҹ,Ҳ뵱.Ҳδıҵ뷨.";
		next;
		mes "[ķ]";
		mes "ֵ!Ҳ֪Ϊʲôʹ!ų?!";
		next;
		mes "[]";
		mes "ʹ?ң...ҿ...?,ǵ,ȷʵ....!!!";
		next;
		mes "[ķ]";
		mes "ֵ,..?";
		next;
		mes "[]";
		mes "...ֻӱ.֮,һϸ...,Ѿһ.";
		next;
		mes "[]";
		mes "ķ.";
		next;
		mes "[ķ]";
		mes "?... ?";
		next;
		mes "[]";
		mes ".";
		next;
		mes "- ɳɳ. - ";
		next;
		mes "- һ̽ķ.-";
		next;
		mes "[ķ]";
		mes "ʲô?...ֶؼĻ̽?Ϊʲô...";
		next;
		mes "[]";
		mes "һĻ.ǵļ֤,㻹ǵǵĳŵ?";
		next;
		mes "[ķ]";
		mes "ʲô?ŵ?֤?.....Ҫ?";
		next;
		mes "[]";
		mes ".ھʱ.";
		next;
		mes "[ķ]";
		mes "˵!Ϊһô?!";
		next;
		mes "[]";
		mes "׳!жӦù.ûл.Ϊ̫ʧ,类ɱ..";
		next;
		mes "[ķ]";
		mes ",,ɵĻ.ʲô¶ûз.Ҫصǰʽ.ֵ,Ұ.ʲô...";
		next;
		mes "[]";
		mes "̫!˵ǹ?ͬ?!Ӧһ˽!,ûʸΪһļ̳.";
		next;
		mes "[ķ]";
		mes "...!";
		next;
		mes "[]";
		mes "ûõ!ܰ.ܳΪһеʶ,ô˾͸óΪ.";
		next;
		mes "[]";
		mes "?!ֵ?!";
		next;
		mes "(׵ؿڳذ)";
		specialeffect EF_HIT2;
		set nkprince_eisen,14;
		donpcevent "#another_ern::OnDisable";
		donpcevent "#another_ern1::OnEnable";
		close;
	}
	if (nkprince_eisen == 5) {
		mes "[]";
		mes "ǷΪ,";
		mes "ǶҪһŬ...";
		mes "ͨ¬׵¼ӶسΪõĹ.";
		next;
		mes "[ķ]";
		mes "ǿ.";
		mes ",Ǳ.ֻҪֵһ,Ǿ.";
		next;
		mes "[]";
		mes "... ͳι,Ҫİ ; Ҷ,һҪɱ......";
		next;
		mes "[]";
		mes "Ե,Ҳɱ,? ,ԶҪã,ԶҪľ.";
		next;
		mes "[ķ]";
		mes "ֵ,Ϊ.Զᷢ,...˵.";
		next;
		mes "[]";
		mes "ֻһ.";
		mes "Ҫ̫.";
		next;
		mes "[ķ]";
		mes "ðɺð.";
		mes "Ҫô.";
		mes "һֵһ,Զ.";
		next;
		emotion e_gasp;
		mes "[]";
		mes "?ʦ.";
		mes "ôǵĽ̸кȻ?";
		next;
		mes "[ķ]";
		mes "ô,ֵ?û̸ʲô,ֻڼᶨ.";
		next;
		mes "[]";
		mes ",Ǿֵһ˸,Ǿɱ.";
		next;
		mes "[ķ]";
		mes "ֵ?!";
		next;
		mes "[]";
		mes "ͨһֶЭ.㲻˵,ΪĳЩ˵һܺõĽ,?";
		next;
		mes "[ķ]";
		mes "..ֵ,ķʽ̫.ǱüʦԼĹ۵.";
		next;
		mes "[]";
		mes "ĸԻô.Ҳǿѵľ!˭пô?ҵĬǿ϶Ļش!ǵЭô.";
		next;
		mes "[ķ]";
		mes "....ʦ,бǸ.ð,Բ.Ҿŵ.Ϊ̫...֪...Բ...~";
		next;
		mes "[ķ]";
		mes ",Ҫҵķ.õĹ̬,ʦ.";
		donpcevent "#another_ern::OnDisable";
		set nkprince_eisen,6;
		close;
	}

OnInit:
	disablenpc "#another_ern";
	end;

OnEnable:
	enablenpc "#another_ern";
	end;

OnDisable:
	disablenpc "#another_ern";
	end;
}

prt_castle,314,372,0	script	#another_ern1	985,{
	if (nkprince_eisen == 14) {
		mes "[ķ]";
		mes "..ֵ?...? ";
		mes "ɱ....ɱ?";
		mes "...ֵ?...";
		next;
		mes "[]";
		mes "ѹ.ɱ...ܺ,Ϊǳ...ǺϷ...?";
		next;
		mes "[ķ]";
		mes ",ֵ...ڻ,Ҵȥҽ,ûµ!";
		next;
		mes "[]";
		mes "̫...ҵѾ...֪...ʹһ...һŻʲô...Ҳ...";
		next;
		mes "[ķ]";
		mes ",ֵ...ô?!";
		next;
		mes "[]";
		mes ",ҵֵ...һ...ԳΪ......,ı.";
		next;
		mes "[ķ]";
		mes "...ֵ...ҵֵ...Ϊʲô...Ϊʲô?! Ϊʲô㿴˰?ΪʲôҪ..?ֵ...";
		next;
		mes "[]";
		mes ",...㲻Ҫ֪.ǵĳŵ...ҪΪ...ã,,һɱ...ӵ!!!";
		next;
		mes "[ķ]";
		mes "...Ҳ֪!Ҳ֪ʲô!";
		next;
		mes "[]";
		mes "㲻Ҫ֪...ֻҪ֪,ֻҵ,ܳΪ.,Ҳҵ...ҪҵĻ!!";
		next;
		mes "[ķ]";
		mes "׳......";
		next;
		mes "[]";
		mes "...ʦ,֪Ӧô.ע.,...ȫ.";
		next;
		mes "[]";
		mes "֤һɱĹ,ʧȥ˻...ֺܹ,óΪȨ.";
		next;
		mes "[]";
		mes "㲻ô˵,ҵͺ....??";
		next;
		switch(select("... ð,Ը.:......")) {
		case 1:
			mes "[" + strcharinfo(0) + "]";
			mes "... ð,Ը,...";
			next;
			break;
		case 2:
			mes "[" + strcharinfo(0) + "]";
			mes "......";
			next;
			mes "[]";
			mes "Ĭ... ǴӦ... ˵... ҵ... ǳɹ...";
			next;
			break;
		}
		mes "[]";
		mes "...ҿ.....ȥ...лл...ǳ...лл......";
		next;
		mes "[ķ]";
		mes "ֵ...";
		next;
		mes "[]";
		mes "Ȼ,Զ... ټ... Բ ... Ҳܺȥ.";
		next;
		mes "[ķ]";
		mes "ֵ֣?";
		next;
		mes "[]";
		mes "......";
		next;
		mes "[ķ]";
		mes "...ֵ,ֵ!";
		next;
		mes "[]";
		mes "......";
		next;
		mes "[ķ]";
		mes "ֵ!!!!!!!!!!!!";
		next;
		set nkprince_eisen,15;
		set nk_prince,7;
		donpcevent "#another_ern1::OnDisable";
		changequest 10024,10025;
		close2;
		warp "prt_castle",318,273;
		end;
	}

OnInit:
	disablenpc "#another_ern1";
	end;

OnEnable:
	enablenpc "#another_ern1";
	end;

OnDisable:
	disablenpc "#another_ern1";
	end;
}

prt_castle,272,372,1	script	#eisen1	983,{
	mes "[]";
	mes "׳.ԶΪ....㲻?㲻һ.";
	next;
	mes "[ϣ]";
	mes "...Ҳ,ҷ.Ҹоܺ.ôͻȻ?";
	next;
	mes "[]";
	mes "ֻ.ʹһ쵰Ҳǹĺѡ?Ҷļ̳Ȩö.";
	next;
	mes "[ϣ]";
	mes ",û.ҴNerious.Ҳ.";
	next;
	mes "[ϣ]";
	mes "üо?ֺͼ.";
	next;
	mes "[]";
	mes "...! ǵ... һ. ... ҵĴҲ! ...!";
	next;
	mes "[]";
	mes "ǵ,Ҷǲϸ!!!ĵӽ¶!!ǵ,!!";
	next;
	mes "[ϣ]";
	mes "... ı.߿,Ҳ˵.";
	next;
	mes "[]";
	mes "û,Ҫ.?!!...ʲôһ!!ȿȿȿȿȿ!!˼!";
	next;
	mes "-ſ,ƺǷ.-";
	next;
	mes "[ϣ]";
	mes "...Nuts.";
	completequest 10020;
	set .@er1,checkquest(10018);
	set .@er2,checkquest(10019);
	set .@er3,checkquest(10020);
	set .@er4,checkquest(10021);
	set .@er5,checkquest(10022);
	if ((.@er1 + .@er2 + .@er3 + .@er4 + .@er5) == 10) {
		setquest 10023;
		set nkprince_eisen,11;
	}
	donpcevent "#eisen1::OnDisable";
	close;

OnInit:
	disablenpc "#eisen1";
	end;

OnEnable:
	enablenpc "#eisen1";
	end;

OnDisable:
	disablenpc "#eisen1";
	end;
}

prt_castle,336,202,7	script	#eisen2	983,{
	mes "[ռ]";
	mes "˵ʲô??";
	mes "ղ˵??!";
	next;
	mes "[]";
	mes "˵!ռ,㲻Ư!һҲ!ʵ,㿴ܳ!";
	next;
	mes "[ռ]";
	mes "Ƿǳò.ϸôҺ˵!";
	mes "ϸȻ˵!";
	next;
	mes "[]";
	mes "?ǵ,.ǰ.,Ⲣֻһ˵.ÿǰ!㲻һ!";
	next;
	mes "[ռ]";
	mes "Ҳͬ˵,ۻ,㲻ܰҲǸˮƽ!ҲԭĻ!Զ,Զ!!";
	next;
	mes "[]";
	mes "βԭ?ʲô?Ǻܺ,Ҫɱ?Ҫɱ?ɱҰ??ֻ˵Լ!";
	next;
	mes "[ռ]";
	mes "Ҳһ!ôͼΪ...㲻.Ҳ!!";
	next;
	mes "[]";
	mes "û㹻ķ.ûа.ֻ,Ҳ˵.ʹԶ!";
	next;
	mes "-׷ɧ߳...-";
	next;
	mes "[ռ]";
	mes "...ôͼ,ҿ.ΪһЩĿ,ȫߴ˷.";
	completequest 10021;
	set .@er1,checkquest(10018);
	set .@er2,checkquest(10019);
	set .@er3,checkquest(10020);
	set .@er4,checkquest(10021);
	set .@er5,checkquest(10022);
	if ((.@er1 + .@er2 + .@er3 + .@er4 + .@er5) == 10) {
		setquest 10023;
		set nkprince_eisen,11;
	}
	donpcevent "#eisen2::OnDisable";
	close;

OnInit:
	disablenpc "#eisen2";
	end;

OnEnable:
	enablenpc "#eisen2";
	end;

OnDisable:
	disablenpc "#eisen2";
	end;
}

prt_castle,286,201,7	script	#eisen3	983,{
	mes "[]";
	mes "·!!!ΪȨԽһ?Ϊܺƽദ?";
	next;
	mes "[ն]";
	mes "ȫ.";
	mes "ѾûʸΪ.";
	next;
	mes "[]";
	mes "˵úܺ,!";
	mes "ûʸ!!";
	mes "Ҹ!ļ̳?ֻһս.";
	next;
	mes "[ն]";
	mes "ŭ?Ϊܴ,?";
	next;
	mes "[]";
	mes "?.ҲںЩ.ֻ˵..Ҫ!";
	next;
	mes "[ն]";
	mes "һ,С.Ҫ?ų!!";
	next;
	mes "[]";
	mes "ųһܺõĴ.ǵ,Ҿ,Ҫ.һҸų...ټս!";
	next;
	mes "-Цſżŭ˺ն,Ȼ뿪˷.-";
	next;
	mes "[ն]";
	mes "......һСˣ";
	completequest 10022;
	set .@er1,checkquest(10018);
	set .@er2,checkquest(10019);
	set .@er3,checkquest(10020);
	set .@er4,checkquest(10021);
	set .@er5,checkquest(10022);
	if ((.@er1 + .@er2 + .@er3 + .@er4 + .@er5) == 10) {
		setquest 10023;
		set nkprince_eisen,11;
	}
	donpcevent "#eisen3::OnDisable";
	close;

OnInit:
	disablenpc "#eisen3";
	end;

OnEnable:
	enablenpc "#eisen3";
	end;

OnDisable:
	disablenpc "#eisen3";
	end;
}

prt_castle,388,205,6	script	#eisen4	983,{
	mes "[]";
	mes "ڶĲ.Ϊʲôһļ?˵Ķ?С?";
	next;
	mes "[]";
	mes "ΪʲôҪȡЦ?ҡִ,?";
	next;
	mes "[]";
	mes "!֪.,ֻ֪һӳС...Ѿ!֪?!";
	next;
	mes "[]";
	mes "˵ʲô?Ҳ˼.Ѿʧȥʲô?Ҳ֪Ϊʲô˵.";
	next;
	mes "[]";
	mes "ܲ!ô?!֪,ʲô?̫԰һ.Ϊһõ,ܱһŽ";
	next;
	mes "[]";
	mes "Ҫʲô,˵.һʧʧ?ҵǺܿµ,?";
	next;
	mes "[]";
	mes "ҵʧ,ʧ.һҸʧܵʧ.һõĻ.";
	next;
	mes "[]";
	mes "...㵽˵ʲô??ȫ.ûи.";
	next;
	mes "[]";
	mes "òҪȥ.,㽫Ժеʧȥ.";
	next;
	mes "[]";
	mes "ͣ-ֹͣ! ,!";
	mes "ס! ! !";
	next;
	mes "-ȫĺ,";
	mes "į뿪ķ.-";
	next;
	mes "[]";
	mes "ʲô..ʲô.ɲ.";
	mes "ȫ˽.";
	completequest 10018;
	set .@er1,checkquest(10018);
	set .@er2,checkquest(10019);
	set .@er3,checkquest(10020);
	set .@er4,checkquest(10021);
	set .@er5,checkquest(10022);
	if ((.@er1 + .@er2 + .@er3 + .@er4 + .@er5) == 10) {
		setquest 10023;
		set nkprince_eisen,11;
	}
	donpcevent "#eisen4::OnDisable";
	close;

OnInit:
	disablenpc "#eisen4";
	end;

OnEnable:
	enablenpc "#eisen4";
	end;

OnDisable:
	disablenpc "#eisen4";
	end;
}

prt_castle,364,372,1	script	#eisen5	983,{
	mes "[]";
	mes ",ʲô,Ĺζʲô?";
	next;
	mes "[]";
	mes "...Ҳֻ˵ʲô,ǲڵ.Ϊ֪.";
	next;
	mes "[]";
	mes "۹,Ǵ.һ±û.ȷе˵,жú,㲻֪ĺ...";
	next;
	mes "[]";
	mes "...?ø?㵽˵ʲô?ǿżɽ.";
	next;
	mes "[]";
	mes "...ô,ֻǱݵһЩ.,ΪһЩ˺˱.";
	next;
	mes "[]";
	mes "......";
	next;
	mes "[]";
	mes ",ҾֻǺ,֪˽һЩı.";
	next;
	mes "[]";
	mes "㲻һ.ǸŮĸм֮,Ӧȥ.ûô,?";
	next;
	mes "[]";
	mes "...,ô?㲻ʶİ,ʲô?";
	next;
	mes "[]";
	mes "û,Щº!ʵ,ܸ˺.ӴԺ,ټ.ڹȥе.";
	next;
	mes "[]";
	mes "..........";
	next;
	mes "-һ뿪.-";
	next;
	mes "[]";
	mes "......";
	completequest 10019;
	set .@er1,checkquest(10018);
	set .@er2,checkquest(10019);
	set .@er3,checkquest(10020);
	set .@er4,checkquest(10021);
	set .@er5,checkquest(10022);
	if ((.@er1 + .@er2 + .@er3 + .@er4 + .@er5) == 10) {
		setquest 10023;
		set nkprince_eisen,11;
	}
	donpcevent "#eisen5::OnDisable";
	close;

OnInit:
	disablenpc "#eisen5";
	end;

OnEnable:
	enablenpc "#eisen5";
	end;

OnDisable:
	disablenpc "#eisen5";
	end;
}

prt_castle,368,310,1	script	#eisen6	983,{
	mes "[ķ]";
	mes "ֵ,˵һ.˵ʲô?";
	next;
	mes "[]";
	mes "û.Ҹ.¬׵¼Ӷ.ҵĶֻڵ.Ƕһ,ʹܱ.";
	next;
	mes "[ķ]";
	mes "ֵ,ô??";
	next;
	mes "[]";
	mes "?ȫѵ...ֻʵ,ҿɰĵܵ.";
	next;
	mes "[ķ]";
	mes "ʵ?ʲôʵ?ʲô?ȫû취!";
	next;
	mes "[]";
	mes "һֱ,ķ.ֻ,ʵǰ,ʶʱ,Ѿȥ.";
	next;
	mes "[ķ]";
	mes "ƭ!Ǹ,Ҫʷ!Ǳֵý!";
	next;
	mes "[]";
	mes ".";
	next;
	mes "[ķ]";
	mes "ǰ,ǾӦø.Ѿ֪,ΪʲôҪ!!!";
	next;
	mes "[]";
	mes "...Ҹ,Ҫ!";
	next;
	mes "[ķ]";
	mes ",˫Ը,Ҵ.ΪĴ,Ҳſ!";
	next;
	mes "[]";
	mes ",!!!!!!!!!!!!";
	next;
	mes "[ķ]";
	mes "......!";
	next;
	mes "[]";
	mes "Ϊᱻû!ٿص۹ǿ.Ҳ֪.ҿԸо,Ǳݵ!";
	next;
	mes "[]";
	mes "?!ʲô?!㲻ʲô!ʹǴһȫµҲܸıʲô!!ֻż.ĳЩ˵ͼ,ֻǿ!!?!";
	next;
	mes "[ķ]";
	mes "˵ʲô?ȫ!˵޷״??˵ʲô!";
	next;
	mes "[]";
	mes "!㲻֪ʲôʱᱻɱ.û......!Ҫ!";
	next;
	mes "[ķ]";
	mes "...ֵ,ֵĶ?ǵô?";
	next;
	mes "[]";
	mes ".㲻,ɱ!......!!Ҳ̸,Ҫҵķ.";
	next;
	mes "[ķ]";
	mes "һֱֵ!!";
	next;
	mes "[]";
	mes "... ֪! ... !";
	next;
	mes "-ͨ뿪˷.";
	mes "ǳƣ.-";
	next;
	mes "[ķ]";
	mes ",...";
	changequest 10023,10024;
	set nkprince_eisen,13;
	donpcevent "#eisen6::OnDisable";
	close;

OnInit:
	disablenpc "#eisen6";
	end;

OnEnable:
	enablenpc "#eisen6";
	end;

OnDisable:
	disablenpc "#eisen6";
	end;
}

prt_castle,318,276,0	script	#eisen	45,1,1,{
OnTouch:
	if ((nkprince_eisen == 4) || (nkprince_eisen == 5)) {
		donpcevent "#another_ern::OnEnable";
		set nkprince_eisen,5;
		warp "prt_castle",318,368;
	}
	else if ((nkprince_eisen == 9) || (nkprince_eisen == 10) || (nkprince_eisen == 11) || (nkprince_eisen == 12)) {
		set .@armkoe,rand(1,4);
		if (.@armkoe == 1) {
			mes "-˰߽.";
			mes "ӷﴫ.-";
			next;
			mes "[]";
			mes "ûʸ.ҳɳһĵط.˵֪!";
			next;
			mes "[]";
			mes "ʲôһ?ʲôǸɾ...?!!!";
			next;
			mes "[" + strcharinfo(0) + "]";
			mes "......";
			close2;
		}
		else if (.@armkoe == 2) {
			mes "-˰߽.";
			mes "ӷﴫ.-";
			next;
			mes "[]";
			mes "ļ?......";
			mes "?... ʼҹ? ...Щ׹ʲô?";
			next;
			mes "[]";
			mes "ҵֵܰķ,ҵļ..һ.Ϊһ.,ҵ.";
			next;
			mes "[]";
			mes "Ҳ... ... ķ... ϣ...";
			next;
			mes "[" + strcharinfo(0) + "]";
			mes "......";
			close2;
		}
		else if (.@armkoe == 3) {
			mes "-˰߽.";
			mes "ӷﴫ.-";
			next;
			mes "[]";
			mes ",ֻǱݵ...ҵŬ,Ϊ.ֻµһ...";
			next;
			mes "[]";
			mes "! ...!!";
			mes "Ҳ.,!";
			next;
			mes "[]";
			mes "My ancestor ^FF0000Schmidt^000000... What shall you do with this situation? No...were you just used like me... by others?";
			next;
			mes "[" + strcharinfo(0) + "]";
			mes "......";
			close2;
		}
		else if (.@armkoe == 4) {
			mes "-˰߽.";
			mes "ӷﴫ.-";
			next;
			mes "[]";
			mes "ǲԵ.,ʱһΪ.ҲӦóΪ..ķ..㲻ҪĹ.";
			next;
			mes "[]";
			mes "... Ҵ.... źڰ. ...!!!";
			next;
			mes "[" + strcharinfo(0) + "]";
			mes "......";
			close2;
		}
		warp "prt_castle",318,368;
	}
	else if (nkprince_eisen == 13) {
		donpcevent "#another_ern::OnEnable";
		warp "prt_castle",318,368;
	}
	else if (nkprince_eisen == 15) {
		warp "prt_castle",318,309;
	}
	else {
		warp "prt_castle",318,368;
	}
	end;
}

prt_castle,336,276,0	script	#ern	45,1,1,{
OnTouch:
	if (checkquest(10023) == 1) {
		donpcevent "#eisen6::OnEnable";
	}
	warp "prt_castle",368,308;
	end;
}

prt_castle,300,276,0	script	#erich	45,1,1,{
OnTouch:
	if (checkquest(10020) == 1) {
		donpcevent "#eisen1::OnEnable";
	}
	warp "prt_castle",274,368;
	end;
}

prt_castle,330,271,0	script	#helmut	45,1,1,{
OnTouch:
	if (checkquest(10022) == 1) {
		donpcevent "#eisen3::OnEnable";
	}
	warp "prt_castle",290,208;
	end;
}

prt_castle,348,271,0	script	#poe	45,1,1,{
OnTouch:
	if (checkquest(10018) == 1) {
		donpcevent "#eisen4::OnEnable";
	}
	warp "prt_castle",390,208;
	end;
}

prt_castle,354,276,0	script	#peter	45,1,1,{
OnTouch:;
	if (checkquest(10019) == 1) {
		donpcevent "#eisen5::OnEnable";
	}
	warp "prt_castle",366,368;
	end;
}

prt_castle,310,271,0	script	#urgen	45,1,1,{
OnTouch:
	if (checkquest(10021) == 1) {
		donpcevent "#eisen2::OnEnable";
	}
	warp "prt_castle",340,208;
	end;
}

prt_castle,317,364,0	warp	#eisen2	1,1,prt_castle,318,273
prt_castle,317,304,0	warp	eisen22	1,1,prt_castle,318,273
prt_castle,367,304,0	warp	#ern2	1,1,prt_castle,336,273
prt_castle,273,364,0	warp	#erich2	1,1,prt_castle,300,273
prt_castle,289,213,0	warp	#helmut2	1,1,prt_castle,330,274
prt_castle,389,213,0	warp	#poe2	1,1,prt_castle,348,274
prt_castle,365,364,0	warp	#peter2	1,1,prt_castle,354,273
prt_castle,340,213,0	warp	#urgen2	1,1,prt_castle,310,274
prt_castle,163,312,0	warp	#class2	1,1,prt_castle,221,343
prt_castle,221,347,0	warp	#class	1,1,prt_castle,163,316
prt_castle,225,338,0	warp	#room11	1,1,prt_castle,275,283
prt_castle,273,284,0	warp	#room21	1,1,prt_castle,221,338
prt_castle,225,318,0	warp	#room12	1,1,prt_castle,276,263
prt_castle,273,264,0	warp	#room22	1,1,prt_castle,221,318
prt_castle,221,308,0	warp	#princeout	1,1,prt_castle,176,167

prt_castle,176,170,5	script	ʿ#princein	105,{
	if (nk_prince > 4) {
		mes "[վֵطʿ]";
		mes "ͨصŵѡ˵ķ.ڰȫԭ,ȫغͱ";
		next;
		mes "[վֵطʿ]";
		mes "Ϊ.";
		close2;
		warp "prt_castle",220,312;
		end;
	}
	else {
		mes "[վֵطʿ]";
		mes "ֻϢ,ʱ.";
		close;
	}
}

prt_castle,121,168,0	script	#arm	111,4,4,{
//OnTouch2:
OnTouch:
	if (nk_prince == 8) {
		mes "[" + strcharinfo(0) + "]";
		mes "..............";
		next;
		mes "[" + strcharinfo(0) + "]";
		mes "ţ̶.";
		mes "Just forget about it.";
		next;
		mes "[" + strcharinfo(0) + "]";
		mes "˭ҪΪ?";
		next;
		set nk_prince,9;
		mes "[" + strcharinfo(0) + "]";
		mes "޲...";
		close;
	}
}

prt_castle,316,313,0	script	#arm1	111,3,3,{
//OnTouch2:
OnTouch:
	if (nkprince_eisen > 14) {
		mes "[" + strcharinfo(0) + "]";
		mes "..............";
		next;
		mes "[" + strcharinfo(0) + "]";
		mes "Ƿʲô뷨,ڷôΪ?";
		next;
		mes "[" + strcharinfo(0) + "]";
		mes "ʲô...";
		mes "һ޷ֲĵز?";
		next;
		mes "[" + strcharinfo(0) + "]";
		mes "Ҳ,û뿪.ֻʣµ...";
		next;
		mes "[]";
		mes "~~㲻˵,ҵͺ...?~~";
		next;
		mes "[" + strcharinfo(0) + "]";
		mes "..............";
		next;
		mes "[" + strcharinfo(0) + "]";
		mes "...Ĭ.";
		mes "Ÿ뿪... һ.";
		next;
		mes "[" + strcharinfo(0) + "]";
		mes "...Ϣ.";
		close;
	}
	end;
}
