local X4D_XP = LibStub:NewLibrary('X4D_XP', 1005)
if (not X4D_XP) then
   return
end
 
X4D_XP.NAME = 'X4D_XP'
X4D_XP.VERSION = '1.5'
 
X4D_XP.Settings = {}
X4D_XP.Settings.SavedVars = {}
X4D_XP.Settings.Defaults = {
   None = 'true',
}
 
X4D_XP.Colors = {
   XP = '|cAA33FF',
   VP = '|cAA33FF',
   Gray = '|cC5C5C5',
   X4D = '|cFFAE19',
}
 
local _progressReasons = {
   [PROGRESS_REASON_ACHIEVEMENT] = 'Achievement',
   [PROGRESS_REASON_ACTION] = 'Action',
   [PROGRESS_REASON_ALLIANCE_POINTS] = 'AP',
   [PROGRESS_REASON_AVA] = 'AvA',
   [PROGRESS_REASON_BATTLEGROUND] = 'Battleground',
   [PROGRESS_REASON_BOOK_COLLECTION_COMPLETE] = 'Collection',
   [PROGRESS_REASON_BOSS_KILL] = 'Boss',
   [PROGRESS_REASON_COLLECT_BOOK] = 'Book',
   [PROGRESS_REASON_COMMAND] = 'Command',
   [PROGRESS_REASON_DARK_ANCHOR_CLOSED] = 'Anchor',
   [PROGRESS_REASON_DARK_FISSURE_CLOSED] = 'Fissure',
   [PROGRESS_REASON_DUNGEON_CHALLENGE] = 'Challenge',
   [PROGRESS_REASON_EVENT] = 'Event',
   [PROGRESS_REASON_FINESSE] = 'Finesse',
   [PROGRESS_REASON_GRANT_REPUTATION] = 'Reputation',
   [PROGRESS_REASON_GUILD_REP] = 'Guild',
   [PROGRESS_REASON_KEEP_REWARD] = 'Keep',
   [PROGRESS_REASON_KILL] = 'Kill',
   [PROGRESS_REASON_LOCK_PICK] = 'Lockpicking',
   [PROGRESS_REASON_MEDAL] = 'Medal',
   [PROGRESS_REASON_NONE] = 'None',
   [PROGRESS_REASON_OTHER] = 'Other',
   [PROGRESS_REASON_OVERLAND_BOSS_KILL] = 'Boss',
   [PROGRESS_REASON_PVP_EMPEROR] = 'Emperor',
   [PROGRESS_REASON_REWARD] = 'Reward',
   [PROGRESS_REASON_SCRIPTED_EVENT] = 'Event',
   [PROGRESS_REASON_SKILL_BOOK] = 'Book',
   [PROGRESS_REASON_TRADESKILL] = 'Tradeskill',
   [PROGRESS_REASON_TRADESKILL_ACHIEVEMENT] = 'Acheivement',
   [PROGRESS_REASON_TRADESKILL_CONSUME] = 'Consumption',
   [PROGRESS_REASON_TRADESKILL_HARVEST] = 'Harvest',
   [PROGRESS_REASON_TRADESKILL_QUEST] = 'Quest',
   [PROGRESS_REASON_TRADESKILL_RECIPE] = 'Recipe',
   [PROGRESS_REASON_TRADESKILL_TRAIT] = 'Trait',
}
 
local function GetReason(reasonIndex)
   return _progressReasons[reasonIndex]
end
 
local function DefaultCallback(color, text)
   CHAT_SYSTEM:AddMessage(color .. text)
end
 
X4D_XP.Callback = DefaultCallback
 
function X4D_XP.RegisterCallback(self, callback)
   if (callback ~= nil) then
      X4D_XP.Callback = callback
   else
      X4D_XP.Callback = DefaultCallback
   end
end
 
function X4D_XP.UnregisterCallback(self, callback)
   if (X4D_XP.Callback == callback) then
      self:RegisterCallback(nil)
   end
end
 
local function InvokeCallbackSafe(color, text)
   local callback = X4D_XP.Callback
   if (color == nil) then
      color = '|cFF0000'
   end
   if (color:len() < 8) then
      d('bad color color=' .. color:gsub('|', '!'))
      color = '|cFF0000'
   end
   if (callback ~= nil) then
      callback(color, text)
   end
end
 
local _pointType = 'XP'
 
local function GetAmountAndType(level, previousExperience, currentExperience, rank, previousPoints, currentPoints)
   local rankSize
   if rank then
      rankSize = GetNumVeteranPointsInRank(rank)
   end
   if rankSize ~= nil and currentPoints > previousPoints then
      return currentPoints - previousPoints, 'VP'
   else
      local levelSize
      if level then
         levelSize = GetNumExperiencePointsInLevel(level)
      end
      if levelSize ~= nil and currentExperience >  previousExperience then
         return currentExperience - previousExperience, 'XP'
      end
   end
