Great Script!
Here are some suggestions on fixing the current problems:
typing precombat buffs into the chat bar --- this is caused due to trying to loot a simple way to get by that is just send ESC after hitting enter
Too far away from char -- do this (pulled out my !@#$%^&* but logic should work)
Instead of
Code: Select all
' Run to the mob, they are too far away!
' @@@@ Make this a user def variable
Call RunToLoc(mobX, mobY, -1, FALSE, MaxTargettingDistance)
do
Code: Select all
'Call RunToLoc(mobX, mobY, -1, FALSE, MaxTargettingDistance)
Dim RunToLocTries
RunToLocTries = 0
Do While ((CalcDisToTarget(getMobX(oEQ2Service, spawnID), getMobY(oEQ2Service, spawnID)) > MaxTargettingDistance) and (RunToLocTries<5))
mobX=getMobX(oEQ2Service, spawnID)
mobY=getMobY(oEQ2Service, spawnID)
Call RunToLoc(mobX, mobY, -1, FALSE, MaxTargettingDistance)
RunToLocTries = RunToLocTries+1
Loop
I don't know VBS very well but in theory that should work...