equal
deleted
inserted
replaced
239 (modifyClient client{isReady = True}, modifyRoom clRoom{gameinprogress = True, readyPlayers = newReadyPlayers}, (answerReady $ nick client) ++ answerRunGame) |
239 (modifyClient client{isReady = True}, modifyRoom clRoom{gameinprogress = True, readyPlayers = newReadyPlayers}, (answerReady $ nick client) ++ answerRunGame) |
240 else |
240 else |
241 (modifyClient client{isReady = True}, modifyRoom clRoom{readyPlayers = newReadyPlayers}, answerReady $ nick client) |
241 (modifyClient client{isReady = True}, modifyRoom clRoom{readyPlayers = newReadyPlayers}, answerReady $ nick client) |
242 where |
242 where |
243 clRoom = roomByName (room client) rooms |
243 clRoom = roomByName (room client) rooms |
244 newReadyPlayers = (readyPlayers clRoom) + if isReady client then 1 else -1 |
244 newReadyPlayers = (readyPlayers clRoom) + if isReady client then -1 else 1 |
245 |
245 |
246 handleCmd_inRoom client _ rooms ["ROUNDFINISHED"] = |
246 handleCmd_inRoom client _ rooms ["ROUNDFINISHED"] = |
247 if isMaster client then |
247 if isMaster client then |
248 (noChangeClients, modifyRoom clRoom{gameinprogress = False}, []) |
248 (noChangeClients, modifyRoom clRoom{gameinprogress = False}, []) |
249 else |
249 else |