//===== rAthena Script ======================================= 
//= Divorcing Deviruchi
//===== By: ================================================== 
//= Perkka, Scriptor, LightFighter
//= L0ne_W0lf
//===== Current Version: ===================================== 
//= 1.5
//===== Compatible With: ===================================== 
//= rAthena SVN
//===== Description: ========================================= 
//= [Official Conversion]
//= Official Divorce script.
//= Added isloggedin() check, even though Aegis doesn't do it;
//= should be able to divorce even when the spouse is not online.
//===== Additional Comments: ================================= 
//= Both players should be online to get divorced
//= Fixed menu [Lupus]
//= 1.1 Added check if the patner's online, added effects [Lupus]
//= 1.2 Updated to Aegis 10.3 standards. [L0ne_W0lf]
//= 1.2a Commented out check of 'wedding_sign' to let
//=     old married players divorcing, optimized, fixed a bug [Lupus]
//= 1.3 Wedding variable 'wedding_sign' is now unset on divorce. [L0ne_W0lf]
//= 1.4 Removed ifpartneron check, fixed typo in percentheal. [L0ne_W0lf]
//= 1.5 Replaced effect numerics with constants. [L0ne_W0lf]
//============================================================ 

nif_in,190,112,5	script	Deviruchi#divorce	738,{
	mes "[Сħ]";
//	if (wedding_sign == 0) {
//		mes " ...";
//		mes "žɥ.";
//		mes "һоǳĹ¶.";
//		mes "Щÿ";
//		mes "봦.";
//		next;
//		mes "[Сħ]";
//		mes "ô¶,";
//		mes "ȥ?";
//		mes "˵";
//		mes "Ǻеİ, ~";
//		close;
//	}
//	else 
  	if (!getpartnerid()) {
		mes "   ~!";
		mes "ҵ۾~!";
		if (Sex) {
			mes "峺۾";
			mes "һλе.";
			mes "Ұٷְȷ";
			mes "ʥ̳ǰ汻.";
		}
		else {
			mes "˵ֻ";
			mes "һʹϴŮ--!";
			mes "㲻ǿһ";
			mes "ȥ飬԰?";
		}
		next;
		mes "[Сħ]";
		mes "HHAHAHAHA~!";
		mes "Oooooh...ٺ ~";
		mes "֪Ǻڰ,";
		mes "һͬĵ";
		close;
	}
	mes "㿴ǳľɥ...";
	mes "ף, ڿֵ";
	mes "ҲŲע...";
	mes "ľ";
	mes "Ȥ.";
	mes "~!";
	next;
	mes "[Сħ]";
	mes "ܸܵ";
	mes "Яķ...";
	mes "û´Ļ";
	if (Sex)
		mes "һ˽, ԰?";
	else
		mes "һŮ˽, ԰?";
	next;
	mes "[Сħ]";
	mes "һ.";
	mes "оô?";
	mes "Լ,";
	mes "Ķ";
	mes ".";
	next;
	mes "[Сħ]";
	mes "ҵ˼, һ";
	mes "ܴҸô";
	mes "֪й";
	mes "رĻİ";
	mes "Ӧ,...";
	next;
	mes "[Сħ]";
	mes "һֹ֮, ";
	mes "ڶԴ, о";
	mes "ȫȫı.";
	if (Sex)
		mes "...ȫΪ.";
	else
		mes "...ȫΪ.";
	next;
	mes "[Сħ]";
	mes "ǵģעҪ";
	mes "Ƕ˴....";
	mes "㷢İ";
	mes "...";
	mes "ҿʹڰ";
	mes "Χнѳ.";
	next;
	mes "[Сħ]";
	mes "ѻ";
	mes "һֽͬĻ...";
	mes "һšҲҪһ𡱵ĺͬ";
	mes "ܽķ";
	mes "˵";
	mes "һС©...";
	next;
	mes "[Сħ]";
	mes "*С˵*";
	mes "^555555˵ⲻǴһ^000000";
	if (Sex) {
		mes "^555555, Ȼ";
		mes "֪ĻҲ";
		mes "ѵ㲻";
		mes "Χнѳô?^000000";
	}
	else {
		mes "^555555.Ȼ";
		mes "ɷ֪ĻҲ";
		mes "Ӧõõ";
		mes "Ҹ԰?^000000";
	}
	next;
	mes "[Сħ]";
	mes "õ";
	mes "һθĸ...";
	mes "Ǹô...?";
	mes "Ļܰ...";
	mes "ʹһз!";
	next;
	if (select("ˣллҹĺ.:ǵģ.") == 1) {
		mes "[Сħ]";
		mes "غ~! һ";
		mes "ԡİ";
		mes "ð,";
		mes "Ϊ㻹,";
		mes "ֵĻ";
		mes "ôҶûκ--!";
		close2;
		warp "niflheim",169,162;
		end;
	}
	mes "[Сħ]";
	mes "ܺ,ܺ...";
	mes "Ҫľ";
	mes "Щ...";
	mes "Ҫ 2,500,000 zeny ...*cough!*";
	mes "^666666һСƬ.^000000";
	next;
	mes "[Сħ]";
	mes "֮";
	mes "ǵĵ";
	mes "ҪΪʵ֣˵µĻ...";
	next;
	if (select("...ҵʱ.:Ը⸶Ǯ, ھ˰!") == 1) {
		mes "[Сħ]";
		mes ". ";
		mes "ʲôĻ뿼";
		if (Sex) {
			mes "ŵ߶, ";
			mes "ص˵";
			mes "ڴӻļ";
			mes "׵Ľų~";
		}
		else {
			mes "Ϲô,";
			mes "˵";
			mes "߽ѳж~";
		}
		close;
	}
	mes "[Сħ]";
	if (Zeny > 2499999) {
		mes "ǵѡ~";
		mes "ǿʼ";
		mes "Ҫʱ";
		mes "ܱ";
		mes "Ҫúܶ";
		mes "^FF0000Ϊµ.^000000";
		next;
		specialeffect EF_MAGICROD;
		specialeffect2 EF_DEVIL;
		set wedding_sign,0;
		set Zeny, Zeny-2500000;
		percentheal -100,-100;
		divorce;
		mes "[Сħ]";
		mes "۹~!";
		mes "~!";
		mes "ɵ";
		mes "ǲǸоö?";
		mes ",ĵ...";
		close;
	}
	mes "Hmmm...ǲǸ߹";
	mes "2,500,000 zenyô?";
	mes "û";
	mes "飬GMҲ...";
	mes "޼۵";
	mes "԰?";
	close;
}
