|
|
想问以下脚本怎样转成正式区
[@main]
#IF
CHECKACCOUNTLIST ..\QuestDiary\新区所有清数据\测试区回收记录\有回收的账号.txt
#ACT
CreateFile ..\QuestDiary\新区所有清数据\测试区回收记录\保存个人回收数据(开测试区清空)\<$USERNAME>.txt
ClearNameList ..\QuestDiary\新区所有清数据\测试区回收记录\保存个人回收数据(开测试区清空)\<$USERNAME>.txt
ADDACCOUNTLIST ..\QuestDiary\新区所有清数据\测试区回收记录\保存个人回收数据(开测试区清空)\<$USERNAME>.txt
GetListString ..\QuestDiary\新区所有清数据\测试区回收记录\保存个人回收数据(开测试区清空)\<$USERNAME>.txt 0 S$读取账号
GetListString ..\QuestDiary\新区所有清数据\测试区回收记录\保存个人回收数据(开测试区清空)\<$STR(S$读取账号)>.txt 0 S$读取回收数据
#ELSEACT
MOV S$读取回收数据 0
#IF
CHECKACCOUNTLIST ..\QuestDiary\新区所有清数据\cz测试区回收记录\有回收的账号.txt
#ACT
CreateFile ..\QuestDiary\新区所有清数据\cz测试区回收记录\保存个人回收数据(开测试区清空)\<$USERNAME>.txt
ClearNameList ..\QuestDiary\新区所有清数据\cz测试区回收记录\保存个人回收数据(开测试区清空)\<$USERNAME>.txt
ADDACCOUNTLIST ..\QuestDiary\新区所有清数据\cz测试区回收记录\保存个人回收数据(开测试区清空)\<$USERNAME>.txt
GetListString ..\QuestDiary\新区所有清数据\cz测试区回收记录\保存个人回收数据(开测试区清空)\<$USERNAME>.txt 0 S$cz读取账号
GetListString ..\QuestDiary\新区所有清数据\cz测试区回收记录\保存个人回收数据(开测试区清空)\<$STR(S$cz读取账号)>.txt 0 S$cz读取回收数据
#ELSEACT
MOV S$cz读取回收数据 0
#IF
#ACT
MOV N$cz读取回收数据 <$STR(S$cz读取回收数据)>
MOV N$读取回收数据 <$STR(S$读取回收数据)>
SetStringBlank <$STR(S$读取回收数据)> 15 1
GOTO @main1
BREAK
[@main1]
#IF
CHECKLEVELEX > 0
#ACT
#say
<[测试奖励(新区)]/SCOLOR=249> <测试区自动记录您所获得的元宝和冲值点,开区返回!/SCOLOR=250>\
<[注意]/SCOLOR=251><1.切记一定要使用测试时的账号,否则不能领取.请勿泄露帐号!/SCOLOR=69>\
<[注意]/SCOLOR=251><2.正式开区在此处可游戏中元宝，测试冲值点和元宝自动记录!/SCOLOR=243>\
<[注意]/SCOLOR=251><3.正式开区返回元宝和冲值点,本服元宝非常保值.打金必备品!/SCOLOR=251>\
<--------------------------------------------------------------/SCOLOR=13>\
<> <已记录元宝数总计:/SCOLOR=254><$STR(S$读取回收数据)><已记录冲值点总计:/SCOLOR=254><$STR(S$cz读取回收数据)>\
<> <100%返回元宝/SCOLOR=249> <200%返回冲值点/SCOLOR=249>\
<--------------------------------------------------------------/SCOLOR=13>\
<> <开始领取元宝/@开始领取元宝> <开始领取冲值点/@开始领取冲值点>
[@开始领取冲值点]
#IF
CheckContainsText <$SERVERNAME> 测试
#ACT
messagebox 领取失败！当前还是测试区,等正式区后领取！
BREAK
#IF
CHECK [151] 1
#ACT
messagebox 你已经领取过了！
BREAK
#IF
CHECKACCOUNTLIST ..\QuestDiary\新区所有清数据\cz测试区回收记录\有回收的账号.txt
#ACT
delaccountlist ..\QuestDiary\新区所有清数据\cz测试区回收记录\有回收的账号.txt
MUL S$cz读取回收数据 2
SET [151] 1
GAMEDIAMOND + <$STR(S$cz读取回收数据)>
messagebox 领取成功！你领取了共计:<$STR(S$cz读取回收数据)>冲值点！
#ELSEACT
messagebox 领取失败！你在测试区没有冲值点！
[@开始领取元宝]
#IF
CheckContainsText <$SERVERNAME> 测试
#ACT
messagebox 领取失败！当前还是测试区,等正式区后领取！
BREAK
#IF
CHECK [150] 1
#ACT
messagebox 你已经领取过了！
BREAK
#IF
CHECKACCOUNTLIST ..\QuestDiary\新区所有清数据\测试区回收记录\有回收的账号.txt
#ACT
delaccountlist ..\QuestDiary\新区所有清数据\测试区回收记录\有回收的账号.txt
SET [150] 1
gamegold + <$STR(N$读取回收数据)>
messagebox 领取成功！你领取了共计:<$STR(S$读取回收数据)>元宝！
#ELSEACT
messagebox 领取失败！你在测试区没有回收过元宝！
|
|
发表于 2020-4-13 22:44:51
