--- a/gameServer/Actions.hs Tue Jan 22 00:04:09 2013 +0400
+++ b/gameServer/Actions.hs Tue Jan 22 00:24:44 2013 +0400
@@ -383,7 +383,7 @@
rnc <- gets roomsClients
ri <- clientRoomA
gi <- io $ room'sM rnc gameInfo ri
- when (isJust gi && 0 == teamsInGameNumber (fromJust gi)) $
+ when (0 == teamsInGameNumber (fromJust gi)) $
processAction FinishGame
where
rmTeamMsg = toEngineMsg $ 'F' `B.cons` teamName
--- a/gameServer/HWProtoInRoomState.hs Tue Jan 22 00:04:09 2013 +0400
+++ b/gameServer/HWProtoInRoomState.hs Tue Jan 22 00:24:44 2013 +0400
@@ -234,10 +234,7 @@
if isInGame cl then
if isJust $ gameInfo rm then
- if (isMaster cl && isCorrect) then
- return $ FinishGame : unsetInGameState
- else
- return $ unsetInGameState ++ map SendTeamRemovalMessage clTeams
+ return $ unsetInGameState ++ map SendTeamRemovalMessage clTeams
else
return unsetInGameState
else