X-Git-Url: http://deadsoftware.ru/gitweb?p=d2df-sdl.git;a=blobdiff_plain;f=src%2Fgame%2Fg_textures.pas;h=aaa91b793fe590d5e3bec09c6f432b148141b148;hp=acac0c61d3b8a87cc78bc9598d65d834ef6817c2;hb=c9fc9bdd334338e3f77750416c57fa55c5665fc0;hpb=b89a73ac1981feb1c63f4760d696f1b31a6b9349

diff --git a/src/game/g_textures.pas b/src/game/g_textures.pas
index acac0c6..aaa91b7 100644
--- a/src/game/g_textures.pas
+++ b/src/game/g_textures.pas
@@ -61,7 +61,7 @@ type
     procedure saveState (st: TStream);
     procedure loadState (st: TStream);
 
-//    function totalFrames (): Integer; inline;
+    function totalFrames (): Integer; inline;
 
   public
     property played: Boolean read mPlayed;
@@ -236,6 +236,11 @@ begin
   reset
 end;
 
+function TAnimationState.totalFrames (): Integer; inline;
+begin
+  result := mLength
+end;
+
 procedure TAnimationState.saveState (st: TStream);
 begin
   if (st = nil) then exit;