X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Fgame%2Fg_textures.pas;h=727e94ac7632e0b1e5b6e88e6f6a13f8876bfeb1;hb=b01cc2e9192a8deb3ab6a64d9cbed29ad2baeb9c;hp=d35fc53be4c961ae19e62c0e973b206c1720d887;hpb=8028f947967b9156e80eea51b7f8b50f3c5862b3;p=d2df-sdl.git

diff --git a/src/game/g_textures.pas b/src/game/g_textures.pas
index d35fc53..727e94a 100644
--- a/src/game/g_textures.pas
+++ b/src/game/g_textures.pas
@@ -26,8 +26,7 @@ type
   TLevelTexture = record
     TextureName: AnsiString; // as stored in wad
     FullName: AnsiString; // full path to texture // !!! merge it with TextureName
-    case anim: Boolean of
-      true: (framesCount: Byte; speed: Byte);
+    framesCount, speed: Byte;
   end;
 
   TLevelTextureArray = array of TLevelTexture;
@@ -74,6 +73,7 @@ type
     property counter: Byte read mCounter;
     property blending: Boolean read mBlending write mBlending;
     property alpha: Byte read mAlpha write mAlpha;
+    property length: Integer read mLength;
   end;
 
   TAnimation = class{$IFDEF USE_MEMPOOL}(TPoolObject){$ENDIF}