--- a/netserver/Miscutils.hs	Tue Jan 06 17:37:18 2009 +0000
+++ b/netserver/Miscutils.hs	Tue Jan 06 17:51:39 2009 +0000
@@ -126,6 +126,9 @@
 sameRoom :: HandlesSelector
 sameRoom client clients rooms = filter (\ci -> room ci == room client) clients
 
+sameProtoLobbyClients :: HandlesSelector
+sameProtoLobbyClients client clients rooms = filter (\ci -> room ci == [] && protocol ci == protocol client) clients
+
 noRoomSameProto :: HandlesSelector
 noRoomSameProto client clients _ = filter (null . room) $ filter (\ci -> protocol client == protocol ci) clients