--- a/gameServer/Actions.hs	Fri Jan 28 22:34:07 2011 +0300
+++ b/gameServer/Actions.hs	Sat Jan 29 13:43:07 2011 +0300
@@ -32,6 +32,7 @@
     | JoinLobby
     | ProtocolError B.ByteString
     | Warning B.ByteString
+    | NoticeMessage Notice
     | ByeClient B.ByteString
     | KickClient ClientIndex
     | KickRoomClient ClientIndex
@@ -103,6 +104,10 @@
     chan <- client's sendChan
     processAction $ AnswerClients [chan] ["WARNING", msg]
 
+processAction (NoticeMessage n) = do
+    chan <- client's sendChan
+    processAction $ AnswerClients [chan] ["NOTICE", B.pack . show . fromEnum $ n]
+
 processAction (ByeClient msg) = do
     (Just ci) <- gets clientIndex
     rnc <- gets roomsClients