c=CastSpellByName
target="target"
me="player"

-- метание ловух
throwTrap = "Метание ловушки"
freezingTrap = "Замораживающая ловушка"
FreezingTrapInAction = false
FreezingTrapUsed = false
ThrowTrapUsed = false

local dangerousBuffs = {"Озарение", "Слово силы: Щит", "Ледяная преграда", "Гнев карателя", "Берсерк", "Длань защиты", "Длань свободы", "Божественное одобрение", "Придание сил"}
local spellsIgnoreShift = {"Контузящий выстрел", "Подрезать крылья"}

function CanUse(spell)
                  if IsUsableSpell(spell) and GetSpellCooldown(spell) == 0 and ReadyToCast(spell) then
                      return true
                  else
                      return false
                  end
end

function CanReach(spell)
                  if IsSpellInRange(spell, target) == 1 then
                      return true
                  else
                      return false
                  end
end

function CanHit(spell)
                  if CanUse(spell) and CanReach(spell) and not EnemyIsImmuneToSpell(spell) then
                      return true
                  else
                      return false
                  end
end

function BuffInfo(spell, unit, own)
                  if own then
                      return UnitBuff(unit, spell, nil, unit)
                  else
                      return UnitBuff(unit, spell)
                  end
end

function DebuffInfo(spell, unit, mine)
                  if mine then
                      return UnitDebuff(unit, spell, nil, me)
                  else
                      return UnitDebuff(unit, spell)
                  end
end

function GetCooldown(spell)
                  local startTime, duration, enabled = GetSpellCooldown(spell)
                  if duration == 0 then
                      return 0
               elseif enabled then
                return 100
                  else
                      return startTime + duration - GetTime()
                  end
end

function GetRemainCooldown(spell)
                  local startTime, duration, enabled = GetSpellCooldown(spell)
                  if duration == 0 or duration < 2 then
                      return 0
               elseif enabled then
                return 100
                  else
                      return startTime + duration - GetTime()
                  end
end

function ReadyToHitSoon(spell, lasts)
               if GetRemainCooldown(spell) < lasts and CanReach(spell) and not EnemyIsImmuneToSpell(spell) then
                return true
               else
                return false
               end
end

function NeedDebuff(spell, mine, lasts)
                  local debuffName,_,_,_,_,_,endTime = DebuffInfo(spell, target, mine)
                  if not debuffName or endTime - GetTime() < lasts then
                      return true
                  else
                      return false
                  end
end

function NeedRefreshDebuff(spell, mine, lasts)
                  local debuffName,_,_,_,_,_,endTime = DebuffInfo(spell, target, mine)
                  if debuffName and endTime - GetTime() < lasts then
                      return true
                  else
                      return false
                  end
end

function CanDebuff(spell, mine, lasts)
                  if CanHit(spell) and NeedDebuff(spell, mine, lasts) then
                      return true
                  else
                      return false
                  end
end

-- rangeindex:
                -- 1 = 28 yd
                -- 2 = 11.11 yd
                -- 3 = 9.9 yd
                -- 4 = 28 yd
function CanHitAOE(spell, rangeindex)
                  if CheckInteractDistance(target, rangeindex) and CanUse(spell) and not EnemyIsImmuneToSpell(spell) then
                      return true
                  else
                      return false
                  end
end

function CanDebuffAOE(spell, rangeindex, lasts)
                  if CanHitAOE(spell, rangeindex) and NeedDebuff(spell, false, lasts) then
                      return true
                  else
                      return false
                  end
end

function TargetHasBuff(spell, own)
                  if BuffInfo(spell, target, own) then
                      return true
                  else
                      return false
                  end
end

function HasBuffToPurge(count)
               for j=1,count do
                local buff,_,_,_,buffType = UnitBuff(target,j);
                -- все берсерки имеют тип "", бафы без категории nil
                if buff and (buffType == "" or buffType == "Magic") then
                 return true
                end
               end
               return false
