309    gtExplosion: begin

   309    gtExplosion: begin

   310                 gear^.X:= gear^.X;

   310                 gear^.X:= gear^.X;

   311                 gear^.Y:= gear^.Y;

   311                 gear^.Y:= gear^.Y;

   312                 end;

   312                 end;

   313         gtMine: begin

   313         gtMine: begin

   314                 gear^.State:= gear^.State or gstMoving;

   315                 gear^.State:= gear^.State or gstMoving;

   315                 gear^.Radius:= 2;

   316                 gear^.Radius:= 2;

   316                 gear^.Elasticity:= _0_55;

   317                 gear^.Elasticity:= _0_55;

   317                 gear^.Friction:= _0_995;

   318                 gear^.Friction:= _0_995;

   318                 if cMinesTime < 0 then

   319                 if cMinesTime < 0 then