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

在NPC文件夹下面新建一个桃园三结义-3.txt，加入以下脚本

================================================================

(@@InPutString @@InPutInteger)

[@MAIN]

#IF

CHECKLEVELEX > 0

#ACT

CloseBigDialogBox

MOV S2

#SAY

<┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈/SCOLOR=13>\

<结义系统/SCOLOR=254> <Hot~/SCOLOR=249>　<一支穿云箭,生挂之交来相见!菜菜制作 /SCOLOR=31>\

<1.你要结义的人必须在线,输入结义对象名字并提交即可./SCOLOR=239>\

<2.结义时将收取/SCOLOR=239><各方各6万元宝费用/SCOLOR=249> <6万元宝就可以得到生挂之交/SCOLOR=239>\

<1.结义后可/SCOLOR=239><使用"穿云箭"技能/SCOLOR=249><进行无限制互相传送(任何地图)./SCOLOR=239>\

<1.解除结义收取各方2万元宝,强制解除收取执行方十万元宝./SCOLOR=239>\

<开始结义/@Mrrp_开始结义> <解除结义/@Mrrp_解除结义> <强制解除/@Mrrp_强制解除>\

<结义兄弟在五格范围内，触发双方50-50攻击加成/SCOLOR=13>\

[@Mrrp_开始结义]

CHECKVAR HUMAN $Mrrp_结义状态 =

#ELSEACT

GOTO @MAIN

MESSAGEBOX [错误]:你已经结义过了,无能再次结义.

break

SetStringBlank S2 30 0

<结义系统/SCOLOR=254> <Hot~/SCOLOR=249>　<一支穿云箭,生挂之交来相见!/SCOLOR=31>\

<1.你要结义的人必须在线,面对要结义的人然后点提交输入结义人姓名./SCOLOR=239>\

<2.结义时将收取/SCOLOR=239><各方各6万元宝费用/SCOLOR=249>， <兄弟情深何言元宝/SCOLOR=239>\

<提交结义/@@InPutString11> <解除结义/@Mrrp_解除结义> <强制解除/@Mrrp_强制解除> \

[@Mrrp_解除结义]

CHECKVAR HUMAN $Mrrp_结义状态 = 已结义

MOV S2 <$HUMAN($Mrrp_结义对象一)>

MESSAGEBOX [错误]:你并没有结义.

CheckOnline <$STR(S2)>

GOTO @开始解除结义8

MESSAGEBOX [错误]:结义对象[<$STR(S2)>]玩家并不在线!

[@开始解除结义8]

S2.CALCVAR HUMAN $Mrrp_结义状态 = 解除吧结义

S2.CALCVAR HUMAN $Mrrp_结义对象一 = <$USERNAME>

GMEXECUTE 开始提问 @解除抛弃结义

\ \

已向对方提出解除结义申请，请耐心等待答复...\ \

如果对方拒绝，不扣除元宝.\ \

[@Mrrp_强制解除]

CHECKGAMEGOLD ? 100000

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

MESSAGEBOX [错误]:你并没用100000元宝!

[@CallInPutString11]

CHECKGAMEGOLD > 59999

MESSAGEBOX [错误]:元宝不足60000个！

BREAK

CheckOnline <$STR(S11)>

GOTO @Mrrp_开始结义

MESSAGEBOX [错误]:结义对象[<$STR(S11)>]玩家并不在线!

CHECKPOSEDIR

GetOppositeHumName S0

GOTO @Mrrp_开始结义1

MESSAGEBOX [错误]:请与结义对象[<$STR(S11)>]玩家面对面!

[@Mrrp_开始结义1]

EQUAL S0 <$STR(S11)>

MESSAGEBOX [错误]:您对面的玩家并非你所输入的[<$STR(S11)>]玩家!

S0.CHECKVAR HUMAN $Mrrp_结义状态 =

MESSAGEBOX [错误]:你输入的玩家已经结义过了,无能再次结义.

S0.CHECKGAMEGOLD > 59999

MESSAGEBOX [错误]:你输入的玩家元宝不足60000个

S0.CALCVAR HUMAN $Mrrp_结义状态 = 等待结义

S0.CALCVAR HUMAN $Mrrp_结义对象一 = <$USERNAME>

GMEXECUTE 开始提问 @Mrrp_结义提问

已向对方提出结义申请，请耐心等待答复...\ \