leg/blue引擎脚本-Mir2m2攻沙统计

GM版本库

亲测可用：攻沙统计奖励脚本[Mir2m2攻沙统计奖励脚本]请按照目录路径进行添加
===========================================
下载地址： Mir2m2攻沙统计脚本.txt (48 Bytes, 下载次数: 3, 售价: 200 元宝)

2017-12-2 19:17 上传

点击文件名下载附件
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 String  HUMAN 攻沙个人位置
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 String  GLOBAL 攻沙统计时间1
VAR String  GLOBAL 攻沙统计时间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攻沙统计常量
}