X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Fgame%2Fg_player.pas;h=550e694b98e59a77936033381571b971ab3b0b9a;hb=b9d9a653db5277b2a7a2682e72a48bf266d50304;hp=fe38642843d48311e9169bb13b93973c9fcfa0b5;hpb=73adc74fdf77fba9f9b683fb8484ccc22ab75339;p=d2df-sdl.git

diff --git a/src/game/g_player.pas b/src/game/g_player.pas
index fe38642..550e694 100644
--- a/src/game/g_player.pas
+++ b/src/game/g_player.pas
@@ -5974,22 +5974,19 @@ begin
     SavedState.MaxAmmo[i] := FMaxAmmo[i];
   SavedState.Rulez := FRulez - [R_KEY_RED, R_KEY_GREEN, R_KEY_BLUE];
 
-  if FSavedStateNum < 0 then
-  begin
-    for i := Low(SavedStates) to High(SavedStates) do
-      if not SavedStates[i].Used then
-      begin
-        FSavedStateNum := i;
-        break;
-      end;
-    if FSavedStateNum < 0 then
+  FSavedStateNum := -1;
+  for i := Low(SavedStates) to High(SavedStates) do
+    if not SavedStates[i].Used then
     begin
-      SetLength(SavedStates, Length(SavedStates) + 1);
-      FSavedStateNum := High(SavedStates);
+      FSavedStateNum := i;
+      break;
     end;
+  if FSavedStateNum < 0 then
+  begin
+    SetLength(SavedStates, Length(SavedStates) + 1);
+    FSavedStateNum := High(SavedStates);
   end;
 
-
   SavedState.Used := True;
   SavedStates[i] := SavedState;
 end;