|
[@main]
#if
#ACT
MOV S30
MOV S31
MOV S32
MOV S33
MOV S34
MOV S37
MOV S38
MOV S30 <$GAMEPOINT>
OPENMERCHANTBIGDLG 27 93 1 4 0 0 1 513 15 0
#SAY
\ \ \
<> <〓〓温馨提示：所有点转区功能在测试区点时候不可以使用〓〓/FCOLOR=253>\
<> {当前RMB点数:[<$GAMEPOINT>]/FCOLOR=251} {当前充值点数 [<$GAMEGIRD>]/FCOLOR=251}\ \ \
<> <RMB点转区:/FCOLOR=253> <转区RMB点必须大于50元.成功转区后请到所在新区领取./FCOLOR=251> <[确定转区]/@RMB转区>\ \ \
<> <至尊霸王[时装]:/FCOLOR=253> <可转新区300元火龙币充值（正式开区）即可领取./FCOLOR=251> <[确定转区]/@时装转区>\ \ \
<> <等级130级角色:/FCOLOR=253> <可转新区300元火龙币充值（正式开区）即可领取./FCOLOR=251> <[确定转区]/@等级转区>\ \
<> <领取转区人民币/@领RMB> <领取转区火龙币/@领火龙币>\ \
<> <〓〓温馨提示：等级转区会把账号作废〓〓/FCOLOR=253>\ \
[@时装转区]
#IF
CHECKTEXTLIST ..\QuestDiary\区状态.txt 测试区
#ACT
MESSAGEBOX 测试区禁止使用
BREAK
#IF
checkitem 至尊霸王【女装】 1
#ACT
GOTO @时装转
BREAK
#IF
checkitem 至尊霸王【男装】 1
#ACT
GOTO @时装转
BREAK
#IF
NOT checkitem 至尊霸王【男装】 1
#ACT
GOTO @时装无
BREAK
#IF
NOT checkitem 至尊霸王【女装】 1
#ACT
GOTO @时装无
BREAK
[@时装无]
#IF
#ACT
MESSAGEBOX 没发现时装！
BREAK
[@时装转]
#if
#act
CREATEFILE ..\..\..\..\等级时装转区数据\<$USERID>.txt
#OR
checkitem 至尊霸王【男装】 1
checkitem 至尊霸王【女装】 1
#ACT
OPENMERCHANTBIGDLG 2 17 0 0 1 1 1 381 3
#SAY
\ \ \
<> <[点击输入注册的生日]/@@InPutString37(请输入注册账号生日：生日格式：1980/08/08)> <【注册的生日】：/SCOLOR=253><$STR(S37)>\ \
<> <[输入新区创建的账号]/@@InPutString38(请输入[新区帐号：请在新区先注册帐号否则转区失败无法找回])> <【新建点帐号】：/SCOLOR=253><$STR(S38)>\ \ \
<> <[确定时装转区]/@确定时装转区>\ \
<> <〓〓温馨提示：时装转区只会回收时装〓〓/FCOLOR=253>\ \
[@InPutString37]
#IF
EQUAL S37 <$BIRTHDAT>
#ACT
GOTO @时装转区
break
#ELSEACT
messagebox [失败]：你输入的生日与注册时的生日不相同,不能转区！！
break
[@InPutString38]
#IF
EQUAL S38
#ACT
MOV S38
messagebox [失败]：账号最少为4位！！
break
#IF
CHECKLEVELEX > 0
#ACT
GOTO @时装转区
break
[@确定时装转区]
#OR
EQUAL S37
EQUAL S38
#ACT
messagebox 提示：请先输入【上面的所有资料】！
BREAK
#if
#act
GetListString ..\..\..\..\等级时装转区数据\<$USERID>.txt 0 S$检测转区数据
#if
NOT equal S$检测转区数据
#act
messagebox 失败：请先领取上一次转出的数据!
break
#IF
checkitem 至尊霸王【女装】 1
#ACT
messagebox 请确定您点选择:\注意：点击确定后您的至尊霸王【女装】将被回收\注意：点击确定后您的至尊霸王【女装】将被回收\注意：点击确定后您的至尊霸王【女装】将被回收\注意：点击确定后您的至尊霸王【女装】将被回收\当前帐号:<$USERID>\目标帐号:<$str(S38)>\新区领取:300元充值\ @确定时装A @取消
BREAK
#IF
checkitem 至尊霸王【男装】 1
#ACT
messagebox 请确定您点选择:\注意：点击确定后您的至尊霸王【男装】将被回收\注意：点击确定后您的至尊霸王【男装】将被回收\注意：点击确定后您的至尊霸王【男装】将被回收\注意：点击确定后您的至尊霸王【男装】将被回收\当前帐号:<$USERID>\目标帐号:<$str(S38)>\新区领取:300元充值\ @确定时装B @取消
BREAK
[@确定时装A]
#if
checkitem 至尊霸王【女装】 1
#ACT
AddTextList ..\..\..\..\等级时装转区数据\<$STR(S38)>.txt <$SERVERNAME>
AddTextList ..\..\..\..\等级时装转区数据\<$STR(S38)>.txt <$USERNAME>
AddTextList ..\..\..\..\等级时装转区数据\<$STR(S38)>.txt 300
addtextlistex ..\..\..\..\等级时装转区数据\等级时装转区数据-日志.txt 【<$SERVERNAME>】的【<$USERNAME>】帐号:【<$USERID>】于【<$MONTH>月<$DAY>日<$HOUR>时<$MINUTE>分<$SECOND>秒】申请向【<$str(S38)>】帐号转入【300】充值!时装转区 0
messagebox 转区成功,请到新区分区用目标帐号领取即可!
TAKE 至尊霸王【女装】 1
CLOSE
[@确定时装B]
#if
checkitem 至尊霸王【男装】 1
#ACT
AddTextList ..\..\..\..\等级时装转区数据\<$STR(S38)>.txt <$SERVERNAME>
AddTextList ..\..\..\..\等级时装转区数据\<$STR(S38)>.txt <$USERNAME>
AddTextList ..\..\..\..\等级时装转区数据\<$STR(S38)>.txt 300
addtextlistex ..\..\..\..\等级时装转区数据\等级时装转区数据-日志.txt 【<$SERVERNAME>】的【<$USERNAME>】帐号:【<$USERID>】于【<$MONTH>月<$DAY>日<$HOUR>时<$MINUTE>分<$SECOND>秒】申请向【<$str(S38)>】帐号转入【300】充值!时装转区 0
messagebox 转区成功,请到新区分区用目标帐号领取即可!
TAKE 至尊霸王【男装】 1
CLOSE
[@等级转区]
#IF
CHECKTEXTLIST ..\QuestDiary\区状态.txt 测试区
#ACT
MESSAGEBOX 测试区禁止使用
BREAK
#IF
CHECKLEVELEX < 130
#ACT
MESSAGEBOX 等级不足130级无法使用！
BREAK
#if
#act
CREATEFILE ..\..\..\..\等级时装转区数据\<$USERID>.txt
#if
CHECKLEVELEX > 129
#ACT
OPENMERCHANTBIGDLG 2 17 0 0 1 1 1 381 3
#SAY
\ \ \
<> <[点击输入注册的生日]/@@InPutString33(请输入注册账号生日：生日格式：1980/08/08)> <【注册的生日】：/SCOLOR=253><$STR(S33)>\ \
<> <[输入新区创建的账号]/@@InPutString34(请输入[新区帐号：请在新区先注册帐号否则转区失败无法找回])> <【新建点帐号】：/SCOLOR=253><$STR(S34)>\ \ \
<> <[确定等级转区]/@确定等级转区>\ \
<> <〓〓温馨提示：等级转区会把账号作废〓〓/FCOLOR=253>\ \
[@InPutString33]
#IF
EQUAL S33 <$BIRTHDAT>
#ACT
GOTO @等级转区
break
#ELSEACT
messagebox [失败]：你输入的生日与注册时的生日不相同,不能转区！！
break
[@InPutString34]
#IF
EQUAL S34
#ACT
MOV S34
messagebox [失败]：账号最少为4位！！
break
#IF
CHECKLEVELEX > 0
#ACT
GOTO @等级转区
break
[@确定等级转区]
#OR
EQUAL S33
EQUAL S34
#ACT
messagebox 提示：请先输入【上面的所有资料】！
BREAK
#if
#act
GetListString ..\..\..\..\等级时装转区数据\<$USERID>.txt 0 S$检测转区数据
#if
NOT equal S$检测转区数据
#act
messagebox 失败：请先领取上一次转出的数据!
break
#if
CHECKLEVELEX > 129
#ACT
messagebox 请确定您点选择:\注意：点击确定后您的账号将被回收\注意：点击确定后您的账号将被回收\注意：点击确定后您的账号将被回收\注意：点击确定后您的账号将被回收\当前帐号:<$USERID>\目标帐号:<$str(S34)>\新区领取:300元充值\ @确定等级 @取消
[@确定等级]
#if
CHECKLEVELEX > 129
#ACT
AddTextList ..\..\..\..\等级时装转区数据\<$STR(S34)>.txt <$SERVERNAME>
AddTextList ..\..\..\..\等级时装转区数据\<$STR(S34)>.txt <$USERNAME>
AddTextList ..\..\..\..\等级时装转区数据\<$STR(S34)>.txt 300
addtextlistex ..\..\..\..\等级时装转区数据\等级时装转区数据-日志.txt 【<$SERVERNAME>】的【<$USERNAME>】帐号:【<$USERID>】于【<$MONTH>月<$DAY>日<$HOUR>时<$MINUTE>分<$SECOND>秒】申请向【<$str(S34)>】帐号转入【300】充值!账号转区 0
messagebox 转区成功,请到新区分区用目标帐号领取即可!
SET [681] 1
GAMEGIRD = 0
GAMEGIRD = 0
CREDITPOINT = 0
GAMEGIRD = 0
GAMEPOINT = 0
CHANGELEVEL = 1
GAMEGOLD = 0
GAMEGIRD = 0
CREDITPOINT = 0
GAMEGIRD = 0
CLEARSKILL
DEPRIVETITLE ALL
CLOSE
KICK
[@领火龙币]
#IF
CHECKTEXTLIST ..\QuestDiary\区状态.txt 测试区
#ACT
MESSAGEBOX 测试区禁止使用
BREAK
;#if
;check [100] 1
;#act
;messagebox 已经领取过转区充值，不能重复领取!
;break
#if
#act
CREATEFILE ..\..\..\..\等级时装转区数据\<$USERID>.txt
GetListString ..\..\..\..\等级时装转区数据\<$USERID>.txt 0 S$结果_分区名称_转区前
#if
equal S$结果_分区名称_转区前
#act
messagebox 失败：没有可以领取的记录!
break
#IF
#ACT
CREATEFILE ..\..\..\..\等级时装转区数据\<$USERID>.txt
GetListString ..\..\..\..\等级时装转区数据\<$USERID>.txt 2 N$转来的额度
#IF
LARGE <$str(N$转来的额度)> 0
#ACT
GetListString ..\..\..\..\等级时装转区数据\<$USERID>.txt 1 S$结果_转前帐号
GetListString ..\..\..\..\等级时装转区数据\<$USERID>.txt 2 N$结果_预转充值点数
addtextlistex ..\..\..\..\等级时装转区数据\等级时装转区数据-日志.txt 【<$SERVERNAME>】的【<$USERNAME>】帐号:【<$USERID>】于【<$MONTH>月<$DAY>日<$HOUR>时<$MINUTE>分<$SECOND>秒】接收到【<$str(S$结果_转前帐号)>】发起的转入【<$str(N$结果_预转充值点数)>】充值! 0
clearnamelist ..\..\..\..\等级时装转区数据\<$USERID>.txt
GAMEGIRD + <$str(N$结果_预转充值点数)>
MUL <$str(N$结果_预转充值点数)> 100
GAMEDIAMOND + <$str(N$结果_预转充值点数)>
;set [100] 1
messagebox 恭喜：您的转区充值点领取成功!
break
[@RMB转区]
#IF
CHECKTEXTLIST ..\QuestDiary\区状态.txt 测试区
#ACT
MESSAGEBOX 测试区禁止使用
BREAK
#if
CHECKGAMEPOINT < 50
#ACT
messagebox [失败]：您点RMB点不到50元,不能转区！！
break
#if
CHECKGAMEPOINT > 49
#act
CREATEFILE ..\..\..\..\等级时装转区数据\<$USERID>.txt
#if
CHECKGAMEPOINT > 49
#ACT
OPENMERCHANTBIGDLG 2 17 0 0 1 1 1 381 3
#SAY
\ \ \
<> <您当前本区总RMB点数为/FCOLOR=161><〖/FCOLOR=253><$GAMEPOINT><〗/FCOLOR=253><点 可转到新区/FCOLOR=161><〖/FCOLOR=253><$GAMEPOINT><〗/FCOLOR=253><点RMB/FCOLOR=161>\ \
<> <[点击输入转出的点数]/@@InPutString30(请输入不小于50点数值)> <转出/FCOLOR=146><〖/FCOLOR=251><$STR(S30)><〗/FCOLOR=251><RMB 新区可领/FCOLOR=146><〖/FCOLOR=251><$STR(S30)><〗/FCOLOR=251><元RMD点/FCOLOR=146>\ \
<> <[点击输入注册的生日]/@@InPutString31(请输入注册账号生日：生日格式：1980/08/08)> <【注册的生日】：/SCOLOR=253><$STR(S31)>\ \
<> <[输入新区创建的账号]/@@InPutString32(请输入[新区帐号：请在新区先注册帐号否则转区失败无法找回])> <【新建点帐号】：/SCOLOR=253><$STR(S32)>\ \
<> <[确定RMB点转区]/@确定RMB转区>\ \
[@InPutString30]
#IF
SMALL S30 50
#ACT
messagebox [失败]：最少转出50RMB点！！
break
#IF
LARGE S30 <$GAMEPOINT>
#ACT
messagebox [失败]：你没有那么多RMB点！！
break
#OR
EQUAL S30 50
LARGE S30 50
#ACT
GOTO @RMB转区
[@InPutString31]
#IF
EQUAL S31 <$BIRTHDAT>
#ACT
GOTO @RMB转区
break
#ELSEACT
messagebox [失败]：你输入的生日与注册时的生日不相同,不能转区！！
break
[@InPutString32]
#IF
EQUAL S32
#ACT
MOV S32
messagebox [失败]：账号最少为4位！！
break
#IF
CHECKLEVELEX > 0
#ACT
GOTO @RMB转区
[@确定RMB转区]
#OR
EQUAL S30
EQUAL S31
EQUAL S32
#ACT
messagebox 提示：请先输入【上面的所有资料】！
BREAK
#if
#act
GetListString ..\..\..\..\人民币转区\<$USERID>.txt 0 S$检测转区数据
#if
NOT equal S$检测转区数据
#act
messagebox 失败：请先领取上一次转出的数据!
break
#if
#act
MOV N$转出人民币 <$STR(S30)>
messagebox 请确定以下信息:\当前分区:<$SERVERNAME>\当前帐号:<$USERID>\目标帐号:<$str(S32)>\本次转出:<$STR(S30)>RMB\新区领取:<$STR(S30)>RMB\ @确定RMB @取消
[@确定RMB]
#OR
EQUAL <$GAMEPOINT> <$STR(S30)>
LARGE <$GAMEPOINT> <$STR(S30)>
#ACT
GAMEPOINT - <$str(N$转出人民币)>
AddTextList ..\..\..\..\人民币转区\<$STR(S32)>.txt <$SERVERNAME>
AddTextList ..\..\..\..\人民币转区\<$STR(S32)>.txt <$USERNAME>
AddTextList ..\..\..\..\人民币转区\<$STR(S32)>.txt <$str(N$转出人民币)>
AddTextList ..\..\..\..\人民币转区\<$STR(S32)>.txt <$USERID>
addtextlistex ..\..\..\..\人民币转区\00人民币转区-日志.txt 操作时间：【<$MONTH>月<$DAY>日<$HOUR>时<$MINUTE>分<$SECOND>秒】 0
addtextlistex ..\..\..\..\人民币转区\00人民币转区-日志.txt 接收账号：【<$str(S32)>】转出金额：【<$str(N$转出人民币)>】人民币! 0
addtextlistex ..\..\..\..\人民币转区\00人民币转区-日志.txt 转出大区：【<$SERVERNAME>】游戏名字：【<$USERNAME>】帐号:【<$USERID>】 0
addtextlistex ..\..\..\..\人民币转区\00人民币转区-日志.txt ---------------------------------------------------------------------------- 0
messagebox 转区成功,请到新区用目标帐号领取即可!
;CLOSE
BREAK
#ELSEACT
messagebox [失败]：你没有那么多RMB点！！
[@领RMB]
#IF
CHECKTEXTLIST ..\QuestDiary\区状态.txt 测试区
#ACT
MESSAGEBOX 测试区禁止使用
BREAK
#if
#act
CREATEFILE ..\..\..\..\人民币转区\<$USERID>.txt
GetListString ..\..\..\..\人民币转区\<$USERID>.txt 0 S$检测转区数据
#if
equal S$检测转区数据
#act
messagebox 失败：没有可以领取的记录!
break
#if
equal S$检测转区数据 <$SERVERNAME>
#act
messagebox 失败：本区无法互转!
break
#IF
#ACT
CREATEFILE ..\..\..\..\人民币转区\<$USERID>.txt
GetListString ..\..\..\..\人民币转区\<$USERID>.txt 2 N$转来的人民币
#IF
LARGE <$str(N$转来的人民币)> 0
#ACT
GetListString ..\..\..\..\人民币转区\<$USERID>.txt 0 S$人民币转出区名
GetListString ..\..\..\..\人民币转区\<$USERID>.txt 1 S$人民币转前名字
GetListString ..\..\..\..\人民币转区\<$USERID>.txt 2 N$人民币转出数据
GetListString ..\..\..\..\人民币转区\<$USERID>.txt 3 S$人民币转出账号
addtextlistex ..\..\..\..\人民币转区\00人民币领取-日志.txt 操作时间：【<$MONTH>月<$DAY>日<$HOUR>时<$MINUTE>分<$SECOND>秒】 0
addtextlistex ..\..\..\..\人民币转区\00人民币领取-日志.txt 接收区：【<$SERVERNAME>】账号：【<$USERID>】游戏名字：【<$USERNAME>】点数：【<$str(N$人民币转出数据)>】人民币点! 0
addtextlistex ..\..\..\..\人民币转区\00人民币领取-日志.txt 发送区：【<$str(S$人民币转出区名)>】账号：【<$str(S$人民币转出账号)>】游戏名字：【<$str(S$人民币转前名字)>】点数：【<$str(N$人民币转出数据)>】人民币点! 0
addtextlistex ..\..\..\..\人民币转区\00人民币领取-日志.txt ---------------------------------------------------------------------------- 0
clearnamelist ..\..\..\..\人民币转区\<$USERID>.txt
GAMEPOINT + <$STR(N$转来的人民币)>
messagebox 恭喜：您的转区【<$STR(N$转来的人民币)>】RMB点领取成功!
break
|
