equal
deleted
inserted
replaced
157 room = rooms IntMap.! (roomID client) |
157 room = rooms IntMap.! (roomID client) |
158 enoughClans = not $ null $ drop 1 $ group $ map teamcolor $ teams room |
158 enoughClans = not $ null $ drop 1 $ group $ map teamcolor $ teams room |
159 |
159 |
160 |
160 |
161 handleCmd_inRoom clID clients rooms ["EM", msg] = |
161 handleCmd_inRoom clID clients rooms ["EM", msg] = |
162 if teamsInGame client > 0 then |
162 if (teamsInGame client > 0) && (isLegalNetCommand msg) then |
163 [ModifyRoom (\r -> r{roundMsgs = roundMsgs r |> msg}), |
163 [ModifyRoom (\r -> r{roundMsgs = roundMsgs r |> msg}), |
164 AnswerOthersInRoom ["EM", msg]] |
164 AnswerOthersInRoom ["EM", msg]] |
165 else |
165 else |
166 [] |
166 [] |
167 where |
167 where |