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

在NPC文件夹下面新建一个桃园三结义-3.txt，加入以下脚本
8 z; u& R2 S" r2 E7 Y& R================================================================
(@@InPutString @@InPutInteger)
[@MAIN]
) s* g: `9 G: _4 |#IF
CHECKLEVELEX > 0
#ACT
CloseBigDialogBox
MOV S2
#SAY
<┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈/SCOLOR=13>\
<结义系统/SCOLOR=254> <Hot~/SCOLOR=249>　<一支穿云箭,生挂之交来相见!  菜菜制作 /SCOLOR=31>\
+ _) ]& p4 {5 ?<┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈/SCOLOR=13>\
' P/ Q0 X, N' b  G3 L. }<1.你要结义的人必须在线,输入结义对象名字并提交即可./SCOLOR=239>\
<2.结义时将收取/SCOLOR=239><各方各6万元宝费用/SCOLOR=249> <6万元宝就可以得到生挂之交/SCOLOR=239>\
; K. e% s4 B8 O" \( d2 l, }<1.结义后可/SCOLOR=239><使用"穿云箭"技能/SCOLOR=249><进行无限制互相传送(任何地图)./SCOLOR=239>\
<1.解除结义收取各方2万元宝,强制解除收取执行方十万元宝./SCOLOR=239>\
<┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈/SCOLOR=13>\
<开始结义/@Mrrp_开始结义>          <解除结义/@Mrrp_解除结义>          <强制解除/@Mrrp_强制解除>\
<结义兄弟在五格范围内，触发双方50-50攻击加成/SCOLOR=13>\
[@Mrrp_开始结义]
#IF
# [- H, o9 U) {  U- \8 b9 ?1 zCHECKVAR HUMAN $Mrrp_结义状态 =
#ELSEACT
% I/ d4 B8 m. i: L* CGOTO @MAIN
1 ^7 c+ G$ ~% h2 y2 a6 t& RMESSAGEBOX [错误]:你已经结义过了,无能再次结义.
5 B: a, k0 @& L0 obreak
5 P1 _" J7 p2 z' `( `- E1 n
#IF
. J: {" R6 }: oCHECKLEVELEX > 0
8 g3 e/ }% Z: b2 p" o) S/ J4 ^) ^. I' @3 [#ACT
" I1 U6 ^2 A; ESetStringBlank S2 30 0
2 f2 f! @7 j  ]#SAY
8 n8 q- O- o7 ~% v. A2 e<┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈/SCOLOR=13>\
: C2 o) T2 v  p# z9 q* q* S9 Y<结义系统/SCOLOR=254> <Hot~/SCOLOR=249>　<一支穿云箭,生挂之交来相见!/SCOLOR=31>\
<┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈/SCOLOR=13>\
<结义说明:/SCOLOR=250>{<$STR(S2)>/SCOLOR=239}\
<1.你要结义的人必须在线,面对要结义的人然后点提交输入结义人姓名./SCOLOR=239>\
* ~; y/ n0 h3 I) P4 f<2.结义时将收取/SCOLOR=239><各方各6万元宝费用/SCOLOR=249>，   <兄弟情深何言元宝/SCOLOR=239>\
<┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈/SCOLOR=13>\
$ f: [9 m4 h$ c: Y+ }- q, W& t* `! @<提交结义/@@InPutString11>           <解除结义/@Mrrp_解除结义>             <强制解除/@Mrrp_强制解除> \
& S* P* ]" r6 S7 v7 a6 S<结义兄弟在五格范围内，触发双方50-50攻击加成/SCOLOR=13>\
) a5 i& h2 u* T; v[@Mrrp_解除结义]
% w1 f8 D- O  Z#IF
CHECKVAR HUMAN $Mrrp_结义状态 = 已结义
; X! ~" i" ^$ F( Z+ e#ACT
4 B9 p- H; ]& _. k+ Q% \" ~MOV S2 <$HUMAN($Mrrp_结义对象一)>
#ELSEACT
9 w* |1 a: m  s7 _! t. P3 IGOTO @MAIN
MESSAGEBOX [错误]:你并没有结义.
6 N# y$ }/ r7 g* L& {  |$ [break


