From ca8f47d2a9481cf929da1e3a642deb2c8d651672 Mon Sep 17 00:00:00 2001
From: Andreas Schneider <aksdb@gmx.de>
Date: Tue, 22 Dec 2009 17:38:34 +0100
Subject: [PATCH] - Fixed intensity of translucent tiles - Changed statics
 priority

---
 Client/UfrmMain.pas | 2 +-
 UOLib/UStatics.pas  | 4 +---
 2 files changed, 2 insertions(+), 4 deletions(-)

diff --git a/Client/UfrmMain.pas b/Client/UfrmMain.pas
index 4a50857..deaca43 100644
--- a/Client/UfrmMain.pas
+++ b/Client/UfrmMain.pas
@@ -2348,7 +2348,7 @@ begin
     end;
 
     if blockInfo^.Translucent then
-      glColor4f(intensity, intensity, intensity, 0.5)
+      glColor4f(intensity, intensity, intensity, 0.8)
     else
       glColor4f(intensity, intensity, intensity, 1.0);
 
diff --git a/UOLib/UStatics.pas b/UOLib/UStatics.pas
index 5e8f90f..4a4b4bc 100644
--- a/UOLib/UStatics.pas
+++ b/UOLib/UStatics.pas
@@ -157,9 +157,7 @@ procedure TStaticItem.UpdatePriorities(ATileData: TStaticTiledata;
   ASolver: Integer);
 begin
   FPriorityBonus := 0;
-  if not (tdfBackground in ATileData.Flags) then
-    Inc(FPriorityBonus);
-  if ATileData.Height > 0 then
+  if not (tdfBackground in ATileData.Flags) or (ATileData.Height > 0) then
     Inc(FPriorityBonus);
   FPriority := Z + FPriorityBonus;
   FPrioritySolver := ASolver;