用命令实现探怪功能(暗黑探险者的)

游客，如果您要查看本帖隐藏内容请回复

[AppleScript] 纯文本查看 复制代码

[@UserCmd1]
#IF
NOT CHECKITEMW 探测项链 1
#ACT
SENDMSG 5 [提示]:你没有探测项链,无法使用此功能..
BREAK

#IF
CHECKITEMW 探测项链 1
#ACT
MOV S2 <$PARAMS>

#IF
EQUAL S2
#ACT
SENDMSG 5 [提示]:请输入正确的格式,@探测怪物 + 怪物名字..
BREAK

#IF
CheckMapMonInfo <$MAP> <$STR(S2)> N23 N24
#ACT
SENDMSG 5 探测到怪物“<$STR(S2)>”的位置[<$MapTitle>,(<$STR(N23)>:<$STR(N24)>)] 249 255
CLOSE
#ELSEACT
SENDMSG 5 没有在[<$MapTitle>]探测到怪物“<$STR(S2)>”.. 

以上为更简单的探测脚本

[AppleScript] 纯文本查看 复制代码

;--探怪模块--
[@UserCmd7]
#IF 
CHECKGAMEGLORY > 149 
#act
GetDBMonsterFieldValue <$PARAM(1)> name <$STR(S$怪物名字)>
MOV <$STR(S$地编1)>
MOV <$STR(S$地字1)>
MOV <$STR(S$地编2)>
MOV <$STR(S$地字2)>
MOV <$STR(S$地编3)>
MOV <$STR(S$地字3)>
MOV <$STR(S$地编4)>
MOV <$STR(S$地字4)>
MOV <$STR(S$地编5)>
MOV <$STR(S$地字5)>
goto @天极_怪物探测
#elseact 
;模拟系统错误提示
sendmsg 5 @探怪此命令不正确，或没有150点荣誉！！！ 
break

[@天极_怪物探测]
;对系统数据库进行判断,防止错误数据引起M2报错
#if
EQUAL <$PARAM(1)> <$STR(S$怪物名字)>
#elseact 
sendmsg 5 怪物<$PARAM(1)>不存在 
break

#if
#act
ReadConfigFileItem ..\QuestDiary\天极工作室\可读怪名字.txt <$PARAM(1)> 地编1 <$STR(S$地编1)>
ReadConfigFileItem ..\QuestDiary\天极工作室\可读怪名字.txt <$PARAM(1)> 地字1 <$STR(S$地字1)>
ReadConfigFileItem ..\QuestDiary\天极工作室\可读怪名字.txt <$PARAM(1)> 地编2 <$STR(S$地编2)>
ReadConfigFileItem ..\QuestDiary\天极工作室\可读怪名字.txt <$PARAM(1)> 地字2 <$STR(S$地字2)>
ReadConfigFileItem ..\QuestDiary\天极工作室\可读怪名字.txt <$PARAM(1)> 地编3 <$STR(S$地编3)>
ReadConfigFileItem ..\QuestDiary\天极工作室\可读怪名字.txt <$PARAM(1)> 地字3 <$STR(S$地字3)>
ReadConfigFileItem ..\QuestDiary\天极工作室\可读怪名字.txt <$PARAM(1)> 地编4 <$STR(S$地编4)>
ReadConfigFileItem ..\QuestDiary\天极工作室\可读怪名字.txt <$PARAM(1)> 地字4 <$STR(S$地字4)>
ReadConfigFileItem ..\QuestDiary\天极工作室\可读怪名字.txt <$PARAM(1)> 地编5 <$STR(S$地编5)>
ReadConfigFileItem ..\QuestDiary\天极工作室\可读怪名字.txt <$PARAM(1)> 地字5 <$STR(S$地字5)>


#if
EQUAL <$STR(S$地编1)>
#act
sendmsg 5 怪物<$PARAM(1)>不可被探测，请联系管理员解锁
break

#if
CheckMapMonInfo <$STR(S$地编1)> <$PARAM(1)> n1 n2
#act
OPENMERCHANTBIGDLG 22 2704 1 4 0 -100 1 305 26 1
#say 
                          <探怪/SCOLOR=250>\ \ \
