EQ2Service Scripting Object v.1.2 : EverQuest 2 Premium Discussions - Page 4

Posted: April 21st, 2005, 4:36 pm

wyvernx

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

This really is the wrong thread for this, you should start new threads for new topics.

No, you dont need to recompile the radar, it should work with the new eq2service.dll that I just uploaded.

_________________
Use Search first, ask questions later!

Posted: April 21st, 2005, 4:43 pm

krytical
krytical's Reps:

srry thought it would be ok to ask here since u need the scripting service for the radar but thanks its great to hear =)

Posted: April 23rd, 2005, 1:18 pm

retsek

Total Posts: 46
Joined: March 30th, 2005, 3:44 am retsek's Reps: 0

Suggestion: A function that would be VERY handy for those of us scripting harvest bots would be InventoryFull() returning true/false. That way we could halt the script instead of running around looking suspicious.

Posted: April 23rd, 2005, 1:18 pm

wyvernx

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

Fixed some bugs in the EQ2Service and added some features for radar.

Also added a couple of functions for the bots. The most important one is getMobDifficulty which will return things like ^,^^,^^^ etc.

_________________
Use Search first, ask questions later!

Posted: April 26th, 2005, 1:19 pm

jamesm
jamesm's Reps:

Would it be possible to get a list of currently maintained buffs?

Posted: April 26th, 2005, 1:28 pm

wyvernx

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

Yes, I have the mem locs, but the structure hasnt been stable so I've been avoiding it.

Are you wanting to make a bot that uses it?

_________________
Use Search first, ask questions later!

Posted: April 26th, 2005, 6:10 pm

jamesm
jamesm's Reps:

I am trying to make an xp soloin bot.

I am trying to keep myself buffed, and pixel reading is unreliable at best.

I have seen where the maintained buffs are in memory.
00DF4678 : buff1
00DF46DD: buff2
00DF4733: buff 3

And I have seen the memory functions in the xuscripthost, but I do not know how to make them work.

Posted: April 28th, 2005, 1:49 pm

wyvernx

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

Hi guys, just got my Bug Tracker areas setup.

Please post bugs and feature requests about the scripting service here:

http://www.xunleashed.com/mantis/main_page.php

_________________
Use Search first, ask questions later!

Posted: April 30th, 2005, 7:46 am

richyrich
richyrich's Reps:

retsek";p="63028 (!empty($user->lang['WROTE'])) ? $user->lang['WROTE'] : ucwords(strtolower(str_replace('_', ' ', 'WROTE'))):

Easy way to handle this is to read the log for the text that says it and once you see it, stop looting from then on. That is how I'm going to do it in MegaBot.

Posted: April 30th, 2005, 9:59 am

wyvernx

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

I'm adding the chat logger to the XU Service so that it will make getting the log easier.

Also, I can trigger API functions off of it so users can query the service instead of parsing the log.

_________________
Use Search first, ask questions later!

Posted: May 4th, 2005, 11:54 am

retsek

Total Posts: 46
Joined: March 30th, 2005, 3:44 am retsek's Reps: 0