end

function GetPurgePriority()
               local foundBuff = false
               local dontPurge = false
               for j=1,10 do
                local buffName,_,_,_,buffType = UnitBuff(target,j);
                -- все берсерки имеют тип "", бафы без категории nil
                if buffName and (buffType == "" or buffType == "Magic") then
                 if tContains(dangerousBuffs, buffName) then
                  return 2
                 elseif buffName == "Жизнецвет" then
                  dontPurge = true
                 end
                 foundBuff = true
                end
               end
               if foundBuff and not dontPurge then
                return 1
               else
                return 0
               end
end

function EnemyHasBuff(spell, own)
                  if UnitCanAttack(me, target) and TargetHasBuff(spell, own) then
                      return true
                  else
                      return false
                  end
end

function TargetHasDebuff(spell, mine)
                  if DebuffInfo(spell, target, mine) then
                      return true
                  else
                      return false
                  end
end

function HasBuff(spell, mine)
                  if BuffInfo(spell, me, mine) then
                      return true
                  else
                      return false
                  end
end

function HasStacksOfBuff(spell, stacks, mine)
                  local name,_,_,count = BuffInfo(spell,me,mine)
                  if name and count >= stacks then
                      return true
                  else
                      return false
                  end
end

function GetBuffDuration(spell, unit)
                  local buffName,_,_,_,_,_,endTime = BuffInfo(spell, unit, false)
                  if buffName then
                return endTime - GetTime()
               else
                return 0
               end
end

function BuffExpireSoon(spell, remain)
                  local buffName,_,_,_,_,_,endTime = BuffInfo(spell, me, false)
                  if buffName and endTime - GetTime() < remain then
                return true
               else
                return false
               end
end

function HasDebuff(spell)
                  if DebuffInfo(spell, me) then
                      return true
                  else
                      return false
                  end
end

function UnitHP(unit)
                  return UnitHealth(unit) / UnitHealthMax(unit) * 100
end

function UnitFP(unit)
                  return UnitPower(unit) / UnitPowerMax(unit) * 100
end

function GetHealth()
                  return UnitHP(me)
end

function GetFocus(spell)
               if spell == "Разрывной выстрел" and HasBuff("На изготовку!") then
                return 100
               else
                return UnitPower(me)
               end
end

function EnoughFocus(spell)
                  local hasSpell, _, _, spellCost = GetSpellInfo(spell)
                  if hasSpell and spellCost <= GetFocus(spellCost) then
                      return true
                  else
                      return false
                  end
end

function EnoughFocusNoCooldown(spell)
                  if EnoughFocus(spell) and GetRemainCooldown(spell) == 0 then
                      return true
                  else
                      return false
                  end
end

function EnemyIsImmuneToSlow()
                  -- найти более точный способ отличить босса от паков, пока что по хп
                  --if UnitClassification(target) == "worldboss" or UnitClassification(target) == "elite" and UnitHealthMax(target) > 150000 then
               if EnemyHasBuff("Длань свободы") or EnemyHasBuff("Приказ хозяина") or EnemyHasBuff("Вихрь клинков") or EnemyHasBuff("Слияние с Тьмой") then
                      return true
                  else
                      return false
                  end
end

function EnemyIsImmuneToSpell(spell)
                  if (spell == "Контузящий выстрел" or spell == "Подрезать крылья") and EnemyIsImmuneToSlow() then
                      return true
                  elseif spell ~= "Усмиряющий выстрел" and EnemyHasBuff("Длань защиты") then
                      return true
                  elseif spell == "Метка охотника" and (EnemyHasBuff("Плащ теней") or EnemyHasBuff("Антимагический панцирь")) then
                      return true
                  elseif EnemyHasBuff("Ледяная глыба") or EnemyHasBuff("Божественный щит") or EnemyHasBuff("Сдерживание") or TargetHasDebuff("Смерч") then
                      return true
                  else
                      return false
                  end
