X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Fgame%2Fg_corpses.pas;h=b606a5ba9850a13046fa5cff7100045395261eb8;hb=656407d4bcc9419011375f19ad756d9ab7254f89;hp=d4c6c5010a6e3f3cc3b5b44250e8bf6150a16c7f;hpb=0361545117c9f1e9c4e719f2250c48f69879de4a;p=d2df-sdl.git

diff --git a/src/game/g_corpses.pas b/src/game/g_corpses.pas
index d4c6c50..b606a5b 100644
--- a/src/game/g_corpses.pas
+++ b/src/game/g_corpses.pas
@@ -70,7 +70,7 @@ interface
   procedure g_Corpses_RemoveAll;
   procedure g_Corpses_Update;
 
-  {$IFNDEF HEADLESS}
+  {$IFDEF ENABLE_RENDER}
     function g_Corpses_GetCameraObj (Player: TPlayer): TObj;
   {$ENDIF}
 
@@ -85,7 +85,7 @@ implementation
     {$ENDIF}
     Math,
     utils, g_saveload, xstreams,
-    g_game, g_textures, g_map
+    g_game, g_animations, g_map
   ;
 
   var
@@ -247,7 +247,7 @@ implementation
   end;
 
   procedure TCorpse.LoadState (st: TStream);
-    var anim, blending: Boolean; r, g, b, alpha: Byte; stub: TAnimationState;
+    var anim, blending: Boolean; r, g, b, alpha: Byte; stub: TAnimState;
   begin
     assert(st <> nil);
 
@@ -267,7 +267,7 @@ implementation
     Obj_LoadState(@FObj, st);
     FPlayerUID := utils.readWord(st);
     // animation
-    stub := TAnimationState.Create(False, 0, 0);
+    stub := TAnimState.Create(False, 0, 0);
     anim := utils.readBool(st);
     if anim then
     begin
@@ -282,7 +282,6 @@ implementation
     // animation for mask (same as animation, compat with older saves)
     anim := utils.readBool(st);
     if anim then stub.LoadState(st, alpha, blending);
-    stub.Free;
   end;
 
   procedure g_Corpses_SetMax (Count: Word);
@@ -372,7 +371,7 @@ implementation
     SetLength(gCorpses, MaxCorpses);
   end;
 
-{$IFNDEF HEADLESS}
+{$IFDEF ENABLE_RENDER}
   function g_Corpses_GetCameraObj (Player: TPlayer): TObj;
   begin
     {$IFDEF ENABLE_CORPSES}