//===== rAthena Script ======================================= 
//= Quest NPCs related to Prontera
//===== By: ================================================== 
//= kobra_k88; L0ne_W0lf
//===== Current Version: ===================================== 
//= 2.9
//===== Compatible With: ===================================== 
//= rAthena SVN
//===== Description: ========================================= 
//= Collection of Prontera-based quests.
//= * Culvert Access
//= * Ph.D Hat Quest
//= * Gaebolg Family Curse
//===== Comments: ============================================
//= Culvert Access:
//= - [Official Conversion]
//= - Variable in use: MISC_QUEST (bit 8)
//= Ph.D Hat Quest:
//= - [Official Conversion]
//= - n/a
//= Gaebolg Family Curse:
//= - [Official Conversion]
//= - Variable in use: prt_curse (max 61)
//===== Additional Comments: ================================= 
//= Fixed flower name Dreamy -> Illusion
//= 1.2 Fixed exploit [Lupus]
//= 1.3 Removed Duplicates [Silent]
//= 1.4 Moved Culvert from cities/prontera.txt [Evera]
//= 1.5 Culvert has been rescripted from the ground up. [L0ne_W0lf]
//= 1.6 Added Gaebolg Family Curse quest. [L0ne_W0lf]
//= 1.6a Fixed a couple spelling mistakes. [L0ne_W0lf]
//= 1.7 Updated "Ph.D Quest" Dialogs. [Samuray22]
//= 1.7b Fixed some minor typos. [SinSloth]
//= 1.7c replaced item "names" with item id. [Lupus]
//= 1.8 Fixed experience gains to match upcoming rate adjustments. [SinSloth]
//= 1.9 Fixed "him" -> "her" in Ph.D hat quest. THansk to yyCC. [L0ne_W0lf]
//= 2.0 Corrected NPC names to fall within proper restrictions. [L0ne_W0lf]
//= 2.0a Corrected a Typo error ";;". [Samuray22]
//= 2.0b Corrected a Typo error. (bugreport:950) [Samuray22]
//= 2.1 Added missing checkweights. [L0ne_W0lf]
//= 2.2 Added Nameless Island quest addition. [L0ne_W0lf]
//= 2.3 Bamph will now talk to those who failed the Gaebolg quest. [L0ne_W0lf]
//= 2.3a Touch up to Bamph fo other fail-points. [L0ne_W0lf]
//= 2.3b Hopefully the last change needed for Nameless quest. [L0ne_W0lf]
//= 2.4 Updated Headgear Quest. [L0ne_W0lf]
//= 2.5 Fixed requirements for PH D. Hat. [L0ne_W0lf]
//= 2.5a Fixed requirements for PH D. Hat agian lol. [L0ne_W0lf]
//= 2.6 Replaced effect numerics with constants. [L0ne_W0lf]
//============================================================ 

// ˮ
//============================================================ 
prt_in,88,105,2	script	̳ Ӣ	105,{
	if (MISC_QUEST & 8) {
		mes "[̳ Ӣ]";
		mes "...";
		mes "ҿͬ";
		next;
		mes "[̳ Ӣ]";
		mes "ȻԸˮַ. Ҫ㵽?";
		next;
		if (select("͵¡ˮ:뿪.") == 1) {
			warp "prt_fild05",274,208;
			end;
		}
		close;
	}
	mes "[̳ Ӣ]";
	mes "¬׵¼Ӷ׶˾ʥּ";
	mes "ε¼Ϊ㣬ǰַˮħٴδټ˫ȫʿ";
	next;
	switch(select("ˮַ:ε¼.:ˣ")) {
	case 1:
		callsub S_Volunteer;
		mes "[̳ Ӣ]";
		mes "ϣŬЭ!";
		close2;
		warp "prt_fild05",274,208;
		end;
	case 2:
		mes "[̳ Ӣ]";
		mes "ˮ˹";
		mes "Ѿ˺ܴɧѵȫ֪";
		next;
		mes "[̳ Ӣ]";
		mes "֮¡߾ְ䲼׶ˮֹʹ";
		mes "¡صˮѣڽԹҵĲΣ";
		next;
		mes "[̳ Ӣ]";
		mes "Ϊ£ĸӻɢ...";
		next;
		mes "[̳ Ӣ]";
		mes "ǵģھóȥʱˣΪλŬԲűϺӵйδԼɾĻҺϣİæ֧Ԯ";
		next;
		if (select("ˮַ:ˣ") == 1) {
			callsub S_Volunteer;
			mes "[̳ Ӣ]";
			mes "ҽ㵽¡ˮ";
			close2;
			warp "prt_fild05",274,208;
			end;
		}
		mes "[̳ Ӣ]";
		mes "ðɣ´ˮʱסСΪˮ";
	case 3:
		close;
	}
S_Volunteer:
	set MISC_QUEST,MISC_QUEST | 8;
	mes "[̳ Ӣ]";
	mes "ѽܸ";
	mes "ڸλιϵҺͺδսۣ˽׶˾ϸл֮⣡";
	next;
	mes "[̳ Ӣ]";
	mes "Ǹַӵ֧ԮƷ";
	mes "ɫҩˮ 3 ƿţ 1 ƿ";
	mes "Σʱʹõĳɫҩˮ 1 ƿ";
	getitem 501,3; //ɫҩˮ
	getitem 519,1; //ţ
	getitem 502,1; //ɫҩˮ
	next;
	return;
}

prt_fild05,270,212,5	script	ˮ 	105,{
	if(MISC_QUEST & 8) {
		mes "[ˮ ]";
		mes "ǽˮ";
		next;
		if (select("Ҫȥˮ:ˣ") == 1) {
			warp "prt_sewb1",131,247;
			end;
		}
		close;
	}
	mes "[ˮ ]";
	mes "Բֻμӵˮַӵ˲ſԽ";
	mes "^000077¡ļ̳^000000ϱ";
	mes "ϸλ¡׵Ľ";
	close;
}

// ѧʿñ
//============================================================ 
prt_in,38,108,4	script	#prt	53,{
	if ((countitem(710) > 0) && (countitem(703) > 0) && (countitem(704) > 0) && (countitem(708) > 0)) {
		mes "[]";
		mes "ҵ찡.. ŵĻ..";
		next;
		switch(select("::ȡ")) {
		case 1:
			mes "[]";
			mes "..  .. ѰѰٵֻû..";
			mes "԰ѻ?...";
			next;
			mes "[]";
			mes "ԸҵĻ......ҾͰӵĶ㡣";
			close;
		case 2:
			if ((countitem(710) > 0) && (countitem(703) > 0) && (countitem(704) > 0) && (countitem(708) > 0)) {
				delitem 710,1; 	//뻨
				delitem 703,1; 	//׻
				delitem 704,1; 	 //«
				delitem 708,1; 	//ػ
				getitem 5012,1;	//ѧʿñ
				mes "[]";
				mes "̫лˣСҵһθеů";
				next;
				mes "[]";
				mes "ҾԼӵĶ㡣";
				mes "ұҵʱñӣѧʱڵĻ䡣";
				mes "..ϣҲһϧ";
			}
			else {
				mes "[]";
				mes "... ϸһⲢҪѰҵĻ...";
				mes "... ۾軨û...";
			}
		case 3:
		}
	}
	else{
		mes "[]";
		mes "⻨... ԰?";
		next;
		if(select("Ի:ȡ")==1) {
			mes "[]";
			mes "ʱҺٺͬһȥ棬ͷ";
			mes "Ȼеϧ...ҲڡʱĸҲôߵȵĽҪȻҲнյĳɾ͡";
			next;
			mes "[]";
			mes "˵ʵ... ûʲôѻҸе൱ıˡ";
			mes "ᷳʱ.. ˵̸ĵѶûС";
			mes "ֵҵǣҵⱲĵˡ";
			next;
			mes "[]";
			mes "߽԰һʢһ˲...";
			mes "ͻȻܵԼ뻨ͬˣҽ䵱ҵֿѡ";
			next;
			mes "[]";
			mes "˵ֻܾǻ..Ƕ˵൱";
			mes "ܹнĳɾ..˵Ϊ顣";
			next;
			mes "[]";
			mes ".. .. 뱨Щһѡ";
			mes "Ǵׯ˺ܶйػо..벼óһĵط";
			next;
			mes "[]";
			mes ".. ҪܶܶĻ...";
			mes "ΪҲ̫.. ҪѰ൱ѵġ";
			mes "Ϊҵ^3355FF뻨^000000  ^3355FF׻^000000  ^3355FF«^000000  ^3355FFػ^000000... ЩĻҾͰӵĶ...";
		}
		else {
			mes "[]";
			mes "һһúܶܶĻһޱȵĵط";
		}
	}
	close;
}

// 
//============================================================ 
prontera,248,212,3	script	æµ #prt	706,3,3,{
	callsub S_CheckWeight; //ȷ
	if (BaseLevel > 59) {
		if (prt_curse == 0) {
			mes "[æµ ]";
			mes "..ô..";
			close;
		}
		else if (prt_curse == 1) {
			mes "[æµ ]";
			mes "..ô..";
			next;
			if (select("?:") == 1) {
				mes "["+strcharinfo(0)+"]";
				mes "?";
				next;
				mes "[æµ ]";
				mes ".........?";
				next;
				mes "[æµ ]";
				mes "- !ϴλðʧ";
				if (sex) {
					mes "!";
				}
				else {
					mes "!";
				}
				Emotion e_gasp;
			}
			else {
				mes "[æµ ]";
				mes "ֹֹ...";
				close;
			}
			next;
			select("ʲô?");
			mes "[æµ ]";
			if (sex) {
				mes "-һʿĻײ˺Ӧðæ? ʵڸеܻ";
			}
			else {
				mes "-һŮĻײ˺Ӧðæ? ʵڸеܻ";
			}
			next;
			mes "^3355FF-ѶѵԱߵý߿!-^000000";
			next;
			specialeffect EF_HITDARK;
			Emotion e_omg;
			mes "^3355FF- ! ! !  ! ! ! -^000000";
			next;
			Emotion e_omg;
			mes "[æµ ]";
			mes "ѽ! Ǹʲô!!Һò׵õ!";
			next;
			mes "["+strcharinfo(0)+"]";
			mes "ܵûϵ?Сģû?";
			mes "Ѱѵ ˣ´ҪСһ~";
			Emotion e_lv,1;
			next;
			mes "[æµ ]";
			mes "...";
			mes "......";
			mes ".........";
			Emotion e_dots;
			next;
			mes "[æµ ]";
			mes ".....!!";
			mes "ʣҿ԰һ?";
			next;
			select("Щ鶼?");
			mes "[æµ ]";
			mes "ȻʵЩ鲻Ҫģ";
			mes "ֻǰæշѵĴ";
			next;
			mes "[æµ ]";
			mes "ЩҲܵίк¡ͼݽģҪЩ͵ŵȥ...";
			next;
			mes "[æµ ]";
			mes "ʵңֻҪһϷɿͧͻλ....";
			Emotion e_dots;
			next;
			mes "[æµ ]";
			mes "أӦҪȷͻĵַʵںǱ!!롭Ҳܲ˼ҰЩ͹ȥ?";
			Emotion e_sob;
			next;
			mes "[æµ ]";
			mes "һõһѸʹΪңѾ̫ʱˣֻҪһ뵽ίЩĻ..........";
			next;
			callsub S_GetBooks;
			mes "[æµ ]";
			mes "!";
			Emotion e_sob;
			set prt_curse,2;
			close;
		}
		else if (prt_curse == 2) {
			mes "[æµ ]";
			mes "𣬹Ȼ.. Ϊ̫ˣԲ̤ŵһֻҪһɿͧӾ...ŻŻ";
			Emotion e_dots;
			next;
			callsub S_GetBooks;
			mes "[æµ ]";
			mes "";
			Emotion e_sob;
			close;
		}
		else if (prt_curse == 3) {
			mes "[æµ ]";
			mes "ί˵ '^FF0000Ī^000000'";
			mes "˵^FF0000ŵͼ^000000ţ";
			mes "ô°";
			close;
		}
	}
	mes "[æµ ]";
	mes "æѽ æ~";
	close;

