4630     if (HHGear = nil) or ((HHGear^.State and gstHHDriven) = 0) then

  4630     if (HHGear = nil) or ((HHGear^.State and gstHHDriven) = 0) then

  4631         begin

  4631         begin

  4632         Gear^.Hedgehog := nil;

  4632         Gear^.Hedgehog := nil;

  4633         Gear^.Timer := 0;

  4633         Gear^.Timer := 0;

  4634         Gear^.State := Gear^.State or gstAnimation or gstTmpFlag;

  4634         Gear^.State := Gear^.State or gstAnimation or gstTmpFlag;

  4636         Gear^.doStep := @doStepBirdyDisappear;

  4635         Gear^.doStep := @doStepBirdyDisappear;

  4637         CurAmmoGear := nil;

  4636         CurAmmoGear := nil;

  4638         isCursorVisible := false;

  4637         isCursorVisible := false;

  4639         AfterAttack;

  4638         AfterAttack;

  4640         exit

  4639         exit