6755     Gear^.Data:= nil;

  6755     Gear^.Data:= nil;

  6756     // remember who fired this

  6756     // remember who fired this

  6757     if (Gear^.Hedgehog <> nil) and (Gear^.Hedgehog^.Gear <> nil) then

  6757     if (Gear^.Hedgehog <> nil) and (Gear^.Hedgehog^.Gear <> nil) then

  6758         Gear^.Data:= Pointer(Gear^.Hedgehog^.Gear);

  6758         Gear^.Data:= Pointer(Gear^.Hedgehog^.Gear);

  6759 

  6759 

  6761     Gear^.X := Gear^.X + Gear^.dX * 2;

  6760     Gear^.X := Gear^.X + Gear^.dX * 2;

  6762     Gear^.Y := Gear^.Y + Gear^.dY * 2;

  6761     Gear^.Y := Gear^.Y + Gear^.dY * 2;

  6763     Gear^.FlightTime := 0;

  6762     Gear^.FlightTime := 0;

  6764     Gear^.doStep := @doStepBulletWork

  6763     Gear^.doStep := @doStepBulletWork

  6765 end;

  6764 end;