OnTouch:
	callsub S_CheckWeight; //ȷ
	if (BaseLevel > 59) {
		if (prt_curse == 0) {
			Specialeffect EF_HITDARK;
			mes "^3355FF- ! ! !  ! ! ! -";
			mes "- (žžžž) -^000000";
			next;
			mes "[æµ ]";
			mes "ѽѽѽ-·ﰡ!";
			Emotion e_ag;
			next;
			mes "["+strcharinfo(0)+"]";
			mes "ܱǸû?";
			next;
			mes "[æµ ]";
			mes "ߣû";
			next;
			mes "^3355FF- ·մлҳСΧɢŶͨСԣ԰Ϊڶĸ߼װ鼮-^000000";
			next;
			mes "^3355FF- ӡ񻰼ַӦ൱רҵ鼮Сҳ󣬾Ϳʼѵڵϵľװ鼮һʰԼ-^000000";
			next;
			if (select("ȥ:һæ") == 1) {
				mes "[æµ ]";
				mes "Ժ·һ! !!";
				set prt_curse,1;
				close;
			}
			mes "[æµ ]";
			mes "......................лл";
			next;
			select("Щ鶼Ҫ?");
			mes "[æµ ]";
			mes "ô!ֻǰæշѵĴ";
			next;
			mes "[æµ ]";
			mes "ЩҲܵίк¡ͼݽģҪЩ͵ŵȥ...";
			Emotion e_dots;
			next;
			mes "[æµ ]";
			mes "ʵңֻҪһϷɿͧͻλ....";
			Emotion e_sob;
			next;
			mes "[æµ ]";
			mes "أӦҪȷͻĵַʵںǱ!!롭Ҳܲ˼ҰЩ͹ȥ?";
			next;
			callsub S_GetBooks;
			mes "[æµ ]";
			mes "һõһѸʹΪңѾ̫ʱˣֻҪһ뵽ίЩĻ..........";
			next;
			mes "[æµ ]";
			mes "!";
			Emotion e_sob;
			set prt_curse,2;
			close;
		}
		else if (prt_curse == 3) {
			mes "[æµ ]";
			mes "ί˵ '^FF0000Ī^000000'";
			mes "˵^FF0000ŵͼ^000000ţ";
			mes "ô°!";
			close;
		}
	}
	end;

S_GetBooks:
	if (select(":") == 1) {
		mes "[æµ ]";
		mes "ǳлл!ҿһ~~";
		next;
		mes "[æµ ]";
		mes "ί˵ '^FF0000Ī^000000'";
		mes "˵^FF0000ŵͼ^000000ţ";
		next;
		mes "[æµ ]";
		mes "ôܻһЩ...";
		mes "..! ЩͰㆪ";
		set prt_curse,3;
		getitem 7431,1; //ѵ
		close;
	}
	return;

S_CheckWeight:
	if ((MaxWeight-Weight) < 2000 || checkweight(1201,1) == 0) {
		mes "^3355FF^000000";
		close;
	}
	return;
}

yuno,311,195,3	script	ʷѧ#prt01	754,{
	if ((MaxWeight-Weight) < 2000 || checkweight(1201,1) == 0) {
		mes "^3355FF!^000000";
		close;
	}
	if (prt_curse < 3) {
		mes "[ʷѧ]";
		mes "㲻ֻҪŵ";
		mes "òͺ";
		mes "? ֻҪע";
		mes "ͲһĪĳ嶯";
		next;
		mes "[ʷѧ]";
		mes "ҿܵĹ";
		mes "ѧߵˣ";
		mes "";
		next;
		mes "[ʷѧ]";
		mes "еܱҷһ̣";
		mes "ܸպҲǱߵĻ";
		mes "һź!";
		close;
	}
	else if (prt_curse == 3) {
		mes "^3355FF-ͼǰĳνǱпӣϵԷĺ";
 		mes "ϲ̧ͷʼüüıŪͷ-^000000";
		next;
		mes "[ʷѧ]";
		mes "!!!";
		Emotion e_ag;
		next;
		select("ʲô?");
		mes "[ʷѧ]";
		mes "¡ίг鼮ԼʱѾ˺ܾãδ";
		next;
		mes "[ʷѧ]";
		mes "ûЩĻҾ޷оô?ݳ׵Ŀ֤ټоʷѧǵְڲ";
		next;
		mes "[ʷѧ]";
		mes "Ϊоܵϳٳٲʵڸеż";
		next;
		if (countitem(7431) > 0) {
			select("Ĵ?");
			mes "[ʷѧ]";
			mes "ͽ^3355FFĪ^000000ɣ׸ʷоĵһѽѧ";
			next;
			mes "[ʷѧ]";
			mes ".. ˭?";
			next;
		}
		else {
			select("Ұ϶");
			Emotion e_what;
			mes "[ʷѧ]";
			mes "Ŷ? ? ǵˣ";
			mes "?";
			next;
			mes "["+strcharinfo(0)+"]";
			mes "..";
			mes "Ҳ֪Ƕȥ..";
			next;
			mes "[ʷѧ]";
			mes "ʲô?";
			mes "Ǹ!";
			mes "ЩǱо!";
			mes "ָҪ˵?";
			next;
			mes "[ʷѧ]";
			mes "ðЩһ!";
			close;
		}
		select("Ұ϶");
		mes "[ʷѧ]";
		mes "! !!Ͽ齻";
		next;
		mes "- ĪͬҰްϵ鼮ߺĵĿ -";
		next;
		mes "[ʷѧ]";
		mes "û.. Ȼʵƾôͳ¬--׵¼һ̲鱨";
		next;
		mes "[ʷѧ]";
		mes "ˣȻЩҾͲҪ̫";
		next;
		mes "[ʷѧ]";
		mes "˵һæȵˣЩҾõСΪҿȲǼҾƶֲǸСӰ";
		next;
		mes "- Īȵľ -";
		next;
		mes "[ʷѧ]";
		mes "ţԭˣȸҽ˵ܴɿͧͺ˰..ˣѾõ";
		next;
		mes "[ʷѧ]";
		mes "֮ѵøһ?Һϲ죬̫Ҳˣȥȿˮ";
		set prt_curse,4;
		delitem 7431,1; //ѵ
		close;
	}
	else if (prt_curse == 4) {
		mes "[ʷѧ]";
		mes "-ˮй~!ôǿʼЩܰĶԻ";
		next;
		mes "[ʷѧ]";
		mes "- Īմϵˮ΢Ǻı˵ȥ -";
		next;
		mes "[ʷѧ]";
		mes "- Īմϵˮ΢Ǻı˵ȥ -";
		next;
		mes "[ʷѧ]";
		mes "Ҹղ΢ʽҽܣ'׸ʷо'ĵһѽΣ'Ī'";
		next;
		mes "[ʷѧ]";
		mes "Ȼһֱо㷢ȷµĹȥҲоʷо¬--׵¼йصʷ";
		next;
		mes "[ʷѧ]";
		mes "׵¼Ӷصĸ֮䣬ǲܺ޹ϵģ͸˴˼ϵ¼һֽǶ㷢ȷµ";
		next;
		mes "[ʷѧ]";
		mes " ^0000FF׸ʷо^000000 3ͬ·ɢڸغо¬--׵¼ȵʷ";
		next;
		select("׸ʷо?");
		mes "[ʷѧ]";
		mes "׸?ң㷢ȷһ޴ҵ";
		next;
		mes "[ʷѧ]";
		mes "͸׸о׸«ھƾùȥŴַУΰͻԵоչ׸ʷȥҪԱʷо";
		next;
		mes "[ʷѧ]";
		mes "֪?¬--׵¼ıǲϮǴ12ĸҵѡƱӣܵǻ";
		next;
		select("кü?");
		mes "[ʷѧ]";
		mes "ǵģ¬--׵¼7ŵңҪϸ˵ֻͷʹΪʡԸӵĲݣ";
		next;
		mes "[ʷѧ]";
		mes "¬--׵¼ʵ˵7λҲһ㲻Ϊ";
		next;
		mes "[ʷѧ]";
		mes "˵ںܾúܾǰΪ֮ߵľߣҢżس׵¼Ӷش½󣬰췭ظ";
		next;
		mes "[ʷѧ]";
		mes "Ϊˣױָ ˹̹ 16ʿҢżأǿӵױָ ˹̹ 1ڵ¬--׵¼ǵĽ";
		next;
		mes "[ʷѧ]";
		mes "? 㲻Ȥ?";
		next;
		Emotion e_swt2;
		mes "[ʷѧ]";
		mes "- Īƺ۲ķӦضı -";
		next;
		mes "[ʷѧ]";
		mes "ийصִͳڴͯҥҸ̫ãһᳪһοϸãߺ";
		next;
		mes "[ʷѧ]";
		mes "^FF0000~ɺľ޴~";
		mes "~ɺľ޴~";
		mes "~߲ͷ׵ӥ~";
		mes "~ٵӥڴ~^000000";
		next;
		mes "[ʷѧ]";
		mes "ߺ... еգ֮ڴͯҥ֪ܵҢżص7ʿ¬--׵¼Դף֮飬͸һһ";
		next;
		mes "[ʷѧ]";
		mes "ǶôΰԽʱռϧ֮!";
		set prt_curse,5;
		close;
	}
	else if (prt_curse == 5) {
		mes "[ʷѧ]";
		mes "ߺߣһ˳Ϸĵ";
		next;
		mes "[ʷѧ]";
		mes "㣬ǲǸûص¬--׵¼? ôԴӦһ?";
		next;
		mes "[ʷѧ]";
		mes "¬--׵¼һ ^0000FF޿^000000ĴͬΪʷѧѧͬ£ݱ齻? оҪĹϵ..";
		next;
		mes "[ʷѧ]";
		mes "ӴԶҪ鷳ʵڱǸǾͰㆪ";
		set prt_curse,6;
		getitem 7342,1; //ĵ
		close;
	}
	else if (prt_curse == 6) {
		mes "[ʷѧ]";
		mes "ȥͬµ󣬰Ҹı齻ɣֽ^0000FF^000000Ӧ^0000FF޿^000000ĳо֮";
		next;
		if (select("֪:ҿͯҥ?") == 1) {
			mes "[ʷѧ]";
			mes "ㆪ";
		}
		else {
			mes "[ʷѧ]";
			mes "ãҲ";
			next;
			mes "[ʷѧ]";
			mes "^FF0000~ɺľ޴~";
			mes "~ɺľ޴~";
			mes "~߲ͷ׵ӥ~";
			mes "~ٵӥڴ~^000000";
			next;
			mes "[ʷѧ]";
			mes "ͯҥĵ";
			mes "ŬѧϰʷѧĻ";
			mes "һһд׸ʷо";
		}
		close;
	}
	else if (prt_curse > 55) {
		mes "[ʷѧ]";
		mes "Ѿþû";
		mes "ǰŵ";
		mes "һ";
		next;
		mes "[ʷѧ]";
		mes "Ц˵Щʵۣ";
		mes "ǻ!";
		mes "ûʲôģ԰?";
		close;
	}
	else {
		mes "[ʷѧ]";
		mes "...........";
		close;
	}
}

