SpellAlerter 

-----------------------------------------------------
-- Spell Alerter by Kollektiv
-----------------------------------------------------

SpellAlerterDB = SpellAlerterDB or { height = 190, fade = 1, width = 0}

local select = select
local GetSpellInfo = GetSpellInfo
local band = bit.band

local CombatLog_Object_IsA = CombatLog_Object_IsA
local COMBATLOG_FILTER_HOSTILE_PLAYERS = COMBATLOG_FILTER_HOSTILE_PLAYERS

local colors = {
		[1] = {1,1,0,0},	-- heals
		[2] = {1,0,1,0},	-- cc
		[3] = {0,1,0,0},	-- dispelable
		[4] = {1,0,0,0},	-- damage
	}
	
local frame,texture,text,fade,spells
local time, fadetime, alpha, num = 0,0,0,0

-- References
local ref_GetTextColor
local ref_SetText
local ref_SetTexture
local ref_TextureSetVertexColor
local ref_TextSetVertexColor
local ref_Show
local ref_Hide
local ref_SetScript


local function SpellAlerter_CreateFrame()
	frame:SetFrameStrata("HIGH")
	frame:SetWidth(1)
	frame:SetHeight(1)
	frame:SetPoint("CENTER",UIParent,"CENTER",SpellAlerterDB.width,SpellAlerterDB.height)
	frame:Show()
	
	ref_Show = frame.Show
	ref_Hide = frame.Hide
	ref_SetScript = frame.SetScript
	
	local txt = frame:CreateFontString(ZoneTextFont,"ARTWORK")
	txt:SetFont("Fonts\\FRIZQT__.TTF",40,"THICKOUTLINE")
	txt:SetPoint("LEFT",frame,"CENTER",-45,-2)
	txt:SetJustifyH("LEFT")
	
	ref_GetTextColor = txt.GetTextColor
	ref_SetText = txt.SetText
	ref_SetTextColor = txt.SetTextColor
	ref_TextSetVertexColor = txt.SetVertexColor
	
	local txtr = frame:CreateTexture(nil,"BACKGROUND")
	txtr:SetHeight(35)
	txtr:SetWidth(35)
	txtr:SetVertexColor(1,1,1,1)
	txtr:SetPoint("RIGHT",frame,"CENTER",-50,0)
	txtr:SetTexCoord(0.07,0.9,0.07,0.90)
	
	ref_SetTexture = txtr.SetTexture
	ref_TextureSetVertexColor = txtr.SetVertexColor
	
	texture = txtr
	text = txt
end

local function SpellAlerter_OnUpdate(self, elapsed)
	local r,g,b
	return function(self, elapsed)
		time = time + elapsed
		fadetime = fadetime + elapsed
		if time > 0.05 then
			r,g,b = ref_GetTextColor(text)
			if fadetime < .1 then
				num = num + 0.5
			elseif fadetime >= 0.1 and fadetime <= (fade - 0.1) then
				num = 1
			elseif fadetime > (fade - 0.1) then
				num = num - 0.5
			end
			ref_TextSetVertexColor(text,r,g,b,num)
			ref_TextureSetVertexColor(texture,1,1,1,num)
			time = 0
			if fadetime > fade then
				ref_SetScript(self,"OnUpdate",nil)
				ref_Hide(self)
			end
		end
	end
end

SpellAlerter_OnUpdate = SpellAlerter_OnUpdate()

local function SpellAlerter_AddMessage(unit,type,icon,spell)
	ref_SetTexture(texture,icon)
	ref_TextureSetVertexColor(texture,1,1,1,0)
	ref_SetText(text,spell..","..unit)
	text:SetTextColor(unpack(colors[type]))
	time, fadetime, alpha, num = 0,0,0,0
	ref_Show(frame)
	ref_SetScript(frame,"OnUpdate",SpellAlerter_OnUpdate)
end


