taultunleashed

Code: Register to unlock hidden link

    'Rest up unless we get attacked
    PlayerHealth = getPlayerHealth 
    do while ((getPlayerPower < getPlayerMaxPower) and (PlayerHealth <= getPlayerHealth))
        Sleep 1000
    loop

Code: Register to unlock hidden link

'///////////////////////////////////////////////////////
'///     -=*) \/anguard : Saga of |-|eroes (*=-      ///
'///          ~~~~~~~~~~~~~~~~~~~~~~~~~~~~           ///
'///          V G E x t r e m e  V 1. 0 0            ///
'///          ~~~~~~~~~~~~~~~~~~~~~~~~~~~~           ///
'///Author:  WyvernX                                 ///
'///Original Release:  2/14/07                       ///
'///License:  TaultUnleashed Premium Members ONLY    ///
'///Summary:  Enables memory access to Vanguard      ///
'///          class objects and logs.                ///
'///Notes:  Feel free to modify this, just please    ///
'///        Document all your changes and share it.  ///
'/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
'///Discussion:  http://www.taultunleashed.com/phpbb2/about44099_VGService_Scripting_Service_for_Vanguard_.html    ///
'/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
'///Modifications by: Antareus
'///     Date:  3/25/07
'///     Summary:  Turned the bot into a Paladin Bot.
'///////////////////////////////////////////////////////

'// This will load in all of the VG API routines.
RunScript "includes\VGService.vbs"
RunScript "includes\Navigation.vbs"

'///////////////////////////////////////////////////////
'///                                                 ///
'///               Ant Paladin Bot V1.15             ///
'///                                                 ///
'///////////////////////////////////////////////////////


'/////////////////////////////////////
'//  Paladin Spells / Ability list  //
'/////////////////////////////////////
'//  Debuff / Pull Spells //
'///////////////////////////
Dim DEBUFF_USED
const JUDGMENT_OF_THE_ENVIOUS = "/cast ""Judgment of the Envious II"" "
const JUDGMENT_OF_THE_PROUD = "/cast ""Judgment of the Proud III"" "
const JUDGMENT_OF_THE_BLOODTHIRSTY = "/cast ""Judgment of the Bloodthirsty II"" "
const JUDGMENT_OF_THE_WRATHFUL = "/cast ""Judgment of the Wrathful I"" "
const JUDGMENT_OF_THE_IMPURE = "/cast ""Judgment of the Impure III"" "
const SMITE = "/cast ""Smite IV"" "

'//////////////////////
'// Combat Abilities //
'//////////////////////
const AUTO_ATTACK = "/cast ""Auto Attack"" "
const CHAMPIONS_MIGHT = "/cast ""Champion's Might IV"" "
const HOLY_STRIKE = "/cast ""Holy Strike V"" "
const SENTINELS_BLESSING = "/cast ""Sentine's Blessing III"" "
const HAMMER_OF_JUDGMENT = "/cast ""Hammer of Judgment IV"" "
const VANQUISH = "/cast ""Vanquish II"" "
const MARSHALLING_CRY = "/cast ""Marshalling Cry III"" "
const AEGIS_STRIKE = "/cast ""Aegis Strike V"" "

'///////////////////
'// Heals / Buffs //
'///////////////////

const CRY_OF_ILLUMINATION = "/cast ""Cry of Illumination I"" "
const BOON_OF_VALUS = "/cast ""Boon of Valus IV"" "
const BOON_OF_VOL_ANARI = "/cast ""Boon of Vol Anari III"" "
const PARAGON_OF_JUSTICE = "/cast ""Paragon of Justice II"" "
const BARRIER_OF_FAITH = "/cast ""Barrier of Faith"" "
const HEALING_TOUCH = "/cast ""Healing Touch V"" "
const CRY_OF_SOLACE = "/cast ""Cry of Solace III"" "
const LAYING_ON_OF_HANDS = "/cast ""Laying on of Hands III"" "
'// [!] Note:  Remember, Only one blessing may be active at a time!
const BLESSING_OF_GLORIANNS_PROTECTION = "/cast ""Blessing of Gloriann's Protection III"" "
const BLESSING_OF_VAELION = "/cast ""Blessing of Vaelion I"" "
const BLESSING_OF_VOTHDAR = "/cast ""Blessing of Vothdar IV"" "
'// [!] Note:  Only one consecration may be active at a time!
const SHIELD_OF_REBUKE = "/cast ""Shield of Rebuke"" "
const SHIELD_OF_RESOLVE = "/cast ""Shield of Resolve"" "
const COURAGE = "/cast ""Courage III"" "