morocc_in,45,126,3	script	ʷѧ#prt02	702,{

	if ((MaxWeight-Weight) < 2000 || checkweight(1201,1) == 0) {
		mes "^3355FF^000000";
		close;
	}
	if (prt_curse == 6) {
		if (countitem(7342) < 0) {
			mes "^3355FFѿĪڵıŪ..";
			close;
		}
		mes "[ʷѧ ]";
		mes "ҵΪʲô!!Ƥȴôֲڲ?";
		Emotion e_sob;
		next;
		mes "[ʷѧ ]";
		mes "뷿˭?";
		next;
		select("ǰ￨Īȵ");
		mes "[ʷѧ ]";
		mes "ޣԭǿĪ!ָֻҪûгԽ˵ʱ򣬾ͻỼ֢޴˰!ðɣĪʲô?";
		next;
		mes "- ѿĪı齻Ůѧ -";
		next;
		mes "[ʷѧ ]";
		mes "ߣ? ҪŠdʲô鰡~";
		next;
		mes "[ʷѧ ]";
		mes "֮޴ˣٿҲҪ";
		next;
		if (select("̸̸йо:Ի") == 1) {
			mes "[ʷѧ ]";
			mes "ʷоой¬--׵¼ʷ";
			next;
			mes "[ʷѧ ]";
			mes "Īڹ鷽棬ѧӦý̤ʵصģȥȷȥ᲻?";
			next;
			mes "[ʷѧ ]";
			mes "޿Ϊڶż๲ţʨЩ";
			next;
			mes "[ʷѧ ]";
			mes "һ˽޿˵ʷĻԱߵ̸һ̸ɣֻҪһ'޿'֣۾ͻΪ֮һ";
			next;
			mes "[ʷѧ ]";
			mes "޿˵סͬǿɳĮ糾һңӵмᶨ֮־ǲϧԼĹȥؼر";
			next;
			mes "[ʷѧ ]";
			mes "ԼִͳͯҥУҲȷǵ";
			next;
			mes "[ʷѧ ]";
			mes "^FF0000~ɺľ޴~";
			mes "^FF0000~ɺľ޴~";
			mes "^FF0000~߲ͷ׵ӥ~";
			mes "^FF0000~...^000000......ŶŶ?";
			next;
			mes "[ʷѧ ]";
			mes "ǽʲô?֪ͯҥ?";
			next;
			switch(select("֪:֪вͬ:ȫ֪")) {
			case 1:
				mes "[ʷѧ ]";
				mes "ӴԭҲʷܹİ!";
				mes "ԸǵĲ?";
				next;
				input .@answer$;
				if (.@answer$ == "ٵӥڴ") {
					mes "[ʷѧ ]";
					mes "֣֪Ĳ̫һҮ";
					callsub S_GiveName,1;
				}
				else {
					mes "[ʷѧ ]";
					mes ".. 㲻Ǹ̫һ?";
					delitem 7342,1; //ĵ
					set prt_curse,7;
					close;
				}
			case 2:
				mes "[ʷѧ ]";
				mes "ŶŶ? ˵̫һ?";
				mes "ô԰֪ͯҥ?";
				next;
				mes "- һº󣬰ɱ";
				mes "Ī򳪸ͯҥ";
				mes " -";
				next;
				mes "["+strcharinfo(0)+"]";
				input .@line$;
				if (.@line$ == "ɺľ޴") {
					set .@total,.@total+1;
					mes "~ɺľ޴~";
				}
				else mes "* "+.@line$+"*";
				input .@line$;
				if (.@line$ == "ɺľ޴") {
					set .@total,.@total+1;
					mes "~ɺľ޴~";
				}
				else mes "*"+.@line$+"*";
				input .@line$;
				if (.@line$ == "߲ͷ׵ӥ") {
					set .@total,.@total+1;
					mes "~߲ͷ׵ӥ~";
				}
				else mes "*"+.@line$+"*";
				input .@line$;
				if (.@line$ == "ٵӥڴ") {
					set .@total,.@total+1;
					mes "~ٵӥڴ~";
				}
				else mes "*"+.@line$+"*";
				next;
				if (.@total == 4) {
					mes "[ʷѧ ]";
					mes "֣֪Ĳ̫һҮ";
					callsub S_GiveName,1;
				}
				else {
					mes "[ʷѧ ]";
					mes ".. 㲻Ǹ̫һ?";
					delitem 7342,1; //ĵ
					set prt_curse,7;
					close;
				}
			case 3:
				mes "[ʷѧ ]";
				mes "............";
				mes "........................";
				callsub S_GiveName,1;
			}
		}
		mes "[ʷѧ]";
		mes "ʷȥ䡢..";
		mes "ҵ";
		mes "ֱǰȻ";
		mes "ҶµĶи飬";
		mes "Ȼе¼ŵĸо..";
		close;
	}
	else if (prt_curse == 7) {
		mes "- ೭ϸ˼ʲô";
		mes "ѾƵ濴㿪˿-";
		callsub S_GiveName,0;
	}
	else if (prt_curse > 7 && prt_curse < 30) {
		mes "[ʷѧ ]";
		mes "һλͬŶţɽŴż";
		mes "ȥͯҥһ";
		close;
	}
	else if (prt_curse == 30 || prt_curse == 55) {
		mes "[ʷѧ ]";
		mes "Ӵѽ~ ˣŶ?һ?";
		next;
		mes "-Ѹһ䳪-";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "^FF0000~ɺľ޴~";
		mes "~ɺľ޴~";
		mes "~߲ͷ׵ӥ~";
		mes "~ӥ~";
		mes "~Ǵӿ׹~^000000";
		next;
		mes "[ʷѧ ]";
		mes "! ûˣǳлл!";
		next;
		mes " - 'Сʷѧңۿױָ䷽⣬˾ֹ͸¶.. ô? -";
		next;
		if (select("ѯйؿױָҵ:") == 1) {
			mes "-˵-";
			Emotion e_ic;
			next;
			mes "[ʷѧ ]";
			mes ".....................!";
			Emotion e_gasp;
			next;
			mes "[ʷѧ ]";
			mes "㾹ȻҪ鱨..ǳл";
			next;
			mes "[ʷѧ ]";
			mes "û뵽¬--׵¼ȻܣΪʷѧҷǳ˸Ȥ";
			next;
			mes "[ʷѧ ]";
			mes "֪˵жЧĶҩϣҪߵ..";
			next;
			mes "[ʷѧ ]";
			mes "йߵ֪鱨ûУҲ˵";
			next;
			mes "[ʷѧ ]";
			mes "ҢżͰ֮СҲΪ֮ȣ˵ӵо綾ߣ";
			mes "˶";
			mes "ҲƲΪܵҢżص䲻?";
			next;
			mes "[ʷѧ ]";
			mes "֮ܶ"+strcharinfo(0)+"ṩ鱨׸ʷоܴ";
			mes "ֻҪ޿˵оһһֵ飬";
			mes "Щ˲õز治֪Ҫδ.";
			mes "뵽ͻıĵĽ";
			next;
			mes "[ʷѧ ]";
			mes "ʱһҪѿĪͰϨ!";
			mes "ǺǣԴԿĪҪ";
			next;
			mes "-ñ鱨ϵ΢Цþòɢ";
			mes "ϣܰ㣬";
			mes "뷴Ūɳ׾ṩȤ鱨еƲ-";
			next;
			mes "["+strcharinfo(0)+"]";
			mes "'û취..ȥҼ˾'";
			if (prt_curse == 30) 
				set prt_curse,31;
			else 
				set prt_curse,60;
			close;
		}
		mes "-ûайؿױָҵ-";
		next;
		mes "[ʷѧ ]";
		mes "ҶԺʵڲܣ㲻ڵһʱ";
		mes "Ҽֱƻˣֻ޹۸Ǻ";
		next;
		mes "[ʷѧ ]";
		mes "֪ܰĵؼоˣлл㣬";
		mes "ҵҲһͬظмأǺǺǺ";
		next;
		mes "[ʷѧ ]";
		mes "ôȥĪı";
		mes "øһڽʤĽȫ׼";
		mes "ΪףܹŵɣǺǺǣ";
		mes "ôݰ~";
		next;
		mes "-ƺ鲻Ÿ";
		mes "߶Īı飬ȥ^0000FFನ^000000ʱ-";
		if (prt_curse == 30)
			set prt_curse,40;
		else
			set prt_curse,56;
		close;
	}
	else if (prt_curse == 31 || prt_curse == 40 ) {
		mes "-ƺ鲻Ÿ";
		mes "߶Īı飬ȥ^0000FFನ^000000ʱ-";
		close;
	}
	else if (prt_curse == 56) {
		Emotion e_an;
		mes "[ʷѧ ]";
		mes "ѵȥ˿Ī˵׽Ūһ£";
		mes "ȴϷΪ '޴'!!!~ !!!";
		close;
	}
	else if (prt_curse == 60) {
		Emotion e_an;
		mes "[ʷѧ ]";
		mes "ѵȥ˿Ī˵׽Ūһ£";
		mes "ȴϷΪ '޴'!!!~ !!!";
		next;
		mes "-ûٺ̸飬תǰ^0000FF¡^000000ȥ-";
		close;
	}
	else {
		mes "[ʷѧ ]";
		mes "˼ͷϵļӶǳ! ȱҺ";
		close;
	}

