//==============================================
// B}
// NXg by FPE(2006.7.3)
// Jathena++ ׾¡Ghttp://www.foxofice.net/bbs
//----------------------------------------------
/*
 *	==================================================================
 *			B}y{
 *
 *	1. ݭn"B AȤH"BnO,pGɦHbB,hynO.
 *		** nOAȤHϥνаѨ黡 **
 *
 *	2. kMk賣nO,kM.Mk
 *	3. ܳ,h@B,o٫.B§
 *	4. CӱB§Twɶ5.WXhLkB§åBLkAB
 *	
 *	
 *
 *		2004-06-18 ץ BY J
 *		(ѷ EVENT_MARRIAGE v1.1 BY Kingbo)

 $@marriage_party_id
 $@tmp_party_id
 $@marry_male
 $@marry_male_name$
 $@marry_female
 $@marry_female_name$
 $@EVENT_MARRIAGE
 EVENT_MARRIAGE_APPLY
 *	==================================================================
 */

prt_church.gat,99,124,4	script	U	108,{
	switch(EVENT_MARRIAGE_APPLY)
	{
	case 0:
		mes "[U]";
		mes "ڪĤl";
		mes "A٬Ot@HܡH";
		mes "@Aۤvt@bI";
		close;
		end;
		break;
	case 1:
		if(sex) goto L_MALE_MARRIAGE;
		goto L_FEMALE_MARRIAGE;
		break;
	case 1:
		mes "[U]";
		mes "ӡIڪĤlI";
		mes "^FF0000ڪӡI^000000";
		close;
		end;
		break;
	default:
		mes "[U]";
		mes "BPı";
		mes "OOܬOI";
		mes "A̩֬";
		close;
		end;
	}

L_MALE_MARRIAGE:
	// ˬdIDBӽФHIDӧP_O_OTnOH
	if(getcharid(1)==0 || getcharid(1)!=$@tmp_party_id || getcharid(0)!=$@marry_male)
	{
		mes "[U]";
		mes "ڪĤlOO";
		mes "٨SA̳osH";
		mes "еyݳ";
		close;
		end;
	}
	// ˬdkkO_nO
	if($@marry_female==0)
	{
		mes "[U]";
		mes "ASaӧAsQH";
		mes "OOA@ӤH]ӪH";
		mes "IuOӶ̥ʰڡI";
		close;
		end;
	}

	mes "[U]";
	mes "ڿ˷RĤlAAnBǳƤFܡH";
	next;
	menu	"OAڷǳƦnFI",-,
		"ڡKKAڦҼ{@UKK",A01,
		"ڬOLĳ樭~",A02;

	mes "[U]";
	mes "ڭ̶}la";
	mes "зǳƦnӮ𪺷s§A";
	mes "P@UEʪ߱";
	next;

	// ˬdO_NPAW Item 7170
	// PAȺݥiݭnקoe
	if(getequipid(2)!=7170)
	{
		mes "[U]";
		mes "ݨӨS٨SǳƦnA֥hǳƤ@UBAaII";
		mes "DAnۨlBܡH";
		close;
		end;
	}

	mes "[U]";
	mes "AݨӧAǳƪ۷nA}la";
	next;
	misceffect 347;
	announce "[U]GѦ˷R̥SjfAڭ̲{bEbo̡AOFosHnbWҪeB߬إ߬axӰҡCBê_OWҳ]ߪC֪axOѩWҪAҦqȤWҡALDzAwX֡AҥHnθt䪺ߡAH§ӵBA~إߩ֩Mּ֪axC",15;
	mes "[U]";
	mes "ڿ˷RĤlAЧAҷRHWrgUӧaAڭnҦӪHA̯!!";
	next;

	// ˬdJWrO_MkӽФHۦP
	input $@name$;
	if($@marry_female_name$!=$@name$)
	{
		mes "[U]";
		mes "@IHڪWҰڡI";
		mes "A~MOFRHWrI";
		mes "ݨ誺N٨SΤ@,nnӶq@UaII";
		close;
		end;
	}

	announce "[U]Go﩯֪HO"+ strcharinfo(0) + " M "+ $@marry_female_name$ + "Aڭ̤@_ӯֳosHC",15;
	mes "[U]";
	mes "Хθt䪺ߡAӲťӦۥD֧aII";
	next;
	mes "[U]";
	mes "ХJӪť!";
	announce "[U]GBìOWҪwơAҰOWҩҰtXAҥHnήqߨӻWҩҦwƪC ]WҰ_гyȷMLAO@k@kaxAڭ̪]ˡAdl٦bVҤiAAV٦bdl礣iAC",15;
	next;
	mes "[U]";
	mes "ХJӪť!";
	announce "[U]GBO@ͪAۤҰ̿˻eCtgGḼnsGH@AVҤidlC",15;
	next;
	mes "[U]";
	mes "ХJӪť!!";
	announce "[U]GDCqGWҩҰtXHKi}C Ұn۷RAVҭnRULdlApPRLз|AdlAoVҡApPз|AAҰP~@BAnMínLR@pC",15;
	next;
	mes "[U]";
	mes "ХJӪť!!!";
	announce "[U]GWҨϧAb@WAAHŬXM@ߨӷUAqRAL׹I٬OhaAd٬OwfAAbWҩMHe\@No˶ܡH",15;
	next;
	mes "[U]";
	mes "{bA̤GHwgťtgoǱаVAA̭Y@NXAХ|_AYW߻}C";
	announce "[U]GڭťťӦ["+ strcharinfo(0) + "]}a!!",15;
	next;
	mes "[U]";
	mes "Ż}G";
	announce "ګŻ}GڡXX["+ strcharinfo(0) + "]@NӨ "+ $@marry_female_name$ + " ڪdlA۹ӤWҪRAMLͬb@_CLצbҡA@Nץ;ioBRoBwoBLoBO@oAHܩ^lkDC",15;
	next;
	announce "[U]G{bӴݤkF",15;

	// k觹Ż}AݤkŻ}I
	set $@EVENT_MARRIAGE,1;
	set EVENT_MARRIAGE_APPLY,2;
	close;
	end;

L_FEMALE_MARRIAGE:
	// ˬdkO_Ż}
	if($@EVENT_MARRIAGE!=1)
	{
		mes "[U]";
		mes "ڪĤlOO";
		mes "kŻ}aI";
		close;
		end;
	}

	// ˬdO_OTMӽФH
	if(getcharid(1)==0 || getcharid(1)!=$@tmp_party_id || getcharid(0)!=$@marry_female )
	{
		mes "[U]";
		mes "ڪĤlOO";
		mes "٨SA̳osH";
		mes "еyݳ";
		close;
		end;
	}

	mes "[U]";
	mes "ڭ̶}la";
	mes "зǳƦn}GsQ§A,P@UEʪ߱";
	next;

	// ˬdO_NB§AW Item 2338
	// PAȺݥiݭnקoe
	if(getequipid(2)!=2338)
	{
		mes "[U]";
		mes "ݨӨS٨SǳƦnA֥hǳƤ@UBAaII";
		mes "DAnۨlBܡH";
		close;
		end;
	}

	mes "[U]";
	mes "AݨӧAǳƪ۷nA}la";
	next;
	misceffect 347;
	announce "[U]GѦ˷R̥SjfAڭ̲{bEbo̡AOFosHnbWҪeB߬إ߬axӰҡCBê_OWҳ]ߪC֪axOѩWҪAҦqȤWҡALDzAwX֡AҥHnθt䪺ߡAH§ӵBA~إߩ֩Mּ֪axC",15;
	mes "[U]";
	mes "ڿ˷RĤlAЧAҷRHWrgUӧaAڭnҦӪHA̯!!";
	next;

	//ˬdJWrO_MkӽФHۦP
	input $@name$;
	if($@marry_male_name$!=$@name$)
	{
		mes "[U]";
		mes "@IHڪWҰڡI";
		mes "A~MOFRHWrI";
		mes "ݨ誺N٨SΤ@,nnӶq@UaII";
		close;
		end;
	}

	announce "[U]Go﩯֪HO"+ strcharinfo(0) + " M "+ $@marry_male_name$ + "Aڭ̤@_ӯֳosHC",15;
	mes "[U]";
	mes "Хθt䪺ߡAӲťӦۥD֧aII";
	next;
	mes "[U]";
	mes "ХJӪť!";
	announce "[U]GBìOWҪwơAҰOWҩҰtXAҥHnήqߨӻWҩҦwƪC ]WҰ_гyȷMLAO@k@kaxAڭ̪]ˡAdl٦bVҤiAAV٦bdl礣iAC",15;
	next;
	mes "[U]";
	mes "ХJӪť!";
	announce "[U]GBO@ͪAۤҰ̿˻eCtgGḼnsGH@AVҤidlC",15;
	next;
	mes "[U]";
	mes "ХJӪť!!";
	announce "[U]GDCqGWҩҰtXHKi}C Ұn۷RAVҭnRULdlApPRLз|AdlAoVҡApPз|AAҰP~@BAnMínLR@pC",15;
	next;
	mes "[U]";
	mes "ХJӪť!!!";
	announce "[U]GWҨϧAb@WAAHŬXM@ߨӷUAqRAL׹I٬OhaAd٬OwfAAbWҩMHe\@No˶ܡH",15;
	next;
	mes "[U]";
	mes "{bA̤GHwgťtgoǱаVAA̭Y@NXAХ|_AYW߻}C";
	announce "[U]GڭťťӦ["+ strcharinfo(0) + "]}a!!",15;
	next;
	menu	"ڵo}AץͤI",-,
		"ڡKKAڦҼ{@UKK",A01;
	mes "[U]";
	mes "Ż}G";
	announce "ګŻ}GڡXX["+ strcharinfo(0) + "]@NӨ "+ $@marry_male_name$ + " ڪVҡA۹ӤWҪRAMLͬb@_CLצbҡA@Nץ;iLBRLBwLBLLBO@LAHܩ^lkDC",15;
	next;
	announce "[U]GڨӡAڪĤlIҦHӨҧA̪֡I",15;

	// kPNçܱҰʧ٫޲z
	set EVENT_MARRIAGE_APPLY,2;
	enablenpc "marriage_ring";
	close;
	end;

A01:
	mes "[U]";
	mes "nnQQaAoOAܡKK";
	close;
	end;

A02:
	mes "[U]";
	mes "樭KKKˤ]O@ؿ......";
	close;
	end;
}

