Blue/LEG引擎脚本-据点争夺

(@@InPutString @@InPutInteger )
[@main]
#IF
ISADMIN
#SAY
<后台管理/@据点争夺脚本后台>
#ELSESAY
<COLOR=clAqua ────>
#IF
CHECKLEVELEX > 0
#SAY
<COLOR=clAqua ──────────────────────────>\
#IF
CHECKVAR GLOBAL 据点开始判断 = 0
#SAY
　　<COLOR=clFuchsia 据点争夺战　Hot~　　类似于沙巴克争夺战的另一种玩法!>\
#ELSESAY
　　<COLOR=clFuchsia 据点争夺战　Hot~　　类似于沙巴克争夺战的另一种玩法!>\
#IF
CHECKLEVELEX > 0
#SAY
<COLOR=clAqua ㊣─☆→──────────────────────←☆─㊣>\
<COLOR=clLime 1.活动时间内,根据争据点战最后时间,光圈内的行会人数多的一方胜>\
  <COLOR=clLime 利,最后占领该据点的行会将获得1000元宝的奖励.攻城日自动取消>\
<COLOR=clRed 2.第一轮：每天($(据点1开始时间几点)(据点1开始时间几分))启动据点争夺战($(据点1地图名称)),时长$(据点1进行时间分钟)分钟.>\
<COLOR=clRed 3.第二轮：每天($(据点2开始时间几点)(据点2开始时间几分))启动据点争夺战($(据点2地图名称)),时长$(据点2进行时间分钟)分钟.>\
<COLOR=clAqua ㊣─☆→──────────────────────←☆─㊣>\
<参与活动/@据点争夺脚本进入>　　　　<领取奖励/@据点争夺脚本领奖>　　　　<据点战况/@据点争夺脚本战况>

[@据点争夺脚本战况]
#IF
CHECKVAR GLOBAL 据点开始判断 = 0
#SAY
　　 获胜行会：<$GLOBAL(据点排名行会1)>　　　　占领据点人数：<$GLOBAL(据点排名人数1)>\ \
No1、行会名字：<$GLOBAL(据点排名行会1)>　　　　占领据点人数：<$GLOBAL(据点排名人数1)>\ \
No2、行会名字：<$GLOBAL(据点排名行会2)>　　　　占领据点人数：<$GLOBAL(据点排名人数2)>\ \
No3、行会名字：<$GLOBAL(据点排名行会3)>　　　　占领据点人数：<$GLOBAL(据点排名人数3)>\ \
<COLOR=clRed 【领取获胜奖励的掌门人】>：<$GLOBAL(据点领奖姓名)>　　<返回/@MAIN>

#ELSESAY
<COLOR=clFuchsia 据点争夺战正在进行中，当前占领据点战况如下：>\ \
No1、行会名字：<$GLOBAL(据点排名行会1)>　　　　占领据点人数：<$GLOBAL(据点排名人数1)>\ \
No2、行会名字：<$GLOBAL(据点排名行会2)>　　　　占领据点人数：<$GLOBAL(据点排名人数2)>\ \
No3、行会名字：<$GLOBAL(据点排名行会3)>　　　　占领据点人数：<$GLOBAL(据点排名人数3)>\ \
<参与活动/@据点争夺脚本进入>　<COLOR=clRed 据点战将在【><$GLOBAL(据点结束小时)>:<$GLOBAL(据点结束分钟)>】<COLOR=clRed 结束，请注意把握时间！>

[@据点争夺脚本进入]
#IF
CHECKVAR GLOBAL 据点开始判断 = 0
#ACT
MESSAGEBOX 对不起，据点争夺战还未开始！
BREAK
#IF
HAVEGUILD
#ELSEACT
MESSAGEBOX 对不起，你并没有加入行会！
BREAK
#IF
CHECKGUILDLIST ..\QuestDiary\开区清空文本\据点行会申明.txt
#ELSEACT
ADDGUILDLIST ..\QuestDiary\开区清空文本\据点行会申明.txt
VAR INTEGER GUILD 据点行会人数
#IF
CHECKVAR GLOBAL 据点地图代号 =
#ACT
MESSAGEBOX 对不起，据点争夺战还未开始！
BREAK
#IF
CHECKVAR GLOBAL 据点地图名称 = 祖玛六层
#ACT
MAPMOVE <$GLOBAL(据点地图代号)>
BREAK
#IF
CHECKVAR GLOBAL 据点地图名称 = 幻境七层
#ACT
MAPMOVE <$GLOBAL(据点地图代号)>
BREAK
#ELSEACT
MAPMOVE <$GLOBAL(据点地图代号)>

