HERO引擎脚本纳妾系统

GM版本库

HERO引擎脚本纳妾系统
==============================
下载地址： HERO引擎脚本纳妾系统.txt (49 Bytes, 下载次数: 0, 售价: 100 元宝)

2017-11-27 21:00 上传

点击文件名下载附件
HERO引擎脚本纳妾系统

==============================
(@@InPutString @@InPutInteger)
[@MAIN]
#IF
checkmarry
gender man
#ACT
CloseBigDialogBox
MOV S2
#SAY
<$USERNAME>,什么都不要说！这个我懂得！您是不是看上了哪位小姐？\
但是您又舍不得您的爱人！我知道你们的国家法律不允许一夫二妻制！\
不过这是在玛法世界！我可以允许你纳她为妾！不过请先看下规则！\
<1.你要纳妾的人和您的老婆必须在线且都在你身边,首先需输入对方名字征得老婆同意./SCOLOR=250>\
<2.成功纳妾后将无条件给与原配1万元宝作为补偿/SCOLOR=249>\
<3.纳妾成功后可以获得“幽会”技能可以跟小妾无限制偷情哦！/SCOLOR=239>\
<5.同时若双方在一定范围内可以获得属性点的加成/SCOLOR=229>\
<5.若要分手需征得对方同意！强制分手需向对方支付1万元宝安家费/SCOLOR=229>\
<我要纳妾/@我要纳妾>          <和平分手/@和平分手>          <强行分手/@强行分手>\
#ELSEACT
MESSAGEBOX [错误]:您还没结婚或者您是位女士所以不能领小妾！等变性后结了婚再来找我吧!
[@我要纳妾]
#IF
CHECKVAR HUMAN $恋爱状态 =
#ELSEACT
GOTO @MAIN
MESSAGEBOX [错误]:我勒个去！您都纳了一位妾了还要再纳呀！你当你是皇帝么？或者再等30秒再来
break


#IF
CHECKLEVELEX > 0
#ACT
#SAY
<再次声明您要与对方面对面！并且您的老婆也要在线！/SCOLOR=250>\
<您的老婆要在你们身边否则命令无法接收！/SCOLOR=250>\
<其次您要准备好1万元宝作为您小妾的补偿！/SCOLOR=250>\
<选择和平分手须向对方支付5千元宝且需征得小妾同意/SCOLOR=250>\
<强行分手需向对方支付一万元宝！/SCOLOR=250>\

<准备好了/@@InPutString11>           <和平分手/@和平分手>             <强行分手/@强行分手> \

[@和平分手]
#IF
CHECKVAR HUMAN $恋爱状态 = 已恋爱
#ACT
MOV S2 <$HUMAN($恋爱对象)>
#ELSEACT
GOTO @MAIN
MESSAGEBOX [错误]:你并没有纳妾.
break


#IF
CheckOnline <$STR(S2)>
#ACT
GOTO @开始分手
#ELSEACT
GOTO @MAIN
MESSAGEBOX [错误]:恋爱对象[<$STR(S2)>]玩家并不在线!
break


[@开始分手]
#IF
#ACT
S2.CALCVAR HUMAN $恋爱状态 = 和平分手吧
S2.CALCVAR HUMAN $恋爱对象 = <$USERNAME>
GMEXECUTE StartQuest @好聚好散
#SAY
　\ \
　　已向对方提出分手申请，请耐心等待答复...\ \
　    如果对方拒绝，不扣除元宝.\ \




[@强行分手]
#IF
CHECKVAR HUMAN $恋爱状态 = 已恋爱
#ELSEACT
GOTO @MAIN
MESSAGEBOX [错误]:你并没有恋爱.
break

#IF
CHECKGAMEGOLD > 9999
checkmarry
#ACT
goto @老婆下线
GAMEGOLD - 10000
AddTextList .\QuestDiary\数据文件\强制休妾名单.txt <$HUMAN($恋爱对象)>
AddTextList .\QuestDiary\数据文件\强制解除姐妹关系名单.txt <$HUMAN($恋爱对象)>
CALCVAR HUMAN $恋爱状态 =
CALCVAR HUMAN $恋爱对象 =
SAVEVAR HUMAN $恋爱状态 ..\QuestDiary\数据文件\纳妾数据.txt
SAVEVAR HUMAN $恋爱对象 ..\QuestDiary\数据文件\纳妾数据.txt
DELSKILL 幽会
#CALL [\封号系统\封号系统.txt] @封号系统
GuildNoticeMsg 249 253 玩家[%s]这个负心汉强制休了自己的小妾！让我们为他这种行为感到不齿！
GMEXECUTE StartQuest @清理恋爱关系
MESSAGEBOX 你强制解除恋爱关系
close
break
#ELSEACT
GOTO @MAIN
MESSAGEBOX [错误]:你并没有10000元宝作为分手费！
break

[@CallInPutString11]


#IF
CheckOnline <$STR(S11)>
#ELSEACT
GOTO @我要纳妾
MESSAGEBOX [错误]:恋爱对象[<$STR(S11)>]玩家并不在线!
break


#IF
checkmarry
CheckOnline <$FQNAME>
#act
CloseBigDialogBox
MOV S21 <$FQNAME>
S21.GOTO @指示
#SAY



<请等待老婆的指示...../SCOLOR=250>\
#ELSEACT
GOTO @MAIN
MESSAGEBOX [错误]:您的老婆[<$FQNAME>]并不在线!等他来了再说吧!\\
[@指示]
#IF
checkmarry
#act
#call [\纳妾系统\老婆意见.txt] @是否同意


[@老婆下线]
#IF
CheckOnline <$FQNAME>
#act
MOV S21 <$FQNAME>
S21.GOTO @下线
#ELSEACT
GOTO @写进名单

[@下线]
#IF
#act
#call [\纳妾系统\下线解除.txt] @下线解除
#CALL [\封号系统\封号系统.txt] @封号系统

[@写进名单]
#IF
#act
AddTextList .\QuestDiary\数据文件\强制解除姐妹关系名单.txt <$FQNAME>