GOM引擎跨区自动转区的脚本制作教程

9 j+ {! Z+ u9 U, @4 E2 n- \* A/ |
9 I3 ]5 y) K1 T5 _/ M+ P9 a; \. F+ {5 q
) B' j, Y+ y9 E" M' Y5 ^
, m* D2 ^: O6 i4 _# ]
[@main]
: Z# z& X, [- T! q

; k* a0 n& d4 X( \, n#IF
#ACT
& ]/ n, R% z9 S' tMOV N$账号金额 0
" m8 o. [& j; n! a2 b  yMOV N$领取金额 0
MOV S$账号信息 未输入
+ N& D8 F3 H9 T& o% kMOV S$领取信息 未输入
0 M! i6 B0 ~8 a4 FGOTO @转账页面
7 u, [7 p6 x! g! s; z- x+ C7 x

[@转账页面]
#IF
#ACT
3 B, L8 v* ~( F! [3 r% j0 [OPENMERCHANTBIGDLG 0 607 1 0 0 0 1 455 20
#SAY
1 m& g' p8 p+ H3 D, W/ B\
< >      <本服提供充值转区服务.即便老区没有发展起来.也可转移到新区!/SCOLOR=103>\
. p( [3 S5 W8 Q< >      <例如:你当前有100真实充值.那么提交信息后.在新区充值100元./SCOLOR=103>\
< >      <即可把老区的真实充值转到新区.你将获得200元充值额度./SCOLOR=103>\
# c1 |& q7 G. k2 h: }( G< > ------------------------------------------------------------------\
< >                       <您的帐号真实充值:/SCOLOR=146>[<$GAMEGOLDEX>]<元/SCOLOR=146>\
" W- O3 O" c6 Q& D# I' S< >       <请先输入转区金额.然后输入新区领取帐号..登录新区即可领取./SCOLOR=146>\
< >       <确定转区后本区帐号将被封停无法登录.请认真考虑后进行操作./SCOLOR=146>\
+ C3 n: ]5 o8 a% o. I) B< > ------------------------------------------------------------------\
* f& R1 U# K1 P" B/ Y  f- u! D$ C< >                   <【转区输入转区金额】/@@InPutString15(请输入您需要转区的金额:)> <转区:/SCOLOR=103>[<$STR(N$账号金额)>]<充值/SCOLOR=146>\
< >                   <【本区输入新区帐号】/@@InPutString16(请输入您新区领取的帐号:)> <领取帐号:/SCOLOR=103>[<$STR(S$账号信息)>]\ \
7 c7 d1 e5 V5 x2 T% P& w

< >                   <【点我老区确定转区】|254#确定后本账号无法登录游戏.尽量一次全部转区/@确定转区> <此处直接点击确定:/SCOLOR=103>\   
< >                   <【此处新区领取点击】|254#此处请在新区领取充值/@领取转区> <此处为新区输入领取:/SCOLOR=103>\

1 S9 E" o+ a0 f8 P) b% Y  j
1 s! \' Y0 q& f$ l( @: s
: h3 j0 @4 D3 Q- z* F" X. q: _
[@领取转区]
- z- k* K" n6 I#IF
#ACT
# V" M+ b0 g0 H0 Q; o0 _+ WOPENMERCHANTBIGDLG 141 286 1 4 0 0 1 400 75
1 ?3 Z# `  |5 g$ N/ B1 F+ F#SAY
\ \ \ \ \ \
<>                        <请输入转区的匹配信息/SCOLOR=146>\ \
<>                <你即将领取的金额:/SCOLOR=103> [<$STR(N$领取金额)>] 输入转区帐号后显示\ \
. l. y# J# W3 r2 e( v$ T0 j. @! r<>                <你的新区转区帐号:/SCOLOR=103>[<$STR(S$领取信息)>] 输入转区帐号后显示\ \


6 _! c" S' c/ g6 [2 ^<>                          <请你输入领取帐号:/@@InPutString17(请正确输入领取转区账号:)> \ \


6 l% H& _$ V) z: T<>                            <【确认领取】/@确认领取>


! v. n# Z8 @; U7 B  e# e

[@确定转区]
' `. E/ v0 g! I#IF
CheckContainsText <$SERVERNAME> 测试
6 `. j1 Q) L0 [- l#ACT
messagebox 测试区禁止.
BREAK


#IF
EQUAL N$账号金额 0
#ACT
messagebox \请正确输入将要转区的金额！
BREAK
  @9 c  F% A/ L4 Y0 i, {

" S# d4 N9 Q2 P+ v' w9 V#IF
EQUAL S$账号信息
9 o8 p: Q. n/ p. ^#ACT
2 P- ^9 I* ], ~! bmessagebox \请正确输入将要转区的账号！
5 O) p& ?4 A1 U( KBREAK


2 n; V2 w3 x2 I; K#IF
#ACT
) e! Y' L  e# Q0 d% ^- }. \MessageBox 检测到你已填写完转账信息,是否确认转账？ @确定转账 @取消
BREAK

* {5 C2 F8 _+ k1 E
1 \( v9 h) [4 V$ i( c2 j9 I[@确定转账]
  o4 V0 J) D6 t: m4 C0 w#IF
CHECK [65] 1
& }& Y1 c7 }7 N$ o. j$ z#ACT
messagebox \抱歉,你已经转过区了！
BREAK


+ B. v' |3 l6 c$ o#IF
CheckContainsTextList ..\..\..\..\..\太墟通区\转区助手\等待领取的账号.txt <$STR(S$账号信息)>
#ACT
7 i' f" q. V# [- f$ T' smessagebox \抱歉,该转区账号已被使用！
BREAK
9 H9 ~2 X! |1 ~+ k  Z1 Z$ ]
& `6 f+ o/ u. c: F
3 `+ C9 G: ~  ~% Q+ U( C#IF
; `/ V* s# I& ^6 Y; |! X, gCHECK [65] 0
$ f3 n, k" E6 ?/ k6 k  o; a% B0 r#ACT
$ t% @" x9 u' A/ o9 I+ i' }SET [65] 1
8 K2 }: a( r3 V3 C( e" H8 `2 iGAMEGOLDEX - <$STR(N$账号金额)>
AddTextListEx ..\..\..\..\..\太墟通区\转区助手\等待领取的账号.txt <$STR(S$账号信息)> 0
AddTextListEx ..\..\..\..\..\太墟通区\转区助手\等待领取的账号.txt <$STR(S$账号信息)>:<$STR(N$账号金额)> 1
MOV S$转区明细 转区区名：<$SERVERNAME>----账号：<$USERID>----名称：<$USERNAME>
1 W7 c/ A" e1 ]+ BAddTextListEx ..\..\..\..\..\太墟通区\转区助手\等待领取的账号.txt <$STR(S$转区明细)> 2
MOV S$转区明细
MOV U36 1
GOTO @main
messagebox \你已成功进行转区,可在新区凭借输入的账号信息领取\　\此帐号永久冻结
KICK
0 O! O6 W5 g9 g6 _1 }6 G( q  cBREAK
7 L2 Q% j( j" g8 ~4 j2 @5 ?
% v: g) L- \$ Y* M


! n7 [9 U9 m# C[@InPutString15]
#IF
6 t8 i. J9 ]2 YCheckContainsText <$SERVERNAME> 测试
, D- J9 ~7 ~" k& b! V#ACT
messagebox 测试区禁止.
BREAK
, e2 o- }8 u0 j% U; K% i$ Q2 H* `2 D
! F7 ^2 ^; l# b. T  n: I# c6 ]
#IF
) u% u% j1 @( tEQUAL S15
0 h1 [6 K; Y% B! \3 y9 D) K! t2 U% E#ACT
messagebox \请正确输入将要转区的金额！
BREAK
1 n! W, W8 M4 e

- C3 y$ P8 u$ s% q9 {#IF
8 |+ o( d0 j; y2 M2 _6 gSMALL S15 28
#ACT
: ^* m9 |1 r' X" q# Ymessagebox \抱歉,最低输入28！
BREAK
+ L4 o* ^7 W; K  D7 Z

% K. A) |4 @+ k3 P#IF
; N: r7 Z3 M# K$ T# G4 lcheckGAMEGOLDEX < <$STR(S15)>
' N4 T3 K& B) v4 p#ACT
6 d* ~" y! r, m; Ymessagebox \抱歉,无法为你提供服务,请检查你的充值是否正确！
BREAK
4 F" T5 m: [, D4 S/ q

#IF
# v/ v) Q) W7 i" o#ACT
MOV N$账号金额 <$STR(S15)>
1 I" R& W  H& P+ AGOTO @转账页面
BREAK
# g5 @$ J7 G  q: W;=====================================================================================
[@InPutString16]
#IF
CheckContainsText <$SERVERNAME> 测试
  C3 {% x8 S  A8 ?8 [7 r, Z#ACT
, N1 w( I/ R+ z6 o% cmessagebox 测试区禁止.
BREAK
6 i, j; I% \: X: r$ }6 H$ B8 x#IF
8 H1 g2 K7 m. s) z2 |EQUAL S16
#ACT
7 V( e6 G/ s; B6 Lmessagebox \请正确输入将要转区的口令！
BREAK
+ a  D* w6 c7 `$ O/ Z7 M) Z