end
 
local function OnQuestComplete(eventCode, questName, level, previousExperience, currentExperience, rank, previousPoints, currentPoints)
   local amount, pointType = GetAmountAndType(level, previousExperience, currentExperience, rank, previousPoints, currentPoints)
   InvokeCallbackSafe(X4D_XP.Colors[pointType], zo_strformat('<<1>> <<2>> for|r <<3>><<4>>|r', amount, pointType, X4D_XP.Colors.X4D, questName))
end
 
local function OnDiscoveryExperience(eventCode, subzoneName, level, previousExperience, currentExperience)
   if IsUnitVeteran('player') then return end
   InvokeCallbackSafe(X4D_XP.Colors[_pointType], zo_strformat('<<1>> <<2>> for Discovery|r <<3>><<4>>|r', (currentExperience - previousExperience), _pointType, X4D_XP.Colors.X4D, subzoneName))
end
 
local function OnObjectiveCompleted(eventCode, zoneIndex, poiIndex, level, previousExperience, currentExperience, rank, previousPoints, currentPoints)
   local amount, pointType = GetAmountAndType(level, previousExperience, currentExperience, rank, previousPoints, currentPoints)
   if amount then
      local objectiveName = GetPOIInfo(zoneIndex, poiIndex)
      if (objectiveName ~= nil and objectiveName ~= "") then
         InvokeCallbackSafe(X4D_XP.Colors[pointType], zo_strformat('<<1>> <<2>> for|r <<3>><<4>>|r', amount, pointType, X4D_XP.Colors.X4D, objectiveName))
      else
         InvokeCallbackSafe(X4D_XP.Colors[pointType], zo_strformat('<<1>> <<2>> for POI|r', amount, pointType))
      end
   end
end
 
local _currentExp = 0
 
local function OnExperienceUpdate(eventCode, unitTag, currentExp, maxExp, reasonIndex)
   if (unitTag ~= 'player' or IsUnitVeteran('player')) then
      return
   end
   local xpGained = currentExp - _currentExp
   if (xpGained > 0) then
      local reason = GetReason(reasonIndex)
      if (reason ~= nil) then
         InvokeCallbackSafe(X4D_XP.Colors.XP, zo_strformat('<<1>> XP for <<2>>', xpGained, reason))
      end
   end
   _currentExp = currentExp
end
 
local _currentVP = 0
 
local function OnVeteranPointsUpdate(eventCode, unitTag, currentVP, maxVP, reasonIndex)
   if (unitTag ~= 'player') then
      return
   end
   local vpGained = currentVP - _currentVP
   if (vpGained > 0) then
      local reason = GetReason(reasonIndex)
      if (reason ~= nil) then
         InvokeCallbackSafe(X4D_XP.Colors.VP, zo_strformat('<<1>> VP for <<2>>', vpGained, reason))
      else
         InvokeCallbackSafe(X4D_XP.Colors.VP, zo_strformat('<<1>> VP', vpGained))
      end
   end
   _currentVP = currentVP
end
 
function X4D_XP.OnAddOnLoaded(event, addonName)
   if (addonName ~= X4D_XP.NAME) then
      return
   end
   X4D_XP.Settings.SavedVars = ZO_SavedVars:NewAccountWide(X4D_XP.NAME .. '_SV', 1.0, nil, X4D_XP.Settings.Defaults)
   X4D_XP.Register()
end
 
function X4D_XP.Register()
   EVENT_MANAGER:RegisterForEvent(X4D_XP.NAME, EVENT_QUEST_COMPLETE, OnQuestComplete)
   EVENT_MANAGER:RegisterForEvent(X4D_XP.NAME, EVENT_DISCOVERY_EXPERIENCE, OnDiscoveryExperience)
   EVENT_MANAGER:RegisterForEvent(X4D_XP.NAME, EVENT_OBJECTIVE_COMPLETED, OnObjectiveCompleted)
   EVENT_MANAGER:RegisterForEvent(X4D_XP.NAME, EVENT_EXPERIENCE_UPDATE, OnExperienceUpdate)
   EVENT_MANAGER:RegisterForEvent(X4D_XP.NAME, EVENT_VETERAN_POINTS_UPDATE, OnVeteranPointsUpdate)
end
 
function X4D_XP.Unregister()
end
 
function X4D_XP.OnPlayerActivated()
   _currentExp = GetUnitXP('player')
   if (IsUnitVeteran('player')) then
      _currentVP = GetUnitVeteranPoints('player')
      _pointType = 'VP'
   else
      _pointType = 'XP'
   end
end
 
EVENT_MANAGER:RegisterForEvent(X4D_XP.NAME, EVENT_ADD_ON_LOADED, X4D_XP.OnAddOnLoaded)
EVENT_MANAGER:RegisterForEvent(X4D_XP.NAME, EVENT_PLAYER_ACTIVATED, X4D_XP.OnPlayerActivated)