zombiesurvival-evolved/gamemodes/zombiesurvival/gamemode/noxapi/server.lua

local SUPPORTER_MESSAGE = "JetBoom says: thank you for supporting my gamemodes!"

local CACHE = {
	MaxSize = 128,
	BufferTime = 6,
	Cache = {}
}

local Buffer = {}

function CACHE:Set(steamid, memberlevel, nolookup)
	if nolookup then
		table.insert(self.Cache, {steamid, memberlevel})
	else
		for i, tab in pairs(self.Cache) do
			if tab[1] == steamid then
				tab[2] = memberlevel
				return
			end
		end

		table.insert(self.Cache, {steamid, memberlevel})
	end

	if #self.Cache > self.MaxSize then
		table.remove(self.Cache, 1)
	end
end

function CACHE:Get(steamid)
	for i, tab in pairs(self.Cache) do
		if tab[1] == steamid then
			return tab[2]
		end
	end
end

function CACHE:Remove(steamid)
	for i, tab in pairs(self.Cache) do
		if tab[1] == steamid then
			table.remove(self.Cache, i)
			break
		end
	end
end

function CACHE:Save()
	local tosave = {}

	for _, cached in pairs(self.Cache) do
		table.insert(tosave, cached[1].."="..cached[2])
	end

	file.Write("noxapi_cache.txt", table.concat(tosave, "\n"))
end

function CACHE:Load()
	if file.Exists("noxapi_cache.txt", "DATA") then
		self.Cache = {}

		for i, line in pairs(string.Explode("\n", file.Read("noxapi_cache.txt", "DATA"))) do
			local cont = string.Explode("=", line)
			local steamid, memberlevel = cont[1], tonumber(cont[2]) or 0

			self:Set(steamid, memberlevel, true)
		end
	end
end

function CACHE:BufferRequest()
	local IDS = {}
	local steamid_to_player = {}
	local steamids = {}
	for i=1, math.min(10, #Buffer) do
		IDS[#IDS + 1] = {Buffer[1][1], Buffer[1][2]}
		steamids[#steamids + 1] = Buffer[1][1]
		table.remove(Buffer, 1)
	end
	for _, pl in pairs(player.GetAll()) do
		steamid_to_player[pl:SteamID()] = pl
	end

	http.Fetch("http://www.noxiousnet.com/api/player/memberlevel?steamids="..table.concat(steamids, ","), function(body, len, headers, code)
		local levels = string.Explode(",", body)
		if #levels == #IDS then
			local allplayers = player.GetAll()

			for k, v in pairs(levels) do
				local kv = string.Explode("=", v)
				if #kv == 2 then
					local steamid = kv[1]
					local level = tonumber(kv[2]) or 0
					local pl = steamid_to_player[steamid]

					if (level == 1 or level == 2) and pl and pl:IsValid() then
						pl:SetDTBool(15, true)
						pl:PrintMessage(HUD_PRINTTALK, SUPPORTER_MESSAGE)
					end

					CACHE:Set(steamid, level)
				end
			end
		end
	end)

	if #Buffer > 0 then
		CACHE:WaitForBuffer()
	end
end

function CACHE:WaitForBuffer()
	if not timer.Exists("noxapibuffer") then
		timer.Create("noxapibuffer", CACHE.BufferTime, 1, CACHE.BufferRequest)
	end
end

hook.Add("PlayerInitialSpawn", "noxapi", function(pl)
	if NDB or pl:IsBot() then return end

	local steamid = pl:SteamID()
	local memberlevel = CACHE:Get(steamid)
	if memberlevel then
		if memberlevel == 1 or memberlevel == 2 then
			pl:SetDTBool(15, true)
			pl:PrintMessage(HUD_PRINTTALK, SUPPORTER_MESSAGE)
		end
	else
		table.insert(Buffer, {steamid, pl})
		CACHE:WaitForBuffer()
	end
end)

hook.Add("Initialize", "noxapi", function()
	resource.AddFile("materials/noxiousnet/noxicon.png")

	if not NDB then
		CACHE:Load()
	end
end)

hook.Add("ShutDown", "noxapi", function()
	if not NDB then
		CACHE:Save()
	end
end)

concommand.Add("noxapi_forcerefresh", function(sender, command, arguments)
	if sender._ForcedNoxAPILookup or sender:IsNoxSupporter() or NDB then return end

	sender._ForcedNoxAPILookup = true

	local steamid = sender:SteamID()

	CACHE:Remove(steamid)

	http.Fetch("http://www.noxiousnet.com/api/player/memberlevel?steamid="..steamid, function(body, len, headers, code)
		local level = tonumber(body) or 0

		if level == 1 or level == 2 then
			pl:SetDTBool(15, true)
			pl:PrintMessage(HUD_PRINTTALK, SUPPORTER_MESSAGE)
		end

		CACHE:Set(steamid, level)
	end)
end)