prt_church.gat,100,121,4	script	marriage_ring	139,1,1,{
	// ˬdʧO
	if(sex) goto L_MALE;

	// ˬdHID
	if(getcharid(0)!=$@marry_female) end;

	// ˬdO_SB
	if(EVENT_MARRIAGE_APPLY!=2) end;

	// ˬdO_OBi
	if($@EVENT_MARRIAGE==1) goto L_FEMALE_FIRST;

	// kᲾ
	mes "[U]";
	mes "nťڪŧGaI";
	announce "[U]GڦbŧGAPA̦ҩdI",15;
	announce $@marry_male_name$ + "M" + $@marry_female_name$ + "B§FI",15;

	// o٫
	getitem 2635, 1;
	set EVENT_MARRIAGE_APPLY, 3;
	set $@tmp_party_id,0;
	set $@marry_male,0;
	set $@marry_male_name$,0;
	set $@marry_female,0;
	set $@marry_female_name$,0;
	stopnpctimer "TimerMarriage";
	disablenpc "marriage_ring";
	close;
	end;

// k
L_FEMALE_FIRST:
	// B
	set EVENT_MARRIAGE_APPLY,3;
	set $@EVENT_MARRIAGE,0;

	// o٫
	getitem 2635, 1;

	// B
	marriage($@marry_male_name$);
	close;
	end;

L_MALE:
	// ˬdHID
	if(getcharid(0)!=$@marry_male) end;

	// ˬdO_SB
	if(EVENT_MARRIAGE_APPLY!=2) end;

	// ˬdO_OBi
	if($@EVENT_MARRIAGE==1) goto L_MALE_FIRST;

	// kᲾ
	mes "[U]";
	mes "nťڪŧGaI";
	announce "[U]GڦbŧGAPA̦ҩdI",15;
	announce $@marry_male_name$ + "M" + $@marry_female_name$ + "B§FI",15;

	// o٫
	getitem 2634,1;
	set EVENT_MARRIAGE_APPLY,3;
	set $@tmp_party_id,0;
	set $@marry_male,0;
	set $@marry_male_name$,0;
	set $@marry_female,0;
	set $@marry_female_name$,0;
	stopnpctimer "TimerMarriage";
	disablenpc "marriage_ring";
	close;
	end;

// k
L_MALE_FIRST:
	// B
	set EVENT_MARRIAGE_APPLY,3;
	set $@EVENT_MARRIAGE,0;

	// o٫
	getitem 2634,1;

	// B
	marriage($@marry_female_name$);
	close;
	end;

OnInit:
	disablenpc "marriage_ring";
	end;
}


