GOM引擎转区脚本

2727611031 · 发表于 2024-5-10 23:52:10

===========================================================
QQ交流群:①：615629963（推荐） ②：xxxxxxxx（推荐） ③：xxxxxxxx（推荐） ④：xxxxxxxx（推荐）
===========================================================

逐枫版本库单机架设教程：https://www.30wj.com/thread-22344-1-1.html

===========================================================

郑重申明：本论坛传奇内容只供个人学习娱乐使用，如违规违法后果自负，与本论坛无关！！!

==========================================================

资源下载：

===========================================================
金币充值比例 1/10 下载链接失效联系QQ 2727611031 处理
逐枫传奇版本库论坛业务介绍：服务器租用，版本修改，收徒，传奇一条龙
============================================================

图片介绍：
QQ图片20240510235402.png

自行创建三个文本即可
===========================================================

内容介绍：

[@main]

#IF
#act
#say
<><转区规则：/scolor=253>\ \
<><１：><本服推出RMB转区操作，你当前RMB：/scolor=250>{[ <$GAMEPOINT> ]/scolor=255}\\
<><２：><转区必须设置领取密码以及新区账号，否则造成无法领取自负！/scolor=254>\
<><３：><转区后请立即领取，切勿多个区同时转区，否则后果自负！/scolor=254>\ \
\
<> <【><输出恶魔到其他区|^RMB转区说明：^1:输入转区密保1^2:输入转区密保2^3:输入转区数量^4:转区成功可到任何区领取RMB/@@InPutString45(请输入生日格式1990/9/9)><】>  <2.> <【><提取RMB/@RMB提取><】>  <3.> <【><查询记录/@@InPutString46(请输入生日格式1990/9/9)>><】>

[@InPutString45]
#IF
equal s45 <$BIRTHDAT>
#act
goto @我要转区1
#elseact
MESSAGEBOX  \　\生日不对无法转区！
BREAK

[@InPutString46]
#IF
equal s46 <$BIRTHDAT>
#act
goto @111
#elseact
MESSAGEBOX  \　\生日不对无法转区！
BREAK

[@111]

#If
#ACT
CLOSEMERCHANTBIGDLG
#SAY

<>    <你的提取密码:/scolor=254><$STR(s$密码保护一)> \
<>    <你的新区帐号:/scolor=254><$STR(s$密码保护二)> \
<>    <你的转区金额:/scolor=254><$STR(n$输入金额)> \

[@RMB提取]
#IF
CheckContainsText <$SERVERNAME> 测试
#act
MESSAGEBOX \\[提示]：测试区无法使用!!!!!!!
GOTO @main
break

#If
#ACT
CLOSEMERCHANTBIGDLG
#SAY
\
<>                      <[全自助任意区领取RMB服务]/FCOLOR=150> \ \
<>          <转区提取码1/@@InPutstring64> <$STR(s64)>    <请输一级区提取码!!/FCOLOR=249>       \ \
<>          <二级提取码2/@@InPutstring65> <$STR(s65)>    <请输二级区提取码!!/FCOLOR=249>    \ \
<>          <输入RMB数量/@@InPutINTEGER63> <$STR(n63)>    \ \

<>                               <我要提取转区RMB/@开始提取RMB>  \ \

[@InPutString64]
#if
#act
GOTO @RMB提取

[@InPutString65]
#if
#act
GOTO @RMB提取

[@InPutInteger63]
#if
#act
GOTO @RMB提取

[@开始提取RMB]
#IF
EQUAL s64
#ACT
MESSAGEBOX [提示]：请确定您的密码保护1不能为空
break

#IF
EQUAL s65
#ACT
MESSAGEBOX [提示]：请确定您的密码保护2不能为空
break

#IF
EQUAL n63
#ACT
MESSAGEBOX [提示]：请确定您的提现金额
break

#IF
#ACT
MOV S$转区数据转区信息<$STR(s64)>+<$STR(s65)>+<$STR(n63)>

#IF
NOT CHECKTEXTLIST ..\..\..\..\转区数据\转区记录.txt <$STR(S$转区数据)>
#ACT
MESSAGEBOX 对不起，未查询到你的转区记录！
BREAK

#if
NOT EQUAL s64 ←请您填写您的转区提取码!!!!!
NOT EQUAL s65 ←请您填写您的二级提取码!!!!!
NOT EQUAL n63 ←请您填写您的二级提取码!!!!!
#act
mov N$转区金额 <$STR(n63)>
GAMEPOINT + <$STR(N$转区金额)>
DelTextList ..\..\..\..\转区数据\转区记录.txt <$STR(S$转区数据)>
AddTextListEx ..\..\..\..\转区数据\领取记录.txt 服务器:<$SERVERNAME>----------人物名:<$USERNAME>---------领取数量:<$STR(N$转区金额)>-------------时间:<$DATETIME>
MESSAGEBOX  提取成功！！{<$STR(N$转区金额)>/FCOLOR=254}RMB
BREAK

[@我要转区1]

#IF
CheckContainsText <$SERVERNAME> 测试
#act
MESSAGEBOX \\[提示]：测试区无法使用!!!!!!!
GOTO @main
break

