Upload

lua/pac3/core/server/util.lua

@@ -0,0 +1,109 @@
+--[[
+| 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/
+--]]
+
+local CurTime = CurTime
+local math_Clamp = math.Clamp
+
+function pac.dprint(fmt, ...)
+	if pac.debug then
+		MsgN("\n")
+		MsgN(">>>PAC3>>>")
+		MsgN(fmt:format(...))
+		if pac.debug_trace then
+			MsgN("==TRACE==")
+			debug.Trace()
+			MsgN("==TRACE==")
+		end
+		MsgN("<<<PAC3<<<")
+		MsgN("\n")
+	end
+end
+
+
+function pac.CallHook(str, ...)
+	return hook.Call("pac_" .. str, GAMEMODE, ...)
+end
+
+function pac.AddHook(str, id, func, priority)
+	id = "pac_" .. id
+
+	if not DLib and not ULib then
+		priority = nil
+	end
+
+	hook.Add(str, id, function(...)
+		local status, a, b, c, d, e, f, g = pcall(func, ...)
+
+		if not status then
+			pac.Message('Error on hook ' .. str .. ' (' .. id .. ')! ', a)
+			return
+		end
+
+		return a, b, c, d, e, f, g
+	end, priority)
+end
+
+function pac.RemoveHook(str, id)
+	id = "pac_" .. id
+
+	hook.Remove(str, id)
+end
+
+function pac.RatelimitAlert( ply, id, message )
+	if not ply.pac_ratelimit_alerts then
+		ply.pac_ratelimit_alerts = {}
+	end
+
+	if CurTime() >= ( ply.pac_ratelimit_alerts[id] or 0 ) then
+		ply.pac_ratelimit_alerts[id] = CurTime() + 3
+		if isstring(message) then
+			pac.Message(message)
+		end
+		if istable(message) then
+			pac.Message(unpack(message))
+		end
+	end
+end
+
+local RatelimitAlert = pac.RatelimitAlert
+
+function pac.RatelimitPlayer( ply, name, buffer, refill, message )
+	local ratelimitName = "pac_ratelimit_" .. name
+	local checkName = "pac_ratelimit_check_" .. name
+
+	if not ply[ratelimitName] then ply[ratelimitName] = buffer end
+
+	local curTime = CurTime()
+	if not ply[checkName] then ply[checkName] = curTime end
+
+	local dripSize = curTime - ply[checkName]
+	ply[checkName] = curTime
+
+	local drip = dripSize / refill
+	local newVal = ply[ratelimitName] + drip
+
+	ply[ratelimitName] = math_Clamp(newVal, 0, buffer)
+
+	if ply[ratelimitName] >= 1 then
+		ply[ratelimitName] = ply[ratelimitName] - 1
+		return true
+	else
+		if message then
+			RatelimitAlert(ply, name, message)
+		end
+		return false
+	end
+end
+
+function pac.GetRateLimitPlayerBuffer( ply, name )
+	local ratelimitName = "pac_ratelimit_" .. name
+	return ply[ratelimitName] or 0
+end
+