X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Fgame%2Fg_triggers.pas;h=5283e7008751eee7805ac02aca4c6eff48534159;hb=1ac9fc74d98d56a450774702aae19fa1546f2849;hp=8c1c1b895de8c7b08df419df0d85e43204ee449f;hpb=921c3b45ee6dd3b39307f4d1d6c05ab1c137bd49;p=d2df-sdl.git

diff --git a/src/game/g_triggers.pas b/src/game/g_triggers.pas
index 8c1c1b8..5283e70 100644
--- a/src/game/g_triggers.pas
+++ b/src/game/g_triggers.pas
@@ -13,7 +13,7 @@
  * You should have received a copy of the GNU General Public License
  * along with this program.  If not, see <http://www.gnu.org/licenses/>.
  *)
-{$MODE DELPHI}
+{$INCLUDE ../shared/a_modes.inc}
 unit g_triggers;
 
 interface
@@ -926,6 +926,7 @@ end;
 
 function tr_ShotAimCheck(var Trigger: TTrigger; Obj: PObj): Boolean;
 begin
+  result := false;
   with Trigger do
   begin
     if TriggerType <> TRIGGER_SHOT then