石碑NPC脚本_搜服999权威游戏门户发布网

[@main]
#IF
CHECKVARLIST $M ..\QuestDiary\数据文件\文本数据\迷仙阵\1号地图.txt
#ACT
MOV P0 0
GOTO @定位1号地图
break
#IF
CHECKVARLIST $M ..\QuestDiary\数据文件\文本数据\迷仙阵\2号地图.txt
#ACT
MOV P0 0
GOTO @定位2号地图
break
#IF
CHECKVARLIST $M ..\QuestDiary\数据文件\文本数据\迷仙阵\3号地图.txt
#ACT
MOV P0 0
GOTO @定位3号地图
break
#IF
CHECKVARLIST $M ..\QuestDiary\数据文件\文本数据\迷仙阵\4号地图.txt
#ACT
MOV P0 0
GOTO @定位4号地图
break
#IF
CHECKVARLIST $M ..\QuestDiary\数据文件\文本数据\迷仙阵\5号地图.txt
#ACT
MOV P0 0
GOTO @定位5号地图
break
#IF
CHECKVARLIST $M ..\QuestDiary\数据文件\文本数据\迷仙阵\6号地图.txt
#ACT
MOV P0 0
GOTO @定位6号地图
break
#IF
CHECKVARLIST $M ..\QuestDiary\数据文件\文本数据\迷仙阵\7号地图.txt
#ACT
MOV P0 0
GOTO @定位7号地图
break
#IF
CHECKVARLIST $M ..\QuestDiary\数据文件\文本数据\迷仙阵\8号地图.txt
#ACT
MOV P0 0
GOTO @定位8号地图
break
#IF
CHECKVARLIST $M ..\QuestDiary\数据文件\文本数据\迷仙阵\9号地图.txt
#ACT
MOV P0 0
GOTO @定位9号地图
break
#ELSEACT
MAPMOVE MH001
SENDMSG 5 系统错误，请重新登陆
break

;-------------------------------------------------------------------------地图01

[@定位1号地图]
#IF
Check [111] 0
Check [131] 1
#SAY
　　和那边的仙人谈谈吧!\
　　<好的/@exit>
#ACT
break
#IF
Check [111] 0
#SAY
　　这里有一个微微带有灵气的石碑，可能和这个迷仙阵有\
关。使用灵力试探一下，或者冒险一点<COLOR=GREEN 直接注入大量灵力>干\
扰这个法阵，但可能造成法阵的不稳定，把你传送到法阵中\
<COLOR=GREEN 任意一处未探索的地方。>\\
　　<往石碑里面注入少许灵力(5点)探索此阵/@探索此阵01>\
　　<往石碑里面注入少许灵力(20点)探索此阵/@探索此阵02>\
　　<往石碑里面注入强大灵力(100点)干扰此阵/@探索此阵03>
#ACT
break
#IF
Check [121] 1
#SAY
　　石碑的文字已经暗淡了，模糊的可以看到写着：这里容\
易迷路！\\
　　<我知道了/@exit>\
　　<往石碑里面注入强大灵力(100点)干扰此阵/@探索此阵03>
#ACT
break
#IF
CheckRangeMonCount $M $X $Y 100 > 0
#SAY
　　阵中的<$CHECKHUM.$M>个怪物没有杀死，迷仙阵机关被法力保护着.\\
　　<我知道了/@exit>
#ACT
break
#ELSEACT
MOV P13 1
GOTO @获取迷仙路引
break

[@探索此阵01]
#IF
SMALL $YSPOINT 5
#SAY
　　很抱歉，你的灵力不足5点。双击灵皓石、元灵晶石能\
迅速提升灵力。\
　　<我知道了/@exit>\
#ACT
break
#ELSEACT
YSPOINT - 5
#IF
RANDOM 5
#ACT
SET [111] 1
GOTO @任务类型1
break
#IF
RANDOM 3
#ACT
SET [131] 1
MObNpc 仙人仙岛\仙人 165 $M(57,31) 3600
GOTO @任务类型4
break
#IF
RANDOM 2
#ACT
SET [111] 1
GOTO @任务类型3
break
#IF
RANDOM 1
#ACT
SET [111] 1
GOTO @任务类型2
break

