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

6 w( Z5 Z) j4 C6 X$ Z

) J! l. s% A: C) P1 A7 Y[@main]


#IF
#ACT
MOV N$账号金额 0
MOV N$领取金额 0
! @  ~) g; o% h% UMOV S$账号信息 未输入
6 O$ k+ N6 y; g+ Y, H6 p. nMOV S$领取信息 未输入
. Y% i1 w6 a' h, |GOTO @转账页面
/ h0 Y& T4 }' }% l- N5 g
8 a$ ^! j( Y9 f/ J8 l
5 o  ^5 c, H# L* ?[@转账页面]
#IF
/ \9 Z1 i$ D1 w: W1 M! o5 I: L#ACT
OPENMERCHANTBIGDLG 0 607 1 0 0 0 1 455 20
3 M( l/ s7 E1 r0 ~5 S! E#SAY
  E; d* Z$ Q" m6 C1 r) Y7 Y: E\
- F( m* I9 I5 Y& O2 W< >      <本服提供充值转区服务.即便老区没有发展起来.也可转移到新区!/SCOLOR=103>\
/ ~( `2 [5 _( F< >      <例如:你当前有100真实充值.那么提交信息后.在新区充值100元./SCOLOR=103>\
, i& T2 A  c1 [; M- n< >      <即可把老区的真实充值转到新区.你将获得200元充值额度./SCOLOR=103>\
< > ------------------------------------------------------------------\
1 B0 s7 X* ^. g4 n: s6 L2 `< >                       <您的帐号真实充值:/SCOLOR=146>[<$GAMEGOLDEX>]<元/SCOLOR=146>\
4 s" W8 \. k3 ~$ H6 j< >       <请先输入转区金额.然后输入新区领取帐号..登录新区即可领取./SCOLOR=146>\
1 o& @4 }% I. ?& G( H  b< >       <确定转区后本区帐号将被封停无法登录.请认真考虑后进行操作./SCOLOR=146>\
9 ?4 H3 ?* M# R- n< > ------------------------------------------------------------------\
< >                   <【转区输入转区金额】/@@InPutString15(请输入您需要转区的金额:)> <转区:/SCOLOR=103>[<$STR(N$账号金额)>]<充值/SCOLOR=146>\
< >                   <【本区输入新区帐号】/@@InPutString16(请输入您新区领取的帐号:)> <领取帐号:/SCOLOR=103>[<$STR(S$账号信息)>]\ \
1 G/ y( u: r+ f0 T3 A
7 M( a# y. S( g3 E0 _3 N7 M# `9 n& V
0 R  H+ D# j# r% Q6 g1 e1 G% U2 Z< >                   <【点我老区确定转区】|254#确定后本账号无法登录游戏.尽量一次全部转区/@确定转区> <此处直接点击确定:/SCOLOR=103>\   
) ~1 d! C; d% m4 v% t5 z8 o< >                   <【此处新区领取点击】|254#此处请在新区领取充值/@领取转区> <此处为新区输入领取:/SCOLOR=103>\
- O! F9 b" z- J
+ e+ C/ C( r: X  k& \9 E
! N: R/ P# H/ F  A/ t) M5 `
, G2 L7 l) s& W
. v' |- S$ C- y6 |5 |, T[@领取转区]
#IF
$ G0 N0 t) s) ^#ACT
OPENMERCHANTBIGDLG 141 286 1 4 0 0 1 400 75
" N# y8 {0 O3 d/ f, y2 P, ]. t#SAY
\ \ \ \ \ \
<>                        <请输入转区的匹配信息/SCOLOR=146>\ \
<>                <你即将领取的金额:/SCOLOR=103> [<$STR(N$领取金额)>] 输入转区帐号后显示\ \
" i0 r$ B" ~% E5 f  e<>                <你的新区转区帐号:/SCOLOR=103>[<$STR(S$领取信息)>] 输入转区帐号后显示\ \

- z/ y3 V; a# b( B
' x- l4 [: J! {<>                          <请你输入领取帐号:/@@InPutString17(请正确输入领取转区账号:)> \ \


, P& ~1 t( W8 k) d0 e; j<>                            <【确认领取】/@确认领取>

% e3 T2 a) \( f/ N' _  E

5 G& c8 H  i) ?9 }
[@确定转区]
#IF
CheckContainsText <$SERVERNAME> 测试
#ACT
! U, z/ G) ^% L. D  smessagebox 测试区禁止.
BREAK
/ W6 F% e5 O' n3 d; b; M* J
1 ]0 j2 x8 |2 E1 t
" r1 Q/ B) C1 |6 O0 Q+ S' e/ Z#IF
EQUAL N$账号金额 0
#ACT
, Y) L# \& W  c3 ^messagebox \请正确输入将要转区的金额！
& s: p! C' H) A, ?BREAK


1 \+ f% u$ R+ l$ S! X#IF
EQUAL S$账号信息
#ACT
$ o0 a! R/ \) b; ?& _  T. @7 ?messagebox \请正确输入将要转区的账号！
BREAK


