index d35fc53be4c961ae19e62c0e973b206c1720d887..727e94ac7632e0b1e5b6e88e6f6a13f8876bfeb1 100644 (file)
--- a/src/game/g_textures.pas
+++ b/src/game/g_textures.pas
TLevelTexture = record
TextureName: AnsiString; // as stored in wad
FullName: AnsiString; // full path to texture // !!! merge it with TextureName
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;
end;
TLevelTextureArray = array of TLevelTexture;
property counter: Byte read mCounter;
property blending: Boolean read mBlending write mBlending;
property alpha: Byte read mAlpha write mAlpha;
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}
end;
TAnimation = class{$IFDEF USE_MEMPOOL}(TPoolObject){$ENDIF}