equal
deleted
inserted
replaced
150 client = clients IntMap.! clID |
150 client = clients IntMap.! clID |
151 room = rooms IntMap.! (roomID client) |
151 room = rooms IntMap.! (roomID client) |
152 enoughClans = not $ null $ drop 1 $ group $ map teamcolor $ teams room |
152 enoughClans = not $ null $ drop 1 $ group $ map teamcolor $ teams room |
153 |
153 |
154 |
154 |
155 handleCmd_inRoom _ _ rooms ["GAMEMSG", msg] = |
155 handleCmd_inRoom _ _ rooms ["EM", msg] = |
156 [ModifyRoom (\r -> r{roundMsgs = roundMsgs r |> msg}), |
156 [ModifyRoom (\r -> r{roundMsgs = roundMsgs r |> msg}), |
157 AnswerOthersInRoom ["GAMEMSG", msg]] |
157 AnswerOthersInRoom ["EM", msg]] |
158 |
158 |
159 |
159 |
160 handleCmd_inRoom clID clients rooms ["ROUNDFINISHED"] = |
160 handleCmd_inRoom clID clients rooms ["ROUNDFINISHED"] = |
161 if isMaster client then |
161 if isMaster client then |
162 [ModifyRoom |
162 [ModifyRoom |