//====================================
// [] The PlutoEA Project []
// http://opensvn.csie.org/PlutoEA
// ---------------------------------
// - B } - 
//====================================
// G1.3 [¦B]
//====================================

prt_church,97,100,4	script	B AȤH	71,{
	cutin "wedding_marry01",2;
	if (Upper == 2) {
		mes "[B ּ]";
		mes "zn~";
		mes "ڬOBAȤHAڥs B";
		mes "ּ֡A";
		mes "گA?";
		next;
		if (select("ڷQB:ΰաASY") == 1) {
			mes "[B ּ]";
			mes "ܩpA";
			mes "{bQiHhA";
			mes "O൲BA";
			mes "M˭ּּ̧֧֪LlA";
			mes "Oܦn?";
			goto L_End;
		}
		mes "[B ּ]";
		mes "nA±zA";
		mes "HWOBAȤHAڥs 'B";
		mes "ּ' F";
		goto L_End;
	}
	mes "[B ּ]";
	mes "ҿ׵BOA";
	mes "ݵ۩֡AҦH̪ƱA";
	mes "аݧAO_A";
	mes "QnBH?";
	next;
	switch(select("лB§Ʊ:аݵB§L{OˤlO?:ڷQӽеB§:ڭ̬OLĪ樭x!")) {
	case 1:
		mes "[B ּ]";
		mes "[eOѱХD";
		mes "tdBAѩ󦣸L";
		mes "{AShť걡FA";
		mes "L|Ѹtϸ` 櫰";
		mes "CϦѤH";
		mes "ӥD޵B§";
		next;
		mes "[B ּ]";
		mes "]ХD͡Aܦh樭QڡA";
		mes "XܦhQYA";
		mes "ҥH] 'RХD 'ʺ١A";
		mes "...";
		next;
		mes "[B ּ]";
		mes "MCѦLajơA";
		mes "FYNsXopǤfA";
		mes "SaӨFwԱаA";
		mes "ݩҦHL۩֪ͬA";
		mes "oOХDw";
		next;
		mes "[B ּ]";
		mes "DBnVA";
		mes "GXA";
		mes "unL@BHA";
		mes "A]_쪬ABӤHA";
		mes "D}oH@A";
		mes "_hNû|b@_";
		next;
		mes "[B ּ]";
		mes "t~kʹkʡA";
		mes "kʥukʵBA";
		mes "t~]iA";
		mes "ǤH|XAMPʩΪ̩M]BA";
		mes "o˪Di... O|Qߪ";
		next;
		mes "[B ּ]";
		mes "pwnӪHܡA";
		mes "յۨDBݬݧaA";
		mes "@ݥө֪ҦʤHA";
		mes "֬!!";
		break;

	case 2:
		mes "[B ּ]";
		mes "T{ssQ̡A";
		mes "VڥӽжܡA";
		mes "M쳣OASLBH~?";
		mes "pӽЪܡAuШչ蠟A";
		mes "ШХḐa";
		next;
		mes "[B ּ]";
		mes "ХD̫A";
		mes "kܡA";
		mes "MAnBkʪWrA";
		mes "WrAnTA";
		mes "B§~";
		next;
		mes "[B ּ]";
		mes "ܮɡA";
		mes "򱵵ۤkХDܡA";
		mes "ХD|ݩpA";
		mes "pnBHWrA";
		mes "۹諸]@˪^kʪWr";
		next;
		mes "[B ּ]";
		mes "pBHWrTܡA";
		mes "|洫B٫A";
		mes "q}lA";
		mes "ӤH|ûb@_Aa?";
		mes "wQeڵ]@wA";
		mes "]nL";
		next;
		mes "[B ּ]";
		mes "QnBHA";
		mes "ӦhEb@_ɡA";
		mes "ФjauǡAǪӸХDܡA";
		mes "ХDiPɪA";
		mes "DnXB§";
		next;
		mes "[B ּ]";
		mes "̫@IAWrA";
		mes "^n֡A";
		mes "^ff0000sܡAb 3A";
		mes "ҦL{a^000000 nMA";
		mes "B§|A";
		mes "A]൲BF";
		next;
		mes "[B ּ]";
		mes "gBHWrA²檺kOA";
		mes "H@iȱA";
		mes "b̩ܵWrA";
		mes "IbYХܡA";
		mes "Yi";
		next;
		mes "[B ּ]";
		mes "N|ܰeȱ誺WrA";
		mes " ctrl䪺PɡA";
		mes "A CAWr|QOA";
		mes "HnJWrɡA";
		mes " shift䪺PɡA";
		mes "A insert AWrNܧ֪A";
		mes "ܤKgbWF";
		next;
		mes "[B ּ]";
		mes "N@aA";
		mes "QnBHWrA";
		mes "̧iDA覡g@MA";
		mes " ctrl䪺PɡA";
		mes "A COO... ^OA";
		mes " shift䪺PɡA";
		mes "A insert ";
		next;
		input .@partner$;
		mes "[B ּ]";
		mes "ܦnAgA";
		mes "YbA߸̤wMwnFܡA@wnӳo̥ӽ";
		break;

	case 3:
		cutin "wedding_marry02",2;
		mes "[B ּ]";
		mes "QnBܭnӽоA";
		mes "kʭnX ^3377FF1,300,000 M";
		mes "PA1^000000Akʭn^3377FF1,200,000";
		mes "MB§A 1^000000";
		mes "MgӽЮѧYiA";
		mes "pkk賣ӽЪܡA";
		mes "NiHBF";
		next;
		mes "[B ּ]";
		mes "t~]nǳƵB٫A";
		mes "kk賣ݭn ^3377FFpۧ٫ 1^000000";
		mes "ӽЪɭԡA";
		mes "@_ڴNnF";
		next;
		mes "[B ּ]";
		mes "쳣ӽЦnFA";
		mes "NiHW|浲B§FA";
		mes "аݧA{bnӽеB?";
		next;
		if (select("O:O") == 1) {
			if (getpartnerid()) {
				cutin "wedding_marry02",2;
				mes "[B ּ]";
				mes "wgLBHA";
				mes "QnַdB~...";
				mes "|QڡAOO?";
				mes "n@luԦb@_wA";
				mes "No˹HܡA";
				mes "ADoNNq?";
				next;
				mes "[B ּ]";
				mes "ڲqAӦťLA";
				mes "unLBAA]_쪬A";
				mes "YϹ覺F]O@...";
				mes "٦AHaߡA˷PHA";
				mes "@w|]G";
				break;
			}
			else if (wedding_sign == 1) {
				mes "[B ּ]";
				mes "...? eAӽйLڡA";
				mes "]wgӽЦnFA";
				mes "Aݤ@UnBHA";
				mes "O_ӽЦnFOA";
				mes "p쳣ӽЦnܡA";
				mes "ШХD̡A|浲B§a";
				break;
			}
			else if (BaseLevel < 45) {
				mes "[B ּ]";
				mes "bA٨SDBeA";
				mes "Ҽ{ۤvDaA";
				mes "]\BᦳܦnӡA";
				mes "L]|HۡA";
				mes "nnɳdq";
				next;
				mes "[B ּ]";
				mes "pA{AiHO@YӤHA";
				mes "woӦaBܡA";
				mes "ɭԦAӧڧaA";
				mes "ڷ|A";
				goto L_End;
			}
			else if (countitem(2613) < 1) {
				mes "[B ּ]";
				mes "AnѰOaA";
				mes "B٫ɭnΪpۧ٫FA";
				mes "OObOaFO?";
				mes "JӪ䤧AAӧڧa";
				goto L_End;
			}
			else if (sex) {
				if (zeny < 1300000) {
					mes "[B ּ]";
					mes " AeL...";
					mes "1,300,000ڡA";
					mes "OObOaFO?";
					mes "bˬd@UAfUAAӧڧa";
					goto L_End;
				}
				else if (countitem(7170) < 1) {
					mes "[B ּ]";
					mes "AOOPAA";
					mes "bOaFO?";
					mes "AnnM@UAAӧaA";
					mes "]bB§Wn...";
					mes "p{bbWܡANڧa";
					goto L_End;
				}
			}
			else if (sex == 0) {
				if (zeny < 1200000) {
					mes "[B ּ]";
					mes " AeL...";
					mes "1,200,000 ڡA";
					mes "OObOaFO?";
					mes "bˬd@UpfUAAӧڧa";
					goto L_End;
				}
				else if (countitem(2338) < 1) {
					mes "[B ּ]";
					mes "AOO⵲B§AA";
					mes "bOaFO?";
					mes "AnnM@UAAӧaA";
					mes "]bB§Wn...";
					mes "p{bbWܡANڧa";
					goto L_End;
				}
			}
			mes "[B ּ]";
			mes "bo̮ߧAB!";
			mes "DHO֡Aӫܩְ";
			next;
			mes "[B ּ]";
			mes "N}lӽЮѰաA";
			mes "bo̼g@UۤvWra";
			next;
			while(1) {
				input .@name$;
				if (.@name$ != strcharinfo(0)) {
					mes "[B ּ]";
					mes "! sWr|gTڡA";
					mes "ٷQnB?";
					mes "hǤ@UAgWrkAӧaA";
					mes "g֤@I|nڡA";
					mes "ЧAAg@";
					next;
				}
				else 
					break;
			}
			mes "[B ּ]";
			mes "OAT쵲BӽЮѤFA";
			mes "HNOwoؤ覡A";
			mes "ХDXnBHWrA";
			mes "nBHWr]nTDڡA";
			mes "AѶ?";
			mes "nǳƤAha";
			next;
			mes "[B ּ]";
			mes ""+strcharinfo(0)+"  / pj.....";
			mes "Aݤ@UnBHA";
			mes "O_ӽЦnFOA";
			mes "p쳣ӽЦnܡA";
			mes "֨ХD̡A|浲B§a";
			mes "̫...";
			mes "nְڡA@ѤUHצ~";
			Emotion e_lv;
			if (sex) { set zeny,zeny-1300000; delitem 7170,1; }
			else { set zeny,zeny-1200000; delitem 2338,1; }
			delitem 2613,1; //Diamond_Ring
			set wedding_sign,1;
			goto L_End;
		}
		mes "[B ּ]";
		mes "A@ө֪@...!";
		break;

	case 4:
		cutin "wedding_marry02",2;
		donpcevent "樭 x#w::OnEnable";
		donpcevent "樭 x#N::OnEnable";
		donpcevent "樭 x#ùJ::OnEnable";
		donpcevent "樭 x#::OnEnable";
		donpcevent "樭 x#Ѭz::OnEnable";
		donpcevent "樭 x#X[::OnEnable";
		Emotion e_omg;
		mes "[樭 x]";
		mes "nۤvA~|XnF!";
		mes "b}޸̲նOת欰!";
		mes "ڥiHIX߫ NPC!";
		mes "qXͨ¾AOۤvm!";
		mes "Ltϸ`ɭԡA~ޯD!";
		mes "...ڭ̬OLĪ樭x!";
		donpcevent "樭 x#w::OnEmote";
		donpcevent "樭 x#N::OnEmote";
		donpcevent "樭 x#ùJ::OnEmote";
		donpcevent "樭 x#::OnEmote";
		donpcevent "樭 x#Ѭz::OnEmote";
		donpcevent "樭 x#X[::OnEmote";
		close2;
		cutin "",255;
		Emotion e_swt;
		donpcevent "樭 x#w::OnInit";
		donpcevent "樭 x#N::OnInit";
		donpcevent "樭 x#ùJ::OnInit";
		donpcevent "樭 x#::OnInit";
		donpcevent "樭 x#Ѭz::OnInit";
		donpcevent "樭 x#X[::OnInit";
		end;
	}

L_End:
	close2;
	cutin "",255;
	end;
}