#IF
6 z) v$ @2 S% D& U1 F/ ~CheckStringlength <$STR(S16)> < 6
# U+ p+ U, M9 J7 w% E1 Y#ACT
1 _# }/ K0 t3 z3 Nmessagebox \安全提示,口令不得低于6位数.！
BREAK


6 A" w: t/ e- _/ s2 F#IF
* f/ y: o4 z  A) o) p#ACT
' R0 r2 ]# v+ U- j& w# tMOV S$账号信息 <$STR(S16)>
GOTO @转账页面
BREAK
;=====================================================================================
6 q$ S1 {6 B& m9 k: X" H  W[@InPutString17]
3 y9 P5 K; Q3 ?1 i- M#IF
CheckContainsText <$SERVERNAME> 测试
#ACT
- w8 @; A9 r9 a) pmessagebox 测试区禁止.
- G  E5 x9 B1 f" w( H: r9 l) k, n/ \1 }BREAK


: t9 s  w# h0 X. a1 M4 v4 X" `$ z#IF
( H$ [7 x; U* j7 aNOT CheckContainsTextList ..\..\..\..\..\太墟通区\转区助手\等待领取的账号.txt <$STR(S17)>
#ACT
1 _6 c# Q& z! T3 cmessagebox \抱歉,该转区账号并没有转区记录！
0 G9 q8 S9 e& }9 jBREAK

8 `% T4 E* L$ l4 A: Q: A
#IF
CheckContainsTextList ..\..\..\..\..\太墟通区\转区助手\等待领取的账号.txt <$STR(S17)>
/ z$ m2 e# c- a. w8 O7 R#ACT
GetStringPos ..\..\..\..\..\太墟通区\转区助手\等待领取的账号.txt <$STR(S17)>
INC N0 1
GetListString ..\..\..\..\..\太墟通区\转区助手\等待领取的账号.txt <$STR(N0)> <$STR(S$领取信息)> <$STR(N$领取金额)>
7 L5 U& y" P$ A1 O) `& AINC N0 1
GetListString ..\..\..\..\..\太墟通区\转区助手\等待领取的账号.txt <$STR(N0)> <$STR(S$转区明细)>
GOTO @领取转区
BREAK
3 F# U9 }2 `" h; h4 f;=====================================================================================
3 |5 o, A% ~" k/ {; N3 r0 a/ a[@确认领取]
#IF
  H* s7 N* _+ MCheckContainsText <$SERVERNAME> 测试
#ACT
3 N( }( t" T+ h- a" ~: bmessagebox 测试区禁止.
BREAK

/ R8 h8 ^# D  d7 f/ @; y% w- T
$ t4 G+ W2 P  {5 \7 U! _#IF
checkGAMEGOLDEX < <$STR(N$领取金额)>
#ACT
( [/ @; S- `( }% S4 w0 Gmessagebox \抱歉,新区充值要高于或等于老区才能领取！！
6 n  b4 _( o* ]4 R& V% wBREAK



$ k# `6 \( e; y: u/ @4 [$ B
, s0 y" c" R0 |/ M9 c#OR
EQUAL S$领取信息
; _. Y% Q* v% X$ ]EQUAL N$领取金额 0
#ACT
0 d1 B$ u& u# ?( vmessagebox \请检查填写的信息！
5 V. _6 q3 b( f3 ^BREAK


#IF
: I% b. n  u2 U8 ?- BCHECK [66] 1
# Z; C* d6 L; D5 Y/ Q/ n4 |#ACT
7 }8 }' r; r$ t$ B3 |3 A; P+ zmessagebox \无法重复领取！
BREAK


! ]. q+ N' N3 x#IF
% ^4 F+ y( V7 K9 gNOT EQUAL <$USERID> <$STR(S$领取信息)>
. {: C3 a3 G( e, p#ACT
# _% n) T& x7 m! Umessagebox \领取账号和转区账号不同,无法领取！
BREAK
* @% Q2 n: s, ~# X# ]" g
' ]! A+ C3 E+ l' P
#IF
CHECK [66] 0
& d5 l: b/ u9 `" b: V- K. OEQUAL <$USERID> <$STR(S$领取信息)>
6 K1 J. f; P# @5 |2 w. ]0 O/ j#ACT
% p. s3 |, e8 E5 sMOV N$大米数 <$STR(N$领取金额)>
MUL <$STR(N$大米数)> 10
SET [66] 1
2 h: V4 x2 E' r& SGAMEGOLDEX + <$STR(N$领取金额)>
/ m+ f( v9 I. ~" z# @GAMEGLORY + <$STR(N$大米数)>
$ z) E& [7 [9 s2 J5 n% qDelTextList ..\..\..\..\..\太墟通区\转区助手\等待领取的账号.txt <$STR(S17)>
DelTextList ..\..\..\..\..\太墟通区\转区助手\等待领取的账号.txt <$STR(S$领取信息)>:<$STR(N$领取金额)>
DelTextList ..\..\..\..\..\太墟通区\转区助手\等待领取的账号.txt <$STR(S$转区明细)>
1 Q# c# [. a7 e/ G  B( u# zAddTextListEx ..\..\..\..\..\太墟通区\转区助手\成功转区的账号.txt <$STR(S$转区明细)>　　领取转区账号:<$STR(S17)>　　金额:<$STR(N$领取金额)>　　领取区服:<$SERVERNAME>　　领取人物:<$USERNAME>
+ U9 }0 l0 B3 ?& Cmessagebox \恭喜你成功领取转区的充值\　\<$STR(N$领取金额)>充值数量\　\
GOTO @MAIN
/ w' i# _4 t' X8 e7 U0 iBREAK
& {. z& X- k& B" z
1 }8 H  `. g5 N$ T. d