end

-- нужно завести функцию ReadyToCast(spell) чтобы знать когда спеллам
-- можно лезть в очередь
function ReadyToCast(spell)
               if FreezingTrapInAction and spell ~= freezingTrap and spell ~= throwTrap then
                return false
                  elseif IsLeftShiftKeyDown() and not tContains(spellsIgnoreShift, spell) then
                      return false
                  else
                      return true
                  end
end

function IsInMyGroup(unit)
                  if UnitPlayerOrPetInRaid(unit) or UnitInParty(unit) then
                      return true
                  else
                      return false
                  end
end

function IsTargetingUnit(unit)
                  if UnitIsUnit("targettarget", unit) then
                      return true
                  else
                      return false
                  end
end

function HasSecondTarget(melee)
                  local TargetGUID = UnitGUID(target)
                  local secondTarget = false
                  for i=1,5 do                         
                -- нужно как-то определять:
                -- если цель далеко - искать от дальнейшей цели
                -- если цель рядом - искать как ищем, от близжайшей
                      TargetNearestEnemy()
                      -- возможно если изначальная цель = труп, а новой не находит?
                      if not UnitExists(target) then
                          break
                      elseif CheckInteractDistance(target, 3) and TargetGUID ~= UnitGUID(target) and (not melee or CanReach("Удар ящера")) then
                          secondTarget = true
                          break
                      end
                  end
                  -- вспомнит начальную цель
                  AssistUnit(me)
                  if secondTarget then
                      return true
                  else
                      return false
                  end
end

RunMacroText("/sdm run HunterAttackModule")
RunMacroText("/sdm run HunterEventModule")
-- запуск атаки, вынес сюда чтобы можно было перезагружать модуль атаки
RunMacroText("/rep 0.3 /run StartAttack()")
RunMacroText("/rep 0.1 /run DoScheludedStuff()")

if not frame then
               frame = CreateFrame("Frame")
end

local onEvent = function(self, event, ...)
             if (event == "UNIT_SPELLCAST_SUCCEEDED") then
                 local unitCaster, spellName, spellRequirements, spellLineId, spellId = select(1, ...)
                 if unitCaster == me then
                     if spellId == 60192 then FreezingTrapUsed = true
                     elseif spellId == 77769 then ThrowTrapUsed = true end
                 end
             end
end

frame:SetScript("OnEvent", onEvent)
frame:UnregisterEvent("UNIT_SPELLCAST_SUCCEEDED")
frame:RegisterEvent("UNIT_SPELLCAST_SUCCEEDED")

local repeatAttack = false
local isPvP = false

function DoAttackStuff()
               if UnitCastingInfo(me) then
                return
               end
                             
               if isPvP then

                local purgePriority = 0
                if CanHit("Усмиряющий выстрел") then
                 purgePriority = GetPurgePriority()
                end

                if CanHit("Контратака") then c("Контратака")
                elseif CanHit("Убийственный выстрел") then c("Убийственный выстрел")
                elseif CanHit("Чародейский выстрел") and UnitHealth(target) < 12000 then c("Чародейский выстрел")
                elseif CanHit("Разрывной выстрел") and BuffExpireSoon("На изготовку!", 2) then c("Разрывной выстрел")
                elseif CanDebuff("Метка охотника", false, 10) then c("Метка охотника")
                elseif purgePriority == 2 then c("Усмиряющий выстрел")
                elseif CanDebuff("Укус змеи", true, 3) then c("Укус змеи")
                elseif CanDebuff("Черная стрела", true, 3) then c("Черная стрела")
                elseif ExplosiveShotReady() then c("Разрывной выстрел")
                elseif ArcaneShotReady() then c("Чародейский выстрел")
                elseif purgePririty == 1 and GetFocus() >= 45 then c("Усмиряющий выстрел")
                --elseif CanHit("Усмиряющий выстрел") and GetFocus() >= 55 then c("Усмиряющий выстрел")
                elseif CanHit("Выстрел кобры") then c("Выстрел кобры") end
                return

               end
                             
               if CanHit("Убийственный выстрел") then c("Убийственный выстрел")
                  elseif CanHit("Чародейский выстрел") and UnitHealth(target) < 12000 then c("Чародейский выстрел")
                  elseif CanHit("Разрывной выстрел") and BuffExpireSoon("На изготовку!", 2) then c("Разрывной выстрел")
               elseif CanDebuff("Метка охотника", false, 10) then c("Метка охотника")
               elseif CanDebuff("Укус змеи", true, 3) then c("Укус змеи")
               elseif CanHit("Усмиряющий выстрел") and HasBuffToPurge(3) and GetFocus() >= 55 then c("Усмиряющий выстрел")
               elseif CanDebuff("Черная стрела", true, 3) then c("Черная стрела")
               elseif ExplosiveShotReady() then c("Разрывной выстрел")
               elseif ArcaneShotReady() then c("Чародейский выстрел")
               elseif CanHit("Выстрел кобры") then c("Выстрел кобры") end
