[@沙城捐献NPC]
{
#IF
TRUE
#act
ClearVar S1 99
SortVar 沙城捐献 ..\QuestDiary\PY27脚本\PY27.COM沙城捐献\捐献数量.txt 1 ..\QuestDiary\PY27脚本\PY27.COM沙城捐献\捐献排行.txt
GetListString ..\QuestDiary\PY27脚本\PY27.COM沙城捐献\捐献排行.txt 5 S1
split $STR(S1)) | S10
split $STR(S2)) | S12
split $STR(S3)) | S14
split $STR(S4)) | S16
split $STR(S5)) | S18
CALCVAR GLOBAL 捐献第1 = <$STR(S10)>
CALCVAR GLOBAL 捐献第2 = <$STR(S12)>
CALCVAR GLOBAL 捐献第3 = <$STR(S14)>
CALCVAR GLOBAL 捐献第4 = <$STR(S16)>
CALCVAR GLOBAL 捐献第5 = <$STR(S18)>
FillText S10 18
FillText S12 18
FillText S14 18
FillText S16 18
FillText S18 18
MOV S1 <COLOR=$00FF8877
INC S1
INC S1 <$STR(S10)>>
MOV S10 <$STR(S1)>
MOV S1 <COLOR=$00FF8877
INC S1
INC S1 <$STR(S12)>>
MOV S12 <$STR(S1)>
MOV S1 <COLOR=$00FF8877
INC S1
INC S1 <$STR(S14)>>
MOV S14 <$STR(S1)>
MOV S1 <COLOR=$00FF8877
INC S1
INC S1 <$STR(S16)>>
MOV S16 <$STR(S1)>
MOV S1 <COLOR=$00FF8877
INC S1
INC S1 <$STR(S18)>>
MOV S18 <$STR(S1)>
FillText S11 10
FillText S13 10
FillText S15 10
FillText S17 10
FillText S19 10
LOADVAR GLOBAL 1区额度 ........\$(D盘目录)\通区捐献<$STR($(开区日期))>\捐献变量.txt
LOADVAR GLOBAL 2区额度 ........\$(D盘目录)\通区捐献<$STR($(开区日期))>\捐献变量.txt
LOADVAR GLOBAL 3区额度 ........\$(D盘目录)\通区捐献<$STR($(开区日期))>\捐献变量.txt
LOADVAR GLOBAL 4区额度 ........\$(D盘目录)\通区捐献<$STR($(开区日期))>\捐献变量.txt
LOADVAR GLOBAL 5区额度 ........\$(D盘目录)\通区捐献<$STR($(开区日期))>\捐献变量.txt
LOADVAR GLOBAL 6区额度 ........\$(D盘目录)\通区捐献<$STR($(开区日期))>\捐献变量.txt
LOADVAR GLOBAL 7区额度 ........\$(D盘目录)\通区捐献<$STR($(开区日期))>\捐献变量.txt
LOADVAR GLOBAL 8区额度 ........\$(D盘目录)\通区捐献<$STR($(开区日期))>\捐献变量.txt
LOADVAR GLOBAL 1区名 ........\$(D盘目录)\通区捐献<$STR($(开区日期))>\捐献变量.txt
LOADVAR GLOBAL 2区名 ........\$(D盘目录)\通区捐献<$STR($(开区日期))>\捐献变量.txt
LOADVAR GLOBAL 3区名 ........\$(D盘目录)\通区捐献<$STR($(开区日期))>\捐献变量.txt
LOADVAR GLOBAL 4区名 ........\$(D盘目录)\通区捐献<$STR($(开区日期))>\捐献变量.txt
LOADVAR GLOBAL 5区名 ........\$(D盘目录)\通区捐献<$STR($(开区日期))>\捐献变量.txt
LOADVAR GLOBAL 6区名 ........\$(D盘目录)\通区捐献<$STR($(开区日期))>\捐献变量.txt
LOADVAR GLOBAL 7区名 ........\$(D盘目录)\通区捐献<$STR($(开区日期))>\捐献变量.txt
LOADVAR GLOBAL 8区名 ........\$(D盘目录)\通区捐献<$STR($(开区日期))>\捐献变量.txt
LOADVAR GLOBAL 老区 ........\$(D盘目录)\通区捐献<$STR($(开区日期))>\捐献变量.txt
LOADVAR GLOBAL 老区名 ........\$(D盘目录)\通区捐献<$STR($(开区日期))>\捐献变量.txt
MOV S$显示
MOV S6 <$GLOBAL(总奖金)>$(货币名)
MOV S7 <$GLOBAL(胜利方)>$(货币名)
MOV S8 <$GLOBAL(失败方)>$(货币名)
FillText S6 17
FillText S7 17
FillText S8 17
MOV S1 <COLOR=clYellow
INC S1
INC S1 <$STR(S6)>>
MOV S6 <$STR(S1)>
MOV S1 <COLOR=clYellow
INC S1
INC S1 <$STR(S7)>>
MOV S7 <$STR(S1)>
MOV S1 <COLOR=clYellow
INC S1
INC S1 <$STR(S8)>>
MOV S8 <$STR(S1)>
MOV S80 <$GOLDCOUNT>
split $STR(S80)) / S81
FillText S81 28
MOV S1 <COLOR=$0000DE00
INC S1
INC S1 <$STR(S81)>>
MOV S81 <$STR(S1)>
;显示分区捐献信息
#IF
!EQUAL $(1区名)
POS <$GLOBAL(1区名)> $(1区名)
#ACT
MOV S1 <$GLOBAL(1区名)>
MOV S2 <$GLOBAL(1区额度)>
FillText S1 32
FillText S2 14
MOV S3 <COLOR=clYellow
INC S3
INC S3 <$STR(S1)>>
MOV S4 <COLOR=clYellow
INC S4
INC S4 <$STR(S2)>>
INC S$显示 <> ║[捐献分区]: <$STR(S3)>[累计沙捐]:<$STR(S4)>$(货币名)║\
#IF
!EQUAL $(2区名)
POS <$GLOBAL(2区名)> $(2区名)
#ACT
MOV S1 <$GLOBAL(2区名)>
MOV S2 <$GLOBAL(2区额度)>
FillText S1 32
FillText S2 14
MOV S3 <COLOR=clYellow
INC S3
INC S3 <$STR(S1)>>
MOV S4 <COLOR=clYellow
INC S4
INC S4 <$STR(S2)>>
INC S$显示 <> ║[捐献分区]: <$STR(S3)>[累计沙捐]:<$STR(S4)>$(货币名)║\
#IF
!EQUAL $(3区名)
POS <$GLOBAL(3区名)> $(3区名)
#ACT
MOV S1 <$GLOBAL(3区名)>
MOV S2 <$GLOBAL(3区额度)>
FillText S1 32
FillText S2 14
MOV S3 <COLOR=clYellow
INC S3
INC S3 <$STR(S1)>>
MOV S4 <COLOR=clYellow
INC S4
INC S4 <$STR(S2)>>
INC S$显示 <> ║[捐献分区]: <$STR(S3)>[累计沙捐]:<$STR(S4)>$(货币名)║\
#IF
!EQUAL $(4区名)
POS <$GLOBAL(4区名)> $(4区名)
#ACT
MOV S1 <$GLOBAL(4区名)>
MOV S2 <$GLOBAL(4区额度)>
FillText S1 32
FillText S2 14
MOV S3 <COLOR=clYellow
INC S3
INC S3 <$STR(S1)>>
MOV S4 <COLOR=clYellow
INC S4
INC S4 <$STR(S2)>>
INC S$显示 <> ║[捐献分区]: <$STR(S3)>[累计沙捐]:<$STR(S4)>$(货币名)║\
#IF
!EQUAL $(5区名)
POS <$GLOBAL(5区名)> $(5区名)
#ACT
MOV S1 <$GLOBAL(5区名)>
MOV S2 <$GLOBAL(5区额度)>
FillText S1 32
FillText S2 14
MOV S3 <COLOR=clYellow
INC S3
INC S3 <$STR(S1)>>
MOV S4 <COLOR=clYellow
INC S4
INC S4 <$STR(S2)>>
INC S$显示 <> ║[捐献分区]: <$STR(S3)>[累计沙捐]:<$STR(S4)>$(货币名)║\
#IF
!EQUAL $(6区名)
POS <$GLOBAL(6区名)> $(6区名)
#ACT
MOV S1 <$GLOBAL(6区名)>
MOV S2 <$GLOBAL(6区额度)>
FillText S1 32
FillText S2 14
MOV S3 <COLOR=clYellow
INC S3
INC S3 <$STR(S1)>>
MOV S4 <COLOR=clYellow
INC S4
INC S4 <$STR(S2)>>
INC S$显示 <> ║[捐献分区]: <$STR(S3)>[累计沙捐]:<$STR(S4)>$(货币名)║\
#IF
!EQUAL $(7区名)
POS <$GLOBAL(7区名)> $(7区名)
#ACT
MOV S1 <$GLOBAL(7区名)>
MOV S2 <$GLOBAL(7区额度)>
FillText S1 32
FillText S2 14
MOV S3 <COLOR=clYellow
INC S3
INC S3 <$STR(S1)>>
MOV S4 <COLOR=clYellow
INC S4
INC S4 <$STR(S2)>>
INC S$显示 <> ║[捐献分区]: <$STR(S3)>[累计沙捐]:<$STR(S4)>$(货币名)║\
#IF
!EQUAL $(8区名)
POS <$GLOBAL(8区名)> $(8区名)
#ACT
MOV S1 <$GLOBAL(8区名)>
MOV S2 <$GLOBAL(8区额度)>
FillText S1 32
FillText S2 14
MOV S3 <COLOR=clYellow
INC S3
INC S3 <$STR(S1)>>
MOV S4 <COLOR=clYellow
INC S4
INC S4 <$STR(S2)>>
INC S$显示 <> ║[捐献分区]: <$STR(S3)>[累计沙捐]:<$STR(S4)>$(货币名)║\
#IF
!POS <$SERVERNAME> $(1区名)
!POS <$SERVERNAME> $(2区名)
!POS <$SERVERNAME> $(3区名)
!POS <$SERVERNAME> $(4区名)
!POS <$SERVERNAME> $(5区名)
!POS <$SERVERNAME> $(6区名)
!POS <$SERVERNAME> $(7区名)
!POS <$SERVERNAME> $(8区名)
#ACT
MOV S1 <$GLOBAL(老区名)>
MOV S2 <$GLOBAL(老区)>
FillText S1 32
FillText S2 14
MOV S3 <COLOR=clYellow
INC S3
INC S3 <$STR(S1)>>
MOV S4 <COLOR=clYellow
INC S4
INC S4 <$STR(S2)>>
INC S$显示 <> ║[捐献分区]: <$STR(S3)>[累计沙捐]:<$STR(S4)>$(货币名)║\
#IF
#SAY
\ \
<> ╔═════════════════════════════════════╗\
<> ║<COLOR=$003131FF [捐献说明]: ><COLOR=$00D67B6B 公益捐献的><COLOR=clLime $(奖励百分比)%><COLOR=$00D67B6B 金额都会作为沙巴
克奖励发放!> <[我要沙城捐献]/@开始捐献> ║\
<> ╠═════════════════════════════════════╣\
<> ║<COLOR=$003131FF [捐献额度]:> <COLOR=$00009400 捐献所需费用$(捐款额度)$(货币名)，您拥有金币:><$STR(S81)> ║\
<> ╠═════════════════════════════════════╣\
<$STR(S$显示)>
<> ╠═════════════════════════════════════╣\
<> ║<COLOR=$003131FF [当前捐献]: > <COLOR=$0000DE00 目前奖池 总金额为：> <$STR(S6)> ║\
<> ║<COLOR=$003131FF [奖池说明]: ><COLOR=clRed 【胜方$(胜利方获取)% 】:> <$STR(S7)> <COLOR=clRed 【失方获取】:><$STR(S8)>║\
<> ╠═════════════════════════════════════╣\
<> ║<COLOR=clYellow 捐献收益：专属地图，打怪切割(几率切怪-3%血量)，双攻魔道+20> ║\
<> ║<COLOR=$003131FF 捐献说明：每人仅限捐献1次，当日总额扣除30%后加入新区沙奖池> ║\
<> ║<COLOR=$003131FF [奖金发放]: > <COLOR=$00FFF8 【GM领取】> <◆九层沙捐福利塔◆捐献后可进入◆/@捐献图> ║
\
<> ╚═════════════════════════════════════╝\
<> <COLOR=clGray [捐献排名]> <COLOR=$004AA5EF [玩家名称]> <COLOR=clGray [捐献数量]> <COLOR=
$004AA5EF [属性加成]>\
<> <COLOR=clAqua N0.1> <$STR(S10)> <$STR(S11)> <点击查看第一名属性加成/@1> \
<> <COLOR=clAqua N0.2> <$STR(S12)> <$STR(S13)> <点击查看第二名属性加成/@2> \
<> <COLOR=clAqua N0.3> <$STR(S14)> <$STR(S15)> <点击查看第三名属性加成/@3> \
<> <COLOR=clAqua N0.4> <$STR(S16)> <$STR(S17)> <点击查看第四名属性加成/@4> \
<> <COLOR=clAqua N0.5> <$STR(S18)> <$STR(S19)> <点击查看第五名属性加成/@5> \
<> <COLOR=clFuchsia 沙巴克:><$OWNERGUILD>
[@1]
#act
MESSAGEBOX 第一名：属性如下，请自行设置！
[@2]
#act
MESSAGEBOX 第二名：属性如下，请自行设置！
[@3]
#act
MESSAGEBOX 第三名：属性如下，请自行设置！
[@4]
#act
MESSAGEBOX 第四名：属性如下，请自行设置！
[@5]
#act
MESSAGEBOX 第五名：属性如下，请自行设置！
;如需要清空，，自己添加链接 触发这段话即可清空
[@清空全部捐献]
#act
QUERYVALUE 2 2 10 @确认清空 您确定要清空<$STR($(开区日期))>的所有沙捐记录吗？？ NPC
[@确认清空]
#IF
IsAdmin
#act
CALCVAR GLOBAL 总奖金 = 0
CALCVAR GLOBAL 胜利方 = 0
CALCVAR GLOBAL 失败方 = 0
CALCVAR GLOBAL 1区额度 = 0
CALCVAR GLOBAL 2区额度 = 0
CALCVAR GLOBAL 3区额度 = 0
CALCVAR GLOBAL 4区额度 = 0
CALCVAR GLOBAL 5区额度 = 0
CALCVAR GLOBAL 6区额度 = 0
CALCVAR GLOBAL 7区额度 = 0
CALCVAR GLOBAL 8区额度 = 0
CALCVAR GLOBAL 老区 = 0
SAVEVAR GLOBAL 老区 ........\$(D盘目录)\通区捐献<$STR($(开区日期))>\捐献变量.txt
SAVEVAR GLOBAL 1区额度 ........\$(D盘目录)\通区捐献<$STR($(开区日期))>\捐献变量.txt
SAVEVAR GLOBAL 2区额度 ........\$(D盘目录)\通区捐献<$STR($(开区日期))>\捐献变量.txt
SAVEVAR GLOBAL 3区额度 ........\$(D盘目录)\通区捐献<$STR($(开区日期))>\捐献变量.txt
SAVEVAR GLOBAL 4区额度 ........\$(D盘目录)\通区捐献<$STR($(开区日期))>\捐献变量.txt
SAVEVAR GLOBAL 5区额度 ........\$(D盘目录)\通区捐献<$STR($(开区日期))>\捐献变量.txt
SAVEVAR GLOBAL 6区额度 ........\$(D盘目录)\通区捐献<$STR($(开区日期))>\捐献变量.txt
SAVEVAR GLOBAL 7区额度 ........\$(D盘目录)\通区捐献<$STR($(开区日期))>\捐献变量.txt
SAVEVAR GLOBAL 8区额度 ........\$(D盘目录)\通区捐献<$STR($(开区日期))>\捐献变量.txt
CLEARNAMELIST ..\QuestDiary\PY27脚本\PY27.COM沙城捐献\沙城捐献名单.txt
CLEARNAMELIST ..\QuestDiary\PY27脚本\PY27.COM沙城捐献\捐献数量.txt
GMEXECUTE 开始提问 @清空全部捐献
;如需要清空，，自己添加链接 触发这段话即可清空
;传送地图 根据自己F需要设置！ 以上仅供参考！
[@捐献图]
;#IF
;CheckStringList ..\QuestDiary\抽取数据\开区模式.txt 老区
;#ACT
;MESSAGEBOX 提示：本地图仅在新区开放。
;BREAK
#IF
;CheckStringList ..\QuestDiary\抽取数据\开区模式.txt 测试
#ACT
MAPMOVE SCDT 77 25
SENDMSG 0 ★玩家[%s]进入楼兰古墓(捐献专属)，撸死小怪兽、秒变高富帅、就问还有谁？！！ 173 251
;BREAK
;传送地图 根据自己F需要设置！ 以上仅供参考！
[@开始捐献]
;老区 新区模式判断 仅供参考！具体根据自己F做限制
;#if
;CheckStringList ..\QuestDiary\抽取数据\开区模式.txt 老区
;#act
;messagebox 提示：沙城捐献老区不开放
;BREAK
;老区 新区模式判断 仅供参考！具体根据自己F做限制
#IF
#ACT
MOV S$区名 老区
#IF
POS <$SERVERNAME> $(1区名)
#ACT
MOV S$区名 1区额度
#IF
POS <$SERVERNAME> $(2区名)
#ACT
MOV S$区名 2区额度
#IF
POS <$SERVERNAME> $(3区名)
#ACT
MOV S$区名 3区额度
#IF
POS <$SERVERNAME> $(4区名)
#ACT
MOV S$区名 4区额度
#IF
POS <$SERVERNAME> $(5区名)
#ACT
MOV S$区名 5区额度
#IF
POS <$SERVERNAME> $(6区名)
#ACT
MOV S$区名 6区额度
#IF
POS <$SERVERNAME> $(7区名)
#ACT
MOV S$区名 7区额度
#IF
POS <$SERVERNAME> $(8区名)
#ACT
MOV S$区名 8区额度
#IF
CHECKNAMELIST ..\QuestDiary\PY27脚本\PY27.COM沙城捐献\沙城捐献名单.txt
#act
QUERYVALUE 2 2 10 @确认捐献3 您已经捐献过了，是否还要再次捐献？ NPC
break
#ELSEACT
goto @确认捐献3
break
[@确认捐献3]
#IF
!CHECK$(货币) $(捐款额度)
#ACT
MESSAGEBOX 当前$(货币名)不足$(捐款额度)
break
#IF
CHECK$(货币) $(捐款额度)
#ACT
Take 金币 $(捐款额度)
CALCVAR GLOBAL <$STR(S$区名)> + $(捐款额度)
SAVEVAR GLOBAL <$STR(S$区名)> ........\$(D盘目录)\通区捐献<$STR($(开区日期))>\捐献变量.txt
CALCVAR HUMAN 沙城捐献 + $(捐款额度)
SAVEVAR HUMAN 沙城捐献 ..\QuestDiary\PY27脚本\PY27.COM沙城捐献\捐献数量.txt
ADDNAMELIST ..\QuestDiary\PY27脚本\PY27.COM沙城捐献\沙城捐献名单.txt
SENDMSG 0 [<$SERVERNAME>]玩家<$USERNAME>]成功捐献[沙城奖池][$(捐款额度)$(货币名)]|
SENDMSG 0 ぐ公益沙奖捐献：【%s】为公益沙奖池捐助了【$(捐款额度)】元，获得强力属性以及专属地图 151 249
SENDMSG 0 ぐ公益沙奖捐献：【%s】为公益沙奖池捐助了【$(捐款额度)】元，获得强力属性以及专属地图 151 249
GOTO @main
MESSAGEBOX 提示：\ \捐献成功！
break
[@捐献常量加载]
#CALL [\PY27脚本\PY27.COM沙城捐献\捐献常量.INI] @91gob捐献常量
}
[@沙城捐献RM]
{
[@沙城捐献统计]
#IF
#ACT
MOV S$区名 老区
#IF
POS <$SERVERNAME> $(1区名)
#ACT
MOV S$区名 1区额度
#IF
POS <$SERVERNAME> $(2区名)
#ACT
MOV S$区名 2区额度
#IF
POS <$SERVERNAME> $(3区名)
#ACT
MOV S$区名 3区额度
#IF
POS <$SERVERNAME> $(4区名)
#ACT
MOV S$区名 4区额度
#IF
POS <$SERVERNAME> $(5区名)
#ACT
MOV S$区名 5区额度
#IF
POS <$SERVERNAME> $(6区名)
#ACT
MOV S$区名 6区额度
#IF
POS <$SERVERNAME> $(7区名)
#ACT
MOV S$区名 7区额度
#IF
POS <$SERVERNAME> $(8区名)
#ACT
MOV S$区名 8区额度
#IF
LARGE $(其他捐献收入) 100
#act
CALCVAR GLOBAL <$STR(S$区名)> + <$STR($(其他捐献收入))>
SAVEVAR GLOBAL <$STR(S$区名)> ........\$(D盘目录)\通区捐献<$STR($(开区日期))>\捐献变量.txt
MOV $(其他捐献收入) 0
#IF
#act
MOV P9 <$GLOBAL(老区)>
INC P9 <$GLOBAL(1区额度)>
INC P9 <$GLOBAL(2区额度)>
INC P9 <$GLOBAL(3区额度)>
INC P9 <$GLOBAL(4区额度)>
INC P9 <$GLOBAL(5区额度)>
INC P9 <$GLOBAL(6区额度)>
INC P9 <$GLOBAL(7区额度)>
INC P9 <$GLOBAL(8区额度)>
MUL P9 $(奖励百分比)
Div P9 100
CALCVAR GLOBAL 总奖金 = <$STR(P9)>
MOV P10 <$STR(P9)>
MUL P10 $(胜利方获取)
Div P10 100
CALCVAR GLOBAL 胜利方 = <$STR(P10)>
DEC P9 <$STR(P10)>
CALCVAR GLOBAL 失败方 = <$STR(P9)>
[@捐献常量加载]
#CALL [\PY27脚本\PY27.COM沙城捐献\捐献常量.INI] @91gob捐献常量
}
[@行会QM]
{
#IF
TRUE
#ACT
VAR Integer HUMAN 沙城捐献
LOADVAR HUMAN 沙城捐献 ..\QuestDiary\PY27脚本\PY27.COM沙城捐献\捐献数量.txt
#IF
CHECKNAMELIST ..\QuestDiary\PY27脚本\PY27.COM沙城捐献\沙城捐献名单.txt
#act
;检测捐献玩家给与设置。用名单文本。方便手动清空玩家捐献资格
#IF
CHECKVAR GLOBAL 捐献第1 = <$USERNAME>
#ACT
CUT 25 -10 3600
H.CUT 25 -10 3600
SENDMSG 5 【公益沙捐第一名】恭喜你：触发概率25%，切割伤害10%HP，持续时间3600秒
break
#IF
CHECKVAR GLOBAL 捐献第2 = <$USERNAME>
#ACT
CUT 15 -10 3600
H.CUT 15 -10 3600
SENDMSG 5 【公益沙捐第二名】恭喜你：触发概率15%，切割伤害8%HP，持续时间3600秒
break
#IF
CHECKVAR GLOBAL 捐献第3 = <$USERNAME>
#ACT
CUT 10 -10 3600
H.CUT 10 -10 3600
SENDMSG 5 【公益沙捐第三名】恭喜你：触发概率10%，切割伤害7%HP，持续时间3600秒
break
#IF
CHECKVAR GLOBAL 捐献第4 = <$USERNAME>
#ACT
CUT 5 -10 3600
H.CUT 5 -10 3600
SENDMSG 5 【公益沙捐第四名】恭喜你：触发概率5%，切割伤害6%HP，持续时间3600秒
break
#IF
CHECKVAR GLOBAL 捐献第5 = <$USERNAME>
#ACT
CUT 3 -10 3600
H.CUT 3 -10 3600
SENDMSG 5 【公益沙捐第五名】恭喜你：触发概率3%，切割伤害5%HP，持续时间3600秒
break
[@清空全部捐献]
#ACT
LOADVAR HUMAN 沙城捐献 ..\QuestDiary\PY27脚本\PY27.COM沙城捐献\捐献数量.txt
[@捐献常量加载]
#CALL [\PY27脚本\PY27.COM沙城捐献\捐献常量.INI] @91gob捐献常量
}
[@行会ST]
{
#IF
EQUAL $(开区日期)
#ACT
MOV $(开区日期) <$YEAR><$MONTH><$DAY>
MKDIR ........\$(D盘目录)\
MKDIR ........\$(D盘目录)\通区捐献\
MKDIR ........\$(D盘目录)\通区捐献<$STR($(开区日期))>\
CreateFile ........\$(D盘目录)\通区捐献<$STR($(开区日期))>\捐献变量.txt
#IF
SMALL I0 1
#ACT
VAR String GLOBAL 捐献第1
VAR String GLOBAL 捐献第2
VAR String GLOBAL 捐献第3
VAR String GLOBAL 捐献第4
VAR String GLOBAL 捐献第5
VAR Integer GLOBAL 1区额度
VAR Integer GLOBAL 2区额度
VAR Integer GLOBAL 3区额度
VAR Integer GLOBAL 4区额度
VAR Integer GLOBAL 5区额度
VAR Integer GLOBAL 6区额度
VAR Integer GLOBAL 7区额度
VAR Integer GLOBAL 8区额度
VAR Integer GLOBAL 老区
VAR Integer GLOBAL 总奖金
VAR Integer GLOBAL 胜利方
VAR Integer GLOBAL 失败方
VAR String GLOBAL 1区名
VAR String GLOBAL 2区名
VAR String GLOBAL 3区名
VAR String GLOBAL 4区名
VAR String GLOBAL 5区名
VAR String GLOBAL 6区名
VAR String GLOBAL 7区名
VAR String GLOBAL 8区名
VAR String GLOBAL 老区名
LOADVAR GLOBAL 老区 ........\$(D盘目录)\通区捐献<$STR($(开区日期))>\捐献变量.txt
LOADVAR GLOBAL 1区额度 ........\$(D盘目录)\通区捐献<$STR($(开区日期))>\捐献变量.txt
LOADVAR GLOBAL 2区额度 ........\$(D盘目录)\通区捐献<$STR($(开区日期))>\捐献变量.txt
LOADVAR GLOBAL 3区额度 ........\$(D盘目录)\通区捐献<$STR($(开区日期))>\捐献变量.txt
LOADVAR GLOBAL 4区额度 ........\$(D盘目录)\通区捐献<$STR($(开区日期))>\捐献变量.txt
LOADVAR GLOBAL 5区额度 ........\$(D盘目录)\通区捐献<$STR($(开区日期))>\捐献变量.txt
LOADVAR GLOBAL 6区额度 ........\$(D盘目录)\通区捐献<$STR($(开区日期))>\捐献变量.txt
LOADVAR GLOBAL 7区额度 ........\$(D盘目录)\通区捐献<$STR($(开区日期))>\捐献变量.txt
LOADVAR GLOBAL 8区额度 ........\$(D盘目录)\通区捐献<$STR($(开区日期))>\捐献变量.txt
LOADVAR GLOBAL 1区名 ........\$(D盘目录)\通区捐献<$STR($(开区日期))>\捐献变量.txt
LOADVAR GLOBAL 2区名 ........\$(D盘目录)\通区捐献<$STR($(开区日期))>\捐献变量.txt
LOADVAR GLOBAL 3区名 ........\$(D盘目录)\通区捐献<$STR($(开区日期))>\捐献变量.txt
LOADVAR GLOBAL 4区名 ........\$(D盘目录)\通区捐献<$STR($(开区日期))>\捐献变量.txt
LOADVAR GLOBAL 5区名 ........\$(D盘目录)\通区捐献<$STR($(开区日期))>\捐献变量.txt
LOADVAR GLOBAL 6区名 ........\$(D盘目录)\通区捐献<$STR($(开区日期))>\捐献变量.txt
LOADVAR GLOBAL 7区名 ........\$(D盘目录)\通区捐献<$STR($(开区日期))>\捐献变量.txt
LOADVAR GLOBAL 8区名 ........\$(D盘目录)\通区捐献<$STR($(开区日期))>\捐献变量.txt
LOADVAR GLOBAL 老区名 ........\$(D盘目录)\通区捐献<$STR($(开区日期))>\捐献变量.txt
#IF
!POS <$SERVERNAME> $(1区名)
!POS <$SERVERNAME> $(2区名)
!POS <$SERVERNAME> $(3区名)
!POS <$SERVERNAME> $(4区名)
!POS <$SERVERNAME> $(5区名)
!POS <$SERVERNAME> $(6区名)
!POS <$SERVERNAME> $(7区名)
!POS <$SERVERNAME> $(8区名)
#ACT
CALCVAR GLOBAL 老区名 = <$SERVERNAME>
SAVEVAR GLOBAL 老区名 ........\$(D盘目录)\通区捐献<$STR($(开区日期))>\捐献变量.txt
#IF
POS <$SERVERNAME> $(1区名)
#ACT
CALCVAR GLOBAL 1区名 = <$SERVERNAME>
SAVEVAR GLOBAL 1区名 ........\$(D盘目录)\通区捐献<$STR($(开区日期))>\捐献变量.txt
#IF
POS <$SERVERNAME> $(2区名)
#ACT
CALCVAR GLOBAL 2区名 = <$SERVERNAME>
SAVEVAR GLOBAL 2区名 ........\$(D盘目录)\通区捐献<$STR($(开区日期))>\捐献变量.txt
#IF
POS <$SERVERNAME> $(3区名)
#ACT
CALCVAR GLOBAL 3区名 = <$SERVERNAME>
SAVEVAR GLOBAL 3区名 ........\$(D盘目录)\通区捐献<$STR($(开区日期))>\捐献变量.txt
#IF
POS <$SERVERNAME> $(4区名)
#ACT
CALCVAR GLOBAL 4区名 = <$SERVERNAME>
SAVEVAR GLOBAL 4区名 ........\$(D盘目录)\通区捐献<$STR($(开区日期))>\捐献变量.txt
#IF
POS <$SERVERNAME> $(5区名)
#ACT
CALCVAR GLOBAL 5区名 = <$SERVERNAME>
SAVEVAR GLOBAL 5区名 ........\$(D盘目录)\通区捐献<$STR($(开区日期))>\捐献变量.txt
#IF
POS <$SERVERNAME> $(6区名)
#ACT
CALCVAR GLOBAL 6区名 = <$SERVERNAME>
SAVEVAR GLOBAL 6区名 ........\$(D盘目录)\通区捐献<$STR($(开区日期))>\捐献变量.txt
#IF
POS <$SERVERNAME> $(7区名)
#ACT
CALCVAR GLOBAL 7区名 = <$SERVERNAME>
SAVEVAR GLOBAL 7区名 ........\$(D盘目录)\通区捐献<$STR($(开区日期))>\捐献变量.txt
#IF
POS <$SERVERNAME> $(8区名)
#ACT
CALCVAR GLOBAL 8区名 = <$SERVERNAME>
SAVEVAR GLOBAL 8区名 ........\$(D盘目录)\通区捐献<$STR($(开区日期))>\捐献变量.txt
[@捐献常量加载]
#CALL [\PY27脚本\PY27.COM沙城捐献\捐献常量.INI] @91gob捐献
