equal
deleted
inserted
replaced
260 processAction (UnreadyRoomClients) = do |
260 processAction (UnreadyRoomClients) = do |
261 rnc <- gets roomsClients |
261 rnc <- gets roomsClients |
262 ri <- clientRoomA |
262 ri <- clientRoomA |
263 roomPlayers <- roomClientsS ri |
263 roomPlayers <- roomClientsS ri |
264 roomClIDs <- io $ roomClientsIndicesM rnc ri |
264 roomClIDs <- io $ roomClientsIndicesM rnc ri |
265 processAction $ AnswerClients (map sendChan roomPlayers) ("NOT_READY" : map nick roomPlayers) |
265 processAction $ AnswerClients (map sendChan roomPlayers) ("CLIENT_FLAGS" : "-r" : map nick roomPlayers) |
266 io $ mapM_ (modifyClient rnc (\cl -> cl{isReady = False})) roomClIDs |
266 io $ mapM_ (modifyClient rnc (\cl -> cl{isReady = False})) roomClIDs |
267 processAction $ ModifyRoom (\r -> r{readyPlayers = 0}) |
267 processAction $ ModifyRoom (\r -> r{readyPlayers = 0}) |
268 |
268 |
269 |
269 |
270 processAction (RemoveTeam teamName) = do |
270 processAction (RemoveTeam teamName) = do |