GM.StatTracking = {}

local stattrack = GM.StatTracking
stattrack.Folder = "stat_tracking"
stattrack.BlackList = false

STATTRACK_TYPE_WEAPON = 1
STATTRACK_TYPE_ZOMBIECLASS = 2
STATTRACK_TYPE_ROUND = 3
STATTRACK_TYPE_SKILL = 4

hook.Add("Initialize", "ZSProfiler", function()
	file.CreateDir(stattrack.Folder)

	for _, map in pairs({"tantibus", "serious_sam", "gauntlet", "high_noon", "croak"}) do
		if string.find(game.GetMap(), map) then
			stattrack.BlackList = true
		end
	end
end)

local ttypetblnames = {
	[STATTRACK_TYPE_WEAPON] = "Weapon",
	[STATTRACK_TYPE_ZOMBIECLASS] = "ZombieClass",
	[STATTRACK_TYPE_ROUND] = "Game",
	[STATTRACK_TYPE_SKILL] = "Skill",
}

function stattrack:GetTypeTbl(ttype)
	return ttypetblnames[ttype] .. "Data"
end

function stattrack:GetTrackTypeStatFile(ttype)
	return self.Folder.."/".. string.lower(ttypetblnames[ttype]) .."s.txt"
end

for num, ttype in pairs(ttypetblnames) do
	local typenam = stattrack:GetTypeTbl(num)
	stattrack[typenam] = {}

	if file.Exists(stattrack:GetTrackTypeStatFile(num), "DATA") then
		stattrack[typenam] = Deserialize(file.Read(stattrack:GetTrackTypeStatFile(num), "DATA"))
		stattrack[typenam] = stattrack[typenam].Ser
	end
end

function stattrack:SafeElementUpdateCreate(type, elem, key, value)
	local typenam = self:GetTypeTbl(type)
	if not self[typenam][elem] then self[typenam][elem] = {} end

	self[typenam][elem][key] = value
end

function stattrack:ElementRead(type, elem, key)
	local typenam = self:GetTypeTbl(type)
	if not self[typenam][elem] then return end

	return self[typenam][elem][key]
end

function stattrack:IncreaseElementKV(type, elem, key, incr)
	if self.BlackList then return end

	self:SafeElementUpdateCreate(type, elem, key, (self:ElementRead(type, elem, key) or 0) + incr)
end

function stattrack:SaveStatTrackingFiles()
	for num, ttype in pairs(ttypetblnames) do
		file.Write(stattrack:GetTrackTypeStatFile(num), Serialize({Ser = self[self:GetTypeTbl(num)]}))
	end
end
timer.Create("StatTrackingSaveTimer", 60, 0, function()
	local allplys = player.GetAll()

	local skc = {}
	for _,v in ipairs(allplys) do
		local activ = v:GetActiveWeapon()
		if activ and activ:IsValid() then
			stattrack:IncreaseElementKV(STATTRACK_TYPE_WEAPON, activ:GetClass(), "HeldWeaponSaves", 1)
		end

		for i, j in pairs(v:GetActiveSkills()) do
			skc[i] = (skc[i] or 0) + 1
		end
	end

	for k,v in pairs(skc) do
		stattrack:IncreaseElementKV(STATTRACK_TYPE_SKILL, GAMEMODE.Skills[k].Name, "SkillMinutes", v)
	end

	stattrack:SaveStatTrackingFiles()
end)
hook.Add("ShutDown", "StatTrack", function() stattrack:SaveStatTrackingFiles() end)