[@main]
#if
CheckContainsText<$SERVERNAME>测试
#act
MESSAGEBOX测试区不支持此功能!!!
break
#IF
checklevelex>0
#say
<>\\
<PlayImg:15:2269:30:100:0:-5:0><沙城捐献/SCOLOR=253><查看沙城捐献资金分配说明|251#开启沙城捐献的资金50%为攻城奖励^-^251#20%为及时雨奖池奖金^-^251#沙奖励具体奖励方法请看“沙城奖励”/SCOLOR=250><奖池总计:/SCOLOR=251><$STR(N$显示总金额)><RMB点/SCOLOR=251>\
<PlayImg:15:2269:30:100:0:-5:0><捐献说明:首次捐献合区之后属性清除永久捐献为永久保留属性/SCOLOR=251>\
<PlayImg:15:2269:30:100:0:-5:0><首次捐献:怪物爆率+30%HP+1000攻击+88刀刀吸血+100/SCOLOR=254>\
<PlayImg:15:2269:30:100:0:-5:0><刀刀切割+900，增加30%杀怪经验/SCOLOR=254><捐献费用:30万RMB点/SCOLOR=243>\
<PlayImg:15:2269:30:100:0:-5:0><永久捐献:怪物爆率+50%HP+1500攻击+150刀刀吸血+200/SCOLOR=254>\
<PlayImg:15:2269:30:100:0:-5:0><刀刀切割+1500，增加50%杀怪经验/SCOLOR=254><捐献费用:60万RMB点/SCOLOR=243>\
<PlayImg:15:2269:30:100:0:-5:0><今日一区/SCOLOR=254><已经累计沙城奖励[金额]:/SCOLOR=95><$STR(S$捐献金额0)><RMB点/SCOLOR=95>\
<PlayImg:15:2269:30:100:0:-5:0><今日二区/SCOLOR=254><已经累计沙城奖励[金额]:/SCOLOR=95><$STR(S$捐献金额1)><RMB点/SCOLOR=95>\
<PlayImg:15:2269:30:100:0:-5:0><今日三区/SCOLOR=254><已经累计沙城奖励[金额]:/SCOLOR=95><$STR(S$捐献金额2)><RMB点/SCOLOR=95>\
<PlayImg:15:2269:30:100:0:-5:0><沙城捐献者福利/@个人沙捐领奖><[首次捐献]/@首次沙城捐献><[永久捐献]/@永久沙城捐献>
;<PlayImg:15:2269:30:100:0:-5:0><沙城捐献者福利/@个人沙捐领奖><每次捐献费用:30万RMB点/SCOLOR=243><[我要捐献]/@开启沙城捐献><我已捐献/SCOLOR=250><$STR(U39)><次/SCOLOR=250>
#ACT
OPENMERCHANTBIGDLG1522251410-10014460
GetListString..\..\..\..\通区捐献\<$STR(A100)>\当前01区.txt0S$当前一区S$捐献金额0
GetListString..\..\..\..\通区捐献\<$STR(A100)>\当前02区.txt0S$当前二区S$捐献金额1
GetListString..\..\..\..\通区捐献\<$STR(A100)>\当前03区.txt0S$当前三区S$捐献金额2
GetListString..\..\..\..\通区捐献\<$STR(A100)>\当前04区.txt0S$当前四区S$捐献金额3
GetListString..\..\..\..\通区捐献\<$STR(A100)>\当前05区.txt0S$当前五区S$捐献金额4
GetListString..\..\..\..\通区捐献\<$STR(A100)>\当前06区.txt0S$当前六区S$捐献金额5
GetListString..\..\..\..\通区捐献\<$STR(A100)>\当前战区.txt0S$当前战区S$捐献金额6
GetListString..\..\..\..\通区捐献\<$STR(A100)>\当前合区.txt0S$当前合区S$捐献金额7
MOVN$总金额0
INCN$总金额<$str(S$捐献金额0)>
INCN$总金额<$str(S$捐献金额1)>
INCN$总金额<$str(S$捐献金额2)>
INCN$总金额<$str(S$捐献金额3)>
INCN$总金额<$str(S$捐献金额4)>
INCN$总金额<$str(S$捐献金额5)>
INCN$总金额<$str(S$捐献金额6)>
INCN$总金额<$str(S$捐献金额7)>
;DIVN$显示总金额<$str(N$总金额)>10
;MULN$显示总金额7
MOVN$显示总金额<$str(N$总金额)>
SetStringBlankS$捐献金额0151
SetStringBlankS$捐献金额1151
SetStringBlankS$捐献金额2151
SetStringBlankS$捐献金额3151
SetStringBlankS$捐献金额4151
SetStringBlankS$捐献金额5151
SetStringBlankS$捐献金额6151
SetStringBlankS$捐献金额7151
break
[@首次沙城捐献]
#IF
CHECKGAMEPOINT<300000
#ACT
MESSAGEBOX你的RMB点不够！
break
#if
NOTCHECKGAMEPOINT<300000
#ACT
MESSAGEBOX你确定要花30万RMB点开首次沙城捐献吗?\ \可以直接60万RMB点开永久捐献！！！！@开个临时@exit
break
[@开个临时]
#IF
LARGEU390
#ACT
MESSAGEBOX请点击永久捐献!!!!!
break
#IF
CHECKGAMEPOINT<300000
#ACT
MESSAGEBOX你的RMB点不够！
break
#IF
EQUALU390
CheckContainsText<$SERVERNAME>号区
CHECKGAMEPOINT>299999
#ACT
GAMEPOINT-300000
INCG211150000
INCG21260000
INCU391
#CALL[\登陆\属性给予.TXT]@人物属性
#CALL[\登陆\属性给予.TXT]@切割计算
#CALL[\登陆\属性给予.TXT]@吸血计算
#CALL[\登陆\属性给予.TXT]@爆率计算
;#CALL[\登陆\属性给予.TXT]@经验计算
AddTextListEx..\QuestDiary\临时数据\沙捐临时记录.txt<$USERNAME>
CLEARNAMELIST..\..\..\..\通区捐献\<$STR(A100)>\当前合区.txt
AddTextListEx..\..\..\..\通区捐献\<$STR(A100)>\当前合区.txt当前合区:<$STR(G211)>0
AddTextListEx..\..\..\..\通区捐献\<$STR(A100)>\捐献数据.txt<$USERNAME>0
GOTO@红包雨计算
break
#IF
EQUALU390
CheckContainsText<$SERVERNAME>01区
CHECKGAMEPOINT>299999
#ACT
GAMEPOINT-300000
INCG211150000
INCG21260000
INCU391
#CALL[\登陆\属性给予.TXT]@人物属性
#CALL[\登陆\属性给予.TXT]@切割计算
#CALL[\登陆\属性给予.TXT]@吸血计算
#CALL[\登陆\属性给予.TXT]@爆率计算
;#CALL[\登陆\属性给予.TXT]@经验计算
AddTextListEx..\QuestDiary\临时数据\沙捐临时记录.txt<$USERNAME>
CLEARNAMELIST..\..\..\..\通区捐献\<$STR(A100)>\当前01区.txt
AddTextListEx..\..\..\..\通区捐献\<$STR(A100)>\当前01区.txt当前一区:<$STR(G211)>0
AddTextListEx..\..\..\..\通区捐献\<$STR(A100)>\捐献数据.txt<$USERNAME>0
GOTO@红包雨计算
break
#IF
EQUALU390
CheckContainsText<$SERVERNAME>02区
CHECKGAMEPOINT>299999
#ACT
GAMEPOINT-300000
INCG211150000
INCG21260000
INCU391
#CALL[\登陆\属性给予.TXT]@人物属性
#CALL[\登陆\属性给予.TXT]@切割计算
#CALL[\登陆\属性给予.TXT]@吸血计算
#CALL[\登陆\属性给予.TXT]@爆率计算
;#CALL[\登陆\属性给予.TXT]@经验计算
AddTextListEx..\QuestDiary\临时数据\沙捐临时记录.txt<$USERNAME>
CLEARNAMELIST..\..\..\..\通区捐献\<$STR(A100)>\当前02区.txt
AddTextListEx..\..\..\..\通区捐献\<$STR(A100)>\当前02区.txt当前二区:<$STR(G211)>0
AddTextListEx..\..\..\..\通区捐献\<$STR(A100)>\捐献数据.txt<$USERNAME>0
GOTO@红包雨计算
break
#IF
EQUALU390
CheckContainsText<$SERVERNAME>03区
CHECKGAMEPOINT>299999
#ACT
GAMEPOINT-300000
INCG211150000
INCG21260000
INCU391
#CALL[\登陆\属性给予.TXT]@人物属性
#CALL[\登陆\属性给予.TXT]@切割计算
#CALL[\登陆\属性给予.TXT]@吸血计算
#CALL[\登陆\属性给予.TXT]@爆率计算
;#CALL[\登陆\属性给予.TXT]@经验计算
AddTextListEx..\QuestDiary\临时数据\沙捐临时记录.txt<$USERNAME>
CLEARNAMELIST..\..\..\..\通区捐献\<$STR(A100)>\当前03区.txt
AddTextListEx..\..\..\..\通区捐献\<$STR(A100)>\当前03区.txt当前三区:<$STR(G211)>0
AddTextListEx..\..\..\..\通区捐献\<$STR(A100)>\捐献数据.txt<$USERNAME>0
GOTO@红包雨计算
break
#IF
EQUALU390
CheckContainsText<$SERVERNAME>04区
CHECKGAMEPOINT>299999
#ACT
GAMEPOINT-300000
INCG211150000
INCG21260000
INCU391
#CALL[\登陆\属性给予.TXT]@人物属性
#CALL[\登陆\属性给予.TXT]@切割计算
#CALL[\登陆\属性给予.TXT]@吸血计算
#CALL[\登陆\属性给予.TXT]@爆率计算
;#CALL[\登陆\属性给予.TXT]@经验计算
AddTextListEx..\QuestDiary\临时数据\沙捐临时记录.txt<$USERNAME>
CLEARNAMELIST..\..\..\..\通区捐献\<$STR(A100)>\当前04区.txt
AddTextListEx..\..\..\..\通区捐献\<$STR(A100)>\当前04区.txt当前四区:<$STR(G211)>0
AddTextListEx..\..\..\..\通区捐献\<$STR(A100)>\捐献数据.txt<$USERNAME>0
GOTO@红包雨计算
break
#IF
EQUALU390
CheckContainsText<$SERVERNAME>05区
CHECKGAMEPOINT>299999
#ACT
GAMEPOINT-300000
INCG211150000
INCG21260000
INCU391
#CALL[\登陆\属性给予.TXT]@人物属性
#CALL[\登陆\属性给予.TXT]@切割计算
#CALL[\登陆\属性给予.TXT]@吸血计算
#CALL[\登陆\属性给予.TXT]@爆率计算
;#CALL[\登陆\属性给予.TXT]@经验计算
AddTextListEx..\QuestDiary\临时数据\沙捐临时记录.txt<$USERNAME>
CLEARNAMELIST..\..\..\..\通区捐献\<$STR(A100)>\当前05区.txt
AddTextListEx..\..\..\..\通区捐献\<$STR(A100)>\当前05区.txt当前五区:<$STR(G211)>0
AddTextListEx..\..\..\..\通区捐献\<$STR(A100)>\捐献数据.txt<$USERNAME>0
GOTO@红包雨计算
break
#IF
EQUALU390
CheckContainsText<$SERVERNAME>06区
CHECKGAMEPOINT>299999
#ACT
GAMEPOINT-300000
INCG211150000
INCG21260000
INCU391
#CALL[\登陆\属性给予.TXT]@人物属性
#CALL[\登陆\属性给予.TXT]@切割计算
#CALL[\登陆\属性给予.TXT]@吸血计算
#CALL[\登陆\属性给予.TXT]@爆率计算
;#CALL[\登陆\属性给予.TXT]@经验计算
AddTextListEx..\QuestDiary\临时数据\沙捐临时记录.txt<$USERNAME>
CLEARNAMELIST..\..\..\..\通区捐献\<$STR(A100)>\当前06区.txt
AddTextListEx..\..\..\..\通区捐献\<$STR(A100)>\当前06区.txt当前六区:<$STR(G211)>0
AddTextListEx..\..\..\..\通区捐献\<$STR(A100)>\捐献数据.txt<$USERNAME>0
GOTO@红包雨计算
break
#IF
EQUALU390
CheckContainsText<$SERVERNAME>战区
CHECKGAMEPOINT>299999
#ACT
GAMEPOINT-300000
INCG211150000
INCG21260000
INCU391
#CALL[\登陆\属性给予.TXT]@人物属性
#CALL[\登陆\属性给予.TXT]@切割计算
#CALL[\登陆\属性给予.TXT]@吸血计算
#CALL[\登陆\属性给予.TXT]@爆率计算
;#CALL[\登陆\属性给予.TXT]@经验计算
AddTextListEx..\QuestDiary\临时数据\沙捐临时记录.txt<$USERNAME>
CLEARNAMELIST..\..\..\..\通区捐献\<$STR(A100)>\当前战区.txt
AddTextListEx..\..\..\..\通区捐献\<$STR(A100)>\当前战区.txt当前战区:<$STR(G211)>0
AddTextListEx..\..\..\..\通区捐献\<$STR(A100)>\捐献数据.txt<$USERNAME>0
GOTO@红包雨计算
break
[@永久沙城捐献]
#IF
equalU392
#ACT
MESSAGEBOX永久捐献只可以捐一次!!!!!
break
#IF
CHECKGAMEPOINT<600000
#ACT
MESSAGEBOX你的RMB点不够！
break
#IF
SMALLU392
CheckContainsText<$SERVERNAME>号区
CHECKGAMEPOINT>599999
#ACT
GAMEPOINT-600000
INCG211300000
INCG212120000
MOVU392
#CALL[\登陆\属性给予.TXT]@人物属性
#CALL[\登陆\属性给予.TXT]@切割计算
#CALL[\登陆\属性给予.TXT]@吸血计算
#CALL[\登陆\属性给予.TXT]@爆率计算
;#CALL[\登陆\属性给予.TXT]@经验计算
AddTextListEx..\QuestDiary\临时数据\沙捐临时记录.txt<$USERNAME>
CLEARNAMELIST..\..\..\..\通区捐献\<$STR(A100)>\当前合区.txt
AddTextListEx..\..\..\..\通区捐献\<$STR(A100)>\当前合区.txt当前合区:<$STR(G211)>0
AddTextListEx..\..\..\..\通区捐献\<$STR(A100)>\捐献数据.txt<$USERNAME>0
GOTO@红包雨计算
break
#IF
SMALLU392
CheckContainsText<$SERVERNAME>01区
CHECKGAMEPOINT>599999
#ACT
GAMEPOINT-600000
INCG211300000
INCG212120000
MOVU392
#CALL[\登陆\属性给予.TXT]@人物属性
#CALL[\登陆\属性给予.TXT]@切割计算
#CALL[\登陆\属性给予.TXT]@吸血计算
#CALL[\登陆\属性给予.TXT]@爆率计算
;#CALL[\登陆\属性给予.TXT]@经验计算
AddTextListEx..\QuestDiary\临时数据\沙捐临时记录.txt<$USERNAME>
CLEARNAMELIST..\..\..\..\通区捐献\<$STR(A100)>\当前01区.txt
AddTextListEx..\..\..\..\通区捐献\<$STR(A100)>\当前01区.txt当前一区:<$STR(G211)>0
AddTextListEx..\..\..\..\通区捐献\<$STR(A100)>\捐献数据.txt<$USERNAME>0
GOTO@红包雨计算
break
#IF
SMALLU392
CheckContainsText<$SERVERNAME>02区
CHECKGAMEPOINT>599999
#ACT
GAMEPOINT-600000
INCG211300000
INCG212120000
MOVU392
#CALL[\登陆\属性给予.TXT]@人物属性
#CALL[\登陆\属性给予.TXT]@切割计算
#CALL[\登陆\属性给予.TXT]@吸血计算
#CALL[\登陆\属性给予.TXT]@爆率计算
;#CALL[\登陆\属性给予.TXT]@经验计算
AddTextListEx..\QuestDiary\临时数据\沙捐临时记录.txt<$USERNAME>
CLEARNAMELIST..\..\..\..\通区捐献\<$STR(A100)>\当前02区.txt
AddTextListEx..\..\..\..\通区捐献\<$STR(A100)>\当前02区.txt当前二区:<$STR(G211)>0
AddTextListEx..\..\..\..\通区捐献\<$STR(A100)>\捐献数据.txt<$USERNAME>0
GOTO@红包雨计算
break
#IF
SMALLU392
CheckContainsText<$SERVERNAME>03区
CHECKGAMEPOINT>599999
#ACT
GAMEPOINT-600000
INCG211300000
INCG212120000
MOVU392
#CALL[\登陆\属性给予.TXT]@人物属性
#CALL[\登陆\属性给予.TXT]@切割计算
#CALL[\登陆\属性给予.TXT]@吸血计算
#CALL[\登陆\属性给予.TXT]@爆率计算
;#CALL[\登陆\属性给予.TXT]@经验计算
AddTextListEx..\QuestDiary\临时数据\沙捐临时记录.txt<$USERNAME>
CLEARNAMELIST..\..\..\..\通区捐献\<$STR(A100)>\当前03区.txt
AddTextListEx..\..\..\..\通区捐献\<$STR(A100)>\当前03区.txt当前三区:<$STR(G211)>0
AddTextListEx..\..\..\..\通区捐献\<$STR(A100)>\捐献数据.txt<$USERNAME>0
GOTO@红包雨计算
break
#IF
SMALLU392
CheckContainsText<$SERVERNAME>04区
CHECKGAMEPOINT>599999
#ACT
GAMEPOINT-600000
INCG211300000
INCG212120000
MOVU392
#CALL[\登陆\属性给予.TXT]@人物属性
#CALL[\登陆\属性给予.TXT]@切割计算
#CALL[\登陆\属性给予.TXT]@吸血计算
#CALL[\登陆\属性给予.TXT]@爆率计算
;#CALL[\登陆\属性给予.TXT]@经验计算
AddTextListEx..\QuestDiary\临时数据\沙捐临时记录.txt<$USERNAME>
CLEARNAMELIST..\..\..\..\通区捐献\<$STR(A100)>\当前04区.txt
AddTextListEx..\..\..\..\通区捐献\<$STR(A100)>\当前04区.txt当前四区:<$STR(G211)>0
AddTextListEx..\..\..\..\通区捐献\<$STR(A100)>\捐献数据.txt<$USERNAME>0
GOTO@红包雨计算
break
#IF
SMALLU392
CheckContainsText<$SERVERNAME>05区
CHECKGAMEPOINT>599999
#ACT
GAMEPOINT-600000
INCG211300000
INCG212120000
MOVU392
#CALL[\登陆\属性给予.TXT]@人物属性
#CALL[\登陆\属性给予.TXT]@切割计算
#CALL[\登陆\属性给予.TXT]@吸血计算
#CALL[\登陆\属性给予.TXT]@爆率计算
;#CALL[\登陆\属性给予.TXT]@经验计算
AddTextListEx..\QuestDiary\临时数据\沙捐临时记录.txt<$USERNAME>
CLEARNAMELIST..\..\..\..\通区捐献\<$STR(A100)>\当前05区.txt
AddTextListEx..\..\..\..\通区捐献\<$STR(A100)>\当前05区.txt当前五区:<$STR(G211)>0
AddTextListEx..\..\..\..\通区捐献\<$STR(A100)>\捐献数据.txt<$USERNAME>0
GOTO@红包雨计算
break
#IF
SMALLU392
CheckContainsText<$SERVERNAME>06区
CHECKGAMEPOINT>599999
#ACT
GAMEPOINT-600000
INCG211300000
INCG212120000
MOVU392
#CALL[\登陆\属性给予.TXT]@人物属性
#CALL[\登陆\属性给予.TXT]@切割计算
#CALL[\登陆\属性给予.TXT]@吸血计算
#CALL[\登陆\属性给予.TXT]@爆率计算
;#CALL[\登陆\属性给予.TXT]@经验计算
AddTextListEx..\QuestDiary\临时数据\沙捐临时记录.txt<$USERNAME>
CLEARNAMELIST..\..\..\..\通区捐献\<$STR(A100)>\当前06区.txt
AddTextListEx..\..\..\..\通区捐献\<$STR(A100)>\当前06区.txt当前六区:<$STR(G211)>0
AddTextListEx..\..\..\..\通区捐献\<$STR(A100)>\捐献数据.txt<$USERNAME>0
GOTO@红包雨计算
break
#IF
SMALLU392
CheckContainsText<$SERVERNAME>战区
CHECKGAMEPOINT>599999
#ACT
GAMEPOINT-600000
INCG211300000
INCG212120000
MOVU392
#CALL[\登陆\属性给予.TXT]@人物属性
#CALL[\登陆\属性给予.TXT]@切割计算
#CALL[\登陆\属性给予.TXT]@吸血计算
#CALL[\登陆\属性给予.TXT]@爆率计算
;#CALL[\登陆\属性给予.TXT]@经验计算
AddTextListEx..\QuestDiary\临时数据\沙捐临时记录.txt<$USERNAME>
CLEARNAMELIST..\..\..\..\通区捐献\<$STR(A100)>\当前战区.txt
AddTextListEx..\..\..\..\通区捐献\<$STR(A100)>\当前战区.txt当前战区:<$STR(G211)>0
AddTextListEx..\..\..\..\通区捐献\<$STR(A100)>\捐献数据.txt<$USERNAME>0
GOTO@红包雨计算
break
[@红包雨计算]
#if
SMALLG2121000000
#ACT
GOTO@MAIN
break
#IF
LARGEG212999999
#ACT
MOVG2120
ThrowItemHDZS01323410红包20|120
SENDMOVEMSG02532553001时时红包雨活动已经开启请通过点击顶部友情活动进入活动地图争夺红包！
SENDMOVEMSG02502552701时时红包雨活动已经开启请通过点击顶部友情活动进入活动地图争夺红包！
SENDMOVEMSG02522552401时时红包雨活动已经开启请通过点击顶部友情活动进入活动地图争夺红包！
GOTO@MAIN
Gmexecute开始提问@红包捡取
break
[@个人沙捐领奖]
#IF
LARGEU470
#ACT
MOVN$累积经验<$STR(U47)>
DIVN$累积经验10000
#ELSEACT
MOVN$累积经验0
#IF
checklevelex>0
#say
<>\\\\\
;<><当前累计幸运:<$STR(U45)>/SCOLOR=254>\
;<><ImgEx:21:1499:1500:1501:35:0/@领取幸运累计>\\\
<><当前累计元宝:<$STR(U46)>/SCOLOR=254>\
<><ImgEx:21:1499:1500:1501:35:0/@领取元宝累计>\\\
<><当前累计经验:<$STR(N$累积经验)>万/SCOLOR=254>\
<><ImgEx:21:1499:1500:1501:35:0/@领取经验累计>\\\
<><沙城捐献者击杀怪物的元宝和/SCOLOR=251>\
<><经验可累计到此再领取一次/SCOLOR=251>
#ACT
OPENMERCHANTBIGDLG2115021410-10012496
break
[@领取元宝累计]
#IF
EqualU390
#ACT
MESSAGEBOX你没有捐献无法领取!!!
break
#if
LARGEU390
LargeU460
#ACT
GAMEGOLD+<$STR(U46)>
MESSAGEBOX本次提取了<$STR(U46)>个元宝
MOVU460
GOTO@个人沙捐领奖
break
#elseact
messagebox你没有累积到元宝
break
[@领取经验累计]
#IF
EqualU390
#ACT
MESSAGEBOX你没有捐献无法领取!!!
break
#if
LARGEU390
LargeU470
#ACT
CHANGEEXP+<$STR(U47)>
MESSAGEBOX本次提取了<$STR(N$累积经验)>万经验值
MOVU470
MOVN$累积经验0
GOTO@个人沙捐领奖
break
#elseact
messagebox你没有累积到经验值
break
#if
CheckContainsText<$SERVERNAME>测试
#act
MESSAGEBOX测试区不支持此功能!!!
break
#IF
checklevelex>0
#say
<>\\
<PlayImg:15:2269:30:100:0:-5:0><沙城捐献/SCOLOR=253><查看沙城捐献资金分配说明|251#开启沙城捐献的资金50%为攻城奖励^-^251#20%为及时雨奖池奖金^-^251#沙奖励具体奖励方法请看“沙城奖励”/SCOLOR=250><奖池总计:/SCOLOR=251><$STR(N$显示总金额)><RMB点/SCOLOR=251>\
<PlayImg:15:2269:30:100:0:-5:0><捐献说明:首次捐献合区之后属性清除永久捐献为永久保留属性/SCOLOR=251>\
<PlayImg:15:2269:30:100:0:-5:0><首次捐献:怪物爆率+30%HP+1000攻击+88刀刀吸血+100/SCOLOR=254>\
<PlayImg:15:2269:30:100:0:-5:0><刀刀切割+900，增加30%杀怪经验/SCOLOR=254><捐献费用:30万RMB点/SCOLOR=243>\
<PlayImg:15:2269:30:100:0:-5:0><永久捐献:怪物爆率+50%HP+1500攻击+150刀刀吸血+200/SCOLOR=254>\
<PlayImg:15:2269:30:100:0:-5:0><刀刀切割+1500，增加50%杀怪经验/SCOLOR=254><捐献费用:60万RMB点/SCOLOR=243>\
<PlayImg:15:2269:30:100:0:-5:0><今日一区/SCOLOR=254><已经累计沙城奖励[金额]:/SCOLOR=95><$STR(S$捐献金额0)><RMB点/SCOLOR=95>\
<PlayImg:15:2269:30:100:0:-5:0><今日二区/SCOLOR=254><已经累计沙城奖励[金额]:/SCOLOR=95><$STR(S$捐献金额1)><RMB点/SCOLOR=95>\
<PlayImg:15:2269:30:100:0:-5:0><今日三区/SCOLOR=254><已经累计沙城奖励[金额]:/SCOLOR=95><$STR(S$捐献金额2)><RMB点/SCOLOR=95>\
<PlayImg:15:2269:30:100:0:-5:0><沙城捐献者福利/@个人沙捐领奖><[首次捐献]/@首次沙城捐献><[永久捐献]/@永久沙城捐献>
;<PlayImg:15:2269:30:100:0:-5:0><沙城捐献者福利/@个人沙捐领奖><每次捐献费用:30万RMB点/SCOLOR=243><[我要捐献]/@开启沙城捐献><我已捐献/SCOLOR=250><$STR(U39)><次/SCOLOR=250>
#ACT
OPENMERCHANTBIGDLG1522251410-10014460
GetListString..\..\..\..\通区捐献\<$STR(A100)>\当前01区.txt0S$当前一区S$捐献金额0
GetListString..\..\..\..\通区捐献\<$STR(A100)>\当前02区.txt0S$当前二区S$捐献金额1
GetListString..\..\..\..\通区捐献\<$STR(A100)>\当前03区.txt0S$当前三区S$捐献金额2
GetListString..\..\..\..\通区捐献\<$STR(A100)>\当前04区.txt0S$当前四区S$捐献金额3
GetListString..\..\..\..\通区捐献\<$STR(A100)>\当前05区.txt0S$当前五区S$捐献金额4
GetListString..\..\..\..\通区捐献\<$STR(A100)>\当前06区.txt0S$当前六区S$捐献金额5
GetListString..\..\..\..\通区捐献\<$STR(A100)>\当前战区.txt0S$当前战区S$捐献金额6
GetListString..\..\..\..\通区捐献\<$STR(A100)>\当前合区.txt0S$当前合区S$捐献金额7
MOVN$总金额0
INCN$总金额<$str(S$捐献金额0)>
INCN$总金额<$str(S$捐献金额1)>
INCN$总金额<$str(S$捐献金额2)>
INCN$总金额<$str(S$捐献金额3)>
INCN$总金额<$str(S$捐献金额4)>
INCN$总金额<$str(S$捐献金额5)>
INCN$总金额<$str(S$捐献金额6)>
INCN$总金额<$str(S$捐献金额7)>
;DIVN$显示总金额<$str(N$总金额)>10
;MULN$显示总金额7
MOVN$显示总金额<$str(N$总金额)>
SetStringBlankS$捐献金额0151
SetStringBlankS$捐献金额1151
SetStringBlankS$捐献金额2151
SetStringBlankS$捐献金额3151
SetStringBlankS$捐献金额4151
SetStringBlankS$捐献金额5151
SetStringBlankS$捐献金额6151
SetStringBlankS$捐献金额7151
break
[@首次沙城捐献]
#IF
CHECKGAMEPOINT<300000
#ACT
MESSAGEBOX你的RMB点不够！
break
#if
NOTCHECKGAMEPOINT<300000
#ACT
MESSAGEBOX你确定要花30万RMB点开首次沙城捐献吗?\ \可以直接60万RMB点开永久捐献！！！！@开个临时@exit
break
[@开个临时]
#IF
LARGEU390
#ACT
MESSAGEBOX请点击永久捐献!!!!!
break
#IF
CHECKGAMEPOINT<300000
#ACT
MESSAGEBOX你的RMB点不够！
break
#IF
EQUALU390
CheckContainsText<$SERVERNAME>号区
CHECKGAMEPOINT>299999
#ACT
GAMEPOINT-300000
INCG211150000
INCG21260000
INCU391
#CALL[\登陆\属性给予.TXT]@人物属性
#CALL[\登陆\属性给予.TXT]@切割计算
#CALL[\登陆\属性给予.TXT]@吸血计算
#CALL[\登陆\属性给予.TXT]@爆率计算
;#CALL[\登陆\属性给予.TXT]@经验计算
AddTextListEx..\QuestDiary\临时数据\沙捐临时记录.txt<$USERNAME>
CLEARNAMELIST..\..\..\..\通区捐献\<$STR(A100)>\当前合区.txt
AddTextListEx..\..\..\..\通区捐献\<$STR(A100)>\当前合区.txt当前合区:<$STR(G211)>0
AddTextListEx..\..\..\..\通区捐献\<$STR(A100)>\捐献数据.txt<$USERNAME>0
GOTO@红包雨计算
break
#IF
EQUALU390
CheckContainsText<$SERVERNAME>01区
CHECKGAMEPOINT>299999
#ACT
GAMEPOINT-300000
INCG211150000
INCG21260000
INCU391
#CALL[\登陆\属性给予.TXT]@人物属性
#CALL[\登陆\属性给予.TXT]@切割计算
#CALL[\登陆\属性给予.TXT]@吸血计算
#CALL[\登陆\属性给予.TXT]@爆率计算
;#CALL[\登陆\属性给予.TXT]@经验计算
AddTextListEx..\QuestDiary\临时数据\沙捐临时记录.txt<$USERNAME>
CLEARNAMELIST..\..\..\..\通区捐献\<$STR(A100)>\当前01区.txt
AddTextListEx..\..\..\..\通区捐献\<$STR(A100)>\当前01区.txt当前一区:<$STR(G211)>0
AddTextListEx..\..\..\..\通区捐献\<$STR(A100)>\捐献数据.txt<$USERNAME>0
GOTO@红包雨计算
break
#IF
EQUALU390
CheckContainsText<$SERVERNAME>02区
CHECKGAMEPOINT>299999
#ACT
GAMEPOINT-300000
INCG211150000
INCG21260000
INCU391
#CALL[\登陆\属性给予.TXT]@人物属性
#CALL[\登陆\属性给予.TXT]@切割计算
#CALL[\登陆\属性给予.TXT]@吸血计算
#CALL[\登陆\属性给予.TXT]@爆率计算
;#CALL[\登陆\属性给予.TXT]@经验计算
AddTextListEx..\QuestDiary\临时数据\沙捐临时记录.txt<$USERNAME>
CLEARNAMELIST..\..\..\..\通区捐献\<$STR(A100)>\当前02区.txt
AddTextListEx..\..\..\..\通区捐献\<$STR(A100)>\当前02区.txt当前二区:<$STR(G211)>0
AddTextListEx..\..\..\..\通区捐献\<$STR(A100)>\捐献数据.txt<$USERNAME>0
GOTO@红包雨计算
break
#IF
EQUALU390
CheckContainsText<$SERVERNAME>03区
CHECKGAMEPOINT>299999
#ACT
GAMEPOINT-300000
INCG211150000
INCG21260000
INCU391
#CALL[\登陆\属性给予.TXT]@人物属性
#CALL[\登陆\属性给予.TXT]@切割计算
#CALL[\登陆\属性给予.TXT]@吸血计算
#CALL[\登陆\属性给予.TXT]@爆率计算
;#CALL[\登陆\属性给予.TXT]@经验计算
AddTextListEx..\QuestDiary\临时数据\沙捐临时记录.txt<$USERNAME>
CLEARNAMELIST..\..\..\..\通区捐献\<$STR(A100)>\当前03区.txt
AddTextListEx..\..\..\..\通区捐献\<$STR(A100)>\当前03区.txt当前三区:<$STR(G211)>0
AddTextListEx..\..\..\..\通区捐献\<$STR(A100)>\捐献数据.txt<$USERNAME>0
GOTO@红包雨计算
break
#IF
EQUALU390
CheckContainsText<$SERVERNAME>04区
CHECKGAMEPOINT>299999
#ACT
GAMEPOINT-300000
INCG211150000
INCG21260000
INCU391
#CALL[\登陆\属性给予.TXT]@人物属性
#CALL[\登陆\属性给予.TXT]@切割计算
#CALL[\登陆\属性给予.TXT]@吸血计算
#CALL[\登陆\属性给予.TXT]@爆率计算
;#CALL[\登陆\属性给予.TXT]@经验计算
AddTextListEx..\QuestDiary\临时数据\沙捐临时记录.txt<$USERNAME>
CLEARNAMELIST..\..\..\..\通区捐献\<$STR(A100)>\当前04区.txt
AddTextListEx..\..\..\..\通区捐献\<$STR(A100)>\当前04区.txt当前四区:<$STR(G211)>0
AddTextListEx..\..\..\..\通区捐献\<$STR(A100)>\捐献数据.txt<$USERNAME>0
GOTO@红包雨计算
break
#IF
EQUALU390
CheckContainsText<$SERVERNAME>05区
CHECKGAMEPOINT>299999
#ACT
GAMEPOINT-300000
INCG211150000
INCG21260000
INCU391
#CALL[\登陆\属性给予.TXT]@人物属性
#CALL[\登陆\属性给予.TXT]@切割计算
#CALL[\登陆\属性给予.TXT]@吸血计算
#CALL[\登陆\属性给予.TXT]@爆率计算
;#CALL[\登陆\属性给予.TXT]@经验计算
AddTextListEx..\QuestDiary\临时数据\沙捐临时记录.txt<$USERNAME>
CLEARNAMELIST..\..\..\..\通区捐献\<$STR(A100)>\当前05区.txt
AddTextListEx..\..\..\..\通区捐献\<$STR(A100)>\当前05区.txt当前五区:<$STR(G211)>0
AddTextListEx..\..\..\..\通区捐献\<$STR(A100)>\捐献数据.txt<$USERNAME>0
GOTO@红包雨计算
break
#IF
EQUALU390
CheckContainsText<$SERVERNAME>06区
CHECKGAMEPOINT>299999
#ACT
GAMEPOINT-300000
INCG211150000
INCG21260000
INCU391
#CALL[\登陆\属性给予.TXT]@人物属性
#CALL[\登陆\属性给予.TXT]@切割计算
#CALL[\登陆\属性给予.TXT]@吸血计算
#CALL[\登陆\属性给予.TXT]@爆率计算
;#CALL[\登陆\属性给予.TXT]@经验计算
AddTextListEx..\QuestDiary\临时数据\沙捐临时记录.txt<$USERNAME>
CLEARNAMELIST..\..\..\..\通区捐献\<$STR(A100)>\当前06区.txt
AddTextListEx..\..\..\..\通区捐献\<$STR(A100)>\当前06区.txt当前六区:<$STR(G211)>0
AddTextListEx..\..\..\..\通区捐献\<$STR(A100)>\捐献数据.txt<$USERNAME>0
GOTO@红包雨计算
break
#IF
EQUALU390
CheckContainsText<$SERVERNAME>战区
CHECKGAMEPOINT>299999
#ACT
GAMEPOINT-300000
INCG211150000
INCG21260000
INCU391
#CALL[\登陆\属性给予.TXT]@人物属性
#CALL[\登陆\属性给予.TXT]@切割计算
#CALL[\登陆\属性给予.TXT]@吸血计算
#CALL[\登陆\属性给予.TXT]@爆率计算
;#CALL[\登陆\属性给予.TXT]@经验计算
AddTextListEx..\QuestDiary\临时数据\沙捐临时记录.txt<$USERNAME>
CLEARNAMELIST..\..\..\..\通区捐献\<$STR(A100)>\当前战区.txt
AddTextListEx..\..\..\..\通区捐献\<$STR(A100)>\当前战区.txt当前战区:<$STR(G211)>0
AddTextListEx..\..\..\..\通区捐献\<$STR(A100)>\捐献数据.txt<$USERNAME>0
GOTO@红包雨计算
break
[@永久沙城捐献]
#IF
equalU392
#ACT
MESSAGEBOX永久捐献只可以捐一次!!!!!
break
#IF
CHECKGAMEPOINT<600000
#ACT
MESSAGEBOX你的RMB点不够！
break
#IF
SMALLU392
CheckContainsText<$SERVERNAME>号区
CHECKGAMEPOINT>599999
#ACT
GAMEPOINT-600000
INCG211300000
INCG212120000
MOVU392
#CALL[\登陆\属性给予.TXT]@人物属性
#CALL[\登陆\属性给予.TXT]@切割计算
#CALL[\登陆\属性给予.TXT]@吸血计算
#CALL[\登陆\属性给予.TXT]@爆率计算
;#CALL[\登陆\属性给予.TXT]@经验计算
AddTextListEx..\QuestDiary\临时数据\沙捐临时记录.txt<$USERNAME>
CLEARNAMELIST..\..\..\..\通区捐献\<$STR(A100)>\当前合区.txt
AddTextListEx..\..\..\..\通区捐献\<$STR(A100)>\当前合区.txt当前合区:<$STR(G211)>0
AddTextListEx..\..\..\..\通区捐献\<$STR(A100)>\捐献数据.txt<$USERNAME>0
GOTO@红包雨计算
break
#IF
SMALLU392
CheckContainsText<$SERVERNAME>01区
CHECKGAMEPOINT>599999
#ACT
GAMEPOINT-600000
INCG211300000
INCG212120000
MOVU392
#CALL[\登陆\属性给予.TXT]@人物属性
#CALL[\登陆\属性给予.TXT]@切割计算
#CALL[\登陆\属性给予.TXT]@吸血计算
#CALL[\登陆\属性给予.TXT]@爆率计算
;#CALL[\登陆\属性给予.TXT]@经验计算
AddTextListEx..\QuestDiary\临时数据\沙捐临时记录.txt<$USERNAME>
CLEARNAMELIST..\..\..\..\通区捐献\<$STR(A100)>\当前01区.txt
AddTextListEx..\..\..\..\通区捐献\<$STR(A100)>\当前01区.txt当前一区:<$STR(G211)>0
AddTextListEx..\..\..\..\通区捐献\<$STR(A100)>\捐献数据.txt<$USERNAME>0
GOTO@红包雨计算
break
#IF
SMALLU392
CheckContainsText<$SERVERNAME>02区
CHECKGAMEPOINT>599999
#ACT
GAMEPOINT-600000
INCG211300000
INCG212120000
MOVU392
#CALL[\登陆\属性给予.TXT]@人物属性
#CALL[\登陆\属性给予.TXT]@切割计算
#CALL[\登陆\属性给予.TXT]@吸血计算
#CALL[\登陆\属性给予.TXT]@爆率计算
;#CALL[\登陆\属性给予.TXT]@经验计算
AddTextListEx..\QuestDiary\临时数据\沙捐临时记录.txt<$USERNAME>
CLEARNAMELIST..\..\..\..\通区捐献\<$STR(A100)>\当前02区.txt
AddTextListEx..\..\..\..\通区捐献\<$STR(A100)>\当前02区.txt当前二区:<$STR(G211)>0
AddTextListEx..\..\..\..\通区捐献\<$STR(A100)>\捐献数据.txt<$USERNAME>0
GOTO@红包雨计算
break
#IF
SMALLU392
CheckContainsText<$SERVERNAME>03区
CHECKGAMEPOINT>599999
#ACT
GAMEPOINT-600000
INCG211300000
INCG212120000
MOVU392
#CALL[\登陆\属性给予.TXT]@人物属性
#CALL[\登陆\属性给予.TXT]@切割计算
#CALL[\登陆\属性给予.TXT]@吸血计算
#CALL[\登陆\属性给予.TXT]@爆率计算
;#CALL[\登陆\属性给予.TXT]@经验计算
AddTextListEx..\QuestDiary\临时数据\沙捐临时记录.txt<$USERNAME>
CLEARNAMELIST..\..\..\..\通区捐献\<$STR(A100)>\当前03区.txt
AddTextListEx..\..\..\..\通区捐献\<$STR(A100)>\当前03区.txt当前三区:<$STR(G211)>0
AddTextListEx..\..\..\..\通区捐献\<$STR(A100)>\捐献数据.txt<$USERNAME>0
GOTO@红包雨计算
break
#IF
SMALLU392
CheckContainsText<$SERVERNAME>04区
CHECKGAMEPOINT>599999
#ACT
GAMEPOINT-600000
INCG211300000
INCG212120000
MOVU392
#CALL[\登陆\属性给予.TXT]@人物属性
#CALL[\登陆\属性给予.TXT]@切割计算
#CALL[\登陆\属性给予.TXT]@吸血计算
#CALL[\登陆\属性给予.TXT]@爆率计算
;#CALL[\登陆\属性给予.TXT]@经验计算
AddTextListEx..\QuestDiary\临时数据\沙捐临时记录.txt<$USERNAME>
CLEARNAMELIST..\..\..\..\通区捐献\<$STR(A100)>\当前04区.txt
AddTextListEx..\..\..\..\通区捐献\<$STR(A100)>\当前04区.txt当前四区:<$STR(G211)>0
AddTextListEx..\..\..\..\通区捐献\<$STR(A100)>\捐献数据.txt<$USERNAME>0
GOTO@红包雨计算
break
#IF
SMALLU392
CheckContainsText<$SERVERNAME>05区
CHECKGAMEPOINT>599999
#ACT
GAMEPOINT-600000
INCG211300000
INCG212120000
MOVU392
#CALL[\登陆\属性给予.TXT]@人物属性
#CALL[\登陆\属性给予.TXT]@切割计算
#CALL[\登陆\属性给予.TXT]@吸血计算
#CALL[\登陆\属性给予.TXT]@爆率计算
;#CALL[\登陆\属性给予.TXT]@经验计算
AddTextListEx..\QuestDiary\临时数据\沙捐临时记录.txt<$USERNAME>
CLEARNAMELIST..\..\..\..\通区捐献\<$STR(A100)>\当前05区.txt
AddTextListEx..\..\..\..\通区捐献\<$STR(A100)>\当前05区.txt当前五区:<$STR(G211)>0
AddTextListEx..\..\..\..\通区捐献\<$STR(A100)>\捐献数据.txt<$USERNAME>0
GOTO@红包雨计算
break
#IF
SMALLU392
CheckContainsText<$SERVERNAME>06区
CHECKGAMEPOINT>599999
#ACT
GAMEPOINT-600000
INCG211300000
INCG212120000
MOVU392
#CALL[\登陆\属性给予.TXT]@人物属性
#CALL[\登陆\属性给予.TXT]@切割计算
#CALL[\登陆\属性给予.TXT]@吸血计算
#CALL[\登陆\属性给予.TXT]@爆率计算
;#CALL[\登陆\属性给予.TXT]@经验计算
AddTextListEx..\QuestDiary\临时数据\沙捐临时记录.txt<$USERNAME>
CLEARNAMELIST..\..\..\..\通区捐献\<$STR(A100)>\当前06区.txt
AddTextListEx..\..\..\..\通区捐献\<$STR(A100)>\当前06区.txt当前六区:<$STR(G211)>0
AddTextListEx..\..\..\..\通区捐献\<$STR(A100)>\捐献数据.txt<$USERNAME>0
GOTO@红包雨计算
break
#IF
SMALLU392
CheckContainsText<$SERVERNAME>战区
CHECKGAMEPOINT>599999
#ACT
GAMEPOINT-600000
INCG211300000
INCG212120000
MOVU392
#CALL[\登陆\属性给予.TXT]@人物属性
#CALL[\登陆\属性给予.TXT]@切割计算
#CALL[\登陆\属性给予.TXT]@吸血计算
#CALL[\登陆\属性给予.TXT]@爆率计算
;#CALL[\登陆\属性给予.TXT]@经验计算
AddTextListEx..\QuestDiary\临时数据\沙捐临时记录.txt<$USERNAME>
CLEARNAMELIST..\..\..\..\通区捐献\<$STR(A100)>\当前战区.txt
AddTextListEx..\..\..\..\通区捐献\<$STR(A100)>\当前战区.txt当前战区:<$STR(G211)>0
AddTextListEx..\..\..\..\通区捐献\<$STR(A100)>\捐献数据.txt<$USERNAME>0
GOTO@红包雨计算
break
[@红包雨计算]
#if
SMALLG2121000000
#ACT
GOTO@MAIN
break
#IF
LARGEG212999999
#ACT
MOVG2120
ThrowItemHDZS01323410红包20|120
SENDMOVEMSG02532553001时时红包雨活动已经开启请通过点击顶部友情活动进入活动地图争夺红包！
SENDMOVEMSG02502552701时时红包雨活动已经开启请通过点击顶部友情活动进入活动地图争夺红包！
SENDMOVEMSG02522552401时时红包雨活动已经开启请通过点击顶部友情活动进入活动地图争夺红包！
GOTO@MAIN
Gmexecute开始提问@红包捡取
break
[@个人沙捐领奖]
#IF
LARGEU470
#ACT
MOVN$累积经验<$STR(U47)>
DIVN$累积经验10000
#ELSEACT
MOVN$累积经验0
#IF
checklevelex>0
#say
<>\\\\\
;<><当前累计幸运:<$STR(U45)>/SCOLOR=254>\
;<><ImgEx:21:1499:1500:1501:35:0/@领取幸运累计>\\\
<><当前累计元宝:<$STR(U46)>/SCOLOR=254>\
<><ImgEx:21:1499:1500:1501:35:0/@领取元宝累计>\\\
<><当前累计经验:<$STR(N$累积经验)>万/SCOLOR=254>\
<><ImgEx:21:1499:1500:1501:35:0/@领取经验累计>\\\
<><沙城捐献者击杀怪物的元宝和/SCOLOR=251>\
<><经验可累计到此再领取一次/SCOLOR=251>
#ACT
OPENMERCHANTBIGDLG2115021410-10012496
break
[@领取元宝累计]
#IF
EqualU390
#ACT
MESSAGEBOX你没有捐献无法领取!!!
break
#if
LARGEU390
LargeU460
#ACT
GAMEGOLD+<$STR(U46)>
MESSAGEBOX本次提取了<$STR(U46)>个元宝
MOVU460
GOTO@个人沙捐领奖
break
#elseact
messagebox你没有累积到元宝
break
[@领取经验累计]
#IF
EqualU390
#ACT
MESSAGEBOX你没有捐献无法领取!!!
break
#if
LARGEU390
LargeU470
#ACT
CHANGEEXP+<$STR(U47)>
MESSAGEBOX本次提取了<$STR(N$累积经验)>万经验值
MOVU470
MOVN$累积经验0
GOTO@个人沙捐领奖
break
#elseact
messagebox你没有累积到经验值
break