X-Git-Url: https://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Fgame%2Fg_triggers.pas;h=89adae44b57715f36df45b231cb7fc660ceca8da;hb=e21c5a3813c8eac0b705cc6fe36fca3e0086d869;hp=6748a005098b7874218adc0e15af4fcd3fa5a631;hpb=88ce644db1b40111bdb380f4357fa59bdb5173be;p=d2df-sdl.git

diff --git a/src/game/g_triggers.pas b/src/game/g_triggers.pas
index 6748a00..89adae4 100644
--- a/src/game/g_triggers.pas
+++ b/src/game/g_triggers.pas
@@ -1,3 +1,4 @@
+{$MODE DELPHI}
 unit g_triggers;
 
 interface
@@ -71,7 +72,7 @@ implementation
 uses
   g_player, g_map, Math, g_gfx, g_game, g_textures,
   g_console, g_monsters, g_items, g_phys, g_weapons,
-  WADEDITOR, g_main, SysUtils, e_log, g_language,
+  wadreader, g_main, SysUtils, e_log, g_language,
   g_options, g_net, g_netmsg;
 
 const
@@ -805,7 +806,7 @@ begin
       TRIGGER_PRESS, TRIGGER_ON, TRIGGER_OFF, TRIGGER_ONOFF:
         begin
           PressCount := PressCount + 1;
-          
+
           if PressTime = -1 then
             PressTime := Data.Wait;
 
@@ -1166,7 +1167,7 @@ begin
                 p := g_Player_Get(ActivateUID);
                 if p = nil then
                   Exit;
-                  
+
                 if Data.ResetVel then
                 begin
                   p.GameVelX := 0;
@@ -2330,6 +2331,8 @@ var
   k: Byte;
   p: TPlayer;
 begin
+  Result := nil;
+
   if gTriggers = nil then Exit;
 
   case g_GetUIDType(UID) of
@@ -2345,8 +2348,6 @@ begin
     else k := 0;
   end;
 
-  Result := nil;
-
   for a := 0 to High(gTriggers) do
     if (gTriggers[a].TriggerType <> TRIGGER_NONE) and
        (gTriggers[a].TimeOut = 0) and