全国最新最独特的结婚系统

[@全新结婚]
{
#SAY
　　全国最新最独特的结婚系统——<COLOR=green 一夫多妻制>！在我们的游戏\
世界里，允许男人进行多妻制！你可以最高娶<COLOR=green 7个老婆>，让你做\
<COLOR=green 现代韦小宝>！赶快向那些漂亮MM发起进攻吧！\\
　　 <请输入你要求婚的对象名字/@求婚开始>\
　　 <查看我所有老婆名字/@查看老婆>\
　　 <我要强行与人私奔/@sbbb>--------女方离婚\
　　 <离开/@exit>

[@sbbb]
　　你想背叛你当前的老公与人私奔？首先要告诉你这是很可耻\
的行为，当然人生是自由的，如果你确定要这样做，我们也不会\
阻拦你的！不过要收取你100元宝作为惩罚！\\
　　 <不就是钱么？没什么了不起，我决定与人私奔了！/@jueding>\\
　　 <还是算了/@exit>

[@jueding]
#IF
gender MAN
#ACT
messagebox 人妖一边去玩，这里只给女人私奔用的！
break
close
#IF
Check [109] 0
#ACT
messagebox 你都还是单身中，你想和谁离婚啊？？？
break
close
#IF
CHECKGAMEGOLD > 99
#ACT
GAMEGOLD - 100
CALCVAR HUMAN 消费 + 100
SAVEVAR HUMAN 消费 ..\QuestDiary\数据\消费.txt
SET [109] 0
CALCVAR HUMAN JH8 = 无人
SAVEVAR HUMAN JH8 ..\QuestDiary\数据\JH8.txt
GMEXECUTE 配偶 $USERNAME 无
MessageBox 你终于解放了，离婚成功！
close
#ELSEACT
MessageBox 对不起，您的元宝不足！需要100元宝才能离婚！
break

[@查看老婆]
#IF
gender WOMAN
#ACT
messagebox 很遗憾，只能男性玩家才能使用本功能！
break
#ELSESAY
你目前的<COLOR=green 老婆>数量为：<$HUMAN(JH0)>位！\\
　　 <休/@休1><COLOR=red 大老婆>：<$HUMAN(JH1)>\
　　 <休/@休2>二老婆：<$HUMAN(JH2)>\
　　 <休/@休3>三老婆：<$HUMAN(JH3)>\
　　 <休/@休4>四老婆：<$HUMAN(JH4)>\
　　 <休/@休5>五老婆：<$HUMAN(JH5)>\
　　 <休/@休6>六老婆：<$HUMAN(JH6)>\
　　 <休/@休7>小老婆：<$HUMAN(JH7)>　　　　　　　　　　　　　<返回/@main>

[@休1]
#IF
gender WOMAN
#ACT
messagebox 很遗憾，只能男性玩家才能使用本功能！
break
#IF
CHECKVAR HUMAN JH1 = 无人
#ACT
messagebox 很遗憾，你目前还没有大老婆，不能使用休妻功能！
break
#ELSESAY
你确定要将你的<COLOR=green 大老婆>：<$HUMAN(JH1)>　休掉吗？\\
休掉就等于和她离婚！需要支付<COLOR=red 10个元宝>才能进行！\\
你确定要这么做么？\\
<我确定要休掉她/@修掉1>\\
<暂时不需要/@exit>

[@修掉1]
#IF
CHECKGAMEGOLD < 10
#ACT
messagebox 很遗憾，你没有10个元宝，不能进行休妻！
break
close
#IF
CHECKONLINE $HUMAN(JH1)
#ACT
GAMEGOLD - 10
CALCVAR HUMAN JH0 - 1
SAVEVAR HUMAN JH0 ..\QuestDiary\数据\JH0.txt
hcall $HUMAN(JH1) @老公休妻
messagebox 你已经成功的将你大老婆[<$HUMAN(JH1)>]休掉了！\　\现在开始你又可以另娶她房了！
GOTO @清空名字1
break
#ELSEACT
ADDVARLIST $HUMAN(JH1) ..\QuestDiary\数据\休妻名单.txt
CALCVAR HUMAN JH0 - 1
SAVEVAR HUMAN JH0 ..\QuestDiary\数据\JH0.txt
GOTO @清空名字1

[@清空名字1]
#ACT
CALCVAR HUMAN JH1 = 无人
SAVEVAR HUMAN JH1 ..\QuestDiary\数据\JH1.txt
close
;==============================================================================================

[@休2]
#IF
gender WOMAN
#ACT
messagebox 很遗憾，只能男性玩家才能使用本功能！
break
#IF
CHECKVAR HUMAN JH2 = 无人
#ACT
messagebox 很遗憾，你目前还没有二老婆，不能使用休妻功能！
break
#ELSESAY
你确定要将你的<COLOR=green 二老婆>：<$HUMAN(JH2)>　休掉吗？\\
休掉就等于和她离婚！需要支付<COLOR=red 10个元宝>才能进行！\\
你确定要这么做么？\\
<我确定要休掉她/@修掉2>\\
<暂时不需要/@exit>

[@修掉2]
#IF
CHECKGAMEGOLD < 10
#ACT
messagebox 很遗憾，你没有10个元宝，不能进行休妻！
break
close
#IF
CHECKONLINE $HUMAN(JH2)
#ACT
GAMEGOLD - 10
CALCVAR HUMAN JH0 - 1
SAVEVAR HUMAN JH0 ..\QuestDiary\数据\JH0.txt
hcall $HUMAN(JH2) @老公休妻
messagebox 你已经成功的将你老婆[<$HUMAN(JH2)>]休掉了！\　\现在开始你又可以另娶她房了！
GOTO @清空名字2
break
#ELSEACT
ADDVARLIST $HUMAN(JH2) ..\QuestDiary\数据\休妻名单.txt
CALCVAR HUMAN JH0 - 1
SAVEVAR HUMAN JH0 ..\QuestDiary\数据\JH0.txt
GOTO @清空名字2

[@清空名字2]
#ACT
CALCVAR HUMAN JH2 = 无人
SAVEVAR HUMAN JH2 ..\QuestDiary\数据\JH2.txt
close
;==============================================================================================

[@休3]
#IF
gender WOMAN
#ACT
messagebox 很遗憾，只能男性玩家才能使用本功能！
break
#IF
CHECKVAR HUMAN JH3 = 无人
#ACT
messagebox 很遗憾，你目前还没有三老婆，不能使用休妻功能！
break
#ELSESAY
你确定要将你的<COLOR=green 三老婆>：<$HUMAN(JH3)>　休掉吗？\\
休掉就等于和她离婚！需要支付<COLOR=red 10个元宝>才能进行！\\
你确定要这么做么？\\
<我确定要休掉她/@修掉3>\\
<暂时不需要/@exit>

[@修掉3]
#IF
CHECKGAMEGOLD < 10
#ACT
messagebox 很遗憾，你没有10个元宝，不能进行休妻！
break
close
#IF
CHECKONLINE $HUMAN(JH3)
#ACT
GAMEGOLD - 10
CALCVAR HUMAN JH0 - 1
SAVEVAR HUMAN JH0 ..\QuestDiary\数据\JH0.txt
hcall $HUMAN(JH3) @老公休妻
messagebox 你已经成功的将你老婆[<$HUMAN(JH3)>]休掉了！\　\现在开始你又可以另娶她房了！
GOTO @清空名字3
break
#ELSEACT
ADDVARLIST $HUMAN(JH3) ..\QuestDiary\数据\休妻名单.txt
CALCVAR HUMAN JH0 - 1
SAVEVAR HUMAN JH0 ..\QuestDiary\数据\JH0.txt
GOTO @清空名字3

[@清空名字3]
#ACT
CALCVAR HUMAN JH3 = 无人
SAVEVAR HUMAN JH3 ..\QuestDiary\数据\JH3.txt
close

;==============================================================================================

[@休4]
#IF
gender WOMAN
#ACT
messagebox 很遗憾，只能男性玩家才能使用本功能！
break
#IF
CHECKVAR HUMAN JH4 = 无人
#ACT
messagebox 很遗憾，你目前还没有四老婆，不能使用休妻功能！
break
#ELSESAY
你确定要将你的<COLOR=green 四老婆>：<$HUMAN(JH4)>　休掉吗？\\
休掉就等于和她离婚！需要支付<COLOR=red 10个元宝>才能进行！\\
你确定要这么做么？\\
<我确定要休掉她/@修掉4>\\
<暂时不需要/@exit>

[@修掉4]
#IF
CHECKGAMEGOLD < 10
#ACT
messagebox 很遗憾，你没有10个元宝，不能进行休妻！
break
close
#IF
CHECKONLINE $HUMAN(JH4)
#ACT
GAMEGOLD - 10
CALCVAR HUMAN JH0 - 1
SAVEVAR HUMAN JH0 ..\QuestDiary\数据\JH0.txt
hcall $HUMAN(JH4) @老公休妻
messagebox 你已经成功的将你老婆[<$HUMAN(JH4)>]休掉了！\　\现在开始你又可以另娶她房了！
GOTO @清空名字4
break
#ELSEACT
ADDVARLIST $HUMAN(JH4) ..\QuestDiary\数据\休妻名单.txt
CALCVAR HUMAN JH0 - 1
SAVEVAR HUMAN JH0 ..\QuestDiary\数据\JH0.txt
GOTO @清空名字4

[@清空名字4]
#ACT
CALCVAR HUMAN JH4 = 无人
SAVEVAR HUMAN JH4 ..\QuestDiary\数据\JH4.txt
close
;==============================================================================================

[@休5]
#IF
gender WOMAN
#ACT
messagebox 很遗憾，只能男性玩家才能使用本功能！
break
#IF
CHECKVAR HUMAN JH5 = 无人
#ACT
messagebox 很遗憾，你目前还没有五老婆，不能使用休妻功能！
break
#ELSESAY
你确定要将你的<COLOR=green 五老婆>：<$HUMAN(JH5)>　休掉吗？\\
休掉就等于和她离婚！需要支付<COLOR=red 10个元宝>才能进行！\\
你确定要这么做么？\\
<我确定要休掉她/@修掉5>\\
<暂时不需要/@exit>

[@修掉5]
#IF
CHECKGAMEGOLD < 10
#ACT
messagebox 很遗憾，你没有10个元宝，不能进行休妻！
break
close
#IF
CHECKONLINE $HUMAN(JH5)
#ACT
GAMEGOLD - 10
CALCVAR HUMAN JH0 - 1
SAVEVAR HUMAN JH0 ..\QuestDiary\数据\JH0.txt
hcall $HUMAN(JH5) @老公休妻
messagebox 你已经成功的将你老婆[<$HUMAN(JH5)>]休掉了！\　\现在开始你又可以另娶她房了！
GOTO @清空名字5
break
#ELSEACT
ADDVARLIST $HUMAN(JH5) ..\QuestDiary\数据\休妻名单.txt
CALCVAR HUMAN JH0 - 1
SAVEVAR HUMAN JH0 ..\QuestDiary\数据\JH0.txt
GOTO @清空名字5

[@清空名字5]
#ACT
CALCVAR HUMAN JH5 = 无人
SAVEVAR HUMAN JH5 ..\QuestDiary\数据\JH5.txt
close
;==============================================================================================

[@休6]
#IF
gender WOMAN
#ACT
messagebox 很遗憾，只能男性玩家才能使用本功能！
break
#IF
CHECKVAR HUMAN JH6 = 无人
#ACT
messagebox 很遗憾，你目前还没有六老婆，不能使用休妻功能！
break
#ELSESAY
你确定要将你的<COLOR=green 六老婆>：<$HUMAN(JH6)>　休掉吗？\\
休掉就等于和她离婚！需要支付<COLOR=red 10个元宝>才能进行！\\
你确定要这么做么？\\
<我确定要休掉她/@修掉6>\\
<暂时不需要/@exit>

[@修掉6]
#IF
CHECKGAMEGOLD < 10
#ACT
messagebox 很遗憾，你没有10个元宝，不能进行休妻！
break
close
#IF
CHECKONLINE $HUMAN(JH6)
#ACT
GAMEGOLD - 10
CALCVAR HUMAN JH0 - 1
SAVEVAR HUMAN JH0 ..\QuestDiary\数据\JH0.txt
hcall $HUMAN(JH6) @老公休妻
messagebox 你已经成功的将你老婆[<$HUMAN(JH6)>]休掉了！\　\现在开始你又可以另娶她房了！
GOTO @清空名字6
break
#ELSEACT
ADDVARLIST $HUMAN(JH6) ..\QuestDiary\数据\休妻名单.txt
CALCVAR HUMAN JH0 - 1
SAVEVAR HUMAN JH0 ..\QuestDiary\数据\JH0.txt
GOTO @清空名字6

[@清空名字6]
#ACT
CALCVAR HUMAN JH6 = 无人
SAVEVAR HUMAN JH6 ..\QuestDiary\数据\JH6.txt
close
;==============================================================================================

[@休7]
#IF
gender WOMAN
#ACT
messagebox 很遗憾，只能男性玩家才能使用本功能！
break
#IF
CHECKVAR HUMAN JH7 = 无人
#ACT
messagebox 很遗憾，你目前还没有小老婆，不能使用休妻功能！
break
#ELSESAY
你确定要将你的<COLOR=green 小老婆>：<$HUMAN(JH7)>　休掉吗？\\
休掉就等于和她离婚！需要支付<COLOR=red 10个元宝>才能进行！\\
你确定要这么做么？\\
<我确定要休掉她/@修掉7>\\
<暂时不需要/@exit>

[@修掉7]
#IF
CHECKGAMEGOLD < 10
#ACT
messagebox 很遗憾，你没有10个元宝，不能进行休妻！
break
close
#IF
CHECKONLINE $HUMAN(JH7)
#ACT
GAMEGOLD - 10
CALCVAR HUMAN JH0 - 1
SAVEVAR HUMAN JH0 ..\QuestDiary\数据\JH0.txt
hcall $HUMAN(JH7) @老公休妻
messagebox 你已经成功的将你老婆[<$HUMAN(JH7)>]休掉了！\　\现在开始你又可以另娶她房了！
GOTO @清空名字7
break
#ELSEACT
ADDVARLIST $HUMAN(JH2) ..\QuestDiary\数据\休妻名单.txt
CALCVAR HUMAN JH0 - 1
SAVEVAR HUMAN JH0 ..\QuestDiary\数据\JH0.txt
GOTO @清空名字7

[@清空名字7]
#ACT
CALCVAR HUMAN JH7 = 无人
SAVEVAR HUMAN JH7 ..\QuestDiary\数据\JH7.txt
close

[@求婚开始]
#IF
gender WOMAN
#ACT
messagebox 很遗憾，只能男性玩家才能发起求婚申请！
break
#IF
CHECKLEVELEX < 50
#ACT
messagebox 很遗憾，你的等级还没有到50级！不能使用结婚功能！
break
#IF
CHECKVAR HUMAN JH0 > 6
#ACT
messagebox 很遗憾，你的老婆数量已经有7位了！不能再结婚了！
break
#ELSEACT
queryvalue 请输入你想求婚的玩家名字: 2 30 3907
break

[@getstring3907]
#IF
EQUAL I28 0
#ACT
Getstring s5
CALCVAR GLOBAL QLS = $USERNAME
#ELSEACT
messagebox 当前有人正在使用本功能！同一时间只能一人使用！\　\如要使用请在[<$STR(I28)>]秒后再用！！！
break
#IF
CHECKLEVELEX > 0
#ACT
#ELSEACT
break
#IF
EQUAL s5 $USERNAME
#ACT
messagebox 请不要输入自己的名字！！！
break
#IF
CHECKONLINE $STR(s5)
#ACT
MOV I28 10
hcall $STR(s5) @求婚对象检测
#SAY
求婚请求已经成功发送，请等待对方的答复！\\
本申请10秒内有效!\\
<离开/@exit>
#ELSEACT
messagebox 很遗憾，你刚输入的玩家名字不在线！不能求婚！
break

}

www.760066.com 魔兽世界私服魔兽