equal
deleted
inserted
replaced
395 clRoom = roomByName (room client) rooms |
395 clRoom = roomByName (room client) rooms |
396 newStatus = not $ isRestrictedTeams clRoom |
396 newStatus = not $ isRestrictedTeams clRoom |
397 |
397 |
398 handleCmd_inRoom client clients rooms ["ROUNDFINISHED"] = |
398 handleCmd_inRoom client clients rooms ["ROUNDFINISHED"] = |
399 if isMaster client then |
399 if isMaster client then |
400 (modifyRoomClients clRoom (\cl -> cl{isReady = False}), modifyRoom clRoom{gameinprogress = False, readyPlayers = 0, roundMsgs =[]}, answerAllNotReady) |
400 (modifyRoomClients clRoom (\cl -> cl{isReady = False}), modifyRoom clRoom{gameinprogress = False, readyPlayers = 0, roundMsgs = []}, answerAllNotReady) |
401 else |
401 else |
402 (noChangeClients, noChangeRooms, []) |
402 (noChangeClients, noChangeRooms, []) |
403 where |
403 where |
404 clRoom = roomByName (room client) rooms |
404 clRoom = roomByName (room client) rooms |
405 sameRoomClients = filter (\ci -> room ci == name clRoom) clients |
405 sameRoomClients = filter (\ci -> room ci == name clRoom) clients |