216 if not $ isMaster client then |
216 if not $ isMaster client then |
217 (noChangeClients, noChangeRooms, answerNotMaster) |
217 (noChangeClients, noChangeRooms, answerNotMaster) |
218 else |
218 else |
219 (noChangeClients, noChangeRooms, answerRunGame) |
219 (noChangeClients, noChangeRooms, answerRunGame) |
220 |
220 |
221 handleCmd_inRoom client _ _ ["ROUNDFINISHED"] = |
221 handleCmd_inRoom client _ rooms ["ROUNDFINISHED"] = |
|
222 if isMaster client then |
|
223 (noChangeClients, modifyRoom clRoom{teams = []}, []) |
|
224 else |
222 (noChangeClients, noChangeRooms, []) |
225 (noChangeClients, noChangeRooms, []) |
|
226 where |
|
227 clRoom = roomByName (room client) rooms |
223 |
228 |
224 handleCmd_inRoom client _ _ ["GAMEMSG", msg] = |
229 handleCmd_inRoom client _ _ ["GAMEMSG", msg] = |
225 (noChangeClients, noChangeRooms, [(othersInRoom, ["GAMEMSG", msg])]) |
230 (noChangeClients, noChangeRooms, [(othersInRoom, ["GAMEMSG", msg])]) |
226 |
231 |
227 handleCmd_inRoom _ _ _ _ = (noChangeClients, noChangeRooms, answerBadCmd) |
232 handleCmd_inRoom _ _ _ _ = (noChangeClients, noChangeRooms, answerBadCmd) |