equal
deleted
inserted
replaced
1 {-# LANGUAGE OverloadedStrings #-} |
1 {-# LANGUAGE OverloadedStrings #-} |
2 module HWProtoLobbyState where |
2 module HWProtoLobbyState where |
3 |
3 |
4 import qualified Data.Map as Map |
4 import qualified Data.Map as Map |
5 import qualified Data.Foldable as Foldable |
|
6 import Data.Maybe |
5 import Data.Maybe |
7 import Data.List |
6 import Data.List |
8 import Control.Monad.Reader |
7 import Control.Monad.Reader |
9 import qualified Data.ByteString.Char8 as B |
|
10 -------------------------------------- |
8 -------------------------------------- |
11 import CoreTypes |
9 import CoreTypes |
12 import Actions |
10 import Actions |
13 import Utils |
11 import Utils |
14 import HandlerUtils |
12 import HandlerUtils |
126 [] |
124 [] |
127 else |
125 else |
128 [AnswerClients [sendChan cl] ["RUN_GAME"] |
126 [AnswerClients [sendChan cl] ["RUN_GAME"] |
129 , AnswerClients chans ["CLIENT_FLAGS", "+g", nick cl] |
127 , AnswerClients chans ["CLIENT_FLAGS", "+g", nick cl] |
130 , ModifyClient (\c -> c{isInGame = True}) |
128 , ModifyClient (\c -> c{isInGame = True}) |
131 , AnswerClients [sendChan cl] $ "EM" : toEngineMsg "e$spectate 1" : Foldable.toList (roundMsgs . fromJust . gameInfo $ jRoom)] |
129 , AnswerClients [sendChan cl] $ "EM" : toEngineMsg "e$spectate 1" : (reverse . roundMsgs . fromJust . gameInfo $ jRoom)] |
132 |
130 |
133 |
131 |
134 handleCmd_lobby ["JOIN_ROOM", roomName] = |
132 handleCmd_lobby ["JOIN_ROOM", roomName] = |
135 handleCmd_lobby ["JOIN_ROOM", roomName, ""] |
133 handleCmd_lobby ["JOIN_ROOM", roomName, ""] |
136 |
134 |