' N7 d: a$ i! T1 o. X. J
, C& F' @4 h2 I! @& N7 R' N F2 X
5 e, |$ d0 i% {) r @7 n0 H- J2 a/ O: ^& h5 t
% ^: f) R4 d* j+ F1 k) v
[@main]$ d7 L) V5 y; l% O. N
, W/ W3 K# O6 c3 @: U/ A# ?$ ?6 q9 W3 S
#IF
4 F; Z# @1 ^+ x* u& S#ACT
* g: W) i: ?7 d" L; y% J B$ iMOV N$账号金额 0- ]. S* W) n# w
MOV N$领取金额 0
' m$ @: O, m! H8 B8 ?MOV S$账号信息 未输入
7 B' X7 Q* p' [3 F% S+ M/ AMOV S$领取信息 未输入
* p, X2 i" c$ M F1 T H. o% EGOTO @转账页面7 A1 J- s" t# C6 v0 o6 V& x( A
6 e0 N: _4 x5 @& o A
# N, k4 _% ]4 ~' \9 f& d[@转账页面]
' y9 Q( ?' }9 g6 N; a#IF) b+ B `' g, O+ @/ E# k* s* f
#ACT9 y( q) d, [" t) n7 _
OPENMERCHANTBIGDLG 0 607 1 0 0 0 1 455 20
1 U5 M: `3 `: i" L#SAY6 }& J6 Y- ]) S0 n4 @# F2 N, E
\
# X! P6 `, Z+ [ K. o< > <本服提供充值转区服务.即便老区没有发展起来.也可转移到新区!/SCOLOR=103>\
$ q9 B$ S t9 t" `$ h- |< > <例如:你当前有100真实充值.那么提交信息后.在新区充值100元./SCOLOR=103>\4 G" v# O( J7 P q p2 F
< > <即可把老区的真实充值转到新区.你将获得200元充值额度./SCOLOR=103>\
* t8 U: L& K0 |( h3 `! Y4 _" A< > ------------------------------------------------------------------\
! m3 M3 C7 \% |5 O# v5 W5 A< > <您的帐号真实充值:/SCOLOR=146>[<$GAMEGOLDEX>]<元/SCOLOR=146>\
# x; T. W0 o& ^, y4 B# {< > <请先输入转区金额.然后输入新区领取帐号..登录新区即可领取./SCOLOR=146>\: P# c& O2 z! u
< > <确定转区后本区帐号将被封停无法登录.请认真考虑后进行操作./SCOLOR=146>\# O" n5 a+ I) v
< > ------------------------------------------------------------------\5 ~" I' x: P0 `$ y: K; J% ~: [& k
< > <【转区输入转区金额】/@@InPutString15(请输入您需要转区的金额:)> <转区:/SCOLOR=103>[<$STR(N$账号金额)>]<充值/SCOLOR=146>\" m P1 h4 h6 l
< > <【本区输入新区帐号】/@@InPutString16(请输入您新区领取的帐号:)> <领取帐号:/SCOLOR=103>[<$STR(S$账号信息)>]\ \! X6 N& T8 ~2 D$ Q# x( k
' a# p% V. O& j0 a2 r$ t8 P7 O
7 z+ M1 ^# i0 v9 F' K% G
< > <【点我老区确定转区】|254#确定后本账号无法登录游戏.尽量一次全部转区/@确定转区> <此处直接点击确定:/SCOLOR=103>\ 4 u: q& D( B- S& D4 _
< > <【此处新区领取点击】|254#此处请在新区领取充值/@领取转区> <此处为新区输入领取:/SCOLOR=103>\
# j. {# T) d, [0 T7 p1 {3 @& f) [6 }3 u! E" E# j: c. w
" r+ ^; A2 T. D0 I& |
! `5 K! B, P0 V" S5 r8 \
+ M4 ^' X+ W% n3 R$ ^4 r9 B" H. u[@领取转区]
4 \- x5 L" H9 j& m) e#IF
* J/ M* _2 A# p# M#ACT- p# R7 B3 U1 U& k$ f6 l
OPENMERCHANTBIGDLG 141 286 1 4 0 0 1 400 759 H3 f3 q4 P6 Q+ X$ s4 `
#SAY s: s4 B- L' L3 M5 ]0 R# O! B' q, ?
\ \ \ \ \ \$ t( I7 X& {/ m+ E: Y
<> <请输入转区的匹配信息/SCOLOR=146>\ \
# K0 q' M$ s% b1 z<> <你即将领取的金额:/SCOLOR=103> [<$STR(N$领取金额)>] 输入转区帐号后显示\ \
; _8 ]8 v0 b' C% a<> <你的新区转区帐号:/SCOLOR=103>[<$STR(S$领取信息)>] 输入转区帐号后显示\ \; M1 ?* q; W1 {! u* M
' ?! t# f& m7 n1 ], y2 q
# f- {( n; U2 D6 {6 X+ v6 p<> <请你输入领取帐号:/@@InPutString17(请正确输入领取转区账号:)> \ \
7 y; i% ~/ U G1 O: W3 d
' Y/ B, I, P. L& B
7 }! s; Q% F1 {+ o) z- t<> <【确认领取】/@确认领取>" [% S* j9 i( r/ a& \6 U: f
. i* }7 c2 s$ p" W5 L
2 q4 p1 S0 W/ [
( C' M+ g5 _5 }' L, M1 y5 O# y
" u3 m3 Y/ t. O% F[@确定转区]. i/ f) ^$ E4 U% n- ~' W# A
#IF
+ r$ }) [0 N& _# N/ @% Q5 \CheckContainsText <$SERVERNAME> 测试( x0 B: Z" g; ?" }& t0 G9 h
#ACT
! ~; \8 o9 t1 B- Y3 Q% {messagebox 测试区禁止.% ?4 `) E1 c8 I
BREAK9 ]+ W, R# r+ r) J
1 ]+ s# l$ a4 M$ Z
; a {, o/ Y* ?0 p6 L: z8 M+ X3 n#IF6 L3 P) L( U# ~' z/ F- U
EQUAL N$账号金额 0
6 N, {4 X9 I# I7 m7 R$ A) f#ACT
' Z- M1 X3 S' p/ x' E1 N1 X& t3 ?, mmessagebox \请正确输入将要转区的金额！
8 {0 \7 a9 p5 fBREAK
8 t0 N/ Y1 I( ^( o: n( A! B( V
" H" X0 z) i4 e4 G- l
$ h2 [$ s- |* k/ i1 D#IF* E- k: r6 l1 A2 E. x
EQUAL S$账号信息
% n! C. C* p$ ]1 J) f0 y( X, y& K( S#ACT1 Q+ `; d9 G+ @) T k
messagebox \请正确输入将要转区的账号！
) {# X* w( t/ L7 d* W( \# MBREAK# b; u: O4 x( \) C( ~
) q% C4 g* |$ ?
% W0 L& \" I/ E' E#IF
$ M: z" n( t: E, T#ACT( _ ?; e: h( T! W
MessageBox 检测到你已填写完转账信息,是否确认转账？ @确定转账 @取消
. i. C9 S! O1 X/ t# fBREAK
5 R5 Y; t; |' _7 M q% u3 N( T$ w9 B- h" P8 T
& v% ?3 b& ]$ ?# m( b4 \& ~: I4 Z[@确定转账]; k' y8 `9 D0 W" `/ V& y2 e1 _
#IF! t+ l( s$ s, K h: D9 J/ i
CHECK [65] 1
3 w. L0 D" L0 g9 J! g#ACT
( ~4 z/ V7 L: V! Zmessagebox \抱歉,你已经转过区了！! G k4 m: ?0 B
BREAK
3 o6 ]% }9 b9 q9 i/ H8 R) M. c4 n0 \& v8 |2 q
0 I% }$ g0 n8 k- g* A1 i: D
#IF
- d2 w/ m+ |4 H: }" i0 Z- d& ]: oCheckContainsTextList ..\..\..\..\..\太墟通区\转区助手\等待领取的账号.txt <$STR(S$账号信息)>
' m3 h1 u; V0 k, b6 W& @' y! t#ACT
& I" i* D f, v zmessagebox \抱歉,该转区账号已被使用！) p r/ K4 N) U6 J& f- I* k
BREAK, o, O* d6 F# _. B
4 ~) e a8 g7 g) t6 o
9 P3 Z5 F: `$ `7 v. D' e3 B7 Q#IF+ q" Y, A3 z# y1 e. e7 l: p
CHECK [65] 04 ?2 k+ y8 O+ L( k! P* D$ d3 c
#ACT% q& u! E& x5 J; r
SET [65] 1# q+ f5 c. X$ z6 T
GAMEGOLDEX - <$STR(N$账号金额)>
$ o" F% Y: @# T- N2 `- a2 KAddTextListEx ..\..\..\..\..\太墟通区\转区助手\等待领取的账号.txt <$STR(S$账号信息)> 0
- H+ o6 G+ a6 U" l- c- Z9 Q! ?( `AddTextListEx ..\..\..\..\..\太墟通区\转区助手\等待领取的账号.txt <$STR(S$账号信息)>:<$STR(N$账号金额)> 1
: w- B! A" F' t1 oMOV S$转区明细 转区区名：<$SERVERNAME>----账号：<$USERID>----名称：<$USERNAME>
: l6 h6 F: f- y. h3 L! Z" q7 XAddTextListEx ..\..\..\..\..\太墟通区\转区助手\等待领取的账号.txt <$STR(S$转区明细)> 2
+ F6 c* S( n6 V* `3 w6 X) S3 ~MOV S$转区明细6 W k% e: C. F0 n! Y- v' A
MOV U36 1
+ S( o3 U9 N8 ?) w# D+ eGOTO @main* O( v; h+ S: j* A2 Z: J; Q9 x
messagebox \你已成功进行转区,可在新区凭借输入的账号信息领取\ \此帐号永久冻结
. J* f: |# o! z/ u7 x* T( xKICK
# f6 b2 ~9 e- Y' f0 ~' i/ G# I2 iBREAK+ X8 K5 V( Z& \
% f; m3 k2 i. j& L) |2 x+ b! g* y# N9 }' t0 h0 N5 w
8 i& t$ B" Q) \3 ]6 D8 J3 d1 @3 N/ m
$ K6 f! l7 m& X4 ^* r3 E) b. f" _[@InPutString15]
4 C0 h3 v3 ?# Z#IF: h; Y5 N& P- I J8 _% ^6 u
CheckContainsText <$SERVERNAME> 测试+ }, Y& t* {2 F& F9 x' d+ t
#ACT( l2 R( q. k3 s6 m
messagebox 测试区禁止.1 C' q+ Z) ]: A5 ]4 s+ V8 u& B2 r
BREAK5 I/ w( C) S. m* n
' V8 W) F, i# b
3 v2 h( |+ h8 x% H8 ]9 N5 L#IF6 `) }. o* r' f3 C3 e
EQUAL S15. h5 Z3 ~; P9 h/ }. j3 U
#ACT$ B! }1 P) e( q a' [8 P
messagebox \请正确输入将要转区的金额！" A% P) o$ f6 S& D% z
BREAK
4 @) O+ q u' h; W! e
& s% E* u* ]" C5 k& S; C+ A
. e ]& G/ F" S1 j0 V; W. C0 ], F#IF0 m' ^8 X" q7 L
SMALL S15 28, A6 I! a- p& F; m* r5 N( d' M, C
#ACT5 d8 d4 a6 q N6 E$ \
messagebox \抱歉,最低输入28！- B, J( n* I; a- K$ j6 A( [
BREAK
% ]0 s- A- I& i" D% J5 T* ]
- X" w7 k! X1 o+ U# L" a2 Y4 X8 R+ M1 K
#IF) K5 d) f- D2 n* @& |
checkGAMEGOLDEX < <$STR(S15)>
: d, l& S- n5 F- |& s" b#ACT
: X9 }+ V" K5 v2 Z! emessagebox \抱歉,无法为你提供服务,请检查你的充值是否正确！
% G: [. t0 R. a$ m5 D' \BREAK+ C+ o) G0 X o4 c( O! t$ L7 \9 P
/ M8 c; m; ~6 X. p% j
3 G2 s: F0 Y7 O: e#IF1 e3 q$ t/ N8 r: F
#ACT. _7 [+ C8 A* o) g
MOV N$账号金额 <$STR(S15)>
/ u0 o' R3 x' `) R* g X" m- YGOTO @转账页面0 v* ]6 x1 a* t5 D* ?
BREAK
- z& [' r% E; Y' J2 q2 B0 R;=====================================================================================% a- R" l1 n0 N; Q* Z; s
[@InPutString16]
# G# e* V. R- m$ _9 K#IF
2 }& K# m% ~4 A \8 e4 xCheckContainsText <$SERVERNAME> 测试
; I1 v* k9 [- ~7 D3 [#ACT& Y9 k3 a/ s7 S/ p$ w( o1 Y
messagebox 测试区禁止. t% Q% r) Z! N- k" y' n* E
BREAK
( |' o6 v$ X, H" J#IF
* X- @' l4 M5 L. T" S" D& f; k/ oEQUAL S163 s7 a% r, k' d* x: F5 f
#ACT7 g1 D( M+ W& n6 h+ G" m1 F
messagebox \请正确输入将要转区的口令！% a/ i# q( }( Q- F6 I
BREAK* B2 I" k2 r# G. L
! B2 `" i+ ]0 L- J8 r5 s5 l
4 w+ v) S0 H$ O- l- L
#IF# X2 a. N! u6 L
CheckStringlength <$STR(S16)> < 6
- N. a0 s; v/ T2 o S#ACT
* l$ I G0 y u8 I5 e A1 \messagebox \安全提示,口令不得低于6位数.！$ d& n% w2 C. i; ` U( M
BREAK( ?: T% z* x9 h. _% y# X
* N$ ^* A* u( e
( l4 Z" x7 f4 g$ t; q#IF+ p( k7 Y( _/ a k* g- ^5 ^
#ACT1 S5 R1 f- `7 L6 V
MOV S$账号信息 <$STR(S16)>
- w$ E, h1 G8 s) W, zGOTO @转账页面
7 x D! p$ L0 c) hBREAK: s1 `! |# D! w% B& O+ K1 L
;=====================================================================================
3 _& |+ c1 W% A; E! W1 R, h. a" z5 Z; M3 X[@InPutString17]
* Z) T4 A. o" m9 y#IF
( e3 z' X- J x" F Z5 XCheckContainsText <$SERVERNAME> 测试
, `6 n7 |- ]0 d5 ~ ?2 ]3 J) ^#ACT
e4 h/ `4 R' n$ {8 Fmessagebox 测试区禁止.
2 |' a% |; c, m9 c1 R! c5 `BREAK
5 U6 `, `, `% s
3 H9 n0 n: Z, P" [- W! p
' S$ p. p2 @2 ?$ ~5 a* F+ s; r#IF5 A3 R0 t4 [3 {# r+ [; `* O
NOT CheckContainsTextList ..\..\..\..\..\太墟通区\转区助手\等待领取的账号.txt <$STR(S17)>
, w& @- s7 f7 H8 R3 Z" e#ACT
+ A; C& t: I/ ?2 y6 I/ o7 ^# ymessagebox \抱歉,该转区账号并没有转区记录！8 R$ f8 y- G" L$ ]1 |
BREAK
/ L0 T9 [$ I! I' {* I. j2 O6 G9 u; @; |. R/ m
q3 U$ ], w! G) I9 B) [" U
#IF
: ]2 w: | I! e; i' M) ~CheckContainsTextList ..\..\..\..\..\太墟通区\转区助手\等待领取的账号.txt <$STR(S17)>
5 o/ l" t5 p5 C: d7 L' Q4 j#ACT; c, s& D0 P' [9 w3 C; b
GetStringPos ..\..\..\..\..\太墟通区\转区助手\等待领取的账号.txt <$STR(S17)>
0 b. k1 ]& S( l, f% \1 qINC N0 1( O6 \% r. A, `; m) Q
GetListString ..\..\..\..\..\太墟通区\转区助手\等待领取的账号.txt <$STR(N0)> <$STR(S$领取信息)> <$STR(N$领取金额)>
+ O6 @2 e0 D8 m3 ~& aINC N0 1. ^, t) S. ^1 a1 ?1 T. }; [$ Z
GetListString ..\..\..\..\..\太墟通区\转区助手\等待领取的账号.txt <$STR(N0)> <$STR(S$转区明细)>
' m* J1 h. f: m6 H8 a& nGOTO @领取转区 B$ j: Q2 Z' |; A8 \
BREAK
2 r: k. g" u; Z$ m1 x a0 Y- o;=====================================================================================% h8 L1 L' C! g W
[@确认领取]
; t* E h$ Y2 ~& ]6 ]#IF
, W, [2 }$ p0 h7 g( kCheckContainsText <$SERVERNAME> 测试 ]! x3 N0 E2 e" G) I6 Q
#ACT
) [( I8 `# S- N( V. Kmessagebox 测试区禁止.: H5 D, Q7 W5 O7 f# n1 O/ a1 n# ]
BREAK' S4 L0 Y& p4 h+ _
7 O5 B& H" M, c0 z6 v( K! n. O( ?2 s7 }8 f: c
#IF7 u2 H+ Z4 W1 q* b1 A
checkGAMEGOLDEX < <$STR(N$领取金额)>
9 [0 F9 \4 H Y _#ACT
0 j: z1 m0 x, v Z1 nmessagebox \抱歉,新区充值要高于或等于老区才能领取！！) V( ]' f: h" Y: c, p \7 I/ p
BREAK% h6 c' i/ A( `7 C8 u
) J, G2 D8 S& Y& ~* }' h' R# m" a: `+ q
1 I7 U# @/ d: j
' r3 q; D6 K. w6 T( L7 I2 G7 \#OR
1 l! }. H, _$ T" EEQUAL S$领取信息6 B6 p3 d, g* g3 U6 b
EQUAL N$领取金额 0
8 E6 ?1 q) E# i7 U- |8 y9 y#ACT
$ V0 n i) C6 j+ I& ^% ?messagebox \请检查填写的信息！- q+ n4 S# \# J$ M
BREAK
1 b, Z. T( x/ i8 k3 x7 T! O5 `4 p
0 v; \1 W* l; m+ |$ O
' ?8 n& \2 H, |& y! _ b: z) ?#IF) L5 S- i% X: e6 z3 P5 l3 g
CHECK [66] 12 @# ^# g. d& [8 r* n3 H
#ACT
5 w) v0 z) c4 R. I8 y6 w& jmessagebox \无法重复领取！" H p5 k+ D; N
BREAK- d8 N& D ^- ]; R4 @
8 |: [# |3 a3 F
! s& B6 p4 ^; [0 A, Q0 v' G; n* l/ l#IF
" K. D% q9 {/ ], h! s1 oNOT EQUAL <$USERID> <$STR(S$领取信息)>
9 x1 q& f' O& c) \1 b#ACT
+ K6 c/ l! c0 j2 X% r4 {5 g0 a) }" ]messagebox \领取账号和转区账号不同,无法领取！
C" J3 w h. }4 g0 h8 `) U& ?BREAK/ o( F$ M; _7 v* G8 S V( ]* {, Q* L
0 ]- n0 N5 @ K; D& Z5 v
' a# {% z, g6 @6 J
#IF
1 [$ r0 k* _* k0 ACHECK [66] 0
% `* ]1 a. d+ Y, M0 AEQUAL <$USERID> <$STR(S$领取信息)>
. C1 a% Y, r. {: M1 j' M6 e#ACT
# T8 d5 U! G% n. MMOV N$大米数 <$STR(N$领取金额)>5 o4 x( C( O! Z0 d/ }, p6 ~
MUL <$STR(N$大米数)> 10
( m6 x3 w4 q5 @0 T; USET [66] 1+ Y0 w; c3 P- g; O% h" j& H* H
GAMEGOLDEX + <$STR(N$领取金额)>! {- k% L5 s1 a' _- g; B
GAMEGLORY + <$STR(N$大米数)>6 t8 t! h; g/ w# Q/ ]) h2 y- h
DelTextList ..\..\..\..\..\太墟通区\转区助手\等待领取的账号.txt <$STR(S17)>
3 x: H0 x: ^& W% l7 l- ODelTextList ..\..\..\..\..\太墟通区\转区助手\等待领取的账号.txt <$STR(S$领取信息)>:<$STR(N$领取金额)>- j% `9 T1 N" K0 v& E G3 w
DelTextList ..\..\..\..\..\太墟通区\转区助手\等待领取的账号.txt <$STR(S$转区明细)>5 U' m; `% o% R; |; ^
AddTextListEx ..\..\..\..\..\太墟通区\转区助手\成功转区的账号.txt <$STR(S$转区明细)> 领取转区账号:<$STR(S17)> 金额:<$STR(N$领取金额)> 领取区服:<$SERVERNAME> 领取人物:<$USERNAME>
( |/ e* M7 d: i% k: _; V" z( Vmessagebox \恭喜你成功领取转区的充值\ \<$STR(N$领取金额)>充值数量\ \
! h4 Y; L$ v- V6 a! OGOTO @MAIN
' K2 K1 Y. Z- z3 y' Y; Y1 ~, \4 u6 qBREAK
/ W$ L" k- ]$ E& ?3 j
7 M* Z) C* D) x3 P0 j. D; l1 V |
皖公网安备:34112402000394号 0.243751 second(s), 26 queries
.
发表于 2024-8-31 15:34:25
