wnsrc/lua/sam/reports/sv_reports.lua

--[[
| This file was obtained through the combined efforts
| of Madbluntz & Plymouth Antiquarian Society.
|
| Credits: lifestorm, Gregory Wayne Rossel JR.,
| 	Maloy, DrPepper10 @ RIP, Atle!
|
| Visit for more: https://plymouth.thetwilightzone.ru/
--]]

if SAM_LOADED then return end

local sam = sam
local netstream = sam.netstream

local config = sam.config

local auto_close
config.hook({"Reports.AutoCloseTime"}, function()
	auto_close = sam.parse_length(config.get("Reports.AutoCloseTime", "10m")) * 60
end)

hook.Add("SAM.LoadedConfig", "SAM.ReportsMain", function(c)
	if not c["Reports.Commands"] then
		sam.config.set("Reports.Commands", "goto, bring, return")
	end

	if not c["Reports.DutyJobs"] then
		sam.config.set("Reports.DutyJobs", "Admin On Duty, Hobo, Medic")
	end
end)

local get_admins = function(ply)
	local admins = {}

	local players = player.GetHumans()
	for i = 1, #players do
		local v = players[i]
		if v:HasPermission("see_admin_chat") and v ~= ply then
			table.insert(admins, v)
		end
	end

	return admins
end

local remove_report_info = function(ply)
	local admin = ply.sam_report_admin

	if IsValid(ply) then
		ply.sam_has_report = nil
		ply.sam_report_admin = nil
		netstream.Start(get_admins(), "ReportClosed", ply:EntIndex())
	end

	if IsValid(admin) then
		admin.sam_claimed_report = nil
	end

	timer.Remove("SAM.Reports." .. ply:EntIndex())
end

function sam.player.report(ply, comment)
	if not IsValid(ply) then
		error("invalid player")
	end

	local can_use, time = ply:sam_check_cooldown("NewReport", 4)
	if can_use == false then return false, time < 1 and 1 or math.Round(time) end

	if not sam.isstring(comment) then
		error("invalid comment")
	end

	comment = comment:sub(1, 120)

	local admin = ply.sam_report_admin
	if admin then
		if IsValid(admin) then
			return netstream.Start(admin, "Report", ply, comment)
		else
			remove_report_info(ply)
		end
	end

	ply.sam_has_report = true
	netstream.Start(get_admins(), "Report", ply, comment)
end

netstream.async.Hook("ClaimReport", function(res, ply, reporter)
	if sam.type(reporter) ~= "Player" or not IsValid(reporter) or not reporter.sam_has_report then
		return res(false)
	end

	local admin  = reporter.sam_report_admin
	if not IsValid(admin) then
		reporter.sam_report_admin, admin = nil, nil
	end

	if admin and admin.sam_claimed_report then
		return res(false)
	end

	res(true)

	reporter.sam_report_admin = ply
	ply.sam_claimed_report = true

	local admins = get_admins(ply)
	netstream.Start(admins, "ReportClaimed", reporter)
	table.insert(admins, ply)
	sam.player.send_message(admins, "report_claimed", {
		A = ply, T = {reporter, admin = ply}
	})
	reporter:sam_send_message("Your report has been {S Green} by {S_2 Blue}.", {
		S = "claimed", S_2 = ply:SteamName()
	})

	ix.log.Add(ply, "samReportClaimed", reporter)

	--[[
	timer.Create("SAM.Reports." .. reporter:EntIndex(), auto_close, 1, function()
		remove_report_info(reporter)

		if IsValid(reporter) then
			sam.player.send_message(reporter, "report_aclosed")
		end
	end)
	--]]
end, function(ply)
	return ply:HasPermission("see_admin_chat")
end)

netstream.Hook("DismissReport", function(ply, reporter)
	if sam.type(reporter) ~= "Player" or not IsValid(reporter) then return end

	remove_report_info(reporter)

	if IsValid(reporter) then
		sam.player.send_message(get_admins(), "report_dismissed", {
			A = ply, T = {reporter, admin = ply}
		})

		reporter:sam_send_message("Your report has been {S Red} by {S_2 Blue}. This may be because it was considered out of staff hands, nonsensical, self-explanatory, not an actual question/issue, or the issue was already dealt with.", {
			S = "dismissed", S_2 = ply:SteamName()
		})
	end
end, function(ply)
	return ply:HasPermission("see_admin_chat")
end)

netstream.Hook("CloseReport", function(ply, reporter)
	if sam.type(reporter) ~= "Player" or not IsValid(reporter) then return end

	if ply == reporter.sam_report_admin then
		remove_report_info(reporter)

		if IsValid(reporter) then
			sam.player.send_message(get_admins(), "report_closed", {
				A = ply, T = {reporter, admin = ply}
			})

			reporter:sam_send_message("Your report has been {S Red} by {S_2 Blue}.", {
				S = "closed", S_2 = ply:SteamName()
			})
		end
	end
end, function(ply)
	return ply:HasPermission("see_admin_chat")
end)

hook.Add("PlayerDisconnected", "SAM.Reports", function(ply)
	if ply.sam_has_report then
		remove_report_info(ply)
	end
end)

local msgs = {
	"Hey there I need some help",
	"TP TO ME NOW",
	"I JUST GOT RDM'D"
}
concommand.Add("sam_test_reports", function(ply)
	if IsValid(ply) and not ply:IsSuperAdmin() then return end

	local bots = player.GetBots()
	if #bots < 2 then
		for i = 1, 2 - #bots do
			RunConsoleCommand("bot")
		end
	end

	timer.Simple(1, function()
		for k, v in ipairs(player.GetBots()) do
			timer.Create("SAM.TestReports" .. k, k, 3, function()
				if not IsValid(v) then return end
				v:sam_set_rank("user")
				v:Say("!asay srlion " .. table.Random(msgs))
			end)
		end
	end)
end)