所有区保存一个文件的捐献总统查询

meinvwudi

机器人每日结算

[@总统结算]
{
#IF
#ACT
GetListString ..\QuestDiary\数据文件\爵位捐献\共享第一.txt 0 A429

#IF
NOT EQUAL A429
#ACT
AddTextListEx ..\QuestDiary\数据文件\爵位捐献\领取总统.txt <$STR(A429)>
MOV A429 
INC G488 1

#IF
#ACT
GetListString ..\QuestDiary\数据文件\爵位捐献\共享第一.txt 1 A429

#IF
NOT EQUAL A429
#ACT
AddTextListEx ..\QuestDiary\数据文件\爵位捐献\领取总统.txt <$STR(A429)>
MOV A429 
INC G488 1

#IF
#ACT
GetListString ..\QuestDiary\数据文件\爵位捐献\共享第一.txt 2 A429

#IF
NOT EQUAL A429
#ACT
AddTextListEx ..\QuestDiary\数据文件\爵位捐献\领取总统.txt <$STR(A429)>
MOV A429
INC G488 1

#IF
#ACT
GetListString ..\QuestDiary\数据文件\爵位捐献\共享第一.txt 3 A429

#IF
NOT EQUAL A429
#ACT
AddTextListEx ..\QuestDiary\数据文件\爵位捐献\领取总统.txt <$STR(A429)>
MOV A429
INC G488 1

#IF
#ACT
GetListString ..\QuestDiary\数据文件\爵位捐献\共享第一.txt 4 A429

#IF
NOT EQUAL A429
#ACT
AddTextListEx ..\QuestDiary\数据文件\爵位捐献\领取总统.txt <$STR(A429)>
MOV A429
INC G488 1

#IF
#ACT
GetListString ..\QuestDiary\数据文件\爵位捐献\共享第一.txt 5 A429

#IF
NOT EQUAL A429
#ACT
AddTextListEx ..\QuestDiary\数据文件\爵位捐献\领取总统.txt <$STR(A429)>
MOV A429
INC G488 1

#IF
#ACT
GetListString ..\QuestDiary\数据文件\爵位捐献\共享第一.txt 6 A429

#IF
NOT EQUAL A429
#ACT
AddTextListEx ..\QuestDiary\数据文件\爵位捐献\领取总统.txt <$STR(A429)>
MOV A429
INC G488 1

#IF
#ACT
GetListString ..\QuestDiary\数据文件\爵位捐献\共享第一.txt 7 A429

#IF
NOT EQUAL A429
#ACT
AddTextListEx ..\QuestDiary\数据文件\爵位捐献\领取总统.txt <$STR(A429)>
MOV A429
INC G488 1

#IF
#ACT
GetListString ..\QuestDiary\数据文件\爵位捐献\共享第一.txt 8 A429

#IF
NOT EQUAL A429
#ACT
AddTextListEx ..\QuestDiary\数据文件\爵位捐献\领取总统.txt <$STR(A429)>
MOV A429
INC G488 1

#IF
#ACT
GetListString ..\QuestDiary\数据文件\爵位捐献\共享第一.txt 9 A429

#IF
NOT EQUAL A429
#ACT
AddTextListEx ..\QuestDiary\数据文件\爵位捐献\领取总统.txt <$STR(A429)>
MOV A429
INC G488 1

#IF
#ACT
GetListString ..\QuestDiary\数据文件\爵位捐献\共享第一.txt 10 A429

#IF
NOT EQUAL A429
#ACT
AddTextListEx ..\QuestDiary\数据文件\爵位捐献\领取总统.txt <$STR(A429)>
MOV A429
INC G488 1

#IF
#ACT
GetListString ..\QuestDiary\数据文件\爵位捐献\共享第一.txt 11 A429

#IF
NOT EQUAL A429
#ACT
AddTextListEx ..\QuestDiary\数据文件\爵位捐献\领取总统.txt <$STR(A429)>
MOV A429
INC G488 1

#IF
#ACT
GetListString ..\QuestDiary\数据文件\爵位捐献\共享第一.txt 12 A429

#IF
NOT EQUAL A429
#ACT
AddTextListEx ..\QuestDiary\数据文件\爵位捐献\领取总统.txt <$STR(A429)>
MOV A429
INC G488 1

#IF
#ACT
GetListString ..\QuestDiary\数据文件\爵位捐献\共享第一.txt 13 A429

#IF
NOT EQUAL A429
#ACT
AddTextListEx ..\QuestDiary\数据文件\爵位捐献\领取总统.txt <$STR(A429)>
MOV A429
INC G488 1

#IF
#ACT
GetListString ..\QuestDiary\数据文件\爵位捐献\共享第一.txt 14 A429

#IF
NOT EQUAL A429
#ACT
AddTextListEx ..\QuestDiary\数据文件\爵位捐献\领取总统.txt <$STR(A429)>
MOV A429
INC G488 1

#IF
#ACT
GetListString ..\QuestDiary\数据文件\爵位捐献\共享第一.txt 15 A429

#IF
NOT EQUAL A429
#ACT
AddTextListEx ..\QuestDiary\数据文件\爵位捐献\领取总统.txt <$STR(A429)>
MOV A429
INC G488 1

#IF
#ACT
GetListString ..\QuestDiary\数据文件\爵位捐献\共享第一.txt 16 A429

#IF
NOT EQUAL A429
#ACT
AddTextListEx ..\QuestDiary\数据文件\爵位捐献\领取总统.txt <$STR(A429)>
MOV A429
INC G488 1

#IF
#ACT
GetListString ..\QuestDiary\数据文件\爵位捐献\共享第一.txt 17 A429

#IF
NOT EQUAL A429
#ACT
AddTextListEx ..\QuestDiary\数据文件\爵位捐献\领取总统.txt <$STR(A429)>
MOV A429
INC G488 1

#IF
#ACT
GetListString ..\QuestDiary\数据文件\爵位捐献\共享第一.txt 18 A429

#IF
NOT EQUAL A429
#ACT
AddTextListEx ..\QuestDiary\数据文件\爵位捐献\领取总统.txt <$STR(A429)>
MOV A429
INC G488 1

#IF
#ACT
GetListString ..\QuestDiary\数据文件\爵位捐献\共享第一.txt 19 A429

#IF
NOT EQUAL A429
#ACT
AddTextListEx ..\QuestDiary\数据文件\爵位捐献\领取总统.txt <$STR(A429)>
MOV A429
INC G488 1

#IF
#ACT
GetListString ..\QuestDiary\数据文件\爵位捐献\共享第一.txt 20 A429

#IF
NOT EQUAL A429
#ACT
AddTextListEx ..\QuestDiary\数据文件\爵位捐献\领取总统.txt <$STR(A429)>
MOV A429
INC G488 1

#IF
#ACT
GetListString ..\QuestDiary\数据文件\爵位捐献\共享第一.txt 21 A429

#IF
NOT EQUAL A429
#ACT
AddTextListEx ..\QuestDiary\数据文件\爵位捐献\领取总统.txt <$STR(A429)>
MOV A429
INC G488 1

#IF
#ACT
GetListString ..\QuestDiary\数据文件\爵位捐献\共享第一.txt 22 A429

#IF
NOT EQUAL A429
#ACT
AddTextListEx ..\QuestDiary\数据文件\爵位捐献\领取总统.txt <$STR(A429)>
MOV A429
INC G488 1

#IF
#ACT
GetListString ..\QuestDiary\数据文件\爵位捐献\共享第一.txt 23 A429

#IF
NOT EQUAL A429
#ACT
AddTextListEx ..\QuestDiary\数据文件\爵位捐献\领取总统.txt <$STR(A429)>
MOV A429
INC G488 1

#IF
#ACT
GetListString ..\QuestDiary\数据文件\爵位捐献\共享第一.txt 24 A429

#IF
NOT EQUAL A429
#ACT
AddTextListEx ..\QuestDiary\数据文件\爵位捐献\领取总统.txt <$STR(A429)>
MOV A429
INC G488 1

#IF
#ACT
GetListString ..\QuestDiary\数据文件\爵位捐献\共享第一.txt 25 A429

#IF
NOT EQUAL A429
#ACT
AddTextListEx ..\QuestDiary\数据文件\爵位捐献\领取总统.txt <$STR(A429)>
MOV A429
INC G488 1

#IF
#ACT
GetListString ..\QuestDiary\数据文件\爵位捐献\共享第一.txt 26 A429

#IF
NOT EQUAL A429
#ACT
AddTextListEx ..\QuestDiary\数据文件\爵位捐献\领取总统.txt <$STR(A429)>
MOV A429
INC G488 1

#IF
#ACT
GetListString ..\QuestDiary\数据文件\爵位捐献\共享第一.txt 27 A429

#IF
NOT EQUAL A429
#ACT
AddTextListEx ..\QuestDiary\数据文件\爵位捐献\领取总统.txt <$STR(A429)>
MOV A429
INC G488 1

#IF
#ACT
GetListString ..\QuestDiary\数据文件\爵位捐献\共享第一.txt 28 A429

#IF
NOT EQUAL A429
#ACT
AddTextListEx ..\QuestDiary\数据文件\爵位捐献\领取总统.txt <$STR(A429)>
MOV A429
INC G488 1

#IF
#ACT
GetListString ..\QuestDiary\数据文件\爵位捐献\共享第一.txt 29 A429

#IF
NOT EQUAL A429
#ACT
AddTextListEx ..\QuestDiary\数据文件\爵位捐献\领取总统.txt <$STR(A429)>
MOV A429
INC G488 1

#IF
LARGE G488 0
#ACT
MOV G482 <$STR(G483)>
DIV G482 2
MOV G481 <$STR(G482)>
DIV G482 <$STR(G488)>

mov A250 <$servername><$year>年<$month>月<$day>号
WriteConfigFileItem  ..\..\..\..\数据文件\膜拜\总统领取.txt  <$STR(A250)>领取状态 可领个数 <$STR(G488)>
WriteConfigFileItem  ..\..\..\..\数据文件\膜拜\总统领取.txt  <$STR(A250)>领取状态 已领个数 0
WriteConfigFileItem  ..\..\..\..\数据文件\膜拜\总统领取.txt  <$STR(A250)>领取状态 总统分额 <$STR(G482)>
WriteConfigFileItem  ..\..\..\..\数据文件\膜拜\总统领取.txt  <$STR(A250)>领取状态 已领金额 0
WriteConfigFileItem  ..\..\..\..\数据文件\膜拜\总统领取.txt  <$STR(A250)>领取状态 可领金额 <$STR(G481)>



MOV G483 0
MOV A490 多


 

#IF
SMALL G488 1
#ACT
AddTextListEx ..\QuestDiary\数据文件\爵位捐献\领取总统.txt <$STR(A495)>
MOV A490 
MOV G482 <$STR(G483)>
MOV G481 <$STR(G482)>
DIV G482 2

mov A250 <$servername><$year>年<$month>月<$day>号
WriteConfigFileItem  ..\..\..\..\数据文件\膜拜\总统领取.txt  <$STR(A250)>领取状态 可领个数 1
WriteConfigFileItem  ..\..\..\..\数据文件\膜拜\总统领取.txt  <$STR(A250)>领取状态 已领个数 0
WriteConfigFileItem  ..\..\..\..\数据文件\膜拜\总统领取.txt  <$STR(A250)>领取状态 总统分额 <$STR(G482)>
WriteConfigFileItem  ..\..\..\..\数据文件\膜拜\总统领取.txt  <$STR(A250)>领取状态 已领金额 0
WriteConfigFileItem  ..\..\..\..\数据文件\膜拜\总统领取.txt  <$STR(A250)>领取状态 可领金额 <$STR(G482)>

MOV G483 0

}

