|
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]
|