探魔球脚本

[@StdModeFunc77]
#IF
CHECKLEVELEX > 0
#ACT
MOV P6 0
MOV P7 0
SHOWHUMEFFECT 45
ReadRandomStr ..\QuestDiary\数据文件\文本数据\BOSS怪物列表.txt S30 0
GOTO @检测怪物开始
break
[@检测怪物开始]
#IF
EQUAL S30
EQUAL P7 0
#ACT
SENDMSG 5 方圆百里之内暂时没有魔王的踪影。
break
#IF
EQUAL S30
#ACT
break
#IF
CHECKMONPOS $STR(S30) $M
#ACT
MOV P8 $PARAM(31)
MOV P9 $PARAM(32)
INC P6 1
MOV P7 1
#ELSEACT
INC P6 1
ReadRandomStr ..\QuestDiary\数据文件\文本数据\BOSS怪物列表.txt S30 $STR(P6)
GOTO @检测怪物开始
break
#IF
SMALL P8 $X
EQUAL P9 $Y
#ACT
SENDMSG 5 发现魔王：<$STR(S30)>
SENDMSG 5 方向：←
SENDMSG 5 坐标：(<$PARAM(31)>,<$PARAM(32)>)
ReadRandomStr ..\QuestDiary\数据文件\文本数据\BOSS怪物列表.txt S30 $STR(P6)
GOTO @检测怪物开始
break
#IF
LARGE P8 $X
EQUAL P9 $Y
#ACT
SENDMSG 5 发现魔王：<$STR(S30)>
SENDMSG 5 方向：→
SENDMSG 5 坐标：(<$PARAM(31)>,<$PARAM(32)>)
ReadRandomStr ..\QuestDiary\数据文件\文本数据\BOSS怪物列表.txt S30 $STR(P6)
GOTO @检测怪物开始
break
#IF
EQUAL P8 $X
SMALL P9 $Y
#ACT
SENDMSG 5 发现魔王：<$STR(S30)>
SENDMSG 5 方向：↑
SENDMSG 5 坐标：(<$PARAM(31)>,<$PARAM(32)>)
ReadRandomStr ..\QuestDiary\数据文件\文本数据\BOSS怪物列表.txt S30 $STR(P6)
GOTO @检测怪物开始
break
#IF
EQUAL P8 $X
LARGE P9 $Y
#ACT
SENDMSG 5 发现魔王：<$STR(S30)>
SENDMSG 5 方向：↓
SENDMSG 5 坐标：(<$PARAM(31)>,<$PARAM(32)>)
ReadRandomStr ..\QuestDiary\数据文件\文本数据\BOSS怪物列表.txt S30 $STR(P6)
GOTO @检测怪物开始
break
#IF
LARGE P8 $X
SMALL P9 $Y
#ACT
SENDMSG 5 发现魔王：<$STR(S30)>
SENDMSG 5 方向：↗
SENDMSG 5 坐标：(<$PARAM(31)>,<$PARAM(32)>)
ReadRandomStr ..\QuestDiary\数据文件\文本数据\BOSS怪物列表.txt S30 $STR(P6)
GOTO @检测怪物开始
break
#IF
LARGE P8 $X
LARGE P9 $Y
#ACT
SENDMSG 5 发现魔王：<$STR(S30)>
SENDMSG 5 方向：↘
SENDMSG 5 坐标：(<$PARAM(31)>,<$PARAM(32)>)
ReadRandomStr ..\QuestDiary\数据文件\文本数据\BOSS怪物列表.txt S30 $STR(P6)
GOTO @检测怪物开始
break
#IF
SMALL P8 $X
LARGE P9 $Y
#ACT
SENDMSG 5 发现魔王：<$STR(S30)>
SENDMSG 5 方向：↙
SENDMSG 5 坐标：(<$PARAM(31)>,<$PARAM(32)>)
ReadRandomStr ..\QuestDiary\数据文件\文本数据\BOSS怪物列表.txt S30 $STR(P6)
GOTO @检测怪物开始
break
#IF
SMALL P8 $X
SMALL P9 $Y
#ACT
SENDMSG 5 发现魔王：<$STR(S30)>
SENDMSG 5 方向：↖
SENDMSG 5 坐标：(<$PARAM(31)>,<$PARAM(32)>)
ReadRandomStr ..\QuestDiary\数据文件\文本数据\BOSS怪物列表.txt S30 $STR(P6)
GOTO @检测怪物开始
break
#ELSEACT
SENDMSG 5 发现魔王：<$STR(S30)>
SENDMSG 5 坐标：(<$PARAM(31)>,<$PARAM(32)>)
ReadRandomStr ..\QuestDiary\数据文件\文本数据\BOSS怪物列表.txt S30 $STR(P6)
GOTO @检测怪物开始
break