equal
deleted
inserted
replaced
209 processAction (MoveToRoom ri) = do |
209 processAction (MoveToRoom ri) = do |
210 (Just ci) <- gets clientIndex |
210 (Just ci) <- gets clientIndex |
211 rnc <- gets roomsClients |
211 rnc <- gets roomsClients |
212 |
212 |
213 io $ do |
213 io $ do |
214 modifyClient rnc (\cl -> cl{teamsInGame = 0, isReady = False, isMaster = False}) ci |
214 modifyClient rnc (\cl -> cl{teamsInGame = 0, isReady = False, isMaster = False, isInGame = False}) ci |
215 modifyRoom rnc (\r -> r{playersIn = playersIn r + 1}) ri |
215 modifyRoom rnc (\r -> r{playersIn = playersIn r + 1}) ri |
216 moveClientToRoom rnc ri ci |
216 moveClientToRoom rnc ri ci |
217 |
217 |
218 chans <- liftM (map sendChan) $ roomClientsS ri |
218 chans <- liftM (map sendChan) $ roomClientsS ri |
219 clNick <- client's nick |
219 clNick <- client's nick |