S_GiveName:
	next;
	mes "[ʷѧ ]";
	mes ".. մ?";
	next;
	select("ҽ "+strcharinfo(0)+"");
	mes "[ʷѧ ]";
	mes ""+strcharinfo(0)+"?";
	mes "һ㣬ǵ֪ͯҥʺ㳪Ĳ̫һ";
	next;
	mes "[ʷѧ ]";
	mes "ͯҥˣͬ׸ʷоһλͬ½^0000FFŶ^000000ȥǵͯҥһ";
	next;
	mes "[ʷѧ ]";
	mes "ûаӴĻͬͷϵ˿ڲ᲻ںһƵĲκ£һ᲻ϵҰ!";
	next;
	mes "[ʷѧ ]";
	mes "˵¬--׵¼ȱߵ^0000FFɽ^000000оŴż֮أϸλҲ̫...";
	next;
	mes "[ʷѧ ]";
	mes "ӦȥŶԣֻҺоߵذæ";
	if (getarg(0) == 1) delitem 7342,1; //ĵ
	set prt_curse,8;
	close;
}

mjolnir_01,135,168,3	script	ʷѧ#prt03	754,{
	if ((MaxWeight-Weight) < 2000 || checkweight(1201,1) == 0) {
		mes "^3355FF^000000";
		close;
	}
	if (prt_curse == 8) {
		mes "[ʷѧ Ŷ]";
		mes "˭?";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "С֮У˽ȷ¬--׵¼񻰵Ĵͳͯҥ֮ʣصǰ";
		next;
		mes "[ʷѧ Ŷ]";
		mes "!¬--׵¼Ƚ!!ܾû";
		next;
		mes "[ʷѧ Ŷ]";
		mes "Զԣû֮ǰ೪һ׸裬ָ";
		next;
		mes "[ʷѧ Ŷ]";
		mes "^FF0000~ɺľ޴~";
		mes "~ɺľ޴~";
		mes "~߲ͷ׵ӥ~";
		mes "~ӥ~";
		mes "~Ǵӿ׹~^000000";
		next;
		select("...........?");
		mes "[ʷѧ Ŷ]";
		mes "? ˵ͯҥое?֪ͬһֻҸƽͯҥ";
		next;
		mes "[ʷѧ Ŷ]";
		mes "ΪǵľģҲкܶͯҥǹò̵ı﷽ʽֻǴ˽Ĳ";
		next;
		select("...");
		mes "[ʷѧ Ŷ]";
		mes "? ʲô?ܵŵı";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "֪ͯҥʣѧĲ̫һ";
		next;
		mes "[ʷѧ Ŷ]";
		mes "?֪ĸʵ? һο";
		next;
		callsub S_Song;
	}
	else if (prt_curse == 9) {
		mes "[ʷѧ Ŷ]" ;
		mes "֪ĸ";
		next;
		callsub S_Song;
	}
	else if (prt_curse == 10) {
		mes "[ʷѧ Ŷ]";
		mes ".. ȻڲͬȤ?׸Ǵ?";
		next;
		select ("ǿĪҵ");
		mes "[ʷѧ Ŷ]";
		mes "ޣĪ򣬺þûˣĺ?";
		next;
		mes "[ʷѧ Ŷ]";
		mes "Ī׸裬ԹԭҲ˵";
		next;
		mes "[ʷѧ Ŷ]";
		mes "֪׸ԵɣǴӹϣһλС";
		next;
		select("С?");
		mes "[ʷѧ Ŷ]";
		mes "ûС..ҲҲ˵ܾǰǸһλĸ׵Ůһ";
		next;
		mes "[ʷѧ Ŷ]";
		mes "ĸ׵ı飬ƺкܳһʱź˶Ͼ";
		next;
		mes "[ʷѧ Ŷ]";
		mes "ȻĿŮϧÿ˶֮";
		next;
		mes "[ʷѧ Ŷ]";
		mes "ڿĪ򼫶鱾ϣҲûر֤ݣԿĪӦøӽʵ";
		next;
		mes "[ʷѧ Ŷ]";
		mes "ȻҲɼΪ;бĹ";
		next;
		mes "[ʷѧ Ŷ]";
		mes "֪ϸڵĻԼһСΰ?";
		next;
		mes "[ʷѧ Ŷ]";
		mes "ȻҲԴȤģҪҵı֣ǰŴżо";
		next;
		mes "[ʷѧ Ŷ]";
		mes "һμСĵط ^0000FF߸^000000.. ӣȸ С^0000FFȥ^000000.";
		next;
		mes "[ʷѧ Ŷ]";
		mes "ҵоֻҪһпϾʱһȥ㲻ٻ֪ͨ";
		next;
		mes "[ʷѧ Ŷ]";
		mes "ôߣðռ";
		set prt_curse,11;
		close;
	}
	else {
		mes "[ʷѧ Ŷ]";
		mes "ԶĺȻгжãϣҵڣĹҲͺ";
		close;
	}

S_Song:
	mes "["+strcharinfo(0)+"]";
	input .@line$;
	if (.@line$ == "ɺľ޴") set .@total,.@total+1;
	else mes "*"+.@line$+"*";

	input .@line$;
	if (.@line$ == "ɺľ޴") set .@total,.@total+1;
	else mes "*"+.@line$+"*";

	input .@line$;
	if (.@line$ == "߲ͷ׵ӥ") set .@total,.@total+1;
	mes "~"+.@line$+"~";

	input .@line$;
	if (.@line$ == "ٵӥڴ") set .@total,.@total+1;
	mes "~"+.@line$+"~";

	if (.@total == 4) set prt_curse,10;
	else {
		next;
		mes "["+strcharinfo(0)+"]";
		mes "ŶŶ? Ү";
		set prt_curse,9;
	}
	close;
}

mjolnir_01,298,302,0	script	#prt_poem01	-1,2,2,{
OnTouch:
	if (prt_curse == 11) {
		mes "^FF0000~ɺľ޴~^000000";
		close;
	}
	end;
}

mjolnir_01,300,297,0	script	#prt_poem02	-1,2,2,{
OnTouch:
	if (prt_curse == 11) {
		mes "^FF0000~ɺľ޴~^000000";
		close;
	}
	end;
}

mjolnir_01,292,288,0	script	#prt_poem03	-1,2,2,{
OnTouch:
	if (prt_curse == 11) {
		mes "^FF0000~߲ͷ׵ӥ~^000000";
		close;
	}
	end;
}

mjolnir_01,302,286,0	script	#prt_poem04	-1,2,2,{
OnTouch:
	if (prt_curse == 11) {
		mes "^FF0000~ӥ~^000000";
		close;
	}
	end;
}

mjolnir_01,313,279,0	script	#prt_poem05	-1,2,2,{
OnTouch:
	if (prt_curse == 11) {
		mes "^FF0000~Ǵӿ׹~^000000";
		close;
	}
	end;
}

mjolnir_01,312,269,5	script	#prt	81,{
	mes "[]";
	mes " !";
	close;
}

mjolnir_01,313,269,5	script	 ͵ #prt	706,{
	if (prt_curse == 11) {
		mes "[͵ ]";
		mes "ɺľ޴";
		mes "ɺľ޴";
		mes "߲ͷ׵ӥ";
		mes "ӥ";
		mes "Ǵӿ׹";
		next;
		mes "[ۿ Ů]";
		mes "ιǽٳ׸!";
		next;
		mes "[͵ ]";
		mes "..................";
		next;
		mes "- ΢һԱԼŮԣٴȥԼűС-";
		next;
		if (select("ʲô?:") == 1) {
			mes "[͵ ]";
			mes "...";
			mes "......";
			mes ".........";
			next;
			mes "[͵ ]";
			mes "СԣС֪ʲô?ҵĸǴӺܾúܾǰ";
			next;
			mes "- Ĵڣ߸Źϸ˵-";
			next;
			mes "[ۿ Ů]";
			mes "Ŭ! ˵";
			next;
			mes "[Ŭ]";
			mes "...........................";
			mes "꣬Сԣ";
			next;
			mes "- пŬСĸףǸŮԣԼСת-";
			next;
			mes "[ۿ Ů]";
			mes "............";
			next;
			mes "[ۿ Ů]";
			mes "ղ׸.. ֻͨѣѾõͯҥ";
			next;
			if (select("ô?:һθ谡") == 1) {
				mes "[ۿ Ů]";
				mes ".................";
				next;
				mes "- Ů˵ɫ䣬Ŷ˵ÿ˶Լ֮֮-";
				next;
				mes "[Ŭ]";
				mes "...";
				mes "......";
				mes ".........";
				next;
				mes "[Ŭ]";
				mes "СԣʱǰõЦ?";
				next;
				mes "[ۿ Ů]";
				mes "........";
				set prt_curse,12;
				close;
			}
			mes "[ۿ Ů]";
			mes "..................";
			next;
			mes "[ۿ Ů]";
			mes "ð";
			next;
			mes "[ۿ Ů]";
			mes "^FF0000~ɺľ޴~";
			mes "~ɺľ޴~";
			mes "~߲ͷ׵ӥ~";
			mes "~ӥ~";
			mes "~Ǵӿ׹~^000000";
			set prt_curse,12;
			close;
		}
		mes "[͵ ]";
		mes "...";
		mes "......";
		mes ".........";
		close;
	}
	else if (prt_curse == 36) {
		mes "^3355FF-ԲͨС㣬һֱܳ-^000000";
		close;
	}
	else if (prt_curse == 45) {
		mes "-Ȼû㿪ڣȴȻ΢Ц-";
		close;
	}
	else if (prt_curse > 54) {
		mes "^3355FF-Ȼû㿪ڣȴȻ΢Ц-^000000";
		close;
	}
	else {
		mes "[͵ ]";
		mes "...";
		mes "......";
		mes ".........";
		next;
		mes "-Сƺ-";
		close;
	}
}

