正在加载文档
检测地图怪物
<!-- mindoc:slug=aa-1hgloo52p7ibc -->
#### 命令：
>CHECKMONPOS 参数1 参数2 参数3 参数4 参数5
#### 参数说明：
|位置|说明|备注|
|:----|:---|:---
|参数1 | 地图ID ||
|参数2 |怪物名字||
|参数3 |怪物坐标X||
|参数4 |怪物坐标Y||
|参数5 |怪物名字||
#### 示例:
```
[@测试]
#IF
CheckMonPos <$Map> 地藏王 S$Boss_X S$Boss_Y S$Boss_Name
#ACT
SENDMSG 5 找到怪物：<$STR(S$Boss_X)>,<$STR(S$Boss_Y)>,<$STR(S$Boss_Name)>
#ELSEACT
SENDMSG 5 没有发现魔物
break
```
#### 使用此命令编写探魔神石功能：
功能说明：玩家在游戏中双击“探魔神石”，则可以显示地图中BOSS怪物坐标信息
1、增加双击使用物品道具
```
638;探魔神石;2;1;1;62;0;0;2623;10000;0;0;0;0;0;0;0;0;0;0;0;1;3409;5;255;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;
```
2、在服务端“QuestDiary”目录下新建文本，文本名字为：BOSS列表.txt，将游戏中的BOSS名字自行加入到该文本中
```
MirServer\Mir200\Envir\QuestDiary\BOSS列表.txt
```
3、复制以下脚本内容放入QFunction-0.txt文本中
```
[@StdModeFunc62]
#IF
CHECKLEVELEX > 0
#ACT
MOV P10 0
MOV P11 0
ReadRandomStr ..\QuestDiary\BOSS列表.txt S30 0
GOTO @checkmon
break
[@checkmon]
#IF
EQUAL S30
EQUAL P11 0
#ACT
SENDMSG 5 方圆百里之内暂时没有魔王的踪影。
break
#IF
EQUAL S30
#ACT
break
#IF
CheckMonPos <$Map> <$STR(S30)> S$Boss_X S$Boss_Y S$Boss_Name
#ACT
INC P10 1
MOV P11 1
MOV P12 <$STR(S$Boss_X)>
MOV P13 <$STR(S$Boss_Y)>
#ELSEACT
INC P10 1
ReadRandomStr ..\QuestDiary\BOSS列表.txt S30 <$STR(P10)>
GOTO @checkmon
break
#IF
SMALL P12 <$X>
EQUAL P13 <$Y>
#ACT
SENDMSG 7 发现魔王：<$STR(S30)>
SENDMSG 7 方向：←
SENDMSG 7 坐标：(<$STR(S$Boss_X)>,<$STR(S$Boss_Y)>)
ReadRandomStr ..\QuestDiary\BOSS列表.txt S30 <$STR(P10)>
GOTO @checkmon
break
#IF
LARGE P12 <$X>
EQUAL P13 <$Y>
#ACT
SENDMSG 7 发现魔王：<$STR(S30)>
SENDMSG 7 方向：→
SENDMSG 7 坐标：(<$STR(S$Boss_X)>,<$STR(S$Boss_Y)>)
ReadRandomStr ..\QuestDiary\BOSS列表.txt S30 <$STR(P10)>
GOTO @checkmon
break
#IF
EQUAL P12 <$X>
SMALL P13 <$Y>
#ACT
SENDMSG 7 发现魔王：<$STR(S30)>
SENDMSG 7 方向：↑
SENDMSG 7 坐标：(<$STR(S$Boss_X)>,<$STR(S$Boss_Y)>)
ReadRandomStr ..\QuestDiary\BOSS列表.txt S30 <$STR(P10)>
GOTO @checkmon
break
#IF
EQUAL P12 <$X>
LARGE P13 <$Y>
#ACT
SENDMSG 7 发现魔王：<$STR(S30)>
SENDMSG 7 方向：↓
SENDMSG 7 坐标：(<$STR(S$Boss_X)>,<$STR(S$Boss_Y)>)
ReadRandomStr ..\QuestDiary\BOSS列表.txt S30 <$STR(P10)>
GOTO @checkmon
break
#IF
LARGE P12 <$X>
SMALL P13 <$Y>
#ACT
SENDMSG 7 发现魔王：<$STR(S30)>
SENDMSG 7 方向：↗
SENDMSG 7 坐标：(<$STR(S$Boss_X)>,<$STR(S$Boss_Y)>)
ReadRandomStr ..\QuestDiary\BOSS列表.txt S30 <$STR(P10)>
GOTO @checkmon
break
#IF
LARGE P12 <$X>
LARGE P13 <$Y>
#ACT
SENDMSG 7 发现魔王：<$STR(S30)>
SENDMSG 7 方向：↘
SENDMSG 7 坐标：(<$STR(S$Boss_X)>,<$STR(S$Boss_Y)>)
ReadRandomStr ..\QuestDiary\BOSS列表.txt S30 <$STR(P10)>
GOTO @checkmon
break
#IF
SMALL P12 <$X>
SMALL P13 <$Y>
#ACT
SENDMSG 7 发现魔王：<$STR(S30)>
SENDMSG 7 方向：↖
SENDMSG 7 坐标：(<$STR(S$Boss_X)>,<$STR(S$Boss_Y)>)
ReadRandomStr ..\QuestDiary\BOSS列表.txt S30 <$STR(P10)>
GOTO @checkmonks
break
#IF
SMALL P12 <$X>
LARGE P13 <$Y>
#ACT
SENDMSG 7 发现魔王：<$STR(S30)>
SENDMSG 7 方向：↙
SENDMSG 7 坐标：(<$STR(S$Boss_X)>,<$STR(S$Boss_Y)>)
ReadRandomStr ..\QuestDiary\BOSS列表.txt S30 <$STR(P10)>
GOTO @checkmon
break
#ELSEACT
SENDMSG 7 发现魔王：<$STR(S30)>
SENDMSG 7 坐标：(<$STR(S$Boss_X)>,<$STR(S$Boss_Y)>)
ReadRandomStr ..\QuestDiary\BOSS列表.txt S30 <$STR(P10)>
GOTO @checkmon
break
```
