equal
deleted
inserted
replaced
116 [] |
116 [] |
117 else |
117 else |
118 AnswerClients [sendChan cl] ["RUN_GAME"] |
118 AnswerClients [sendChan cl] ["RUN_GAME"] |
119 : AnswerClients chans ["CLIENT_FLAGS", "+g", nick cl] |
119 : AnswerClients chans ["CLIENT_FLAGS", "+g", nick cl] |
120 : ModifyClient (\c -> c{isInGame = True}) |
120 : ModifyClient (\c -> c{isInGame = True}) |
121 : (AnswerClients [sendChan cl] $ "EM" : toEngineMsg "e$spectate 1" : (reverse . roundMsgs . fromJust . gameInfo $ jRoom)) |
121 : [AnswerClients [sendChan cl] $ "EM" : toEngineMsg "e$spectate 1" : (reverse . roundMsgs . fromJust . gameInfo $ jRoom)] |
122 : [AnswerClients [sendChan cl] $ "EM" : [fromJust msg] | isJust msg] |
|
123 where |
|
124 msg = lastFilteredTimedMsg . fromJust . gameInfo $ jRoom |
|
125 |
122 |
126 |
123 |
127 handleCmd_lobby ["JOIN_ROOM", roomName] = |
124 handleCmd_lobby ["JOIN_ROOM", roomName] = |
128 handleCmd_lobby ["JOIN_ROOM", roomName, ""] |
125 handleCmd_lobby ["JOIN_ROOM", roomName, ""] |
129 |
126 |