[@探索此阵02]
#IF
SMALL $YSPOINT 20
#SAY
　　很抱歉，你的灵力不足20点。双击灵皓石、元灵晶石能\
迅速提升灵力。\
　　<我知道了/@exit>\
#ELSEACT
YSPOINT - 20
SET [111] 1
GOTO @任务类型1
break

[@探索此阵03]
#IF
CHECKVARLIST $M ..\QuestDiary\数据文件\文本数据\迷仙阵\8号地图.txt
#ACT
SENDMSG 5 你无法再次干扰此石碑的阵法能力了
break
close
#IF
SMALL $YSPOINT 100
#SAY
　　很抱歉，你的灵力不足100点。双击灵皓石、元灵晶石能\
迅速提升灵力。\
　　<我知道了/@exit>\
#ELSEACT
YSPOINT - 100
MAPMOVE $STR(S98) 55 37
MXXDT2 $STR(S97) $STR(S96) 0
break

;-------------------------------------------------------------------------地图02

[@定位2号地图]
#IF
Check [112] 0
Check [132] 1
#SAY
　　和那边的仙人谈谈吧!\
　　<好的/@exit>
#ACT
break
#IF
Check [112] 0
#SAY
　　这里有一个微微带有灵气的石碑，可能和这个迷仙阵有\
关。使用灵力试探一下，或者冒险一点<COLOR=GREEN 直接注入大量灵力>干\
扰这个法阵，但可能造成法阵的不稳定，把你传送到法阵中\
<COLOR=GREEN 任意一处未探索的地方。>\\
　　<往石碑里面注入少许灵力(5点)探索此阵/@探索此阵11>\
　　<往石碑里面注入少许灵力(20点)探索此阵/@探索此阵12>\
　　<往石碑里面注入强大灵力(100点)干扰此阵/@探索此阵13>
#ACT
break
#IF
Check [122] 1
#SAY
　　石碑的文字已经暗淡了，模糊的可以看到写着：这里容\
易迷路！\\
　　<我知道了/@exit>\
　　<往石碑里面注入强大灵力(100点)干扰此阵/@探索此阵13>
#ACT
break
#IF
CheckRangeMonCount $M $X $Y 100 > 0
#SAY
　　阵中的<$CHECKHUM.$M>个怪物没有杀死，迷仙阵机关被法力保护着.\\
　　<我知道了/@exit>
#ACT
break
#ELSEACT
MOV P13 2
GOTO @获取迷仙路引
break

[@探索此阵11]
#IF
SMALL $YSPOINT 5
#SAY
　　很抱歉，你的灵力不足5点。双击灵皓石、元灵晶石能\
迅速提升灵力。\
　　<我知道了/@exit>\
#ACT
break
#ELSEACT
YSPOINT - 5
#IF
RANDOM 5
#ACT
SET [112] 1
GOTO @任务类型1
break
#IF
RANDOM 3
#ACT
SET [132] 1
MObNpc 仙人仙岛\仙人 165 $M(57,31) 3600
GOTO @任务类型4
break
#IF
RANDOM 2
#ACT
SET [112] 1
GOTO @任务类型3
break
#IF
RANDOM 1
#ACT
SET [112] 1
GOTO @任务类型2
break

[@探索此阵12]
#IF
SMALL $YSPOINT 20
#SAY
　　很抱歉，你的灵力不足20点。双击灵皓石、元灵晶石能\
迅速提升灵力。\
　　<我知道了/@exit>\
#ELSEACT
YSPOINT - 20
SET [112] 1
GOTO @任务类型1
break

[@探索此阵13]
#IF
CHECKVARLIST $M ..\QuestDiary\数据文件\文本数据\迷仙阵\8号地图.txt
#ACT
SENDMSG 5 你无法再次干扰此石碑的阵法能力了
break
close
#IF
SMALL $YSPOINT 100
#SAY
　　很抱歉，你的灵力不足100点。双击灵皓石、元灵晶石能\
迅速提升灵力。\
　　<我知道了/@exit>\
#ELSEACT
YSPOINT - 100
MAPMOVE $STR(S98) 55 37
MXXDT2 $STR(S97) $STR(S96) 0
break