mjolnir_01,316,268,3	script	ۿ Ů	879,{

	if ((MaxWeight-Weight) < 2000 || checkweight(1201,1) == 0) {
		mes "^3355FF^000000";
		close;
	}
	if (prt_curse == 11) {
		mes "[͵ ]";
		mes "ɺľ޴";
		mes "ɺľ޴";
		mes "߲ͷ׵ӥ";
		mes "ӥ";
		mes "Ǵӿ׹";
		next;
		mes "[ۿ Ů]";
		mes "ιǽٳ׸!";
		next;
		mes "[͵ ]";
		mes "..................";
		next;
		mes "- ΢һԱԼŮԣٴȥԼűС-";
		next;
		if (select("ʲô?:") == 1) {
			mes "[͵ ]";
			mes "...";
			mes "......";
			mes ".........";
			next;
			mes "[͵ ]";
			mes "СԣС֪ʲô?ҵĸǴӺܾúܾǰ";
			next;
			mes "- Ĵڣ߸Źϸ˵-";
			next;
			mes "[ۿ Ů]";
			mes "Ŭ! ˵";
			next;
			mes "[Ŭ]";
			mes "...........................";
			mes "꣬Сԣ";
			next;
			mes "- пŬСĸףǸŮԣԼСת-";
			next;
			mes "[ۿ Ů]";
			mes "............";
			next;
			mes "[ۿ Ů]";
			mes "ղ׸.. ֻͨѣѾõͯҥ";
			next;
			if (select("ô?:һθ谡") == 1) {
				mes "[ۿ Ů]";
				mes ".................";
				next;
				mes "- Ů˵ɫ䣬Ŷ˵ÿ˶Լ֮֮-";
				next;
				mes "[Ŭ]";
				mes "...";
				mes "......";
				mes ".........";
				next;
				mes "[Ŭ]";
				mes "СԣʱǰõЦ?";
				next;
				mes "[ۿ Ů]";
				mes "........";
				set prt_curse,12;
				close;
			}
			mes "[ۿ Ů]";
			mes "..................";
			next;
			mes "[ۿ Ů]";
			mes "ð";
			next;
			mes "[ۿ Ů]";
			mes "^FF0000~ɺľ޴~";
			mes "~ɺľ޴~";
			mes "~߲ͷ׵ӥ~";
			mes "~ӥ~";
			mes "~Ǵӿ׹~^000000";
			set prt_curse,12;
			close;
		}
		mes "[ۿ Ů]";
		mes "...........";
		close;
	}
	else if (prt_curse == 12) {
		mes "[ۿ Ů]";
		mes "ϡٵĵطô...";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "˵żȻΪйؽдͳͯҥвͬѯʵĹУ֪";
		next;
		mes "[ۿ Ů]";
		mes ".........";
		next;
		mes "[ۿ Ů]";
		mes "Ȼʷ棬ͬ";
		next;
		mes "[ۿ Ů]";
		mes "Ҳһй΢Цƽӵֻ";
		next;
		select("¹?");
		mes "[ۿ Ů]";
		mes ".....";
		next;
		mes "[ۿ Ů]";
		mes "ҲٻǶˣ׸Ҳûк˵";
		next;
		mes "- ıƺԸ̸ȥ̸ֻ-";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "ҷͶӹɵĿʱ⣬Ҫǻȥ";
		next;
		mes "[ۿ Ů]";
		mes "ʣ԰һ?";
		next;
		mes "[ۿ Ů]";
		mes "Դƶɽ˲ٸ֪ʶ";
		next;
		mes "[ۿ Ů]";
		mes "֮ǰ¡ʱ¡õİನ񸸰Һܶ";
		next;
		mes "[ۿ Ů]";
		mes "뿪¡Ҫȥɽʱ򣬲ΪҺܴĹ";
		next;
		mes "[ۿ Ů]";
		mes "ûʲô˲𣬵ЩҴɽϲɵҩݣ㽻İನ񸸺?";
		next;
		mes "[ۿ Ů]";
		mes "תĺܺã̫.. ";
		next;
		mes "- ۿŮ˵ ϵϵҩݴȡ󽻸-";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "һ¡õİನתʺЩҩݾ˰? ֪һת";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "'С¡..ȥ^FF0000¡^000000'";
		getitem 7432,1;	//Ƥ
		set prt_curse,13;
		close;
	}
	else if (prt_curse > 12 && prt_curse < 16) {
		mes "[ۿ Ů]";
		mes "Ϊ̫¡õİನ񸸣԰";
		close;
	}
	else if (prt_curse == 16) {
		mes "[ ]";
		mes "ô..ҩаת?";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "ǣҲ֮еԵ";
		next;
		mes "[ ]";
		mes "ʲô?";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "ҢżͿŬ׸..кι?";
		next;
		mes "[ ]";
		mes "...";
		mes "......";
		mes ".........";
		next;
		mes "[ ]";
		mes "й...ӦᵽҰ";
		next;
		Emotion e_dots;
		mes "-ĬĬصͷ-";
		next;
		mes "[ ]";
		mes "ԴħʽʧܺӾʧȥʶ.. ";
		next;
		mes "[ ]";
		mes "ȻܵȺͰ¶ͬ󣬵ȥ";
		next;
		mes "[ ]";
		mes "ĪıʹҸԸܷ..ֻǣΪи޷⿪ֻƸż͸磽Ļ";
		next;
		mes "[ ]";
		mes "ҶӿŬ׸͸ų..";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "Ϊʲô^0000FFӥ^000000?";
		next;
		mes "[ ]";
		mes ".. ںܾǰи·ÿŬĸ";
		next;
		mes "[ ]";
		mes "˵Ӧð^0000FFٵӥ^000000ĳ ^0000FFӥ^000000ŶԵӣһٶ̿Ŭȴһֱҿ¬--׵¼ȵ...";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "ԭǸÿ.. Ҳˣôɵ㾿ʲô?";
		next;
		mes "[ ]";
		mes "ʱħʽĵطǸҪĳֻмܲ룬ҪʥְԱΪ";
		next;
		mes "[ ]";
		mes "ħʽʧһɧ˵һѾ̳ʱöĺɫħʯƬ";
		Emotion e_gasp,1;
		next;
		mes "[ ]";
		mes "˽⣬ֻѾ֮...";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "ôǻɲΪ䣬˵Ϊ?";
		next;
		mes "[ ]";
		mes ".. ŵģֻѳΪ׵...";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "-ڲĻжɹʱݡüչӣȻ㣬";
		mes "οͰѽŲ^0000FF¡^000000";
		set prt_curse,17;
		close;
	}
	else if (prt_curse == 17) {
		mes "[ ]";
		mes "ǼҵĹ?";
		mes "ǣǶԵ?ǻ˼룬";
		mes "Ҹе";
		next;
		mes "㰲οͰѽŲ^0000FF¡^000000";
		close;
	}
	else if (prt_curse == 35 || prt_curse == 44 || prt_curse == 54) {
		mes "^3355FF-ûᵽйضɱ飬ο˵ħΪĴҸܿͻкϢ-^000000";
		next;
		mes "[ ]";
		mes ".. ұΪҺͿŬҪԶڰĵط...ǳлл";
		next;
		mes "[ ]";
		mes "ڿ԰ĵĺͿŬƵصȴŵĵ";
		next;
		mes "[ ]";
		mes "ʣô¼ô?";
		next;
		mes "["+strcharinfo(0)+"]";
		mes ".. Ҳ̫ನ񸸺ͱ˹˾취Ӧûᴦư";
		next;
		mes "[ ]";
		mes "ûλΰʥְԱ˵ҵԼЩȴǲʵ";
		next;
		mes "[ ]";
		mes "ҪҪ¶вϣÿҲμסㆪ";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "Ǽͱ";
		next;
		mes "[ ]";
		mes "лл㣬ôһᾲصȴţһЩҪ͸񸸺ʥְǵҩ";
		mes "ÿһ·Ļһ°ɣһκ˿ڵҩݣǺ";
		next;
		mes "[ ]";
		mes "ôٴθлˣڴһε~!";
		if (prt_curse == 35) set prt_curse,36;
		else if (prt_curse == 44) set prt_curse,45;
		else {
			next;
			mes "^3355FF-ڣֻʣȥ޿ʷѧҵ-^000000";
			set prt_curse,55;
		}
		close;
	}
	else if (prt_curse == 36) {
		mes "[ ]";
		mes "¶ӴЩعɣǽ͹ĵðɣ¬--׵¼ף";
		close;
	}
	else if (prt_curse == 45) {
		mes "[ ]";
		mes "֪Ҷĺƽ龳Ҳĸ飬ʹŵ˿Ҳ׵뿪";
		close;
	}
	else if (prt_curse > 54) {
		mes "[ ]";
		mes "Ϊƽ˷ģǳлл";
		close;
	}
	else {
		mes "[ ]";
		mes "^333333*...*^000000";
		close;
	}
}


prt_church,115,122,0	warp	#sazekan	1,1,prt_church,168,106
prt_church,166,106,0	warp	#prtchhall	1,1,prt_church,112,122

