传奇一条龙测试记录元宝教程，传奇开区时设置记录测试区积分。

admin

[@main]
#IF
#ACT
GOTO @测试初始化
#SAY
<>\
<>\
<>      <测试打到的积分以及拾取到的积分都可以记录到新区/FCOLOR=249> \
<>      <测试打到的积分以及拾取到的积分都可以记录到新区/FCOLOR=249> \
<>      <当前测试区获取的RMB点数量【/FCOLOR=253><$GAMEGLORY><】/FCOLOR=253>        <正式开区50%领取！【<$STR(N$记录金额)>】/FCOLOR=255>\
<>      <当前测试区获取的RMB点数量【/FCOLOR=253><$GAMEGLORY><】/FCOLOR=253>        <正式开区50%领取！【<$STR(N$记录金额)>】/FCOLOR=255>\
<>\
　　     <$STR(S$按钮领取)>  \   
<>\
<>      <当前测试区已记录的RMB点数量【/FCOLOR=253>:<$STR(S$记录金额)><】/FCOLOR=253> \   
<>\
<>      <记录无限制，可多次记录---充值的RMB点不可记录---只记录游戏内获得的RMB点数量>\


[@测试区RMB111]
#IF
CHECKGAMEGLORY > 1
#ACT
CLEARNAMELIST ..\QuestDiary\测试记录元宝\账户记录\<$USERID>.txt
AddTextListEx ..\QuestDiary\测试记录元宝\账户记录\<$USERID>.txt <$GAMEGLORY>
GOTO @main
MessageBox 记录成功！
#ELSEACT
MessageBox 不够2个，无法记录！
BREAK





[@领取测试区RMB222]
#IF
#ACT
GetRandomText ..\QuestDiary\测试记录元宝\账户记录\<$USERID>.txt S$记录金额
MOV N$记录金额 <$STR(S$记录金额)>
DIV N$记录金额 2


#IF
LARGE N$记录金额 0
#ACT
GAMEGLORY + <$STR(N$记录金额)>
CLEARNAMELIST ..\QuestDiary\测试记录元宝\账户记录\<$USERID>.txt
MOV S$记录金额
MOV N$记录金额 0
GOTO @main
MessageBox 领取成功！
#ELSEACT
MessageBox 没有在测试区记录到你的信息！
BREAK



[@测试初始化]
#IF
NOT CHECKTEXTLIST ..\QuestDiary\测试记录元宝\测试账户.txt <$USERID>
#ACT
AddTextListEx ..\QuestDiary\测试记录元宝\测试账户.txt <$USERID>
AddTextListEx ..\QuestDiary\测试记录元宝\账户记录\<$USERID>.txt 0


#IF
CheckContainsText <$SERVERNAME> 测试
#ACT
MOV S$按钮领取 <点击记录测试区积分/@测试区RMB111>
#ELSEACT
MOV S$按钮领取 <领取测试区积分记录/@领取测试区RMB222>


#IF
#ACT
GetRandomText ..\QuestDiary\测试记录元宝\账户记录\<$USERID>.txt S$记录金额
MOV N$记录金额 <$STR(S$记录金额)>
DIV N$记录金额 2