[TJ插件]检测指定地图怪物

检测指定地图怪物命令功能详解:
命令:TJ_CheckMonPos 参数1 参数2 参数3 参数4 参数5;

参数位置        参数说明
参数1        地图ID
参数2        怪物名字
参数3        怪物坐标X
参数4        怪物坐标Y
参数5        怪物名字

[@测试]
#IF
TJ_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
TJ_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
TJ_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
TJ_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)>)
TJ_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)>)
TJ_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)>)
TJ_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)>)
TJ_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)>)
TJ_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)>)
TJ_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)>)
TJ_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)>)
TJ_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)>)
TJ_ReadRandomStr ..\QuestDiary\BOSS列表.txt S30 <$STR(P10)>
GOTO @checkmon
break