prt_church,185,106,3	script	 ˾ ನ	60,{
	if (prt_curse == 13) {
		mes "[˾ ನ]";
		mes "ӭ㣬¡ʱӭ㣬úϢ߰";
		next;
		select("ȡҩ");
		if (countitem(7432) < 1) {
			mes "["+strcharinfo(0)+"]";
			mes "!? Ұҩݶȥ?";
			close;
		}
		mes "[˾ ನ]";
		mes "ҩʲô?";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "ɽϼһλпŬСĸ׸Ķ";
		next;
		mes "[˾ ನ]";
		mes "ޣ˱ ǰĺ?";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "忴ȴ";
		next;
		mes "[˾ ˹˾]";
		mes "˴ﵱȻѹˣܹİһܵ";
		next;
		mes "[˾ ನ]";
		mes "˹˾񸸣㲻˵ʱѷѾȥ˽ȴܲ⣬㲻ûͬڹ";
		mes "Ϊ˾˵ֿĻ";
		next;
		mes "[˾ ನ]";
		mes "Ƽȥˣ㰡Ѿ?";
		next;
		mes "[˾ ˹˾]";
		mes "......................";
		next;
		mes "[˾ ˹˾]";
		mes "";
		next;
		select("Ѷйر ǵ¼");
		mes "[˾ ನ]";
		mes "....";
		next;
		mes "[˾ ˹˾]";
		mes "Ǽµȥ? ನ";
		next;
		mes "[˾ ˹˾]";
		mes " ί飬ʾнͽģҲ˵Ǹֵ";
		next;
		mes "[˾ ˹˾]";
		mes "ټǴʧȥĳ̶ֳȵãȥǼҲʵô? ";
		next;
		mes "[˾ ನ]";
		mes "... ðֵܣҪʼ㽲ҪĻŲһЩʱ? ԴԲй©κˣ㿿һ";
		set prt_curse,14;
		delitem 7432,1; //Ƥ
		close;
	}
	else if (prt_curse == 14) {
		mes "[˾ ನ]";
		mes "ǺܾúܾǰͿʼĹ";
		next;
		mes "[˾ ನ]";
		mes "֮߼֮ӵҢżأаҢżħǧս֮󣬳Ż粻ʱ̣ʼȥ";
		next;
		mes "[˾ ನ]";
		mes "ʱҢżɱĿױָ ˹̹ 1-Ҳǽ-һ͵ĶԿҢż";
		next;
		mes "[˾ ನ]";
		mes "а֮ߵҢżأڵȥǰɲǼױָ ˹̹1˿µ";
		next;
		mes "[˾ ನ]";
		mes "ǣ^FF0000ױָҵĵһλһܳز^000000 ";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "................!!!!!!";
		Emotion e_omg,1;
		next;
		mes "["+strcharinfo(0)+"]";
		mes "Ǳʾ˵ӣܵ?";
		next;
		mes "[˾ ನ]";
		mes "Сһ㣬ûνҵı.. ҫĴ˵ǲʹ....";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "ѵδŬȥƳ?";
		next;
		mes "[˾ ನ]";
		mes "ȻΪֹ䣬йεħΪȴŰ";
		next;
		mes "[˾ ನ]";
		mes "ħʽʧܣѾƣߣҪһ";
		next;
		mes "[˾ ನ]";
		mes "ͳ¬--׵¼˹̹ 3ԴӹһƬƲ֮࣬";
		mes "¡ίдģħʽ";
		next;
		mes "[˾ ನ]";
		mes "ǴþɢڸвŸɵʥְԱ㷢Ӣ";
		next;
		mes "[˾ ನ]";
		mes "Լ͸ֵĿ飬ѡħʿλ ^0000FF ^000000";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "....!! ԭˣô¶ָʧܵ˼?";
		next;
		mes "[˾ ನ]";
		mes "ûھټʥְԱԱۼĳʼħʽ...";
		next;
		mes "[˾ ˹˾]";
		mes "һλӹ";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "ʲôôôôôôôô????";
		next;
		mes "[˾ ˹˾]";
		mes "˵ʲôҲ֪ӦǵһλӣһλҲ";
		next;
		mes "[˾ ನ]";
		mes "Ȼڳһٸ벻ɢҥԣ֪¼ȺУ˴˵Ǳ¶־֮";
		next;
		mes "[˾ ನ]";
		mes "ħʽʧܼɴѪͳıС㣬Ӧܷǳ̷Ŷ";
		next;
		mes "[˾ ನ]";
		mes "ñСİױָ壬ְλҪӵ";
		next;
		mes "[˾ ನ]";
		mes "̸Щˣ˵Ǵڿʼ";
		Emotion e_dots;
		set prt_curse,15;
		close;
	}
	else if (prt_curse == 15) {
		mes "[˾ ನ]";
		mes "Ңżصϣ˵һͬ";
		next;
		mes "[˾ ನ]";
		mes "ͺǱǿҵסһֲ·֤";
		Emotion e_gasp,1;
		next;
		mes "["+strcharinfo(0)+"]";
		mes "!ԽΪĴͳͯҥݷǳǺ!";
		next;
		mes "[˾ ನ]";
		mes "? ָĴͳͯҥǣ߲ͷ׵ӥܾߺٵĳѨ˼? ǺҲ̫Ү";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "Ǹ֮⣬ǻͯҥ?";
		next;
		mes "[˾ ನ]";
		mes "СʱӴĸ.. Ҳ̫׸?";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "ǰֻͬк^0000FFӥˣǴӿ׹^000000..ĲȫȻͬ";
		next;
		mes "[˾ ನ]";
		mes "Ǻǣǲֻܴſױָҵѣ׸?";
		next;
		mes "[˾ ನ]";
		mes "ǴĳλʷѧԴĳԱ С";
		next;
		mes "[˾ ನ]";
		mes "С?";
		next;
		mes "[˾ ನ]";
		mes "Ӧһ?";
		next;
		mes "[˾ ನ]";
		mes "ȥұС㣬ٴй׸鱨׸費ܵһҵܱܻ";
		next;
		mes "[˾ ನ]";
		mes "ȻҲκἰй׸飬ô׼";
		set prt_curse,16;
		close;
	}
	else if (prt_curse == 16) {
		mes "[˾ ನ]";
		mes "صɽı ǣ";
		mes "ٴһйͯҥ鱨";
		close;
	}
	else if (prt_curse == 17) {
		mes "[˾ ನ]";
		mes "ޣϿѴ̽ϢҰ";
		next;
		mes "-ನ񸸰ѱ ˵ɻϸת棬ನЩԾ񣬵Խ˫񽥽-";
		next;
		mes "[˾ ನ]";
		mes "¼.. иĺĻ.. ˵İ";
		next;
		mes "[˾ ನ]";
		mes "±ܲˣȥȷϰ";
		next;
		select("ôȷ?");
		mes "[˾ ನ]";
		mes "пױָҵʱοͨ¡õµ''УԱ⿭ױָҵ䴫";
		next;
		mes "[˾ ನ]";
		mes "ϸ۲ǱڳĻֿᷢأһȥ";
		set prt_curse,18;
		close;
	}
	else if (prt_curse > 17 && prt_curse < 22) {
		mes "[˾ ನ]";
		mes "Ͽ򿪱ڳĿغȥ''";
		close;
	}
	else if (prt_curse == 22) {
		mes "[˾ ನ]";
		mes "ǺΪѣ֪¹ش󣬵κ˲ҷ֪ͨ";
		next;
		mes "[˾ ನ]";
		mes "ǰӦóֵĵ";
		mes "ȥ޿˴̿͹";
		mes "ȥ̽ǣǵķӦ";
		set prt_curse,23;
		close;
	}
	else if (prt_curse == 23) {
		mes "[˾ ನ]";
		mes "̿͹ԱӴһ";
		close;
	}
	else if (prt_curse == 31 || prt_curse == 40 || prt_curse == 50) {
		mes "[˾ ನ]";
		mes "٣ϽڼҰ";
		next;
		mes "-ڼԼನ񸸱棬˵пܴڣ¬--׵¼޷ȡãҶʹǷҲ-";
		next;
		mes "-йߵϡжݵ鱨ԼֱǲǶķ-";
		next;
		mes "[˾ ನ]";
		mes "... ֪ˣбҪȥȷһ£²˳٣Ͽ ^0000FFɫħʯ^000000 ^0000FFɫҩˮ^000000Ĺȥ";
		if (prt_curse == 40) set prt_curse,41;
		else if (prt_curse == 50) set prt_curse,51;
		else set prt_curse,32;
		close;
	}
	else if (prt_curse == 32 || prt_curse == 33 || prt_curse == 41 || prt_curse == 42 || prt_curse == 51 || prt_curse == 52) {
		mes "[˾ ನ]";
		mes "Ĺ͸棬׼^0000FFɫħʯ^000000 ^0000FFɫҩˮ^000000һҲȥ";
		close;
	}
	else if (prt_curse == 34) {
		mes "[˾ ನ]";
		mes "Ǻ˾ȣ.. һ֤!";
		next;
		mes "[˾ ನ]";
		mes "Ȼһλ޷֤ʵλӲҢżص䣬Ǳɱ...!!!Ҫε...";
		next;
		mes "[˾ ನ]";
		mes "ܣ֮ǱС.. ǲǰ?ǲǣ˹˾";
		next;
		next;
		mes "["+strcharinfo(0)+"]";
		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 "ôֵܣһΪֵܵĽ¶ıԸͬ";
		set prt_curse,35;
		close;
	}
	else if (prt_curse > 34 && prt_curse < 40 && !aru_monas) {
		mes "[˾ ನ]";
		mes "Ҳ֪δ飬ҸеԼ... ѵ˵һǰ¶?";
		close;
	}
	else if (prt_curse == 43 || prt_curse == 53) {
		mes "[˾ ನ]";
		mes "Ǻ˾ȣ.. һ֤!";
		next;
		mes "[˾ ನ]";
		mes "Ȼһλ޷֤ʵλӲҢżص䣬Ǳɱ...!!!Ҫε...";
		next;
		mes "[˾ ನ]";
		mes "ܣ֮ǱС.. ǲǰ?ǲǣ˹˾";
		next;
		mes "[˾ ˹˾]";
		mes ".....................һ";
		next;
		mes "[˾ ನ]";
		mes ".. 治֪νܴ£ø";
		next;
		mes "[˾ ˹˾]";
		mes "˵̿нǱ𶾵ķǵԲиನ񸸣Σ";
		mes "֪ķΧóʹö˻Ǵ̿Ī";
		next;
		mes "[˾ ನ]";
		mes "...û"+ strcharinfo(0) +"ȣʱ£ʵذѲȷ鱨ȥ»Ĳ";
		next;
		mes "[˾ ನ]";
		mes "йشұͱ˹˾һ·ˣǳл";
		next;
		mes "[˾ ನ]";
		mes "ת汦Сڿ԰ĵİж?";
		mes "˺ԶȺǿСıʹȥ";
		next;
		mes "[˾ ನ]";
		mes ""+ strcharinfo(0) +"δһıԸͬ";
		if (prt_curse == 43) set prt_curse,44;
		else set prt_curse,54;
		getexp 1600000,0;
		close;
	}
	else if (prt_curse > 43 && prt_curse < 50 && !aru_monas) {
		mes "[˾ ನ]";
		mes "СתϢ?";
		mes "ͽҰɣһͱ˹˾˼Ǻ";
		mes "ڼ";
		close;
	}
	else if (prt_curse == 60) {
		mes "[˾ ನ]";
		mes "þò"+ strcharinfo(0) +"мС? ? Ҫ?";
		next;
		mes "^3355FF-˵й飬ֻ˵ϡҩߵõ鱨^000000";
		next;
		mes "[˾ ˹˾]";
		mes "ߵĻ.. ָ^0000FFͽ^000000ĵطǸɴĵطЩҲ黬ԲԵģನ";
		next;
		mes "[˾ ನ]";
		mes "֪ߵѾóһʱûнӴˣʵжֿԣһ";
		next;
		select("ߵָ?");
		mes "[˾ ನ]";
		mes ".. ʵҶߵ֪ޣȻмλʥְԱߵȥǶԼϣԴʧˣֻҪ¶б¬--׵¼Ųٷ";
		next;
		mes "[˾ ನ]";
		mes "м¼ܱƽ˾? ԸĶͬ";
		set prt_curse,61;
		close;
	}
	else {
		if (prt_curse == 36 || prt_curse == 45 || prt_curse == 56 || prt_curse == 61) {
		// 񲿷ֿʼ
			if (aru_monas == 1) {
				mes "[˾ ನ]";
				mes "ޣҵܾ";
				mes "źؿЩҪæ";
				mes "㿴ǰҪ׳";
				mes "Ӧòʲô󰭰";
				next;
				mes "[˾ ನ]";
				mes "¡ʹոո˴ʥһ񣬲ǸͷҪĻӦûʲô취";
				next;
				mes "[˾ ನ]";
				mes "Ϣ˵λʹڵĸ߲ʿͻȻʧˣԻʹͰǰæѰңҴٸ˭";
				next;
				mes "[˾ ನ]";
				mes "ȵ'^6B8E23ħ^000000'ɣ";
				mes "ϸڻǱ߶ĳ";
				mes "鱨Ա'^6B8E23ϣ˾^000000'Ḻ";
				set aru_monas,2;
				close;
			}
			else if (aru_monas == 2 || aru_monas == 3) {
				mes "[˾ ನ]";
				mes "ȵ'^6B8E23ħ^000000'ɣ";
				mes "ϸڻǱ߶ĳ";
				mes "鱨Ա'^6B8E23ϣ˾^000000'Ḻ";
				close;
			}
			else if (aru_monas == 4) {
				mes "[˾ ನ]";
				mes "ޣȥ ϣ˾?";
				mes "Ľ?";
				mes "ϣǱʧٵƽ...";
				next;
				select("'ϣ˾'ṩ鱨");
				mes "[˾ ನ]";
				mes "֪ˣҲ˵¬ɱȽ̹ܻ˲ľٶӦòôȡжİɣȵȣһ..";
				set aru_monas,5;
				close;
			}
			else if (aru_monas == 5) {
				if (rand(1,10) == 10) {
					mes "[˾ ನ]";
					mes "ҿǹпеķˣΪõİ취׷Ļ...";
					mes "ԸĻ...";
					next;
					mes "[˾ ನ]";
					mes "ǲϣϵķ";
					mes "ȻҲǿ˻ˮ..";
					mes "һоͿľ";
					next;
					if (select("ҿһ:û⣬!") == 1) {
						mes "[˾ ನ]";
						mes "ҳֿϣܰǣ";
						mes "ҵİΣϢϢ!";
						close;
					}
					mes "[˾ ನ]";
					mes "л㣬˵ҪҸ!";
					mes "˹³µͿԴ˷ɿͦȥ¬ɱȽ̹";
					next;
					mes "[˾ ನ]";
					mes "ܵ^9370DB^000000ȥĻ";
					mes "Ӧܻò鱨";
					mes "һ÷ѣ°";
					set zeny,zeny+5000;
					set aru_monas,6;
					close;
				}
				else {
					mes "[˾ ನ]";
					mes "... ô...";
					mes "ʲôõϵİ..";
					mes "Ǽְ!";
					close;
				}
			}
			else if (aru_monas == 6) {
				// Anyone else see the irony in this?
				mes "[˾ ನ]";
				mes "ȥպӦûΪĻͬŰ";
				mes "ǵΪ׼鶼ڽй";
				close;
			}
			else if (aru_monas > 6 && aru_monas < 24) {
				mes "[˾ ನ]";
				mes "лһ.";
				mes "ǵĴһָʾ.";
				mes "μǣҪκ˹ǵ.";
				close;
			}
			else if (aru_monas == 24) {
				mes "[˾ ನ]";
				mes "лҪϢ.";
				mes "İ£ڿԽһЩ.";
				mes "ϵˣû뵽ַʽ.";
				next;
				mes "[˾ ನ]";
				mes "ҿ»ʼҷԺѾΪǵ˽ܶ.";
				mes "ƲҪһ񻯶.";
				mes " ^666666**^000000 ǻῴ...";
				set aru_monas,25;
				close;
			}
			else if (aru_monas >= 25) {
				mes "[˾ ನ]";
				mes "лҪϢ.";
				mes "İ£ڿԽһЩ.";
				mes "ϵˣû뵽ַʽ.";
				next;
				mes "[˾ ನ]";
				mes "ҿ»ʼҷԺѾΪǵ˽ܶ.";
				mes "ƲҪһ񻯶.";
				mes " ^666666**^000000 ǻῴ...";
				close;
			}
			// 񲿷ֽ
		}
	}
	mes "[˾ ನ]";
	mes "еæԺҰ?";
	close;
}