end

function ExplosiveShotReady()
               if CanHit("Разрывной выстрел") and not TargetHasDebuff("Разрывной выстрел", true) then
                if not NeedRefreshDebuff("Черная стрела", true, 7) or GetFocus("Разрывной выстрел") >= 79 then
                 return true
                end
               end
               return false
end

function ArcaneShotReady()
               if CanHit("Чародейский выстрел") then
                if GetRemainCooldown("Разрывной выстрел", 4) and GetFocus() >= 57 or GetFocus() >= 92 then
                 return true
                end
               end
               return false
end

function DoScheludedStuff()
                  if FreezingTrapInAction then
                CastFreezingTrap()
               end
end

function CanFreezingTrap()
                  if CanUse(throwTrap) and EnoughFocusNoCooldown(freezingTrap) then
                      return true
                  else
                      return false
                  end
end

function RunFreezingTrap()
                  FreezingTrapInAction = true
                  WhenRefuseFreezingTrap = GetTime() + 1
                  print("run RunFreezingTrap()")
end

function CastFreezingTrap()
                  if GetTime() > WhenRefuseFreezingTrap or FreezingTrapUsed then
                if FreezingTrapUsed then
                 print("freezing trap finished")
                else
                 print("waiting too long - refusing freezing trap, time waited: ", GetTime() - WhenRefuseFreezingTrap + 1)
                end
                      FreezingTrapInAction = false
                FreezingTrapUsed = false
                ThrowTrapUsed = false
                      return
                  end
               if HasBuff(throwTrap) then
                if CanUse(freezingTrap) then
                 c(freezingTrap)
                 if SpellIsTargeting() then
                  CameraOrSelectOrMoveStart()
                  CameraOrSelectOrMoveStop()
                 end
                end
               elseif CanUse(throwTrap) and not ThrowTrapUsed then
                c(throwTrap)
               end
end

function StopActions()
               repeatAttack = false
               StopAttack()
               SpellStopCasting()
end

function StartAttack()
                  -- ботство
                  if repeatAttack then
                      if UnitExists(target) and UnitCanAttack(me, target) then
                          DoAttackStuff()
                      else
                          repeatAttack = false
                      end
                  end
end

-- при нажатии на макрос
function InitiateAttack()
                  if not repeatAttack then
                      repeatAttack = true
                  end
               isPvP = false
end

-- при нажатии на макрос для массовок
function InitiatePvPAttack()
                  if not repeatAttack then
                      repeatAttack = true
                  end
               isPvP = true
end

/run InitiateAttack

/run InitiatePvPAttack

/run if CanFreezingTrap() then RunFreezingTrap() end

/sdm run HunterMasterModule