equal
deleted
inserted
replaced
731 |
731 |
732 |
732 |
733 processAction (Random chans items) = do |
733 processAction (Random chans items) = do |
734 let i = if null items then ["heads", "tails"] else items |
734 let i = if null items then ["heads", "tails"] else items |
735 n <- io $ randomRIO (0, length i - 1) |
735 n <- io $ randomRIO (0, length i - 1) |
736 processAction $ AnswerClients chans ["CHAT", "[random]", i !! n] |
736 processAction $ AnswerClients chans ["CHAT", nickRandom, i !! n] |
737 |
737 |
738 |
738 |
739 processAction (LoadGhost location) = do |
739 processAction (LoadGhost location) = do |
740 ri <- clientRoomA |
740 ri <- clientRoomA |
741 rnc <- gets roomsClients |
741 rnc <- gets roomsClients |