2304 

  2304 

  2305     HHGear := PHedgehog(Gear^.Hedgehog)^.Gear;

  2305     HHGear := PHedgehog(Gear^.Hedgehog)^.Gear;

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

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

  2307     DeleteCI(HHGear);

  2307     DeleteCI(HHGear);

  2308 

  2308 

  2309     i := 2;

  2312     i := 2;

  2310     repeat

  2313     repeat

  2311         Gear^.X := Gear^.X + HHGear^.dX;

  2314         Gear^.X := Gear^.X + HHGear^.dX;

  2312         Gear^.Y := Gear^.Y + HHGear^.dY;

  2315         Gear^.Y := Gear^.Y + HHGear^.dY;

  2313         HHGear^.X := Gear^.X;

  2316         HHGear^.X := Gear^.X;