diff -r 8f8fe856ce9d -r ec923e56c444 gameServer/HWProtoLobbyState.hs --- a/gameServer/HWProtoLobbyState.hs Fri Mar 27 14:02:27 2009 +0000 +++ b/gameServer/HWProtoLobbyState.hs Fri Mar 27 15:58:54 2009 +0000 @@ -137,4 +137,13 @@ client = clients IntMap.! clID +handleCmd_lobby clID clients rooms ["SET_SERVER_MESSAGE", newMessage] = + if not $ isAdministrator client then + [] + else + [ModifyServerInfo (\si -> si{serverMessage = newMessage})] + where + client = clients IntMap.! clID + + handleCmd_lobby clID _ _ _ = [ProtocolError "Incorrect command (state: in lobby)"]