Using the following script and targeting appropriate objects, mobs etc... it seems a large number of functions are broken. They really nailed the memory locations this time =(

'==================================================================================================
'5-4-05 TestEQ2Service - a very crude test script to check all eq2service functions
'==================================================================================================

Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim EQ2SVC, SpawnID, SpawnIndex, SpawnName, LogFileName

XUScriptHost.ImportScript("..\Plugins\Everquest2\EQ2Service\EQ2Service.vbs")

set EQ2Svc = 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

LogFileName = GetXUnleashedDirectory() & "\Scripts\eq2svctest.log"

'function getPlayerName(ByRef obj)
Writelogline("Testing Getplayername: " & Getplayername(eq2svc))
writelogline("")

'function getPlayerHeading(ByRef obj)
writelogline("Testing Getplayerheading: " & Getplayerheading(eq2svc))
writelogline("")

'function getPlayerX(ByRef obj)
writelogline("Testing GetplayerX: " & Getplayerx(eq2svc))
writelogline("")

'function getPlayerY(ByRef obj)
writelogline("Testing GetPlayerY: " & Getplayery(eq2svc))
writelogline("")

'function getPlayerZ(ByRef obj)
writelogline("Testing GetPlayerZ: " & Getplayerz(eq2svc))
writelogline("")

'function getPlayerHealth(ByRef obj)
writelogline("Testing GetplayerHealth: " & Getplayerhealth(eq2svc))
writelogline("")

'function getPlayerMaxHealth(ByRef obj)
writelogline("Testing Getplayermaxhealth: " & Getplayermaxhealth(eq2svc))
writelogline("")

'function getPlayerPower(ByRef obj)
writelogline("Testing Getplayerpower: " & Getplayerpower(eq2svc))
writelogline("")

'function getPlayerMaxPower(ByRef obj)
writelogline("Testing Getplayermaxpower: " & Getplayermaxpower(eq2svc))
writelogline("")

'function getAdventurerLevel(ByRef obj)
writelogline("Testing Getadventurerlevel: " & Getadventurerlevel(eq2svc))
writelogline("")

'function getArtisanLevel(ByRef obj)
writelogline("testing Getartisanlevel: " & Getartisanlevel(eq2svc))
writelogline("")

Msgbox "Target a mob then press OK", vbOK

'function getTargetID(ByRef obj)
SpawnID = GetTargetID(eq2svc)
writelogline("testing GettarGetid: " & SpawnID)
writelogline("")

'function getMobIndex(ByRef obj, SpawnID)
SpawnIndex = GetMobIndex(eq2svc, spawnid)
writelogline("testing getmobindex: " & SpawnIndex)
writelogline("")

'function getMobID(ByRef obj, Index)
SpawnID = getmobid(eq2svc, spawnindex)
Writelogline("testing getmobid: " & spawnid)
writelogline("")

'function getMobName(ByRef obj, SpawnID)
Spawnname = getmobname(eq2svc, spawnid)
writelogline("testing getmobname: " & spawnname)
writelogline("")

'function getMobX(ByRef obj, SpawnID)
writelogline("testing getmobx: " & getmobx(eq2svc, spawnid))
writelogline("")

'function getMobY(ByRef obj, SpawnID)
writelogline("testing getmoby: " & getmoby(eq2svc, spawnid))
writelogline("")

'function getMobZ(ByRef obj, SpawnID)
writelogline("testing getmobz: " & getmobz(eq2svc, spawnid))
writelogline("")

'function getMobLevel(ByRef obj, SpawnID)
writelogline("testing getmoblevel: " & getmoblevel(eq2svc, spawnid))
writelogline("")

'function mobIsAttacking(ByRef obj, Index)
Msgbox "Target a non-attacking mob then press OK", vbOK
SpawnID = GetTargetID(eq2svc)
SpawnIndex = GetMobIndex(eq2svc, spawnid)
writelogline("Non attacking mob targeted")
writelogline("testing mobisattacking: " & mobisattacking(eq2svc, spawnindex))
writelogline("")

Msgbox "Target an attacking mob then press OK", vbOK
SpawnID = GetTargetID(eq2svc)
SpawnIndex = GetMobIndex(eq2svc, spawnid)
writelogline("Attacking mob targeted")
writelogline("testing mobisattacking: " & mobisattacking(eq2svc, spawnindex))
writelogline("")

sendkeys("{F1}")
sleep 100
SpawnID = gettargetID(eq2svc)

'function getMobHealth(ByRef obj, SpawnID)
writelogline("testing getmobhealth: " & getmobhealth(eq2svc, spawnid))
writelogline("")

'function getMobPower(ByRef obj, SpawnID)
writelogline("testing getmobpower: " & getmobpower(eq2svc, spawnid))
writelogline("")

'function getMobDifficulty(ByRef obj, SpawnID)
writelogline("testing getmobdifficulty: " & getmobdifficulty(eq2svc, spawnid))
writelogline("")

'function findMob(ByRef obj, MobName)
writelogline("Looking for: " & spawnname)
writelogline("testing findmob: " & findmob(eq2svc, spawnname))
writelogline("")

'function findNextMob(ByRef obj)
writelogline("testing findnextmob: " & findnextmob(eq2svc))
writelogline("")

'function findNearestMob(ByRef obj, MobName)
writelogline("Looking for: " & spawnname)
writelogline("testing findnearestmob: " & findnearestmob(eq2svc, spawnname))
writelogline("")

'function findNextNearestMob(ByRef obj)
writelogline("testing findnextnearestmob: " & findnextnearestmob(eq2svc))
writelogline("")

'function getMaxIndex(ByRef obj)
writelogline("testing getmaxindex: " & getmaxindex(eq2svc))
writelogline("")

'function getZoneName(ByRef obj)
writelogline("testing getzonename: " & getzonename(eq2svc))
writelogline("")

'function getInstanceName(ByRef obj)
writelogline("testing getinstancename: " & getinstancename(eq2svc))
writelogline("")

Set EQ2SVC = Nothing

'====================================================================================
' A P P E N D T E X T T O T E S T L O G
'====================================================================================
function writeLogLine (msg)
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

Results were:

[Wednesday, May 04, 2005 2:42:45 PM] Testing Getplayername:
[Wednesday, May 04, 2005 2:42:45 PM]
[Wednesday, May 04, 2005 2:42:45 PM] Testing Getplayerheading: 0
[Wednesday, May 04, 2005 2:42:45 PM]
[Wednesday, May 04, 2005 2:42:45 PM] Testing GetplayerX: 0
[Wednesday, May 04, 2005 2:42:45 PM]
[Wednesday, May 04, 2005 2:42:45 PM] Testing GetPlayerY: 0
[Wednesday, May 04, 2005 2:42:45 PM]
[Wednesday, May 04, 2005 2:42:45 PM] Testing GetPlayerZ: 0
[Wednesday, May 04, 2005 2:42:45 PM]
[Wednesday, May 04, 2005 2:42:45 PM] Testing GetplayerHealth: 0
[Wednesday, May 04, 2005 2:42:45 PM]
[Wednesday, May 04, 2005 2:42:45 PM] Testing Getplayermaxhealth: 0
[Wednesday, May 04, 2005 2:42:45 PM]
[Wednesday, May 04, 2005 2:42:45 PM] Testing Getplayerpower: 0
[Wednesday, May 04, 2005 2:42:45 PM]
[Wednesday, May 04, 2005 2:42:45 PM] Testing Getplayermaxpower: 0
[Wednesday, May 04, 2005 2:42:45 PM]
[Wednesday, May 04, 2005 2:42:45 PM] Testing Getadventurerlevel: 0
[Wednesday, May 04, 2005 2:42:45 PM]
[Wednesday, May 04, 2005 2:42:46 PM] testing Getartisanlevel: 0
[Wednesday, May 04, 2005 2:42:46 PM]
[Wednesday, May 04, 2005 2:42:57 PM] testing GettarGetid: 0
[Wednesday, May 04, 2005 2:42:57 PM]
[Wednesday, May 04, 2005 2:42:57 PM] testing getmobindex: -1
[Wednesday, May 04, 2005 2:42:57 PM]
[Wednesday, May 04, 2005 2:42:57 PM] testing getmobid: 0
[Wednesday, May 04, 2005 2:42:57 PM]
[Wednesday, May 04, 2005 2:42:57 PM] testing getmobname:
[Wednesday, May 04, 2005 2:42:57 PM]
[Wednesday, May 04, 2005 2:42:57 PM] testing getmobx: 0
[Wednesday, May 04, 2005 2:42:57 PM]
[Wednesday, May 04, 2005 2:42:57 PM] testing getmoby: 0
[Wednesday, May 04, 2005 2:42:57 PM]
[Wednesday, May 04, 2005 2:42:57 PM] testing getmobz: 0
[Wednesday, May 04, 2005 2:42:57 PM]
[Wednesday, May 04, 2005 2:42:57 PM] testing getmoblevel: 0
[Wednesday, May 04, 2005 2:42:57 PM]
[Wednesday, May 04, 2005 2:42:58 PM] Non attacking mob targeted
[Wednesday, May 04, 2005 2:42:58 PM] testing mobisattacking: False
[Wednesday, May 04, 2005 2:42:58 PM]
[Wednesday, May 04, 2005 2:42:59 PM] Attacking mob targeted
[Wednesday, May 04, 2005 2:42:59 PM] testing mobisattacking: False
[Wednesday, May 04, 2005 2:42:59 PM]
[Wednesday, May 04, 2005 2:43:00 PM] testing getmobhealth: 0
[Wednesday, May 04, 2005 2:43:00 PM]
[Wednesday, May 04, 2005 2:43:00 PM] testing getmobpower: 0
[Wednesday, May 04, 2005 2:43:00 PM]
[Wednesday, May 04, 2005 2:43:00 PM] testing getmobdifficulty: 0
[Wednesday, May 04, 2005 2:43:00 PM]
[Wednesday, May 04, 2005 2:43:00 PM] Looking for: badger
[Wednesday, May 04, 2005 2:43:00 PM] testing findmob: -1
[Wednesday, May 04, 2005 2:43:00 PM]
[Wednesday, May 04, 2005 2:43:00 PM] testing findnextmob: -1
[Wednesday, May 04, 2005 2:43:00 PM]
[Wednesday, May 04, 2005 2:43:00 PM] Looking for: badger
[Wednesday, May 04, 2005 2:43:00 PM] testing findnearestmob: -1
[Wednesday, May 04, 2005 2:43:00 PM]
[Wednesday, May 04, 2005 2:43:00 PM] testing findnextnearestmob: -1
[Wednesday, May 04, 2005 2:43:00 PM]
[Wednesday, May 04, 2005 2:43:00 PM] testing getmaxindex: 0
[Wednesday, May 04, 2005 2:43:00 PM]
[Wednesday, May 04, 2005 2:43:00 PM] testing getzonename:
[Wednesday, May 04, 2005 2:43:00 PM]
[Wednesday, May 04, 2005 2:43:00 PM] testing getinstancename:
[Wednesday, May 04, 2005 2:43:00 PM]

Posted: May 4th, 2005, 12:50 pm

jabst1922
jabst1922's Reps:

retsek";p="64139 (!empty($user->lang['WROTE'])) ? $user->lang['WROTE'] : ucwords(strtolower(str_replace('_', ' ', 'WROTE'))):

wow thatl's alot of mem locs

Posted: May 4th, 2005, 1:18 pm

ephancockjr

Total Posts: 16
Joined: April 14th, 2005, 12:46 pm ephancockjr's Reps: 0

Probally the same mem locations just diffrent offset or starting mem location.

So should not be that bad. I am a developer and willing to help if you need it wyvernx