# HG changeset patch
# User unc0rr
# Date 1235246343 0
# Node ID 1938ef37535014a9b186baf04ad63caaa0d08f50
# Parent  be7105bc727d6e77fb21c21b47e6b3792fd602f5
Fix ready players accounting

diff -r be7105bc727d -r 1938ef375350 gameServer/Actions.hs
--- a/gameServer/Actions.hs	Sat Feb 21 14:50:39 2009 +0000
+++ b/gameServer/Actions.hs	Sat Feb 21 19:59:03 2009 +0000
@@ -96,7 +96,11 @@
 			0,
 			serverInfo,
 			delete clID clients,
-			adjust (\r -> r{playersIDs = IntSet.delete clID (playersIDs r), playersIn = (playersIn r) - 1}) rID rooms
+			adjust (\r -> r{
+					playersIDs = IntSet.delete clID (playersIDs r),
+					playersIn = (playersIn r) - 1,
+					readyPlayers = if isReady client then readyPlayers r - 1 else readyPlayers r
+					}) rID rooms
 			)
 	where
 		client = clients ! clID
@@ -152,7 +156,11 @@
 		clID,
 		serverInfo,
 		adjust (\cl -> cl{roomID = 0}) clID clients,
-		adjust (\r -> r{playersIDs = IntSet.delete clID (playersIDs r), playersIn = (playersIn r) - 1}) rID $
+		adjust (\r -> r{
+				playersIDs = IntSet.delete clID (playersIDs r),
+				playersIn = (playersIn r) - 1,
+				readyPlayers = if isReady client then readyPlayers r - 1 else readyPlayers r
+				}) rID $
 			adjust (\r -> r{playersIDs = IntSet.insert clID (playersIDs r)}) 0 rooms
 		)
 	where