当前:<$PARAM(1)>存活在<$STR(S$地字1)> <传送|每次传送需要50灵符,我送你到他身边/@天极_探测传送1>\
;坐标<$STR(n1)>,<$STR(n2)> 
<---------------------------------------------------------/SCOLOR=13>\ 
#if
CheckMapMonInfo <$STR(S$地编2)> <$PARAM(1)> n3 n4
#say 
当前:<$PARAM(1)>存活在<$STR(S$地字2)> <传送|每次传送需要50灵符,我送你到他身边/@天极_探测传送2>\
;坐标<$STR(n3)>,<$STR(n4)> 
<---------------------------------------------------------/SCOLOR=13>\ 
#if
CheckMapMonInfo <$STR(S$地编3)> <$PARAM(1)> n5 n6
#say 
当前:<$PARAM(1)>存活在<$STR(S$地字3)> <传送|每次传送需要50灵符,我送你到他身边/@天极_探测传送3>\
;坐标<$STR(n5)>,<$STR(n6)> 
<---------------------------------------------------------/SCOLOR=13>\ 
#if
CheckMapMonInfo <$STR(S$地编4)> <$PARAM(1)> n7 n8
#say 
当前:<$PARAM(1)>存活在<$STR(S$地字4)> <传送|每次传送需要50灵符,我送你到他身边/@天极_探测传送4>\
;坐标<$STR(n7)>,<$STR(n8)> 
<---------------------------------------------------------/SCOLOR=13>\ 
#if
CheckMapMonInfo <$STR(S$地编5)> <$PARAM(1)> n9 n10
#say 
当前:<$PARAM(1)>存活在<$STR(S$地字5)> <传送|每次传送需要50灵符,我送你到他身边/@天极_探测传送5>\
;坐标<$STR(n9)>,<$STR(n10)> 
<---------------------------------------------------------/SCOLOR=13>\ 


[@天极_探测传送1]
;#if
;EQUAL <$STR(G16)> 1
;#act
;MAPMOVE <$STR(S$地编1)> <$STR(N1)> <$STR(N2)> 3
;SENDMSG 5 周六传送免费！
;break

#if
CHECKGAMEGIRD > 49
#act
GAMEGIRD - 50
MAPMOVE <$STR(S$地编1)> <$STR(N1)> <$STR(N2)> 3
SENDMSG 5 传送成功，当前灵符剩余<$GAMEGIRD>
#ELSEACT
SENDMSG 5 传送失败，传送需要50灵符，当前灵符剩余<$GAMEGIRD>

[@天极_探测传送2]
;#if
;EQUAL <$STR(G16)> 1
;#act
;MAPMOVE <$STR(S$地编1)> <$STR(N1)> <$STR(N2)> 3
;SENDMSG 5 周六传送免费！
;break

#if
CHECKGAMEGIRD > 49
#act
GAMEGIRD - 50
MAPMOVE <$STR(S$地编2)> <$STR(N3)> <$STR(N4)> 3
SENDMSG 5 传送成功，当前灵符剩余<$GAMEGIRD>
#ELSEACT
SENDMSG 5 传送失败，传送需要50灵符，当前灵符剩余<$GAMEGIRD>

[@天极_探测传送3]
;#if
;EQUAL <$STR(G16)> 1
;#act
;MAPMOVE <$STR(S$地编1)> <$STR(N1)> <$STR(N2)> 3
;SENDMSG 5 周六传送免费！
;break

#if
CHECKGAMEGIRD > 49
#act
GAMEGIRD - 50
MAPMOVE <$STR(S$地编3)> <$STR(N5)> <$STR(N6)> 3
SENDMSG 5 传送成功，当前灵符剩余<$GAMEGIRD>
#ELSEACT
SENDMSG 5 传送失败，传送需要50灵符，当前灵符剩余<$GAMEGIRD>

[@天极_探测传送4]
;#if
;EQUAL <$STR(G16)> 1
;#act
;MAPMOVE <$STR(S$地编1)> <$STR(N1)> <$STR(N2)> 3
;SENDMSG 5 周六传送免费！
;break

#if
CHECKGAMEGIRD > 49
#act
GAMEGIRD - 50
MAPMOVE <$STR(S$地编4)> <$STR(N7)> <$STR(N8)> 3
SENDMSG 5 传送成功，当前灵符剩余<$GAMEGIRD>
#ELSEACT
SENDMSG 5 传送失败，传送需要50灵符，当前灵符剩余<$GAMEGIRD>

[@天极_探测传送5]
;#if
;EQUAL <$STR(G16)> 1
;#act
;MAPMOVE <$STR(S$地编1)> <$STR(N1)> <$STR(N2)> 3
;SENDMSG 5 周六传送免费！
;break

#if
CHECKGAMEGIRD > 49
#act
GAMEGIRD - 50
MAPMOVE <$STR(S$地编5)> <$STR(N9)> <$STR(N10)> 3
SENDMSG 5 传送成功，当前灵符剩余<$GAMEGIRD>
#ELSEACT
SENDMSG 5 传送失败，传送需要50灵符，当前灵符剩余<$GAMEGIRD>

更新一个脚本