自助转区脚本LF引擎

k06132

[@main]
#IF
CHECKTEXTLIST ..\QuestDiary\开区状态.txt 测试
#ACT
MESSAGEBOX 提示:测试区禁止使用！
BREAK

#IF
#ACT
MOV N$账号金额 0
MOV N$领取金额 0
MOV S$账号信息 暂未输入
MOV S$领取信息 暂未输入
GOTO @转账页面


[@转账页面]
#IF
#ACT
OPENMERCHANTBIGDLG 35 24 1 4 0 -100 1 703 35 1
#SAY
\ \ \
<>                                                  <当前区充值金额:<$GameDiamond>/SCOLOR=250>\ \

<>                      <本服特色功能：玩家可在本区向将要前往的区转入充值，可在相应的区服领取。/SCOLOR=70>\

<>                      <例如：转区口令输入“啊啊啊啊啊啊”，领取口令输入“啊啊啊啊啊啊”即可领取！/SCOLOR=70>\

<>                      <领取具体方法：口令输入数字，字母，汉字都可以!/SCOLOR=70>\

<>                      <注意：测试区千万不要领取,测试区千万不要领取,测试区领取导致新区领取不到,概不负责！/SCOLOR=249>\

<>                      <注意：测试区千万不要领取/SCOLOR=249><（测试区领取导致新区领取不到）/SCOLOR=254><概不负责！/SCOLOR=249>\

<>                      <------------转区区域------------------------------领取区域--------------------/FCOLOR=71>\ \

