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] |