equal
deleted
inserted
replaced
338 clRoom = roomByName (room client) rooms |
338 clRoom = roomByName (room client) rooms |
339 newStatus = not $ isRestrictedTeams clRoom |
339 newStatus = not $ isRestrictedTeams clRoom |
340 |
340 |
341 handleCmd_inRoom client clients rooms ["ROUNDFINISHED"] = |
341 handleCmd_inRoom client clients rooms ["ROUNDFINISHED"] = |
342 if isMaster client then |
342 if isMaster client then |
343 (modifyRoomClients clRoom (\cl -> cl{isReady = False}), modifyRoom clRoom{gameinprogress = False, readyPlayers = 0}, answerAllNotReady) |
343 (modifyRoomClients clRoom (\cl -> cl{isReady = False}), modifyRoom clRoom{gameinprogress = False, readyPlayers = 0, roundMsgs =[]}, answerAllNotReady) |
344 else |
344 else |
345 (noChangeClients, noChangeRooms, []) |
345 (noChangeClients, noChangeRooms, []) |
346 where |
346 where |
347 clRoom = roomByName (room client) rooms |
347 clRoom = roomByName (room client) rooms |
348 sameRoomClients = filter (\ci -> room ci == name clRoom) clients |
348 sameRoomClients = filter (\ci -> room ci == name clRoom) clients |