----------
-- Downloaded from Quantum's repository:
-- d2iscripts.herokuapp.com
----------
-- Auto-dagon a hero if slayable.
-- 0.1
     
local dagons = {
    dagon = 1,
    dagon_2 = 2,
    dagon_3 = 3,
    dagon_4 = 4,
    dagon_5 = 5
}
     
local dagondamage = { 400, 500, 600, 700, 800 }
local dagonrange = { 600, 650, 700, 750, 800 }
local dagonmanacost = { 180, 160, 140, 120, 100 }
     
local sleep = 0.0
     
--=============================================================================
     
local function CanDagonKill(item, target)
    dagonlevel = dagons[item.name]
     
    if (d2i.DistanceTo(target.x, target.y, target.z) > dagonrange[dagonlevel]) then -- Are they in range?
      return false
    end
     
    damage = dagondamage [dagonlevel]* (1.0 - target.magicalresist) -- Calculate damage of our ultimate factoring in magical resistance
    if target.hp < damage then
      return true
    end
     
    return false
end
     
local function DagonUseable(item)
    dagonlevel = dagons[item.name]
     
    if item.cooldown < d2i.game.time and -- Off cooldown
      d2i.me.mp > dagonmanacost [dagonlevel]then -- Have mana to use the Dagon staff of death
      return true
    end
    return false
end
     
local function FindItem(itemname)
    item = -1
     
    if (#d2i.me.items == nil) then
      return item
    end
     
    for i = 1, 6 do
      if (d2i.me.items [i]~= nil and d2i.me.items[i].name == itemname) then
          item = i
          break
      end
    end
     
    return item
end
     
--=============================================================================
     
local function DagonCallback()
    if d2i.me == nil then
      return
    end
     
    if sleep > d2i.game.time then
      return
    end
     
    sleep = d2i.game.time + 0.5
     
    for k, v in pairs(dagons) do -- Loop through all dagons
      itemindex = FindItem(k) -- Do we have dagonX
      if itemindex ~= -1 then -- We have this dagon!
        item = d2i.me.items [itemindex]-- Store it and leave
        break
      end
    end
     
    if itemindex == -1 then
      return
    end
     
    if DagonUseable(item) == false then
      return
    end
     
    -- OK FINALLY WE FOUND A DAGON TRY TO SLAY A TARGET
    for i = 1, #d2i.heroes do
      target = d2i.heroes
      [i]if target.team ~= d2i.me.team and target.hp > 0 then
        if CanDagonKill(item, target) then
          d2i.UseItemOnTarget(itemindex, target.entity) -- Slay THEM !!!!!!!!!!!!
        end
      end
    end
     
end
     
d2i.AddCallback(DagonCallback)

local hook = nil
local sleep = 0
local me = dota.GetLocalHero()
local local_player = dota.GetLocalPlayer()
local font = dota.DrawUtils.GetInstance():CreateFont("Arial", 18, 500)
   
function OnPaint()
   if sleep > 0 then
     sleep = sleep - 1
     return
   end

   local dagon = me:GetInventory():GetItemInSlot(1)
    
   if dagon then
      local threshold = dagon:GetLevelSpecialValueFor("damage")
      dota.DrawUtils.DrawString(font, 5, 300, 255,255,255, false, "Dagon: " .. dagon:CanBeExecuted() .. " " .. threshold)
      if threshold == 0 or dagon:CanBeExecuted() ~= 1 then
       return
      end

      local players = dota.FindEntities(dota.kDotaPlayer)
       
      for _,player in ipairs(players) do
       local hero = player:GetAssignedHero()
       if hero == nil then
         return
       end
        
       local health = hero:GetHealth()*0.75
       if hero:GetTeamIndex() ~= me:GetTeamIndex() and
          health <= threshold and
          me:IsEntityInRange(hero, 700) then
         local_player:UseAbilityEntity(dagon, hero)
         sleep = 10
       end
      end
    end
end

function Initialize()
   hook = dota.AddPaintHook(OnPaint)
end