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

: U3 f, l$ F' ?
在NPC文件夹下面新建一个桃园三结义-3.txt，加入以下脚本
================================================================
(@@InPutString @@InPutInteger)
* j) T3 J* e2 p0 g2 L1 i[@MAIN]
& n0 Q. Y1 u$ E#IF
CHECKLEVELEX > 0
#ACT
/ x' _2 q1 h# R) ^! r% M0 BCloseBigDialogBox
5 s) ^5 J" T$ B) h, DMOV S2
7 s$ X, y; G; D% G) B8 m#SAY
% p, J' W- c* c, |<┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈/SCOLOR=13>\
<结义系统/SCOLOR=254> <Hot~/SCOLOR=249>　<一支穿云箭,生挂之交来相见!  菜菜制作 /SCOLOR=31>\
; y  ]6 C* s5 G- Y" N<┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈/SCOLOR=13>\
<1.你要结义的人必须在线,输入结义对象名字并提交即可./SCOLOR=239>\
1 i& [9 y" Y7 q1 k<2.结义时将收取/SCOLOR=239><各方各6万元宝费用/SCOLOR=249> <6万元宝就可以得到生挂之交/SCOLOR=239>\
<1.结义后可/SCOLOR=239><使用"穿云箭"技能/SCOLOR=249><进行无限制互相传送(任何地图)./SCOLOR=239>\
. h) Y7 M9 Q+ v, K& e$ t8 F, F<1.解除结义收取各方2万元宝,强制解除收取执行方十万元宝./SCOLOR=239>\
, {  Q( `% Q0 B& K7 H<┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈/SCOLOR=13>\
! r; V6 q6 Y/ p; K<开始结义/@Mrrp_开始结义>          <解除结义/@Mrrp_解除结义>          <强制解除/@Mrrp_强制解除>\
' G: `+ M& k9 i& T1 a<结义兄弟在五格范围内，触发双方50-50攻击加成/SCOLOR=13>\
% R$ q% W( o2 G7 [8 |5 e# G[@Mrrp_开始结义]
/ D8 ]* B" m" w4 J5 Z#IF
CHECKVAR HUMAN $Mrrp_结义状态 =
; A, R) `# }: }  y#ELSEACT
( E% S5 V; c+ q7 ^2 l) @GOTO @MAIN
  D9 d! ]! j& c  o$ o8 PMESSAGEBOX [错误]:你已经结义过了,无能再次结义.
break

