HERO引擎脚本纳妾系统GM爱好者 - Powered by Discuz! Archiver

和你相伴1 发表于 2023-7-8 17:53:51

HERO引擎脚本纳妾系统

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>

馥琳发表于 2023-7-9 18:49:41

论坛不能没有像楼主这样的人才啊！我会一直支持GM爱好者：www.gmahz.com

964618346 发表于 2023-7-10 06:42:35

楼主发贴辛苦了，谢谢楼主分享！我觉得GM爱好者：www.gmahz.com是注册对了！

睿智奔腾小马 发表于 2023-7-10 16:25:29

楼主，大恩不言谢了！GM爱好者：www.gmahz.com是最棒的！

迷糊的同学 发表于 2023-7-11 15:44:49

其实我一直觉得楼主的品味不错！呵呵！GM爱好者：www.gmahz.com太棒了！

傅启轩 发表于 2023-7-12 19:22:02

这东西我收了！谢谢楼主！GM爱好者：www.gmahz.com真好！

琦灵怪杰 发表于 2023-7-12 19:23:03

路过支持一下

毛毛小雨 发表于 2023-7-12 22:28:33

金币我要攒金币！！！

渐行渐远的爱情 发表于 2023-7-21 18:10:34

拿币走人。。。。

阳光里的他 发表于 2023-8-8 07:54:51

我看不错噢谢谢楼主！GM爱好者：www.gmahz.com越来越好！

页: [1] 2

GM爱好者's Archiver

HERO引擎脚本纳妾系统