equal
deleted
inserted
replaced
199 sameRoomClients = filter (\ci -> room ci == roomName) clients |
199 sameRoomClients = filter (\ci -> room ci == roomName) clients |
200 clRoom = roomByName roomName rooms |
200 clRoom = roomByName roomName rooms |
201 watchRound = if (roomProto clRoom < 20) || (not $ gameinprogress clRoom) then |
201 watchRound = if (roomProto clRoom < 20) || (not $ gameinprogress clRoom) then |
202 [] |
202 [] |
203 else |
203 else |
204 answerRunGame ++ answerClientOnly ("GAMEMSG" : roundMsgs clRoom) |
204 (answerClientOnly ["RUN_GAME"]) ++ answerClientOnly ("GAMEMSG" : roundMsgs clRoom) |
205 |
205 |
206 handleCmd_noRoom client clients rooms ["JOIN", roomName] = |
206 handleCmd_noRoom client clients rooms ["JOIN", roomName] = |
207 handleCmd_noRoom client clients rooms ["JOIN", roomName, ""] |
207 handleCmd_noRoom client clients rooms ["JOIN", roomName, ""] |
208 |
208 |
209 handleCmd_noRoom _ _ _ _ = (noChangeClients, noChangeRooms, answerBadCmd) |
209 handleCmd_noRoom _ _ _ _ = (noChangeClients, noChangeRooms, answerBadCmd) |