local AceLocale = LibStub ("AceLocale-3.0")
local Loc = AceLocale:GetLocale ("Details_Threat")

local _GetNumSubgroupMembers = GetNumSubgroupMembers --> wow api
local _GetNumGroupMembers = GetNumGroupMembers --> wow api
local _UnitIsFriend = UnitIsFriend --> wow api
local _UnitName = UnitName --> wow api
local _IsInRaid = IsInRaid --> wow api
local _IsInGroup = IsInGroup --> wow api
local _UnitGroupRolesAssigned = DetailsFramework.UnitGroupRolesAssigned --> wow api
local GetUnitName = GetUnitName

local _ipairs = ipairs --> lua api
local _table_sort = table.sort --> lua api
local _cstr = string.format --> lua api
local _unpack = unpack
local _math_floor = math.floor
local _math_abs = math.abs
local RAID_CLASS_COLORS = RAID_CLASS_COLORS



--> Create the plugin Object
local ThreatMeter = _detalhes:NewPluginObject ("Details_TinyThreat")

--> Main Frame
local ThreatMeterFrame = ThreatMeter.Frame

ThreatMeter:SetPluginDescription ("Small tool for track the threat you and other raid members have in your current target.")

local _

local UnitDetailedThreatSituation = UnitDetailedThreatSituation
local _UnitDetailedThreatSituation

if (DetailsFramework.IsTimewalkWoW()) then
	_UnitDetailedThreatSituation = function(source, target)
		local isTanking, status, threatpct, rawthreatpct, threatvalue = UnitDetailedThreatSituation(source, target)

		if (threatvalue) then
			threatvalue = floor(threatvalue / 100)
		end

		return isTanking, status, threatpct, rawthreatpct, threatvalue
	end
else
	_UnitDetailedThreatSituation = UnitDetailedThreatSituation
end

