Miscellany

IRC = {}
IRC.Channel = {}
IRC.Channels = {}

function DefaultChannel(Player)
	local Steam = _PlayerInfo(Player, "networkid")
	local SteamString = tostring(Steam)
	IRC.Channel[SteamString] = "None"
end

function ShowChannel(Player)
	local Steam = _PlayerInfo(Player, "networkid")
	local SteamString = tostring(Steam)
	_GModRect_Start("gmod/white")
	_GModRect_SetPos(0.4, 0, 1, 0.4)
	_GModRect_SetColor(0, 0, 0, 150)
	_GModRect_SetTime(99999, 0, 0)
	_GModRect_Send(Player, 9890)
	
	_GModText_Start("ChatFont")
	_GModText_SetPos(0.41, 0.01)
	_GModText_SetTime(99999, 0, 0)
	_GModText_SetText("Channel: "..IRC.Channel[SteamString]..".")
	_GModText_SetColor(255, 255, 255, 255)
	_GModText_Send(Player, 9891)
end

function eventPlayerSay(Player, Text, Team)
	local Steam = _PlayerInfo(Player, "networkid")
	local SteamString = tostring(Steam)
	
	if IRC.Channel[SteamString] ~= "None" then
		local iSteam = _PlayerInfo(I, "networkid")
		local iSteamString = tostring(iSteam)
		for I = 1, _MaxPlayers() do
			if IRC.Channel[iSteamString] == IRC.Channel[SteamString] then
				IRC.Channels[IRC.Channel[SteamString]].Text = IRC.Channels[IRC.Channel[SteamString]].Text + 1
				if IRC.Channels[IRC.Channel[SteamString]].Text == 10 then
					for B = 9892, 9902 do
						_GModText_Hide(I, B)
					end
				end
				_GModText_Start("ChatFont")
				_GModText_SetPos(0.41, 0.03 * IRC.Channels[IRC.Channel[SteamString]].Text)
				_GModText_SetTime(99999, 0, 0)
				_GModText_SetText(Text)
				_GModText_SetColor(255, 255, 255, 255)
				_GModText_Send(Player, 9892 + IRC.Channels[IRC.Channel[SteamString]].Text)
				return ""
			end
		end
	end
end