--- a/gameServer/Consts.hs	Sat Aug 25 19:07:17 2018 +0200
+++ b/gameServer/Consts.hs	Sat Aug 25 19:23:19 2018 +0200
@@ -24,11 +24,32 @@
 serverVersion :: B.ByteString
 serverVersion = "3"
 
+-- Maximum hedgehogs per team
 cHogsPerTeam :: Int
 cHogsPerTeam = 8
 
+-- Maximum teams count
 cMaxTeams :: Int
 cMaxTeams = 8
 
+-- Maximum total number of hedgehogs
 cMaxHHs :: Int
 cMaxHHs = cHogsPerTeam * cMaxTeams
+
+{- "Fake" nick names used for special server messages in chat.
+They are enclosed in brackets; these characters not allowed in real nick names.
+The brackets are required as they are parsed by the frontend.
+Names enclosed in square brackets send messages that are supposed to be translated by the frontend.
+Names enclosed in parenthesis send messages that are not supposed to be translated. -}
+
+-- For most server messages, usually response to a command
+nickServer :: B.ByteString
+nickServer = "[server]"
+
+-- For /rnd command
+nickRandom :: B.ByteString
+nickRandom = "[random]"
+
+-- For /global command
+nickGlobal :: B.ByteString
+nickGlobal = "(global notice)"