meinvwudi

领取总统奖励时，保存数据

[@领取]
#IF
CHECKTEXTLIST ..\QuestDiary\数据文件\爵位捐献\领取总统.txt <$USERNAME>
#ACT
JZDelTextList ..\QuestDiary\数据文件\爵位捐献\领取总统.txt <$USERNAME>
GAMEGOLD + <$STR(G482)>
INC U19 <$STR(G482)>

ReadConfigFileItem  ..\..\..\..\数据文件\膜拜\总统领取.txt  <$STR(A250)>领取状态 已领个数 <$STR(N$已领个数)>
INC N$已领个数 1
WriteConfigFileItem  ..\..\..\..\数据文件\膜拜\总统领取.txt  <$STR(A250)>领取状态 已领个数 <$STR(N$已领个数)>
ReadConfigFileItem  ..\..\..\..\数据文件\膜拜\总统领取.txt  <$STR(A250)>领取状态 已领金额 <$STR(N$已领金额)>
INC N$已领金额 <$STR(G482)>
WriteConfigFileItem  ..\..\..\..\数据文件\膜拜\总统领取.txt  <$STR(A250)>领取状态 已领金额 <$STR(N$已领金额)>
WriteConfigFileItem  ..\..\..\..\数据文件\膜拜\总统领取.txt  <$STR(A250)>领取明细 <$USERNAME> <$STR(G482)>个元宝[领取时间:<$DATETIME>]

