[@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
OPENMERCHANTBIGDLG 15 2225 1 4 10 -100 1 446 0
GetListString ……..通区捐献<$STR(A100)>当前01区.txt 0 S$当前一区 S$捐献金额0
GetListString ……..通区捐献<$STR(A100)>当前02区.txt 0 S$当前二区 S$捐献金额1
GetListString ……..通区捐献<$STR(A100)>当前03区.txt 0 S$当前三区 S$捐献金额2
GetListString ……..通区捐献<$STR(A100)>当前04区.txt 0 S$当前四区 S$捐献金额3
GetListString ……..通区捐献<$STR(A100)>当前05区.txt 0 S$当前五区 S$捐献金额4
GetListString ……..通区捐献<$STR(A100)>当前06区.txt 0 S$当前六区 S$捐献金额5
GetListString ……..通区捐献<$STR(A100)>当前战区.txt 0 S$当前战区 S$捐献金额6
GetListString ……..通区捐献<$STR(A100)>当前合区.txt 0 S$当前合区 S$捐献金额7
MOV N$总金额 0
INC N$总金额 <$str(S$捐献金额0)>
INC N$总金额 <$str(S$捐献金额1)>
INC N$总金额 <$str(S$捐献金额2)>
INC N$总金额 <$str(S$捐献金额3)>
INC N$总金额 <$str(S$捐献金额4)>
INC N$总金额 <$str(S$捐献金额5)>
INC N$总金额 <$str(S$捐献金额6)>
INC N$总金额 <$str(S$捐献金额7)>
;DIV N$显示总金额 <$str(N$总金额)> 10
;MUL N$显示总金额 7
MOV N$显示总金额 <$str(N$总金额)>
SetStringBlank S$捐献金额0 15 1
SetStringBlank S$捐献金额1 15 1
SetStringBlank S$捐献金额2 15 1
SetStringBlank S$捐献金额3 15 1
SetStringBlank S$捐献金额4 15 1
SetStringBlank S$捐献金额5 15 1
SetStringBlank S$捐献金额6 15 1
SetStringBlank S$捐献金额7 15 1
break
[@首次沙城捐献]
#IF
CHECKGAMEPOINT < 300000
#ACT
MESSAGEBOX 你的RMB点不够！
break
#if
NOT CHECKGAMEPOINT < 300000
#ACT
MESSAGEBOX 你确定要花30万RMB点开首次沙城捐献吗? 可以直接60万RMB点开永久捐献！！！！ @开个临时 @exit
break
[@开个临时]
#IF
LARGE U39 0
#ACT
MESSAGEBOX 请点击永久捐献!!!!!
break
#IF
CHECKGAMEPOINT < 300000
#ACT
MESSAGEBOX 你的RMB点不够！
break
#IF
EQUAL U39 0
CheckContainsText <$SERVERNAME> 号区
CHECKGAMEPOINT > 299999
#ACT
GAMEPOINT – 300000
INC G211 150000
INC G212 60000
INC U39 1
#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
EQUAL U39 0
CheckContainsText <$SERVERNAME> 01区
CHECKGAMEPOINT > 299999
#ACT
GAMEPOINT – 300000
INC G211 150000
INC G212 60000
INC U39 1
#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
EQUAL U39 0
CheckContainsText <$SERVERNAME> 02区
CHECKGAMEPOINT > 299999
#ACT
GAMEPOINT – 300000
INC G211 150000
INC G212 60000
INC U39 1
#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
EQUAL U39 0
CheckContainsText <$SERVERNAME> 03区
CHECKGAMEPOINT > 299999
#ACT
GAMEPOINT – 300000
INC G211 150000
INC G212 60000
INC U39 1
#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
EQUAL U39 0
CheckContainsText <$SERVERNAME> 04区
CHECKGAMEPOINT > 299999
#ACT
GAMEPOINT – 300000
INC G211 150000
INC G212 60000
INC U39 1
#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
EQUAL U39 0
CheckContainsText <$SERVERNAME> 05区
CHECKGAMEPOINT > 299999
#ACT
GAMEPOINT – 300000
INC G211 150000
INC G212 60000
INC U39 1
#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
EQUAL U39 0
CheckContainsText <$SERVERNAME> 06区
CHECKGAMEPOINT > 299999
#ACT
GAMEPOINT – 300000
INC G211 150000
INC G212 60000
INC U39 1
#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
EQUAL U39 0
CheckContainsText <$SERVERNAME> 战区
CHECKGAMEPOINT > 299999
#ACT
GAMEPOINT – 300000
INC G211 150000
INC G212 60000
INC U39 1
#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
equal U39 2
#ACT
MESSAGEBOX 永久捐献只可以捐一次!!!!!
break
#IF
CHECKGAMEPOINT < 600000
#ACT
MESSAGEBOX 你的RMB点不够！
break
#IF
SMALL U39 2
CheckContainsText <$SERVERNAME> 号区
CHECKGAMEPOINT > 599999
#ACT
GAMEPOINT – 600000
INC G211 300000
INC G212 120000
MOV U39 2
#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
SMALL U39 2
CheckContainsText <$SERVERNAME> 01区
CHECKGAMEPOINT > 599999
#ACT
GAMEPOINT – 600000
INC G211 300000
INC G212 120000
MOV U39 2
#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
SMALL U39 2
CheckContainsText <$SERVERNAME> 02区
CHECKGAMEPOINT > 599999
#ACT
GAMEPOINT – 600000
INC G211 300000
INC G212 120000
MOV U39 2
#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
SMALL U39 2
CheckContainsText <$SERVERNAME> 03区
CHECKGAMEPOINT > 599999
#ACT
GAMEPOINT – 600000
INC G211 300000
INC G212 120000
MOV U39 2
#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
SMALL U39 2
CheckContainsText <$SERVERNAME> 04区
CHECKGAMEPOINT > 599999
#ACT
GAMEPOINT – 600000
INC G211 300000
INC G212 120000
MOV U39 2
#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
SMALL U39 2
CheckContainsText <$SERVERNAME> 05区
CHECKGAMEPOINT > 599999
#ACT
GAMEPOINT – 600000
INC G211 300000
INC G212 120000
MOV U39 2
#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
SMALL U39 2
CheckContainsText <$SERVERNAME> 06区
CHECKGAMEPOINT > 599999
#ACT
GAMEPOINT – 600000
INC G211 300000
INC G212 120000
MOV U39 2
#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
SMALL U39 2
CheckContainsText <$SERVERNAME> 战区
CHECKGAMEPOINT > 599999
#ACT
GAMEPOINT – 600000
INC G211 300000
INC G212 120000
MOV U39 2
#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
SMALL G212 1000000
#ACT
GOTO @MAIN
break
#IF
LARGE G212 999999
#ACT
MOV G212 0
ThrowItem HDZS01 32 34 10 红包 20|120
SENDMOVEMSG 0 253 255 300 1 时时红包雨活动已经开启,请通过点击顶部激情活动进入活动地图争夺红包！
SENDMOVEMSG 0 250 255 270 1 时时红包雨活动已经开启,请通过点击顶部激情活动进入活动地图争夺红包！
SENDMOVEMSG 0 252 255 240 1 时时红包雨活动已经开启,请通过点击顶部激情活动进入活动地图争夺红包！
GOTO @MAIN
Gmexecute 开始提问 @红包捡取
break
[@个人沙捐领奖]
#IF
LARGE U47 0
#ACT
MOV N$累积经验 <$STR(U47)>
DIV N$累积经验 10000
#ELSEACT
MOV N$累积经验 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
OPENMERCHANTBIGDLG 21 1502 1 4 10 -100 1 249 6
break
[@领取元宝累计]
#IF
Equal U39 0
#ACT
MESSAGEBOX 你没有捐献,无法领取!!!
break
#if
LARGE U39 0
Large U46 0
#ACT
GAMEGOLD + <$STR(U46)>
MESSAGEBOX 本次提取了<$STR(U46)>个元宝
MOV U46 0
GOTO @个人沙捐领奖
break
#elseact
messagebox 你没有累积到元宝
break
[@领取经验累计]
#IF
Equal U39 0
#ACT
MESSAGEBOX 你没有捐献,无法领取!!!
break
#if
LARGE U39 0
Large U47 0
#ACT
CHANGEEXP + <$STR(U47)>
MESSAGEBOX 本次提取了<$STR(N$累积经验)>万经验值
MOV U47 0
MOV N$累积经验 0
GOTO @个人沙捐领奖
break
#elseact
messagebox 你没有累积到经验值
break
