# HG changeset patch # User unc0rr # Date 1344449303 -14400 # Node ID 093ea41051c554b58a1cbafce887cc9b257fe2a2 # Parent 14261378d074d0c42aade547d1f4fc8b5c4c681a Keep room till last player quits diff -r 14261378d074 -r 093ea41051c5 gameServer/Actions.hs --- a/gameServer/Actions.hs Wed Aug 08 11:07:59 2012 -0400 +++ b/gameServer/Actions.hs Wed Aug 08 22:08:23 2012 +0400 @@ -221,7 +221,7 @@ chans <- othersChans if master then - if gameProgress && playersNum > 1 then + if playersNum > 1 then mapM_ processAction [ChangeMaster, NoticeMessage AdminLeft, RemoveClientTeams ci, AnswerClients chans ["LEFT", clNick, msg]] else processAction RemoveRoom @@ -230,7 +230,7 @@ -- when not removing room ready <- client's isReady - when (not master || (gameProgress && playersNum > 1)) . io $ do + when (not master || playersNum > 1) . io $ do modifyRoom rnc (\r -> r{ playersIn = playersIn r - 1, readyPlayers = if ready then readyPlayers r - 1 else readyPlayers r