572 

   573 ////////////////////////////////////////////////////////////////////////////////

   574 procedure doStepMine(Gear: PGear);

   575 begin

   576 if (Gear.dX <> 0) or (Gear.dY <> 0) then

   577    begin

   578    doStepFallingGear(Gear);

   579    AllInactive:= false

   580    end;

   581 CalcRotationDirAngle(Gear);

   582 if TurnTimeLeft = 0 then Gear.State:= Gear.State or gsttmpFlag;

   583 if ((Gear.State and gsttmpFlag) <> 0) then

   584    if ((Gear.State and gstAttacking) = 0) then

   585       if isGearNear(Gear, gtHedgehog, 42, 25) then Gear.State:= Gear.State or gstAttacking else

   586       else // gstAttacking <> 0

   587       begin

   588       AllInactive:= false;

   589       dec(Gear.Timer);

   590       if Gear.Timer = 0 then

   591          begin

   592          doMakeExplosion(round(Gear.X), round(Gear.Y), 50, 0);

   593          DeleteGear(Gear)

   594          end;

   595       end;

   596 end;