/*
 *	========================================================
 *			BnOH ϥλ
 *	1. nDknO,OUaid,name,partyid.
 *	2. knO,ˬdpartyid.qLhnOaid,name.
 *	3. bHnO᪺5,LkIDLknO
 *	4. pGȶȨknOӨSknO.5ID
 *	   ]|Q{OBӾɭPLkAӽ.
 *	   ѨMk:"s}l",OB\
 *	5. BnOһݭn~
 *	   1) kG130W{Apۧ٫1APA1(Q)
 *	   2) kG120W{Apۧ٫1A§A1(Q)
 *	========================================================
 */
prt_church.gat,94,100,4	script	B AȤH	71,{
	mes "[B ּ]";
	mes "ҿ׵BOA";
	mes "ݵ۩֡AҦH̪ƱA";
	mes "аݧAO_A";
	mes "QnBHܡH";
	next;
	menu "лB§Ʊ",A01,
             "аݵB§L{OˤlOH",A02,
             "ڷQnӽеB§",A03,
             "ڭ̬OLĪ樭xΡI",A04,
             "s}l",A05;

// B廡
A01:
	mes "[B ּ]";
	mes "{bBObc-̼w[A";
	mes "SOZ3@UA";
	mes "FUFꤺҦʩm̪֡A";
	mes "δLQyA˦ۥDұBH";
	next;
	mes "[B ּ]";
	mes "MCѦLajơA";
	mes "FYNsXopfA";
	mes "SaӨFwԱаA";
	mes "ʩҦHL۩֪ͬA";
	mes "oOUw";
	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 "~kʩMkʡA";
	mes "kʥuPkʵBA";
	mes "t~]iA";
	mes "ǤH|XAMPʪ̩ΩM]BA";
	mes "o˪DiKO|Qߪ";
	next;
	mes "[B ּ]";
	mes "pwnӪHܡA";
	mes "յۨDBݬݧaA";
	mes "@ݥө֪ҦʤHA";
	mes "֬II";
	close;
	end;

// L{
A02:
	mes "[B ּ]";
	mes "T{ssQ̡A";
	mes "VڥӽжܡH";
	mes "M쳣OASLBH~ڡH";
	mes "pӽЪܡAuШնA";
	mes "ШU̧aI";
	next;
	mes "[B ּ]";
	mes "U̫A";
	mes "kܡA";
	mes "MAnBkʪWrA";
	mes "WrAnTA";
	mes "B§~";
	next;
	mes "[B ּ]";
	mes "ܮɡA";
	mes "򱵵ۤkUܡA";
	mes "U|ݩpA";
	mes "pnBHWrA";
	mes "۹諸]@˪^kʪWr";
	next;
	mes "[B ּ]";
	mes "pBHWrTܡA";
	mes "|洫B٫A";
	mes "q}lA";
	mes "ӤH|ûb@_AaH";
	mes "wQeڵ]@wA";
	mes "]nL";
	next;
	mes "[B ּ]";
	mes "QnBHA";
	mes "ӦhEb@_ɡA";
	mes "ФjaLuǡAǨӸܡA";
	mes "UiPɪA";
	mes "DnXB§";
	next;
	mes "[B ּ]";
	mes "̫@IAWrA^n";
	mes "^ff0000sܡAb3AҦL{a^000000";
	mes "nMAB§|AA]൲BF";
	next;
	mes "[B ּ]";
	mes "gBHWrA²檺kOA";
	mes "H@iȱA";
	mes "bܵf̩WrA";
	mes "IbYХܡAYi";
	next;
	mes "[B ּ]";
	mes "N|ܨȱ誺WrA";
	mes " Ctrl䪺PɡA";
	mes "A CAWr|QOA";
	mes "HnJWrɡA";
	mes " Shift䪺PɡA";
	mes "A InsertAWrNܧ֡A";
	mes "ܤKgbWF";
	next;
	mes "[B ּ]";
	mes "N@aA";
	mes "QnBHWrA";
	mes "̧iDA覡g@MA";
	mes " Ctrl䪺PɡA";
	mes "A COOK^OA";
	mes " Shift䪺PɡA";
	mes "A Insert";
	next;
	input @name$; //need to try
	mes "[B ּ]";
	mes "ܦnAgA";
	mes "YbA߸̭vMwnFܡA";
	mes "@wnӳo̥ӽ";
	close;
	end;

// Bӽ
A03:
	mes "[B ּ]";
	mes "QnBܭnӽоA";
	mes "kʭnX^0000881,300,000M";
	mes "PA1^000000Akʭn^0000881,200,000";
	mes "MB§A1^000000";
	mes "MgӽЮѧYiA";
	mes "pkk賣ӽЪܡA";
	mes "NiHBF";
	next;
	mes "[B ּ]";
	mes "OѤF٭nǳƵB٫A";
	mes "kk賣ݭn^000088pۧ٫1^000000";
	mes "ӽЪɭԡA@_ڴNnF";
	next;
	mes "[B ּ]";
	mes "쳣ӽЦnA";
	mes "NiHW浲B§FA";
	mes "аݧA{bnӽеBܡH";
	next;
	if(select("O","O")==2)
	{
		mes "[B ּ]";
		mes "A@ө֪@ѡKI";
		close;
		end;
	}

	// ˬdO_nOΪ̤wgB
	if(EVENT_MARRIAGE_APPLY>=1)
	{
		mes "[B ּ]";
		mes "ڥˬd@U";
		if(EVENT_MARRIAGE_APPLY==1) mes "wgӽйLNAӽo";
		if(EVENT_MARRIAGE_APPLY>1) mes "AwgLB";
		close;
		end;
	}

	// Ny{}AKHק
	if(sex) goto L_MALE_APPLY;

//	====================knO====================
	// SնhܨðhXI
	if(getcharid(1)==0)
	{
		mes "[B ּ]";
		mes "@I";
		mes "MARH^FF0000ն^000000I";
		close;
		end;
	}

	// ˬdO_ӽФHP@նI
	if(getcharid(1)!=$@tmp_party_id)
	{
		mes "[B ּ]";
		mes "AnwgHӽФF";
		mes "ݼˤlAAo@|";
		mes "nNڡI";
		close;
		end;
	}

	// ˬdpۧ٫
	if(countitem(2613)<1)
	{
		mes "[B ּ]";
		mes "AnѰOaA";
		mes "B٫ɭnΪpۧ٫FA";
		mes "OObOaFOH";
		mes "JӪ䤧AAӧڧa";
		close;
		end;
	}

	// ˬdnOO
	if(zeny<1200000 )
	{
		next;
		mes "[B ּ]";
		mes "AW{n";
		close;
		end;
	}

	// ˬd§A
	if(countitem(2338)<1)
	{
		next;
		mes "[B ּ]";
		mes "znѤFa§Aӳ";
		close;
		end;
	}

	// ahWO
	delitem 2613,1;
	set zeny,zeny-1200000;

	// ȦsӽФHAIDANAME
	set $@marry_female,getcharid(0);
	set $@marry_female_name$,strcharinfo(0);

	// NӽФHAאּӽЧI
	set EVENT_MARRIAGE_APPLY,1;

	mes "[B ּ]";
	mes "IUӽШyUz̥ha";
	mes "U|ḀDB§";
	mes "Цb^FF00005^000000B@I";
	close;
	end;

//	====================knO====================
L_MALE_APPLY:
	// SնhܨðhXI
	if(getcharid(1)==0)
	{
		mes "[B ּ]";
		mes "@I";
		mes "MARH^FF0000ն^000000I";
		close;
		end;
	}

	// pGHwgӽЩζ}lBAhܵ
	if($@tmp_party_id!=0)
	{
		mes "[B ּ]";
		mes "AnwgHӽФF";
		mes "ݼˤlAAo@|";
		mes "nNڡI";
		close;
		end;
	}

	// ˬdpۧ٫
	if(countitem(2613)<1)
	{
		mes "[B ּ]";
		mes "AnѰOaA";
		mes "B٫ɭnΪpۧ٫FA";
		mes "OObOaFOH";
		mes "JӪ䤧AAӧڧa";
		close;
		end;
	}

	// ˬdnOO
	if(zeny<1300000)
	{
		next;
		mes "[B ּ]";
		mes "AW{n";
		close;
		end;
	}

	// ˬdPA
	if(countitem(7170)<1)
	{
		next;
		mes "[B ּ]";
		mes "znѤFa§Aӳ";
		close;
		end;
	}

	// ahWO
	delitem 2613,1;
	set zeny,zeny-1300000;

	// ȦsӽФHAIDANAME
	set $@marry_male,getcharid(0);
	set $@marry_male_name$,strcharinfo(0);

	// ȦsӽФHPARTY ID
	set $@tmp_party_id,getcharid(1);

	// NӽФHAאּӽЧI
	set EVENT_MARRIAGE_APPLY,1; 

	mes "[B ּ]";
	mes "IUӽШyUz̥ha";
	mes "U|ḀDB§";
	mes "Цb^FF00005^000000B@I";

	// kӽЧA}lpɡI
	initnpctimer "TimerMarriage";
	close;
	end;

//	===================樭xΥX{=========================
A04:
	enablenpc "wed01";
	enablenpc "wed02";
	enablenpc "wed03";
	enablenpc "wed04";
	enablenpc "wed05";
	enablenpc "wed06";
	emotion 23;
	mes "[樭 x]";
	mes "ҭnۤvA~|XnFI";
	mes "b}޸̭նOת欰I";
	mes "ڥiHIUX߫ NPCI";
	mes "qXͨ¾AOۤvmI";
	mes "Ltϸ`ɭԡA~ޯD͡I";
	mes "Kڭ̬OLĪ樭xΡI";
	next;
	emotion 4;
	disablenpc "wed01";
	disablenpc "wed02";
	disablenpc "wed03";
	disablenpc "wed04";
	disablenpc "wed05";
	disablenpc "wed06";
	close;
	end;

A05:
	//pGFB§.h୫s}l
	//if ( EVENT_MARRIAGE_APPLY == 3 ) goto L_MARRIAGED;
	if(PartnerId!=0)
	{
		mes "[B ּ]";
		mes "@";
		mes "AwgXkQF";
		mes "HKOH";
		close;
		end;
	}
	mes "[B ּ]";
	mes "γ\s}l]";
	mes "ƱAuXAQ";
	set EVENT_MARRIAGE_APPLY,0;
	close;
	end;
}

