引擎传奇版本结义系统脚本制作教程

在NPC文件夹下面新建一个桃园三结义-3.txt，加入以下脚本
================================================================
(@@InPutString @@InPutInteger)
[@MAIN]
#IF
CHECKLEVELEX > 0
#ACT
CloseBigDialogBox
MOV S2
#SAY
<┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈/SCOLOR=13>\
<结义系统/SCOLOR=254> <Hot~/SCOLOR=249>　<一支穿云箭,生挂之交来相见!  菜菜制作 /SCOLOR=31>\
<┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈/SCOLOR=13>\
<1.你要结义的人必须在线,输入结义对象名字并提交即可./SCOLOR=239>\
<2.结义时将收取/SCOLOR=239><各方各6万元宝费用/SCOLOR=249> <6万元宝就可以得到生挂之交/SCOLOR=239>\
<1.结义后可/SCOLOR=239><使用"穿云箭"技能/SCOLOR=249><进行无限制互相传送(任何地图)./SCOLOR=239>\
<1.解除结义收取各方2万元宝,强制解除收取执行方十万元宝./SCOLOR=239>\
<┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈/SCOLOR=13>\
<开始结义/@Mrrp_开始结义>          <解除结义/@Mrrp_解除结义>          <强制解除/@Mrrp_强制解除>\
<结义兄弟在五格范围内，触发双方50-50攻击加成/SCOLOR=13>\
[@Mrrp_开始结义]
#IF
CHECKVAR HUMAN $Mrrp_结义状态 =
#ELSEACT
GOTO @MAIN
MESSAGEBOX [错误]:你已经结义过了,无能再次结义.
break

#IF
CHECKLEVELEX > 0
#ACT
SetStringBlank S2 30 0
#SAY
<┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈/SCOLOR=13>\
<结义系统/SCOLOR=254> <Hot~/SCOLOR=249>　<一支穿云箭,生挂之交来相见!/SCOLOR=31>\
<┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈/SCOLOR=13>\
<结义说明:/SCOLOR=250>{<$STR(S2)>/SCOLOR=239}\
<1.你要结义的人必须在线,面对要结义的人然后点提交输入结义人姓名./SCOLOR=239>\
<2.结义时将收取/SCOLOR=239><各方各6万元宝费用/SCOLOR=249>，   <兄弟情深何言元宝/SCOLOR=239>\
<┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈/SCOLOR=13>\
<提交结义/@@InPutString11>           <解除结义/@Mrrp_解除结义>             <强制解除/@Mrrp_强制解除> \
<结义兄弟在五格范围内，触发双方50-50攻击加成/SCOLOR=13>\
[@Mrrp_解除结义]
#IF
CHECKVAR HUMAN $Mrrp_结义状态 = 已结义
#ACT
MOV S2 <$HUMAN($Mrrp_结义对象一)>
#ELSEACT
GOTO @MAIN
MESSAGEBOX [错误]:你并没有结义.
break


#IF
CheckOnline <$STR(S2)>
#ACT
GOTO @开始解除结义8
#ELSEACT
GOTO @MAIN
MESSAGEBOX [错误]:结义对象[<$STR(S2)>]玩家并不在线!
break


[@开始解除结义8]
#IF
#ACT
S2.CALCVAR HUMAN $Mrrp_结义状态 = 解除吧结义
S2.CALCVAR HUMAN $Mrrp_结义对象一 = <$USERNAME>
GMEXECUTE 开始提问 @解除抛弃结义
#SAY
\ \
已向对方提出解除结义申请，请耐心等待答复...\ \
如果对方拒绝，不扣除元宝.\ \

[@Mrrp_强制解除]
#IF
CHECKVAR HUMAN $Mrrp_结义状态 = 已结义
#ELSEACT
GOTO @MAIN
MESSAGEBOX [错误]:你并没有结义.
break


