|
马上注册 立即下载
您需要 登录 才可以下载或查看，没有账号？立即注册
x
HERO引擎脚本纳妾系统
==============================
下载地址：static/image/filetype/text.gifHERO引擎脚本纳妾系统.txt(49 Bytes, 下载次数: 0, 售价: 100 元宝)<div class="tip tip_4" id="attach_472474_menu" style="position: absolute; display: none" disautofocus="true"><div class="tip_c xs0">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> |
|
关注Q群二维码
发表于 2023-7-8 17:53:51
