Problems with EQ2Harvester : EverQuest 2 Premium Discussions

Posted: February 27th, 2005, 8:33 pm

laubbaum
laubbaum's Reps:

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

wyvernx

Total Posts: 6718
Joined: May 1st, 2004, 4:00 am wyvernx's Reps: 21

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.

_________________
Use Search first, ask questions later!

Posted: February 28th, 2005, 5:18 am

laubbaum
laubbaum's Reps:

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

wyvernx

Total Posts: 6718
Joined: May 1st, 2004, 4:00 am wyvernx's Reps: 21

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:

(!empty($user->lang['CODE'])) ? $user->lang['CODE'] : ucwords(strtolower(str_replace('_', ' ', 'CODE'))):

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