[@据点争夺脚本领奖]
#IF
CHECKVAR GLOBAL 据点开始判断 > 0
#ACT
MESSAGEBOX 对不起，据点争夺战正在进行，请等待结束再来领取！
break
#IF
HAVEGUILD
#ELSEACT
MESSAGEBOX 对不起，你并没有加入行会！
BREAK
#IF
CHECKVAR GLOBAL 据点排名行会1 = <$GUILDNAME>
#ELSEACT
MESSAGEBOX 对不起，您所在的行会未获得据点战的胜利！
BREAK
#IF
ISGUILDMASTER
#ELSEACT
MESSAGEBOX 对不起，您并非掌门人，无法领取奖励！
break
#IF
CHECKVAR GLOBAL 据点领奖姓名 =
#ELSEACT
MESSAGEBOX 对不起，据点争夺战奖励已被【<$GLOBAL(据点领奖姓名)>】领取！
BREAK
#ACT
CALCVAR GLOBAL 据点领奖姓名 = <$USERNAME>
GAMEGOLD + 1000
SENDMSG 0 [据点争夺战]:[<$GUILDNAME>]行会老大[<$USERNAME>]领取了本次据点争夺战1000元宝奖励! 250 0
MESSAGEBOX [提示]:领取据点争夺战奖励成功!

[@据点争夺脚本后台]
#IF
ISADMIN
#SAY
<$DATETIME>\ \
<启动【$(据点1地图名称)】据点战/@据点争夺脚本启动1>\ \
<启动【$(据点2地图名称)】据点战/@据点争夺脚本启动2>\ \
<返回/@MAIN>


[@据点争夺脚本启动1]
#IF
ISADMIN
#ELSEACT
BREAK

#IF
CHECKLEVELEX > 0
#ACT
MOV S13
MOV S10 <$DATETIME>
DEC S10 1 19
MOV S11 <$STR(S10)>
DEC S11 2 20
#IF
EQUAL S13
EQUAL S11 ,
#ACT
MOV S13 脚本定做:3383205
DEC S10 1 1
MOV S11 <$STR(S10)>
DEC S11 3 20
MOV S12 <$STR(S10)>
DEC S12 6 20
DEC S12 1 3

#IF
EQUAL S13
#ACT
MOV S10 <$DATETIME>
DEC S10 1 20
MOV S11 <$STR(S10)>
DEC S11 2 20
#IF
EQUAL S13
EQUAL S11 ,
#ACT
MOV S13 脚本定做:3383205
DEC S10 1 1
MOV S11 <$STR(S10)>
DEC S11 3 20
MOV S12 <$STR(S10)>
DEC S12 6 20
DEC S12 1 3

#IF
EQUAL S13
#ACT
MOV S10 <$DATETIME>
DEC S10 1 21
MOV S11 <$STR(S10)>
DEC S11 2 20
#IF
EQUAL S13
EQUAL S11 ,
#ACT
MOV S13 脚本定做:3383205
DEC S10 1 1
MOV S11 <$STR(S10)>
DEC S11 3 20
MOV S12 <$STR(S10)>
DEC S12 6 20
DEC S12 1 3

