gameServer/HandlerUtils.hs
changeset 4986 33fe91b2bcbf
parent 4975 31da8979e5b1
child 4989 4771fed9272e
--- a/gameServer/HandlerUtils.hs	Sat Mar 05 13:07:02 2011 +0100
+++ b/gameServer/HandlerUtils.hs	Sat Mar 05 22:16:29 2011 +0300
@@ -34,11 +34,8 @@
     let ri = clientRoom rnc ci
     let otherRoomClients = map (client rnc) . filter (/= ci) $ roomClients rnc ri
     let cl = rnc `client` ci
-    let thisClan = clientClan cl
-    let sameClanClients = Prelude.filter (\c -> teamsInGame cl > 0 && clientClan c == thisClan) otherRoomClients
-    let spectators = Prelude.filter (\c -> teamsInGame c == 0) otherRoomClients
-    let sameClanOrSpec = if teamsInGame cl > 0 then sameClanClients else spectators
-    return $ map sendChan sameClanOrSpec
+    let sameClanClients = Prelude.filter (\c -> clientClan c == clientClan cl) otherRoomClients
+    return $ map sendChan sameClanClients
 
 roomClientsChans :: Reader (ClientIndex, IRnC) [ClientChan]
 roomClientsChans = do