--- a/netserver/Miscutils.hs	Fri Nov 07 22:03:43 2008 +0000
+++ b/netserver/Miscutils.hs	Sat Nov 08 11:54:46 2008 +0000
@@ -90,6 +90,9 @@
 sameRoom :: HandlesSelector
 sameRoom client clients rooms = map handle $ filter (\ci -> room ci == room client) clients
 
+noRoomSameProto :: HandlesSelector
+noRoomSameProto client clients _ = map handle $ filter (null . room) $ filter (\ci -> protocol client == protocol ci) clients
+
 othersInRoom :: HandlesSelector
 othersInRoom client clients rooms = map handle $ filter (client /=) $ filter (\ci -> room ci == room client) clients