equal
deleted
inserted
replaced
423 return . Prelude.map (RemoveTeam . teamname) . Prelude.filter (\t -> teamowner t == n) $ roomTeams |
423 return . Prelude.map (RemoveTeam . teamname) . Prelude.filter (\t -> teamowner t == n) $ roomTeams |
424 |
424 |
425 mapM_ processAction removeTeamActions |
425 mapM_ processAction removeTeamActions |
426 |
426 |
427 |
427 |
|
428 processAction SetRandomSeed = do |
|
429 ri <- clientRoomA |
|
430 thisRoomChans <- liftM (map sendChan) $ roomClientsS ri |
|
431 seed <- liftM showB $ io $ (randomRIO (0, 10^9) :: IO Int) |
|
432 mapM_ processAction [ |
|
433 ModifyRoom (\r -> r{mapParams = Map.insert "SEED" seed $ mapParams r}) |
|
434 , AnswerClients thisRoomChans ["CFG", "SEED", seed] |
|
435 ] |
|
436 |
428 |
437 |
429 processAction CheckRegistered = do |
438 processAction CheckRegistered = do |
430 (Just ci) <- gets clientIndex |
439 (Just ci) <- gets clientIndex |
431 n <- client's nick |
440 n <- client's nick |
432 h <- client's host |
441 h <- client's host |