#if
equal S$日期区名
#act
MOV S$日期区名 <$STR(A0)>\<$STR(A1)><$STR(A2)>
#IF
#act
OPENMERCHANTBIGDLG 7 233 1 0 0 0 1
ReadConfigFileItem ..\..\..\..\数据文件\膜拜\<$STR(S$日期区名)>_总统领取.ini 领取状态 可领金额 <$STR(N$可领金额)>
ReadConfigFileItem ..\..\..\..\数据文件\膜拜\<$STR(S$日期区名)>_总统领取.ini 领取状态 已领金额 <$STR(N$已领金额)>
ReadConfigFileItem ..\..\..\..\数据文件\膜拜\<$STR(S$日期区名)>_总统领取.ini 领取状态 可领个数 <$STR(N$可领个数)>
ReadConfigFileItem ..\..\..\..\数据文件\膜拜\<$STR(S$日期区名)>_总统领取.ini 领取状态 已领个数 <$STR(N$已领个数)>
#if
#act
MOV S$拼接显示字符串
mov N$领取明细行号 7
MOV N$显示行号 0
Loopgoto @运算 N$已领个数
#say
\
<〓/FCOLOR=255> <区名:/FCOLOR=251>{<$SERVERNAME>/FCOLOR=70} <日期:/FCOLOR=251>{<$STR(A0)>/FCOLOR=70}<〓/FCOLOR=255> <输入区名/@@InPutString51> <输入日期/@@InPutString50> \
<> 可领金额:{<$STR(N$可领金额)>/SCOLOR=250}个元宝 已领金额:{<$STR(N$已领金额)>/SCOLOR=254}个元宝 可领个数:{<$STR(N$可领个数)>/SCOLOR=250}位 已领个数:{<$STR(N$已领个数)>/SCOLOR=254}位\ \
<$STR(S$拼接显示字符串)>\ \
[@总统查询提交开始]
#IF
#act
OPENMERCHANTBIGDLG 7 233 1 0 0 0
ReadConfigFileItem ..\..\..\..\数据文件\膜拜\<$STR(S$总统查询日期)>\<$STR(S$总统查询区名)>_总统领取.ini 领取状态 可领金额 <$STR(N$可领金额)>
ReadConfigFileItem ..\..\..\..\数据文件\膜拜\<$STR(S$总统查询日期)>\<$STR(S$总统查询区名)>_总统领取.ini 领取状态 已领金额 <$STR(N$已领金额)>
ReadConfigFileItem ..\..\..\..\数据文件\膜拜\<$STR(S$总统查询日期)>\<$STR(S$总统查询区名)>_总统领取.ini 领取状态 可领个数 <$STR(N$可领个数)>
ReadConfigFileItem ..\..\..\..\数据文件\膜拜\<$STR(S$总统查询日期)>\<$STR(S$总统查询区名)>_总统领取.ini 领取状态 已领个数 <$STR(N$已领个数)>
#if
#act
MOV S$拼接显示字符串
mov N$领取明细行号 7
MOV N$显示行号 0
Loopgoto @运算 N$已领个数
#say
\ \
<〓/FCOLOR=255> <区名:/FCOLOR=251>{<$STR(S$总统查询区名)>/FCOLOR=70} <日期:/FCOLOR=251>{<$STR(S$总统查询日期)>/FCOLOR=70}<〓/FCOLOR=255> <输入区名/@@InPutString51> <输入日期/@@InPutString50> <返回当前区/@main>\ \
<> 可领金额:{<$STR(N$可领金额)>/SCOLOR=250}个元宝 已领金额:{<$STR(N$已领金额)>/SCOLOR=254}个元宝 可领个数:{<$STR(N$可领个数)>/SCOLOR=250}位 已领个数:{<$STR(N$已领个数)>/SCOLOR=254}位\ \
<$STR(S$拼接显示字符串)>\ \
[@inputstring50]
#IF
EQUAL S50
#ACT
MESSAGEBOX \对不起！请输入日期!
BREAK
#if
not equal S50
#ACT
MOV S$总统查询日期 <$STR(S50)>
goto @总统查询提交开始
[@inputstring51]
#IF
EQUAL S51
#ACT
MESSAGEBOX \对不起！请输入区名!
BREAK
#if
not equal S51
#ACT
MOV S$总统查询区名 <$STR(S51)>
goto @总统查询提交开始
[@运算]
#if
#act
INC N$领取明细行号 1
INC N$显示行号 1
GetListString ..\..\..\..\数据文件\膜拜\<$STR(S$日期区名)>_总统领取.ini N$领取明细行号 S$单个玩家信息
INC S$拼接显示字符串 <> {<$str(N$显示行号)>/SCOLOR=70}.<$str(S$单个玩家信息)>\
