X-Git-Url: https://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Fgame%2Fg_player.pas;h=49cd657bb73ba05a37606ec76588e011be622590;hb=2f006e551fc1f488f668ea844f12130351d62150;hp=90588ba10e31d4be1d60592fad315687274c8aff;hpb=39b5a33c63812024e33054658dad9bc72aebe4ac;p=d2df-sdl.git

diff --git a/src/game/g_player.pas b/src/game/g_player.pas
index 90588ba..49cd657 100644
--- a/src/game/g_player.pas
+++ b/src/game/g_player.pas
@@ -5974,6 +5974,7 @@ begin
     SavedState.MaxAmmo[i] := FMaxAmmo[i];
   SavedState.Rulez := FRulez - [R_KEY_RED, R_KEY_GREEN, R_KEY_BLUE];
 
+  FSavedStateNum := -1;
   for i := Low(SavedStates) to High(SavedStates) do
     if not SavedStates[i].Used then
     begin
@@ -5987,7 +5988,7 @@ begin
   end;
 
   SavedState.Used := True;
-  SavedStates[i] := SavedState;
+  SavedStates[FSavedStateNum] := SavedState;
 end;
 
 procedure TPlayer.RecallState();