'//////////////////
'// Sleep Timers //
'//////////////////
const SitAndMed = 1000
const WaitForMobs = 1000
const LootPause = 1000
const DebuffPullSleep = 1500
const CombatSleep = 2000
const HealSleep = 3000
const WALK = 5500

'/////////////////////////////
'// Miscellaneous Variables //
'/////////////////////////////
const enduranceThreshold = 20 '// 0-100 # you want to set as the point to Cast Cry of Illumination at.
const healthThreshold = 80    '// Percent Health 0-100 you want to start healing your character.
const VGSendEnterKey = "{ENTER}"
const HOTKEY_NEXT_MOB = "{TAB}"
const HOTKEY_NEAREST_MOB = "{F8}"

'////////////////////
'// Waypoints list //
'////////////////////
const WAYPOINTS = 16
Dim WAYPOINT_ARRAY(16,1)
WAYPOINT_ARRAY(0,0) = -14773
WAYPOINT_ARRAY(0,1) = 99354
WAYPOINT_ARRAY(1,0) = -16218
WAYPOINT_ARRAY(1,1) = 99281
WAYPOINT_ARRAY(2,0) = -18066
WAYPOINT_ARRAY(2,1) = 98420
WAYPOINT_ARRAY(3,0) = -19736
WAYPOINT_ARRAY(3,1) = 97420
WAYPOINT_ARRAY(4,0) = -21294
WAYPOINT_ARRAY(4,1) = 96337
WAYPOINT_ARRAY(5,0) = -22057
WAYPOINT_ARRAY(5,1) = 95700
WAYPOINT_ARRAY(6,0) = -23005
WAYPOINT_ARRAY(6,1) = 95373
WAYPOINT_ARRAY(7,0) = -23492
WAYPOINT_ARRAY(7,1) = 95987
WAYPOINT_ARRAY(8,0) = -24143
WAYPOINT_ARRAY(8,1) = 97554
WAYPOINT_ARRAY(9,0) = -25209
WAYPOINT_ARRAY(9,1) = 99705
WAYPOINT_ARRAY(10,0) = -25821
WAYPOINT_ARRAY(10,1) = 101397
WAYPOINT_ARRAY(11,0) = -25132
WAYPOINT_ARRAY(11,1) = -101645
WAYPOINT_ARRAY(12,0) = -23564
WAYPOINT_ARRAY(12,1) = -100634
WAYPOINT_ARRAY(13,0) = -21280
WAYPOINT_ARRAY(13,1) = -101350
WAYPOINT_ARRAY(14,0) = -18638
WAYPOINT_ARRAY(14,1) = 102350
WAYPOINT_ARRAY(15,0) = -16626
WAYPOINT_ARRAY(15,1) = 102350
WAYPOINT_ARRAY(16,0) = -16513
WAYPOINT_ARRAY(16,1) = 100985


'How many mobs (loops)
Dim RunCounter
const MAX_RUNS = 500000

'What we want to hunt
Dim GoodSpawns(0)
GoodSpawns(0) = ""

'Random Variables
Dim PlayerHealth

DIM PC 
PC = 0

DIM WP 
WP = 0

'///////////////////////////////////////////////////////
'///                                                 ///
'///               Helper Routines                   ///
'///                                                 ///
'///////////////////////////////////////////////////////

Function BuffMe()
VGSendText BLESSING_OF_GLORIANNS_PROTECTION
VGSendText VGSendEnterKey
Sleep CombatSleep
VGSendText BOON_OF_VALUS
VGSendText VGSendEnterKey
Sleep CombatSleep
VGSendText COURAGE
VGSendText VGSendEnterKey
End Function

'Function to determine if what we have targeted we can attack
function MobIsValid(Mob)
    Dim i

    MobIsValid = False
    for i = 0 to ubound(GoodSpawns)
        if GoodSpawns(i) = Mob.Name then
            MobIsValid = True
            exit for
        end if
    next
end function

