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

  [复制链接]
查看13461 | 回复135 | 2016-4-21 14:13:49 | 显示全部楼层 |阅读模式
[@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)>\ \
}



回复完整脚本下载

游客,如果您要查看本帖隐藏内容请回复



上一篇:Legend引擎英雄管理脚本
下一篇:水果机 老虎机完整脚本
他也玩传奇GM论坛回复帖子即可出现下载地址!站长QQ:89559111 QQ群:9700052 骗子较多,防范骗子
传奇技术问题请去【新手问答】提问,不予个人回复!右侧导航每日签到可以免费领取金币
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 | 显示全部楼层
写的真的很不错
懒得打字嘛,点击右侧快捷回复 快捷回复框
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则