//Original author: ZeikJT
//Modified by Gwahir and TomyLobo

local validEntity = validEntity

local TextList = {
	last = { "", 0, nil }
}
local ChatAlert = {}
local runByChat = 0
local chipHideChat = false

--[[************************************************************************]]--

registerCallback("destruct",function(self)
	ChatAlert[self.entity] = nil
end)

hook.Add("PlayerSay","Exp2TextReceiving", function(ply, text, toall)
	local entry = { text, CurTime(), ply, toall }
	TextList[ply:EntIndex()] = entry
	TextList.last = entry
	
	runByChat = 1
	chipHideChat = false
	local hideCurrent = false
	for e,_ in pairs(ChatAlert) do
		if validEntity(e) then
			chipHideChat = nil
			e:Execute()
			--if chipHideChat ~= nil and ply == e.player then
			if chipHideChat and ply == e.player then
				hideCurrent = chipHideChat
			end
		else
			ChatAlert[e] = nil
		end
	end
	runByChat = 0
	
	if hideCurrent then return "" end
end)

hook.Add("EntityRemoved","Exp2ChatPlayerDisconnect", function(ply)
	TextList[ply:EntIndex()] = nil
end)

--[[************************************************************************]]--

--- If <activate> == 0, the chip will no longer run on chat events, otherwise it makes this chip execute when someone chats. Only needs to be called once, not in every execution.
e2function void runOnChat(activate)
	if activate ~= 0 then
		ChatAlert[self.entity] = true
	else
		ChatAlert[self.entity] = nil
	end
end

--- Returns 1 if the chip is being executed because of a chat event. Returns 0 otherwise.
e2function number chatClk()
	return runByChat
end

--- Returns 1 if the chip is being executed because of a chat event by player <ply>. Returns 0 otherwise.
e2function number chatClk(entity ply)
	if not validEntity(ply) then return 0 end
	if ply ~= TextList.last[3] then return 0 end
	return runByChat
end

--- If <hide> != 0, hide the chat message that is currently being processed.
e2function void hideChat(hide)
	chipHideChat = hide ~= 0
end

--[[************************************************************************]]--

--- Returns the last player to speak.
e2function entity lastSpoke()
	local entry = TextList.last
	if not entry then return nil end
	
	local ply = entry[3]
	if not validEntity(ply) then return nil end
	if not ply:IsPlayer() then return nil end
	
	return ply
end

--- Returns the last message in the chat log.
e2function string lastSaid()
	local entry = TextList.last
	if not entry then return "" end
	
	return entry[1]
end

--- Returns the time the last message was sent.
e2function number lastSaidWhen()
	local entry = TextList.last
	if not entry then return 0 end
	
	return entry[2]
end

--- Returns 1 if the last message was sent in the team chat, 0 otherwise.
e2function number lastSaidTeam()
	local entry = TextList.last
	if not entry then return 0 end
	
	return entry[4] and 0 or 1
end

--- Returns what the player <this> last said.
e2function string entity:lastSaid()
	if not validEntity(this) then return "" end
	if not this:IsPlayer() then return "" end
	
	local entry = TextList[this:EntIndex()]
	if not entry then return "" end
	
	return entry[1]
end

--- Returns when the given player last said something.
e2function number entity:lastSaidWhen()
	if not validEntity(this) then return 0 end
	if not this:IsPlayer() then return 0 end
	
	local entry = TextList[this:EntIndex()]
	if not entry then return 0 end
	
	return entry[2]
end

--- Returns 1 if the last message was sent in the team chat, 0 otherwise.
e2function number entity:lastSaidTeam()
	if not validEntity(this) then return 0 end
	if not this:IsPlayer() then return 0 end
	
	local entry = TextList[this:EntIndex()]
	if not entry then return 0 end
	
	return entry[4] and 0 or 1
end