equal
deleted
inserted
replaced
118 roomInfo room = [ |
118 roomInfo room = [ |
119 name room, |
119 name room, |
120 (show $ playersIn room) ++ "(" ++ (show $ length $ teams room) ++ ")", |
120 (show $ playersIn room) ++ "(" ++ (show $ length $ teams room) ++ ")", |
121 show $ gameinprogress room |
121 show $ gameinprogress room |
122 ] |
122 ] |
123 sameProtoRooms = filter (\r -> roomProto r == protocol client) rooms |
123 sameProtoRooms = filter (\r -> (roomProto r == protocol client) && (not $ isRestrictedJoins r)) rooms |
124 |
124 |
125 handleCmd_noRoom client _ rooms ["CREATE", newRoom, roomPassword] = |
125 handleCmd_noRoom client _ rooms ["CREATE", newRoom, roomPassword] = |
126 if (not $ isDedicated globalOptions) && (not $ null rooms) then |
126 if (not $ isDedicated globalOptions) && (not $ null rooms) then |
127 (noChangeClients, noChangeRooms, answerCannotCreateRoom) |
127 (noChangeClients, noChangeRooms, answerCannotCreateRoom) |
128 else |
128 else |