;-------------------------------------------------------------------------地图03

[@定位3号地图]
#IF
Check [113] 0
Check [133] 1
#SAY
　　和那边的仙人谈谈吧!\
　　<好的/@exit>
#ACT
break
#IF
Check [113] 0
#SAY
　　这里有一个微微带有灵气的石碑，可能和这个迷仙阵有\
关。使用灵力试探一下，或者冒险一点<COLOR=GREEN 直接注入大量灵力>干\
扰这个法阵，但可能造成法阵的不稳定，把你传送到法阵中\
<COLOR=GREEN 任意一处未探索的地方。>\\
　　<往石碑里面注入少许灵力(5点)探索此阵/@探索此阵21>\
　　<往石碑里面注入少许灵力(20点)探索此阵/@探索此阵22>\
　　<往石碑里面注入强大灵力(100点)干扰此阵/@探索此阵23>
#ACT
break
#IF
Check [123] 1
#SAY
　　石碑的文字已经暗淡了，模糊的可以看到写着：这里容\
易迷路！\\
　　<我知道了/@exit>\
　　<往石碑里面注入强大灵力(100点)干扰此阵/@探索此阵23>
#ACT
break
#IF
CheckRangeMonCount $M $X $Y 100 > 0
#SAY
　　阵中的<$CHECKHUM.$M>个怪物没有杀死，迷仙阵机关被法力保护着.\\
　　<我知道了/@exit>
#ACT
break
#ELSEACT
MOV P13 3
GOTO @获取迷仙路引
break

[@探索此阵21]
#IF
SMALL $YSPOINT 5
#SAY
　　很抱歉，你的灵力不足5点。双击灵皓石、元灵晶石能\
迅速提升灵力。\
　　<我知道了/@exit>\
#ELSEACT
YSPOINT - 5
#ACT
break
#IF
RANDOM 5
#ACT
SET [113] 1
GOTO @任务类型1
break
#IF
RANDOM 3
#ACT
SET [133] 1
MObNpc 仙人仙岛\仙人 165 $M(57,31) 3600
GOTO @任务类型4
break
#IF
RANDOM 2
#ACT
SET [113] 1
GOTO @任务类型3
break
#IF
RANDOM 1
#ACT
SET [113] 1
GOTO @任务类型2
break

[@探索此阵22]
#IF
SMALL $YSPOINT 20
#SAY
　　很抱歉，你的灵力不足20点。双击灵皓石、元灵晶石能\
迅速提升灵力。\
　　<我知道了/@exit>\
#ELSEACT
YSPOINT - 20
SET [113] 1
GOTO @任务类型1
break

[@探索此阵23]
#IF
CHECKVARLIST $M ..\QuestDiary\数据文件\文本数据\迷仙阵\8号地图.txt
#ACT
SENDMSG 5 你无法再次干扰此石碑的阵法能力了
break
close
#IF
SMALL $YSPOINT 100
#SAY
　　很抱歉，你的灵力不足100点。双击灵皓石、元灵晶石能\
迅速提升灵力。\
　　<我知道了/@exit>\
#ELSEACT
YSPOINT - 100
MAPMOVE $STR(S98) 55 37
MXXDT2 $STR(S97) $STR(S96) 0
break

;-------------------------------------------------------------------------地图05

[@定位5号地图]
#IF
Check [114] 0
Check [134] 1
#SAY
　　和那边的仙人谈谈吧!\
　　<好的/@exit>
#ACT
break
#IF
Check [114] 0
#SAY
　　这里有一个微微带有灵气的石碑，可能和这个迷仙阵有\
关。使用灵力试探一下，或者冒险一点<COLOR=GREEN 直接注入大量灵力>干\
扰这个法阵，但可能造成法阵的不稳定，把你传送到法阵中\
<COLOR=GREEN 任意一处未探索的地方。>\\
　　<往石碑里面注入少许灵力(5点)探索此阵/@探索此阵31>\
　　<往石碑里面注入少许灵力(20点)探索此阵/@探索此阵32>\
　　<往石碑里面注入强大灵力(100点)干扰此阵/@探索此阵33>
#ACT
break
#IF
Check [124] 1
#SAY
　　石碑的文字已经暗淡了，模糊的可以看到写着：这里容\
易迷路！\\
　　<我知道了/@exit>\
　　<往石碑里面注入强大灵力(100点)干扰此阵/@探索此阵33>
#ACT
break
#IF
CheckRangeMonCount $M $X $Y 100 > 0
#SAY
　　阵中的<$CHECKHUM.$M>个怪物没有杀死，迷仙阵机关被法力保护着.\\
　　<我知道了/@exit>
#ACT
break
#ELSEACT
MOV P13 4
GOTO @获取迷仙路引
break

