Gom引擎脚本-沙城管理

(@@InPutString @@InPutInteger)
[@main]
#IF
#ACT
OPENMERCHANTBIGDLG 31 38 1 0 -0 10 0 0 0
MOV N5 150000
MOV N6 30000
INC N5 <$GLOBAL(捐献总额)>
INC N6 <$GLOBAL(捐献总额)>
#SAY
\ \ \
<ImgEx:31:34:35:36:394:-41/@Exit>\
<./AUTOCOLOR=0><全区荣耀总值：/AUTOCOLOR=159>{<$STR(G300)> 点/SCOLOR=230}  <沙城主可额外领元宝：/AUTOCOLOR=159>{<$STR(G300)>/SCOLOR=230}<个/AUTOCOLOR=159>\
<------------------------------------------------------------------/SCOLOR=84>\
<./AUTOCOLOR=0><攻城规则:/SCOLOR=94><开区第 ３ 天晚上２０:００点拿沙，老区每天２０:００点拿沙/SCOLOR=160>\
<------------------------------------------------------------------/SCOLOR=84>\
<./AUTOCOLOR=0><基础奖励:/SCOLOR=94><攻城时间内/SCOLOR=160><２０:００-２２:００/SCOLOR=159> <占领沙巴克皇宫所有行会成员/SCOLOR=160>\
<./AUTOCOLOR=0>         <每 30秒获得一次奖励，此奖励会根据参与拿沙 人数，个人等级/SCOLOR=160>\
<./AUTOCOLOR=0>         <行会老大等而变动，奖励将直接发放到占领皇宫的每个勇士身上/SCOLOR=160>\
<./AUTOCOLOR=0>\
<./AUTOCOLOR=0><额外奖励:/SCOLOR=94><沙城主在/SCOLOR=160><２２:００-２２:１５/SCOLOR=159> <时间内可以将全区荣耀度的总值/SCOLOR=160>\
<./AUTOCOLOR=0>         <兑换为元宝，兑换完成后，全区荣耀将清零，全区荣耀根据当前/SCOLOR=160>\
<./AUTOCOLOR=0>         <战区的综合活跃度增长，当前战区人数越多，沙额外奖励越丰厚/SCOLOR=160>\
<------------------------------------------------------------------/SCOLOR=84>\
<./AUTOCOLOR=0> <提示! 全区荣耀值根据本区人员活跃度不停增长,传送复活点需3万金币/SCOLOR=33>\
<------------------------------------------------------------------/SCOLOR=84>\
<./AUTOCOLOR=0>   <Img:29:31:0:0> <领取沙巴克额外奖励/@领取~2> <Img:29:31:0:0>           <Img:4:31:0:0> <传送 沙巴克 复活点/@传送> <Img:4:31:0:0>\



[@aboutwar]
<◆最近的攻城战役预告:>\
战役开始时间： <$CASTLEWARDATE> , 8:00开始。\ \

<◆详细攻城时间表：/@listwar>\
<关闭./@exit>\


[@listwar]
<$LISTOFWAR>\
<知道了./@exit>\




[@领取]
#IF
ISCASTLEMASTER
#ACT
goto @检测沙老大完成
#ELSESAY
您不是沙巴克城主！

[@检测沙老大完成]
#IF
CHECKGUILDLIST ..\QuestDiary\数据文件\每天拿沙奖励.txt
#SAY
您已经领取过了！
#elseact
Goto @检测时间

[@检测时间]
#IF
EQUAL A70 老区
HOUR 22 00
min 00 15
#ACT
Gamegold + 30000
ADDGUILDLIST ..\QuestDiary\数据文件\每天拿沙奖励.txt
GuildNoticeMsg 249 255 提示：沙城主『%S』领取了今日的３００００个元宝攻城奖励!!!
GuildNoticeMsg 249 255 提示：沙城主『%S』领取了今日的３００００个元宝攻城奖励!!!
GuildNoticeMsg 249 255 提示：沙城主『%S』领取了今日的３００００个元宝攻城奖励!!!
GuildNoticeMsg 249 255 提示：沙城主『%S』领取了今日的３００００个元宝攻城奖励!!!
GuildNoticeMsg 249 255 提示：沙城主『%S』领取了今日的３００００个元宝攻城奖励!!!


