imptable={};
playerguid=nil;
impcount=0;
function impLoad()
	DEFAULT_CHAT_FRAME:AddMessage("Imp Counter Loaded.")
	impCountFrame:RegisterEvent("COMBAT_LOG_EVENT_UNFILTERED")
	impCountFrame:RegisterEvent("PLAYER_ENTERING_WORLD")
end


function impOnEvent(self, event, ...)
	local comptime = GetTime();
	for i,v in pairs(imptable) do
		if(v+120<comptime) then
		imptable[i]=nil;
		impcount=impcount-1;
	--	DEFAULT_CHAT_FRAME:AddMessage("Imp timed out. Count: " .. impcount);

		end
	end

	if(event=="PLAYER_ENTERING_WORLD") then
		playerguid=UnitGUID("player");
	end
	
	if(event=="COMBAT_LOG_EVENT_UNFILTERED") then
	local timeStamp, combatevent, sourceGUID, sourceName, sourceFlags, sourceRaidFlags, destGUID, destName, destFlags, destRaidFlags, spellID, spellName, spellSchool, sourceGUID, sourceHealth, sourceAP, sourceSP, sourceResourcetype, sourceResourceamount = ()


		if(combatevent=="UNIT_DIED") then
			for i,v in pairs(imptable) do
				if(destGUID==i) then
					imptable[i]=nil;
					impcount=impcount-1;
		--			DEFAULT_CHAT_FRAME:AddMessage("Imp died. Count: " .. impcount);
				end
			end
		end


		if(combatevent=="SPELL_CAST_SUCCESS" and sourceResourceamount == 0) then
			for i,v in pairs(imptable) do
				if(destGUID==i) then
					imptable[i]=nil;
					impcount=impcount-1;
		--			DEFAULT_CHAT_FRAME:AddMessage("Imp died. Count: " .. impcount);
				end
			end
		end


		if (combatevent=="SPELL_SUMMON") then
			DEFAULT_CHAT_FRAME:AddMessage(destName);
			end

		if (combatevent=="SPELL_SUMMON" and destName=="Wild Imp" and sourceGUID == playerguid) then
			imptable[destGUID]=comptime;
			impcount=impcount+1;
		--	DEFAULT_CHAT_FRAME:AddMessage("Imp spawned. Count: " .. impcount);

		end

	end


	impCounterNumber:SetText(impcount);
end