Basic Guide : LOTROExtreme

ImportScript ".\includes\LOTROService.vbs"

sub VGSendText(strText) 'Get VG focus then send a text string (NO ENTER)
 sub VGSendCommand(strCommand) 'Get VG focus then send a text string with ENTER
 getPlayer() ' Returns a reference object to the player
 getPlayerName() //Returns the Player's Name
 getPlayerHeading() //Returns the Player's Heading
 getPlayerZ() //Returns the Player's Z Coordinage
 getPlayerY() //Returns the Player's Y Coordinage
 getPlayerX() //Returns the Player's X Coordinage
 getPlayerChunkX() 'Returns the map coords in chunk format.
 getPlayerChunkY() 'Returns the map coords in chunk format.
 getPlayerHealth() //Returns the Player's Health
 getPlayerMaxHealth() //Returns the Player's Max Health
 getPlayerDistanceTo(Mob) 'Returns the distance from the player to the mob

 getTarget() ' Returns a reference object to the target
 getTargetID() //Returns the Target SpawnID
 getTargetName() //Returns the Target's Name
 getTargetZ() //Returns the Target's Z Coordinage
 getTargetY() //Returns the Target's Y Coordinage
 getTargetX() //Returns the Target's X Coordinage
 getTargetHealth() //Returns the Target's Health
 getTargetDirection() //Returns the Player's Direction to the target
 getTargetType() //Returns the Target's Type
 getTargetDistance(Mob) '//Return the ingame distance to the mob from the player
 setSearchDistance(distance) //Sets the distance for scanning for mobs (default is 40)
 getNearestMobs(MobType) as ArrayList //Returns with an array of mob objects

 getMob(Mob) ' Returns a byRef object that can be passed to functions
 getMobID(Mob) //Returns the Mob ID
 getMobName(Mob) //Returns the Mob Name
 getMobX(Mob) //Returns the Mob X
 getMobY(Mob) //Returns the Mob Y
 getMobZ(Mob) //Returns the Mob Z
 mobIsAttacking(Mob) '//Returns the true/false if mob is attacking something
 getMobPoints(Mob) '//Returns the Mob Points Rating (1 = easy, 2 = normal, 3 = harder, etc)
 getMobType(Mob) '//Returns the MobType (see globals)
 getMobDistance(Mob) '//Return the ingame distance to the mob from the player
 getMobDirection(Mob) '//Returns the heading degrees to the mob from the player
 getMobIsAggro(Mob) 'returns true/false
 getMobHealth(Mob) '//Returns the Mob Health

Dim

const

const MAX_RUNS = 500000

Dim Ta

Ta = 0

FOR Ta = 1 to MAX_RUNS

FindATarget

AttackTarget

NEXT

Function FindATarget
 VGSendtext "{backspace}" '(this uses the ingame hotkey backspace the target the nearest target)
 sleep 500 '(this pauses the scipt for a half a sec to let this game to keep up)
 end function '( you must end any function you make it kinda like a closer for a functions or sub. after it finishes this function it
                 'return to the mainloop area to do the next thing in line))

Function AttackTarget
   do until getTargetHealth()<=0 '(this is saying do these thing inside this statement and the loop statement till your targets life is < or = 0 meaning it is dead)
     VGSendtext 1 '(this send the keystroke of hotkey 1 to the game.)
      sleep 1000 '(the pause for the skill/spell to recharge or it could be auto attack what ever)
    loop '(this just tell the script to keep going back to the DO statement till it is what it wants)
end function  '(this just closes the functions again and return to the main loop)

ImportScript ".\includes\LOTROService.vbs"
Dim Ta
const MAX_RUNS = 500000
Ta = 0


FOR Ta = 1 to MAX_RUNS
FindATarget
AttackTarget

next

Function FindATarget
 VGSendtext "{backspace}"
 sleep 500
 end function

Function AttackTarget
   do until getTargetHealth()<=0
     VGSendtext 1
      sleep 1000
    loop
end function