[@探索此阵31]
#IF
SMALL $YSPOINT 5
#SAY
　　很抱歉，你的灵力不足5点。双击灵皓石、元灵晶石能\
迅速提升灵力。\
　　<我知道了/@exit>\
#ACT
break
#ELSEACT
YSPOINT - 5
#IF
RANDOM 5
#ACT
SET [114] 1
GOTO @任务类型1
break
#IF
RANDOM 3
#ACT
SET [134] 1
MObNpc 仙人仙岛\仙人 165 $M(57,31) 3600
GOTO @任务类型4
break
#IF
RANDOM 2
#ACT
SET [114] 1
GOTO @任务类型3
break
#IF
RANDOM 1
#ACT
SET [114] 1
GOTO @任务类型2
break

[@探索此阵32]
#IF
SMALL $YSPOINT 20
#SAY
　　很抱歉，你的灵力不足20点。双击灵皓石、元灵晶石能\
迅速提升灵力。\
　　<我知道了/@exit>\
#ELSEACT
YSPOINT - 20
SET [114] 1
GOTO @任务类型1
break

[@探索此阵33]
#IF
CHECKVARLIST $M ..\QuestDiary\数据文件\文本数据\迷仙阵\8号地图.txt
#ACT
SENDMSG 5 你无法再次干扰此石碑的阵法能力了
break
close
#IF
SMALL $YSPOINT 100
#SAY
　　很抱歉，你的灵力不足100点。双击灵皓石、元灵晶石能\
迅速提升灵力。\
　　<我知道了/@exit>\
#ELSEACT
YSPOINT - 100
MAPMOVE $STR(S98) 55 37
MXXDT2 $STR(S97) $STR(S96) 0
break

;-------------------------------------------------------------------------地图06

[@定位6号地图]
#IF
Check [115] 0
Check [135] 1
#SAY
　　和那边的仙人谈谈吧!\
　　<好的/@exit>
#ACT
break
#IF
Check [115] 0
#SAY
　　这里有一个微微带有灵气的石碑，可能和这个迷仙阵有\
关。使用灵力试探一下，或者冒险一点<COLOR=GREEN 直接注入大量灵力>干\
扰这个法阵，但可能造成法阵的不稳定，把你传送到法阵中\
<COLOR=GREEN 任意一处未探索的地方。>\\
　　<往石碑里面注入少许灵力(5点)探索此阵/@探索此阵41>\
　　<往石碑里面注入少许灵力(20点)探索此阵/@探索此阵42>\
　　<往石碑里面注入强大灵力(100点)干扰此阵/@探索此阵43>
#ACT
break
#IF
Check [125] 1
#SAY
　　石碑的文字已经暗淡了，模糊的可以看到写着：这里容\
易迷路！\\
　　<我知道了/@exit>\
　　<往石碑里面注入强大灵力(100点)干扰此阵/@探索此阵43>
#ACT
break
#IF
CheckRangeMonCount $M $X $Y 100 > 0
#SAY
　　阵中的<$CHECKHUM.$M>个怪物没有杀死，迷仙阵机关被法力保护着.\\
　　<我知道了/@exit>
#ACT
break
#ELSEACT
MOV P13 5
GOTO @获取迷仙路引
break