prt_church,97,102,0	script	樭 x#w	105,{
	mes "[樭 x]";
	mes "nۤvA~|XnF!";
	close;

OnInit:
	hideonnpc "樭 x#w";
	end;

OnEnable:
	hideoffnpc "樭 x#w";
	Emotion e_go;
	end;

OnEmote:
	emotion e_rock;
	end;
}

prt_church,98,102,0	script	樭 x#N	705,{
	mes "[樭 x]";
	mes "b}޸̲նOת欰!";
	close;

OnInit:
	hideonnpc "樭 x#N";
	end;

OnEnable:
	hideoffnpc "樭 x#N";
	Emotion e_go;
	end;

OnEmote:
	emotion e_rock;
	end;
}

prt_church,99,102,0	script	樭 x#ùJ	707,{
	mes "[樭 x]";
	mes "ڥiHIX߫ NPC!";
	close;

OnInit:
	hideonnpc "樭 x#ùJ";
	end;

OnEnable:
	hideoffnpc "樭 x#ùJ";
	Emotion e_go;
	end;

OnEmote:
	emotion e_rock;
	end;
}

prt_church,100,102,0	script	樭 x#	708,{
	mes "[樭 x]";
	mes "qXͨ¾AOۤvm!";
	close;

OnInit:
	hideonnpc "樭 x#";
	end;