8 c, |. R( C/ Y8 L' @! {#IF
5 F% Z8 x: t5 ~: a#ACT
MessageBox 检测到你已填写完转账信息,是否确认转账？ @确定转账 @取消
BREAK
, c, F8 J2 E+ ]) A( Y) c

[@确定转账]
#IF
1 q' q8 Q( n  B7 x. T) CCHECK [65] 1
. N$ {2 X$ m: a#ACT
messagebox \抱歉,你已经转过区了！
BREAK
9 x. K% N# S6 g7 o
% G/ g( q* d2 e
#IF
$ x- {/ a; [4 @! V% H, {  ~# yCheckContainsTextList ..\..\..\..\..\太墟通区\转区助手\等待领取的账号.txt <$STR(S$账号信息)>
#ACT
/ S) _3 V) z) E$ q+ |# x1 n# umessagebox \抱歉,该转区账号已被使用！
  G& y8 q1 u0 O, ]( lBREAK
& Z! |, A" l8 t( U. _
1 P8 V8 Y: ]/ B5 ?; S
#IF
CHECK [65] 0
#ACT
SET [65] 1
GAMEGOLDEX - <$STR(N$账号金额)>
AddTextListEx ..\..\..\..\..\太墟通区\转区助手\等待领取的账号.txt <$STR(S$账号信息)> 0
AddTextListEx ..\..\..\..\..\太墟通区\转区助手\等待领取的账号.txt <$STR(S$账号信息)>:<$STR(N$账号金额)> 1
MOV S$转区明细 转区区名：<$SERVERNAME>----账号：<$USERID>----名称：<$USERNAME>
, n& {* H; p) }- t; r( g; hAddTextListEx ..\..\..\..\..\太墟通区\转区助手\等待领取的账号.txt <$STR(S$转区明细)> 2
! T6 g* @+ S- ?: ]" S1 M. ]MOV S$转区明细
% d6 V4 g+ n7 S$ M6 CMOV U36 1
GOTO @main
* P$ k, R& f- c0 U, [messagebox \你已成功进行转区,可在新区凭借输入的账号信息领取\　\此帐号永久冻结
KICK
  ]* \7 W: s! K1 D4 m0 l- bBREAK
. i0 L: q/ T- }5 E6 n
) ~6 {  y# }1 N' g- ?" H

6 T1 w  E+ J7 ]+ I. I
% \, q2 a: D' }1 a* O5 v% a* }[@InPutString15]
#IF
CheckContainsText <$SERVERNAME> 测试
" }2 k, l# Y7 V. z/ _* I#ACT
messagebox 测试区禁止.
BREAK

; |& [! r+ |( ?& M2 T5 x& Q
#IF
. d) O" J' \* j  R0 G7 U$ yEQUAL S15
#ACT
% x5 k' X! E, `$ T- h4 Q, Imessagebox \请正确输入将要转区的金额！
2 V! g3 x) v% O9 s3 w! f+ r7 uBREAK
* n: e& W* C8 g6 a: R; w$ l