local function SpellAlerter_COMBAT_LOG_EVENT()
	local _, eventtype, srcName, srcFlags, dstName, dstFlags
	local unit, spellID
	local spell, icon
	return function(...)
		_, eventtype, _, srcName, srcFlags, _, dstName, dstFlags = select(1,...)
		if eventtype == ("SPELL_CAST_START" or eventtype == "SPELL_CAST_SUCCESS") and CombatLog_Object_IsA(srcFlags, COMBATLOG_FILTER_HOSTILE_PLAYERS) then
			unit = srcName
		elseif eventtype == "SPELL_AURA_APPLIED" and CombatLog_Object_IsA(dstFlags, COMBATLOG_FILTER_HOSTILE_PLAYERS) then
			unit = dstName
		else
			return
		end
		spellID = select(9,...)
		if spellID == 35223 then return end -- hack for Holy Light bug,
		spell,_,icon = GetSpellInfo(spellID)
		if spells[spell] then
			SpellAlerter_AddMessage(unit,spells[spell],icon,spell)
		end
	end
end

SpellAlerter_COMBAT_LOG_EVENT = SpellAlerter_COMBAT_LOG_EVENT()

local function SpellAlerter_Test()
	SpellAlerter_AddMessage("Kollektiv",3,"Interface\\Icons\\Spell_Nature_SkinofEarth","Test")
end

local cmdfuncs = {
	width = function(v) if not v or v < -500 or v > 500 then ChatFrame1:AddMessage("Invalid width value, enter a value between -500 and 500",0,1,0); return; end;
											 SpellAlerterDB.width = v; 
											 frame:ClearAllPoints(); 
											 frame:SetPoint("CENTER",UIParent,"CENTER",SpellAlerterDB.width,SpellAlerterDB.height); 
											 SpellAlerter_Test()
					 end,
	height = function(v) if not v or v < -500 or v > 500 then ChatFrame1:AddMessage("Invalid height value, enter a value between -500 and 500",0,1,0); return; end;
											 SpellAlerterDB.height = v; 
											 frame:ClearAllPoints(); 
											 frame:SetPoint("CENTER",UIParent,"CENTER",SpellAlerterDB.width,SpellAlerterDB.height); 
											 SpellAlerter_Test()
					 end,
	fade = function(v)   if not v or v < .5 or v > 5 then ChatFrame1:AddMessage("Invalid fade time value, enter a value between 0.5 and 5",0,1,0); return; end;
											 SpellAlerterDB.fade = v; fade = v; SpellAlerter_Test() end,
	test = function() SpellAlerter_Test() end,
}

local cmdtbl = {}
function SpellAlerter_Command(cmd)
	for k in ipairs(cmdtbl) do
		cmdtbl[k] = nil
	end
	for v in gmatch(cmd, "[^ ]+") do
  	tinsert(cmdtbl, v)
  end
  local cb = cmdfuncs[cmdtbl[1]] 
  if cb then
  	local s = tonumber(cmdtbl[2])
  	cb(s)
  else
  	ChatFrame1:AddMessage("Spell Alerter Options | /sa <option>",0,1,0)
  	ChatFrame1:AddMessage("-- width <number> | value: " .. (SpellAlerterDB.width or "none"),0,1,0)
	ChatFrame1:AddMessage("-- height <number> | value: " .. (SpellAlerterDB.height or "none"),0,1,0)
  	ChatFrame1:AddMessage("-- fade <number> | value: " .. (SpellAlerterDB.fade or "none"),0,1,0)
  	ChatFrame1:AddMessage("-- test",0,1,0)
  end
end

local function SpellAlerter_OnLoad(self)
	self:RegisterEvent("COMBAT_LOG_EVENT_UNFILTERED")
	fade = SpellAlerterDB.fade
	spells = SpellAlerter_spells
	SpellAlerter_CreateFrame(self)
	SlashCmdList["SpellAlerter"] = SpellAlerter_Command
 	SLASH_SpellAlerter1 = "/sa"
 	ChatFrame1:AddMessage("Spell Alerter by Kollektiv. Type /sa for options",0,1,0)
end
	
local function SpellAlerter_OnEvent(self, event, ...)
	if event == "VARIABLES_LOADED" then
		SpellAlerter_OnLoad(self)
	else
		SpellAlerter_COMBAT_LOG_EVENT(...)
	end
end

frame = CreateFrame("Frame",nil,UIParent)
frame:RegisterEvent("VARIABLES_LOADED")
frame:SetScript("OnEvent",SpellAlerter_OnEvent)