Function FindTarget( minLevel, maxLevel, distance)
    set Mobs = getNearestMobs(TYPE_NPC) 'Unknown/All
    Dim bFoundSomething
    bFoundSomething = false
    for each Mob in Mobs
        if (MobIsValid(Mob) and (getMobDistance(Mob) < distance) ) then
            set FindTarget = Mob
            Log.DebugLog "Found a target: " & Mob.Name
            bFoundSomething = true
            exit for
        end if
    next
    if (bFoundSomething = false) then
        Log.DebugLog "No Targets nearby..."
        set FindTarget = getPlayer 'Have to return something since we are expecting an object
    end if
End Function

function TargetNearestMob(Mob)
    faceMob(Mob)
    Log.DebugLog "Hitting F8 for nearest NPC..."
    VGSendText HOTKEY_NEAREST_MOB
    if (VG.Target.GUID = Mob.GUID) then
            Log.DebugLog "Got Him!"
        TargetNearestMob = true
    else
        Log.DebugLog "Hmm.. That mob doesnt seem to be the nearest one."
        TargetNearestMob = false
    end if
    Sleep WaitForMobs 'Let the mob HP populate
end function

function TargetNextMob(Mob)
    faceMob(Mob)
    Log.DebugLog "Hitting Tab for next NPC..."
    VGSendText HOTKEY_NEXT_MOB
    if (getTargetID = getMobID(Mob)) then
            Log.DebugLog "Got Him!"
        TargetNextMob = true
    else
        Log.DebugLog "Hmm.. That mob doesnt seem to be the next one."
        TargetNextMob = false
    end if
    Sleep WaitForMobs 'Let the mob HP populate
end function

Function KillCurrentTarget()
    notbeingattacked = 0
    Log.DebugLog "Facing Mob..." & Target.HP
    faceMob getTarget
    Log.DebugLog "Moving to Target"
    MoveToMob getTarget

    '// [!] Configure your own pull spell here!    
    Log.DebugLog ("--- Beginning Combat Sequence! ---")
    Log.DebugLog ("[*] Attempting to pull [" & Target.Name & "].")
    VGSendText JUDGMENT_OF_THE_PROUD
    VGSendText VGSendEnterKey

    faceMob getTarget
    Log.DebugLog ("[*] Sentinel's Blessing -> [" & Target.name & "].")
    VGSendText SENTINELS_BLESSING
    VGSendText VGSendEnterKey
    Sleep CombatSleep

    
    faceMob getTarget
    Log.DebugLog ("[*] Champion's Might -> [" & Target.Name & "].")
    VGSendText CHAMPIONS_MIGHT
    VGSendText VGSendEnterKey
    Sleep CombatSleep


    Do Until (getTargetId = 0 Or getTargetHealth = 0 Or stopattack = 1 Or notbeingattacked = 1)

        If (getPlayerHealth = 0) Then
            Log.DebugLog "You have died!~"  
            RunCounter = MAX_RUNS 'this wil stop the script
            Exit Do
        End If


    facemob getTarget
    Log.DebugLog ("[*] Trying to use Marshalling Cry.")
    VGSendText MARSHALLING_CRY
    VGSendText VGSendEnterKey
   
    faceMob getTarget
    Log.DebugLog ("[*] Holy Strike -> [" & Target.Name & "].")
    VGSendText HOLY_STRIKE
    VGSendText VGSendEnterKey
    Sleep CombatSleep

    faceMob getTarget
    Log.DebugLog ("[*] Hammer of Judgment -> [" & Target.Name & "].")
    VGSendText HAMMER_OF_JUDGMENT
    VGSendText VGSendEnterKey
    Sleep CombatSleep

    If (getPlayerPower < enduranceThreshold) Then
        Log.DebugLog("[*] Endurance has fallen below the threshold -- Attempting to use Cry of Illumination.")
        VGSendText CRY_OF_ILLUMINATION
        VGSendText VGSendEnterKey
    End If

    If ( ((getPlayerMaxHealth / getPlayerHealth) * 100) < healthThreshold) Then
        If ( ((getPlayerMaxHealth / getPlayerHealth) * 100) <= 20) Then
            Log.DebugLog("[*] Health critically low -- Using Barrier of Faith!")
            VGSendText BARRIER_OF_FAITH
            VGSendText VGSendEnterKey
            Log.DebugLog("[*] Barrier of Faith is up, quick healing with Cry of Solace.")
            VGSendText CRY_OF_SOLACE
            VGSendText VGSendEnterKey
        End If
        Log.DebugLog "[*] Health has fallen below the threshold -- Attempting to cast Healing Touch!"
        VGSendText HEALING_TOUCH 'Use healing spell
        VGSendText VGSendKeyEnter
        Sleep HealSleep
    End If
  
    If (getPlayerIsAttacking = False And getTargetIsAttacking = False) Then
    Log.DebugLog ("[*] --- Combat Sequence Completed ---")
    notbeingattacked = 1   
    End If
   
    sleep 2000
    Loop