// ΩӱB媺pɡIq}l쵲WwɶG5
prt_church.gat,97,99,0	script	TimerMarriage	-1,{
	end;

// 5AjB§AåB{ɼƾksI
OnTimer300000:
	announce $@marry_male_name$ + "M" + $@marry_female_name$ + "B§FI",15;
	set $@tmp_party_id,0;
	set $@marry_male,0;
	set $@marry_male_name$,0;
	set $@marry_female,0;
	set $@marry_female_name$,0;
	stopnpctimer;
	end;
}

// 樭xΡIԭHաI
prt_church.gat,97,102,0	script	樭 x::wed01	105,{
	close;
OnInit:
	disablenpc "wed01";
	end;
}

prt_church.gat,98,102,0	script	樭 x::wed02	705,{
	close;
OnInit:
	disablenpc "wed02";
	end;
}

prt_church.gat,99,102,0	script	樭 x::wed03	707,{
	close;
OnInit:
	disablenpc "wed03";
	end;
}

prt_church.gat,100,102,0	script	樭 x::wed04	708,{
	close;
OnInit:
	disablenpc "wed04";
	end;
}

prt_church.gat,101,102,0	script	樭 x::wed05	767,{
	close;
OnInit:
	disablenpc "wed05";
	end;
}

prt_church.gat,102,102,0	script	樭 x::wed06	780,{
	close;
OnInit:
	disablenpc "wed06";
	end;
}