-------------------------------------------------------------------------------
-- Title: Mik's Scrolling Battle Text Cooldowns
-- Author: Mik
-------------------------------------------------------------------------------

-- Create module and set its name.
local module = {}
local moduleName = "Cooldowns"
MikSBT[moduleName] = module


-------------------------------------------------------------------------------
-- Imports.
-------------------------------------------------------------------------------

-- Local references to various modules for faster access.
local MSBTProfiles = MikSBT.Profiles
local MSBTTriggers = MikSBT.Triggers

-- Local references to various functions for faster access.
local string_gsub = string.gsub
local string_find = string.find
local string_format = string.format
local GetSpellInfo = GetSpellInfo
local GetSpellCooldown = GetSpellCooldown
local EraseTable = MikSBT.EraseTable
local DisplayEvent = MikSBT.Animations.DisplayEvent
local HandleCooldowns = MSBTTriggers.HandleCooldowns


-------------------------------------------------------------------------------
-- Constants.
-------------------------------------------------------------------------------

-- The minimum amount of time to delay between checking cooldowns.
local MIN_COOLDOWN_UPDATE_INTERVAL = 0.1

-- Spell names.
local SPELL_COLD_SNAP	= GetSpellInfo(11958)
local SPELL_PREPARATION	= GetSpellInfo(14185)
local SPELL_READINESS	= GetSpellInfo(23989)


-------------------------------------------------------------------------------
-- Private variables.
-------------------------------------------------------------------------------

-- Enable state.
local isEnabled

-- Dynamically created frame for receiving events.
local eventFrame

-- Cooldown information.
local activeCooldowns = {}
local delayedCooldowns = {}
local resetAbilities = {}
local cooldownSpellName

-- Holds the shortest remaining cooldown time.
local shortestRemaining = MIN_COOLDOWN_UPDATE_INTERVAL

-- Used for timing between updates.
local lastUpdate = 0


-------------------------------------------------------------------------------
-- Event handlers.
-------------------------------------------------------------------------------

-- ****************************************************************************
-- Called when the player successfully casts a spell.
-- ****************************************************************************
local function OnSpellCast(spellName)
 -- Ignore the cast if the spell name is excluded.
 if (MSBTProfiles.currentProfile.cooldownExclusions[spellName]) then return end

 -- An ability that resets cooldowns was cast.
 if (resetAbilities[spellName]) then
  -- Remove cooldowns that still have an internal timer, but the game is reporting otherwise.
  for spellName, cooldownRemaining in pairs(activeCooldowns) do
   local startTime, duration = GetSpellCooldown(spellName)
   if (duration <= 1.5 and (cooldownRemaining - lastUpdate) > 1.5) then activeCooldowns[spellName] = nil end

   -- Set the shortest remaining cooldown to the minimum update interval so it will be recalculated.
   shortestRemaining = MIN_COOLDOWN_UPDATE_INTERVAL
  end
 end

 -- Set the cooldown spell name to be checked on the next cooldown update event. 
 cooldownSpellName = spellName
end


-- ****************************************************************************
-- Called when a spell cooldown is started.
-- ****************************************************************************
local function OnSpellUpdateCooldown()
 -- Start delayed cooldowns once they have been used.
 for spellName in pairs(delayedCooldowns) do
  -- Check if the spell is enabled yet.
  local _, duration, enabled = GetSpellCooldown(spellName)
  if (enabled == 1) then
   -- Add the spell to the active cooldowns list if the cooldown is longer than the cooldown threshold.
   if (duration >= MSBTProfiles.currentProfile.cooldownThreshold) then
    activeCooldowns[spellName] = duration + lastUpdate

    -- Set the shortest remaining cooldown to the minimum update interval so it will be recalculated.
    shortestRemaining = MIN_COOLDOWN_UPDATE_INTERVAL

    -- Check if the event frame is not visible and make it visible so the OnUpdate events start firing.
    -- This is done to keep the number of OnUpdate events down to a minimum for better performance.
    if (not eventFrame:IsVisible()) then eventFrame:Show() end
   end

   -- Remove the spell from the delayed cooldowns list.
   delayedCooldowns[spellName] = nil
  end
 end

 -- Add the last successful spell to the active cooldowns if necessary.
 if (cooldownSpellName) then
  -- Append empty rank syntax to spell names with parentheses in them to avoid confusing Blizzard's API.
  if string_find(cooldownSpellName, "%(.+%)$") then cooldownSpellName = cooldownSpellName .. "()" end
   
  -- Make sure the spell cooldown is enabled.
  local _, duration, enabled = GetSpellCooldown(cooldownSpellName)
  if (enabled == 1) then
   -- Add the spell to the active cooldowns list if the cooldown is longer than the cooldown threshold.
   if (duration >= MSBTProfiles.currentProfile.cooldownThreshold) then
    activeCooldowns[cooldownSpellName] = duration + lastUpdate

    -- Set the shortest remaining cooldown to the minimum update interval so it will be recalculated.
    shortestRemaining = MIN_COOLDOWN_UPDATE_INTERVAL
  
    -- Check if the event frame is not visible and make it visible so the OnUpdate events start firing.
    -- This is done to keep the number of OnUpdate events down to a minimum for better performance.
    if (not eventFrame:IsVisible()) then eventFrame:Show() end
   end

  -- Spell cooldown is NOT enabled so add it to the delayed cooldowns list.
  else
   delayedCooldowns[cooldownSpellName] = true
  end

  cooldownSpellName = nil  
 end -- cooldownSpellName?