end function

Function KillNearestTarget
  Dim aTarget
  set aTarget = FindTarget(3,5,40*VG_YARDS)
  Dim bGotTarget
  if (aTarget = getPlayer) then
    'Invalid or no targets neraby
    KillNearestTarget = false
  else
    bGotTarget = TargetNearestMob(aTarget)
    'Hit tab once to see if the next closest is it.
    if (bGotTarget = false) then
            bGotTarget = TargetNextMob(aTarget)    
    end if

    if (bGotTarget = false) then
        Log.DebugLog "Could not target mob"
        KilLNearestTarget = false      
    else
        set aTarget = getTarget 'Have to assign vars byref
        if (getTargetHealth = 100) then
            call KillCurrentTarget
             KillNearestTarget = true
        else
             Log.DebugLog "This mob was claimed. (HP<100%)"
             KillNearestTarget = false
        end if
    end if
  end if
end function

function LootTarget
    Sleep LootPause
    if (getTargetID <> 0) then
        Log.DebugLog "Lets try to loot..."
        if (getPlayerDistanceTo(getTarget) < 1000) then 'Dont go too far away (10yards)
            MoveToMob(getTarget)
        end if
        VGSendCommand "/LootAll"
        Sleep LootPause 'Wait for the loot to come in
    end if
end function



function MoveToNextWaypoint
    WP = WP + 1 
    if WP > WAYPOINTS then
        WP = 1
    end if  
    Log.DebugLog " Moving to waypoint -->" & WP & "    " & WAYPOINT_ARRAY(WP-1,0)&  ", " & WAYPOINT_ARRAY(WP-1,1)
    MoveTo WAYPOINT_ARRAY(WP-1,0), WAYPOINT_ARRAY(WP-1,1)
    Sleep WALK 
end function 


'///////////////////////////////////////////////////////
'///                                                 ///
'///               Main Loop
'///                                                 ///
'///////////////////////////////////////////////////////

 
Dim MobCounter
MobCounter = 0

PC = 0
   
'You may have to adjust this if your text doesnt show up
SetKeyDelay 25 'How fast to enter text to VG

BuffMe()

for RunCounter = 1 to MAX_RUNS 'Lets run it for XX loops
        
    if ((KillNearestTarget = true) and (PC = 0))then
        LootTarget
        Sleep LootPause
        MobCounter = MobCounter + 1
    elseif (WAYPOINTS > 1) then
        stopattack = 0
        Sleep WaitForMobs ' Added sleep to help wait for respawns untill adding waypoints
        MoveToNextWaypoint  
   end if
    
    'Check to see if autoattack is still on/turn it off
    if (getPlayerIsAttacking = true) then
        VGSendText AUTO_ATTACK 'Turn off attacking
        VGSendText VGSendEnterKey
        KillCurrentTarget()
    end if

    'Rest up unless we get attacked
    PlayerHealth = getPlayerHealth 'Reset because we just casted a drain spell
    do while ((getPlayerPower < getPlayerMaxPower) and (PlayerHealth <= getPlayerHealth))
        Sleep SitAndMed
    loop

    Log.DebugLog "Finished loop: " & RunCounter & " of " & MAX_RUNS
    'TODO add a ETA counter here to calculate eta for all runs based on current elapsed time
next

Code: Register to unlock hidden link

do while (getPlayerHealth < getPlayerMaxHealth)
        VGSendText HEALING_TOUCH 'Uses Healing Skill
        VGSendText VGSendEnterKey
         Log.DebugLog "[*] Main Loop : Self Healing with Healing Touch" 
    Sleep HealSleep
    loop