taultunleashed logoScript suggestion - object finder : EverQuest 2 Premium Discussions
newtopic  postreply
 [ 8 posts ] 
blue large dot

Script suggestion - object finder : EverQuest 2 Premium Discussions

Posted: April 24th, 2005, 6:11 pm
 
llew22

Total Posts: 47
Joined: February 5th, 2005, 7:52 pm
llew22's Reps: 3
User avatar
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).


Reply with quote
Posted: April 25th, 2005, 1:13 pm
 
lyric76
lyric76's Reps:
User avatar
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?


Reply with quote
Posted: April 25th, 2005, 3:33 pm
 
psirusmojo

Total Posts: 36
Joined: March 28th, 2005, 3:15 am
psirusmojo's Reps: 4
User avatar
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.


Reply with quote
Posted: April 25th, 2005, 10:33 pm
 
simucal
simucal's Reps:
User avatar
the command to waypoint to a loc is:

/waypoint x,y,z

you must have all 3 coordinates.


Reply with quote
Posted: April 26th, 2005, 6:57 am
 
retsek

Total Posts: 46
Joined: March 30th, 2005, 3:44 am
retsek's Reps: 0
User avatar
Lifetime Member (Scripting)
premium
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


Reply with quote
Posted: April 26th, 2005, 8:21 am
 
macaw2000
macaw2000's Reps:
User avatar
Nice job!

If nothing else it makes for a nice scripting example.


Reply with quote
Posted: April 26th, 2005, 10:10 am
 
ephancockjr

Total Posts: 16
Joined: April 14th, 2005, 12:46 pm
ephancockjr's Reps: 0
User avatar
premium
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


Reply with quote
Posted: April 27th, 2005, 8:12 pm
 
llew22

Total Posts: 47
Joined: February 5th, 2005, 7:52 pm
llew22's Reps: 3
User avatar
Awesome, thanks.


Reply with quote
Want Advertisements After The Last Post Removed? Create A Free Account!

blue large dot Who is online
Users browsing this forum: No registered users and 23 guests

Popular Sections
SWTOR Cheats
Guild Wars 2 Cheats
Guild Wars 2 Hacks
Guild Wars 2 Bots
Diablo 3 Cheats
Guild Wars 2 Mods

Popular Sections
WoW Cataclysm Cheats & Exploits
WoW Cataclysm Hacks & Bots
Star Wars The Old Republic Cheats
SWTOR Mods
Torchlight 2 Cheats
SWTOR Space Mission Bots
Site Nav and RSS
RSS Feed of EverQuest 2 Premium Discussions RSS Feed 
Sitemap of EverQuest 2 Premium Discussions Sitemap 
SitemapIndex SitemapIndex
RSS Feed RSS Feed
Channel list Channel list
left bottom corner Site and Contents Copyright 2001-2012 All Rights Reserved TaultUnleashed.com bottom corner
top left
top right
createaccount
Username:   Password:   Remember Me?