2066     HHGear^.State := HHGear^.State or gstNoDamage;

  2066     HHGear^.State := HHGear^.State or gstNoDamage;

  2067     DeleteCI(HHGear);

  2067     DeleteCI(HHGear);

  2068 

  2068 

  2069     for i:= 0 to 3 do

  2069     for i:= 0 to 3 do

  2070         begin

  2070         begin

  2071         AmmoShove(Gear, 30, 25);

  2072         AmmoShove(Gear, 30, 25);

  2072         Gear^.X := Gear^.X + Gear^.dX * 5

  2073         Gear^.X := Gear^.X + Gear^.dX * 5

  2073         end;

  2074         end;

  2074 

  2075 

  2075     HHGear^.State := (HHGear^.State and (not gstNoDamage)) or gstMoving;

  2076     HHGear^.State := (HHGear^.State and (not gstNoDamage)) or gstMoving;