darkrp

local ChatCommands = {}
function AddChatCommand(cmd, callback, prefixconst)
for k,v in pairs(ChatCommands) do
if cmd == v.cmd then return end
end
table.insert(ChatCommands, { cmd = cmd, callback = callback, prefixconst = prefixconst })
end

local function PlayerChat(ply, text)
DB.Log(ply:SteamName().." ("..ply:SteamID().."): "..text )
local callback = ""
local DoSayFunc
for k, v in pairs(ChatCommands) do
if string.lower(v.cmd) == string.Explode(" ", string.lower(text))[1] then
callback, DoSayFunc = v.callback(ply, string.sub(text, string.len(v.cmd) + 2, string.len(text)))
if callback == "" then
return "", "" , DoSayFunc
end
text = string.sub(text, string.len(v.cmd) + 2, string.len(text)).. " "
end
end
if callback ~= "" then callback = (callback or "").." " end
return text, callback, DoSayFunc
end

local function ActualDoSay(ply, text, callback)
callback = callback or ""
if text == "" then return "" end
local col = team.GetColor(ply:Team())
local col2 = Color(255,255,255,255)
if not ply:Alive() then
col2 = Color(255,200,200,255)
col = col2
end

if GetConVarNumber("alltalk") == 1 then
for k,v in pairs(player.GetAll()) do
TalkToPerson(v, col, callback..ply:Name(), col2, text, ply)
end
else
TalkToRange(ply, callback..ply:Name(), text, 250)
end
return ""
end

local otherhooks = {}
function GM:PlayerSay(ply, text, teamonly, dead)
local text2 = (teamonly and "" or "/g ") .. text
local callback

for k,v in SortedPairs(otherhooks, false) do
if type(v) == "function" then
text2 = v(ply, text, teamonly, dead) or text2
end
end

text2, callback, DoSayFunc = PlayerChat(ply, text2)
if tostring(text2) == " " then text2, callback = callback, text2 end

if isDedicatedServer() then
ServerLog("\""..ply:Nick().."<"..ply:UserID()..">" .."<"..ply:SteamID()..">".."<"..team.GetName( ply:Team() )..">\" say \""..text.. "\"\n")
end

if DoSayFunc then DoSayFunc(text2) return "" end
text2 = ActualDoSay(ply, text2, callback)
return ""
end

hook.Add("InitPostEntity", "hatCommands", function()
if not hook.GetTable().PlayerSay then return end
for k,v in pairs(hook.GetTable().PlayerSay) do
otherhooks[k] = v
hook.Remove("PlayerSay", k)
end
for a,b in pairs(otherhooks) do
if type(b) ~= "function" then
otherhooks[a] = nil
end
end
end)