[@探索此阵41]
#IF
SMALL $YSPOINT 5
#SAY
　　很抱歉，你的灵力不足5点。双击灵皓石、元灵晶石能\
迅速提升灵力。\
　　<我知道了/@exit>\
#ACT
break
#ELSEACT
YSPOINT - 5
#IF
RANDOM 5
#ACT
SET [115] 1
GOTO @任务类型1
break
#IF
RANDOM 3
#ACT
SET [135] 1
MObNpc 仙人仙岛\仙人 165 $M(57,31) 3600
GOTO @任务类型4
break
#IF
RANDOM 2
#ACT
SET [115] 1
GOTO @任务类型3
break
#IF
RANDOM 1
#ACT
SET [115] 1
GOTO @任务类型2
break

[@探索此阵42]
#IF
SMALL $YSPOINT 20
#SAY
　　很抱歉，你的灵力不足20点。双击灵皓石、元灵晶石能\
迅速提升灵力。\
　　<我知道了/@exit>\
#ELSEACT
YSPOINT - 20
SET [115] 1
GOTO @任务类型1
break

[@探索此阵43]
#IF
CHECKVARLIST $M ..\QuestDiary\数据文件\文本数据\迷仙阵\8号地图.txt
#ACT
SENDMSG 5 你无法再次干扰此石碑的阵法能力了
break
close
#IF
SMALL $YSPOINT 100
#SAY
　　很抱歉，你的灵力不足100点。双击灵皓石、元灵晶石能\
迅速提升灵力。\
　　<我知道了/@exit>\
#ELSEACT
YSPOINT - 100
MAPMOVE $STR(S98) 55 37
MXXDT2 $STR(S97) $STR(S96) 0
break

;-------------------------------------------------------------------------地图08

[@定位8号地图]
#IF
Check [116] 0
Check [136] 1
#SAY
　　和那边的仙人谈谈吧!\
　　<好的/@exit>
#ACT
break
#IF
Check [116] 0
#SAY
　　这里有一个微微带有灵气的石碑，可能和这个迷仙阵有\
关。使用灵力试探一下，或者冒险一点<COLOR=GREEN 直接注入大量灵力>干\
扰这个法阵，但可能造成法阵的不稳定，把你传送到法阵中\
<COLOR=GREEN 任意一处未探索的地方。>\\
　　<往石碑里面注入少许灵力(5点)探索此阵/@探索此阵51>\
　　<往石碑里面注入少许灵力(20点)探索此阵/@探索此阵52>\
　　<往石碑里面注入强大灵力(100点)干扰此阵/@探索此阵53>
#ACT
break
#IF
Check [126] 1
#SAY
　　石碑的文字已经暗淡了，模糊的可以看到写着：这里容\
易迷路！\\
　　<我知道了/@exit>\
　　<往石碑里面注入强大灵力(100点)干扰此阵/@探索此阵53>
#ACT
break
#IF
CheckRangeMonCount $M $X $Y 100 > 0
#SAY
　　阵中的<$CHECKHUM.$M>个怪物没有杀死，迷仙阵机关被法力保护着.\\
　　<我知道了/@exit>
#ACT
break
#ELSEACT
MOV P13 6
GOTO @获取迷仙路引
break

[@探索此阵51]
#IF
SMALL $YSPOINT 5
#SAY
　　很抱歉，你的灵力不足5点。双击灵皓石、元灵晶石能\
迅速提升灵力。\
　　<我知道了/@exit>\
#ACT
break
#ELSEACT
YSPOINT - 5
#IF
RANDOM 5
#ACT
SET [116] 1
GOTO @任务类型1
break
#IF
RANDOM 3
#ACT
SET [136] 1
MObNpc 仙人仙岛\仙人 165 $M(57,31) 3600
GOTO @任务类型4
break
#IF
RANDOM 2
#ACT
SET [116] 1
GOTO @任务类型3
break
#IF
RANDOM 1
#ACT
SET [116] 1
GOTO @任务类型2
break

[@探索此阵52]
#IF
SMALL $YSPOINT 20
#SAY
　　很抱歉，你的灵力不足20点。双击灵皓石、元灵晶石能\
迅速提升灵力。\
　　<我知道了/@exit>\
#ELSEACT
YSPOINT - 20
SET [116] 1
GOTO @任务类型1
break