#if
#act
MessageBox 请牢记以下信息,忘记将不能领取转区RMB\　\1：填写的转区密保1\　\2：填写的转区密保2\　\3：填写的转区数量

#if
checkGAMEPOINT < 10
#ACT
MESSAGEBOX  \　\转区最低标准为10RMB起！
BREAK

#If
#ACT
CLOSEMERCHANTBIGDLG
#SAY

<>    本服推出RMB转区操作，<你当前RMB：/scolor=250>{[ <$GAMEPOINT> ]/scolor=255}\
<>    请确认要转出的金额和保密信息\

<>    <1.> <你的转区密保1/@@InPutString60> {[ <$str(S60)> ]/scolor=255}       <注：密保1只能5-10位数字/scolor=250>\ \

<>    <3.> <你的转区密保2/@@InPutString61> {[ <$str(S61)> ]/scolor=255}       <注：密保2只能5-10位数字/scolor=250>\ \

<>    <2.> <要转出的数量/@@inputinteger62> {[ <$str(n62)> ]/scolor=255}       \ \

\ \
<>                <※> <【确定转区】/@确定转区1> <※>\

[@确定转区1]
#IF
CheckContainsText <$SERVERNAME> 测试
#act
MESSAGEBOX \\[提示]：测试区无法使用!!!!!!!
GOTO @main
break

#IF
small n62 10
#ACT
MESSAGEBOX [提示]：请输入转区RMB
break

#IF
EQUAL s60
#ACT
MESSAGEBOX [提示]：请确定您的转区密保1不能为空
break

#IF
EQUAL s61
#ACT
MESSAGEBOX [提示]：请确定您的转区密保2不能为空
break

#IF
#ACT
MOV S$转区数据转区信息<$STR(s60)>+<$STR(s61)>+<$STR(n62)>

#if
LARGE n62 9
checkgamepoint > <$STR(n62)>
NOT EQUAL s60 ←点击设置您的转区提取码!!!!!
NOT EQUAL s61←点击设置您的二级提取码!!!!!
#act
GAMEPOINT - <$STR(n62)>
AddTextListEx ..\..\..\..\转区数据\转区记录.txt <$STR(S$转区数据)> 0
AddTextListEx ..\..\..\..\转区数据\详细记录.txt 服务器:<$SERVERNAME>----------人物名:<$USERNAME>---------转出数量:<$STR(n62)>-------------时间:<$DATETIME>
MESSAGEBOX  转区成功！！其他区输入密码领取,,,\\密码:<$STR(s60)>\二级密码:<$STR(s61)>\数量:<$STR(n62)>
mov s$密码保护一 <$STR(s60)>
mov s$密码保护二 <$STR(s61)>
mov n$输入金额 <$STR(n62)>

mov S60
MOV S61
MOV N62
GOTO @main
#ELSEACT
MESSAGEBOX  RMB不足，请保留1RMB，新区领取额外补1RMB！！
break

[@InPutString60]

#or
CheckStringlength <$STR(s60)> < 4
CheckStringlength <$STR(s60)> > 11
#act
MessageBox 设置密保1输入错误！\　\密码长度不能超过11个字节\　\密码长度不能少于4个字节
break

#if
#act
GOTO @我要转区1

[@InPutString61]

#or
CheckStringlength <$STR(s61)> < 4
CheckStringlength <$STR(s61)> > 11
#act
MessageBox 设置密保2输入错误！\　\密码长度不能超过11个字节\　\密码长度不能少于4个字节
break

#if
#act
GOTO @我要转区1

[@InPutInteger62]
#if
small N62 10
#act
MESSAGEBOX [提示]：最低转区金额：10RMB!!!!!
break

#if
checkgamepoint < <$STR(N62)>
#ACT
messagebox 你没有<$STR(N62)>RMB,拿什么转区？
BREAK

#if
#act
GOTO @我要转区1

===========================================================

李军昇 · 发表于 2024-5-10 23:52:33

好帖必须得顶起我爱逐枫版本库

wx_KmEKv21m · 发表于 2024-5-12 01:20:44

支持，赞一个我爱逐枫版本库

wx_dnP1a8iE · 发表于 2024-5-15 06:36:37

这里的传奇版本好多啊，好喜欢，便宜

wx_RvrBn3TM · 发表于 2024-5-20 04:36:23

支持支持再支持我爱逐枫版本库

如果 · 发表于 2024-7-8 10:02:20

我想学习翎风引擎，翎风引擎，求教

王顺Z · 发表于 2024-8-8 02:16:44

我想学习BLUE引擎，BLUE引擎，求教

wx_U778fUcb · 发表于 2024-8-24 06:22:55

支持你哈.....逐枫传奇版本........

成艺茶器 · 发表于 2024-8-26 10:35:34

哇，哇，哇，传奇素材居然免费的

wx_cH49g4A0 · 发表于 2024-9-20 18:37:59

看起来不错，逐枫传奇版本库就是便宜

		自动登录	找回密码
密码			立即注册

GOM引擎 转区脚本

相关帖子

GOM引擎转区脚本