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

% a; \9 S! i% G6 H8 J' v9 v# u; T5 a; x
& t6 x# O5 \8 ~6 U. n) H

0 E3 ^- ?! j+ l7 x$ q3 l
[@main]
! h9 F5 Q: S7 b( M" z

( D1 z0 x- h4 Q. J# E! u( a#IF
, x% Q. g7 Y' R( \$ a#ACT
) c8 }9 q) R5 y$ M4 f8 [2 zMOV N$账号金额 0
* B8 L! n8 ]( c' i% d& R3 d0 OMOV N$领取金额 0
6 \! ?# [0 S! x6 K+ _5 L; L& cMOV S$账号信息 未输入
; N% j" ]8 b4 l1 Y) Q+ q3 qMOV S$领取信息 未输入
GOTO @转账页面


[@转账页面]
" n* _  {( j% C0 x! P1 z1 s#IF
1 T$ F6 j* u* p: c0 V#ACT
' I( ~# Y; l  g1 Y+ d! OOPENMERCHANTBIGDLG 0 607 1 0 0 0 1 455 20
1 j- `7 S4 \6 w. v" U, W5 X& l#SAY
' b0 c" H0 m; }1 F' \' R3 v' e7 d\
! c2 P5 _2 s9 _" D< >      <本服提供充值转区服务.即便老区没有发展起来.也可转移到新区!/SCOLOR=103>\
< >      <例如:你当前有100真实充值.那么提交信息后.在新区充值100元./SCOLOR=103>\
8 f1 }3 M1 m6 x$ |) y0 J7 r< >      <即可把老区的真实充值转到新区.你将获得200元充值额度./SCOLOR=103>\
< > ------------------------------------------------------------------\
; Z" C- \; y9 K< >                       <您的帐号真实充值:/SCOLOR=146>[<$GAMEGOLDEX>]<元/SCOLOR=146>\
  z) D3 M0 q. p2 @< >       <请先输入转区金额.然后输入新区领取帐号..登录新区即可领取./SCOLOR=146>\
< >       <确定转区后本区帐号将被封停无法登录.请认真考虑后进行操作./SCOLOR=146>\
, C, z& [2 d% T! V! q* X% q" }/ W< > ------------------------------------------------------------------\
# E9 ]; e3 J1 [3 E; c< >                   <【转区输入转区金额】/@@InPutString15(请输入您需要转区的金额:)> <转区:/SCOLOR=103>[<$STR(N$账号金额)>]<充值/SCOLOR=146>\
! W! r6 m& F% N8 z' S< >                   <【本区输入新区帐号】/@@InPutString16(请输入您新区领取的帐号:)> <领取帐号:/SCOLOR=103>[<$STR(S$账号信息)>]\ \
+ N+ l, N  M3 p# ]

; G/ j+ K0 H( K7 e( p& F< >                   <【点我老区确定转区】|254#确定后本账号无法登录游戏.尽量一次全部转区/@确定转区> <此处直接点击确定:/SCOLOR=103>\   
< >                   <【此处新区领取点击】|254#此处请在新区领取充值/@领取转区> <此处为新区输入领取:/SCOLOR=103>\
, A1 m! S' j: ~% s


6 y* i+ s6 O5 f# I5 U: @' T2 G! E
' ^& L) x8 E* X) n[@领取转区]
#IF
7 n  `5 @3 Y% J+ E, S5 x  H#ACT
OPENMERCHANTBIGDLG 141 286 1 4 0 0 1 400 75
#SAY
\ \ \ \ \ \
<>                        <请输入转区的匹配信息/SCOLOR=146>\ \
<>                <你即将领取的金额:/SCOLOR=103> [<$STR(N$领取金额)>] 输入转区帐号后显示\ \
* f) e2 n8 y  u7 `<>                <你的新区转区帐号:/SCOLOR=103>[<$STR(S$领取信息)>] 输入转区帐号后显示\ \
' b" o* ~" Y7 N; S! p( A% \

9 A% |1 L0 T- |4 x2 E9 l; F<>                          <请你输入领取帐号:/@@InPutString17(请正确输入领取转区账号:)> \ \
* C2 h3 S4 X/ K

( K/ A% H6 i6 `2 `6 T1 t$ e<>                            <【确认领取】/@确认领取>



" j- V6 Z: J0 ?3 y' o: a
9 s% O9 e4 W% d; r! T5 C[@确定转区]
#IF
; x* _0 y( G/ \1 kCheckContainsText <$SERVERNAME> 测试
& `' G$ F4 N9 i7 P# X0 d3 k$ [#ACT
& h: n6 ?# X6 b; b4 imessagebox 测试区禁止.
: v. K+ p) D+ EBREAK
( i1 W4 C# {# G) G

#IF
EQUAL N$账号金额 0
#ACT
messagebox \请正确输入将要转区的金额！
BREAK
6 T* L" Y4 j  |5 h" r6 u, i) l
$ `& W1 U3 z' ?  x6 k
  q: c  d# a! [1 _#IF
: O: _# D$ V& rEQUAL S$账号信息
#ACT
messagebox \请正确输入将要转区的账号！
BREAK


( i# V+ J, L% l  O  N* f  b#IF
#ACT
MessageBox 检测到你已填写完转账信息,是否确认转账？ @确定转账 @取消
: u5 T) t5 Z6 `) d6 B' U+ eBREAK
' e2 ?. D) }' N" l, Y6 x! h
- h$ r( X2 I0 N3 K
# l) j9 h/ w; n5 _+ M! }. M[@确定转账]
$ ~4 T& N' f$ ?8 N#IF
CHECK [65] 1
( p8 V- v) L0 r: |" j" y; p9 j% D% E#ACT
messagebox \抱歉,你已经转过区了！
BREAK


1 {5 S$ q8 }, i3 M#IF
) t# S! I4 c9 oCheckContainsTextList ..\..\..\..\..\太墟通区\转区助手\等待领取的账号.txt <$STR(S$账号信息)>
#ACT
7 E$ r4 X4 Q7 U) omessagebox \抱歉,该转区账号已被使用！
BREAK
8 i4 C( Q. C5 P8 [
* p3 ~4 m2 k. H: ?* o
$ A6 g8 x( J; B#IF
CHECK [65] 0
- I. r$ u! B& D) e/ E# U#ACT
SET [65] 1
GAMEGOLDEX - <$STR(N$账号金额)>
AddTextListEx ..\..\..\..\..\太墟通区\转区助手\等待领取的账号.txt <$STR(S$账号信息)> 0
, I% d0 E" v6 e( E6 O5 }AddTextListEx ..\..\..\..\..\太墟通区\转区助手\等待领取的账号.txt <$STR(S$账号信息)>:<$STR(N$账号金额)> 1
MOV S$转区明细 转区区名：<$SERVERNAME>----账号：<$USERID>----名称：<$USERNAME>
AddTextListEx ..\..\..\..\..\太墟通区\转区助手\等待领取的账号.txt <$STR(S$转区明细)> 2
MOV S$转区明细
& n( p# j$ q) V- _9 PMOV U36 1
GOTO @main
' R7 R/ m2 v7 Y* e7 Hmessagebox \你已成功进行转区,可在新区凭借输入的账号信息领取\　\此帐号永久冻结
KICK
BREAK
( w. }' e; m- _4 u& h: v1 `
* F, S# _9 x( u

( E/ S" z: j- Q- x9 n, I
[@InPutString15]
#IF
CheckContainsText <$SERVERNAME> 测试
#ACT
messagebox 测试区禁止.
BREAK


% `* D9 r- s0 }; ]- o$ j#IF
2 B& B' z2 F" p3 l& C" Y  l7 sEQUAL S15
$ U5 n5 a* ~$ G( d( Z% N#ACT
' ~6 a/ f- }' ?) Qmessagebox \请正确输入将要转区的金额！
BREAK
6 R" g2 E/ B- u7 D% \/ |$ T7 w

#IF
' n  }- H$ F( lSMALL S15 28
#ACT
messagebox \抱歉,最低输入28！
9 W" A( Y' K" W* c4 kBREAK
7 _2 e8 K9 ]4 k$ H
. s0 h: f8 G8 B) Q) I. L( z
+ ~1 Z; Q( S& \1 E/ D# T#IF
checkGAMEGOLDEX < <$STR(S15)>
#ACT
messagebox \抱歉,无法为你提供服务,请检查你的充值是否正确！
. k( x8 L# x( ^5 KBREAK
+ P  @# f0 G9 I& U0 E6 i/ i# l

) s  H7 o/ I0 H  Y2 o#IF
7 ]5 f- r! e, l" t* W#ACT
# I$ g1 S- s/ H( S5 e" {MOV N$账号金额 <$STR(S15)>
# e; `. x" v' g" T4 Q  z2 c% ?GOTO @转账页面
6 g1 p' J; R0 a5 N% @' HBREAK
;=====================================================================================
[@InPutString16]
#IF
CheckContainsText <$SERVERNAME> 测试
) l8 s0 |5 c7 v#ACT
" M; x" \$ S' Z  \/ o! }8 gmessagebox 测试区禁止.
BREAK
& F3 U  [9 j! R% F0 q#IF
% J9 a; I2 t" |/ `9 AEQUAL S16
0 f+ U8 Y& U( O$ `' V#ACT
messagebox \请正确输入将要转区的口令！
# w& o: M4 H3 NBREAK


#IF
% V: Q4 [& W8 }, I) p8 V3 CCheckStringlength <$STR(S16)> < 6
#ACT
messagebox \安全提示,口令不得低于6位数.！
" G. r0 ~# @% u1 |8 j$ B  i9 MBREAK

6 L6 u) z6 T0 H0 ^( M& X
" ^. |5 `" W2 B( E  o#IF
1 X# u8 o4 C) U4 ]$ y7 U#ACT
! S% T; s3 \, ?5 X6 ZMOV S$账号信息 <$STR(S16)>
# i) f" ]/ {6 m& O" k9 b% Z# mGOTO @转账页面
5 z7 I2 Y; ]7 U. Z! N% bBREAK
;=====================================================================================
6 X, m2 p8 @! K, u+ b( M1 Z[@InPutString17]
! x. d3 W1 T# @! y4 n#IF
CheckContainsText <$SERVERNAME> 测试
#ACT
messagebox 测试区禁止.
" y" l( Q6 Y' S6 g! ?& `BREAK


! Y$ _6 x( P) c) K! L3 t) k8 T#IF
* [' v6 k5 s' q) k* ?NOT CheckContainsTextList ..\..\..\..\..\太墟通区\转区助手\等待领取的账号.txt <$STR(S17)>
& n* [' b0 C2 c- h8 M5 W#ACT
; G, x' _  c9 D  Q( Ymessagebox \抱歉,该转区账号并没有转区记录！
BREAK
$ n5 F* b& f, W* h- e
  p9 O2 C: A9 W- r3 P! T$ c
% B0 Q) r' ^4 f# _#IF
- i# ~. `% P, N. CCheckContainsTextList ..\..\..\..\..\太墟通区\转区助手\等待领取的账号.txt <$STR(S17)>
#ACT
2 C. e2 l6 N7 e! o9 F& sGetStringPos ..\..\..\..\..\太墟通区\转区助手\等待领取的账号.txt <$STR(S17)>
& v' I+ p+ u/ {3 O" W% MINC N0 1
* w, I* y, @% \0 ]+ mGetListString ..\..\..\..\..\太墟通区\转区助手\等待领取的账号.txt <$STR(N0)> <$STR(S$领取信息)> <$STR(N$领取金额)>
INC N0 1
GetListString ..\..\..\..\..\太墟通区\转区助手\等待领取的账号.txt <$STR(N0)> <$STR(S$转区明细)>
GOTO @领取转区
5 R8 X3 S' D- P( g" U2 }9 [& g2 z4 eBREAK
;=====================================================================================
[@确认领取]
#IF
& T* T/ m* @6 _. x% d: t! t6 j) vCheckContainsText <$SERVERNAME> 测试
9 d2 d1 H. Y/ s#ACT
% V7 K$ m- x4 L2 y/ j3 V/ D# l+ Gmessagebox 测试区禁止.
BREAK
3 q) o: U2 W9 p& V
7 o. g7 W6 p8 V( u
! q& P  I3 D4 T" `#IF
+ \4 w$ ~, w4 O- ^, Y8 KcheckGAMEGOLDEX < <$STR(N$领取金额)>
, `! ^* O  C8 z& {3 l#ACT
messagebox \抱歉,新区充值要高于或等于老区才能领取！！
& K' _+ K5 ?  RBREAK
: Y8 ~+ e% {% q( r; ?
3 ]# ?" Y; y: V$ k* n; C6 O' o

2 y2 V; p" y( k. H; g+ K
#OR
$ b8 Y; T  L6 t! [3 Z. \& ^" dEQUAL S$领取信息
EQUAL N$领取金额 0
8 u' Y; g3 y2 L" b! F#ACT
! F2 @" j0 c5 I- Imessagebox \请检查填写的信息！
% f* D) }: m2 [! W9 \BREAK


! v" a- i$ S: n& P5 }#IF
8 x  G/ x. R1 S) K+ UCHECK [66] 1
# p7 \; y' y) D9 u$ R#ACT
# e$ l* v% k- Smessagebox \无法重复领取！
* m, e1 W/ U% d9 IBREAK


+ u* P8 ^. l6 D/ q#IF
+ Q+ }; f4 _  n1 GNOT EQUAL <$USERID> <$STR(S$领取信息)>
$ X/ j! U' f  W( `1 B#ACT
messagebox \领取账号和转区账号不同,无法领取！
( t" R: l1 q; N2 l. i; V* e2 Z) t' eBREAK
6 T+ D. ]6 ?; P# E+ m

; Z2 L- \# U( g. P$ B: @3 `, I" t$ Y#IF
9 j2 t0 K7 P- U5 k" G1 W9 pCHECK [66] 0
& H1 l9 @6 |4 A# w. dEQUAL <$USERID> <$STR(S$领取信息)>
#ACT
! N3 Y% I! S" \) ]: nMOV N$大米数 <$STR(N$领取金额)>
MUL <$STR(N$大米数)> 10
SET [66] 1
GAMEGOLDEX + <$STR(N$领取金额)>
: }8 N$ k0 g) D8 m+ J$ dGAMEGLORY + <$STR(N$大米数)>
DelTextList ..\..\..\..\..\太墟通区\转区助手\等待领取的账号.txt <$STR(S17)>
DelTextList ..\..\..\..\..\太墟通区\转区助手\等待领取的账号.txt <$STR(S$领取信息)>:<$STR(N$领取金额)>
DelTextList ..\..\..\..\..\太墟通区\转区助手\等待领取的账号.txt <$STR(S$转区明细)>
AddTextListEx ..\..\..\..\..\太墟通区\转区助手\成功转区的账号.txt <$STR(S$转区明细)>　　领取转区账号:<$STR(S17)>　　金额:<$STR(N$领取金额)>　　领取区服:<$SERVERNAME>　　领取人物:<$USERNAME>
messagebox \恭喜你成功领取转区的充值\　\<$STR(N$领取金额)>充值数量\　\
GOTO @MAIN
* O- F7 i5 m8 i* EBREAK
1 q8 _+ I  o0 ^: v6 q
: ^, k- ^. w* B! _* t