DEADSOFTWARE

oh god damn it
[d2df-sdl.git] / src / game / g_player.pas
index 90588ba10e31d4be1d60592fad315687274c8aff..49cd657bb73ba05a37606ec76588e011be622590 100644 (file)
@@ -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();