[@main]
#IF
EQUAL G1 0
#ACT
GOTO @新区显示
BREAK
#IF
EQUAL G1 1
#ACT
GOTO @分区显示
BREAK
#IF
LARGE G1 1
#ACT
GOTO @合区显示
BREAK
[@新区显示]
#IF
#ACT
GetListString ..\..\..\..\数据文件\捐献\<$STR(A0)>\<$STR(A1)>1区.txt 0 N$奖励1
GetListString ..\..\..\..\数据文件\捐献\<$STR(A0)>\<$STR(A1)>2区.txt 0 N$奖励2
GetListString ..\..\..\..\数据文件\捐献\<$STR(A0)>\<$STR(A1)>3区.txt 0 N$奖励3
GetListString ..\..\..\..\数据文件\捐献\<$STR(A0)>\<$STR(A1)>4区.txt 0 N$奖励4
GetListString ..\..\..\..\数据文件\捐献\<$STR(A0)>\<$STR(A1)>5区.txt 0 N$奖励5
GetListString ..\..\..\..\数据文件\捐献\<$STR(A0)>\<$STR(A1)>6区.txt 0 N$奖励6
#IF
#ACT
MOV N$奖励 0
INC N$奖励 <$STR(N$奖励1)>
INC N$奖励 <$STR(N$奖励2)>
INC N$奖励 <$STR(N$奖励3)>
INC N$奖励 <$STR(N$奖励4)>
INC N$奖励 <$STR(N$奖励5)>
INC N$奖励 <$STR(N$奖励6)>
#IF
#ACT
MOV N$奖励A <$STR(N$奖励)>
DIV N$奖励A 5
MUL N$奖励A 4
;---------------------
#IF
EQUAL <$HUMAN(沙城捐献)> 1
#ACT
MOV S$确认捐献 [已捐献]
#ELSEACT
MOV S$确认捐献 [未捐献]
#if
#Act
OPENMERCHANTBIGDLG 8 3740 1 0 0 0 1
#say
\
<> <【沙城VS捐献】/AUTOCOLOR=254,251,168,191,250,70,245,249,253> \
<><Hot~◆》/SCOLOR=215><沙城奖励： 第一次合区80%累积入奖励 此后的捐献100%累积入奖励/SCOLOR=253> {<$STR(S$确认捐献)>/SCOLOR=251}\
<><Hot~◆》/SCOLOR=215><你当前元宝数量/SCOLOR=70> <$GAMEGOLD><元宝/SCOLOR=70> <只需要50000元宝即可获得以下属性！/SCOLOR=254>\
<><Hot~◆》/SCOLOR=151><获得属性：/SCOLOR=253> <全属性加 5-5 增加1.1倍爆率 /SCOLOR=249>\
<><Hot~◆》/SCOLOR=215>{<$STR(A1)>一区/SCOLOR=254} <已累积沙城奖励/SCOLOR=215> <[金额]:/SCOLOR=249> {<$str(N$奖励1)>元宝/FCOLOR=253}\
<><Hot~◆》/SCOLOR=215>{<$STR(A1)>二区/SCOLOR=254} <已累积沙城奖励/SCOLOR=215> <[金额]:/SCOLOR=249> {<$str(N$奖励2)>元宝/FCOLOR=253}\
<><Hot~◆》/SCOLOR=215>{<$STR(A1)>三区/SCOLOR=254} <已累积沙城奖励/SCOLOR=215> <[金额]:/SCOLOR=249> {<$str(N$奖励3)>元宝/FCOLOR=253}\
<><Hot~◆》/SCOLOR=215>{<$STR(A1)>四区/SCOLOR=254} <已累积沙城奖励/SCOLOR=215> <[金额]:/SCOLOR=249> {<$str(N$奖励4)>元宝/FCOLOR=253}\ \ \
;<><Hot~◆》/SCOLOR=215>{<$STR(A1)>五区/SCOLOR=254} <已累积沙城奖励/SCOLOR=215> <[金额]:/SCOLOR=249> {<$str(N$奖励5)>元宝/FCOLOR=253}\
;<><Hot~◆》/SCOLOR=215>{<$STR(A1)>六区/SCOLOR=254} <已累积沙城奖励/SCOLOR=215> <[金额]:/SCOLOR=249> {<$str(N$奖励6)>元宝/FCOLOR=253} \
<><Hot~◆》今日新区共计捐献沙城奖池/SCOLOR=254> <[金额]:/SCOLOR=249> {<$str(N$奖励)>元宝/FCOLOR=253} \
<><Hot~◆》今日新区共计应发元宝奖励/SCOLOR=254> <[金额]:/SCOLOR=249> {<$str(N$奖励A)>元宝/FCOLOR=253} \
<> <沙城奖励：从“沙城奖励”处进入领奖地图，胜利方领取60% ，失败方领取40% 奖励包含指挥费> \
<> <第一次小合区保留捐献 第二次合区攻沙后每晚22点00清理沙捐 需要重新捐献才可获得属性> \
<> <你是否确认要捐献？[确认捐献元宝获取属性]/@捐献> <关 闭/@EXIT>\
<>
[@捐献]
#IF
EQUAL <$HUMAN(沙城捐献)> 1
#ACT
MESSAGEBOX 你已经捐献过无法继续捐献！
GOTO @MAIN
BREAK
#IF
CHECKGAMEGOLD < 50000
#ACT
MESSAGEBOX 对不起！您的元宝不足50000元宝，无法捐献
GOTO @MAIN
BREAK
#IF
CHECKGAMEGOLD > 49999
#ACT
GAMEGOLD - 50000
INC G106 50000
INC U1 50000
AddTextListEx ..\..\..\..\数据文件\捐献\<$STR(A0)>\<$STR(A1)><$STR(A2)>.txt <$str(G106)> 0
CALCVAR HUMAN 沙城捐献 = 1
SAVEVAR HUMAN 沙城捐献 ..\QuestDiary\数据文件\沙城捐献\捐献名单.txt
CONFERTITLE 跨区捐献
MOV G353 0
GetListString ..\..\..\..\数据文件\捐献\<$STR(A0)>\<$STR(A1)>1区.txt 0 N$奖励1
GetListString ..\..\..\..\数据文件\捐献\<$STR(A0)>\<$STR(A1)>2区.txt 0 N$奖励2
GetListString ..\..\..\..\数据文件\捐献\<$STR(A0)>\<$STR(A1)>3区.txt 0 N$奖励3
GetListString ..\..\..\..\数据文件\捐献\<$STR(A0)>\<$STR(A1)>4区.txt 0 N$奖励4
GetListString ..\..\..\..\数据文件\捐献\<$STR(A0)>\<$STR(A1)>5区.txt 0 N$奖励5
GetListString ..\..\..\..\数据文件\捐献\<$STR(A0)>\<$STR(A1)>6区.txt 0 N$奖励6
INC G353 <$STR(N$奖励1)>
INC G353 <$STR(N$奖励2)>
INC G353 <$STR(N$奖励3)>
INC G353 <$STR(N$奖励4)>
INC G353 <$STR(N$奖励5)>
INC G353 <$STR(N$奖励6)>
DIV G353 5
MUL G353 4
MOV G352 0
INC G352 <$STR(G347)> --狂暴
INC G352 <$STR(G353)> --沙捐
INC G352 <$STR(G354)> --保底
MOV A83 累计(<$STR(G106)>)元宝\沙城捐献
MOV A87 累计(<$STR(G352)>)元宝\沙城奖励
#CALL [\系统功能\爆率文件\普通爆率读取.txt] @普通爆率读取
MESSAGEBOX 感谢您的支持,所有玩家捐献均作为沙城奖励反馈给玩家！
GOTO @MAIN
break
[@分区显示]
#OR
EQUAL A6 1-2区
EQUAL A6 3-4区
#ACT
GetListString ..\..\..\..\数据文件\捐献\<$STR(A0)>\<$STR(A1)>1-2区.txt 0 N$奖励1
GetListString ..\..\..\..\数据文件\捐献\<$STR(A0)>\<$STR(A1)>3-4区.txt 0 N$奖励2
MOV S$分区显示A 1-2区
MOV S$分区显示B 3-4区
#OR
EQUAL A6 1-3区
EQUAL A6 4-6区
#ACT
GetListString ..\..\..\..\数据文件\捐献\<$STR(A0)>\<$STR(A1)>1-3区.txt 0 N$奖励1
GetListString ..\..\..\..\数据文件\捐献\<$STR(A0)>\<$STR(A1)>4-6区.txt 0 N$奖励2
MOV S$分区显示A 1-3区
MOV S$分区显示B 4-6区
#IF
#ACT
MOV N$奖励 0
INC N$奖励 <$STR(N$奖励1)>
INC N$奖励 <$STR(N$奖励2)>
#IF
#ACT
MOV N$奖励A <$STR(N$奖励)>
DIV N$奖励A 5
MUL N$奖励A 4
;---------------------
#IF
EQUAL <$HUMAN(沙城捐献)> 1
#ACT
MOV S$确认捐献 [已捐献]
#ELSEACT
MOV S$确认捐献 [未捐献]
#if
#Act
OPENMERCHANTBIGDLG 8 3740 1 0 0 0 1
#say
\
<> <【沙城VS捐献】/AUTOCOLOR=254,251,168,191,250,70,245,249,253> \
<><Hot~◆》/SCOLOR=215><沙城奖励： 第一次合区80%累积入奖励 此后的捐献100%累积入奖励/SCOLOR=253> {<$STR(S$确认捐献)>/SCOLOR=251}\
<><Hot~◆》/SCOLOR=215><你当前元宝数量/SCOLOR=70> <$GAMEGOLD><元宝/SCOLOR=70> <只需要50000元宝即可获得以下属性！/SCOLOR=254>\
<><Hot~◆》/SCOLOR=151><获得属性：/SCOLOR=253> <全属性加 5-5 增加1.1倍爆率 /SCOLOR=249>\ \
<><Hot~◆》/SCOLOR=215><今日/SCOLOR=254>{<$STR(S$分区显示A)>/SCOLOR=254} <已累积沙城奖励/SCOLOR=215> <[金额]:/SCOLOR=249> {<$str(N$奖励1)>元宝/FCOLOR=253}\ \
<><Hot~◆》/SCOLOR=215><今日/SCOLOR=254>{<$STR(S$分区显示B)>/SCOLOR=254} <已累积沙城奖励/SCOLOR=215> <[金额]:/SCOLOR=249> {<$str(N$奖励2)>元宝/FCOLOR=253}\ \ \
<><Hot~◆》今日新区共计捐献沙城奖池/SCOLOR=254> <[金额]:/SCOLOR=249> {<$str(N$奖励)>元宝/FCOLOR=253} \
<><Hot~◆》今日新区共计应发元宝奖励/SCOLOR=254> <[金额]:/SCOLOR=249> {<$str(N$奖励A)>元宝/FCOLOR=253} \
<> <沙城奖励：从“沙城奖励”处进入领奖地图，胜利方领取60% ，失败方领取40% 奖励包含指挥费> \
<> <第一次小合区保留捐献 第二次合区攻沙后每晚22点00清理沙捐 需要重新捐献才可获得属性> \
<> <你是否确认要捐献？[确认捐献元宝获取属性]/@捐献A> <关 闭/@EXIT>\
<>
[@捐献A]
#IF
EQUAL <$HUMAN(沙城捐献)> 1
#ACT
MESSAGEBOX 你已经捐献过无法继续捐献！
GOTO @MAIN
BREAK
#IF
CHECKGAMEGOLD < 50000
#ACT
MESSAGEBOX 对不起！您的元宝不足50000元宝，无法捐献
GOTO @MAIN
BREAK
#IF
CHECKGAMEGOLD > 49999
#ACT
GAMEGOLD - 50000
INC G106 50000
INC U1 50000
INC G339 50000
AddTextListEx ..\..\..\..\数据文件\捐献\<$STR(A0)>\<$STR(A1)><$STR(A6)>.txt <$str(G106)> 0
CALCVAR HUMAN 沙城捐献 = 1
SAVEVAR HUMAN 沙城捐献 ..\QuestDiary\数据文件\沙城捐献\捐献名单.txt
CONFERTITLE 跨区捐献
MOV G353 0
GetListString ..\..\..\..\数据文件\捐献\<$STR(A0)>\<$STR(A1)><$STR(S$分区显示A)>.txt 0 N$奖励1
GetListString ..\..\..\..\数据文件\捐献\<$STR(A0)>\<$STR(A1)><$STR(S$分区显示B)>.txt 0 N$奖励2
INC G353 <$STR(N$奖励1)>
INC G353 <$STR(N$奖励2)>
DIV G353 5
MUL G353 4
MOV G352 0
INC G352 <$STR(G347)>
INC G352 <$STR(G353)>
INC G352 <$STR(G354)>
MOV A83 累计(<$STR(G106)>)元宝\沙城捐献
MOV A87 累计(<$STR(G352)>)元宝\沙城奖励
MESSAGEBOX 感谢您的支持,所有玩家捐献均作为沙城奖励反馈给玩家！
GOTO @MAIN
break
[@合区显示]
#IF
#ACT
GetListString ..\..\..\..\数据文件\捐献\<$STR(A0)>\<$STR(A1)>战区.txt 0 G106
mov N$奖励 <$STR(G106)>
#IF
EQUAL G1 2
#ACT
DIV N$奖励 5
MUL N$奖励 4
#IF
EQUAL <$HUMAN(沙城捐献)> 1
#ACT
MOV S$确认捐献 [已捐献]
#ELSEACT
MOV S$确认捐献 [未捐献]
#if
#Act
OPENMERCHANTBIGDLG 8 3740 1 0 0 0 1
#say
\
<> <【沙城VS捐献】/AUTOCOLOR=254,251,168,191,250,70,245,249,253> \
<><Hot~◆》/SCOLOR=215><沙城奖励： 第一次合区80%累积入奖励 此后的捐献100%累积入奖励/SCOLOR=253> {<$STR(S$确认捐献)>/SCOLOR=251}\
<><Hot~◆》/SCOLOR=215><你当前元宝数量/SCOLOR=70> <$GAMEGOLD><元宝/SCOLOR=70> <只需要50000元宝即可获得以下属性！/SCOLOR=254>\
<><Hot~◆》/SCOLOR=151><获得属性：/SCOLOR=253> <全属性加 5-5 增加1.1倍爆率 /SCOLOR=249>\ \ \
<><Hot~◆》/SCOLOR=215>{今日<$STR(A1)>战区/SCOLOR=254} <已累积沙城奖励/SCOLOR=215> <[金额]:/SCOLOR=249> {<$str(G106)>元宝/FCOLOR=253}\ \ \
<><Hot~◆》今日新区共计捐献沙城奖池/SCOLOR=254> <[金额]:/SCOLOR=249> {<$str(N$奖励)>元宝/FCOLOR=253} \ \
;<><Hot~◆》今日新区共计应发元宝奖励/SCOLOR=254> <[金额]:/SCOLOR=249> {<$str(N$奖励99)>元宝/FCOLOR=253} \
<> <沙城奖励：从“沙城奖励”处进入领奖地图，胜利方领取60% ，失败方领取40% 奖励包含指挥费> \
<> <第一次小合区保留捐献 第二次合区攻沙后每晚22点00清理沙捐 需要重新捐献才可获得属性> \
<> <你是否确认要捐献？[确认捐献元宝获取属性]/@捐献B> \
<> <关 闭/@EXIT>
[@捐献B]
#IF
EQUAL <$HUMAN(沙城捐献)> 1
#ACT
MESSAGEBOX 你已经捐献过无法继续捐献！
GOTO @MAIN
BREAK
#IF
CHECKGAMEGOLD < 50000
#ACT
MESSAGEBOX 对不起！您的元宝不足50000元宝，无法捐献
GOTO @MAIN
BREAK
#IF
EQUAL G15 2
CHECKGAMEGOLD > 49999
#ACT
GAMEGOLD - 50000
INC G106 50000
INC U1 50000
INC G339 50000
AddTextListEx ..\..\..\..\数据文件\捐献\<$STR(A0)>\<$STR(A1)>战区.txt <$str(G106)> 0
CALCVAR HUMAN 沙城捐献 = 1
SAVEVAR HUMAN 沙城捐献 ..\QuestDiary\数据文件\沙城捐献\捐献名单.txt
CONFERTITLE 跨区捐献
MOV G352 0
MOV G353 <$STR(G106)>
DIV G353 5
MUL G353 4
INC G352 <$STR(G347)>
INC G352 <$STR(G353)>
INC G352 <$STR(G354)>
MOV A87 累计(<$STR(G352)>)元宝\沙城奖励
MOV A83 累计(<$STR(G106)>)元宝\沙城捐献
MESSAGEBOX 感谢您的支持,所有玩家捐献均作为沙城奖励反馈给玩家！
GOTO @MAIN
break
#IF
LARGE G15 2
CHECKGAMEGOLD > 49999
#ACT
GAMEGOLD - 50000
INC G106 50000
INC U1 50000
INC G339 50000
AddTextListEx ..\..\..\..\数据文件\捐献\<$STR(A0)>\<$STR(A1)>战区.txt <$str(G106)> 0
CALCVAR HUMAN 沙城捐献 = 1
SAVEVAR HUMAN 沙城捐献 ..\QuestDiary\数据文件\沙城捐献\捐献名单.txt
CONFERTITLE 跨区捐献
MOV G352 0
MOV G353 <$STR(G106)>
INC G352 <$STR(G347)>
INC G352 <$STR(G353)>
INC G352 <$STR(G354)>
MOV A87 累计(<$STR(G352)>)元宝\沙城奖励
MOV A83 累计(<$STR(G106)>)元宝\沙城捐献
MESSAGEBOX 感谢您的支持,所有玩家捐献均作为沙城奖励反馈给玩家！
GOTO @MAIN
break
