arthasdk icon

SHOW HP v1.1

arthasdk | PRO | 11/10/12 10:53:20 AM UTC | 0 ⭐ | 215 👁️ | Never ⏰ | []
Lua |

2.3 KB

|

None

|

0 👍

/

0 👎

--[[
    SHOW HP modified By ArthasDK v1.1
    Credits to :
        [main concept]  1. Darius Dunk v0.33 by Lux
                        2. Darius Ownage v1.1 written by Weee Modified by Delusional Logic
        [modes]         3. Script: Tower Range v0.2 Author: SurfaceS
]]
    local enemyTable = {}
    local allyTable = {}
    local player = GetMyHero()
    local toggleKey = 115 -- default key F4
    local typeText = {"OFF", "ON (enemy close)", "ON (ally and enemy close)", "ON (self ally and enemy close)", "ON (self enemy close)"}
    local activeType = 1    -- default see only enemy
    local selfEnable = 0
    local allyEnable = 0
    local enemyEnable = 1
    
    
    for i=0, heroManager.iCount, 1 do
        local playerObj = heroManager:GetHero(i)
        if playerObj and playerObj.team ~= player.team then
            table.insert(enemyTable,playerObj)
        elseif playerObj and playerObj.team == player.team then
            table.insert(allyTable,playerObj)
        end
    end
    
    
    function OnTick()
        if IsKeyPressed(toggleKey) then
            activeType = (activeType < 4 and activeType + 1 or 0)
            PrintChat("Show HP in digits is set to "..typeText[activeType + 1])
        end
        if activeType == 0 then         
            selfEnable = 0 
            allyEnable = 0 
            enemyEnable = 0 
        elseif activeType == 1 then     
            selfEnable = 0 
            allyEnable = 0 
            enemyEnable = 1
        elseif activeType == 2 then
            selfEnable = 0 
            allyEnable = 1
            enemyEnable = 1
        elseif activeType == 3 then
            selfEnable = 1 
            allyEnable = 1
            enemyEnable = 1
        elseif activeType == 4 then
            selfEnable = 1 
            allyEnable = 0
            enemyEnable = 1
        end
        
        
        if enemyEnable == 1 then 
            for i, enemy in pairs(enemyTable) do
                if enemy and not enemy.dead and enemy.visible == true and enemy.bTargetable and enemy.bInvulnerable == 0 then
                    if player:GetDistance(enemy) < 3500 then PrintFloatText(enemy,0,"" .. math.ceil(enemy.health) .. " hp") end
                end
            end
        end
        
        if allyEnable == 1 then 
            for j, ally in pairs(allyTable) do
                if not ally.dead and ally.health~= player.health then
                    if player:GetDistance(ally) < 3500 then PrintFloatText(ally,0,"" .. math.ceil(ally.health) .. " hp") end
                end
            end
        end
        
        if selfEnable == 1 then 
            if not player.dead then PrintFloatText(player,0,"" .. math.ceil(player.health).. " hp") end
        end
    end
    PrintChat("AUTO HP script loaded! Coded by ArthasDK")

Comments