gameServer/Actions.hs
branchflibqtfrontend
changeset 8227 3a2ce574aa3b
parent 8189 328f429c3ecc
child 8236 6984e15bb8f6
equal deleted inserted replaced
8224:48bb7adc42fe 8227:3a2ce574aa3b
   265     mapM_ processAction [
   265     mapM_ processAction [
   266         ModifyRoom (\r -> r{masterID = newMasterId
   266         ModifyRoom (\r -> r{masterID = newMasterId
   267                 , name = newRoomName
   267                 , name = newRoomName
   268                 , isRestrictedJoins = False
   268                 , isRestrictedJoins = False
   269                 , isRestrictedTeams = False
   269                 , isRestrictedTeams = False
       
   270                 , isRegisteredOnly = False
   270                 , readyPlayers = if isReady newMaster then readyPlayers r else readyPlayers r + 1})
   271                 , readyPlayers = if isReady newMaster then readyPlayers r else readyPlayers r + 1})
   271         , ModifyClient2 newMasterId (\c -> c{isMaster = True, isReady = True})
   272         , ModifyClient2 newMasterId (\c -> c{isMaster = True, isReady = True})
   272         , AnswerClients [sendChan newMaster] ["ROOM_CONTROL_ACCESS", "1"]
   273         , AnswerClients [sendChan newMaster] ["ROOM_CONTROL_ACCESS", "1"]
   273         , AnswerClients thisRoomChans ["WARNING", "New room admin is " `B.append` nick newMaster]
   274         , AnswerClients thisRoomChans ["WARNING", "New room admin is " `B.append` nick newMaster]
   274         , AnswerClients thisRoomChans ["CLIENT_FLAGS", "-h", oldMaster]
   275         , AnswerClients thisRoomChans ["CLIENT_FLAGS", "-h", oldMaster]