Array = function(m, v)
     local t = {}
     for i = 1, m do
          t[i] = v
     end
     return t
end

Color = Array(32, "")
ColorTable = {
     "\169000000255",
     "\169255000000",
     "\169000255000",
     "\169255000255",
     "\169255255000",     -- yellow is CS2D's default color of chat messages
     "\169000255255",
     "\169255255255",
     "",
     ""
}
ColorTableNames = {
     "Blue Color",
     "Red Color",
     "Green Color",
     "Pink Color",
     "Yellow Color",
     "Cyan Color",
     "White Color",
     "",
     "No Color"
}
TeamColors = {
     [0] = "\169255255000", -- spectators (default)
     [1] = "\169255000000",     -- terrorists
     [2] = "\169000000255",     -- counter-terrorists
     [3] = "\169000000255", -- vip
}
addhook("say", "HookSay", 999)
addhook("sayteam", "HookSayTeam", 998)
HookSayTeam = function(id, message)
     return HookSay(id, message, true)
end

HookSay = function(id, message, team)
     if message == "!color" then
          local S = "Change chat color,"
          for i = 1, #ColorTableNames do
               local t = (Color[id] == i) and "("..ColorTableNames[i].."[current])" or ColorTableNames[i]
               S = S..t..","
          end
          menu(id, S:sub(1, #S - 1))
          return 1
     else
          local m = message:gsub("@C", "") m = m:gsub("\\", "")
          local clr = Color[id]
          if clr == "" then clr = TeamColors[0] end
          
          local S = TeamColors[player(id, "team")]..player(id, "name")..(team and TeamColors[0].." (Team)" or "")..((player(id, "health") > 0) and "" or TeamColors[0].." *DEAD*"..clr)..TeamColors[0]..": "..clr..m
          if team then
               for i = 1, 32 do
                    if player(i, "exists") and player(id, "team") == player(i, "team") then
                         msg2(i, S)
                    end
               end
          else
               msg(S)
          end
          return 1
     end
end

addhook("menu", "HookMenu")
HookMenu = function(id, title, b)
     if title == "Change chat color" and b ~= "x" and b~= 0 then
          Color[id] = ColorTable[b]
     end
end