#IF
not EQUAL A8 1
#ACT
mov A84 开
; 计算沙奖总额变量
mov G355 0
; 沙老大单独领取奖励的标专
mov A424 1
; 独自领奖 mov A398 1 胜行会成员分沙奖 mov A398 2
mov A398
; 统计当日沙奖胜利和失败方领取总额
mov G494 0
mov G476 0
getliststring ..\..\..\..\数据文件\捐献\<$STR(A0)>\<$STR(A1)>战区.txt 0 G353
; --沙捐增加到G355
inc G355 <$STR(G353)>
; --狂暴增加到G355 算出沙捐总额
inc G355 <$STR(G347)>
mov G356 <$STR(G355)>
; --胜利方，除 活跃度，得出胜利方，每个活跃度的奖励
div G356 <$STR(G358)>
; ;显示600W的清0
mov G354 0
; NPC显示的清0
mov G352 0
;狂暴捐款清0
mov G347 0
; 沙捐显示清0
mov G106 0
clearnamelist ..\..\..\..\数据文件\狂暴\<$STR(A0)>\<$STR(A1)>战区.txt
clearnamelist ..\..\..\..\数据文件\捐献\<$STR(A0)>\<$STR(A1)>战区.txt
clearnamelist ..\QuestDiary\数据文件\沙城捐献\捐献名单.txt
gmexecute 开始提问 @捐献名单
mov A87 累计(<$STR(G352)>)元宝\沙城奖励
mov A83 累计(<$STR(G106)>)元宝\沙城捐献
