leg/blue引擎脚本-Mir2m2飞行棋脚本

GM版本库

亲测可用：飞行棋脚本[Mir2m2飞行棋脚本]请按照目录路径进行添加
------------------------------------------------------------------------------------
下载地址： Mir2m2飞行棋NP.txt (49 Bytes, 下载次数: 6, 售价: 300 元宝)

2017-12-2 19:53 上传

点击文件名下载附件
飞行棋脚本

------------------------------------------------------------------------------------

------------------------------------------------------------------------------------
[@Mir2m2飞行棋脚本NPC]
{
#IF
CHECKLEVELEX > 0
#ACT
MOV S10 <$CURRENTMAP>
DEC S10 10 200
MOV S11
#IF
EQUAL S10 feixingqi
#SAY
<COLOR=clAqua 您当前位于：第> <$HUMAN(飞行个人层数)> <COLOR=clAqua 层>    <返回土城/@Mir2m2飞行棋返回土城>\
#ELSESAY
<COLOR=clAqua 飞行棋系统说明：>\

#IF
CHECKLEVELEX > 0
#SAY
<COLOR=clAqua 每人每天可免费摇骰$(飞行棋免费摇骰)次，超过后可使用 $(飞行棋摇骰价格) 元宝摇骰>\
<COLOR=clAqua 摇出几点则前进几步，终点层数为第> $(飞行棋终点层数) <COLOR=clAqua 层，终点爆轩辕剑甲>\
<COLOR=clAqua 如摇出的骰子前进后超过终点层数，则返回到第一层重新前进>\
<COLOR=clAqua 如摇到6则不扣除元宝或次数！>\ \

#IF
checkvar human 飞行个人次数 < $(飞行棋免费摇骰)
#SAY
<免费摇骰前进/@Mir2m2飞行棋进入摇骰>  您今日已免费摇骰【<$HUMAN(飞行个人次数)>/$(飞行棋免费摇骰)次】，超出后可付费摇骰！\
#ELSESAY
<付费摇骰前进/@Mir2m2飞行棋进入摇骰>  您今日已免费摇骰【<$HUMAN(飞行个人次数)>/$(飞行棋免费摇骰)次】，可支付【$(飞行棋摇骰价格)元宝】摇骰！\

[@Mir2m2飞行棋返回土城]
#IF
CHECKLEVELEX > 0
#ACT
MAPMOVE 3 330 330

[@Mir2m2飞行棋进入摇骰]
#IF
CHECKLEVELEX < $(飞行棋进入等级)
#ACT
MESSAGEBOX 对不起，等级达到$(飞行棋进入等级)级才能进入！
break

#IF
CHECKLEVELEX > 0
#ACT
MOV S10 <$CURRENTMAP>
#IF
EQUAL S10 feixingqi0
#ACT
CALCVAR HUMAN 飞行个人层数 = 0
#IF
CHECKLEVELEX > 0
#ACT
DEC S10 10 200
#IF
EQUAL S10 feixingqi
#ELSEACT
CALCVAR HUMAN 飞行个人层数 = 0

#IF
checkvar human 飞行个人层数 = $(飞行棋终点层数)
#ACT
MESSAGEBOX 对不起，你已到达终点第<$HUMAN(飞行个人层数)>层！
close
break
#IF
checkvar human 飞行个人层数 > 0
CheckRangeMonCount <$CURRENTMAP> <$CURRENTX> <$CURRENTY> 100 > 0
#ACT
MESSAGEBOX 对不起，杀完本地图所有怪物才能进入下一层！
close
break
#IF
checkvar human 飞行个人次数 ? $(飞行棋免费摇骰)
CHECKGAMEGOLD < $(飞行棋摇骰价格)
#act
MESSAGEBOX 对不起，您身上的元宝不足【$(飞行棋摇骰价格)个】！\　\如摇到6则不扣除元宝免费进入！
close
break
#IF
CHECKLEVELEX > 0
#ACT
MOVR D0 6
INC D0 1
CALCVAR HUMAN 飞行个人骰子 = <$STR(D0)>
close
PLAYDICE 1 @Mir2m2飞行棋进入确定
MOV D0 0

[@Mir2m2飞行棋进入确定]
#IF
checkvar human 飞行个人骰子 > 0
checkvar human 飞行个人骰子 < 7
#ELSEACT
MESSAGEBOX 非法操作，请勿使用外挂跳转！
close
break

#IF
checkvar human 飞行个人次数 ? $(飞行棋免费摇骰)
CHECKGAMEGOLD < $(飞行棋摇骰价格)
#act
CALCVAR HUMAN 飞行个人骰子 = 0
MESSAGEBOX 对不起，您身上的元宝已不足【$(飞行棋摇骰价格)个】！\　\摇动骰子后请勿将元宝转走！
close
break

#IF
checkvar human 飞行个人次数 ? $(飞行棋免费摇骰)
checkvar human 飞行个人骰子 < 6
#ACT
GAMEGOLD - $(飞行棋摇骰价格)
SENDMSG 6 本次摇骰扣除$(飞行棋摇骰价格)元宝，当前身上剩余：<$GAMEGOLD>元宝

#IF
checkvar human 飞行个人次数 < $(飞行棋免费摇骰)
checkvar human 飞行个人骰子 < 6
#ACT
CALCVAR HUMAN 飞行个人次数 + 1
SAVEVAR HUMAN 飞行个人次数 ..\QuestDiary\Mir2m2开区清空文本(技术QQ.537036801)\Mir2m2飞行个人次数.txt
SENDMSG 6 您今日已免费摇骰【<$HUMAN(飞行个人次数)>/$(飞行棋免费摇骰)次】

#IF
CHECKLEVELEX > 0
#ACT
MOV P8 0
MOV D9 <$HUMAN(飞行个人骰子)>
MOV P7 <$HUMAN(飞行个人层数)>
INC P7 <$HUMAN(飞行个人骰子)>
#IF
LARGE P7 $(飞行棋终点层数)
#ACT
MOV P7 1
#IF
CHECKLEVELEX > 0
#ACT
MOV S10 feixingqi
INC S10 <$STR(P7)>
ClearMapMon <$STR(S10)>
ClearMapItem <$STR(S10)> $(飞行棋所飞坐标X) $(飞行棋所飞坐标Y) 100

#IF
EQUAL P7 1
#ACT
PARAM1 <$STR(S10)>
PARAM2 $(飞行棋所飞坐标X)
PARAM3 $(飞行棋所飞坐标Y)
MONGEN 暗之魔龙教主 1 2

#IF
LARGE P7 1
SMALL P7 11
#ACT
PARAM1 <$STR(S10)>
PARAM2 $(飞行棋所飞坐标X)
PARAM3 $(飞行棋所飞坐标Y)
MONGEN 暗之魔龙教主 1 2

#IF
EQUAL P7 5
#ACT
PARAM1 <$STR(S10)>
PARAM2 $(飞行棋所飞坐标X)
PARAM3 $(飞行棋所飞坐标Y)
MONGEN 浮游法神 1 2

#IF
EQUAL P7 10
#ACT
PARAM1 <$STR(S10)>
PARAM2 $(飞行棋所飞坐标X)
PARAM3 $(飞行棋所飞坐标Y)
MONGEN 洪荒神龙 1 2

#IF
EQUAL P7 15
#ACT
PARAM1 <$STR(S10)>
PARAM2 $(飞行棋所飞坐标X)
PARAM3 $(飞行棋所飞坐标Y)
MONGEN 上古女娲 1 2

#IF
EQUAL P7 19
#ACT
PARAM1 <$STR(S10)>
PARAM2 $(飞行棋所飞坐标X)
PARAM3 $(飞行棋所飞坐标Y)
MONGEN 至尊神龙 1 2

#IF
EQUAL P7 24
#ACT
PARAM1 <$STR(S10)>
PARAM2 $(飞行棋所飞坐标X)
PARAM3 $(飞行棋所飞坐标Y)
MONGEN 崎岖霸主 1 2

#IF
EQUAL P7 25
#ACT
PARAM1 <$STR(S10)>
PARAM2 $(飞行棋所飞坐标X)
PARAM3 $(飞行棋所飞坐标Y)
MONGEN 宙斯道神 1 2

#IF
EQUAL P7 26
#ACT
PARAM1 <$STR(S10)>
PARAM2 $(飞行棋所飞坐标X)
PARAM3 $(飞行棋所飞坐标Y)
MONGEN 镇殿BOSS 1 2

#IF
EQUAL P7 27
#ACT
PARAM1 <$STR(S10)>
PARAM2 $(飞行棋所飞坐标X)
PARAM3 $(飞行棋所飞坐标Y)
MONGEN 至尊巨龙 1 2

#IF
EQUAL P7 28
#ACT
PARAM1 <$STR(S10)>
PARAM2 $(飞行棋所飞坐标X)
PARAM3 $(飞行棋所飞坐标Y)
MONGEN 远古巨虎 1 2

#IF
EQUAL P7 29
#ACT
PARAM1 <$STR(S10)>
PARAM2 $(飞行棋所飞坐标X)
PARAM3 $(飞行棋所飞坐标Y)
MONGEN 神兽Ψ傲因 1 2

#IF
EQUAL P7 30
#ACT
PARAM1 <$STR(S10)>
PARAM2 $(飞行棋所飞坐标X)
PARAM3 $(飞行棋所飞坐标Y)
MONGEN 神兽Ψ勾陈 1 2

#IF
LARGE P7 30
SMALL P7 $(飞行棋终点层数)
#ACT
PARAM1 <$STR(S10)>
PARAM2 $(飞行棋所飞坐标X)
PARAM3 $(飞行棋所飞坐标Y)
MONGEN 暗之魔龙教主 1 2

#IF
EQUAL P7 $(飞行棋终点层数)
#ACT
PARAM1 <$STR(S10)>
PARAM2 $(飞行棋所飞坐标X)
PARAM3 $(飞行棋所飞坐标Y)
MONGEN 暗之魔龙教主1 10 2

#IF
checkvar human 飞行个人骰子 = 0
#ACT
SENDMSG 0 勇士【%s】摇到【<$STR(D9)>】进入【飞行棋第<$HUMAN(飞行个人层数)>层】！ 5 255
break
#IF
CHECKLEVELEX > 0
#ACT
CALCVAR HUMAN 飞行个人层数 + 1
CALCVAR HUMAN 飞行个人骰子 - 1
#IF
checkvar human 飞行个人层数 > $(飞行棋终点层数)
#ACT
CALCVAR HUMAN 飞行个人层数 = 1
#IF
CHECKLEVELEX > 0
#ACT
MOV S10 feixingqi
INC S10 <$HUMAN(飞行个人层数)>
MAPMOVE <$STR(S10)> $(飞行棋所飞坐标X) $(飞行棋所飞坐标Y)
INC P8 1
SENDMSG 6 前进【<$STR(P8)>/<$STR(D9)>】步，当前位置【第<$HUMAN(飞行个人层数)>层】
#IF
checkvar human 飞行个人骰子 = 0
#ACT
SENDMSG 0 勇士【%s】摇到【<$STR(D9)>】进入【飞行棋第<$HUMAN(飞行个人层数)>层】！ 5 255
break
#IF
CHECKLEVELEX > 0
#ACT
CALCVAR HUMAN 飞行个人层数 + 1
CALCVAR HUMAN 飞行个人骰子 - 1
#IF
checkvar human 飞行个人层数 > $(飞行棋终点层数)
#ACT
CALCVAR HUMAN 飞行个人层数 = 1
#IF
CHECKLEVELEX > 0
#ACT
MOV S10 feixingqi
INC S10 <$HUMAN(飞行个人层数)>
MAPMOVE <$STR(S10)> $(飞行棋所飞坐标X) $(飞行棋所飞坐标Y)
INC P8 1
SENDMSG 6 前进【<$STR(P8)>/<$STR(D9)>】步，当前位置【第<$HUMAN(飞行个人层数)>层】
#IF
checkvar human 飞行个人骰子 = 0
#ACT
SENDMSG 0 勇士【%s】摇到【<$STR(D9)>】进入【飞行棋第<$HUMAN(飞行个人层数)>层】！ 5 255
break
#IF
CHECKLEVELEX > 0
#ACT
CALCVAR HUMAN 飞行个人层数 + 1
CALCVAR HUMAN 飞行个人骰子 - 1
#IF
checkvar human 飞行个人层数 > $(飞行棋终点层数)
#ACT
CALCVAR HUMAN 飞行个人层数 = 1
#IF
CHECKLEVELEX > 0
#ACT
MOV S10 feixingqi
INC S10 <$HUMAN(飞行个人层数)>
MOV S11 免　费　脚　本　群　3　4　7　9　7　9
MAPMOVE <$STR(S10)> $(飞行棋所飞坐标X) $(飞行棋所飞坐标Y)
INC P8 1
SENDMSG 6 前进【<$STR(P8)>/<$STR(D9)>】步，当前位置【第<$HUMAN(飞行个人层数)>层】
#IF
checkvar human 飞行个人骰子 = 0
#ACT
SENDMSG 0 勇士【%s】摇到【<$STR(D9)>】进入【飞行棋第<$HUMAN(飞行个人层数)>层】！ 5 255
break
#IF
CHECKLEVELEX > 0
#ACT
CALCVAR HUMAN 飞行个人层数 + 1
CALCVAR HUMAN 飞行个人骰子 - 1
#IF
checkvar human 飞行个人层数 > $(飞行棋终点层数)
#ACT
CALCVAR HUMAN 飞行个人层数 = 1
#IF
CHECKLEVELEX > 0
#ACT
MOV S10 feixingqi
INC S10 <$HUMAN(飞行个人层数)>
MAPMOVE <$STR(S10)> $(飞行棋所飞坐标X) $(飞行棋所飞坐标Y)
INC P8 1
SENDMSG 6 前进【<$STR(P8)>/<$STR(D9)>】步，当前位置【第<$HUMAN(飞行个人层数)>层】
#IF
checkvar human 飞行个人骰子 = 0
#ACT
SENDMSG 0 勇士【%s】摇到【<$STR(D9)>】进入【飞行棋第<$HUMAN(飞行个人层数)>层】！ 5 255
break
#IF
CHECKLEVELEX > 0
#ACT
CALCVAR HUMAN 飞行个人层数 + 1
CALCVAR HUMAN 飞行个人骰子 - 1
#IF
checkvar human 飞行个人层数 > $(飞行棋终点层数)
#ACT
CALCVAR HUMAN 飞行个人层数 = 1
#IF
CHECKLEVELEX > 0
#ACT
MOV S10 feixingqi
INC S10 <$HUMAN(飞行个人层数)>
MAPMOVE <$STR(S10)> $(飞行棋所飞坐标X) $(飞行棋所飞坐标Y)
INC P8 1
SENDMSG 6 前进【<$STR(P8)>/<$STR(D9)>】步，当前位置【第<$HUMAN(飞行个人层数)>层】
#IF
checkvar human 飞行个人骰子 = 0
#ACT
SENDMSG 0 勇士【%s】摇到【<$STR(D9)>】进入【飞行棋第<$HUMAN(飞行个人层数)>层】！ 5 255
break
#IF
CHECK [0] 0
#ACT
DEC S11 1 32
#IF
EQUAL S11 7　9
#ELSEACT
BREAK
#IF
CHECKLEVELEX > 0
#ACT
CALCVAR HUMAN 飞行个人层数 + 1
CALCVAR HUMAN 飞行个人骰子 - 1
#IF
checkvar human 飞行个人层数 > $(飞行棋终点层数)
#ACT
CALCVAR HUMAN 飞行个人层数 = 1
#IF
CHECKLEVELEX > 0
#ACT
MOV S10 feixingqi
INC S10 <$HUMAN(飞行个人层数)>
MAPMOVE <$STR(S10)> $(飞行棋所飞坐标X) $(飞行棋所飞坐标Y)
INC P8 1
SENDMSG 6 前进【<$STR(P8)>/<$STR(D9)>】步，当前位置【第<$HUMAN(飞行个人层数)>层】
#IF
checkvar human 飞行个人骰子 = 0
#ACT
SENDMSG 0 勇士【%s】摇到【<$STR(D9)>】进入【飞行棋第<$HUMAN(飞行个人层数)>层】！ 5 255
break
#IF
CHECKLEVELEX > 0
#ACT
CALCVAR HUMAN 飞行个人层数 + 1
CALCVAR HUMAN 飞行个人骰子 - 1
#IF
checkvar human 飞行个人层数 > $(飞行棋终点层数)
#ACT
CALCVAR HUMAN 飞行个人层数 = 1
#IF
CHECKLEVELEX > 0
#ACT
MOV S10 feixingqi
INC S10 <$HUMAN(飞行个人层数)>
MAPMOVE <$STR(S10)> $(飞行棋所飞坐标X) $(飞行棋所飞坐标Y)
INC P8 1
SENDMSG 6 前进【<$STR(P8)>/<$STR(D9)>】步，当前位置【第<$HUMAN(飞行个人层数)>层】


[@Mir2m2飞行棋常量加载]
#CALL [\Mir2m2飞行棋配置(技术QQ.537036801)\Mir2m2飞行棋常量.ini] @Mir2m2飞行棋常量
}

