Leg-blue引擎据点争夺战完整脚本

积木GM论坛 发表于 2016-4-21 14:13:49

Leg-blue引擎据点争夺战完整脚本

[@Mir2m2据点争夺脚本NPC]
{
#IF
ISADMIN
#SAY
<后台管理/@Mir2m2据点争夺脚本后台><COLOR=clAqua ──────────────────────────>\
#ELSESAY
<COLOR=clAqua ──────────────────────────────>\
#IF
CHECKVAR GLOBAL 据点开始判断 = 0
#SAY
　　<COLOR=clFuchsia 据点争夺战　Hot~　　类似于沙巴克争夺战的另一种玩法!>\
#ELSESAY
<COLOR=clFuchsia 本次>【<$GLOBAL(据点地图名称)>】<COLOR=clFuchsia 据点战将在【><$GLOBAL(据点结束小时)>:<$GLOBAL(据点结束分钟)>】<COLOR=clFuchsia 结束，请注意把握时间！>\
#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 ㊣─☆→──────────────────────←☆─㊣>\
<参与活动/@Mir2m2据点争夺脚本进入>　　　　<领取奖励/@Mir2m2据点争夺脚本领奖>　　　　<据点战况/@Mir2m2据点争夺脚本战况>

[@Mir2m2据点争夺脚本战况]
#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(据点领奖姓名)>　　<返回/@Mir2m2据点争夺脚本NPC>

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

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

[@Mir2m2据点争夺脚本领奖]
#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>
SAVEVAR GLOBAL 据点领奖姓名 ..\QuestDiary\Mir2m2开区清空文本(免费脚本群.347979)\Mir2m2据点争夺变量.txt
GAMEGOLD + 1000
SENDMSG 0 [据点争夺战]:[<$GUILDNAME>]行会老大[<$USERNAME>]领取了本次据点争夺战1000元宝奖励! 250 0
MESSAGEBOX [提示]:领取据点争夺战奖励成功!

[@Mir2m2据点争夺脚本后台]
#IF
ISADMIN
#SAY
<启动【$(据点1地图名称)】据点战/@Mir2m2据点争夺脚本启动1>\ \
<启动【$(据点2地图名称)】据点战/@Mir2m2据点争夺脚本启动2>\ \
<返回/@Mir2m2据点争夺脚本NPC>
[@Mir2m2据点争夺脚本启动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 免费脚本群:347979
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 免费脚本群:347979
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 免费脚本群:347979
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地图名称)】据点战已启动！

[@Mir2m2据点争夺脚本启动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 免费脚本群:347979
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 免费脚本群:347979
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 免费脚本群:347979
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地图名称)】据点战已启动！

[@Mir2m2据点争夺脚本常量加载(免费脚本群.347979)]
#CALL [\Mir2m2据点争夺配置(免费脚本群.347979)\Mir2m2据点争夺常量.ini] @Mir2m2据点争夺脚本常量
}