local function CreatePluginFrames (data)

	--> catch Details! main object
	local _detalhes = _G._detalhes
	local DetailsFrameWork = _detalhes.gump

	--> data
	ThreatMeter.data = data or {}

	--> defaults
	ThreatMeter.RowWidth = 294
	ThreatMeter.RowHeight = 14
	--> amount of row wich can be displayed
	ThreatMeter.CanShow = 0
	--> all rows already created
	ThreatMeter.Rows = {}
	--> current shown rows
	ThreatMeter.ShownRows = {}
	-->
	ThreatMeter.Actived = false

	--> localize functions
	ThreatMeter.percent_color = ThreatMeter.percent_color

	ThreatMeter.GetOnlyName = ThreatMeter.GetOnlyName

	--> window reference
	local instance
	local player

	--> OnEvent Table
	function ThreatMeter:OnDetailsEvent (event, ...)

		if (event == "DETAILS_STARTED") then
			ThreatMeter:RefreshRows()

		elseif (event == "HIDE") then --> plugin hidded, disabled
			ThreatMeter.Actived = false
			ThreatMeter:Cancel()

		elseif (event == "SHOW") then

			instance = ThreatMeter:GetInstance (ThreatMeter.instance_id)

			ThreatMeter.RowWidth = instance.baseframe:GetWidth()-6

			ThreatMeter:UpdateContainers()
			ThreatMeter:UpdateRows()

			ThreatMeter:SizeChanged()

			player = GetUnitName ("player", true)

			ThreatMeter.Actived = false

			if (ThreatMeter:IsInCombat() or UnitAffectingCombat ("player")) then
				if (not ThreatMeter.initialized) then
					return
				end
				ThreatMeter.Actived = true
				ThreatMeter:Start()
			end

		elseif (event == "COMBAT_PLAYER_ENTER") then
			if (not ThreatMeter.Actived) then
				ThreatMeter.Actived = true
				ThreatMeter:Start()
			end

		elseif (event == "DETAILS_INSTANCE_ENDRESIZE" or event == "DETAILS_INSTANCE_SIZECHANGED") then

			local what_window = select (1, ...)
			if (what_window == instance) then
				ThreatMeter:SizeChanged()
				ThreatMeter:RefreshRows()
			end

		elseif (event == "DETAILS_OPTIONS_MODIFIED") then
			local what_window = select (1, ...)
			if (what_window == instance) then
				ThreatMeter:RefreshRows()
			end

		elseif (event == "DETAILS_INSTANCE_STARTSTRETCH") then
			ThreatMeterFrame:SetFrameStrata ("TOOLTIP")
			ThreatMeterFrame:SetFrameLevel (instance.baseframe:GetFrameLevel()+1)

		elseif (event == "DETAILS_INSTANCE_ENDSTRETCH") then
			ThreatMeterFrame:SetFrameStrata ("MEDIUM")

		elseif (event == "PLUGIN_DISABLED") then
			ThreatMeterFrame:UnregisterEvent ("PLAYER_TARGET_CHANGED")
			ThreatMeterFrame:UnregisterEvent ("PLAYER_REGEN_DISABLED")
			ThreatMeterFrame:UnregisterEvent ("PLAYER_REGEN_ENABLED")

		elseif (event == "PLUGIN_ENABLED") then
			ThreatMeterFrame:RegisterEvent ("PLAYER_TARGET_CHANGED")
			ThreatMeterFrame:RegisterEvent ("PLAYER_REGEN_DISABLED")
			ThreatMeterFrame:RegisterEvent ("PLAYER_REGEN_ENABLED")
		end
	end

	ThreatMeterFrame:SetWidth (300)
	ThreatMeterFrame:SetHeight (100)

	function ThreatMeter:UpdateContainers()
		for _, row in _ipairs (ThreatMeter.Rows) do 
			row:SetContainer (instance.baseframe)
		end
	end

	function ThreatMeter:UpdateRows()
		for _, row in _ipairs (ThreatMeter.Rows) do
			row.width = ThreatMeter.RowWidth
		end
	end

	function ThreatMeter:HideBars()
		for _, row in _ipairs (ThreatMeter.Rows) do 
			row:Hide()
		end
	end

	local target = nil
	local timer = 0
	local interval = 1.0

	local RoleIconCoord = {
		["TANK"] = {0, 0.28125, 0.328125, 0.625},
		["HEALER"] = {0.3125, 0.59375, 0, 0.296875},
		["DAMAGER"] = {0.3125, 0.59375, 0.328125, 0.625},
		["NONE"] = {0.3125, 0.59375, 0.328125, 0.625}
	}

	function ThreatMeter:SizeChanged()

		local instance = ThreatMeter:GetPluginInstance()

		local w, h = instance:GetSize()
		ThreatMeterFrame:SetWidth (w)
		ThreatMeterFrame:SetHeight (h)
		ThreatMeter.RowHeight = instance.row_info.height
		ThreatMeter.CanShow = math.floor ( h / (instance.row_info.height+1))

		for i = #ThreatMeter.Rows+1, ThreatMeter.CanShow do
			ThreatMeter:NewRow (i)
		end

		ThreatMeter.ShownRows = {}

		for i = 1, ThreatMeter.CanShow do
			ThreatMeter.ShownRows [i] = ThreatMeter.Rows[i]
			if (_detalhes.in_combat) then
				ThreatMeter.Rows[i]:Show()
			end
			ThreatMeter.Rows[i].width = w-5
		end

		for i = #ThreatMeter.ShownRows+1, #ThreatMeter.Rows do
			ThreatMeter.Rows [i]:Hide()
		end

	end

	local SharedMedia = LibStub:GetLibrary ("LibSharedMedia-3.0")

	function ThreatMeter:RefreshRow (row)

		local instance = ThreatMeter:GetPluginInstance()

		if (instance) then
			local font = SharedMedia:Fetch ("font", instance.row_info.font_face, true) or instance.row_info.font_face

			row.textsize = instance.row_info.font_size
			row.textfont = font
			row.texture = instance.row_info.texture
			row.shadow = instance.row_info.textL_outline

			row.width = instance.baseframe:GetWidth()-5
			row.height = instance.row_info.height
			local rowHeight = - ( (row.rowId -1) * (instance.row_info.height + 1) )
			row:ClearAllPoints()
			row:SetPoint ("topleft", ThreatMeterFrame, "topleft", 1, rowHeight)
			row:SetPoint ("topright", ThreatMeterFrame, "topright", -1, rowHeight)

		end
	end

	function ThreatMeter:RefreshRows()
		for i = 1, #ThreatMeter.Rows do
			ThreatMeter:RefreshRow (ThreatMeter.Rows [i])
		end
	end

	function ThreatMeter:NewRow (i)
		local newrow = DetailsFrameWork:NewBar (ThreatMeterFrame, nil, "DetailsThreatRow"..i, nil, 300, ThreatMeter.RowHeight)
		newrow:SetPoint (3, -((i-1)*(ThreatMeter.RowHeight+1)))
		newrow.lefttext = "bar " .. i
		newrow.color = "skyblue"
		newrow.fontsize = 9.9
		newrow.fontface = "GameFontHighlightSmall"
		newrow:SetIcon ("Interface\\LFGFRAME\\UI-LFG-ICON-PORTRAITROLES", RoleIconCoord ["DAMAGER"])
		newrow.rowId = i
		ThreatMeter.Rows [#ThreatMeter.Rows+1] = newrow

		ThreatMeter:RefreshRow (newrow)

		newrow:Hide()

		return newrow
	end

	local absoluteSort = function (table1, table2)
		if (table1[6] > table2[6]) then
			return true
		else
			return false
		end
	end

	local relativeSort = function (table1, table2)
		if (table1[2] > table2[2]) then
			return true
		else
			return false
		end
	end

	function ThreatMeter:GetUnitId()
		local unitId
		if (ThreatMeter.saveddata.usefocus) then
			unitId = "focus"
			if (not UnitExists(unitId)) then
				unitId = "target"
			end
		else
			unitId = "target"
		end

		return unitId
	end

	local UpdateTableFromThreatSituation = function(threat_table, threatening, threatened)
		local isTanking, status, threatpct, rawthreatpct, threatvalue = _UnitDetailedThreatSituation (threatening, threatened)
		if (status) then
			threat_table [2] = threatpct
			threat_table [3] = isTanking
			threat_table [6] = threatvalue
			threat_table [7] = isTanking and 100 or rawthreatpct -- rawthreatpct returns invalid values for the main tank
		else
			threat_table [2] = 0
			threat_table [3] = false
			threat_table [6] = 0
			threat_table [7] = 0
		end
	end

	local gougeSpells = {
		[15687] = 29425, -- Moroes: Gouge
		[22948] = 40491, -- Gurtogg Bloodboil: Bewildering Strike
		[25165] = 45256, -- Lady Sacrolash: Confounding Blow
	}
	local FindGougeSpellForUnit = function(unitId)
		local npcId = _detalhes:GetNpcIdFromGuid(UnitGUID(unitId))
		return gougeSpells[npcId]
	end

	local Threater = function()

		local options = ThreatMeter.options

		local unitId = ThreatMeter:GetUnitId()

		if (ThreatMeter.Actived and UnitExists(unitId) and not _UnitIsFriend("player", unitId)) then

			--> get the threat of all players
			if (_IsInRaid()) then
				for i = 1, _GetNumGroupMembers(), 1 do

					local thisplayer_name = GetUnitName ("raid"..i, true)
					local threat_table_index = ThreatMeter.player_list_hash [thisplayer_name]
					local threat_table = ThreatMeter.player_list_indexes [threat_table_index]

					if (not threat_table) then
						--> some one joined the group while the player are in combat
						ThreatMeter:Start()
						return
					end

					UpdateTableFromThreatSituation(threat_table, "raid"..i, unitId)

				end

			elseif (_IsInGroup()) then
				for i = 1, _GetNumGroupMembers()-1, 1 do
					local thisplayer_name = GetUnitName ("party"..i, true)
					local threat_table_index = ThreatMeter.player_list_hash [thisplayer_name]
					local threat_table = ThreatMeter.player_list_indexes [threat_table_index]

					if (not threat_table) then
						--> some one joined the group while the player are in combat
						ThreatMeter:Start()
						return
					end

					UpdateTableFromThreatSituation(threat_table, "party"..i, unitId)

				end

				local thisplayer_name = GetUnitName ("player", true)
				local threat_table_index = ThreatMeter.player_list_hash [thisplayer_name]
				local threat_table = ThreatMeter.player_list_indexes [threat_table_index]

				UpdateTableFromThreatSituation(threat_table, "player", unitId)

			else

				--> player
				local thisplayer_name = GetUnitName ("player", true)
				local threat_table_index = ThreatMeter.player_list_hash [thisplayer_name]
				local threat_table = ThreatMeter.player_list_indexes [threat_table_index]

				UpdateTableFromThreatSituation(threat_table, "player", unitId)

				--> pet
				if (UnitExists ("pet")) then
					local thisplayer_name = GetUnitName ("pet", true) .. " *PET*"
					local threat_table_index = ThreatMeter.player_list_hash [thisplayer_name]
					local threat_table = ThreatMeter.player_list_indexes [threat_table_index]

					if threat_table then
						UpdateTableFromThreatSituation(threat_table, "pet", unitId)
					end
				end
			end

			local disableGougeMode = ThreatMeter.saveddata.disable_gouge
			local gougeSpellId = (not disableGougeMode) and FindGougeSpellForUnit(unitId)
			local useAbsoluteMode = gougeSpellId or ThreatMeter.saveddata.absolute_mode

			--> sort
			_table_sort (ThreatMeter.player_list_indexes, useAbsoluteMode and absoluteSort or relativeSort)
			local needMainTankDummyBar = true
			for index, t in _ipairs (ThreatMeter.player_list_indexes) do
				ThreatMeter.player_list_hash [t[1]] = index
				if t[3] then
					needMainTankDummyBar = false
				end
			end

			--> no threat on this enemy
			if (ThreatMeter.player_list_indexes [1][7] < 1) then
				ThreatMeter:HideBars()
				return
			end

			--> find main tank threat, even if they are not in group
			local mainTankAbsoluteThreat = ThreatMeter.player_list_indexes[1][6]/(ThreatMeter.player_list_indexes[1][7]/100)

			local lastIndex = 0
			local shownMe = false

			local me = ThreatMeter.player_list_indexes [ ThreatMeter.player_list_hash [player] ]
			local hidePullBar = ThreatMeter.saveddata.hide_pull_bar
			local needRangedPullBar = (not hidePullBar) and useAbsoluteMode
			local needMeleePullBar = (not hidePullBar) and useAbsoluteMode
			local needRelativePullBar = (not hidePullBar) and (not useAbsoluteMode) and me and (me[2] > 0) and (not me[3])

			--> find out scaling factor for bars
			local barValueUnit
			if useAbsoluteMode then
				barValueUnit = max(ThreatMeter.player_list_indexes[1][7]/100, needRangedPullBar and 1.3 or needMeleePullBar and 1.1 or 1.0)
			else
				barValueUnit = 1.0
			end

			--> find out gouge threshold (highest offtank threat, divided by 110%; this prevents the offtank from taking the boss back)
			local gougeThreshold = nil
			if gougeSpellId then
				for _, t in _ipairs (ThreatMeter.player_list_indexes) do
					if not t[3] then
						gougeThreshold = t[6] / 1.1
						break
					end
				end
			end

			local index = 1
			local lastIndex = #ThreatMeter.ShownRows
			local dummyBarCount = 0
			while index <= lastIndex do
				local thisRow = ThreatMeter.ShownRows[index]
				local threatActor = ThreatMeter.player_list_indexes[index-dummyBarCount]

				if needRelativePullBar then
					thisRow._icon:SetTexture ([[Interface\PVPFrame\Icon-Combat]])
					thisRow._icon:SetTexCoord (0, 1, 0, 1)

					local myPullThreat = me[6]*(100/me[2])
					local r,g = ThreatMeter:percent_color(me[2], true)

					thisRow:SetLeftText("You pull at")
					thisRow:SetRightText("+" .. ThreatMeter:ToK2 (myPullThreat - me[6]) .. " (" .. _cstr ("%.1f", 100-me[2]) .. "%)")
					thisRow:SetValue(me[2]/barValueUnit)
					thisRow:SetColor (r, g, 0, 1)
					thisRow:Show()

					needRelativePullBar = false

					index = index+1
					dummyBarCount = dummyBarCount+1
					if index > lastIndex then break end
					thisRow = ThreatMeter.ShownRows[index]
				end


				if needRangedPullBar and ((not threatActor) or (threatActor[7] < 130)) then
					thisRow._icon:SetTexture ([[Interface\PaperDoll\UI-PaperDoll-Slot-Ranged]])
					thisRow._icon:SetTexCoord (0, 1, 0, 1)

					thisRow:SetLeftText ("Ranged pull at")
					thisRow:SetRightText(ThreatMeter:ToK2 (mainTankAbsoluteThreat*1.3) .. " (130.0%)")
					thisRow:SetValue(130/barValueUnit)
					thisRow:SetColor(1, 0, 0, 1)
					thisRow:Show()

					needRangedPullBar = false

					index = index+1
					dummyBarCount = dummyBarCount+1
					if index > lastIndex then break end
					thisRow = ThreatMeter.ShownRows[index]
				end

				if needMeleePullBar and ((not threatActor) or (threatActor[7] < 110)) then
					thisRow._icon:SetTexture ([[Interface\PaperDoll\UI-PaperDoll-Slot-MainHand]])
					thisRow._icon:SetTexCoord (0, 1, 0, 1)

					thisRow:SetLeftText ("Melee pull at")
					thisRow:SetRightText(ThreatMeter:ToK2 (mainTankAbsoluteThreat*1.1) .. " (110.0%)")
					thisRow:SetValue(110/barValueUnit)
					thisRow:SetColor(1, 0, 0, 1)
					thisRow:Show()

					needMeleePullBar = false

					index = index+1
					dummyBarCount = dummyBarCount+1
					if index > lastIndex then break end
					thisRow = ThreatMeter.ShownRows[index]
				end

				if needMainTankDummyBar and ((not threatActor) or (not useAbsoluteMode) or (threatActor[6] < mainTankAbsoluteThreat)) then
					thisRow._icon:SetTexture ([[Interface\LFGFrame\UI-LFG-Icon-PortraitRoles]])
					thisRow._icon:SetTexCoord (_unpack (RoleIconCoord ["TANK"]))
					
					thisRow:SetLeftText ("Current Tank")
					thisRow:SetRightText(ThreatMeter:ToK2 (mainTankAbsoluteThreat) .. " (100.0%)")
					thisRow:SetValue(100/barValueUnit)
					
					-- color main tank based on highest non-tank threat
					local r,g = 0,1
					for _, t in _ipairs (ThreatMeter.player_list_indexes) do
						if not t[3] then
							local otherPct = t[useAbsoluteMode and 7 or 2]
							r,g = (otherPct*0.01), (_math_abs(otherPct-100)*0.01)
							break
						end
					end
					thisRow:SetColor(r, g, 0, 1)
					thisRow:Show()
					
					needMainTankDummyBar = false
					
					index = index+1
					dummyBarCount = dummyBarCount+1
					if index > lastIndex then break end
					thisRow = ThreatMeter.ShownRows[index]
				end

				if gougeThreshold and ((not threatActor) or (threatActor[6] < gougeThreshold)) then
					local spellName, _, spellTexture = GetSpellInfo (gougeSpellId)
					thisRow._icon:SetTexture (spellTexture)
					thisRow._icon:SetTexCoord (0, 1, 0, 1)

					local pct = gougeThreshold * 100 / mainTankAbsoluteThreat

					thisRow:SetLeftText (spellName .. " pull at")
					thisRow:SetRightText(ThreatMeter:ToK2 (gougeThreshold) .. " (" .. _cstr ("%.1f", pct) .. "%)")
					thisRow:SetValue(pct/barValueUnit)
					thisRow:SetColor(1, 0, 0, 1)
					thisRow:Show()

					gougeThreshold = false

					index = index+1
					dummyBarCount = dummyBarCount+1
					if index > lastIndex then break end
					thisRow = ThreatMeter.ShownRows[index]
				end

				if (threatActor) then
					local role = threatActor[4]
					thisRow._icon:SetTexture ([[Interface\LFGFrame\UI-LFG-Icon-PortraitRoles]])
					thisRow._icon:SetTexCoord (_unpack (RoleIconCoord [role]))

					thisRow:SetLeftText (ThreatMeter:GetOnlyName (threatActor [1]))

					local pct = threatActor [useAbsoluteMode and 7 or 2]

					thisRow:SetRightText (ThreatMeter:ToK2 (threatActor [6]) .. " (" .. _cstr ("%.1f", pct) .. "%)")
					thisRow:SetValue (pct/barValueUnit)

					if (options.useplayercolor and threatActor [1] == player) then
						thisRow:SetColor (_unpack (options.playercolor))

					elseif (options.useclasscolors) then
						local color = RAID_CLASS_COLORS [threatActor [5]]
						if (color) then
							thisRow:SetColor (color.r, color.g, color.b)
						else
							thisRow:SetColor (1, 1, 1, 1)
						end
					else
						if threatActor[3] then
							-- color main tank based on highest non-tank threat
							local r,g = 0,1
							for _, t in _ipairs (ThreatMeter.player_list_indexes) do
								if not t[3] then
									local otherPct = t[useAbsoluteMode and 7 or 2]
									r,g = (otherPct*0.01), (_math_abs(otherPct-100)*0.01)
									break
								end
							end
							thisRow:SetColor (r, g, 0, 1)
						else
							local r, g = ThreatMeter:percent_color (pct, true)
							thisRow:SetColor (r, g, 0, 1)
						end
					end

					if (not thisRow.statusbar:IsShown()) then
						thisRow:Show()
					end
					if (threatActor [1] == player) then
						shownMe = true
					end
				else
					thisRow:Hide()
				end

				index = index+1
			end

			if (not shownMe) then
				--> show my self into last bar
				local threat_actor = ThreatMeter.player_list_indexes [ ThreatMeter.player_list_hash [player] ]
				if (threat_actor) then
					if (threat_actor [2] and threat_actor [2] > 0.1) then
						local thisRow = ThreatMeter.ShownRows [#ThreatMeter.ShownRows]
						thisRow:SetLeftText (player)
						--thisRow.textleft:SetTextColor (unpack (RAID_CLASS_COLORS [threat_actor [5]]))
						local role = threat_actor [4]
						thisRow._icon:SetTexture ([[Interface\LFGFrame\UI-LFG-Icon-PortraitRoles]])
						thisRow._icon:SetTexCoord (_unpack (RoleIconCoord [role]))
						thisRow:SetRightText (ThreatMeter:ToK2 (threat_actor [6]) .. " (" .. _cstr ("%.1f", threat_actor [2]) .. "%)")
						thisRow:SetValue (threat_actor [2])

						if (options.useplayercolor) then
							thisRow:SetColor (_unpack (options.playercolor))
						else
							local r, g = ThreatMeter:percent_color (threat_actor [2], true)
							thisRow:SetColor (r, g, 0, .3)
						end
					end
				end
			end
		else
			--print ("nao tem target")
		end
	end

	function ThreatMeter:TargetChanged()
		if (not ThreatMeter.Actived) then
			return
		end

		local unitId = ThreatMeter:GetUnitId()

		local NewTarget = _UnitName(unitId)
		if (NewTarget and not _UnitIsFriend("player", unitId)) then
			target = NewTarget
			Threater()
		else
			ThreatMeter:HideBars()
		end
	end

	function ThreatMeter:Tick()
		Threater()
	end

	function ThreatMeter:Start()
		ThreatMeter:HideBars()
		if (ThreatMeter.Actived) then
			if (ThreatMeter.job_thread) then
				ThreatMeter:CancelTimer (ThreatMeter.job_thread)
				ThreatMeter.job_thread = nil
			end

			ThreatMeter.player_list_indexes = {}
			ThreatMeter.player_list_hash = {}

			--> pre build player list
			if (_IsInRaid()) then
				for i = 1, _GetNumGroupMembers(), 1 do
					local thisplayer_name = GetUnitName ("raid"..i, true)
					local role = _UnitGroupRolesAssigned (thisplayer_name)
					local _, class = UnitClass (thisplayer_name)
					local t = {thisplayer_name, 0, false, role, class, 0, 0}
					ThreatMeter.player_list_indexes [#ThreatMeter.player_list_indexes+1] = t
					ThreatMeter.player_list_hash [thisplayer_name] = #ThreatMeter.player_list_indexes
				end

			elseif (_IsInGroup()) then
				for i = 1, _GetNumGroupMembers()-1, 1 do
					local thisplayer_name = GetUnitName ("party"..i, true)
					local role = _UnitGroupRolesAssigned (thisplayer_name)
					local _, class = UnitClass (thisplayer_name)
					local t = {thisplayer_name, 0, false, role, class, 0, 0}
					ThreatMeter.player_list_indexes [#ThreatMeter.player_list_indexes+1] = t
					ThreatMeter.player_list_hash [thisplayer_name] = #ThreatMeter.player_list_indexes
				end
				local thisplayer_name = GetUnitName ("player", true)
				local role = _UnitGroupRolesAssigned (thisplayer_name)
				local _, class = UnitClass (thisplayer_name)
				local t = {thisplayer_name, 0, false, role, class, 0, 0}
				ThreatMeter.player_list_indexes [#ThreatMeter.player_list_indexes+1] = t
				ThreatMeter.player_list_hash [thisplayer_name] = #ThreatMeter.player_list_indexes

			else
				local thisplayer_name = GetUnitName ("player", true)
				local role = _UnitGroupRolesAssigned (thisplayer_name)
				local _, class = UnitClass (thisplayer_name)
				local t = {thisplayer_name, 0, false, role, class, 0, 0}
				ThreatMeter.player_list_indexes [#ThreatMeter.player_list_indexes+1] = t
				ThreatMeter.player_list_hash [thisplayer_name] = #ThreatMeter.player_list_indexes

				if (UnitExists ("pet")) then
					local thispet_name = GetUnitName ("pet", true) .. " *PET*"
					local role = "DAMAGER"
					local t = {thispet_name, 0, false, role, class, 0, 0}
					ThreatMeter.player_list_indexes [#ThreatMeter.player_list_indexes+1] = t
					ThreatMeter.player_list_hash [thispet_name] = #ThreatMeter.player_list_indexes
				end
			end

			local job_thread = ThreatMeter:ScheduleRepeatingTimer ("Tick", ThreatMeter.options.updatespeed)
			ThreatMeter.job_thread = job_thread
		end
	end

	function ThreatMeter:End()
		ThreatMeter:HideBars()
		if (ThreatMeter.job_thread) then
			ThreatMeter:CancelTimer (ThreatMeter.job_thread)
			ThreatMeter.job_thread = nil
		end
	end

	function ThreatMeter:Cancel()
		ThreatMeter:HideBars()
		if (ThreatMeter.job_thread) then
			ThreatMeter:CancelTimer (ThreatMeter.job_thread)
			ThreatMeter.job_thread = nil
		end
		ThreatMeter.Actived = false
	end

end

local build_options_panel = function()

	local options_frame = ThreatMeter:CreatePluginOptionsFrame ("ThreatMeterOptionsWindow", "Tiny Threat Options", 1)

	local menu = {
		{
			type = "range",
			get = function() return ThreatMeter.saveddata.updatespeed end,
			set = function (self, fixedparam, value) ThreatMeter.saveddata.updatespeed = value end,
			min = 0.2,
			max = 3,
			step = 0.2,
			desc = "How fast the window get updates.",
			name = "Update Speed",
			usedecimals = true,
		},
		{
			type = "toggle",
			get = function() return ThreatMeter.saveddata.useplayercolor end,
			set = function (self, fixedparam, value) ThreatMeter.saveddata.useplayercolor = value end,
			desc = "When enabled, your bar get the following color.",
			name = "Player Color Enabled"
		},
		{
			type = "color",
			get = function() return ThreatMeter.saveddata.playercolor end,
			set = function (self, r, g, b, a) 
				local current = ThreatMeter.saveddata.playercolor
				current[1], current[2], current[3], current[4] = r, g, b, a
			end,
			desc = "If Player Color is enabled, your bar have this color.",
			name = "Color"
		},
		{
			type = "toggle",
			get = function() return ThreatMeter.saveddata.useclasscolors end,
			set = function (self, fixedparam, value) ThreatMeter.saveddata.useclasscolors = value end,
			desc = "When enabled, threat bars uses the class color of the character.",
			name = "Use Class Colors"
		},

		{type = "blank"},

		{
			type = "toggle",
			get = function() return ThreatMeter.saveddata.usefocus end,
			set = function (self, fixedparam, value) ThreatMeter.saveddata.usefocus = value end,
			desc = "Show threat for the focus target if there's one.",
			name = "Track Focus Target (if any)"
		},
		{
			type = "toggle",
			get = function() return not ThreatMeter.saveddata.hide_pull_bar end,
			set = function (self, fixedparam, value) ThreatMeter.saveddata.hide_pull_bar = not value end,
			desc = "Show Pull Aggro Bar",
			name = "Show Pull Aggro Bar"
		},
		{
			type = "toggle",
			get = function() return ThreatMeter.saveddata.absolute_mode end,
			set = function(self, fixedparam, value) ThreatMeter.saveddata.absolute_mode = value end,
			desc = "If this is disabled, you see weighted threat percentages – aggro switches at 100%.\nIf this is enabled, you see absolute threat percentages – aggro switches at 110% in melee, and 130% at range.",
			name = "Display absolute threat",
		},
		{
			type = "toggle",
			get = function() return not ThreatMeter.saveddata.disable_gouge end,
			set = function(self, fixedparam, value) ThreatMeter.saveddata.disable_gouge = not value end,
			desc = "If this is enabled, certain bosses will show an additional threat threshold at 90.9% of the off-tank's threat. Any player above this threshold might be targeted after the Main Tank is incapacitated.",
			name = "Enable Gouge mode",
		},


--[=[
		{
			type = "toggle",
			get = function() return ThreatMeter.saveddata.playSound end,
			set = function (self, fixedparam, value) ThreatMeter.saveddata.playSound = value end,
			desc = "Except for tanks",
			name = "Play Audio On High Threat"
		},
--]=]


	}

	_detalhes.gump:BuildMenu (options_frame, menu, 15, -35, 160)
	options_frame:SetHeight(160)

end

ThreatMeter.OpenOptionsPanel = function()
	if (not ThreatMeterOptionsWindow) then
		build_options_panel()
	end
	ThreatMeterOptionsWindow:Show()
end

function ThreatMeter:OnEvent (_, event, ...)

	if (event == "PLAYER_TARGET_CHANGED") then
		ThreatMeter:TargetChanged()

	elseif (event == "PLAYER_REGEN_DISABLED") then
		ThreatMeter.Actived = true
		ThreatMeter:Start()
		--print ("tiny theat: regen disabled")

	elseif (event == "PLAYER_REGEN_ENABLED") then
		ThreatMeter:End()
		ThreatMeter.Actived = false
		--print ("tiny theat: regen enabled")

	elseif (event == "ADDON_LOADED") then
		local AddonName = select (1, ...)

		if (AddonName == "Details_TinyThreat") then
			if (_G._detalhes) then

				if (DetailsFramework.IsClassicWow()) then
					--return
				end

				--> create widgets
				CreatePluginFrames (data)

				local MINIMAL_DETAILS_VERSION_REQUIRED = 1

				--> Install
				local install, saveddata = _G._detalhes:InstallPlugin ("RAID", Loc ["STRING_PLUGIN_NAME"], "Interface\\Icons\\Ability_Druid_Cower", ThreatMeter, "DETAILS_PLUGIN_TINY_THREAT", MINIMAL_DETAILS_VERSION_REQUIRED, "Terciob", "v2.01")
				if (type (install) == "table" and install.error) then
					print (install.error)
				end

				--> Register needed events
				_G._detalhes:RegisterEvent (ThreatMeter, "COMBAT_PLAYER_ENTER")
				_G._detalhes:RegisterEvent (ThreatMeter, "COMBAT_PLAYER_LEAVE")
				_G._detalhes:RegisterEvent (ThreatMeter, "DETAILS_INSTANCE_ENDRESIZE")
				_G._detalhes:RegisterEvent (ThreatMeter, "DETAILS_INSTANCE_SIZECHANGED")
				_G._detalhes:RegisterEvent (ThreatMeter, "DETAILS_INSTANCE_STARTSTRETCH")
				_G._detalhes:RegisterEvent (ThreatMeter, "DETAILS_INSTANCE_ENDSTRETCH")
				_G._detalhes:RegisterEvent (ThreatMeter, "DETAILS_OPTIONS_MODIFIED")

				ThreatMeterFrame:RegisterEvent ("PLAYER_TARGET_CHANGED")
				ThreatMeterFrame:RegisterEvent ("PLAYER_REGEN_DISABLED")
				ThreatMeterFrame:RegisterEvent ("PLAYER_REGEN_ENABLED")

				--> Saved data
				ThreatMeter.saveddata = saveddata or {}

				ThreatMeter.saveddata.updatespeed = ThreatMeter.saveddata.updatespeed or 1
				ThreatMeter.saveddata.animate = ThreatMeter.saveddata.animate or false
				ThreatMeter.saveddata.showamount = ThreatMeter.saveddata.showamount or false
				ThreatMeter.saveddata.useplayercolor = ThreatMeter.saveddata.useplayercolor or false
				ThreatMeter.saveddata.playercolor = ThreatMeter.saveddata.playercolor or {1, 1, 1}
				ThreatMeter.saveddata.useclasscolors = ThreatMeter.saveddata.useclasscolors or false
				ThreatMeter.saveddata.usefocus = ThreatMeter.saveddata.usefocus or false
				ThreatMeter.saveddata.hide_pull_bar = ThreatMeter.saveddata.hide_pull_bar or false
				ThreatMeter.saveddata.absolute_mode = ThreatMeter.saveddata.absolute_mode or false
				ThreatMeter.saveddata.disable_gouge = ThreatMeter.saveddata.disable_gouge or false

				ThreatMeter.saveddata.playSound = ThreatMeter.saveddata.playSound or false
				ThreatMeter.saveddata.playSoundFile = ThreatMeter.saveddata.playSoundFile or "Details Threat Warning Volume 3"

				ThreatMeter.options = ThreatMeter.saveddata

				--> Register slash commands
				SLASH_DETAILS_TINYTHREAT1, SLASH_DETAILS_TINYTHREAT2 = "/tinythreat", "/tt"

				function SlashCmdList.DETAILS_TINYTHREAT (msg, editbox)

					local command, rest = msg:match("^(%S*)%s*(.-)$")

					if (command == Loc ["STRING_SLASH_ANIMATE"]) then

					elseif (command == Loc ["STRING_SLASH_SPEED"]) then

						if (rest) then
							local speed = tonumber (rest)
							if (speed) then
								if (speed > 3) then
									speed = 3
								elseif (speed < 0.3) then
									speed = 0.3
								end

								ThreatMeter.saveddata.updatespeed = speed
								ThreatMeter:Msg (Loc ["STRING_SLASH_SPEED_CHANGED"] .. speed)
							else
								ThreatMeter:Msg (Loc ["STRING_SLASH_SPEED_CURRENT"] .. ThreatMeter.saveddata.updatespeed)
							end
						end

					elseif (command == Loc ["STRING_SLASH_AMOUNT"]) then

					else
						ThreatMeter:Msg (Loc ["STRING_COMMAND_LIST"])
						print ("|cffffaeae/tinythreat " .. Loc ["STRING_SLASH_SPEED"] .. "|r: " .. Loc ["STRING_SLASH_SPEED_DESC"])

					end
				end
				ThreatMeter.initialized = true
			end
		end

	end
end
