[@main]
; #IF
; equal A0
; #ACT
; goto @初始化区服
#IF
#ACT
GetListString ..\..\..\..\通区捐献\<$STR(A0)>\今日01区.txt 0 N$01区
GetListString ..\..\..\..\通区捐献\<$STR(A0)>\今日02区.txt 0 N$02区
GetListString ..\..\..\..\通区捐献\<$STR(A0)>\今日03区.txt 0 N$03区
GetListString ..\..\..\..\通区捐献\<$STR(A0)>\今日04区.txt 0 N$04区
#IF
#ACT
OPENMERCHANTBIGDLG 10 31 0 0 0 0 0
#IF
#ACT
MOV N$总计金额 0
INC N$总计金额 <$STR(N$01区)>
INC N$总计金额 <$STR(N$02区)>
INC N$总计金额 <$STR(N$03区)>
INC N$总计金额 <$STR(N$04区)>
MOV S$01区显示 <$STR(N$01区)>
MOV S$02区显示 <$STR(N$02区)>
MOV S$03区显示 <$STR(N$03区)>
MOV S$04区显示 <$STR(N$04区)>
MOV S$总计1显示 <$STR(N$总计金额)>
MOV N$总计发放 <$STR(N$总计金额)>
DIV N$总计发放 1
MOV S$总计显示 <$STR(N$总计发放)>
#IF
#ACT
MOV N$胜利分配 <$STR(N$总计发放)>
DIV N$胜利分配 10
MUL N$胜利分配 8
MOV S$胜利分配显示 <$STR(N$胜利分配)>
MOV <$STR(G205)> <$STR(N$胜利分配)>
#IF
#say
<ImgEx:7:233:233:234:566:-16/@EXIT>
<【沙城VS捐献】/AUTOCOLOR=254,251,168,191,250,70,245,249,253> \
<Hot~◆》/SCOLOR=215><沙城奖池系统 [强力属性]每人限领一次!首次拿沙结束后可再次激活/SCOLOR=253>\
<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><今日一区/FCOLOR=254> <已经累计沙城奖励/SCOLOR=215> <[金额]:/SCOLOR=249> {<$STR(S$01区显示)>元宝/FCOLOR=253}\
<Hot~◆》/SCOLOR=215><今日二区/FCOLOR=254> <已经累计沙城奖励/SCOLOR=215> <[金额]:/SCOLOR=249> {<$STR(S$02区显示)>元宝/FCOLOR=253}\
<Hot~◆》/SCOLOR=215><今日三区/FCOLOR=254> <已经累计沙城奖励/SCOLOR=215> <[金额]:/SCOLOR=249> {<$STR(S$03区显示)>元宝/FCOLOR=253}\
<Hot~◆》/SCOLOR=215><今日四区/FCOLOR=254> <已经累计沙城奖励/SCOLOR=215> <[金额]:/SCOLOR=249> {<$STR(S$04区显示)>元宝/FCOLOR=253}\
<Hot~◆》/SCOLOR=215><今日新区共计捐献沙城奖池/FCOLOR=254> <[金额]:/FCOLOR=249> {<$STR(S$总计显示)>/SCOLOR=253}<元宝/SCOLOR=253>\
<Hot~◆》/SCOLOR=215><今日新区共计应发元宝奖励/FCOLOR=254> <[金额]:/FCOLOR=249> {<$STR(S$胜利分配显示)>/SCOLOR=253}<元宝/SCOLOR=253>\
<沙巴克胜利方奖励从 攻沙RMB奖励 处进入领取,失败方无奖励,失败方无奖励,失败方无奖励/SCOLOR=58> \ \
<你是否确认要捐献?[确认捐献元宝获取属性]/@开始捐献> <离 开/@EXIT>\
[@初始化区服]
#IF
#ACT
MOV A0 <$SERVERNAME>
sendmsg 6 -----<$STR(A0)>
#IF
CheckContainsText <$SERVERNAME> 01区
#ACT
DEC A0 01区
CLEARNAMELIST ..\..\..\..\通区捐献\<$STR(A0)>\今日01区.txt
#IF
CheckContainsText <$SERVERNAME> 02区
#ACT
DEC A0 02区
CLEARNAMELIST ..\..\..\..\通区捐献\<$STR(A0)>\今日02区.txt
#IF
CheckContainsText <$SERVERNAME> 03区
#ACT
DEC A0 03区
CLEARNAMELIST ..\..\..\..\通区捐献\<$STR(A0)>\今日03区.txt
#IF
CheckContainsText <$SERVERNAME> 04区
#ACT
DEC A0 04区
CLEARNAMELIST ..\..\..\..\通区捐献\<$STR(A0)>\今日04区.txt
#if
#act
ForceDirectories ..\..\..\..\通区捐献\<$STR(A0)>\
CREATEFILE ..\..\..\..\通区捐献\<$STR(A0)>\今日01区.txt
CREATEFILE ..\..\..\..\通区捐献\<$STR(A0)>\今日02区.txt
CREATEFILE ..\..\..\..\通区捐献\<$STR(A0)>\今日03区.txt
CREATEFILE ..\..\..\..\通区捐献\<$STR(A0)>\今日04区.txt
BREAK
[@开始捐献]
#IF
EQUAL G10 1
#ACT
MESSAGEBOX \\\\ 当前测试区无法捐献!请正式区再来一次!
BREAK
#IF
checknamelist ..\QuestDiary\沙城捐献\捐献数据.txt
#ACT
MESSAGEBOX \\\\ 您已经捐献过了!
break
#IF
CHECKGAMEGOLD > 49999
#ACT
gamegold - 50000
addnamelist ..\QuestDiary\沙城捐献\捐献数据.txt
GOTO @写入
#CALL [\系统功能\属性奖励.txt] @属性奖励1
#CALL [\系统功能\封号登陆.txt] @登陆封号1
SENDMOVEMSG 0 253 255 100 1 (*)恭喜玩家【{%s/FCOLOR=251}】,完成沙城捐献获得【{全属性增加5-5/FCOLOR=251}】永久属性奖励【{爆率提升110%/FCOLOR=251}】,[当天]沙城池总累计奖金!{<$STR(S$总计显示)>/SCOLOR=254}元宝!
#ELSEACT
MESSAGEBOX \\捐献失败:\\你没有50000元宝!\\请在土城NPC【元宝充值使者】购买元宝
break
[@写入]
#IF
Equal G10 0
#ACT
goto @写入888
BREAK
[@写入888]
#IF
CheckContainsText <$SERVERNAME> 01区
#ACT
MOV S$区名 今日01区
#IF
CheckContainsText <$SERVERNAME> 02区
#ACT
MOV S$区名 今日02区
#IF
CheckContainsText <$SERVERNAME> 03区
#ACT
MOV S$区名 今日03区
#IF
CheckContainsText <$SERVERNAME> 04区
#ACT
MOV S$区名 今日04区
#IF
equal S$区名 今日01区
#ACT
INC N$01区 50000
AddTextListEx ..\..\..\..\通区捐献\<$STR(A0)>\<$STR(S$区名)>.txt N$01区 0
GOTO @MAIN
BREAK
#IF
equal S$区名 今日02区
#ACT
INC N$02区 50000
AddTextListEx ..\..\..\..\通区捐献\<$STR(A0)>\<$STR(S$区名)>.txt N$02区 0
GOTO @MAIN
BREAK
#IF
equal S$区名 今日03区
#ACT
INC N$03区 50000
AddTextListEx ..\..\..\..\通区捐献\<$STR(A0)>\<$STR(S$区名)>.txt N$03区 0
GOTO @MAIN
BREAK
#IF
equal S$区名 今日04区
#ACT
INC N$04区 50000
AddTextListEx ..\..\..\..\通区捐献\<$STR(A0)>\<$STR(S$区名)>.txt N$04区 0
GOTO @MAIN
BREAK