equal
deleted
inserted
replaced
218 processAction (MoveToRoom ri) = do |
218 processAction (MoveToRoom ri) = do |
219 (Just ci) <- gets clientIndex |
219 (Just ci) <- gets clientIndex |
220 rnc <- gets roomsClients |
220 rnc <- gets roomsClients |
221 |
221 |
222 io $ do |
222 io $ do |
223 modifyClient rnc (\cl -> cl{teamsInGame = 0, isReady = False, isMaster = False, isInGame = False}) ci |
223 modifyClient rnc (\cl -> cl{teamsInGame = 0, isReady = False, isMaster = False, isInGame = False, clientClan = Nothing}) ci |
224 modifyRoom rnc (\r -> r{playersIn = playersIn r + 1}) ri |
224 modifyRoom rnc (\r -> r{playersIn = playersIn r + 1}) ri |
225 moveClientToRoom rnc ri ci |
225 moveClientToRoom rnc ri ci |
226 |
226 |
227 chans <- liftM (map sendChan) $ roomClientsS ri |
227 chans <- liftM (map sendChan) $ roomClientsS ri |
228 clNick <- client's nick |
228 clNick <- client's nick |