prt_church,184,110,3	script	˾ ˹˾	60,{
	if (prt_curse == 54) {
		mes "[˾ ˹˾]";
		mes "뻹Ǵ̿ɣҴȥǵж";
		next;
		mes "[˾ ˹˾]";
		mes ";ɣһͰನ˴ɵ";
		close;
	}
	else if (prt_curse == 35) {
		mes "[˾ ˹˾]";
		mes "ҵһμನʧӣ";
		mes "Ҳǲ";
		next;
		mes "[˾ ˹˾]";
		mes "Ϊõ߸ˣһֱԵʱ¼ĻܴθУûκ˱¶ӣΨԱõп";
		next;
		mes "[˾ ˹˾]";
		mes "Դú񸸶Ըֿȼһ˿ϣ˵ùɧҲҪжԼ.. ֪ʲô˼?";
		next;
		mes "[˾ ˹˾]";
		mes "ʵֻͱ";
		next;
		mes "[˾ ˹˾]";
		mes "ȻȺҲԹ񣬿Ű¶Լ̣ҲΪһԭһлף";
		next;
		mes "[˾ ˹˾]";
		mes "ǧȡõҪ鱨һеİನȥپҪҪƽң";
		mes "ٹನ񸸵˼Ҳõ";
		next;
		mes "[˾ ˹˾]";
		mes "ڼ";
		set prt_curse,36;
		getexp 1600000,0;
		close;
	}
	else if (prt_curse == 36) {
		mes "[˾ ˹˾]";
		mes "ƽǻһֱѭģܹʹҵ֮鰲ҲڽӦݵĽɫನ񸸵Ҳˣҵø";
		close;
	}
	else {
		mes "[˾ ˹˾]";
		mes "ڼ˾뱣ྲ";
		close;
	}
}

prt_church,177,113,3	script	#gototomb	111,{
	if (prt_curse > 17 && prt_curse < 23 || prt_curse > 31 && prt_curse < 35 || prt_curse == 41 || prt_curse == 42 || prt_curse == 44 || prt_curse == 51 || prt_curse == 52) {
		warp "prt_church",21,91;
	}
	end;
}

prt_church,23,89,3	script	˾ ˹˾#tomb	60,{
	mes "[˾ ˹˾]";
	mes "㲻ȥ?";
	next;
	if (select("Ҫ:һ") == 1) {
		mes "[˾ ˹˾]";
		mes "߰";
		next;
		warp "prt_church",178,111;
		end;
	}
	mes "[˾ ˹˾]";
	mes "ȥܵĵһ°";
	close;
}

prt_church,16,114,4	script	˾ ನ#tomb	60,{
	if (prt_curse == 18) {
		mes "[˾ ನ]";
		mes "ǴĹ߿ʼ쿴˵";
		set prt_curse,19;
		close;
	}
	else if (prt_curse == 19) {
		mes "[˾ ನ]";
		mes "쿴˵Ļ";
		mes "ߣȹ۲һλ";
		close;
	}
	else if (prt_curse == 20) {
		mes "["+strcharinfo(0)+"]";
		mes "Ңżصĺۼ?";
		next;
		mes "[˾ ನ]";
		mes "ûǹ۲мλõڶλӿ?";
		close;
	}
	else if (prt_curse == 21) {
		mes "[˾ ನ]";
		mes "ֻʣһ..";
		close;
	}
	else if (prt_curse == 22) {
		mes "[˾ ನ]";
		mes "ȵȥ˵..";
		mes "˹˾ȥ";
		close;
	}
	else if (prt_curse == 32 || prt_curse == 41 || prt_curse == 51) {
		mes "[˾ ನ]";
		mes "^0000FFɫħʯ^000000 ^0000FFɫҩˮ^000000׼?׼˵ĻϿȴ ^0000FF3λӵ^000000ʼ";
		close;
	}
	else if (prt_curse == 33 || prt_curse == 42 || prt_curse == 52) {
		mes "[˾ ನ]";
		mes "Ŷ! ô!!!!·... ·ʧ!!!!.. ǣɱ!!";
		next;
		mes "[˾ ನ]";
		mes "ƽ...ȣȥ";
		if (prt_curse == 33) set prt_curse,34;
		else if (prt_curse == 42) set prt_curse,43;
		else set prt_curse,53;
		close;
	}
	else if (prt_curse == 43 || prt_curse == 53) {
		mes "[˾ ನ]";
		mes "ȥ˵!";
		close;
	}
	end;
}

prt_church,19,111,5	script	#prince1	887,{
	if (prt_curse == 19) {
		mes "[˾ ನ]";
		mes "Ǳµĵһλӣͱĵһλһ";
		next;
		mes "^3355FF- ŸŴβ˴Ƴɫ΢һںƤˮ·ɼ -^000000";
		set prt_curse,20;
		close;
	}
	else if (prt_curse == 33 || prt_curse > 41 && prt_curse < 51 || prt_curse == 52) {
		mes "-װʣɫħʯɫҩˮƿһݣȴûκηӦ -";
		close;
	}
	else {
		mes "- Ǹׯµ壬˵壬оƺҪѰܸɾ-";
		close;
	}
}

