//==============================================
// ű by FPE
// Jathena++ ̳http://www.foxofice.net/bbs
// ֻҪߣ۽Ƿߣ100%ɹ
// ޸CAĬϽűеһжϡԭġif ( EVENT_MARRIAGE_APPLY == 3 ) goto L_MARRIAGED;޸Ϊif (PartnerId!=0) goto L_MARRIAGED;
// ãǷнָûнָѡ¿ʼͿ½ˡ޸⴦طûӰԭűűﵽ100%޴Ի99%ȡԹ100%չ
//----------------------------------------------

nif_in.gat,190,112,5	script	Сħ#	738,{
	if(PartnerId==0)
	{
		mes "[Сħ]";
		mes "ൽᶼһ˵ġ";
		mes "įֻʱѣ";
		mes "įĻһֻô?";
		mes "Сħܻӭ!";
		close;
		end;
	}
	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 "Լɵ!!";
	next;
	mes "[Сħ]";
	mes "ҲҪԷͬ⣬";
	mes "ԸĻҲ׹ɣ";
	mes "Ҫ뿪ĶԷ";
	mes "... ҪҰ?";
	mes "ʹЧ...!";
	next;
	menu	"ںҸ",-,
		"ԣԼ",Select_Divorce1;
	mes "[Сħ]";
	mes "ߣߣ֮... ֮!!";
	mes "һڵ";
	mes "Сħ!! Ҹ";
	mes "άֶ!!";
	next;
	warp niflheim,169,162;
	close;
	end;

Select_Divorce1:
	mes "[Сħ]";
	mes "ðɣĲҪֻҪ";
	mes "ļ2,500,000Ҿ͹ˣ";
	mes "صǰɣ";
	mes "԰? ? ?";
	mes "ǽԼ?";
	next;
	menu	"...ٿһ",-,
		"Ҫ֮Լ",Select_Divorce2;
	mes "[Сħ]";
	mes "ٿأൽ";
	mes "һ˵! ׼ʽ׼";
	mes "߶׼֮Ұ...";
	mes ".....";
	close;
	end;

Select_Divorce2:
	mes "[Сħ]";

	if(Zeny<2500000)
	{
//ȱ˲GFĶԻݣʱݲ䡣
	mes "? ϵĽǮร";
	mes "ȥ׬2,500,000";
	mes "ɾԼõ...!";
	close;
	end;
	}

	set @Divorce_Result,divorce();
	if(@Divorce_Result==0)
	{
	mes "...";
	close;
	end;
	}

	set @your_name$,strcharinfo(0);
	set @partner_name$,getcharname(@Divorce_Result);
	if(sex==0) announce @your_name$ + "С" + @partner_name$ + "",16;
	if(sex==1) announce @your_name$ + "" + @partner_name$ + "С",16;
	heal 1-Hp,-Sp;
	set zeny,zeny-2500000;
	mes "һ!";
	mes "!";
	mes "ѳصȫ׿!";
	mes "ҪлСħ.....!";
	close;
	end;
}

niflheim.gat,165,162,0	warp	divorce1	3,3,nif_in.gat,189,105
nif_in.gat,186,105,0	warp	divorce2	3,3,niflheim.gat,168,163