//==============================================
// ű
// д by FPE(2006.7.3)
// Jathena++ ̳http://www.foxofice.net/bbs
//----------------------------------------------
/*
 *	==================================================================
 *			ű˵
 *
 *	1. Ҫ" Ա"Ǽ,ʱڽ,ԺǼ.
 *		** ǼǷԱʹμ˵ **
 *
 *	2. зŮǼǺ,зȺ͹Ի.ȻŮԻ
 *	3. Իɺ,˺һ,ȡýָ.ɻ
 *	4. ÿ̶ʱ5.޷ɻ޷ٴν
 *	
 *	
 *
 *		2004-06-18  BY 
 *		( 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		108,{
	switch(EVENT_MARRIAGE_APPLY)
	{
	case 0:
		mes "[]";
		mes "ҵĺ";
		mes "㻹ǹһ";
		mes "ףԸҵԼһ룡";
		close;
		end;
		break;
	case 1:
		if(sex) goto L_MALE_MARRIAGE;
		goto L_FEMALE_MARRIAGE;
		break;
	case 1:
		mes "[]";
		mes "ҵĺӣ";
		mes "^FF0000ߵҵ^000000";
		close;
		end;
		break;
	default:
		mes "[]";
		mes "ĸо";
		mes "ǲǺأ";
		mes "ףҸ";
		close;
		end;
	}

L_MALE_MARRIAGE:
	// IDIDжǷȷĵǼ
	if(getcharid(1)==0 || getcharid(1)!=$@tmp_party_id || getcharid(0)!=$@marry_male)
	{
		mes "[]";
		mes "ҵĺӱ𼱱";
		mes "ûֵ";
		mes "Դ";
		close;
		end;
	}
	// ŮǷ񶼵Ǽ
	if($@marry_female==0)
	{
		mes "[]";
		mes "ôûд";
		mes "ǲһ͵͵ģ";
		mes "Ǹɵϰ";
		close;
		end;
	}

	mes "[]";
	mes "װĺӣý׼";
	next;
	menu	"ǵģ׼ˣ",-,
		"ҡҿһ¡",A01,
		"޵е",A02;

	mes "[]";
	mes "ôǿʼ";
	mes "׼˧";
	mes "һ¼";
	next;

	// Ƿβ Item 7170
	// ͬķ˿Ҫ޸
	if(getequipid(2)!=7170)
	{
		mes "[]";
		mes "ûû׼ãȥ׼һ½·ɣ";
		mes "ѵҪӽ";
		close;
		end;
	}

	mes "[]";
	mes "ţ׼൱ãôʼ";
	next;
	misceffect 347;
	announce "[]λװĵֽãھۼΪҪϵ۵ǰԼļ֤ͥԴϵġҸļͥϵ۵Ķͣоηϵۣĵģضܴ͸Ҫʥģʽ飬ܽҸͿֵļͥ",15;
	mes "[]";
	mes "װĺӣдɣҪеΪף!!";
	next;

	// ǷŮͬ
	input $@name$;
	if($@marry_female_name$!=$@name$)
	{
		mes "[]";
		mes "Ŷҵϵ۰";
		mes "ȻǴ˰˵֣";
		mes "˫ûͳһ,úһ°ɣ";
		close;
		end;
	}

	announce "[]Ҹ˶"+ strcharinfo(0) + "  "+ $@marry_female_name$ + "һףˡ",15;
	mes "[]";
	mes "ʥģףɣ";
	next;
	mes "[]";
	mes "ϸ!";
	announce "[]ϵ۵İţϵϵģҪùϵŵĶ͡ ΪϵǵޣһһŮļͥǵİӻɷ򲻿Ȣɷ಻ټޡ",15;
	next;
	mes "[]";
	mes "ϸ!";
	announce "[]һԼ֮зۡʥ˵Ҫ˳Ϊһ壬ɷ򲻿ӡ",15;
	next;
	mes "[]";
	mes "ϸ!!";
	announce "[]Ү˵ϵϵ˱㲻ɷֿ ҪమɷҪϧչӣͬϧĽ̻ᣬӵ˳ɷ̻ͬ˳ͬһҪҪسС",15;
	next;
	mes "[]";
	mes "ϸ!!!";
	announce "[]ϵʹϣ㵱չ˶ԷԷ۶ԷлƶǻϵۺǰŵԸ",15;
	next;
	mes "[]";
	mes "ǶѾʥЩѵԸϣþֵͷġ";
	announce "[]["+ strcharinfo(0) + "]԰!!",15;
	next;
	mes "[]";
	mes "ģ";
	announce "ģҡ["+ strcharinfo(0) + "]Ըܽ "+ $@marry_female_name$ + " ҵӣʵϵ۵ּһʲôԸϧοٹ",15;
	next;
	announce "[]ӦûŮ",15;

	// зģȴŮģ
	set $@EVENT_MARRIAGE,1;
	set EVENT_MARRIAGE_APPLY,2;
	close;
	end;

L_FEMALE_MARRIAGE:
	// зǷ
	if($@EVENT_MARRIAGE!=1)
	{
		mes "[]";
		mes "ҵĺӱ𼱱";
		mes "ȵзİɣ";
		close;
		end;
	}

	// ǷȷĶ
	if(getcharid(1)==0 || getcharid(1)!=$@tmp_party_id || getcharid(0)!=$@marry_female )
	{
		mes "[]";
		mes "ҵĺӱ𼱱";
		mes "ûֵ";
		mes "Դ";
		close;
		end;
	}

	mes "[]";
	mes "ôǿʼ";
	mes "׼Ư,һ¼";
	next;

	// Ƿ񽫽 Item 2338
	// ͬķ˿Ҫ޸
	if(getequipid(2)!=2338)
	{
		mes "[]";
		mes "ûû׼ãȥ׼һ½·ɣ";
		mes "ѵҪӽ";
		close;
		end;
	}

	mes "[]";
	mes "ţ׼൱ãôʼ";
	next;
	misceffect 347;
	announce "[]λװĵֽãھۼΪҪϵ۵ǰԼļ֤ͥԴϵġҸļͥϵ۵Ķͣоηϵۣĵģضܴ͸Ҫʥģʽ飬ܽҸͿֵļͥ",15;
	mes "[]";
	mes "װĺӣдɣҪеΪף!!";
	next;

	//Ƿзͬ
	input $@name$;
	if($@marry_male_name$!=$@name$)
	{
		mes "[]";
		mes "Ŷҵϵ۰";
		mes "ȻǴ˰˵֣";
		mes "˫ûͳһ,úһ°ɣ";
		close;
		end;
	}

	announce "[]Ҹ˶"+ strcharinfo(0) + "  "+ $@marry_male_name$ + "һףˡ",15;
	mes "[]";
	mes "ʥģףɣ";
	next;
	mes "[]";
	mes "ϸ!";
	announce "[]ϵ۵İţϵϵģҪùϵŵĶ͡ ΪϵǵޣһһŮļͥǵİӻɷ򲻿Ȣɷ಻ټޡ",15;
	next;
	mes "[]";
	mes "ϸ!";
	announce "[]һԼ֮зۡʥ˵Ҫ˳Ϊһ壬ɷ򲻿ӡ",15;
	next;
	mes "[]";
	mes "ϸ!!";
	announce "[]Ү˵ϵϵ˱㲻ɷֿ ҪమɷҪϧչӣͬϧĽ̻ᣬӵ˳ɷ̻ͬ˳ͬһҪҪسС",15;
	next;
	mes "[]";
	mes "ϸ!!!";
	announce "[]ϵʹϣ㵱չ˶ԷԷ۶ԷлƶǻϵۺǰŵԸ",15;
	next;
	mes "[]";
	mes "ǶѾʥЩѵԸϣþֵͷġ";
	announce "[]["+ strcharinfo(0) + "]԰!!",15;
	next;
	menu	"ҷģڣ",-,
		"ҡҿһ¡",A01;
	mes "[]";
	mes "ģ";
	announce "ģҡ["+ strcharinfo(0) + "]Ըܽ "+ $@marry_male_name$ + " ҵɷ򣬳ʵϵ۵ּһʲôԸϧοٹ",15;
	next;
	announce "[]ҵĺӣ֤ǵҸ",15;

	// ŮͬⲢɶԻָԱ
	set EVENT_MARRIAGE_APPLY,2;
	enablenpc "marriage_ring";
	close;
	end;

A01:
	mes "[]";
	mes "úɣϾѡ񡭡";
	close;
	end;

A02:
	mes "[]";
	mes "Ҳһѡ......";
	close;
	end;
}

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

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

	// Ƿûɻ
	if(EVENT_MARRIAGE_APPLY!=2) end;

	// Ƿǻ
	if($@EVENT_MARRIAGE==1) goto L_FEMALE_FIRST;

	// Ůƶ
	mes "[]";
	mes "ҵɣ";
	announce "[]ôڴףǳΪޣ",15;
	announce $@marry_male_name$ + "" + $@marry_female_name$ + "Ļˣ",15;

	// ȡýָ
	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;

// Ůƶ
L_FEMALE_FIRST:
	// ɻ
	set EVENT_MARRIAGE_APPLY,3;
	set $@EVENT_MARRIAGE,0;

	// ȡýָ
	getitem 2635, 1;

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

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

	// Ƿûɻ
	if(EVENT_MARRIAGE_APPLY!=2) end;

	// Ƿǻ
	if($@EVENT_MARRIAGE==1) goto L_MALE_FIRST;

	// зƶ
	mes "[]";
	mes "ҵɣ";
	announce "[]ôڴףǳΪޣ",15;
	announce $@marry_male_name$ + "" + $@marry_female_name$ + "Ļˣ",15;

	// ȡýָ
	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;

// зƶ
L_MALE_FIRST:
	// ɻ
	set EVENT_MARRIAGE_APPLY,3;
	set $@EVENT_MARRIAGE,0;

	// ȡýָ
	getitem 2634,1;

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

OnInit:
	disablenpc "marriage_ring";
	end;
}


/*
 *	========================================================
 *			ǼԱ ʹ˵
 *	1. ҪзȵǼ,¼aid,name,partyid.
 *	2. ŮǼʱ,partyid.ͨǼaid,name.
 *	3. ˵ǼǺ5֮,ID޷Ǽ
 *	4. зǼǶûŮǼ.5ӺID
 *	   ҲᱻΪǽ޷ٴ.
 *	   :ѡ"¿ʼ",ǽɹĲѡ
 *	5. ǼҪƷ
 *	   1) з130Wֽʯָ1β1(۳)
 *	   2) Ů120Wֽʯָ11(۳)
 *	========================================================
 */