OnEnable:
	hideoffnpc "樭 x#";
	Emotion e_go;
	end;

OnEmote:
	emotion e_rock;
	end;
}

prt_church,101,102,0	script	樭 x#Ѭz	767,{
	mes "[樭 x]";
	mes "Ltϸ`ɭԡA~ޯD!";
	close;

OnInit:
	hideonnpc "樭 x#Ѭz";
	end;

OnEnable:
	hideoffnpc "樭 x#Ѭz";
	Emotion e_go;
	end;

OnEmote:
	emotion e_rock;
	end;
}

prt_church,102,102,0	script	樭 x#X[	780,{
	mes "[樭 x]";
	mes "...ڭ̬OLĪ樭x!";
	close;

OnInit:
	hideonnpc "樭 x#X[";
	end;

OnEnable:
	hideoffnpc "樭 x#X[";
	Emotion e_go;
	end;

OnEmote:
	emotion e_rock;
	end;
}

prt_church,100,128,4	script	ХD#w	60,{
	cutin "wedding_bomars01",2;
	if (Upper == 2) {
		mes "[_ֵ]";
		mes "٤OAB~֭...";
		close2;
		cutin "",255;
		end;
	}

	if (!getpartnerid()) {
		if (!$wedding) {
			if (wedding_sign == 1) {
				getpartymember(getcharid(1));
				set .@partymembercount,$@partymembercount;
				if (.@partymembercount == 2) {
					if (sex) {
						set $wedding,1;
						initnpctimer;
						mes "[_ֵ]";
						mes "ݵۥө֪~CHڡA";
						mes "ХûOoo@A";
						mes "ûbĄRnƱA";
						mes "ثeҳ񪺮ɶA";
						mes "Ʊûsb";
						next;
						mapannounce "prt_church","ХD: Os " + strcharinfo(0) + "gDB...",bc_map;
						mes "[_ֵ]";
						mes "oӥ@ɮ@ѬA";
						mes "ûMAb@_A";
						mes "bA᪺WAӫGAHͪQ̡A";
						mes "аݷQnMA";
						mes "nBkʦWrO?";
						next;
						input $wed_bride$;
						mes "[_ֵ]";
						mes "s " + strcharinfo(0) + "gA";
						mes "A@NΧAͩRo}A";
						mes "AsQ " + $wed_bride$ + "pj";
						mes "@lñoRo?";
						next;
						select("O");
						set $wed_groom$,strcharinfo(0);
						mes "[_ֵ]";
						mes "nAڴNݡA";
						mes "AsQNo";
						close2;
						mapannounce "prt_church","ХD: s" + strcharinfo(0) + "gAsQ" + $wed_bride$ + "pjo}F",bc_map;
						cutin "",255;
						end;
					}
					mes "[_ֵ]";
					mes "ݤ@Us";
					goto L_End;
				}
				mes "[_ֵ]";
				mes "QnBܡA";
				mes "ЭwնAAӧa";
				goto L_End;
			}
			mes "[_ֵ]";
			mes "QnBܡAӽЧa";
			goto L_End;
		}
		else if ($wedding == 1) {
			if (wedding_sign == 1) {
				getpartymember(getcharid(1));
				set .@partymembercount,$@partymembercount;
				if (.@partymembercount == 2) {
					if (sex == 0) {
						if (strcharinfo(0) == $wed_bride$) {
							mes "[_ֵ]";
							mes "ݵۥө֪~CHڡA";
							mes "ХûOoo@A";
							mes "ûbĄRnƱA";
							mes "ثeҳ񪺮ɶA";
							mes "Ʊûsb";
							next;
							mapannounce "prt_church","ХD: ڭnťťsQ "+$wed_bride$+"pj",bc_map;
							mes "[_ֵ]";
							mes "oӥ@ɮ@ѬA";
							mes "ûMpb@_Aަb̬ݨpA";
							mes "pJMIɡAQ̷|O@pA";
							mes "QnM쵲BWrO";
							mes "'"+$wed_groom$+"'g?";
							next;
							if (select("O:O") == 1) {
								cutin "wedding_bomars03",2;
								mapannounce "prt_church","ХD: s@UU@ӤHWraA",bc_map;
								mes "[_ֵ]";
								mes "OAQ...";
								mes "OOp߷RHOA";
								mes "AT{@ULWra";
								set $wedding,0;
								close2;
								stopnpctimer;
								cutin "",255;
								end;
							}
							mes "[_ֵ]";
							mes "sQ"+$wed_bride$+"pjA";
							mes "A@NΩpͩRo}A";
							mes "p|s"+$wed_groom$+"gA";
							mes "@lHLRL?";
							next;
							if (select("O:O") == 1) {
								if (isloggedin(getcharid(3,$wed_groom$))) {
									if (marriage($wed_groom$)) {
										wedding;
										sc_start SC_Wedding,3600000,1;
										getitem 2635,1; //Bride_Ring
										attachrid(getcharid(3,$wed_groom$));
										sc_start SC_Wedding,3600000,1;
										getitem 2634,1; //Bridegroom_Ring
										detachrid;
										attachrid(getcharid(3,$wed_bride$));
										cutin "wedding_bomars02",2;
										mapannounce "prt_church","ХD: {bŧGs"+$wed_groom$+"gMsQ"+$wed_bride$+"pjABiDjaA",bc_map;
										mes "[_ֵ]";
										mes "ڡAc-̼w[ꪺХDA";
										mes "_ֵWrA";
										mes "쪺Ӱ֡A";
										mes "q{b}lûb@_aA@ѤU";
										mes "Hצ";
										next;
										mes "[_ֵ]";
										mes "t~... ̫...";
										mes "n־ "+$wed_bride$+"...";
										set $wed_groom$,"";
										set $wed_bride$,"";
										set $wedding,0;
										close2;
										stopnpctimer;
										cutin "",255;
										detachrid;
										end;
									}
								}
								callsub S_Busy;
							}
							else {
								cutin "wedding_bomars03",2;
								mapannounce "prt_church","ХD: sQ"+$wed_bride$+"pjs"+$wed_groom$+"gDBڵF",bc_map;
								mes "[_ֵ]";
								mes "ݼˤl٨Sb߸̤WMwڡA";
								mes "AnnҼ{A";
								mes "AҼ{BDa";
							}
							set $wed_groom$,"";
							set $wed_bride$,"";
							set $wedding,0;
							close2;
							stopnpctimer;
							cutin "",255;
							end;
						}
						callsub S_Busy;
					}
					callsub S_Busy;
				}
				callsub S_Busy;
			}
			if (strcharinfo(0) == $wed_bride$) {
				mes "[_ֵ]";
				mes "QnBܡAӽЧa";
				goto L_End;
			}
			callsub S_Busy;
		}
		callsub S_Busy;
	}
	mes "[_ֵ]";
	mes "֧Ḁûo";

L_End:
	close2;
	cutin  "",255;
	end;

S_Busy:
	if ($wed_groom$ != "" && $wed_bride$ != "") {
		mes "[_ֵ]";
		mes "sQ "+ $wed_bride$ +"pjMA";
		mes "s "+ $wed_groom$ +"gA";
		mes "B§bi椤A";
		mes "ФjaOwR";
		goto L_End;
	}
	mes "[_ֵ]";
	mes "{bbiOHB§A";
	mes "ЧAԧAǧa";
	goto L_End;

OnInit:
	set $wedding,0;
	end;

OnStop:
	stopnpctimer;
	end;

OnReset:
	set $wed_groom$,"";
	set $wed_bride$,"";
	set $wedding,0;
	end;

OnTimer180000:
	mapannounce "prt_church","ХD: ^ӺCF... s@UU@ӤHWraA",bc_map;
	set $wed_groom$,"";
	set $wed_bride$,"";
	set $wedding,0;
	stopnpctimer;
	end;
}