#IF
* C% B1 Z7 g* h9 t6 M* l6 y% W. `/ tCHECKLEVELEX > 0
+ ?" f; T+ ^! b$ |! Z& ?4 J#ACT
3 N/ L5 @8 A) _5 h2 h( E8 W6 h2 WSetStringBlank S2 30 0
+ L+ [( ~; @6 S5 E) B% L" L#SAY
9 A# F6 g& E$ N& Q/ i3 s" s/ x<┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈/SCOLOR=13>\
( H" s. p3 F& T" B9 h<结义系统/SCOLOR=254> <Hot~/SCOLOR=249>　<一支穿云箭,生挂之交来相见!/SCOLOR=31>\
  [+ M  `) K2 o( M; ^: B& r. x" `<┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈/SCOLOR=13>\
<结义说明:/SCOLOR=250>{<$STR(S2)>/SCOLOR=239}\
9 y/ \; {* M3 l: q<1.你要结义的人必须在线,面对要结义的人然后点提交输入结义人姓名./SCOLOR=239>\
6 U/ e8 {. V$ y* W3 B7 G<2.结义时将收取/SCOLOR=239><各方各6万元宝费用/SCOLOR=249>，   <兄弟情深何言元宝/SCOLOR=239>\
# ^  `- Y' A9 f<┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈/SCOLOR=13>\
3 d: |+ `- G- I& B1 Q& V<提交结义/@@InPutString11>           <解除结义/@Mrrp_解除结义>             <强制解除/@Mrrp_强制解除> \
<结义兄弟在五格范围内，触发双方50-50攻击加成/SCOLOR=13>\
% w, q5 s* j. K) E1 z" `# I[@Mrrp_解除结义]
  Q% q4 d! z# K* M#IF
; c- e, J& f2 k# L7 C" SCHECKVAR HUMAN $Mrrp_结义状态 = 已结义
#ACT
MOV S2 <$HUMAN($Mrrp_结义对象一)>
0 t' Q2 r3 ]: }4 z. W  C#ELSEACT
GOTO @MAIN
: z8 M5 t3 k$ g/ t% n- b8 ^MESSAGEBOX [错误]:你并没有结义.
, f: u0 a$ E3 {: z, C2 gbreak

$ \8 S4 E- U, X  b' H
#IF
CheckOnline <$STR(S2)>
: f9 @* w" S; u3 w& D#ACT
4 W8 X- [7 ~& A+ t+ o' O" T; u) {GOTO @开始解除结义8
#ELSEACT
GOTO @MAIN
MESSAGEBOX [错误]:结义对象[<$STR(S2)>]玩家并不在线!
break
0 }+ l" d: y$ @6 F4 G- {
8 b, B7 v0 V0 _$ e! V
% T) c' ^  m. [! @  }[@开始解除结义8]
#IF
6 h- |. O3 N9 V1 y; Y, f2 h+ v#ACT
$ N! B2 e  O& C2 t: U3 C( WS2.CALCVAR HUMAN $Mrrp_结义状态 = 解除吧结义
S2.CALCVAR HUMAN $Mrrp_结义对象一 = <$USERNAME>
GMEXECUTE 开始提问 @解除抛弃结义
#SAY
\ \
已向对方提出解除结义申请，请耐心等待答复...\ \
1 |, C/ a6 l3 M5 j$ P如果对方拒绝，不扣除元宝.\ \
8 j% B) D: y& G8 }$ \4 Y8 s) o
[@Mrrp_强制解除]
5 [/ K; F9 |5 B  w  |#IF
CHECKVAR HUMAN $Mrrp_结义状态 = 已结义
#ELSEACT
0 n$ n* ]/ n* Y& o% p( N1 ZGOTO @MAIN
MESSAGEBOX [错误]:你并没有结义.
$ K3 u# D+ D( M9 ~break
0 {3 v- V# N& H' J3 N: q4 s% K

#IF
( d+ v2 o4 v3 ]+ h; C4 O* iCHECKGAMEGOLD ? 100000
' s# u. C0 U: d  G#ACT
GAMEGOLD - 100000
AddTextList .\QuestDiary\Mrrp系列脚本\结义系统\Mrrp_强制解除结义名单.txt <$HUMAN($Mrrp_结义对象一)>
1 z' M" K, L& s' n8 KCALCVAR HUMAN $Mrrp_结义状态 =
8 i5 H! W& K& `; z$ u- ~CALCVAR HUMAN $Mrrp_结义对象一 =
0 j7 @6 H8 j: b+ T- X5 CSAVEVAR HUMAN $Mrrp_结义状态 ..\QuestDiary\Mrrp系列脚本\结义系统\Mrrp_结义数据.txt
8 l( u- y2 j, P3 ~% {9 p( N% _6 @SAVEVAR HUMAN $Mrrp_结义对象一 ..\QuestDiary\Mrrp系列脚本\结义系统\Mrrp_结义数据.txt
DELSKILL 穿云箭
GuildNoticeMsg 239 0 玩家[%s]强制解除自己的结义兄弟，从此割袍断义，再见面就是仇人。
+ P% C! z2 b. I4 L0 C. i1 T5 ]. qGMEXECUTE 开始提问 @Mrrp_清理结义
MESSAGEBOX 你强制解除结义
close
break
! T- z% W( A2 e( R#ELSEACT
GOTO @MAIN
7 w2 I' t( k% T* ^& L2 [; ?MESSAGEBOX [错误]:你并没用100000元宝!
break
5 R/ a9 g8 V+ @5 _6 L

! E  ?; V: p8 \6 ]+ z[@CallInPutString11]
#IF
CHECKGAMEGOLD > 59999
#ELSEACT
MESSAGEBOX [错误]:元宝不足60000个！
1 U' E- z$ o( }BREAK


#IF
2 C' C# I0 S! E: G0 d- q9 kCHECKVAR HUMAN $Mrrp_结义状态 =
9 w) {$ @. q) {#ELSEACT
GOTO @MAIN
+ w% y) F& K  z8 T" v1 `MESSAGEBOX [错误]:你已经结义过了,无能再次结义.
5 K/ Z7 X7 p0 D. r% Kbreak
5 P! X2 H1 A3 u9 v) ^
#IF
, C3 A3 P  l& p7 E5 |CheckOnline <$STR(S11)>
2 S4 Q/ B  E6 `8 r#ELSEACT
GOTO @Mrrp_开始结义
MESSAGEBOX [错误]:结义对象[<$STR(S11)>]玩家并不在线!
break
* x6 N7 _% q$ t0 Q0 k4 J
#IF
CHECKPOSEDIR
" s8 p8 ~" W3 G1 [/ e2 E/ X8 F#ACT
GetOppositeHumName S0
GOTO @Mrrp_开始结义1
#ELSEACT
1 ~* Y$ c; `* q3 A! ^GOTO @Mrrp_开始结义
4 _1 t# Q9 i( q5 rMESSAGEBOX [错误]:请与结义对象[<$STR(S11)>]玩家面对面!
3 ?% v0 K- S* q3 ]! wbreak
/ h+ ]$ w& b/ P+ w
1 ^) E( K- @# D) ]. C+ Z
[@Mrrp_开始结义1]
- M- l* l) N8 |" I% i#IF
/ P( o' r2 s* a& YEQUAL S0 <$STR(S11)>
) j5 R' s& {6 z' l7 m& P' k0 y#ELSEACT
MESSAGEBOX [错误]:您对面的玩家并非你所输入的[<$STR(S11)>]玩家!
break

#IF
S0.CHECKVAR HUMAN $Mrrp_结义状态 =
5 G' i6 [1 s) W2 H* [2 N  u#ELSEACT
6 M2 {6 J+ k4 u6 O/ p( y* k6 oMESSAGEBOX [错误]:你输入的玩家已经结义过了,无能再次结义.
4 t! Q# j' v, [! K) V  G+ EBREAK


#IF
S0.CHECKGAMEGOLD > 59999
# v5 \4 q9 g; b$ }( ~#ELSEACT
& R' P' `0 l  }) T5 mMESSAGEBOX [错误]:你输入的玩家元宝不足60000个
BREAK
) D* l% l4 ?+ U
9 W& V1 L' H0 h% I$ r; W9 D#IF
0 B+ F- |& w1 b" \6 Y- e#ACT
6 Y0 p' W+ R) F4 u! U" NS0.CALCVAR HUMAN $Mrrp_结义状态 = 等待结义
S0.CALCVAR HUMAN $Mrrp_结义对象一 = <$USERNAME>
' P# e: Q/ \$ H9 H) \9 }GMEXECUTE 开始提问 @Mrrp_结义提问
; P, g1 w7 c$ M#SAY
\ \
$ |7 b0 W# G. R( D已向对方提出结义申请，请耐心等待答复...\ \
如果对方拒绝，不扣除元宝.\ \
, a8 l" r8 G: p
3 a( i/ h' u2 ]- D