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

& h8 `! N) t- }1 F, `1 d6 Q

在NPC文件夹下面新建一个桃园三结义-3.txt，加入以下脚本
================================================================
(@@InPutString @@InPutInteger)
[@MAIN]
#IF
& d  K- r- ~0 E8 oCHECKLEVELEX > 0
#ACT
CloseBigDialogBox
MOV S2
6 r" @/ C5 u/ S/ M8 s#SAY
/ z7 w4 Z0 K+ i% ?) I<┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈/SCOLOR=13>\
4 |5 X) b1 r" c/ E<结义系统/SCOLOR=254> <Hot~/SCOLOR=249>　<一支穿云箭,生挂之交来相见!  菜菜制作 /SCOLOR=31>\
<┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈/SCOLOR=13>\
<1.你要结义的人必须在线,输入结义对象名字并提交即可./SCOLOR=239>\
( T0 X: _9 O- s: A6 E: l<2.结义时将收取/SCOLOR=239><各方各6万元宝费用/SCOLOR=249> <6万元宝就可以得到生挂之交/SCOLOR=239>\
<1.结义后可/SCOLOR=239><使用"穿云箭"技能/SCOLOR=249><进行无限制互相传送(任何地图)./SCOLOR=239>\
; {9 f$ [' i9 O<1.解除结义收取各方2万元宝,强制解除收取执行方十万元宝./SCOLOR=239>\
) Y9 ]( m2 D8 `5 B1 u3 _<┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈/SCOLOR=13>\
<开始结义/@Mrrp_开始结义>          <解除结义/@Mrrp_解除结义>          <强制解除/@Mrrp_强制解除>\
' w; ]+ B* \9 _+ \2 S  n7 z# G  ~7 E( @<结义兄弟在五格范围内，触发双方50-50攻击加成/SCOLOR=13>\
( E1 _0 q' e; P6 [) Z: F6 V[@Mrrp_开始结义]
. d& e' E; t2 Y* V8 V#IF
2 N5 V3 B% e) Y5 W& X. G$ e, LCHECKVAR HUMAN $Mrrp_结义状态 =
#ELSEACT
3 b/ i/ N7 M5 R0 E* F' P3 N6 ]9 IGOTO @MAIN
MESSAGEBOX [错误]:你已经结义过了,无能再次结义.
8 l! j# M+ c6 ?- M/ hbreak

: D( I; _1 _* D: M2 A: A$ ]  |+ m#IF
CHECKLEVELEX > 0
#ACT
8 |& `/ d5 ?( W! G7 {4 cSetStringBlank S2 30 0
2 u" r/ ]4 D/ Z! w#SAY
<┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈/SCOLOR=13>\
% M8 s9 A* t. B6 L. Z; Y! s<结义系统/SCOLOR=254> <Hot~/SCOLOR=249>　<一支穿云箭,生挂之交来相见!/SCOLOR=31>\
<┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈/SCOLOR=13>\
9 \3 V# ]! a2 y# Z  k9 G<结义说明:/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>\
9 O0 V1 R0 O  @* }1 b- ^! Q[@Mrrp_解除结义]
#IF
1 h6 j0 g1 T: v, I7 C. P8 pCHECKVAR HUMAN $Mrrp_结义状态 = 已结义
#ACT
1 l" W# r1 X% P% w3 CMOV S2 <$HUMAN($Mrrp_结义对象一)>
#ELSEACT
1 T: a3 g# ^, E: }# KGOTO @MAIN
. ~/ R# P  z! ]8 [; |" J4 QMESSAGEBOX [错误]:你并没有结义.
break
0 `) \! M3 Y  V! ?: [! {: V1 O

8 J1 s' w: `: T) p8 N& Z1 |" T#IF
CheckOnline <$STR(S2)>
#ACT
6 o. _! e: ]* SGOTO @开始解除结义8
% ]$ q' K1 |, ~! g  F#ELSEACT
4 \/ p- }) e; Y6 T3 fGOTO @MAIN
! @- s9 L. s0 S' x1 E( L; nMESSAGEBOX [错误]:结义对象[<$STR(S2)>]玩家并不在线!
break


