//==============================================
// B} by FPE
// Jathena++ ׾¡Ghttp://www.foxofice.net/bbs
// uݭnbuAL׵BQO_buA100%B\C
// קFCAq{B}@BP_CӪuif ( EVENT_MARRIAGE_APPLY == 3 ) goto L_MARRIAGED;vAקאּuif (PartnerId!=0) goto L_MARRIAGED;vC
// @ΡGˬdO_B٫ApGSB٫hiHܡus}lvAo˴NiHsBFCקoBa褣SvTӵB}`B@AӥBXFB}AF100%LCܤe99%ۤAABy{100%ӤAC
//----------------------------------------------

nif_in.gat,190,112,5	script	pc]#B	738,{
	if(PartnerId==0)
	{
		mes "[pc]]";
		mes "سسءKH᳣̫O@ӤHC";
		mes "I檺߱uOȮɦӤwA";
		mes "I檺ܾi@d˩O?";
		mes "̪ڤpc]ܨw!";
		close;
		end;
	}
	mes "[pc]]";
	mes "ݰ_ӪӦn... ";
	mes "ᮬƶ? AnDڤ@I";
	mes "Qıo֪HA";
	mes "pc]墨ؤH";
	mes "@I쳣SAسس";
	next;
	mes "[pc]]";
	mes "䥦b@ݧAnFA";
	mes "Bᩯֶ? nQ";
	mes "RR... ڤֳM";
	mes "bRB§I";
	mes "õ۵LƪD";
	next;
	mes "[pc]]";
	mes "SAAӨo̤]O";
	mes "@ةRBAڤ]DOQn";
	mes "ܥӤHͪNӡA";
	mes "NOӿեëHA";
	mes "]`@ѷ|\٪...!";
	next;
	mes "[pc]]";
	mes "k²! ҿתBä]O";
	mes "@ءAunU";
	mes "pc]ܥiHܮe";
	mes "A... AѶ?";
	mes "ۤvLۦۥѪͬO!!";
	next;
	mes "[pc]]";
	mes "]ݭn誺PNA";
	mes "@NܡA]\|YJsʱaA";
	mes "n}";
	mes "... nA?";
	mes "iHϱBõLĳ...!";
	next;
	menu	"Aڲ{bܩ",-,
		"AڷQۤvLͬ",Select_Divorce1;
	mes "[pc]]";
	mes "AAQ... Q!!";
	mes "`@ѷ|ᮬAӧ";
	mes "pc]O!! @A";
	mes "|h[!!";
	next;
	warp niflheim,169,162;
	close;
	end;

Select_Divorce1:
	mes "[pc]]";
	mes "naA䥦ݭnAun";
	mes "Aߤ2,500,000NFA";
	mes "^쵲BeͬaA";
	mes "iHa? ? Oo˶?";
	mes "OѰB?";
	next;
	menu	"...ڦAҼ{@U",-,
		"ڷQnIXNѰB",Select_Divorce2;
	mes "[pc]]";
	mes "AҼ{OAH᳣̫O";
	mes "@ӤH! ߸̪ǳƤθǳơA";
	mes "̳ǳƦnFAӧڧa...";
	mes "سسسس.....";
	close;
	end;

Select_Divorce2:
	mes "[pc]]";

	if(Zeny<2500000)
	{
//ʦGFܤeAH{ɥ[WLeɥRC
	mes "? AWA";
	mes "IhȰ2,500,000";
	mes "Nۤvnsͬa...!";
	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$ + "pjM" + @partner_name$ + "ͤwBF",16;
	if(sex==1) announce @your_name$ + "ͩM" + @partner_name$ + "pjwBF",16;
	heal 1-Hp,-Sp;
	set zeny,zeny-2500000;
	mes "سسءAA{bO@ӤHF!";
	mes "ۥѤFO!";
	mes "I߱߶}!";
	mes "nP¤pc].....!";
	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