prt_church,21,111,5	script	#prince2	887,{
	if (prt_curse == 20) {
		mes "[˾ ನ]";
		mes "Ǳµĵڶλ";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "ڶλ?";
		mes "һԭ3壬ô? Ĳǵһλ͵ڶλӲ? ѵ?";
		next;
		mes "[˾ ನ]";
		mes "Ҳ˵ĺһֱֻеһλ";
		next;
		mes "[˾ ನ]";
		mes "ǣ֪ιʣԴӵڶλӹܵŵ˹̹ 3 æ¾ħʽ";
		next;
		mes "[˾ ನ]";
		mes "ֻǣεħʽ֮󣬽ҵλӵ";
		Emotion e_omg,1;
		next;
		mes "[˾ ನ]";
		mes "ԭ򣬸߲֮Ű¶¬--׵¼ֲϢѸٵӿ";
		next;
		mes "^3355FF-۲˵ڶλӵ壬ŸŴβ˴Ƴɫ΢һں";
		mes "İƤ֮·..........Եúģ-^000000";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "ŶŶ? 뿴!";
		next;
		mes "[˾ ನ]";
		mes "ʲô...ʲô··ȵһλӵĸǳ!";
		next;
		mes "[˾ ನ]";
		mes "յԵ? ȷʲôı!ϿȥȷϵλӰ";
		set prt_curse,21;
		close;
	}
	else if (prt_curse == 33 || prt_curse > 41 && prt_curse < 51 || prt_curse == 52) {
		specialeffect EF_POISONATTACK;
		specialeffect EF_POISONHIT;
		specialeffect EF_BUBBLE;
		mes "-װʣɫħʯɫҩˮƿһݣԭƤϵ·ֻ΢ʵ -";
		close;
	}
	else {
		mes "- Ǹׯµ壬˵壬оƺҪѰܸɾ-";
		close;
	}
}

prt_church,24,111,5	script	#prince3	887,{
	if (prt_curse == 21) {
		mes "^3355FF-Ͱನ񸸸Ͻȥȷϵλӵ-^000000";
		next;
		mes "-ȻȵڶλŨЩǳɫ·ֱ-";
		next;
		mes "[˾ ನ]";
		mes "...Щ";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "Ǻְ!ȻΪǱϸ!!!";
		next;
		mes "[˾ ನ]";
		mes "... ųԣһⲻģǱʲô?";
		next;
		while(1) {
			if (select("Ǳ!!:Ǳ!!") == 1) {
				mes "[˾ ನ]";
				mes "... Ӧû˿ڲŶԣ";
				mes "еĻͻɧ";
				mes "ԭɵ?";
				next;
			}
			else  break;
		}
		mes "[˾ ನ]";
		mes "!!!!!!... !ͨĶжԽʱԽ͸״?";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "... Ӧʹһ;ȡõģֶ";
		next;
		mes "[˾ ನ]";
		mes "..Īкⶾֺܻʹö?";
		next;
		mes "[˾ ˹˾]";
		mes "^FF0000̿^000000ǻöаɱ˵ʹõֻҪһ˵һͻ";
		next;
		mes "[˾ ನ]";
		mes "..............";
		next;
		mes "[˾ ನ]";
		mes "............................................ȳȥ";
		set prt_curse,22;
		close;
	}
	else if (prt_curse == 22) {
		mes "[˾ ನ]";
		mes "ȵټ̸";
		close;
	}
	else if (prt_curse == 32 || prt_curse == 41 || prt_curse == 51) {
		if (countitem(506) > 0 && countitem(715) > 0) {
			mes "-ɫҩˮƿĸӺһɫħʯݵƿڵλӵƤ-";
			next;
			specialeffect EF_POISONATTACK;
			specialeffect EF_POISONHIT;
			specialeffect EF_BUBBLE;
			mes "^3355FF(ơ˻-)^000000";
			next;
			mes "^3355FF-ԭԵĲȫƣģʧ-^000000";
			delitem 506,1; //ɫҩˮ
			delitem 715,1; //ɫħʯ
			if (prt_curse == 32) set prt_curse,33;
			else if (prt_curse == 41) set prt_curse,42;
			else set prt_curse,52;
			close;
		}
		mes "-Ϊû׼Ĳϣ޷-";
		close;
	}
	else if (prt_curse == 33 || prt_curse == 42 || prt_curse == 52) {
		mes "-Ե·Ѷʧ-";
		close;
	}
	else {
		mes "- Ǹׯµ壬˵壬оƺҪѰܸɾ-";
		close;
	}
}

moc_fild16,201,295,5	script	̿͹ Ա#poiso	884,{
	if (prt_curse == 23) {
		mes "[̿͹ Ա]";
		mes "?";
		next;
		if (select("ѯʶ:") == 1) {
			mes "-ӽڶ˵-";
			next;
			mes "["+strcharinfo(0)+"]";
			mes "Ҫרҵİæ";
			mes "¡ʥõίж";
			next;
			mes "[̿͹ Ա]";
			mes "...";
			mes "......";
			mes ".........";
			next;
			mes "[̿͹ Ա";
			mes "ֻһ";
			next;
			mes "[̿͹ Ա]";
			mes "޿ 7ʱ򸽽д̿ǵ ^FF0000ܾƵ^000000ȥǱߵ ^3131FFԼ^000000㿴Ű";
			set prt_curse,24;
			close;
		}
		mes "[̿͹ Ա]";
		mes "û˵ĵطɳĮ糾һʧ?";
		close;
	}
	else {
		mes "[̿͹ Ա]";
		mes "ɳĮ糾Ҳǿң";
		mes "ɳĮ糾Ǵ̿͵ľϲ?";
		close;
	}
}

que_job01,10,16,5	script	Լ#poison	885,{
	if (prt_curse == 24) {
		mes "[Լ]";
		mes "һ˺ѽĵطʲô?ҶԻʱ4ӣǾͳ˵";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "˽йöɱ˷";
		next;
		mes "[Լ]";
		mes ".. ڶڴ̿͹ģҶˣã֪ʲô?";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "˵̿ʹõĶֻҪһξ?";
		next;
		mes "[Լ]";
		mes "ûǴ̿Ͳöʹж״̬ʮִ̿ʹõĶһһͶҩʱľ޶";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "ôö·ͼ?";
		next;
		mes "[Լ]";
		mes "ȻӴ󲻱ȣֻǣ÷ܷ֮ʣԻȷʹõ˼";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "ڴ֮̿лʹֶмλ?";
		next;
		mes "[Լ]";
		mes "㣬ʲôɻ?׷׵ʰ?";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "ҷмλ߲ס·ȻѾֻǣ֪ǱɱĻǱʽɱ";
		next;
		mes "[Լ]";
		mes "ţΪǱɱĿԺܸߣֻ.. öֳض·̻ʹ÷һܸ";
		next;
		mes "[Լ]";
		mes "Ҷ޷֤ܷȷʹ";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "ȷ?";
		next;
		mes "[Լ]";
		mes "ڶҿױȵģǼרԹΪ";
		next;
		mes "[Լ]";
		mes "˵ֶƲ̻ʹ÷̸Ѽ϶ѣټ¬--׵¼ʱ";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "Ϊʲô?";
		next;
		mes "[Լ]";
		mes "¬--׵¼ΪϵĶ֮ʣ˵ֶпܴڣ¬--׵¼ǲʹ";
		next;
		mes "[Լ]";
		mes "ʱ쵽ˣǾ̸ ٴǿ˵ĶҲģôȥ";
		next;
		mes "[Լ]";
		mes "һ! һַȷǲǱ¶ģɫħʯصɫҩˮƿ װɫħʯĻһĳֵķӦ";
		next;
		mes "[Լ]";
		mes "ⷽжܾõЧģøϿȥ鿴ô˵ˣȥ";
		set prt_curse,25;
		close;
	}

OnInit:
	disablenpc "Լ#poison";
	end;

OnEnable:
	enablenpc "Լ#poison";
	end;
}

morocc,45,103,0	script	#prtcurse	-1,2,2,{
OnTouch:
	if (prt_curse == 25) {
		mes "["+strcharinfo(0)+"]";
		mes "ͷǸӣ.....һ˼?";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "¬--׵¼ 7ˣбѡΪһǿױָ񣬱Ңżص󣬵һλǽȥ";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "ε˹̹ 3󣬾˵ڶλλҲ̹";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "⾭飬λܿǱɱ";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "̿͹᷽Ƕ¬--׵¼ȡõ";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "ô˵̿óһֱάӳŵǣԼίУҪڵĻҲʮΪ";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "ΪͲǱ𶾵ķ";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "...ôҴҪʲô?";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "ΪѧߵСҲһʱ..¡õİನҲеĵȴҵϢ..";
		next;
		if (select("ȥ:ȥҼ˾ ನ") == 1) {
			mes "["+strcharinfo(0)+"]";
			mes "ðɣȽϽȥӦûϵ";
			mes "ȥС?";
			set prt_curse,30;
			close;
		}
		mes "["+strcharinfo(0)+"]";
		mes "ȽҪȽϺð?";
		mes "ϿȥҰನȷǲı¶Ϊ";
		mes "ȥ¡!";
		set prt_curse,50;
		close;
	}
}

prt_in,162,99,4	script	ͼ ˾#curse	67,{
	if (checkweight(1201,1) == 0) {
		mes "^3355FF!";
		close;
	}
	if (prt_curse == 3) {
		if (countitem(7431) < 1) {
			mes "[ͼ ˾]";
			mes "п֮Ҫ鱾ԭλ";
			mes "ֲ㰡";
			next;
			if (select("ʧ鼮:Ի") == 1) {
				mes "[ͼ ˾]";
				mes "?鱾㶪˰?";
				mes "дһ£Ȼ⳥";
				mes "ܹ700!";
				next;
				if (zeny > 699) {
					mes "[ͼ ˾]";
					mes "źߣȥɣǱõĸ";
					mes "СĽģǧٸ㶪!";
					set zeny,zeny-700;
					getitem 7431,1; //ѵ
					close;
				}
				mes "[ͼ ˾]";
				mes "..";
				mes "鱾ʧĻҪռ⳥ģ";
				mes "һ700";
				close;
			}
			mes "[ͼ ˾]";
			mes "ͼǵҪְ!";
			mes "ллĺ!";
			close;
		}
	}
	mes "[ͼ ˾]";
	mes "ҪҶһ鼮ɲรʧ¼Ҳ~~";
	close;
}
