equal
deleted
inserted
replaced
24 import Control.Monad.Reader |
24 import Control.Monad.Reader |
25 import qualified Data.ByteString.Char8 as B |
25 import qualified Data.ByteString.Char8 as B |
26 -------------------------------------- |
26 -------------------------------------- |
27 import CoreTypes |
27 import CoreTypes |
28 import Utils |
28 import Utils |
|
29 import Consts |
29 import HandlerUtils |
30 import HandlerUtils |
30 import RoomsAndClients |
31 import RoomsAndClients |
31 import EngineInteraction |
32 import EngineInteraction |
32 import CommandHelp |
33 import CommandHelp |
33 |
34 |
115 ++ [AnswerClients [sendChan cl] ["CLIENT_FLAGS", "+h", nick $ fromJust owner] | isJust owner] |
116 ++ [AnswerClients [sendChan cl] ["CLIENT_FLAGS", "+h", nick $ fromJust owner] | isJust owner] |
116 ++ [sendStateFlags cl jRoomClients | not $ null jRoomClients] |
117 ++ [sendStateFlags cl jRoomClients | not $ null jRoomClients] |
117 ++ answerFullConfig cl jRoom |
118 ++ answerFullConfig cl jRoom |
118 ++ answerTeams cl jRoom |
119 ++ answerTeams cl jRoom |
119 ++ watchRound cl jRoom chans |
120 ++ watchRound cl jRoom chans |
120 ++ [AnswerClients [sendChan cl] ["CHAT", "[greeting]", greeting jRoom] | greeting jRoom /= ""] |
121 ++ [AnswerClients [sendChan cl] ["CHAT", nickGreeting, greeting jRoom] | greeting jRoom /= ""] |
121 ++ map (\t -> AnswerClients chans ["EM", toEngineMsg $ 'G' `B.cons` t]) clTeamsNames |
122 ++ map (\t -> AnswerClients chans ["EM", toEngineMsg $ 'G' `B.cons` t]) clTeamsNames |
122 ++ [AnswerClients [sendChan cl] ["EM", toEngineMsg "I"] | isPaused `fmap` gameInfo jRoom == Just True] |
123 ++ [AnswerClients [sendChan cl] ["EM", toEngineMsg "I"] | isPaused `fmap` gameInfo jRoom == Just True] |
123 |
124 |
124 where |
125 where |
125 moveTeams :: [B.ByteString] -> GameInfo -> ([TeamInfo], GameInfo) |
126 moveTeams :: [B.ByteString] -> GameInfo -> ([TeamInfo], GameInfo) |