Script suggestion - object finder : EverQuest 2 Premium Discussions

This script would work somewhat like the harvester, but it would have a different purpose.

Let's say you were out fighting stuff, and you just wanted an alert when a ? was detected on radar. Once the ? was found, you'd get a notice and could hit the "go to" button to go there automatically. Or create a "wisp" trail to it.

This could also be helpful when doing the "kill X" quests, saving you the hassle of tracking down the right monster in an area with lots of look-alikes.

You could also get a little fancier with it, inputting all the names of named monsters into a data file, and checking for those automatically.

Yet another use could be finding monsters of a certain level and difficulty. The user would set the level and difficulty ranges, and the script would guide you to the closest ones automatically (this could be a useful base for a hunter bot as well).

I dont think the wisp trail is possible is it? Since that would be a in-game function.

So basically for the other stuff, it would be a script on pause until it finds something then it runs you to it? Wouldnt that just be a hunter bot anyway? And if you want to find something while you're playing, why not use the map plug in?

I think the wisp feature is possible. I think there is a way to make a wisp using XY coordinates.

I think what he is trying to say is that its not doing anything visual. Just like a array list of mobs and zones, so if he turns on the script, you wont see anything happening and lets say while he is running aound fighitng mobs with a few buddies a named pops around him but out of view, the script will see this and find it in the array of mobs and alert him that the mob has poped and make a waypoint to the mob.

the command to waypoint to a loc is:

/waypoint x,y,z

you must have all 3 coordinates.

This is so small not worth making an upload out of it. Just cut it and past it as a file in your scripts directory =)

'====================================================================================
'FindmyWay
'====================================================================================
'4-26-05 Retsek Locates nearest spawn by name and sets waypoint to it.
' VERY silly script likely to be detected since not many people
' know about the /waypoint x,z,y command
'
' ***NOTE*** The range on this is similar to tracking so don't
' expect miracles. They waypoint command itself will work
' anywhere in zone the findnearestmob() function just doesn't
' usually find things incredibly far away
'
'====================================================================================
'You must have installed WyvernX's eq2service to use this script.
'
'====================================================================================
' I M P O R T E D S C R I P T S
'====================================================================================
XUScriptHost.ImportScript "EQ2Harvest\EQ2Service.vbs"

Dim EQ2_SvcObj, SpawnID
Dim SpawnX, Spawny, Spawnz, SpawnName
Dim Default

set EQ2_SvcObj = XUScriptPlugin.GetService("EQ2Service.Service")
do until Err.number = 0
XUScriptPlugin.staStatus.Text = "EQ2Service failed to load"
Sleep 5000
set EQ2_SvcObj = XUScriptPlugin.GetService("EQ2Service.Service")
Loop

Default = "?"
SpawnName = InputBox("What do you want to find?", "Find My Way", Default)

SpawnID = findnearestmob(EQ2_SvcObj, SpawnName)
if spawnid > -1 then
Spawnx = getmobx(eq2_svcobj, spawnid)
Spawny = getmoby(eq2_svcobj, spawnid)
Spawnz = getmobz(eq2_svcobj, spawnid)
sendkeys("/waypoint " & spawnx & "," & spawnz & "," & spawny & "{ENTER}")
xuscriptplugin.stastatus.text = SpawnName & " found - waypoint set"
Else
xuscriptplugin.stastatus.text = Spawnname & " NOT Found"
End if
sleep 3000

Nice job!

If nothing else it makes for a nice scripting example.

Just updated the script a bit to loop so you can run around and find all the targets. And also it will only set a new waypoint if the spawn it finds changes.

Most credit given to retsek

'====================================================================================
'FindmyWay
'====================================================================================
'4-26-05 Retsek Locates nearest spawn by name and sets waypoint to it.
' VERY silly script likely to be detected since not many people
' know about the /waypoint x,z,y command
'
' ***NOTE*** The range on this is similar to tracking so don't
' expect miracles. They waypoint command itself will work
' anywhere in zone the findnearestmob() function just doesn't
' usually find things incredibly far away
'
'====================================================================================
'You must have installed WyvernX's eq2service to use this script.
'
'====================================================================================
' I M P O R T E D S C R I P T S
'====================================================================================
XUScriptHost.ImportScript "EQ2Harvest\EQ2Service.vbs"

Dim EQ2_SvcObj, SpawnID
Dim SpawnX, Spawny, Spawnz, SpawnName
Dim Default
Dim RunUntill
Dim CurrentSpawnID
CurrentSpawnID = 0
set EQ2_SvcObj = XUScriptPlugin.GetService("EQ2Service.Service")
do until Err.number = 0
XUScriptPlugin.staStatus.Text = "EQ2Service failed to load"
Sleep 5000
set EQ2_SvcObj = XUScriptPlugin.GetService("EQ2Service.Service")
Loop

Default = "?"
SpawnName = InputBox("What do you want to find?", "Find My Way", Default)

RunUntill = true
do while RunUntill
SpawnID = findnearestmob(EQ2_SvcObj, SpawnName)
if spawnid > -1 then
if spawnid <> CurrentSpawnID then
Spawnx = getmobx(eq2_svcobj, spawnid)
Spawny = getmoby(eq2_svcobj, spawnid)
Spawnz = getmobz(eq2_svcobj, spawnid)
CurrentSpawnID = spawnid
sendkeys("/waypoint " & spawnx & "," & spawnz & "," & spawny & "{ENTER}")
xuscriptplugin.stastatus.text = SpawnName & " found - waypoint set"
else
xuscriptplugin.stastatus.text = "Same waypoint"
sleep 2000
End if
Else
CurrentSpawnID = 0
xuscriptplugin.stastatus.text = Spawnname & " NOT Found"
sleep 2000
End if
xuscriptplugin.stastatus.text = "Sleeping for 5 seconds"
sleep 5000
loop
set EQ2_SvcObj = Nothing

Awesome, thanks.