--- a/gameServer/OfficialServer/GameReplayStore.hs	Thu Jan 10 22:59:46 2013 +0400
+++ b/gameServer/OfficialServer/GameReplayStore.hs	Sat Jan 12 01:18:50 2013 +0400
@@ -14,7 +14,7 @@
 
 
 saveReplay :: RoomInfo -> IO ()
-saveReplay r = do
+saveReplay r = when allPlayersHaveRegisteredAccounts $ do
     time <- getCurrentTime
     u <- liftM hashUnique newUnique
     let fileName = "replays/" ++ show time ++ "-" ++ show u
@@ -23,4 +23,3 @@
     E.catch
         (writeFile fileName (show replayInfo))
         (\(e :: IOException) -> warningM "REPLAYS" $ "Couldn't write to " ++ fileName ++ ": " ++ show e)
-                   
\ No newline at end of file