- Fixed tiles only being checked for animdata if they have the appropriate tiledata flag

This commit is contained in:
Andreas Schneider 2009-12-09 16:56:39 +01:00
parent be935a6bcb
commit 36afc1e1d9
1 changed files with 4 additions and 2 deletions

View File

@ -320,7 +320,8 @@ var
begin begin
Result := nil; Result := nil;
if ATileID >= $4000 then if (ATileID >= $4000) and (tdfAnimation in
ResMan.Tiledata.StaticTiles[ATileID -$4000].Flags) then
begin begin
animData := ResMan.Animdata.AnimData[ATileID - $4000]; animData := ResMan.Animdata.AnimData[ATileID - $4000];
if (animData.FrameCount > 0) and not FAnimations.QueryID(ATileID, Result) then if (animData.FrameCount > 0) and not FAnimations.QueryID(ATileID, Result) then
@ -356,7 +357,8 @@ begin
Result := nil; Result := nil;
id := ATileID or ((AHue.ID and $3FFF) shl 16) or (Byte(APartialHue) shl 30); id := ATileID or ((AHue.ID and $3FFF) shl 16) or (Byte(APartialHue) shl 30);
if ATileID >= $4000 then if (ATileID >= $4000) and (tdfAnimation in
ResMan.Tiledata.StaticTiles[ATileID -$4000].Flags) then
begin begin
animData := ResMan.Animdata.AnimData[ATileID - $4000]; animData := ResMan.Animdata.AnimData[ATileID - $4000];
if (animData.FrameCount > 0) and not FAnimations.QueryID(id, Result) then if (animData.FrameCount > 0) and not FAnimations.QueryID(id, Result) then