[@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)>\ \
}
回复完整脚本下载
|
|
[复制链接]