#IF
EQUAL A70
HOUR 22 00
min 00 15
#ACT
Gamegold + 150000
mov A70 老区
ADDGUILDLIST ..\QuestDiary\数据文件\每天拿沙奖励.txt
GuildNoticeMsg 249 255 提示：沙城主『%S』领取了新区的１５００００个元宝攻城奖励!!!
GuildNoticeMsg 249 255 提示：沙城主『%S』领取了新区的１５００００个元宝攻城奖励!!!
GuildNoticeMsg 249 255 提示：沙城主『%S』领取了新区的１５００００个元宝攻城奖励!!!
GuildNoticeMsg 249 255 提示：沙城主『%S』领取了新区的１５００００个元宝攻城奖励!!!
GuildNoticeMsg 249 255 提示：沙城主『%S』领取了新区的１５００００个元宝攻城奖励!!!
#ELSESAY
过了时间了，奖品失效，领了还想领啊！



[@传送]
#IF
CHECKLEVELEX > 124
CheckGold 30000
#ACT
Take 金币 30000
mapmove 3 644 290
SendCenterMsg 245 248 提示：勇士【<$USERNAME>】进入了沙巴克复活点。 1 4
#ELSEACT
messagebox 传送失败！\\\1：您金币不足３万！\\２：您等级不足125级。
break


[@领取~2]
#IF
ISCASTLEMASTER
#ACT
goto @少打~1
OPENMERCHANTBIGDLG 31 38 1 0 -0 10 0 0 0
#ELSEACT
messagebox 操作失败！\\\1：您不是沙巴克城主。
[@少打~1]
\ \ \
<ImgEx:31:39:40:41:396:-41/@Exit>\ \ \
<./AUTOCOLOR=0>     全区荣耀度总值：{<$STR(G300)>}点  沙城主可兑换元宝：{<$STR(G300)>}个\
<./AUTOCOLOR=0>\
<./AUTOCOLOR=0>     <兑换时间:><每天攻城结束后/SCOLOR=89><２２:００-２２:１５/SCOLOR=250><时间内可兑换/SCOLOR=89>\ \ \
<./AUTOCOLOR=0>     <注意！><您有权利将【全区荣耀度总值】换成您的元宝奖励/SCOLOR=7>\
<./AUTOCOLOR=0>     <警告！><将总贡献值兑换之后，整个战区的荣耀度全部将清零/SCOLOR=7>\
<./AUTOCOLOR=0>     <提示！><您如果未摘取荣耀，荣耀值不变，将累积到下次攻城/SCOLOR=7>\ \
<./AUTOCOLOR=0>   １:<Img:29:31> <把全区荣耀总值兑换成元宝/@领取~99> <Img:29:31>\ \
<./AUTOCOLOR=0>   ２:<Img:29:31> <返回首页/@main> <Img:29:31>\



[@领取~99]
#IF
HOUR 22 00
min 00 15
#ACT
goto @领取~89
#ELSEACT
messagebox 操作失败！\\\1：兑换时间为：２２:００-２２:１５。

[@领取~89]
#IF
ISCASTLEMASTER
#ACT
goto @领取~79
#ELSEACT
messagebox 操作失败！\\\1：您不是沙巴克城主。

[@领取~79]
#IF
CHECKGUILDLIST ..\QuestDiary\数据文件\全区荣耀领取.txt
#ACT
messagebox 操作失败！\\\1：您今天领取过了！
#elseact
goto @领取~69

[@领取~69]
#IF
#ACT
gamegold + <$STR(G300)>
SENDMOVEMSG 0 7 49 350 1 系统：本战区【沙城主】：〔<$USERNAME>〕领取了，全区联盟贡献总值的元宝[<$STR(G300)>]个，全战区勇士联盟贡献值清零，所有联盟官职已经重置！
ADDGUILDLIST ..\QuestDiary\数据文件\全区荣耀领取.txt
mov G300 0
BREAK