<>                      <请输入需要转区的金额:/@@InPutString80(请正确输入转区金额> <　<$STR(N$账号金额)>/SCOLOR=250>              <即将领取的金额:/SCOLOR=251> <　<$STR(N$领取金额)>/SCOLOR=250>            \ \

<>                      <请输入转区口令:/@@InPutString81(请正确输入转区口令> <　<$STR(S$账号信息)>/SCOLOR=250>             <输入领取的口令:/@@InPutString82(请正确输入领取转区口令> <　<$STR(S$领取信息)>/SCOLOR=250>       \ \

<>                      <确认转区口令/@确认转账账号>                           <确认领取信息/@确认领取信息>          \ \  

<>                      <-------------------------------------------------------------------------------/FCOLOR=71>\
<>                      <注意：转区金额说明！！/SCOLOR=249>\
<>                      <注意：例如你在本区充值100，转新区100，新区充值必须等于大于100，才可以领取！！/SCOLOR=249>\
<>                      <注意：你在本区充值200，转新区可以转100，新区冲100等于200！！/SCOLOR=249>\  
<>                      <注意：转区后该账号不可以在登陆/SCOLOR=249> <转区领取的和网站充值一样！！/SCOLOR=254>\  


[@确认转账账号]
#IF
EQUAL N$账号金额 0
#ACT
messagebox \请正确输入将要转区的金额！
BREAK

#IF
EQUAL S$账号信息
#ACT
messagebox \请正确输入将要转区的密码！
BREAK

#IF
#ACT
MessageBox 检测到你已填写完转账信息,是否确认转账？ @确定转账 @取消
BREAK

[@确定转账]
#IF
CHECK [10] 1
#ACT
messagebox \抱歉,你已经转过区了！
BREAK

#IF
CheckContainsTextList ..\..\..\..\..\通区转区\等待领取的账号.txt <$STR(S$账号信息)>
#ACT
messagebox \抱歉,该转区账号已被使用！
BREAK

#IF
CHECK [10] 0
#ACT
SET [10] 1
GameDiamond - <$STR(N$账号金额)>
AddTextListEx ..\..\..\..\..\通区转区\等待领取的账号.txt <$STR(S$账号信息)> 0
AddTextListEx ..\..\..\..\..\通区转区\等待领取的账号.txt <$USERID>:<$STR(N$账号金额)> 1
MOV S$转区明细 转区区名：<$SERVERNAME>----账号：<$USERID>----名称：<$USERNAME>
AddTextListEx ..\..\..\..\..\通区转区\等待领取的账号.txt <$STR(S$转区明细)> 2
MOV S$转区明细
GOTO @main
SENDMOVEMSG 0 246 252 250 1 系统：玩家【<$USERNAME>】，已成功转区！爷不陪你们玩了，去新区咯！
messagebox \你已成功进行转区,可在新区凭借账号领取
MOV T20 禁止登陆
KICK
BREAK
;=====================================================================================
[@InPutString80]
#IF
EQUAL S80
#ACT
messagebox \请正确输入将要转区的金额！
BREAK

#IF
SMALL S80 100
#ACT
messagebox \抱歉,最低输入100！
BREAK

#IF
checkGameDiamond < <$STR(S80)>
#ACT
messagebox \抱歉,无法为你提供服务,请检查你的充值是否正确！
BREAK

#IF
#ACT
MOV N$账号金额 <$STR(S80)>
GOTO @转账页面
BREAK
;=====================================================================================
[@InPutString81]
#IF
EQUAL S81
#ACT
messagebox \请正确输入将要转区的口令！
BREAK

#IF
CheckStringlength <$STR(S81)> < 6
#ACT
messagebox \安全提示,口令不得低于6位数.！
BREAK

#IF
#ACT
MOV S$账号信息 <$STR(S81)>
GOTO @转账页面
BREAK
;=====================================================================================
[@InPutString82]
#IF
NOT CheckContainsTextList ..\..\..\..\..\通区转区\等待领取的账号.txt <$STR(S82)>
#ACT
messagebox \抱歉,该转区账号并没有转区记录！
BREAK

#IF
CheckContainsTextList ..\..\..\..\..\通区转区\等待领取的账号.txt <$STR(S82)>
#ACT
GetStringPos ..\..\..\..\..\通区转区\等待领取的账号.txt <$STR(S82)>
INC N0 1
GetListString ..\..\..\..\..\通区转区\等待领取的账号.txt <$STR(N0)> <$STR(S$领取信息)> <$STR(N$领取金额)>
INC N0 1
GetListString ..\..\..\..\..\通区转区\等待领取的账号.txt <$STR(N0)> <$STR(S$转区明细)>
GOTO @转账页面
BREAK
;=====================================================================================

[@确认领取信息]
#IF
checkGameDiamond < <$STR(N$领取金额)>
#ACT
messagebox \抱歉,新区充值要高于或等于老区才能领取！！
BREAK


#OR
EQUAL S$领取信息
EQUAL N$领取金额 0
#ACT
messagebox \请检查填写的信息！
BREAK

#IF
CHECK [100] 1
#ACT
messagebox \无法重复领取！
BREAK

;#IF
;NOT EQUAL <$USERID> <$STR(S$领取信息)>
;#ACT
;messagebox \领取账号和转区账号不同,无法领取！
;BREAK


;#IF
;#ACT
;MUL N$检老金额 <$STR(N$领取金额)> 2


#IF
CHECK [11] 0
;EQUAL <$USERID> <$STR(S$领取信息)>
#ACT
SET [11] 1
GameDiamond + <$STR(N$领取金额)>
MUL N$元宝加成 <$STR(N$领取金额)> 20
MUL N$人民币加成 <$STR(N$领取金额)> 1
GAMEGOLD + <$STR(N$元宝加成)>
GAMEPOINT + <$STR(N$人民币加成)>
;GAMEGIRD + <$STR(N$人民币加成)>
CREDITPOINT + <$STR(N$元宝加成)>
DelTextList ..\..\..\..\..\通区转区\等待领取的账号.txt <$STR(S82)>
DelTextList ..\..\..\..\..\通区转区\等待领取的账号.txt <$STR(S$领取信息)>:<$STR(N$领取金额)>
DelTextList ..\..\..\..\..\通区转区\等待领取的账号.txt <$STR(S$转区明细)>
AddTextListEx ..\..\..\..\..\通区转区\成功转区的账号.txt <$STR(S$转区明细)>　　领取转区账号:<$STR(S82)>　　金额:<$STR(N$领取金额)>　　领取区服:<$SERVERNAME>　　领取人物:<$USERNAME>
messagebox \恭喜你成功领取转区的充值:<$STR(N$领取金额)>充值金额和<$STR(N$元宝加成)>元宝和<$STR(N$人民币加成)>RMB点数！！
SENDMOVEMSG 0 246 252 250 1 系统：玩家【<$USERNAME>】，成功领取了转区货币！！！
GOTO @MAIN
BREAK




















严谨发布涉及《打金，提现，爬榜，骰王》等相关内容版本，脚本，工具，素材，一经发现立马删除！

禁止发布GEE.V8.GXX引擎版本.

论坛是我家，净化靠大家！