gameServer/Actions.hs
changeset 13703 2df519242d41
parent 13696 d732ca5dcab9
child 13728 3106d630d6b5
--- a/gameServer/Actions.hs	Sat Aug 25 22:02:21 2018 +0200
+++ b/gameServer/Actions.hs	Sun Aug 26 14:37:02 2018 +0200
@@ -266,6 +266,8 @@
           ModifyClient2 (fromJust newMasterId) (\c -> c{isMaster = True})
         , AnswerClients [sendChan $ fromJust newMaster] ["ROOM_CONTROL_ACCESS", "1"]
         , AnswerClients thisRoomChans ["CLIENT_FLAGS", "+h", nick $ fromJust newMaster]
+        -- TODO: Send message to other clients, too (requires proper localization, however)
+        , AnswerClients [sendChan $ fromJust newMaster] ["CHAT", nickServer, loc "You're the new room master!"]
         ]
 
     processAction $
@@ -823,7 +825,7 @@
 processAction CheckRecord = return ()
 processAction (CheckFailed _) = return ()
 processAction (CheckSuccess _) = return ()
-processAction (QueryReplay _) = return ()
+processAction (QueryReplay _) = processAction $ Warning $ loc "This server does not support replays!"
 #endif
 
 processAction (ShowReplay rname) = do