end


-- ****************************************************************************
-- Called when the OnUpdate event occurs.
-- ****************************************************************************
local function OnUpdate(this, elapsed)
 -- Increment the amount of time passed since the last update.
 lastUpdate = lastUpdate + elapsed

 -- Check if it's time for an update.
 if (lastUpdate >= shortestRemaining) then
  -- Reset the shortest remaining cooldown.
  shortestRemaining = 65535
  
  -- Loop through all of the active cooldowns.
  for spellName, cooldownRemaining in pairs(activeCooldowns) do
   cooldownRemaining = cooldownRemaining - lastUpdate

   -- Cooldown completed.
   if (cooldownRemaining <= 0) then
    local texture = GetSpellTexture(spellName)
    HandleCooldowns(spellName, texture)

    local eventSettings = MSBTProfiles.currentProfile.events.NOTIFICATION_COOLDOWN
    if (eventSettings and not eventSettings.disabled) then
     local message = eventSettings.message
     message = string_gsub(message, "%%e", string_format("|cffff0000%s|r", string_gsub(spellName, "%(.+%)%(%)$", "")))
     DisplayEvent(eventSettings, message, texture)
    end

    -- Remove the cooldown from the active cooldowns list.
    activeCooldowns[spellName] = nil

   -- Cooldown NOT completed.
   else
    activeCooldowns[spellName] = cooldownRemaining
    if (cooldownRemaining < shortestRemaining) then shortestRemaining = cooldownRemaining end
   end
  end

  -- Set the shortest cooldown to the min update interval if it's less.
  if (shortestRemaining < MIN_COOLDOWN_UPDATE_INTERVAL) then shortestRemaining = MIN_COOLDOWN_UPDATE_INTERVAL end

  -- Hide the event frame if there are no active cooldowns so the OnUpdate events stop firing.
  -- This is done to keep the number of OnUpdate events down to a minimum for better performance.
  if (not next(activeCooldowns)) then eventFrame:Hide() end

  -- Reset the time since last update.
  lastUpdate = 0
 end
end


-- ****************************************************************************
-- Called when the events the module registered for occur.
-- ****************************************************************************
local function OnEvent(this, event, arg1, arg2)
 -- Successful spell casts.
 if (event == "UNIT_SPELLCAST_SUCCEEDED") then
  if (arg1 == "player") then OnSpellCast(arg2) end
  
 -- Cooldown updates.  
 elseif (event == "SPELL_UPDATE_COOLDOWN") then
  OnSpellUpdateCooldown()
 end
end


-- ****************************************************************************
-- Enables the module.
-- ****************************************************************************
local function Enable()
 if (isEnabled) then return end
 eventFrame:RegisterEvent("UNIT_SPELLCAST_SUCCEEDED")
 eventFrame:RegisterEvent("SPELL_UPDATE_COOLDOWN")
 isEnabled = true
end


-- ****************************************************************************
-- Disables the module.
-- ****************************************************************************
local function Disable()
 -- Stop receiving updates.
 if (not isEnabled) then return end
 eventFrame:Hide()
 eventFrame:UnregisterAllEvents()

 -- Clear the active and delayed cooldowns.
 EraseTable(activeCooldowns)
 EraseTable(delayedCooldowns)

 isEnabled = nil
end


-- ****************************************************************************
-- Enables or disables the module depending on active options.
-- ****************************************************************************
local function UpdateEnableState()
 -- Toggle the enable state depending on whether notifications are active or
 -- there are skill cooldown triggers.
 if (not MSBTProfiles.currentProfile.events.NOTIFICATION_COOLDOWN.disabled or
     MSBTTriggers.categorizedTriggers["SKILL_COOLDOWN"]) then
  Enable()
 else
  Disable()
 end
end


-- ****************************************************************************
-- Called when the module is loaded.
-- ****************************************************************************
local function OnLoad()
 -- Create a frame to receive events.
 eventFrame = CreateFrame("Frame")
 eventFrame:Hide()
 eventFrame:SetScript("OnEvent", OnEvent)
 eventFrame:SetScript("OnUpdate", OnUpdate)
 
 -- Specify the abilities that reset cooldowns.
 resetAbilities[SPELL_COLD_SNAP] = true
 resetAbilities[SPELL_PREPARATION] = true
 resetAbilities[SPELL_READINESS] = true
end




-------------------------------------------------------------------------------
-- Module interface.
-------------------------------------------------------------------------------

-- Protected Functions.
module.Enable				= Enable
module.Disable				= Disable
module.UpdateEnableState	= UpdateEnableState


-------------------------------------------------------------------------------
-- Load.
-------------------------------------------------------------------------------

OnLoad()