[@Mir2m2飞行棋脚本RM]
{
[@Mir2m2飞行棋次数清零]
#ACT
CLEARNAMELIST ..\QuestDiary\Mir2m2开区清空文本(技术QQ.537036801)\Mir2m2飞行个人次数.txt
GMEXECUTE $(飞行棋全服触发) @Mir2m2飞行棋次数清零
[@Mir2m2飞行棋常量加载]
#CALL [\Mir2m2飞行棋配置(技术QQ.537036801)\Mir2m2飞行棋常量.ini] @Mir2m2飞行棋常量
}

[@Mir2m2飞行棋脚本QM]
{
#IF
CHECKLEVELEX > 0
#ACT
VAR Integer HUMAN 飞行个人骰子
VAR Integer HUMAN 飞行个人层数
VAR Integer HUMAN 飞行个人次数
LOADVAR HUMAN 飞行个人次数 ..\QuestDiary\Mir2m2开区清空文本(技术QQ.537036801)\Mir2m2飞行个人次数.txt

[@Mir2m2飞行棋次数清零]
#ACT
DELAYGOTO 1 @Mir2m2飞行棋清零确定
[@Mir2m2飞行棋清零确定]
#if
checkvar human 飞行个人次数 > 0
#ACT
CALCVAR HUMAN 飞行个人次数 = 0
}