index acac0c61d3b8a87cc78bc9598d65d834ef6817c2..d35fc53be4c961ae19e62c0e973b206c1720d887 100644 (file)
--- a/src/game/g_textures.pas
+++ b/src/game/g_textures.pas
type
TLevelTexture = record
- textureName: AnsiString;
- width, height: Word;
+ TextureName: AnsiString; // as stored in wad
+ FullName: AnsiString; // full path to texture // !!! merge it with TextureName
case anim: Boolean of
- false: (textureID: LongWord);
- true: (framesID: LongWord; framesCount: Byte; speed: Byte);
+ true: (framesCount: Byte; speed: Byte);
end;
TLevelTextureArray = array of TLevelTexture;
procedure saveState (st: TStream);
procedure loadState (st: TStream);
-// function totalFrames (): Integer; inline;
+ function totalFrames (): Integer; inline;
public
property played: Boolean read mPlayed;
reset
end;
+function TAnimationState.totalFrames (): Integer; inline;
+begin
+ result := mLength
+end;
+
procedure TAnimationState.saveState (st: TStream);
begin
if (st = nil) then exit;