GOTO @MAIN
SENDMOVEMSG 0 251 249 340 1 {[<$USERNAME>]/FCOLOR=250}领取膜拜总统奖励{<$STR(G482)>个元宝/FCOLOR=251}。
MESSAGEBOX 您已经领取了膜拜奖励获得“<$STR(G482)>"个元宝
BREAK
#ELSEACT
MESSAGEBOX 对不起！您在结算之前不是总统或者您已经领取过膜拜奖励.
BREAK

meinvwudi


[@总统领取查询实现]
{

#IF
#act
OPENMERCHANTBIGDLG 7 233 1 0 0 0 1
mov S$总统查询区名期
MOV S51
ReadConfigFileItem  ..\..\..\..\数据文件\膜拜\总统领取.txt <$STR(A250)>领取状态 膜拜总额 <$STR(N$膜拜总额)> 
ReadConfigFileItem  ..\..\..\..\数据文件\膜拜\总统领取.txt <$STR(A250)>领取状态 可领金额 <$STR(N$可领金额)>
ReadConfigFileItem  ..\..\..\..\数据文件\膜拜\总统领取.txt <$STR(A250)>领取状态 已领金额 <$STR(N$已领金额)>
ReadConfigFileItem  ..\..\..\..\数据文件\膜拜\总统领取.txt <$STR(A250)>领取状态 总统分额 <$STR(N$总统分额)>
ReadConfigFileItem  ..\..\..\..\数据文件\膜拜\总统领取.txt <$STR(A250)>领取状态 可领个数 <$STR(N$可领个数)>
ReadConfigFileItem  ..\..\..\..\数据文件\膜拜\总统领取.txt <$STR(A250)>领取状态 已领个数 <$STR(N$已领个数)>

#if
#act
MOV S$拼接显示字符串
MOV N$显示行号 0
GetStringPos   ..\..\..\..\数据文件\膜拜\总统领取.txt [<$STR(A250)>领取明细]
mov N$领取明细行号 <$str(N0)>
Loopgoto @运算 N$已领个数

#say
\　    
<〓/FCOLOR=255> <查询区名:/FCOLOR=251>{<$STR(A250)>/FCOLOR=70}           <输入区名日期/@@InPutString51>      <返回首页/@main>      <刷新当前区/@刷新当前区>\ 
膜拜：{<$STR(N$膜拜总额)>/SCOLOR=250}元宝  可领:{<$STR(N$可领金额)>/SCOLOR=250}元宝  已领:{<$STR(N$已领金额)>/SCOLOR=254}元宝  可领:{<$STR(N$可领个数)>/SCOLOR=250}位  已领:{<$STR(N$已领个数)>/SCOLOR=254}位  份额:{<$STR(N$总统分额)>/SCOLOR=254}/位\ \

<$STR(S$拼接显示字符串)>\ \




[@总统查询提交开始]
#IF
#act
OPENMERCHANTBIGDLG 7 233 1 0 0 0 


ReadConfigFileItem  ..\..\..\..\数据文件\膜拜\总统领取.txt <$STR(S$总统查询区名期)>领取状态 膜拜总额 <$STR(N$膜拜总额)> 
ReadConfigFileItem  ..\..\..\..\数据文件\膜拜\总统领取.txt <$STR(S$总统查询区名期)>领取状态 可领金额 <$STR(N$可领金额)>
ReadConfigFileItem  ..\..\..\..\数据文件\膜拜\总统领取.txt <$STR(S$总统查询区名期)>领取状态 已领金额 <$STR(N$已领金额)>
ReadConfigFileItem  ..\..\..\..\数据文件\膜拜\总统领取.txt <$STR(S$总统查询区名期)>领取状态 总统分额 <$STR(N$总统分额)>
ReadConfigFileItem  ..\..\..\..\数据文件\膜拜\总统领取.txt <$STR(S$总统查询区名期)>领取状态 可领个数 <$STR(N$可领个数)>
ReadConfigFileItem  ..\..\..\..\数据文件\膜拜\总统领取.txt <$STR(S$总统查询区名期)>领取状态 已领个数 <$STR(N$已领个数)>
#if
#act
MOV S$拼接显示字符串
MOV N$显示行号 0
GetStringPos   ..\..\..\..\数据文件\膜拜\总统领取.txt [<$STR(S$总统查询区名期)>领取明细]
mov N$领取明细行号 <$str(N0)>
Loopgoto @运算 N$已领个数

#say
\
<〓/FCOLOR=255> <区名:/FCOLOR=251>{<$STR(S$总统查询区名期)>/FCOLOR=70}           <输入区名日期/@@InPutString51>      <返回当前区/@总统领取查询实现>      <返回首页/@main>      <刷新/@刷新总统查询页>\
总统膜拜：{<$STR(N$膜拜总额)>/SCOLOR=250}元宝  可领:{<$STR(N$可领金额)>/SCOLOR=250}元宝  已领:{<$STR(N$已领金额)>/SCOLOR=254}元宝  可领:{<$STR(N$可领个数)>/SCOLOR=250}位  已领:{<$STR(N$已领个数)>/SCOLOR=254}位  份额:{<$STR(N$总统分额)>/SCOLOR=254}/位\ \

<$STR(S$拼接显示字符串)>\ \



[@inputstring51]
#IF
EQUAL S51
#ACT
MESSAGEBOX \对不起！请输入区名日期!例:两袖清风2022年11月10号
BREAK

#if 
not equal S51
#ACT
MOV S$总统查询区名期 <$STR(S51)>
goto @总统查询提交开始


[@运算]
#if
#act
INC N$领取明细行号 1
INC N$显示行号 1
GetListString  ..\..\..\..\数据文件\膜拜\总统领取.txt  N$领取明细行号   S$单个玩家信息
INC S$拼接显示字符串    <>　　{<$str(N$显示行号)>/SCOLOR=70}.<$str(S$单个玩家信息)>\

[@刷新总统查询页]
#act 
goto @总统查询提交开始

[@刷新当前区]
#act 
goto @总统领取查询实现

}

