- Fixed intensity of translucent tiles

- Changed statics priority
This commit is contained in:
Andreas Schneider 2009-12-22 17:38:34 +01:00
parent 186527c606
commit ca8f47d2a9
2 changed files with 2 additions and 4 deletions

View File

@ -2348,7 +2348,7 @@ begin
end; end;
if blockInfo^.Translucent then if blockInfo^.Translucent then
glColor4f(intensity, intensity, intensity, 0.5) glColor4f(intensity, intensity, intensity, 0.8)
else else
glColor4f(intensity, intensity, intensity, 1.0); glColor4f(intensity, intensity, intensity, 1.0);

View File

@ -157,9 +157,7 @@ procedure TStaticItem.UpdatePriorities(ATileData: TStaticTiledata;
ASolver: Integer); ASolver: Integer);
begin begin
FPriorityBonus := 0; FPriorityBonus := 0;
if not (tdfBackground in ATileData.Flags) then if not (tdfBackground in ATileData.Flags) or (ATileData.Height > 0) then
Inc(FPriorityBonus);
if ATileData.Height > 0 then
Inc(FPriorityBonus); Inc(FPriorityBonus);
FPriority := Z + FPriorityBonus; FPriority := Z + FPriorityBonus;
FPrioritySolver := ASolver; FPrioritySolver := ASolver;