1233 var HHGear: PGear;

  1233 var HHGear: PGear;

  1234 begin

  1234 begin

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

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

  1236 HHGear^.Y:= HHGear^.Y + HHGear^.dY; // hedgehog falling to collect cases

  1236 HHGear^.Y:= HHGear^.Y + HHGear^.dY; // hedgehog falling to collect cases

  1237 HHGear^.dY:= HHGear^.dY + cGravity;

  1237 HHGear^.dY:= HHGear^.dY + cGravity;

  1239    begin

  1240    begin

  1240    DeleteGear(Gear);

  1241    DeleteGear(Gear);

  1241    AfterAttack

  1242    AfterAttack

  1242    end

  1243    end

  1243 end;

  1244 end;