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

+ Y  T+ t; p$ Z! R9 i

在NPC文件夹下面新建一个桃园三结义-3.txt，加入以下脚本
. J7 x* C3 H3 {4 q================================================================
4 I- r. d  _( ^! ]1 v+ R7 V(@@InPutString @@InPutInteger)
! W: q, S0 \# q4 _0 i; n0 V& b3 ^[@MAIN]
#IF
0 \  ]. `. Q: G4 d- mCHECKLEVELEX > 0
) A6 ]5 n8 |- O; P. h, q8 _#ACT
CloseBigDialogBox
MOV S2
4 I7 P: T$ O9 ^5 H# `- b#SAY
<┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈/SCOLOR=13>\
2 b$ K! [! E3 k6 y' G<结义系统/SCOLOR=254> <Hot~/SCOLOR=249>　<一支穿云箭,生挂之交来相见!  菜菜制作 /SCOLOR=31>\
6 X+ y6 f8 s8 |<┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈/SCOLOR=13>\
<1.你要结义的人必须在线,输入结义对象名字并提交即可./SCOLOR=239>\
<2.结义时将收取/SCOLOR=239><各方各6万元宝费用/SCOLOR=249> <6万元宝就可以得到生挂之交/SCOLOR=239>\
0 f" ^0 F6 v' k. P0 L$ T7 `<1.结义后可/SCOLOR=239><使用"穿云箭"技能/SCOLOR=249><进行无限制互相传送(任何地图)./SCOLOR=239>\
<1.解除结义收取各方2万元宝,强制解除收取执行方十万元宝./SCOLOR=239>\
* Q4 b! Y) h) w0 U<┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈/SCOLOR=13>\
<开始结义/@Mrrp_开始结义>          <解除结义/@Mrrp_解除结义>          <强制解除/@Mrrp_强制解除>\
6 q+ E8 q1 l, a! }$ [' P  r- f7 P<结义兄弟在五格范围内，触发双方50-50攻击加成/SCOLOR=13>\
[@Mrrp_开始结义]
#IF
CHECKVAR HUMAN $Mrrp_结义状态 =
#ELSEACT
) l9 ?& ?7 l8 z- |3 xGOTO @MAIN
MESSAGEBOX [错误]:你已经结义过了,无能再次结义.
break

9 t/ o  e' J! Q0 p) g5 b#IF
8 V' t+ o. H  H9 {' k# eCHECKLEVELEX > 0
#ACT
3 p" p/ U( c8 O9 J. H) y6 ?SetStringBlank S2 30 0
, u1 U1 Z. l5 l( F5 _" e#SAY
<┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈/SCOLOR=13>\
1 E+ D1 c" v; J2 m3 U' w; q<结义系统/SCOLOR=254> <Hot~/SCOLOR=249>　<一支穿云箭,生挂之交来相见!/SCOLOR=31>\
9 [3 I- O3 N6 {3 ~8 M% z. j<┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈/SCOLOR=13>\
<结义说明:/SCOLOR=250>{<$STR(S2)>/SCOLOR=239}\
2 Q! X% M9 d! f$ B1 ^5 s- `<1.你要结义的人必须在线,面对要结义的人然后点提交输入结义人姓名./SCOLOR=239>\
6 B4 K, j9 s* J7 [1 J! I- J/ R<2.结义时将收取/SCOLOR=239><各方各6万元宝费用/SCOLOR=249>，   <兄弟情深何言元宝/SCOLOR=239>\
$ M" d( {% b8 o7 K% s# I<┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈/SCOLOR=13>\
# b$ H! ?2 C6 W  Z9 r<提交结义/@@InPutString11>           <解除结义/@Mrrp_解除结义>             <强制解除/@Mrrp_强制解除> \
4 G: R* q3 k& W<结义兄弟在五格范围内，触发双方50-50攻击加成/SCOLOR=13>\
[@Mrrp_解除结义]
+ b; ~3 ^1 {5 S. h( {/ {5 }#IF
CHECKVAR HUMAN $Mrrp_结义状态 = 已结义
#ACT
MOV S2 <$HUMAN($Mrrp_结义对象一)>
3 `" s9 z9 ]0 |/ K3 e4 `: {#ELSEACT
- f; f9 C8 Z3 N3 G& K* nGOTO @MAIN
8 z- U2 B1 \( R5 B$ ~0 T9 w0 }MESSAGEBOX [错误]:你并没有结义.
break
8 L7 D- E- j, L& P8 s
* }5 {% Q8 X* ?& N. u" m6 F
#IF
CheckOnline <$STR(S2)>
#ACT
0 U# D, V& B( o! LGOTO @开始解除结义8
#ELSEACT
GOTO @MAIN
MESSAGEBOX [错误]:结义对象[<$STR(S2)>]玩家并不在线!
) Y1 k2 Z7 V7 L) R" L! g+ Ebreak
* V1 M3 j! I+ P3 [0 ]& m

[@开始解除结义8]
#IF
#ACT
9 X! O6 E; o& J3 iS2.CALCVAR HUMAN $Mrrp_结义状态 = 解除吧结义
S2.CALCVAR HUMAN $Mrrp_结义对象一 = <$USERNAME>
GMEXECUTE 开始提问 @解除抛弃结义
#SAY
  F$ e, f9 d# O4 a" I' w8 k( l\ \
已向对方提出解除结义申请，请耐心等待答复...\ \
如果对方拒绝，不扣除元宝.\ \

7 t9 R9 w! U* T/ i+ I/ s  {[@Mrrp_强制解除]
/ X9 V/ c6 k) }#IF
CHECKVAR HUMAN $Mrrp_结义状态 = 已结义
#ELSEACT
5 ?* w$ T% l' ?1 ^6 @# h2 eGOTO @MAIN
. I. O' g5 T/ Z' O4 ~6 H0 x5 EMESSAGEBOX [错误]:你并没有结义.
break


#IF
9 K. Z& d( R; R: i# \* t- }" o9 T4 i8 YCHECKGAMEGOLD ? 100000
#ACT
GAMEGOLD - 100000
AddTextList .\QuestDiary\Mrrp系列脚本\结义系统\Mrrp_强制解除结义名单.txt <$HUMAN($Mrrp_结义对象一)>
; B+ _( u. F1 y& }: I& f. `CALCVAR HUMAN $Mrrp_结义状态 =
: X2 }5 E! y8 W* n/ ^CALCVAR HUMAN $Mrrp_结义对象一 =
+ [3 I) z( D* @. hSAVEVAR HUMAN $Mrrp_结义状态 ..\QuestDiary\Mrrp系列脚本\结义系统\Mrrp_结义数据.txt
SAVEVAR HUMAN $Mrrp_结义对象一 ..\QuestDiary\Mrrp系列脚本\结义系统\Mrrp_结义数据.txt
DELSKILL 穿云箭
. m& J% c$ `. h9 S9 cGuildNoticeMsg 239 0 玩家[%s]强制解除自己的结义兄弟，从此割袍断义，再见面就是仇人。
GMEXECUTE 开始提问 @Mrrp_清理结义
- j3 e+ `1 C3 V$ i1 ]2 k. n% ~8 ]MESSAGEBOX 你强制解除结义
3 ^, t- V! N6 }8 pclose
/ V. d2 S+ _5 |7 o5 s+ Y+ x& ~break
#ELSEACT
% l. r- `+ b' X2 F% \GOTO @MAIN
2 l, j1 Q9 o+ ]+ ?4 t7 sMESSAGEBOX [错误]:你并没用100000元宝!
- R* X: j. N  A3 m% zbreak

1 A! @/ j  K! V2 {1 o# m
[@CallInPutString11]
: l, E9 I( p3 s0 \9 ~#IF
CHECKGAMEGOLD > 59999
9 k- Z, }; y0 F7 T# q#ELSEACT
MESSAGEBOX [错误]:元宝不足60000个！
BREAK
( K  C$ v; Q/ ]. N' U

8 d5 a9 E* f5 `% Z4 g#IF
CHECKVAR HUMAN $Mrrp_结义状态 =
! ~1 N5 T5 b# G- |#ELSEACT
, Z) F2 ^) J1 K. F3 u% g$ OGOTO @MAIN
! ?3 I! U! s7 m# c( Q4 dMESSAGEBOX [错误]:你已经结义过了,无能再次结义.
: e) m) ]4 r, Ybreak
1 }$ u7 O2 H  q7 L
#IF
7 J& {  M5 W4 YCheckOnline <$STR(S11)>
#ELSEACT
) J/ `4 E# t+ i1 eGOTO @Mrrp_开始结义
4 P& U- x, f+ _7 i6 M7 g$ pMESSAGEBOX [错误]:结义对象[<$STR(S11)>]玩家并不在线!
break
* J, V1 }/ _) B4 `
#IF
CHECKPOSEDIR
#ACT
2 A* \7 }* U) k! VGetOppositeHumName S0
GOTO @Mrrp_开始结义1
#ELSEACT
GOTO @Mrrp_开始结义
) l; X# e. t0 Z4 M: y! C; _MESSAGEBOX [错误]:请与结义对象[<$STR(S11)>]玩家面对面!
break


[@Mrrp_开始结义1]
3 c& }) r2 U! l& m#IF
* H5 ?- r, @  G+ u  |9 EEQUAL S0 <$STR(S11)>
8 W' N6 {4 ]+ E+ o#ELSEACT
3 a* P+ M+ Q7 G: I2 ?$ pMESSAGEBOX [错误]:您对面的玩家并非你所输入的[<$STR(S11)>]玩家!
break
. T0 d: ^0 B3 e5 z
; r2 J6 d. g& Y#IF
S0.CHECKVAR HUMAN $Mrrp_结义状态 =
#ELSEACT
MESSAGEBOX [错误]:你输入的玩家已经结义过了,无能再次结义.
$ \9 k5 h+ o; J' }BREAK

8 s" j; d4 g' Y: \2 v7 q$ ?
- G) L7 e% [- S2 G4 I#IF
S0.CHECKGAMEGOLD > 59999
+ |8 u7 @3 L4 w$ U/ i#ELSEACT
MESSAGEBOX [错误]:你输入的玩家元宝不足60000个
/ @4 w5 e; X/ O5 Z3 X. LBREAK

#IF
! s' g( V- K& b' Y#ACT
S0.CALCVAR HUMAN $Mrrp_结义状态 = 等待结义
S0.CALCVAR HUMAN $Mrrp_结义对象一 = <$USERNAME>
GMEXECUTE 开始提问 @Mrrp_结义提问
4 e# ?9 d+ ]2 T0 z" k/ x" [#SAY
\ \
已向对方提出结义申请，请耐心等待答复...\ \
如果对方拒绝，不扣除元宝.\ \
9 V3 _; f+ ?# e/ K4 }4 r, J
' V# w" |$ s6 V" [