l_ingameshopmod.lua

file.CreateDir("igs")

-- Вы можете сделать форк основного репозитория, сделать там изменения и указать его имя здесь
-- Таким образом IGS будет грузиться у всех с вашего репозитория
IGS_REPO = "GM-DONATE/IGS" -- "AMD-NICK/IGS-1"
if not IGS_REPO or file.Exists("autorun/l_ingameshop.lua", "LUA") then return end -- force lua


local function checkRunString()
	RunString("IGS_Test_RS = true", "IGS_Test_RS")
	assert(IGS_Test_RS, "RunString не работает: https://forum.gm-donate.net/t/1663")
	IGS_Test_RS = nil
end

checkRunString() -- сразу может быть, а потом пропасть

-- http либа работает не сразу
local fetchDelayed = function(delay, url, fOk, fErr, tHeaders)
	timer.Simple(delay, function()
		http.Fetch(url, fOk, fErr, tHeaders)
	end)
end

local replaceGithubUrl = function(original)
	return original
		:gsub("^https://api.github.com", "https://gh.gm-donate.net/api")
		:gsub("^https://github.com",     "https://gh.gm-donate.net")
end

local function wrapFetch(url, cb, retry_)
	local retry3Times = function()
		retry_ = retry_ or 1
		if retry_ < 3 then
			wrapFetch(url, cb, retry_ + 1)
		elseif retry_ == 3 then -- last chance
			local newurl = replaceGithubUrl(url)
			wrapFetch(newurl or url, cb, retry_ + 1)
		else
			return true
		end
	end

	local patt = "IGS Не может выполнить HTTP запрос и загрузить скрипт\nURL: %s\nError: %s\n"
	fetchDelayed((retry_ or 0) * 5, url, cb, function(err) -- timeout, unsuccessful
		local fault = retry3Times()
		if not fault then return end -- пытается дальше
		-- попытки исчерпались

		error(patt:format(url, err))
	end)
end


local function downloadSuperfile(version, cb, _failure)
	local url = "https://github.com/" .. IGS_REPO .. "/releases/download/" .. version .. "/superfile.json"
	if _failure then ErrorNoHalt("[IGS] #" .. _failure .. " повторение загрузки", url) end

	wrapFetch(url, function(superfile)
		local dat = util.JSONToTable(superfile)
		if not dat and (_failure or 0) < 3 then
			downloadSuperfile(version, cb, (_failure or 0) + 1)
			return
		end

		local err =
			not dat and "superfile.json получен не в правильном формате"
			or dat.error and ("Ошибка от GitHub: " .. dat.error)

		assert(not err, (err or "") .. "\n" .. url .. "\nПопробуйте снова или почитайте тут https://forum.gm-donate.net/t/1663")

		file.Write("igs/superfile.txt", superfile)
		cb(superfile)
	end)
end

local function loadFromFile(superfile)
	checkRunString()

	local path = "autorun/l_ingameshop.lua"
	IGS_MOUNT = util.JSONToTable(superfile)

	RunString(IGS_MOUNT[path], path)
end

local function findFreshestVersion(cb)
	wrapFetch("https://api.github.com/repos/" .. IGS_REPO .. "/releases", function(json)
		local releases = util.JSONToTable(json)
		table.sort(releases, function(a, b) -- свежайшие версии сначала
			return tonumber(a.tag_name) > tonumber(b.tag_name)
		end)

		local freshest_version = releases[1]
		assert(freshest_version, "Релизов нет. Нужно запустить CI: https://forum.gm-donate.net/t/1663")

		cb(freshest_version.tag_name)
	end)
end

if SERVER then
	local superfile = file.Read("igs/superfile.txt")
	local version   = cookie.GetString("igs_version")

	if superfile and version then -- 2 может не быть, если сервер перенесли без sv.db
		loadFromFile(superfile)

	elseif not version then
		findFreshestVersion(function(freshest_version)
			cookie.Set("igs_version", freshest_version)
			downloadSuperfile(freshest_version, loadFromFile)
		end)

	else -- version
		downloadSuperfile(version, loadFromFile)
	end

elseif CLIENT then
	CreateConVar("igs_version", "", {FCVAR_REPLICATED})
	local version = GetConVarString("igs_version")
	assert(tonumber(version), "cvar igs_version не передался клиенту. " .. tostring(version) .. ": https://forum.gm-donate.net/t/1663")
	downloadSuperfile(version, loadFromFile)
end