hedgewars/uGears.pas
changeset 595 5ee863f2f568
parent 593 1f5e66379a43
child 601 78a68cc4d846
--- a/hedgewars/uGears.pas	Sat Sep 15 10:27:34 2007 +0000
+++ b/hedgewars/uGears.pas	Sat Sep 15 13:01:44 2007 +0000
@@ -49,6 +49,7 @@
              Surf: PSDL_Surface;
              Z: Longword;
              IntersectGear: PGear;
+             TriggerId: Longword;
              end;
 
 function  AddGear(X, Y: LongInt; Kind: TGearType; State: Longword; dX, dY: hwFloat; Timer: LongWord): PGear;
@@ -332,6 +333,7 @@
       RecountTeamHealth(team);
       end;
 {$IFDEF DEBUGFILE}AddFileLog('DeleteGear');{$ENDIF}
+if Gear^.TriggerId <> 0 then TickTrigger(Gear^.TriggerId);
 if CurAmmoGear = Gear then CurAmmoGear:= nil;
 if FollowGear = Gear then FollowGear:= nil;
 RemoveGearFromList(Gear);