meinvwudi


[@总统领取查询实现]
{

#IF
#act
OPENMERCHANTBIGDLG 7 233 1 0 0 0 1
mov S$总统查询区名期
MOV S51
ReadConfigFileItem  ..\..\..\..\数据文件\膜拜\总统领取.txt <$STR(A250)>领取状态 膜拜总额 <$STR(N$膜拜总额)> 
ReadConfigFileItem  ..\..\..\..\数据文件\膜拜\总统领取.txt <$STR(A250)>领取状态 可领金额 <$STR(N$可领金额)>
ReadConfigFileItem  ..\..\..\..\数据文件\膜拜\总统领取.txt <$STR(A250)>领取状态 已领金额 <$STR(N$已领金额)>
ReadConfigFileItem  ..\..\..\..\数据文件\膜拜\总统领取.txt <$STR(A250)>领取状态 总统分额 <$STR(N$总统分额)>
ReadConfigFileItem  ..\..\..\..\数据文件\膜拜\总统领取.txt <$STR(A250)>领取状态 可领个数 <$STR(N$可领个数)>
ReadConfigFileItem  ..\..\..\..\数据文件\膜拜\总统领取.txt <$STR(A250)>领取状态 已领个数 <$STR(N$已领个数)>

#if
#act
MOV S$拼接显示字符串
MOV N$显示行号 0
GetStringPos   ..\..\..\..\数据文件\膜拜\总统领取.txt [<$STR(A250)>领取明细]
mov N$领取明细行号 <$str(N0)>
Loopgoto @运算 N$已领个数

#say
\　    
<〓/FCOLOR=255> <查询区名:/FCOLOR=251>{<$STR(A250)>/FCOLOR=70}           <输入区名日期/@@InPutString51>      <返回首页/@main>      <刷新当前区/@刷新当前区>\ 
膜拜：{<$STR(N$膜拜总额)>/SCOLOR=250}元宝  可领:{<$STR(N$可领金额)>/SCOLOR=250}元宝  已领:{<$STR(N$已领金额)>/SCOLOR=254}元宝  可领:{<$STR(N$可领个数)>/SCOLOR=250}位  已领:{<$STR(N$已领个数)>/SCOLOR=254}位  份额:{<$STR(N$总统分额)>/SCOLOR=254}/位\ \

<$STR(S$拼接显示字符串)>\ \




[@总统查询提交开始]
#IF
#act
OPENMERCHANTBIGDLG 7 233 1 0 0 0 


ReadConfigFileItem  ..\..\..\..\数据文件\膜拜\总统领取.txt <$STR(S$总统查询区名期)>领取状态 膜拜总额 <$STR(N$膜拜总额)> 
ReadConfigFileItem  ..\..\..\..\数据文件\膜拜\总统领取.txt <$STR(S$总统查询区名期)>领取状态 可领金额 <$STR(N$可领金额)>
ReadConfigFileItem  ..\..\..\..\数据文件\膜拜\总统领取.txt <$STR(S$总统查询区名期)>领取状态 已领金额 <$STR(N$已领金额)>
ReadConfigFileItem  ..\..\..\..\数据文件\膜拜\总统领取.txt <$STR(S$总统查询区名期)>领取状态 总统分额 <$STR(N$总统分额)>
ReadConfigFileItem  ..\..\..\..\数据文件\膜拜\总统领取.txt <$STR(S$总统查询区名期)>领取状态 可领个数 <$STR(N$可领个数)>
ReadConfigFileItem  ..\..\..\..\数据文件\膜拜\总统领取.txt <$STR(S$总统查询区名期)>领取状态 已领个数 <$STR(N$已领个数)>
#if
#act
MOV S$拼接显示字符串
MOV N$显示行号 0
GetStringPos   ..\..\..\..\数据文件\膜拜\总统领取.txt [<$STR(S$总统查询区名期)>领取明细]
mov N$领取明细行号 <$str(N0)>
Loopgoto @运算 N$已领个数

#say
\
<〓/FCOLOR=255> <区名:/FCOLOR=251>{<$STR(S$总统查询区名期)>/FCOLOR=70}           <输入区名日期/@@InPutString51>      <返回当前区/@总统领取查询实现>      <返回首页/@main>      <刷新/@刷新总统查询页>\
总统膜拜：{<$STR(N$膜拜总额)>/SCOLOR=250}元宝  可领:{<$STR(N$可领金额)>/SCOLOR=250}元宝  已领:{<$STR(N$已领金额)>/SCOLOR=254}元宝  可领:{<$STR(N$可领个数)>/SCOLOR=250}位  已领:{<$STR(N$已领个数)>/SCOLOR=254}位  份额:{<$STR(N$总统分额)>/SCOLOR=254}/位\ \

<$STR(S$拼接显示字符串)>\ \



[@inputstring51]
#IF
EQUAL S51
#ACT
MESSAGEBOX \对不起！请输入区名日期!例:两袖清风2022年11月10号
BREAK

#if 
not equal S51
#ACT
MOV S$总统查询区名期 <$STR(S51)>
goto @总统查询提交开始


[@运算]
#if
#act
INC N$领取明细行号 1
INC N$显示行号 1
GetListString  ..\..\..\..\数据文件\膜拜\总统领取.txt  N$领取明细行号   S$单个玩家信息
INC S$拼接显示字符串    <>　　{<$str(N$显示行号)>/SCOLOR=70}.<$str(S$单个玩家信息)>\

[@刷新总统查询页]
#act 
goto @总统查询提交开始

[@刷新当前区]
#act 
goto @总统领取查询实现

}