--- a/gameServer/CoreTypes.hs	Thu Sep 29 16:30:02 2022 +0200
+++ b/gameServer/CoreTypes.hs	Wed Oct 05 22:39:07 2022 +0300
@@ -127,6 +127,8 @@
         details :: Maybe GameDetails
     }
 
+data AllowMsgState = AllowAll | AllowRegistered | AllowNone
+
 data ClientInfo =
     ClientInfo
     {
@@ -152,6 +154,7 @@
         isKickedFromServer :: !Bool,
         isJoinedMidGame :: !Bool,
         hasAskedList :: !Bool,
+        allowMsgState :: !AllowMsgState,
         clientClan :: !(Maybe B.ByteString),
         checkInfo :: !(Maybe CheckInfo),
         eiLobbyChat,