#IF
CHECKLEVELEX > 0
#ACT
MOV D9 <$STR(S12)>
MOV D8 <$STR(S11)>
MUL D8 60
INC D9 <$STR(D8)>
INC D9 $(据点1进行时间分钟)
MOV D7 <$STR(D9)>
DEC D7 $(据点1结束提示分钟)
MOV D8 <$STR(D7)>
DIV D7 60
CALCVAR GLOBAL 据点提示小时 = <$STR(D7)>
MUL D7 60
DEC D8 <$STR(D7)>
CALCVAR GLOBAL 据点提示分钟 = <$STR(D8)>
MOV D8 <$STR(D9)>
DIV D9 60
CALCVAR GLOBAL 据点结束小时 = <$STR(D9)>
MUL D9 60
DEC D8 <$STR(D9)>
CALCVAR GLOBAL 据点结束分钟 = <$STR(D8)>
CALCVAR GLOBAL 据点进行时间 = $(据点1进行时间分钟)
CALCVAR GLOBAL 据点结束提示 = $(据点1结束提示分钟)
CALCVAR GLOBAL 据点地图名称 = $(据点1地图名称)
CALCVAR GLOBAL 据点地图代号 = $(据点1地图代号)
CALCVAR GLOBAL 据点地图坐标X = $(据点1地图坐标X)
CALCVAR GLOBAL 据点地图坐标Y = $(据点1地图坐标Y)
CALCVAR GLOBAL 据点地图范围 = $(据点1地图范围)
CALCVAR GLOBAL 据点开始判断 = 1
MESSAGEBOX 【$(据点1地图名称)】据点战已启动！


[@据点争夺脚本启动2]
#IF
ISADMIN
#ELSEACT
BREAK
#IF
CHECKLEVELEX > 0
#ACT
MOV S13
MOV S10 <$DATETIME>
DEC S10 1 19
MOV S11 <$STR(S10)>
DEC S11 2 20
#IF
EQUAL S13
EQUAL S11 ,
#ACT
MOV S13 脚本定做:3383205
DEC S10 1 1
MOV S11 <$STR(S10)>
DEC S11 3 20
MOV S12 <$STR(S10)>
DEC S12 6 20
DEC S12 1 3
#IF
EQUAL S13
#ACT
MOV S10 <$DATETIME>
DEC S10 1 20
MOV S11 <$STR(S10)>
DEC S11 2 20
#IF
EQUAL S13
EQUAL S11 ,
#ACT
MOV S13 脚本定做:3383205
DEC S10 1 1
MOV S11 <$STR(S10)>
DEC S11 3 20
MOV S12 <$STR(S10)>
DEC S12 6 20
DEC S12 1 3
#IF
EQUAL S13
#ACT
MOV S10 <$DATETIME>
DEC S10 1 21
MOV S11 <$STR(S10)>
DEC S11 2 20
#IF
EQUAL S13
EQUAL S11 ,
#ACT
MOV S13 脚本定做:3383205
DEC S10 1 1
MOV S11 <$STR(S10)>
DEC S11 3 20
MOV S12 <$STR(S10)>
DEC S12 6 20
DEC S12 1 3

#IF
CHECKLEVELEX > 0
#ACT
MOV D9 <$STR(S12)>
MOV D8 <$STR(S11)>
MUL D8 60
INC D9 <$STR(D8)>
INC D9 $(据点2进行时间分钟)
MOV D7 <$STR(D9)>
DEC D7 $(据点2结束提示分钟)
MOV D8 <$STR(D7)>
DIV D7 60
CALCVAR GLOBAL 据点提示小时 = <$STR(D7)>
MUL D7 60
DEC D8 <$STR(D7)>
CALCVAR GLOBAL 据点提示分钟 = <$STR(D8)>
MOV D8 <$STR(D9)>
DIV D9 60
CALCVAR GLOBAL 据点结束小时 = <$STR(D9)>
MUL D9 60
DEC D8 <$STR(D9)>
CALCVAR GLOBAL 据点结束分钟 = <$STR(D8)>
CALCVAR GLOBAL 据点进行时间 = $(据点2进行时间分钟)
CALCVAR GLOBAL 据点结束提示 = $(据点2结束提示分钟)
CALCVAR GLOBAL 据点地图名称 = $(据点2地图名称)
CALCVAR GLOBAL 据点地图代号 = $(据点2地图代号)
CALCVAR GLOBAL 据点地图坐标X = $(据点2地图坐标X)
CALCVAR GLOBAL 据点地图坐标Y = $(据点2地图坐标Y)
CALCVAR GLOBAL 据点地图范围 = $(据点2地图范围)
CALCVAR GLOBAL 据点开始判断 = 1
MESSAGEBOX 【$(据点2地图名称)】据点战已启动！


[@据点争夺脚本常量加载(QQ:3383205)]
#CALL [\据点争夺配置\据点争夺常量.ini] @据点争夺脚本常量