Upload

lua/sam/reports/sv_reports.lua

@@ -0,0 +1,202 @@
+--[[
+| 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)