% W7 D3 Y0 d/ e6 _1 h[@开始解除结义8]
#IF
0 t) a6 \( p  {5 X% W* j7 H#ACT
S2.CALCVAR HUMAN $Mrrp_结义状态 = 解除吧结义
S2.CALCVAR HUMAN $Mrrp_结义对象一 = <$USERNAME>
GMEXECUTE 开始提问 @解除抛弃结义
, m9 a3 I1 k( Z* t#SAY
\ \
已向对方提出解除结义申请，请耐心等待答复...\ \
如果对方拒绝，不扣除元宝.\ \

/ g9 S$ p( v$ Z& e) N[@Mrrp_强制解除]
#IF
1 }9 M: F+ g/ \! z. N. XCHECKVAR HUMAN $Mrrp_结义状态 = 已结义
8 I) N  u- o. _  I: f#ELSEACT
GOTO @MAIN
: r" W$ b8 U2 b- _+ pMESSAGEBOX [错误]:你并没有结义.
0 W- l7 `) E3 H  gbreak


#IF
CHECKGAMEGOLD ? 100000
+ i, f# S& V: o( ~! t9 u#ACT
2 y2 }/ T* V" B: d  {GAMEGOLD - 100000
AddTextList .\QuestDiary\Mrrp系列脚本\结义系统\Mrrp_强制解除结义名单.txt <$HUMAN($Mrrp_结义对象一)>
CALCVAR HUMAN $Mrrp_结义状态 =
CALCVAR HUMAN $Mrrp_结义对象一 =
0 J+ [/ G# j6 Q- Q- W, F$ Q, W) F9 ~SAVEVAR HUMAN $Mrrp_结义状态 ..\QuestDiary\Mrrp系列脚本\结义系统\Mrrp_结义数据.txt
/ B' c/ w/ \& `* \( tSAVEVAR HUMAN $Mrrp_结义对象一 ..\QuestDiary\Mrrp系列脚本\结义系统\Mrrp_结义数据.txt
: {) }' C3 z# {$ g* N8 iDELSKILL 穿云箭
9 n+ d" q5 o# U) oGuildNoticeMsg 239 0 玩家[%s]强制解除自己的结义兄弟，从此割袍断义，再见面就是仇人。
3 j8 N+ ^- L: J# v$ R, xGMEXECUTE 开始提问 @Mrrp_清理结义
! Y" e6 p( L5 eMESSAGEBOX 你强制解除结义
) p! e# z# K( Fclose
break
3 N, w. v* C. I/ p, Y: o$ M#ELSEACT
GOTO @MAIN
8 ?: M2 ^& z- j. t! l2 T/ VMESSAGEBOX [错误]:你并没用100000元宝!
2 l7 Z" A* Z. Q. m, y1 L# ]+ c7 mbreak
  O$ J% p- Q4 a* \* G
0 @2 G$ G' i' i! g3 |  R8 a5 q
[@CallInPutString11]
#IF
CHECKGAMEGOLD > 59999
#ELSEACT
6 R/ y# v- \9 S, H* _MESSAGEBOX [错误]:元宝不足60000个！
BREAK
. G$ S' f# u% ^$ J; a
8 K  }0 |. s+ n0 l; Y
#IF
CHECKVAR HUMAN $Mrrp_结义状态 =
' c5 `$ P& v8 q7 i2 _#ELSEACT
GOTO @MAIN
MESSAGEBOX [错误]:你已经结义过了,无能再次结义.
" _- p3 d. T8 D& Wbreak
" i2 {) x( h: _9 W$ a7 i# ~: I
#IF
CheckOnline <$STR(S11)>
# p+ A4 s! h( C/ Z- T4 n# v#ELSEACT
GOTO @Mrrp_开始结义
MESSAGEBOX [错误]:结义对象[<$STR(S11)>]玩家并不在线!
break
0 Y9 |) h) v; D. c8 X
- u2 R" u. W) o#IF
7 A9 |6 s. ^# d8 \# K% V5 @' c/ dCHECKPOSEDIR
0 ~$ A2 X  C. y+ O% S% p#ACT
( C) |1 q' ]7 K5 XGetOppositeHumName S0
/ t, E. E8 J2 F) G/ }, c) _GOTO @Mrrp_开始结义1
$ f$ e6 f1 t2 k, V" e#ELSEACT
& u+ ]4 H8 c6 o5 A; G7 {GOTO @Mrrp_开始结义
8 V! \( b. r# E; i% |/ J" F3 |+ |MESSAGEBOX [错误]:请与结义对象[<$STR(S11)>]玩家面对面!
break


6 V  G1 h7 ^' o1 V[@Mrrp_开始结义1]
* [2 K% H  M) c$ P) m2 E#IF
5 ^% [; D% Q) u2 b2 W$ S( aEQUAL S0 <$STR(S11)>
#ELSEACT
3 }+ K% b2 h  \* I2 t: nMESSAGEBOX [错误]:您对面的玩家并非你所输入的[<$STR(S11)>]玩家!
7 }/ `0 {3 Z! d2 }  W* vbreak
- P! h, P- r0 h& G
+ E+ H0 c; j' r2 P, y% [. ~( v#IF
S0.CHECKVAR HUMAN $Mrrp_结义状态 =
$ e9 i" u& |) p3 W5 x1 y7 e% ?+ M" ]#ELSEACT
MESSAGEBOX [错误]:你输入的玩家已经结义过了,无能再次结义.
BREAK

$ L( z% V8 \2 P+ U& ?
#IF
- r5 D8 ^. a  `- h* \, \  \& aS0.CHECKGAMEGOLD > 59999
  I$ {8 S9 f: V#ELSEACT
( q: m6 m8 k! mMESSAGEBOX [错误]:你输入的玩家元宝不足60000个
0 @0 b" T  I) B8 |BREAK

#IF
* Y4 Z5 ]- L4 k#ACT
# h+ v4 f6 {9 a! h( i2 v% O8 YS0.CALCVAR HUMAN $Mrrp_结义状态 = 等待结义
( z; Z9 p& q& {, s: PS0.CALCVAR HUMAN $Mrrp_结义对象一 = <$USERNAME>
GMEXECUTE 开始提问 @Mrrp_结义提问
, `- u# V9 S8 s! X6 k7 b  y0 w/ r0 O#SAY
\ \
已向对方提出结义申请，请耐心等待答复...\ \
如果对方拒绝，不扣除元宝.\ \

+ T* @9 Q, _" e, {  o/ ]5 j, w