离婚任务.txt

JA++的最新...很多ROSF都用这个 ] 是个不错的东西-3-

//==============================================
// 离婚脚本 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