//====================================================================
//Ragnarok Online EP4.0(J) Marriage System      V1.0
//====================================================================
prt_church.gat,105,100,4	script	 Ա	71,{
	mes "[ֵ]";
	mes "νŮ";
	mes "Ǹ/Ҹеϣ/ϡ";
	mes "Ҳ";
	mes "Ϊ";
	mes "ӣ";
	next;
	menu "Ϊʲô涨",-,"γΪ",L2,"Ϊ",L3,"Զ޵У",L4;
		mes "[ֵ]";
		mes "Ϊƶʱ涨:";
		next;
		mes "[ֵ]";
		mes "ҪΪӵ";
		mes "ûнתְְҵԺҲתְ";
		next;
		mes "[ֵ]";
		mes "һΪӣͲָܻԭò";
		mes "Ҳ޷ӵĹϵ";
		next;
		mes "";
		next;
		mes "";
		next;
		mes "ʹһַ";
		close;
	L2:
		mes "[ֵ]";
		mes "ҪΪӵĽ";
		mes "£ɶȻ˵";
		next;
		mes "[ֵ]";
		mes "븸׵֣";
		mes "ĸ׵֣ȷ";
		mes "ȷ޷ɹ";
		next;
		mes "[ֵ]";
		mes "ΪһЩҵַĹϵ";
		mes "Ϊ˱";
		mes "֮ǰ";
		mes "ԺͰݸĸ˽ĶԻ";
		next;
		mes "[ֵ]";
		mes "˽ĶԻԺ";
		mes "Իߵİť";
		mes "гղ˽Ķ";
		mes "ʱѡղŶԻ";
		next;
		mes "[ֵ]";
		mes "ѡҪƵԺ";
		mes " Ctrl+C ";
		mes "ڽʱ";
		mes "Ϳ ShiftInsert";
		mes "ѸƵճ";
		next;
		mes "[ֵ]";
		mes "1)ĺӱѻ";
		mes "2)ĺӺ͸ĸ˽";
		mes "ѡöԷԺ";
		mes "3) Ctrl + C ";
		mes "Է";
		next;
		mes "[ֵ]";
		mes "ؼǵ̣";
		mes "ʧ";
		next;
		mes "[ֵ]";
		mes "˵";
		mes "ɡ";
		next;
		mes "[ֵ]";
		mes "CtrlC ƶԷ";
		mes "ShiftInsert ճԷֵ";
		mes "Կɡ";
		next;
		input @test$;
		mes "[ֵ]";
		mes "ô";
		next;
		mes "[ֵ]";
		mes "ҾͲἰ";
		mes "ʲôʿԵ¡";
		mes "õĻԱѯʡ";
		close;
	L3:
		mes "[ֵ]";
		mes "븸׵";
		next;
		input @PapaName$;
		mes "[ֵ]";
		mes "ĸ׵";
		next;
		input @MamaName$;
		mes "[ֵ]";
		mes "ȷ";
		next;
		menu "ǵ",L3_1,"һ",-;
			mes "[ֵ]";
			mes "Ҹѽ~";
			close;
		L3_1:
			if (adoption(@PapaName$,@MamaName$)==0) goto LError;
			mes "[ֵ]";
			mes "ϲɹ";
			mes "һԶҸŶ~";
			close;
	L4:
		mes "...ʱһ˻¶ġ";
		close;
LError:
	mes "[ֵ]";
	mes "ʧܡ";
	close;
}
