leg/blue引擎脚本-Mir2m2攻沙统计
亲测可用：攻沙统计奖励脚本请按照目录路径进行添加===========================================
下载地址：
===========================================
===========================================
[@Mir2m2攻沙统计脚本NPC]
{
#IF
CHECKLEVELEX > 0
#ACT
MOV D9 <$GLOBAL(攻沙统计人数1)>
MUL D9 $(攻沙统计奖励增加)
INC D9 $(攻沙统计奖励基数)
#IF
LARGE D9 $(攻沙统计奖励封顶)
#ACT
MOV D9 $(攻沙统计奖励封顶)
#IF
CHECKLEVELEX > 0
#SAY
<$青1 〓〓〓> <$紫0 最人性化的智能攻沙奖励系统> —— <$紫0 人数就是金钱> <$青1 〓〓〓>\
<$橙0 同时参与攻沙的人数决定奖励数量，人数越多，攻沙奖励越丰厚！>\
<$紫1 人数计算方式：攻城期间任一时刻位于攻城区域的最高玩家总人数>\
<$红0 注意:><$青1 等级小于$(攻沙统计最低等级)级> <$红0 或> <$青1 不在攻城区域跑动的玩家> <$橙0 不算入人数统计>\
<$绿3 攻沙基本奖励：$(攻沙统计奖励基数) 元宝 人数每增加1人奖励增加：$(攻沙统计奖励增加) 元宝>\
<$绿3 当前奖励累计：><$STR(D9)> <$绿3 元宝> <$青1 （奖励最高为 $(攻沙统计奖励封顶) 元宝封顶）>\
<$紫1 本次攻沙最高人数：><$GLOBAL(攻沙统计人数1)> <$紫1 人 时间：><$GLOBAL(攻沙统计时间1)>\
<$绿1 历史攻沙最高人数：><$GLOBAL(攻沙统计人数2)> <$绿1 人 时间：><$GLOBAL(攻沙统计时间2)>\
<领取攻沙奖励/@Mir2m2攻沙统计领取奖励>
;<$红0 达到一定人数还可获得额外奖励> <查看额外奖励/@Mir2m2攻沙统计额外奖励>
[@Mir2m2攻沙统计额外奖励]
#ACT
MESSAGEBOX 1.人数达到50人额外奖励RMB300元！\ \2.人数达到100人额外奖励RMB1000元！\ \3.人数达到150人额外奖励RMB2000元！\ \攻完沙直接领取，人民币点自动加入角色名中！
[@Mir2m2攻沙统计领取奖励]
#IF
CHECKCASTLEWAR
#ACT
MESSAGEBOX 对不起，正在攻城中！请结束后再来领取！
Close
break
#IF
hour 22 24
#ELSEACT
MESSAGEBOX 对不起，领取时间必须在晚上22点-24点之间！
Close
break
#IF
ISCASTLEMASTER
#ELSEACT
MESSAGEBOX 对不起，你不是沙城主！
Close
break
#IF
CHECKVAR GLOBAL 攻沙统计领奖 = 0
#ACT
MESSAGEBOX 对不起，攻沙战还没有开始！
Close
break
#IF
CHECKVAR GLOBAL 攻沙统计领奖 = 2
#ELSEACT
MESSAGEBOX 对不起，当前攻沙奖励已经领取！
Close
break
#ACT
CALCVAR GLOBAL 攻沙统计领奖 = 1
SAVEVAR GLOBAL 攻沙统计领奖 ..\QuestDiary\Mir2m2开区清空文本(技术QQ.537036801)\Mir2m2攻沙统计变量.txt
#IF
CHECKLEVELEX > 0
#ACT
MOV D9 <$GLOBAL(攻沙统计人数1)>
MUL D9 $(攻沙统计奖励增加)
INC D9 $(攻沙统计奖励基数)
#IF
LARGE D9 $(攻沙统计奖励封顶)
#ACT
MOV D9 $(攻沙统计奖励封顶)
#IF
CHECKLEVELEX > 0
#ACT
GAMEGOLD + <$STR(D9)>
SENDMSG 0 伟大的沙巴克城主【%s】领取了沙城累计奖励【<$STR(D9)>元宝】 255 221
#IF
CHECKVAR GLOBAL 攻沙统计人数1 ? 150
#ACT
;GAMEGOLD + 100000
;GIVE 500元人民币卷 4
;SENDMSG 0 伟大的沙巴克城主【%s】领取了沙城参战人数达到150人的额外奖励【RMB2000元】 255 221
break
#IF
CHECKVAR GLOBAL 攻沙统计人数1 ? 100
#ACT
;GAMEGOLD + 50000
;GIVE 500元人民币卷 2
;SENDMSG 0 伟大的沙巴克城主【%s】领取了沙城参战人数达到100人的额外奖励【RMB1000元】 255 221
break
#IF
CHECKVAR GLOBAL 攻沙统计人数1 ? 50
#ACT
;GAMEGOLD + 20000
;GIVE 300元人民币卷 1
;SENDMSG 0 伟大的沙巴克城主【%s】领取了沙城参战人数达到50人的额外奖励【RMB300元】 255 221
break
[@Mir2m2攻沙统计常量加载]
#CALL [\Mir2m2攻沙统计配置(技术QQ.537036801)\Mir2m2攻沙统计常量.INI] @Mir2m2攻沙统计常量
#INCLUDE 技术QQ537036801.ini
}
[@Mir2m2攻沙统计脚本QM]
{
#ACT
VAR Integer HUMAN 攻沙个人计时1
VAR Integer HUMAN 攻沙个人计时2
VAR StringHUMAN 攻沙个人位置
MOV D77 1
[@Mir2m2攻沙统计人数计算]
#IF
CHECKLEVELEX ? $(攻沙统计进入等级)
CHECKLEVELEX < $(攻沙统计最低等级)
#ACT
BREAK
#ELSEACT
MOV D9 0
#IF
ISONMAP 0150
#ACT
MOV D9 1
#IF
EQUAL D9 0
CheckInMapRange $(攻沙统计沙城地图) $(攻沙统计沙城坐标X) $(攻沙统计沙城坐标Y) $(攻沙统计沙城范围)
#ACT
MOV D9 1
#IF
EQUAL D9 0
#ACT
BREAK
#IF
CHECKLEVELEX < $(攻沙统计进入等级)
#ACT
MAPMOVE 3 330 330
MESSAGEBOX 对不起，等级低于$(攻沙统计进入等级)级不能进入攻城区域！\ \系统已将你传送回土城！
BREAK
#IF
CHECKLEVELEX < $(攻沙统计最低等级)
#ACT
BREAK
#IF
EQUAL D77 0
ONLINELONGMIN < 1
#ACT
break
#IF
checkvar HUMAN 攻沙个人位置 = <$CURRENTMAP>#<$CURRENTX>#<$CURRENTY>
#ACT
CALCVAR HUMAN 攻沙个人计时1 + 10
#ELSEACT
CALCVAR HUMAN 攻沙个人计时1 = 0
CALCVAR HUMAN 攻沙个人位置 = <$CURRENTMAP>#<$CURRENTX>#<$CURRENTY>
#IF
checkvar HUMAN 攻沙个人计时1 < $(攻沙统计站立时间)
#ACT
CALCVAR HUMAN 攻沙个人计时2 + 10
#ELSEACT
CALCVAR HUMAN 攻沙个人计时2 = 0
SENDMSG 6 您长时间站立不动，不算入攻沙统计人数！请活动一下！
#IF
checkvar HUMAN 攻沙个人计时2 ? $(攻沙统计最低时间)
#ACT
CALCVAR GLOBAL 攻沙统计计数 + 1
[@Mir2m2攻沙统计常量加载]
#CALL [\Mir2m2攻沙统计配置(技术QQ.537036801)\Mir2m2攻沙统计常量.INI] @Mir2m2攻沙统计常量
}
[@Mir2m2攻沙统计脚本RM]
{
#IF
SMALL I76 347979
#ACT
MOV I76 347979
VAR Integer GLOBAL 攻沙统计计数
VAR Integer GLOBAL 攻沙统计人数1
VAR Integer GLOBAL 攻沙统计人数2
VAR StringGLOBAL 攻沙统计时间1
VAR StringGLOBAL 攻沙统计时间2
VAR Integer GLOBAL 攻沙统计领奖
LOADVAR GLOBAL 攻沙统计人数1 ..\QuestDiary\Mir2m2开区清空文本(技术QQ.537036801)\Mir2m2攻沙统计变量.txt
LOADVAR GLOBAL 攻沙统计时间1 ..\QuestDiary\Mir2m2开区清空文本(技术QQ.537036801)\Mir2m2攻沙统计变量.txt
LOADVAR GLOBAL 攻沙统计人数2 ..\QuestDiary\Mir2m2开区清空文本(技术QQ.537036801)\Mir2m2攻沙统计变量.txt
LOADVAR GLOBAL 攻沙统计时间2 ..\QuestDiary\Mir2m2开区清空文本(技术QQ.537036801)\Mir2m2攻沙统计变量.txt
LOADVAR GLOBAL 攻沙统计领奖 ..\QuestDiary\Mir2m2开区清空文本(技术QQ.537036801)\Mir2m2攻沙统计变量.txt
#IF
checkcastlewar
#ELSEACT
BREAK
#ACT
CALCVAR GLOBAL 攻沙统计计数 = 0
GMEXECUTE $(攻沙全服触发命令) @Mir2m2攻沙统计人数计算
#IF
checkvar GLOBAL 攻沙统计领奖 < 2
#ACT
CALCVAR GLOBAL 攻沙统计领奖 = 2
SAVEVAR GLOBAL 攻沙统计领奖 ..\QuestDiary\Mir2m2开区清空文本(技术QQ.537036801)\Mir2m2攻沙统计变量.txt
CALCVAR GLOBAL 攻沙统计人数1 = 0
CALCVAR GLOBAL 攻沙统计时间1 = <$DATETIME>
SAVEVAR GLOBAL 攻沙统计人数1 ..\QuestDiary\Mir2m2开区清空文本(技术QQ.537036801)\Mir2m2攻沙统计变量.txt
SAVEVAR GLOBAL 攻沙统计时间1 ..\QuestDiary\Mir2m2开区清空文本(技术QQ.537036801)\Mir2m2攻沙统计变量.txt
#IF
checkvar GLOBAL 攻沙统计人数1 < <$GLOBAL(攻沙统计计数)>
#ACT
CALCVAR GLOBAL 攻沙统计人数1 = <$GLOBAL(攻沙统计计数)>
CALCVAR GLOBAL 攻沙统计时间1 = <$DATETIME>
SAVEVAR GLOBAL 攻沙统计人数1 ..\QuestDiary\Mir2m2开区清空文本(技术QQ.537036801)\Mir2m2攻沙统计变量.txt
SAVEVAR GLOBAL 攻沙统计时间1 ..\QuestDiary\Mir2m2开区清空文本(技术QQ.537036801)\Mir2m2攻沙统计变量.txt
SENDMSG 0 本次攻沙参战人数目前已达到【<$GLOBAL(攻沙统计人数1)>人】！ 255 221
#IF
checkvar GLOBAL 攻沙统计人数2 < <$GLOBAL(攻沙统计人数1)>
#ACT
SENDMSG 0 本次攻沙参战人数已突破历史记录的【<$GLOBAL(攻沙统计人数2)>人】！ 255 221
CALCVAR GLOBAL 攻沙统计人数2 = <$GLOBAL(攻沙统计人数1)>
CALCVAR GLOBAL 攻沙统计时间2 = <$DATETIME>
SAVEVAR GLOBAL 攻沙统计人数2 ..\QuestDiary\Mir2m2开区清空文本(技术QQ.537036801)\Mir2m2攻沙统计变量.txt
SAVEVAR GLOBAL 攻沙统计时间2 ..\QuestDiary\Mir2m2开区清空文本(技术QQ.537036801)\Mir2m2攻沙统计变量.txt
[@Mir2m2攻沙统计常量加载]
#CALL [\Mir2m2攻沙统计配置(技术QQ.537036801)\Mir2m2攻沙统计常量.INI] @Mir2m2攻沙统计常量
}
页:
[1]