Page 1 of 1
Problems with EQ2Harvester
Posted: February 27th, 2005, 8:33 pm
by laubbaum
HI
I am quite new to all this stuff.
Basically I have 2 problems.
1. With Xunleashed hooked in EQ2 the buttons of all those Xunleashed windows in game don t work properly. I have to click serveral time to activate a script for example. Anything i can do about that?
2. I am using the German EQ2. I am not sure which names of resources to put in the config file. The standard config doesnt work in Commonlands. It just says No Resources found -> Sleeping.
It also doesn't Tab to check to targets. Don't even know if it is supposed to do that.
thx
PS. hotkeys are set as described.
Posted: February 27th, 2005, 10:48 pm
by wyvernx
1. Yes, follow the instructions. Place a eq2 window behind the XU windows to be able to interract with them.
2. It is the same names that you see in game. Whatever you see as you target name, that is what you put in the vbs file.
Re: Problems with EQ2Harvester
Posted: February 28th, 2005, 5:18 am
by laubbaum
ok thanks . I have put the german names as they appear on screen in the config file. If I start the script it still says "No Resources found. Walking to new place near Origin." But there are Resources nearby. That is all it does.
thx for the help
Posted: March 1st, 2005, 10:43 pm
by wyvernx
I'm not sure what to tell ya.
All I did was take the target name that I saw on my screen and put it into the array.
Does your names have any special characters in them, ie with umlouts (sp?) or anything?
Post your array so I can see what you are entering.
Finally, do this.
Run this script and see what names the script "thinks" is around your char:
Code: Register to unlock hidden link
Dim oServiceObject
Dim File
Dim temp
Dim FTarget
logFilename = GetXUnleashedDirectory() + "\Scripts\EQ2Test.txt" 'debug log file
function writeLogLine (msg)
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim FTarget, File, MyDate, MyTime, temp
MyDate = CStr (FormatDateTime (Date, 1))
MyTime = CStr (FormatDateTime (Time, 3))
Set FTarget = CreateObject("Scripting.FileSystemObject")
Set File = FTarget.OpenTextFile(logFilename, ForAppending, True)
temp = "[" & MyDate & " " & MyTime & "] " & msg & vbCrLf
File.Write temp
File.Close
end function
writeLogLine("Loading in Library: EQ2Service")
XUScriptPlugin.staStatus.Text = "Loading libraries... (EQ2Harvest-EQ2Service)"
XUScriptHost.ImportScript("EQ2Harvest\EQ2Service.vbs")
XUScriptPlugin.staStatus.Text = "Loading EQ2Service..."
set oServiceObject = XUScriptPlugin.GetService("EQ2Service.Service")
if Err.Number <> 0 then
XUScriptPlugin.staStatus.Text = "EQ2Service Failed to load!"
Sleep 5000
else
XUScriptPlugin.staStatus.Text = "UpdateData"
oServiceObject.UpdateData
Sleep 1000
Dim SpawnID
for i = 0 to 60
SpawnID = getMobID(oServiceObject, i)
SpawnName = getMobName(oServiceObject, i)
SpawnLevel = getMobLevel(oServiceObject, i)
writeLogLine("SpawnID[" & i & "," & SpawnName & "] is " & SpawnID & " level=" & SpawnLevel)
next
Sleep 2000
set File = Nothing
set FTarget = Nothing
set oServiceObject = Nothing
end if