prt_church.gat,94,100,4	script	 Ա	71,{
	mes "[ ]";
	mes "νָ";
	mes "ڴҸǵϣ";
	mes "ǷУ";
	mes "ҪĶ";
	next;
	menu "˵йؽ",A01,
             "ʽĹʲôأ",A02,
             "Ҫ",A03,
             "޵еĵţ",A04,
             "¿ʼ",A05;

// ˵
A01:
	mes "[ ]";
	mes "ڽ¬-׵¼";
	mes "̹3£";
	mes "Ϊ´еİǵף";
	mes "ԣ֤˵Ľɫ";
	next;
	mes "[ ]";
	mes "ȻÿæµڹҴ£";
	mes "Ϊ˼³Сڣ";
	mes "ص¡ã";
	mes "ڼJ˶ܹҸ";
	mes "ǹ¸Ķ";
	next;
	mes "[ ]";
	mes "Ҫأ";
	mes "֣ص";
	mes "ֻҪнһλˣ";
	mes "Ҳָܻԭ״ˣ";
	mes "뿪Ϊֹ";
	mes "Զһ";
	next;
	mes "[ ]";
	mes "ԺŮԣ";
	mes "ŮֻԽ飬";
	mes "Ҳпܣ";
	mes "Щ˻ͬ߻ħ飬";
	mes "šǲᱻ";
	next;
	mes "[ ]";
	mes "ԼδĶĻ";
	mes "鿴ɣ";
	mes "ԸڴδҸˣ";
	mes "ףҸ";
	close;
	end;

// ˵
A02:
	mes "[ ]";
	mes "ȷǣ";
	mes "ж";
	mes "Ȼλǣûн˲Ŷ԰";
	mes "Ļֻλ֮";
	mes "뵽ɣ";
	next;
	mes "[ ]";
	mes "";
	mes "з˵";
	mes "Ȼ˵ҪŮԵ֣";
	mes "ֲܽҪȷ";
	mes "ִ";
	next;
	mes "[ ]";
	mes "껰ʱ";
	mes "Ů½";
	mes "»ʊ";
	mes "Ҫ֣";
	mes "ԵҲһĻشԵ";
	next;
	mes "[ ]";
	mes "ȷĻ";
	mes "ύָ";
	mes "˲俪ʼ";
	mes "˻Զһ𣬲ɣ";
	mes "˵ίľܾҲһ";
	mes "ҲҪ̫ѹ";
	next;
	mes "[ ]";
	mes "Ҫˣ";
	mes "̫ۼһʱ";
	mes "򣬽˳˵";
	mes "²ͬʱģ";
	mes "ֺüԻ";
	next;
	mes "[ ]";
	mes "һ㣬ֺ󣬻شҪ";
	mes "^ff0000ɽ껰3֮ڣеĹ̶^000000";
	mes "ҪȻֹͣҲܽ";
	next;
	mes "[ ]";
	mes "д֣򵥵ķǣ";
	mes "ȼĸԷһֽ";
	mes "ڶԻֵĲݣ";
	mes "ѡͷʾ߼";
	next;
	mes "[ ]";
	mes "ǾͻʾֽԷ֣";
	mes "ס Ctrlͬʱ";
	mes "ٰ Cֻᱻ¼";
	mes "ԺҪʱ";
	mes "ס Shiftͬʱ";
	mes "ٰ Insertô־ͺܿ죬";
	mes "ܷд";
	next;
	mes "[ ]";
	mes "ôһΰɣ";
	mes "Ҫ֣";
	mes "ķʽдһ飬";
	mes "ס Ctrlͬʱ";
	mes "ٰ CǼ¼شǣ";
	mes "ס Shiftͬʱ";
	mes "ٰ Insert";
	next;
	input @name$; //need to try
	mes "[ ]";
	mes "ܺãдĲ";
	mes "漺˵Ļ";
	mes "һҪ";
	close;
	end;

// 
A03:
	mes "[ ]";
	mes "ҪĻҪޣ";
	mes "Ҫ^0000881,300,000Һ";
	mes "β1^000000ŮҪ^0000881,200,000";
	mes "Һͽ1^000000";
	mes "Ȼд鼴ɣ";
	mes "Ů˫Ļ";
	mes "ͿԽ";
	next;
	mes "[ ]";
	mes "˻Ҫ׼ָ";
	mes "Ů˫Ҫ^000088ʯָ1^000000";
	mes "ʱһҾͺ";
	next;
	mes "[ ]";
	mes "λ֮";
	mes "Ϳִнˣ";
	mes "Ҫ";
	next;
	if(select("","")==2)
	{
		mes "[ ]";
		mes "ףһҸһ졭";
		close;
		end;
	}

	// ǷǼǻѾ
	if(EVENT_MARRIAGE_APPLY>=1)
	{
		mes "[ ]";
		mes "һ";
		if(EVENT_MARRIAGE_APPLY==1) mes "ѾͲ놪";
		if(EVENT_MARRIAGE_APPLY>1) mes "Ѿ";
		close;
		end;
	}

	// ȫֿԺ޸
	if(sex) goto L_MALE_APPLY;

//	====================ŮǼ====================
	// ûʾ˳
	if(getcharid(1)==0)
	{
		mes "[ ]";
		mes "Ŷ";
		mes "Ⱥİ^FF0000^000000";
		close;
		end;
	}

	// ǷΪͬһӣ
	if(getcharid(1)!=$@tmp_party_id)
	{
		mes "[ ]";
		mes "ţѾ";
		mes "ӣ㲻òһ";
		mes "˼";
		close;
		end;
	}

	// ʯָ
	if(countitem(2613)<1)
	{
		mes "[ ]";
		mes "Ǵ";
		mes "ָʱҪõʯָˣ";
		mes "ǲǷڱĵطأ";
		mes "ϸ֮Ұ";
		close;
		end;
	}

	// ǼǷ
	if(zeny<1200000 )
	{
		next;
		mes "[ ]";
		mes "ϵֽ";
		close;
		end;
	}

	// 
	if(countitem(2338)<1)
	{
		next;
		mes "[ ]";
		mes "˴";
		close;
		end;
	}

	// ȫ۳
	delitem 2613,1;
	set zeny,zeny-1200000;

	// ݴAIDNAME
	set $@marry_female,getcharid(0);
	set $@marry_female_name$,strcharinfo(0);

	// ״̬Ϊϣ
	set EVENT_MARRIAGE_APPLY,1;

	mes "[ ]";
	mes "ţ뵽¡ȥ";
	mes "»Ϊֻ";
	mes "^FF00005^000000ɻŶ";
	close;
	end;

//	====================зǼ====================
L_MALE_APPLY:
	// ûʾ˳
	if(getcharid(1)==0)
	{
		mes "[ ]";
		mes "Ŷ";
		mes "Ⱥİ^FF0000^000000";
		close;
		end;
	}

	// Ѿʼ飬ʾȺ
	if($@tmp_party_id!=0)
	{
		mes "[ ]";
		mes "ţѾ";
		mes "ӣ㲻òһ";
		mes "˼";
		close;
		end;
	}

	// ʯָ
	if(countitem(2613)<1)
	{
		mes "[ ]";
		mes "Ǵ";
		mes "ָʱҪõʯָˣ";
		mes "ǲǷڱĵطأ";
		mes "ϸ֮Ұ";
		close;
		end;
	}

	// ǼǷ
	if(zeny<1300000)
	{
		next;
		mes "[ ]";
		mes "ϵֽ";
		close;
		end;
	}

	// β
	if(countitem(7170)<1)
	{
		next;
		mes "[ ]";
		mes "˴";
		close;
		end;
	}

	// ȫ۳
	delitem 2613,1;
	set zeny,zeny-1300000;

	// ݴAIDNAME
	set $@marry_male,getcharid(0);
	set $@marry_male_name$,strcharinfo(0);

	// ݴPARTY ID
	set $@tmp_party_id,getcharid(1);

	// ״̬Ϊϣ
	set EVENT_MARRIAGE_APPLY,1; 

	mes "[ ]";
	mes "ţ뵽¡ȥ";
	mes "»Ϊֻ";
	mes "^FF00005^000000ɻŶ";

	// зϣʼʱ
	initnpctimer "TimerMarriage";
	close;
	end;

//	===================ų=========================
A04:
	enablenpc "wed01";
	enablenpc "wed02";
	enablenpc "wed03";
	enablenpc "wed04";
	enablenpc "wed05";
	enablenpc "wed06";
	emotion 23;
	mes "[ ]";
	mes "ҪԼŻö";
	mes "ڶѨݳ޵Ϊ";
	mes "ҿʩ³͵ NPC";
	mes "ӳתְԼģ";
	mes "ʥڵʱ򣬵β";
	mes "޵еĵţ";
	next;
	emotion 4;
	disablenpc "wed01";
	disablenpc "wed02";
	disablenpc "wed03";
	disablenpc "wed04";
	disablenpc "wed05";
	disablenpc "wed06";
	close;
	end;

A05:
	//ʽ˻.¿ʼ
	//if ( EVENT_MARRIAGE_APPLY == 3 ) goto L_MARRIAGED;
	if(PartnerId!=0)
	{
		mes "[ ]";
		mes "Ŷ";
		mes "ѾкϷİ";
		mes "ôأ";
		close;
		end;
	}
	mes "[ ]";
	mes "¿ʼҲ";
	mes "ϣҵʵİ";
	set EVENT_MARRIAGE_APPLY,0;
	close;
	end;
}

// ļʱӿʼ涨ʱ䣺5
prt_church.gat,97,99,0	script	TimerMarriage	-1,{
	end;

// 5ӵǿƽ񣬲ʱݹ㣡
OnTimer300000:
	announce $@marry_male_name$ + "" + $@marry_female_name$ + "Ļֹˣ",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;
}

// ţ飡
prt_church.gat,97,102,0	script	 ::wed01	105,{
	close;
OnInit:
	disablenpc "wed01";
	end;
}

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

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

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

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

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