#IF
CHECKGAMEGOLD ? 100000
#ACT
GAMEGOLD - 100000
AddTextList .\QuestDiary\Mrrp系列脚本\结义系统\Mrrp_强制解除结义名单.txt <$HUMAN($Mrrp_结义对象一)>
CALCVAR HUMAN $Mrrp_结义状态 =
CALCVAR HUMAN $Mrrp_结义对象一 =
SAVEVAR HUMAN $Mrrp_结义状态 ..\QuestDiary\Mrrp系列脚本\结义系统\Mrrp_结义数据.txt
SAVEVAR HUMAN $Mrrp_结义对象一 ..\QuestDiary\Mrrp系列脚本\结义系统\Mrrp_结义数据.txt
DELSKILL 穿云箭
GuildNoticeMsg 239 0 玩家[%s]强制解除自己的结义兄弟，从此割袍断义，再见面就是仇人。
GMEXECUTE 开始提问 @Mrrp_清理结义
MESSAGEBOX 你强制解除结义
close
break
#ELSEACT
GOTO @MAIN
MESSAGEBOX [错误]:你并没用100000元宝!
break


[@CallInPutString11]
#IF
CHECKGAMEGOLD > 59999
#ELSEACT
MESSAGEBOX [错误]:元宝不足60000个！
BREAK


#IF
CHECKVAR HUMAN $Mrrp_结义状态 =
#ELSEACT
GOTO @MAIN
MESSAGEBOX [错误]:你已经结义过了,无能再次结义.
break

#IF
CheckOnline <$STR(S11)>
#ELSEACT
GOTO @Mrrp_开始结义
MESSAGEBOX [错误]:结义对象[<$STR(S11)>]玩家并不在线!
break

#IF
CHECKPOSEDIR
#ACT
GetOppositeHumName S0
GOTO @Mrrp_开始结义1
#ELSEACT
GOTO @Mrrp_开始结义
MESSAGEBOX [错误]:请与结义对象[<$STR(S11)>]玩家面对面!
break


[@Mrrp_开始结义1]
#IF
EQUAL S0 <$STR(S11)>
#ELSEACT
MESSAGEBOX [错误]:您对面的玩家并非你所输入的[<$STR(S11)>]玩家!
break

#IF
S0.CHECKVAR HUMAN $Mrrp_结义状态 =
#ELSEACT
MESSAGEBOX [错误]:你输入的玩家已经结义过了,无能再次结义.
BREAK


#IF
S0.CHECKGAMEGOLD > 59999
#ELSEACT
MESSAGEBOX [错误]:你输入的玩家元宝不足60000个
BREAK

#IF
#ACT
S0.CALCVAR HUMAN $Mrrp_结义状态 = 等待结义
S0.CALCVAR HUMAN $Mrrp_结义对象一 = <$USERNAME>
GMEXECUTE 开始提问 @Mrrp_结义提问
#SAY
\ \
已向对方提出结义申请，请耐心等待答复...\ \
如果对方拒绝，不扣除元宝.\ \

版权声明

1、本站所有内容均由互联网收集整理、网友上传，仅供大家参考、学习研究使用，不存在任何商业目的与商业用途。

2、论坛的所有内容都不保证其准确性，完整性，有效性，因本站内容因误导等因素而造成的损失本站不承担连带责任。

3、本站以《2013 中华人民共和国计算机软件保护条例》第二章 “软件著作权” 第十七条为原则：为了学习和研究软件内含的设计思想和原理，通过安装、显示、传输或者存储软件等方式使用软件的，可以不经软件著作权人许可，若有用户需要商用本站资源，请务必联系版权方购买正版授权！

楼主发贴辛苦了，谢谢楼主分享！感谢楼主提供这么好的论坛！

比较全的传奇脚本分享网站，站长辛苦了。

谢谢.脚本收到.很好用

这个帖子不回对不起自己！

感谢站长分享传奇脚本，让我学习到很多知识。

谢谢.脚本收到.很好用

喜欢这里的东西，方便又好用！

很专业的很全面的gm论坛

很专业的很全面的gm论坛