X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Fgame%2Fg_map.pas;h=c4e818fe319d289a38fe4f908cc609d89e085811;hb=785fe3df9d3c82df346034780156cb63bae43ff7;hp=1ddbffdd052253d446f2163e1f4597294dd445ff;hpb=af02bc9f8b2dea77c3bb3dbcc6d6992bd956dd89;p=d2df-sdl.git

diff --git a/src/game/g_map.pas b/src/game/g_map.pas
index 1ddbffd..c4e818f 100644
--- a/src/game/g_map.pas
+++ b/src/game/g_map.pas
@@ -1338,6 +1338,7 @@ end;
 function CreateTrigger (amapIdx: Integer; Trigger: TDynRecord; atpanid, atrigpanid: Integer): Integer;
 var
   _trigger: TTrigger;
+  tp: TPanel;
 begin
   result := -1;
   if g_Game_IsClient and not (Trigger.TriggerType in [TRIGGER_SOUND, TRIGGER_MUSIC]) then Exit;
@@ -1356,6 +1357,12 @@ begin
     ActivateType := Trigger.ActivateType;
     Keys := Trigger.Keys;
     trigPanelGUID := atrigpanid;
+    // HACK: used in TPanel.CanChangeTexture. maybe there's a better way?
+    if TexturePanelGUID <> -1 then
+    begin
+      tp := g_Map_PanelByGUID(TexturePanelGUID);
+      if (tp <> nil) then tp.hasTexTrigger := True;
+    end;
   end;
 
   result := Integer(g_Triggers_Create(_trigger, Trigger));