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

/ q) l) w8 C( Y3 @5 |5 a

( }7 W1 q/ Y- r( w' m
( I" j( y$ ~1 ~; \" a1 Z) i% K8 y[@main]
3 Q0 A8 [* j( }
. p  a) f9 r2 A) l' Y0 C
#IF
#ACT
- l7 v7 e. Y) ~- [4 ~MOV N$账号金额 0
MOV N$领取金额 0
MOV S$账号信息 未输入
% a8 N  o3 P& G  x1 kMOV S$领取信息 未输入
5 o, H1 a2 A5 U% ZGOTO @转账页面

  U, [' ]& r# N" @
[@转账页面]
' V# l# v& g: A- r& E/ K  m8 A#IF
#ACT
OPENMERCHANTBIGDLG 0 607 1 0 0 0 1 455 20
# x$ U% [0 i2 Z: M# \3 g#SAY
# ?: k: g: J+ _4 A\
< >      <本服提供充值转区服务.即便老区没有发展起来.也可转移到新区!/SCOLOR=103>\
< >      <例如:你当前有100真实充值.那么提交信息后.在新区充值100元./SCOLOR=103>\
) Q( A; r7 ~& f) j! `) V< >      <即可把老区的真实充值转到新区.你将获得200元充值额度./SCOLOR=103>\
5 e2 t& U' M0 }, k) _" z< > ------------------------------------------------------------------\
< >                       <您的帐号真实充值:/SCOLOR=146>[<$GAMEGOLDEX>]<元/SCOLOR=146>\
< >       <请先输入转区金额.然后输入新区领取帐号..登录新区即可领取./SCOLOR=146>\
< >       <确定转区后本区帐号将被封停无法登录.请认真考虑后进行操作./SCOLOR=146>\
< > ------------------------------------------------------------------\
! J* }* _( E9 r3 A2 a0 j( @. _< >                   <【转区输入转区金额】/@@InPutString15(请输入您需要转区的金额:)> <转区:/SCOLOR=103>[<$STR(N$账号金额)>]<充值/SCOLOR=146>\
< >                   <【本区输入新区帐号】/@@InPutString16(请输入您新区领取的帐号:)> <领取帐号:/SCOLOR=103>[<$STR(S$账号信息)>]\ \
1 R$ w# W3 J4 Q
8 M- R2 l1 O" F1 [+ [  G7 p( \
< >                   <【点我老区确定转区】|254#确定后本账号无法登录游戏.尽量一次全部转区/@确定转区> <此处直接点击确定:/SCOLOR=103>\   
< >                   <【此处新区领取点击】|254#此处请在新区领取充值/@领取转区> <此处为新区输入领取:/SCOLOR=103>\

2 ~" Z- }: ^4 p; ]! h


[@领取转区]
#IF
#ACT
OPENMERCHANTBIGDLG 141 286 1 4 0 0 1 400 75
# y" m. A$ k" A#SAY
7 \$ w: a, A' e) X3 `9 t3 p\ \ \ \ \ \
2 |* {+ d4 q3 W! [- X7 _2 ^8 j& v. M<>                        <请输入转区的匹配信息/SCOLOR=146>\ \
5 P. ]5 A1 @: I; S$ r8 h/ R<>                <你即将领取的金额:/SCOLOR=103> [<$STR(N$领取金额)>] 输入转区帐号后显示\ \
: r% q* [9 a2 ^  Q<>                <你的新区转区帐号:/SCOLOR=103>[<$STR(S$领取信息)>] 输入转区帐号后显示\ \


<>                          <请你输入领取帐号:/@@InPutString17(请正确输入领取转区账号:)> \ \
* O8 G' B- Q& d" t/ o0 J6 d

+ j" U) K. M$ b9 I3 Y<>                            <【确认领取】/@确认领取>
( c+ E" G) R( _  l6 _

, N) A* H1 ]3 {. ^
. k! k+ m/ U2 u( U0 e4 V2 r. @
! p) Z( t' ]$ N- F. Z; N: D[@确定转区]
#IF
CheckContainsText <$SERVERNAME> 测试
#ACT
messagebox 测试区禁止.
$ l8 A4 W: n# A+ @$ k' K# |BREAK
9 C# [7 f6 ?/ d
& N7 N2 Q/ m5 y; n* T  C6 i5 G% C
4 Y( k6 n* t( u9 `! G#IF
- }4 @4 U4 a5 w2 \6 u8 P6 s9 i. c& EEQUAL N$账号金额 0
" |' u1 w4 C1 o7 D9 Q/ U#ACT
messagebox \请正确输入将要转区的金额！
BREAK
7 g" F+ Y* X. u- |; O

1 B9 e6 v! @2 J) x4 R! |#IF
EQUAL S$账号信息
#ACT
4 J* M+ Y. w9 dmessagebox \请正确输入将要转区的账号！
BREAK

6 L/ K+ P- j( N
#IF
#ACT
$ m. K4 V9 R. F1 f6 A! mMessageBox 检测到你已填写完转账信息,是否确认转账？ @确定转账 @取消
' r% [  l1 z0 E) P& G/ y/ s# u1 GBREAK


[@确定转账]
" w0 W1 ~- m. j#IF
$ A% s% V- k' y( z* k4 gCHECK [65] 1
#ACT
, C. S! A. T4 a( H3 Xmessagebox \抱歉,你已经转过区了！
1 ?8 u: B4 ^' u" g  |, K% G; K. kBREAK

# t) @3 L& J; @1 Q% R
2 F3 ^$ ^( j' e/ Q4 o3 h0 a7 C% T! M#IF
! o% R' J1 }8 v/ iCheckContainsTextList ..\..\..\..\..\太墟通区\转区助手\等待领取的账号.txt <$STR(S$账号信息)>
#ACT
5 R: {  Q: o8 b) ]$ Bmessagebox \抱歉,该转区账号已被使用！
BREAK
9 C' @2 K. Y# d

9 e  f6 `1 ]% C# Q#IF
CHECK [65] 0
#ACT
SET [65] 1
1 l( |, D) A8 H8 v) P7 bGAMEGOLDEX - <$STR(N$账号金额)>
! k2 d$ a' ^# Y$ `0 I* M5 v) oAddTextListEx ..\..\..\..\..\太墟通区\转区助手\等待领取的账号.txt <$STR(S$账号信息)> 0
6 t. i  |5 n( aAddTextListEx ..\..\..\..\..\太墟通区\转区助手\等待领取的账号.txt <$STR(S$账号信息)>:<$STR(N$账号金额)> 1
/ L* V6 u0 U, \/ u* mMOV S$转区明细 转区区名：<$SERVERNAME>----账号：<$USERID>----名称：<$USERNAME>
! R' \3 ]4 c2 ?AddTextListEx ..\..\..\..\..\太墟通区\转区助手\等待领取的账号.txt <$STR(S$转区明细)> 2
" _* N4 ~( T' I$ S4 tMOV S$转区明细
5 V  @' g6 z0 j) Q: ?3 O9 hMOV U36 1
GOTO @main
messagebox \你已成功进行转区,可在新区凭借输入的账号信息领取\　\此帐号永久冻结
6 P0 g$ c& O# {: k+ IKICK
BREAK
" \% {* f$ j; y
& H" k3 o( _& V5 N8 [( e9 z

% Q' q1 t- _" ~/ ^8 Z9 D
: t. a" H6 C" v+ J5 e) I/ b[@InPutString15]
#IF
CheckContainsText <$SERVERNAME> 测试
#ACT
% j3 I8 w5 G6 o) h# z! T9 I0 Omessagebox 测试区禁止.
BREAK
% ?( S3 l6 G" v( e
$ A1 s6 U8 O9 r2 R# j3 ^! g( N
#IF
0 g) W+ l% E) J3 }; N1 y; I! D* e* hEQUAL S15
  l# Z6 c. E' b#ACT
messagebox \请正确输入将要转区的金额！
% Y' p& ^& Z( w0 U( U) N% iBREAK
; ]4 [% ?, y: l1 J$ Y" S6 x
" a! F& n& `9 C* w, T1 I# e% m9 y1 K
#IF
+ F* |' Z) Y& L9 h$ v6 `SMALL S15 28
0 M8 F. e4 i; r1 \#ACT
' a# l( c# L3 W/ B: _messagebox \抱歉,最低输入28！
. L8 y+ ]% o* O$ |* \# f' sBREAK
+ ~: e( ^" V8 h) a* ~% Y$ v
, o: u8 a5 V0 t. ^( [
, t# b- V$ P4 X. T- k) h$ e#IF
2 t( n' V6 m/ h; NcheckGAMEGOLDEX < <$STR(S15)>
+ ~* O: t  u/ H* Y/ v0 k#ACT
, Z7 s( O2 u7 R" j, zmessagebox \抱歉,无法为你提供服务,请检查你的充值是否正确！
+ D2 g2 N1 H; j7 c  EBREAK

! X1 R6 B( B7 \4 `
) X/ g9 }% I4 ?7 k#IF
#ACT
MOV N$账号金额 <$STR(S15)>
2 X# P* H% t. W) ~. H% H& _GOTO @转账页面
BREAK
;=====================================================================================
[@InPutString16]
" j7 ]3 F2 q& X! O. k#IF
CheckContainsText <$SERVERNAME> 测试
  S3 B) v; z2 L0 \#ACT
messagebox 测试区禁止.
BREAK
#IF
EQUAL S16
4 B5 j+ l! P4 S  ^$ ^! q+ Q$ @* f#ACT
$ O# p9 g5 H2 `* ?messagebox \请正确输入将要转区的口令！
) c  {) o. J" p* a" d9 `5 SBREAK

& O# l1 i8 D2 a/ _* w0 H
#IF
5 R1 k* O( I( {7 h- FCheckStringlength <$STR(S16)> < 6
#ACT
) S3 `/ r6 y5 {8 y8 Y" Cmessagebox \安全提示,口令不得低于6位数.！
BREAK


#IF
#ACT
% `9 f/ e, \/ a: [9 [MOV S$账号信息 <$STR(S16)>
( i# z% L/ ]) g7 H; [$ u+ }! PGOTO @转账页面
BREAK
;=====================================================================================
[@InPutString17]
9 q; W% q( Q, V8 ~#IF
4 g8 l9 U: ?2 ]CheckContainsText <$SERVERNAME> 测试
1 E7 Y$ ]# B# S. ?( j#ACT
6 z4 `; W8 w9 {2 Z; u! N( Hmessagebox 测试区禁止.
) ]: w# `' c9 T/ K3 [2 I4 cBREAK

! Q) d% s  z3 g5 m' F& K
, Q+ y& d7 p' \: P+ b1 V3 c$ [#IF
; Q! L5 m: W. @/ P* K' v) @8 L( MNOT CheckContainsTextList ..\..\..\..\..\太墟通区\转区助手\等待领取的账号.txt <$STR(S17)>
  ^5 F. R9 }1 o# ?#ACT
' l+ ?6 a' o; d. y* j+ _$ ~) m- kmessagebox \抱歉,该转区账号并没有转区记录！
BREAK
' ~: n+ \0 Q: s  c; S' @

, i- K1 M5 }: V. O& \8 H#IF
. S( }( z' }+ a% \/ qCheckContainsTextList ..\..\..\..\..\太墟通区\转区助手\等待领取的账号.txt <$STR(S17)>
- l( x+ N9 S& T& r8 [, m( I$ t3 \#ACT
GetStringPos ..\..\..\..\..\太墟通区\转区助手\等待领取的账号.txt <$STR(S17)>
INC N0 1
GetListString ..\..\..\..\..\太墟通区\转区助手\等待领取的账号.txt <$STR(N0)> <$STR(S$领取信息)> <$STR(N$领取金额)>
! `) V3 @3 m1 U% K, y+ oINC N0 1
GetListString ..\..\..\..\..\太墟通区\转区助手\等待领取的账号.txt <$STR(N0)> <$STR(S$转区明细)>
% _. }3 x  m' A7 |GOTO @领取转区
BREAK
6 ]% Y+ Y$ ~% w+ G' h;=====================================================================================
[@确认领取]
#IF
CheckContainsText <$SERVERNAME> 测试
#ACT
messagebox 测试区禁止.
" Q* w& p/ \/ K. |8 u2 b3 S* P: SBREAK

# E; v5 A, w$ E0 k
- ^0 x  g. e' Z. K#IF
checkGAMEGOLDEX < <$STR(N$领取金额)>
' _+ p+ `: _% m5 H+ R1 P#ACT
! v7 |9 f  B: emessagebox \抱歉,新区充值要高于或等于老区才能领取！！
* p& y; V% j+ t2 cBREAK

- l( s- K# u6 ]6 i8 [6 L8 Q
" i2 Q4 X3 W, Z9 g/ r: s" m

#OR
EQUAL S$领取信息
EQUAL N$领取金额 0
#ACT
1 M# }5 W, l& \+ Xmessagebox \请检查填写的信息！
BREAK

$ o3 S& j- v( D# W" X
! v5 f5 K& w- R, F# k1 M9 C! k#IF
8 ~' c) w0 P7 l; s% \9 ]3 f* FCHECK [66] 1
#ACT
messagebox \无法重复领取！
  X8 N) i& k0 ]6 _2 [' K& WBREAK
$ }( k; K* q  E  O! o- D4 p1 R7 l
& s  J* K7 o) \2 j
#IF
( g0 w6 D7 Z- Z, o4 ZNOT EQUAL <$USERID> <$STR(S$领取信息)>
3 m5 |  S3 g8 }0 Z# h#ACT
, S+ f) [" o/ @. rmessagebox \领取账号和转区账号不同,无法领取！
5 W/ w0 R& p  b9 T0 qBREAK
3 P2 H& R  D5 [& X+ ]! t8 P

#IF
0 s- l5 S8 G, {; P5 T! p0 eCHECK [66] 0
0 q4 B7 }* |0 U1 Y+ ^) H1 t; OEQUAL <$USERID> <$STR(S$领取信息)>
' K4 r# }5 m5 d+ V#ACT
MOV N$大米数 <$STR(N$领取金额)>
MUL <$STR(N$大米数)> 10
) U) i2 e) q- t( zSET [66] 1
GAMEGOLDEX + <$STR(N$领取金额)>
( I6 v( ^" ^; e3 c( _+ v$ qGAMEGLORY + <$STR(N$大米数)>
( U, Z$ d) A% n( I9 k0 v% dDelTextList ..\..\..\..\..\太墟通区\转区助手\等待领取的账号.txt <$STR(S17)>
DelTextList ..\..\..\..\..\太墟通区\转区助手\等待领取的账号.txt <$STR(S$领取信息)>:<$STR(N$领取金额)>
9 S2 J2 b; x/ y( f4 q% P5 {) s: Q% {DelTextList ..\..\..\..\..\太墟通区\转区助手\等待领取的账号.txt <$STR(S$转区明细)>
) L  i. l; U+ V6 N7 m( kAddTextListEx ..\..\..\..\..\太墟通区\转区助手\成功转区的账号.txt <$STR(S$转区明细)>　　领取转区账号:<$STR(S17)>　　金额:<$STR(N$领取金额)>　　领取区服:<$SERVERNAME>　　领取人物:<$USERNAME>
+ G8 L4 f7 a4 g" {0 Y9 cmessagebox \恭喜你成功领取转区的充值\　\<$STR(N$领取金额)>充值数量\　\
GOTO @MAIN
BREAK
+ k3 c3 X1 I4 K: m) u: \, J# \