hedgewars/uGears.pas
changeset 2990 b62e567f17b9
parent 2989 b49d87499398
child 2991 142ea64ce8a2
--- a/hedgewars/uGears.pas	Sun Mar 14 17:04:36 2010 +0000
+++ b/hedgewars/uGears.pas	Sun Mar 14 20:22:00 2010 +0000
@@ -55,7 +55,6 @@
             Tex: PTexture;
             Z: Longword;
             IntersectGear: PGear;
-            TriggerId: Longword;
             FlightTime: Longword;
             uid: Longword;
             SoundChannel: LongInt
@@ -95,7 +94,7 @@
 
 implementation
 uses uWorld, uMisc, uStore, uConsole, uSound, uTeams, uRandom, uCollisions, uLand, uIO, uLandGraphics,
-    uAIMisc, uLocale, uAI, uAmmos, uTriggers, uStats, uVisualGears, uScript, 
+    uAIMisc, uLocale, uAI, uAmmos, uStats, uVisualGears, uScript, 
 {$IFDEF GLES11}
     gles11;
 {$ELSE}
@@ -507,7 +506,6 @@
 with Gear^ do AddFileLog('Delete: #' + inttostr(uid) + ' (' + inttostr(hwRound(x)) + ',' + inttostr(hwRound(y)) + '), d(' + floattostr(dX) + ',' + floattostr(dY) + ') type = ' + inttostr(ord(Kind)));
 {$ENDIF}
 
-if Gear^.TriggerId <> 0 then TickTrigger(Gear^.TriggerId);
 if CurAmmoGear = Gear then CurAmmoGear:= nil;
 if FollowGear = Gear then FollowGear:= nil;
 RemoveGearFromList(Gear);
@@ -1694,7 +1692,6 @@
         for i:= 0 to Pred(cLandAdditions) do
             begin
             Gear:= AddGear(0, 0, gtMine, 0, _0, _0, 0);
-            Gear^.TriggerId:= i + 1;
             FindPlace(Gear, false, 0, LAND_WIDTH);
             end;
 //  No game flag for this for now