[@开区配置捐献]
{
#IF
CHECKTEXTLIST ..\..\..\..\数据文件\商人数据\可发送区服.txt <$SERVERNAME>
#ACT
#ELSEACT
AddTextListEx ..\..\..\..\数据文件\商人数据\可发送区服.txt <$SERVERNAME>
ForceDirectories ..\..\..\..\数据文件\商人数据\发送元宝\<$SERVERNAME>
#IF
#ACT
CLEARNAMELIST ..\QuestDiary\数据文件\消耗产出\消耗数据.txt
CLEARNAMELIST ..\QuestDiary\数据文件\消耗产出\产出数据.txt
; 小合:1-3区
#IF
CheckContainsText <$SERVERNAME> 1-3区
EQUAL G1 0
#ACT
MOV G1 1
MOV A6 1-3区
; 创建捐献和膜拜文件
CreateFile ..\..\..\..\数据文件\捐献\<$STR(A0)>\<$STR(A1)>1-3区.txt
CreateFile ..\..\..\..\数据文件\膜拜\<$STR(A0)>\<$STR(A1)>1-3区.txt
; 读取捐献,膜,狂数据到G变量
GetListString ..\..\..\..\数据文件\捐献\<$STR(A0)>\<$STR(A1)>1区.txt 0 G107
GetListString ..\..\..\..\数据文件\捐献\<$STR(A0)>\<$STR(A1)>2区.txt 0 G108
GetListString ..\..\..\..\数据文件\捐献\<$STR(A0)>\<$STR(A1)>3区.txt 0 G109
GetListString ..\..\..\..\数据文件\膜拜\<$STR(A0)>\<$STR(A1)>1区.txt 0 G484
GetListString ..\..\..\..\数据文件\膜拜\<$STR(A0)>\<$STR(A1)>2区.txt 0 G485
GetListString ..\..\..\..\数据文件\膜拜\<$STR(A0)>\<$STR(A1)>3区.txt 0 G486
GetListString ..\..\..\..\数据文件\狂暴\<$STR(A0)>\<$STR(A1)>1区.txt 0 G362
GetListString ..\..\..\..\数据文件\狂暴\<$STR(A0)>\<$STR(A1)>2区.txt 0 G363
GetListString ..\..\..\..\数据文件\狂暴\<$STR(A0)>\<$STR(A1)>3区.txt 0 G364
MOV G400 0
; 膜拜1,2,3区进行叠加
MOV G483 0
INC G483 <$STR(G484)>
INC G483 <$STR(G485)>
INC G483 <$STR(G486)>
; 捐献1,2,3区进行叠加
MOV G106 0
INC G106 <$str(G107)>
INC G106 <$str(G108)>
INC G106 <$str(G109)>
; ======沙奖计算======
MOV G352 0
; 沙奖0+指挥送600W
MOV G354 6000000
INC G352 <$STR(G354)>
; 沙奖0+指挥送600W+沙捐的80%
MOV G353 0
MOV G353 <$STR(G106)>
DIV G353 5
MUL G353 4
INC G352 <$STR(G353)>
; 沙奖0+指挥送600W+沙捐的80%+1-3区的狂暴
MOV G347 0
INC G347 <$STR(G362)>
INC G347 <$STR(G363)>
INC G347 <$STR(G364)>
INC G352 <$STR(G347)>
; NPC上显示,沙捐和沙奖的金额
MOV A83 累计(<$STR(G106)>)元宝\沙城捐献
MOV A87 累计(<$STR(G352)>)元宝\沙城奖励
AddTextListEx ..\..\..\..\数据文件\膜拜\<$STR(A0)>\<$STR(A1)>1-3区.txt <$STR(G483)> 0
AddTextListEx ..\..\..\..\数据文件\捐献\<$STR(A0)>\<$STR(A1)>1-3区.txt <$STR(G106)> 0
AddTextListEx ..\..\..\..\数据文件\狂暴\<$STR(A0)>\<$STR(A1)>1-3区.txt <$STR(G347)> 0
; 清空原来区的爵位捐献数据
CLEARNAMELIST ..\QuestDiary\数据文件\爵位捐献\元宝爵位.txt
CLEARNAMELIST ..\QuestDiary\数据文件\爵位捐献\爵位排行.txt
; 总统个数
MOV G488 0
; 获取总统个数的变量初始化
MOV G487 0
; 捐献前5名名单
; A495 <$STR(S$捐献A_01)> 第一名
; A496 <$STR(S$捐献A_02)>
; A497 <$STR(S$捐献A_03)>
; A498 <$STR(S$捐献A_04)>
; A499 <$STR(S$捐献A_05)>
; 捐献前五名数量
; MOV S$捐献B_01 <$STR(G495)>
; MOV S$捐献B_02 <$STR(G496)>
; MOV S$捐献B_03 <$STR(G497)>
; MOV S$捐献B_04 <$STR(G498)>
; MOV S$捐献B_05 <$STR(G499)>
; 捐献全局变量清空
MOV A495
MOV A496
MOV A497
MOV A498
MOV A499
MOV G495 0
MOV G496 0
MOV G497 0
MOV G498 0
MOV G499 0
; Loopgoto @合区总统计算 10
BREAK
[@合区总统计算]
#IF
#ACT
GetListString ..\QuestDiary\数据文件\爵位捐献\共享第一.txt <$STR(G487)> A491
#IF
; 有总统名字的情况下
NOT EQUAL A491
#ACT
MOV A491
; 增加总统个数
INC G488 1
; 读取行号增加
INC G487 1
#ELSEACT
BREAK
}
