X-Git-Url: https://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Fgame%2Fg_panel.pas;h=f259aa3d18492575f0547abf1aae34aa18ec4780;hb=a3ef23c31742fba53271c9a5a4dfe6ea26ea5d68;hp=70d2cc15fd4ff5c1deaa801dae3e2d98aaab9e28;hpb=d0b4e26c3755ae0cb023bcadda3e72f1c021920a;p=d2df-sdl.git

diff --git a/src/game/g_panel.pas b/src/game/g_panel.pas
index 70d2cc1..f259aa3 100644
--- a/src/game/g_panel.pas
+++ b/src/game/g_panel.pas
@@ -922,10 +922,13 @@ end;
     if (FCurTexture >= 0) then
     begin
       Texture := FTextureIDs[FCurTexture].Texture;
-      case Textures[Texture].TextureName of
-        TEXTURE_NAME_WATER: Result := DWORD(TEXTURE_SPECIAL_WATER);
-        TEXTURE_NAME_ACID1: Result := DWORD(TEXTURE_SPECIAL_ACID1);
-        TEXTURE_NAME_ACID2: Result := DWORD(TEXTURE_SPECIAL_ACID2);
+      if Texture >= 0 then
+      begin
+        case Textures[Texture].TextureName of (* TODO: optimize it *)
+          TEXTURE_NAME_WATER: Result := DWORD(TEXTURE_SPECIAL_WATER);
+          TEXTURE_NAME_ACID1: Result := DWORD(TEXTURE_SPECIAL_ACID1);
+          TEXTURE_NAME_ACID2: Result := DWORD(TEXTURE_SPECIAL_ACID2);
+        end
       end
     end
   end;