6 K8 c' W6 T- Z. \/ x#IF
SMALL S15 28
#ACT
messagebox \抱歉,最低输入28！
* p( k5 Y% |' _! g4 IBREAK
: a/ q( }* V$ g7 a& Z

, w: ?( v2 V  i2 w/ q$ |2 Q#IF
checkGAMEGOLDEX < <$STR(S15)>
, m5 N: k, f" o4 f5 D: t#ACT
messagebox \抱歉,无法为你提供服务,请检查你的充值是否正确！
BREAK


#IF
#ACT
MOV N$账号金额 <$STR(S15)>
GOTO @转账页面
& s" J3 v& B0 \8 o+ MBREAK
;=====================================================================================
2 V9 o/ R: c4 C; U# {, o[@InPutString16]
#IF
7 g( S) G7 N2 o- W! vCheckContainsText <$SERVERNAME> 测试
#ACT
messagebox 测试区禁止.
/ Q! j. x6 v* C) ^' {9 f; c$ k* X" CBREAK
1 o! W7 N) A' Q  t#IF
, Y3 {1 V$ d. [, ~EQUAL S16
#ACT
  O- y% ^; |0 N# T/ Y0 X& hmessagebox \请正确输入将要转区的口令！
BREAK
4 v) Y/ q9 A5 ]7 a
6 P% Q1 ^8 _0 @
#IF
( s- C, ~2 q. E; v" |( ~CheckStringlength <$STR(S16)> < 6
#ACT
messagebox \安全提示,口令不得低于6位数.！
BREAK
5 q- _9 Q% f! Z! s; E  e( Y. ?
) H+ V7 Z( l3 _: C3 i/ q
% I3 A' a6 l  r0 @0 K/ p' D#IF
% K6 t! x) g5 C( A#ACT
. E  k% t, G; [: y8 eMOV S$账号信息 <$STR(S16)>
GOTO @转账页面
BREAK
6 r# O* n3 H+ ~) {7 }0 v;=====================================================================================
[@InPutString17]
#IF
CheckContainsText <$SERVERNAME> 测试
#ACT
6 A7 y6 D! U2 F; Cmessagebox 测试区禁止.
BREAK


#IF
NOT CheckContainsTextList ..\..\..\..\..\太墟通区\转区助手\等待领取的账号.txt <$STR(S17)>
" N" v: R  _( K, c#ACT
messagebox \抱歉,该转区账号并没有转区记录！
2 n2 f; I0 y+ V7 [" h; jBREAK


#IF
CheckContainsTextList ..\..\..\..\..\太墟通区\转区助手\等待领取的账号.txt <$STR(S17)>
#ACT
GetStringPos ..\..\..\..\..\太墟通区\转区助手\等待领取的账号.txt <$STR(S17)>
4 o  Q7 V8 I% X, a* H9 c" o$ [INC N0 1
GetListString ..\..\..\..\..\太墟通区\转区助手\等待领取的账号.txt <$STR(N0)> <$STR(S$领取信息)> <$STR(N$领取金额)>
INC N0 1
GetListString ..\..\..\..\..\太墟通区\转区助手\等待领取的账号.txt <$STR(N0)> <$STR(S$转区明细)>
GOTO @领取转区
& h% I' t$ Y9 i7 ~% w! a4 L* o2 n# LBREAK
3 w5 Z+ K+ d! E% t' N- i4 Y7 j; I;=====================================================================================
6 Q7 N7 H3 e. M* ~# E: A$ \+ ][@确认领取]
+ h  R4 O. ^; e6 s6 Y#IF
8 |+ a* g1 o& b5 s# V2 v0 @CheckContainsText <$SERVERNAME> 测试
5 k8 x( G% V' w) O8 M#ACT
messagebox 测试区禁止.
BREAK
: C7 {/ c$ ^, \7 D7 ?+ R
/ C: V2 R9 ^7 F& S. n3 ]
#IF
3 ?! m% O: D" g9 z1 P9 h$ BcheckGAMEGOLDEX < <$STR(N$领取金额)>
4 a6 [9 p+ s! c/ C  p  l4 g) Z#ACT
messagebox \抱歉,新区充值要高于或等于老区才能领取！！
BREAK
4 r5 }# ?9 V! l4 Z' _1 j
* E$ M+ E) m) U5 X0 D

; ]2 A5 M) [; l
#OR
- w4 V* ~! {5 Z% V2 n, iEQUAL S$领取信息
EQUAL N$领取金额 0
#ACT
0 B6 e' ]. H8 D) n+ Tmessagebox \请检查填写的信息！
8 C( ]" u7 w7 ~, j. UBREAK
! f" ~( u3 E4 r/ {2 R+ F7 ]! Y1 x' C5 s
+ f$ A. z% b* m! x8 e0 o
#IF
/ @6 u2 i6 w5 k0 h/ PCHECK [66] 1
#ACT
messagebox \无法重复领取！
BREAK


1 n) h4 L2 x0 s) U- G/ M#IF
* P+ G% m: i9 y6 Y3 l) zNOT EQUAL <$USERID> <$STR(S$领取信息)>
1 n1 [2 i3 ^  Z5 J#ACT
1 T: h6 e: J1 Rmessagebox \领取账号和转区账号不同,无法领取！
BREAK


#IF
: e: W  @6 `" _7 m  y1 V8 C4 T& |CHECK [66] 0
% t3 A, l2 D3 eEQUAL <$USERID> <$STR(S$领取信息)>
& q) l  Y" p* _& L! |0 V) l( ?#ACT
MOV N$大米数 <$STR(N$领取金额)>
MUL <$STR(N$大米数)> 10
SET [66] 1
" g* n+ k9 N1 {. J  W1 r. w0 mGAMEGOLDEX + <$STR(N$领取金额)>
6 [* g- W0 i! l  T/ p6 \0 RGAMEGLORY + <$STR(N$大米数)>
& J- r( ?" @6 U" R, e' r: |DelTextList ..\..\..\..\..\太墟通区\转区助手\等待领取的账号.txt <$STR(S17)>
. h2 [. H) o- b: a7 s; I" B1 LDelTextList ..\..\..\..\..\太墟通区\转区助手\等待领取的账号.txt <$STR(S$领取信息)>:<$STR(N$领取金额)>
DelTextList ..\..\..\..\..\太墟通区\转区助手\等待领取的账号.txt <$STR(S$转区明细)>
! K8 L- v  q, A# S- _4 _7 ?! qAddTextListEx ..\..\..\..\..\太墟通区\转区助手\成功转区的账号.txt <$STR(S$转区明细)>　　领取转区账号:<$STR(S17)>　　金额:<$STR(N$领取金额)>　　领取区服:<$SERVERNAME>　　领取人物:<$USERNAME>
" M- d& m* ~9 ?3 W) r9 h+ y6 Imessagebox \恭喜你成功领取转区的充值\　\<$STR(N$领取金额)>充值数量\　\
GOTO @MAIN
6 ?' \# n' Z. VBREAK