Post Reply Home » Forums » MMO Forums » EverQuest 2 » EverQuest 2 Premium Discussions

Problems with EQ2Harvester : EverQuest 2 Premium Discussions

Posted: February 27th, 2005
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
User avatar
Premium
Total Posts:6662 Joined:2004
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
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
User avatar
Premium
Total Posts:6662 Joined:2004
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





_________________
Use Search first, ask questions later!
Ready to join the community? Click here and see all of the benefits!
blue large dotWho is online
Users browsing this forum: No registered users and 32 guests
Post Reply