#IF
CheckOnline <$STR(S2)>
' }- E% X$ O: |9 Z5 x2 p#ACT
GOTO @开始解除结义8
#ELSEACT
GOTO @MAIN
9 h: P& j8 u) n4 D: ^MESSAGEBOX [错误]:结义对象[<$STR(S2)>]玩家并不在线!
break
9 A$ f; k& W( g1 q
' D) D9 V9 A4 \4 G8 I( X/ F: w
[@开始解除结义8]
#IF
. q: p8 x3 {' `" ^, x7 ^/ k0 ~9 R#ACT
2 g, i; k' m$ L. r% Z. o! R; CS2.CALCVAR HUMAN $Mrrp_结义状态 = 解除吧结义
5 d3 I6 v$ o# q" Q& H1 W( @S2.CALCVAR HUMAN $Mrrp_结义对象一 = <$USERNAME>
" E, n6 e, N" M- B; r3 Z: Q$ J9 MGMEXECUTE 开始提问 @解除抛弃结义
) p1 Y1 Q# I- w5 R% p" e#SAY
+ s9 i$ D- c2 N\ \
6 Z4 h  g0 h: l" F已向对方提出解除结义申请，请耐心等待答复...\ \
如果对方拒绝，不扣除元宝.\ \

% P9 N/ ^: a/ b[@Mrrp_强制解除]
- S7 o. F* V& O* h) t9 a#IF
CHECKVAR HUMAN $Mrrp_结义状态 = 已结义
#ELSEACT
( }; L, p4 e2 SGOTO @MAIN
( V3 A; X5 x9 i: i/ V1 k/ h* u+ sMESSAGEBOX [错误]:你并没有结义.
3 c& o9 y0 W1 O" [7 O0 Ybreak
0 y4 @5 l! w( W# z* {- z" T7 n
. \9 j+ ]% R( ?5 e: v7 |  r) m
#IF
- I* n4 d6 \" R3 e, |, \3 m3 eCHECKGAMEGOLD ? 100000
#ACT
& O% B1 G) s# p: B% qGAMEGOLD - 100000
AddTextList .\QuestDiary\Mrrp系列脚本\结义系统\Mrrp_强制解除结义名单.txt <$HUMAN($Mrrp_结义对象一)>
CALCVAR HUMAN $Mrrp_结义状态 =
CALCVAR HUMAN $Mrrp_结义对象一 =
SAVEVAR HUMAN $Mrrp_结义状态 ..\QuestDiary\Mrrp系列脚本\结义系统\Mrrp_结义数据.txt
0 f; V, a* N7 HSAVEVAR HUMAN $Mrrp_结义对象一 ..\QuestDiary\Mrrp系列脚本\结义系统\Mrrp_结义数据.txt
! y* d* l# ?/ L  f8 w6 r1 [DELSKILL 穿云箭
, v) x- o+ ~* d2 FGuildNoticeMsg 239 0 玩家[%s]强制解除自己的结义兄弟，从此割袍断义，再见面就是仇人。
. }4 c2 C6 B# P/ O/ }GMEXECUTE 开始提问 @Mrrp_清理结义
MESSAGEBOX 你强制解除结义
- }) k4 I# J9 o  S6 |+ u4 Mclose
" Z& S! H& a! k  l( O( H/ rbreak
4 ]7 v, u5 p& I5 B* K#ELSEACT
GOTO @MAIN
( [1 B; m: C3 e! A5 @6 mMESSAGEBOX [错误]:你并没用100000元宝!
break

" B& |9 R8 [# D- Z* e% V
; q2 B5 k0 b" M" I9 n0 s8 u! D3 X/ a[@CallInPutString11]
#IF
CHECKGAMEGOLD > 59999
#ELSEACT
  ~, @4 t: l. Z: L$ O" r: F" e: q; ~MESSAGEBOX [错误]:元宝不足60000个！
BREAK
/ ?- W" R4 V# ]0 Z

2 a  v+ k; m! O* D" z# X#IF
CHECKVAR HUMAN $Mrrp_结义状态 =
#ELSEACT
GOTO @MAIN
* N5 X/ c+ d0 R) @MESSAGEBOX [错误]:你已经结义过了,无能再次结义.
9 q3 G/ c% k6 a  e4 B$ @! h, ybreak
3 n: Y: Q4 x( F) `  j9 X
#IF
$ g1 @5 ]) D6 d' H3 vCheckOnline <$STR(S11)>
#ELSEACT
GOTO @Mrrp_开始结义
MESSAGEBOX [错误]:结义对象[<$STR(S11)>]玩家并不在线!
break

#IF
CHECKPOSEDIR
9 a; ^3 ]/ @4 v$ V+ L* P#ACT
GetOppositeHumName S0
# `$ j# v" W! Y% r8 DGOTO @Mrrp_开始结义1
#ELSEACT
GOTO @Mrrp_开始结义
* R0 u' r6 T% T  T9 ^0 WMESSAGEBOX [错误]:请与结义对象[<$STR(S11)>]玩家面对面!
break
  c7 l! s' R6 H  L) G/ ]! }
0 t( i8 X) l; X0 e& o$ p- b+ U
[@Mrrp_开始结义1]
#IF
: M$ X! L3 V1 S* v: `% DEQUAL S0 <$STR(S11)>
#ELSEACT
$ y1 ]; N/ @3 L' T& S! S2 A0 DMESSAGEBOX [错误]:您对面的玩家并非你所输入的[<$STR(S11)>]玩家!
break

#IF
S0.CHECKVAR HUMAN $Mrrp_结义状态 =
#ELSEACT
9 g/ v6 W' ^9 m6 C9 }  ZMESSAGEBOX [错误]:你输入的玩家已经结义过了,无能再次结义.
( b8 x& E  j3 f. [7 F- K5 vBREAK
& A( @+ \" v$ c  }9 A# z- z
$ p8 [5 s/ u. [7 f1 C! {$ i
#IF
( L# o4 `% \1 z6 @9 @" aS0.CHECKGAMEGOLD > 59999
#ELSEACT
MESSAGEBOX [错误]:你输入的玩家元宝不足60000个
% r6 d) V) c& Y2 g- v# HBREAK

  S% L& C' w' r8 W% ~, z1 x#IF
#ACT
S0.CALCVAR HUMAN $Mrrp_结义状态 = 等待结义
S0.CALCVAR HUMAN $Mrrp_结义对象一 = <$USERNAME>
GMEXECUTE 开始提问 @Mrrp_结义提问
#SAY
\ \
* Z  Q5 P0 G4 y! H! `已向对方提出结义申请，请耐心等待答复...\ \
. a1 m! E$ [, x" f- U+ u+ r3 A7 h" n如果对方拒绝，不扣除元宝.\ \
, _5 c1 G2 Y( h- _8 Z4 ^0 u