[@Mir2m2据点争夺脚本QM]
{
#ACT
VAR Integer HUMAN 据点个人封号
MOV D71 1
goto @Mir2m2据点争夺结束提示

[@Mir2m2据点争夺脚本清零]
#IF
CHECKVAR GLOBAL 据点开始判断 = 0
#ACT
break
#IF
HAVEGUILD
#ELSEACT
BREAK
#IF
CHECKINMAPRANGE <$GLOBAL(据点地图代号)> <$GLOBAL(据点地图坐标X)> <$GLOBAL(据点地图坐标Y)> <$GLOBAL(据点地图范围)>
#ELSEACT
BREAK
#IF
CHECKVAR GUILD 据点行会人数 > 0
#ACT
CALCVAR GUILD 据点行会人数 = 0

[@Mir2m2据点争夺脚本计算]
#IF
CHECKVAR GLOBAL 据点开始判断 = 0
#ACT
break
#IF
HAVEGUILD
#ELSEACT
BREAK
#IF
CHECKINMAPRANGE <$GLOBAL(据点地图代号)> <$GLOBAL(据点地图坐标X)> <$GLOBAL(据点地图坐标Y)> <$GLOBAL(据点地图范围)>
#ELSEACT
BREAK
#ACT
CALCVAR GUILD 据点行会人数 + 1
#IF
CHECKVAR GLOBAL 据点排名行会1 = <$GUILDNAME>
#ACT
CALCVAR GLOBAL 据点排名人数1 = <$GUILD(据点行会人数)>
break
#IF
CHECKVAR GLOBAL 据点排名行会2 = <$GUILDNAME>
#ACT
CALCVAR GLOBAL 据点排名人数2 = <$GUILD(据点行会人数)>
break
#IF
CHECKVAR GLOBAL 据点排名行会3 = <$GUILDNAME>
#ACT
CALCVAR GLOBAL 据点排名人数3 = <$GUILD(据点行会人数)>
break

[@Mir2m2据点争夺脚本统计]
#IF
CHECKVAR GLOBAL 据点开始判断 = 0
#ACT
break
#IF
HAVEGUILD
#ELSEACT
BREAK
#IF
CHECKINMAPRANGE <$GLOBAL(据点地图代号)> <$GLOBAL(据点地图坐标X)> <$GLOBAL(据点地图坐标Y)> <$GLOBAL(据点地图范围)>
#ELSEACT
BREAK
#ACT
MOV S10
MOV D9 4
; ↑D9=排名总数+1
#IF
CHECKVAR GLOBAL 据点排名行会1 = <$GUILDNAME>
#ACT
CALCVAR GLOBAL 据点排名人数1 = <$GUILD(据点行会人数)>
break
#IF
CHECKVAR GLOBAL 据点排名行会2 = <$GUILDNAME>
#ACT
MOV D9 2
CALCVAR GLOBAL 据点排名人数2 = <$GUILD(据点行会人数)>
#IF
CHECKVAR GLOBAL 据点排名行会3 = <$GUILDNAME>
#ACT
MOV D9 3
CALCVAR GLOBAL 据点排名人数3 = <$GUILD(据点行会人数)>

;↓【排名循环段，有多少个排名至少复制多少段，可多不可少】
#IF
CHECKLEVELEX > 0
#ACT
MOV D8 <$STR(D9)>
DEC D8 1
#IF
CHECKVAR GLOBAL 据点排名人数<$STR(D8)> < <$GUILD(据点行会人数)>
#ACT
MOV S11 <$GLOBAL(
INC S11 据点排名行会<$STR(D8)>
INC S11 )>
MOV S12 <$STR(S11)>
MOV S11 <$GLOBAL(
INC S11 据点排名人数<$STR(D8)>
INC S11 )>
MOV S11 <$STR(S11)>
CALCVAR GLOBAL 据点排名行会<$STR(D9)> = <$STR(S12)>
CALCVAR GLOBAL 据点排名人数<$STR(D9)> = <$STR(S11)>
MOV S10 恭喜【<$GUILDNAME>】占领据点【<$GUILD(据点行会人数)>人】，排名提升为第<$STR(D8)>位！
DEC D9 1
#IF
EQUAL D8 1
#ACT
MOV D8 0
#IF
LARGE D9 <$STR(D8)>
EQUAL S10
#ACT
break
#IF
LARGE D9 <$STR(D8)>
#ACT
CALCVAR GLOBAL 据点排名行会<$STR(D9)> = <$GUILDNAME>
CALCVAR GLOBAL 据点排名人数<$STR(D9)> = <$GUILD(据点行会人数)>
;SENDMSG 0 <$STR(S10)> 255 225
break
;↑【排名循环段，有多少个排名至少复制多少段，可多不可少】

;↓【排名循环段，有多少个排名至少复制多少段，可多不可少】
#IF
CHECKLEVELEX > 0
#ACT
MOV D8 <$STR(D9)>
DEC D8 1
#IF
CHECKVAR GLOBAL 据点排名人数<$STR(D8)> < <$GUILD(据点行会人数)>
#ACT
MOV S11 <$GLOBAL(
INC S11 据点排名行会<$STR(D8)>
INC S11 )>
MOV S12 <$STR(S11)>
MOV S11 <$GLOBAL(
INC S11 据点排名人数<$STR(D8)>
INC S11 )>
MOV S11 <$STR(S11)>
CALCVAR GLOBAL 据点排名行会<$STR(D9)> = <$STR(S12)>
CALCVAR GLOBAL 据点排名人数<$STR(D9)> = <$STR(S11)>
MOV S10 恭喜【<$GUILDNAME>】占领据点【<$GUILD(据点行会人数)>人】，排名提升为第<$STR(D8)>位！
DEC D9 1
#IF
EQUAL D8 1
#ACT
MOV D8 0
#IF
LARGE D9 <$STR(D8)>
EQUAL S10
#ACT
break
#IF
LARGE D9 <$STR(D8)>
#ACT
CALCVAR GLOBAL 据点排名行会<$STR(D9)> = <$GUILDNAME>
CALCVAR GLOBAL 据点排名人数<$STR(D9)> = <$GUILD(据点行会人数)>
;SENDMSG 0 <$STR(S10)> 255 225
break
;↑【排名循环段，有多少个排名至少复制多少段，可多不可少】

;↓【排名循环段，有多少个排名至少复制多少段，可多不可少】
#IF
CHECKLEVELEX > 0
#ACT
MOV D8 <$STR(D9)>
DEC D8 1
#IF
CHECKVAR GLOBAL 据点排名人数<$STR(D8)> < <$GUILD(据点行会人数)>
#ACT
MOV S11 <$GLOBAL(
INC S11 据点排名行会<$STR(D8)>
INC S11 )>
MOV S12 <$STR(S11)>
MOV S11 <$GLOBAL(
INC S11 据点排名人数<$STR(D8)>
INC S11 )>
MOV S11 <$STR(S11)>
CALCVAR GLOBAL 据点排名行会<$STR(D9)> = <$STR(S12)>
CALCVAR GLOBAL 据点排名人数<$STR(D9)> = <$STR(S11)>
MOV S10 恭喜【<$GUILDNAME>】占领据点【<$GUILD(据点行会人数)>人】，排名提升为第<$STR(D8)>位！
DEC D9 1
#IF
EQUAL D8 1
#ACT
MOV D8 0
#IF
LARGE D9 <$STR(D8)>
EQUAL S10
#ACT
break
#IF
LARGE D9 <$STR(D8)>
#ACT
CALCVAR GLOBAL 据点排名行会<$STR(D9)> = <$GUILDNAME>
CALCVAR GLOBAL 据点排名人数<$STR(D9)> = <$GUILD(据点行会人数)>
;SENDMSG 0 <$STR(S10)> 255 225
break
;↑【排名循环段，有多少个排名至少复制多少段，可多不可少】

[@Mir2m2据点争夺脚本封号]
#IF
EQUAL D71 0
ONLINELONGMIN < 1
#ACT
break

#IF
CHECKVAR GLOBAL 据点开始判断 > 0
CHECKVAR GLOBAL 据点排名行会1 = <$GUILDNAME>
#ACT
CALCVAR HUMAN 据点个人封号 = 1
SETRANKLEVELNAME %s\占领【<$GLOBAL(据点地图名称)>】据点(<$GLOBAL(据点排名人数1)>人)
;DELAYGOTO 1 @Mir2m2人物封号脚本
;增加封号，可改为调用【@Mir2m2人物封号脚本】累加封号
break

#IF
CHECKVAR HUMAN 据点个人封号 = 1
#ACT
CALCVAR HUMAN 据点个人封号 = 0
SETRANKLEVELNAME %s
;DELAYGOTO 1 @Mir2m2人物封号脚本
;恢复封号，可改为调用【@Mir2m2人物封号脚本】累加封号
break

[@Mir2m2据点争夺结束提示]
#IF
CHECKVAR GLOBAL 据点开始判断 = 3
#ACT
SENDMSG 6 【<$GLOBAL(据点地图名称)>】据点战将在【%t秒】后结束！ 255 253 <$GLOBAL(据点开始计时)>

[@Mir2m2据点争夺脚本显示]
　　获胜行会：<$GLOBAL(据点排名行会1)>　　　　占领据点人数：<$GLOBAL(据点排名人数1)>\ \
No1、行会名字：<$GLOBAL(据点排名行会1)>　　　　占领据点人数：<$GLOBAL(据点排名人数1)>\ \
No2、行会名字：<$GLOBAL(据点排名行会2)>　　　　占领据点人数：<$GLOBAL(据点排名人数2)>\ \
No3、行会名字：<$GLOBAL(据点排名行会3)>　　　　占领据点人数：<$GLOBAL(据点排名人数3)>\ \
}

回复完整脚本下载

**** Hidden Message *****

6723423112g 发表于 2016-4-21 14:13:49

这么强,支持楼主，佩服

听风炙歌 发表于 2016-4-21 14:15:54

路过的帮顶

男人天地 发表于 2016-4-21 14:18:56

边撸边过

乱莫大神 发表于 2016-4-21 14:22:14

边撸边过

6723487956a 发表于 2016-4-21 14:27:32

纯粹路过，没任何兴趣，仅仅是看在老用户份上回复一下

asd213@123.com 发表于 2016-4-21 14:34:00

过来看看的

下次V风格 发表于 2016-4-21 14:36:17

这么强,支持楼主，佩服

战狼吴京 发表于 2016-4-21 14:41:38

为毛老子总也抢不到沙发？！！

小小小小样子 发表于 2016-4-21 14:44:39

写的真的很不错

页: [1] 2 3 4 5 6 7 8 9 10

他也玩传奇's Archiver

Leg-blue引擎据点争夺战完整脚本