[@探索此阵53]
#IF
CHECKVARLIST $M ..\QuestDiary\数据文件\文本数据\迷仙阵\8号地图.txt
#ACT
SENDMSG 5 你无法再次干扰此石碑的阵法能力了
break
close
#IF
SMALL $YSPOINT 100
#SAY
　　很抱歉，你的灵力不足100点。双击灵皓石、元灵晶石能\
迅速提升灵力。\
　　<我知道了/@exit>\
#ELSEACT
YSPOINT - 100
MAPMOVE $STR(S98) 55 37
MXXDT2 $STR(S97) $STR(S96) 0
break

;-------------------------------------------------------------------------地图分割

[@获取迷仙路引]
　　怪物消失后石碑浮现了淡淡的碑文，似乎是一种路引\
可能和机关有关。\
　　<COLOR=GREEN 对着机关飞出迷仙路引可以启动机关，开启浮桥>\\
　　<获取迷仙路引/@得到迷仙路引>

[@得到迷仙路引]
#IF
CHECKBAGSIZE 2
#ACT
#ELSEACT
MessageBox 对不起，您身上背包的位置不够，请清理出空位！
break
#IF
EQUAL P13 1
#ACT
SET [121] 1
MOV P13 0
GIVE 迷仙路引 1
GOTO @随机石碑奖
break
#IF
EQUAL P13 2
#ACT
SET [122] 1
MOV P13 0
GIVE 迷仙路引 1
GOTO @随机石碑奖
break
#IF
EQUAL P13 3
#ACT
SET [123] 1
MOV P13 0
GIVE 迷仙路引 1
GOTO @随机石碑奖
break
#IF
EQUAL P13 4
#ACT
SET [124] 1
MOV P13 0
GIVE 迷仙路引 1
GOTO @随机石碑奖
break
#IF
EQUAL P13 5
#ACT
SET [125] 1
MOV P13 0
GIVE 迷仙路引 1
GOTO @随机石碑奖
break
#IF
EQUAL P13 6
#ACT
SET [126] 1
MOV P13 0
GIVE 迷仙路引 1
GOTO @随机石碑奖
break
#ELSEACT
break
close

[@随机石碑奖]
#IF
RANDOM 2
#ACT
ReadRandomStr ..\QuestDiary\数据文件\文本数据\迷仙阵\石碑奖励.txt S7
GIVE $STR(S7) 1
SENDMSG 10 恭喜<$USERNAME>在灵犀仙岛中迷仙阵的石碑处获得了<$STR(S7)>！
break
close
#ELSEACT
break
close

[@任务类型1]
#ACT
CreateLight $M 48 41 1000
PARAM1 $M
PARAM2 53
PARAM3 37
MonGen 白蛇妖9 5 2
#SAY
　　碑文：此碑镇压千年蛇穴，为防止蛇怪逃离，碑外坐标\
(48,41)布置了天雷阵，天雷可瞬间将蛇怪打得魂飞魄散，\
<COLOR=GREEN 无知者小心被天雷打中。>\
　　<我知道了/@exit>

[@任务类型2]
#ACT
PARAM1 $M
PARAM2 53
PARAM3 37
MonGen 幽影武士9 1 1
#SAY
　　战胜眼前的怪物，我就会给你奖励和开启机关的迷仙路\
引！\
　　<COLOR=GREEN 对着机关飞出迷仙路引可以启动机关，开启浮桥>\\
　　<我知道了/@exit>

[@任务类型3]
#ACT
MOVR P15 6
INC P15 10
MOV S3 蜃魔
INC S3 $STR(P15)
PARAM1 $M
PARAM2 53
PARAM3 37
MonGen $STR(S3) 1 1 蜃魔
#SAY
　　战胜眼前的怪物，我就会给你奖励和开启机关的迷仙路\
引！\
　　<COLOR=GREEN 对着机关飞出迷仙路引可以启动机关，开启浮桥>\\
　　<我知道了/@exit>

[@任务类型4]
　　一股灵气从石碑升起，池塘那边聚成了一位仙风道骨的\
老者。\
　　<我去找这位老者聊聊/@exit>