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

+ \+ ^( P: s" T7 e) a: M) q1 f" b, p
3 m4 r' g1 h* k: G) c+ X; R在NPC文件夹下面新建一个桃园三结义-3.txt，加入以下脚本
7 L1 o3 P) M' S, X5 j$ `' f- v================================================================
(@@InPutString @@InPutInteger)
[@MAIN]
#IF
CHECKLEVELEX > 0
7 F* e$ V5 [' s#ACT
+ a1 @3 s. Z9 l7 R: B' _CloseBigDialogBox
MOV S2
) W! `7 D: U$ ^6 E0 N  B& _2 ^$ ^' p#SAY
( a, Q' ^" S: V$ I<┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈/SCOLOR=13>\
0 R; H/ C; |& [: S2 q<结义系统/SCOLOR=254> <Hot~/SCOLOR=249>　<一支穿云箭,生挂之交来相见!  菜菜制作 /SCOLOR=31>\
<┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈/SCOLOR=13>\
* @) i9 ]* i- o0 ^5 B& m<1.你要结义的人必须在线,输入结义对象名字并提交即可./SCOLOR=239>\
9 F, h5 r+ Q9 Y5 X- e; a<2.结义时将收取/SCOLOR=239><各方各6万元宝费用/SCOLOR=249> <6万元宝就可以得到生挂之交/SCOLOR=239>\
; O) @3 o8 R# f1 Q& T4 w<1.结义后可/SCOLOR=239><使用"穿云箭"技能/SCOLOR=249><进行无限制互相传送(任何地图)./SCOLOR=239>\
<1.解除结义收取各方2万元宝,强制解除收取执行方十万元宝./SCOLOR=239>\
<┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈/SCOLOR=13>\
5 G) Y4 l8 _! T* ]' f1 \/ u9 g! j<开始结义/@Mrrp_开始结义>          <解除结义/@Mrrp_解除结义>          <强制解除/@Mrrp_强制解除>\
<结义兄弟在五格范围内，触发双方50-50攻击加成/SCOLOR=13>\
[@Mrrp_开始结义]
#IF
CHECKVAR HUMAN $Mrrp_结义状态 =
5 R, V8 \1 I: q- I2 s( ~#ELSEACT
GOTO @MAIN
MESSAGEBOX [错误]:你已经结义过了,无能再次结义.
break
6 W0 E( c8 U; c6 l
#IF
CHECKLEVELEX > 0
#ACT
4 ~8 J4 j& f9 ^9 \4 rSetStringBlank S2 30 0
3 F* f0 y9 F$ @( d#SAY
$ B( Q) c) ]: z5 f6 J<┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈/SCOLOR=13>\
<结义系统/SCOLOR=254> <Hot~/SCOLOR=249>　<一支穿云箭,生挂之交来相见!/SCOLOR=31>\
. ~& d: U! A8 V2 Z$ d<┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈/SCOLOR=13>\
! p' ]! s& ]/ L# T<结义说明:/SCOLOR=250>{<$STR(S2)>/SCOLOR=239}\
: Q+ b; D+ D2 H4 W2 L  @" t1 ^  A/ K<1.你要结义的人必须在线,面对要结义的人然后点提交输入结义人姓名./SCOLOR=239>\
" w' E9 t7 Q4 D& M/ F0 o<2.结义时将收取/SCOLOR=239><各方各6万元宝费用/SCOLOR=249>，   <兄弟情深何言元宝/SCOLOR=239>\
<┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈/SCOLOR=13>\
2 F+ t4 ~) q" }# n" L7 F<提交结义/@@InPutString11>           <解除结义/@Mrrp_解除结义>             <强制解除/@Mrrp_强制解除> \
<结义兄弟在五格范围内，触发双方50-50攻击加成/SCOLOR=13>\
[@Mrrp_解除结义]
* O8 }8 V! F- h1 O) a#IF
& A! z1 k. ^" \, M4 A6 tCHECKVAR HUMAN $Mrrp_结义状态 = 已结义
/ ~: N0 t, E$ L5 n#ACT
MOV S2 <$HUMAN($Mrrp_结义对象一)>
2 c( O* I5 B  W% x5 p0 _+ z#ELSEACT
GOTO @MAIN
) D6 D$ B( z+ a. A. A7 t1 k$ TMESSAGEBOX [错误]:你并没有结义.
break


+ c/ D5 c9 E5 g+ z1 ]#IF
' v6 Z3 T& A) \( v2 \( e' |6 {' F1 o5 kCheckOnline <$STR(S2)>
#ACT
GOTO @开始解除结义8
; v# N+ K, k: x$ P' b+ n6 j' _#ELSEACT
GOTO @MAIN
9 V  g9 b, ]5 ?* ^7 X0 OMESSAGEBOX [错误]:结义对象[<$STR(S2)>]玩家并不在线!
; D) Z2 Z8 M% I5 x& Abreak


[@开始解除结义8]
#IF
6 D: Q' a3 u3 T! d/ J#ACT
S2.CALCVAR HUMAN $Mrrp_结义状态 = 解除吧结义
, X" j2 h6 D$ X+ l3 N5 }4 oS2.CALCVAR HUMAN $Mrrp_结义对象一 = <$USERNAME>
& Y. {  f# g* b) YGMEXECUTE 开始提问 @解除抛弃结义
7 D! J! E  R* A, o! d/ l# @3 I3 S4 n#SAY
. q/ u, E4 f, t7 J$ i\ \
7 Y9 F  Z2 i2 X/ j; ^  g已向对方提出解除结义申请，请耐心等待答复...\ \
2 j+ V/ L" ^+ y9 {5 i& R/ h- c8 `如果对方拒绝，不扣除元宝.\ \
- b" M8 O" n# J* w: V
[@Mrrp_强制解除]
#IF
1 W1 ^, G. P# ^/ eCHECKVAR HUMAN $Mrrp_结义状态 = 已结义
#ELSEACT
GOTO @MAIN
MESSAGEBOX [错误]:你并没有结义.
& O" I( Z1 A* Lbreak
) W0 T- ~8 F" P- W5 O: l  ~8 K
' `: N- b" I" M/ d
/ N* F4 n' }2 [/ i# y6 @1 G#IF
CHECKGAMEGOLD ? 100000
) Q/ s) `$ s2 H( w" q8 @#ACT
GAMEGOLD - 100000
$ C6 _7 F$ m4 N+ S% QAddTextList .\QuestDiary\Mrrp系列脚本\结义系统\Mrrp_强制解除结义名单.txt <$HUMAN($Mrrp_结义对象一)>
7 U$ O3 J* h/ xCALCVAR HUMAN $Mrrp_结义状态 =
CALCVAR HUMAN $Mrrp_结义对象一 =
SAVEVAR HUMAN $Mrrp_结义状态 ..\QuestDiary\Mrrp系列脚本\结义系统\Mrrp_结义数据.txt
SAVEVAR HUMAN $Mrrp_结义对象一 ..\QuestDiary\Mrrp系列脚本\结义系统\Mrrp_结义数据.txt
DELSKILL 穿云箭
GuildNoticeMsg 239 0 玩家[%s]强制解除自己的结义兄弟，从此割袍断义，再见面就是仇人。
; |3 g4 i  \( B* k7 O3 DGMEXECUTE 开始提问 @Mrrp_清理结义
# w8 B( D+ a$ ^" SMESSAGEBOX 你强制解除结义
; C3 M; k; U& m$ hclose
! r1 Y5 J* W* M' G2 a$ rbreak
#ELSEACT
" R+ ~6 I3 l9 q2 i1 C3 F3 NGOTO @MAIN
MESSAGEBOX [错误]:你并没用100000元宝!
break


0 F9 v5 T' u) c9 Y[@CallInPutString11]
$ y1 A4 R8 Y7 l#IF
4 x3 T2 q' D9 Y& l" p4 x  b  J1 n  ACHECKGAMEGOLD > 59999
/ a% I% B* r0 d/ ~* s, q#ELSEACT
3 g1 g" A, g% C. P; Z+ @7 KMESSAGEBOX [错误]:元宝不足60000个！
7 V+ f- V1 Z+ T' p. U! KBREAK


. r4 E+ i7 k5 p1 b/ s#IF
CHECKVAR HUMAN $Mrrp_结义状态 =
( V; U% L5 y* v* N) x) G! k#ELSEACT
GOTO @MAIN
MESSAGEBOX [错误]:你已经结义过了,无能再次结义.
break
& c5 R' ^. R' Y: P
#IF
CheckOnline <$STR(S11)>
#ELSEACT
8 |2 v* |1 H5 T; d) ^GOTO @Mrrp_开始结义
) ~! R4 ]/ k2 h. Z9 `( N6 `MESSAGEBOX [错误]:结义对象[<$STR(S11)>]玩家并不在线!
break

, L- W" x$ f3 u+ [; Q5 H#IF
CHECKPOSEDIR
5 M% Q, T( }  G, r# U#ACT
6 S( ?$ z3 p% h. k; N8 z8 n, e4 MGetOppositeHumName S0
; |1 {) S. g' n' y/ I/ M1 wGOTO @Mrrp_开始结义1
$ k1 \! K) }. E9 S#ELSEACT
) O/ D- ?" T& a5 |GOTO @Mrrp_开始结义
5 s0 E+ P* L0 N* I" Y) ^MESSAGEBOX [错误]:请与结义对象[<$STR(S11)>]玩家面对面!
break


' }$ u* o0 ?5 L4 @3 J[@Mrrp_开始结义1]
* z  W( h* z( }' _7 d. v0 I/ M#IF
! W! C, H! u: v' _8 Q8 g3 ?EQUAL S0 <$STR(S11)>
#ELSEACT
MESSAGEBOX [错误]:您对面的玩家并非你所输入的[<$STR(S11)>]玩家!
2 {: }% K. X% W6 u, c5 Bbreak

#IF
S0.CHECKVAR HUMAN $Mrrp_结义状态 =
6 _8 T2 ^% j8 w( h9 e1 ]) X- k#ELSEACT
7 ?# ~- n) o8 M) p1 rMESSAGEBOX [错误]:你输入的玩家已经结义过了,无能再次结义.
8 Z& p) k0 _" p. C! i) zBREAK


, ]: i9 ^2 A4 }+ T, }( n& d#IF
( k" b& p7 P! P+ E1 A+ l* [S0.CHECKGAMEGOLD > 59999
; l" l5 Q3 O; d3 u#ELSEACT
MESSAGEBOX [错误]:你输入的玩家元宝不足60000个
BREAK

#IF
, N0 k) P/ {; o/ J2 q/ Y#ACT
( ^& C/ B; j* M1 FS0.CALCVAR HUMAN $Mrrp_结义状态 = 等待结义
9 L) b9 J, o# `* z5 F: ~! nS0.CALCVAR HUMAN $Mrrp_结义对象一 = <$USERNAME>
GMEXECUTE 开始提问 @Mrrp_结义提问
#SAY
5 Z2 H5 J: C. I' u! z. D' M\ \
已向对方提出结义申请，请耐心等待答复...\ \
如果对方拒绝，不扣除元宝.\ \
' z* g, j3 g' K$ R; }