2889         Gear^.Y:= Gear^.Y + int2hwFloat(-256);

  2889         Gear^.Y:= Gear^.Y + int2hwFloat(-256);

  2890         end;

  2890         end;

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

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

  2892     Gear^.Timer:= 0;

  2892     Gear^.Timer:= 0;

  2893     Gear^.doStep:= @doStepBirdyDisappear;

  2893     Gear^.doStep:= @doStepBirdyDisappear;

  2894     isCursorVisible:= false;

  2895     isCursorVisible:= false;

  2895     end

  2897     end

  2896 end;

  2898 end;

  2897 

  2899 

  2898 ////////////////////////////////////////////////////////////////////////////////

  2900 ////////////////////////////////////////////////////////////////////////////////

  2899 procedure doStepBirdyDescend(Gear: PGear);

  2901 procedure doStepBirdyDescend(Gear: PGear);

  2900 var HHGear: PGear;

  2902 var HHGear: PGear;

  2901 begin

  2903 begin

  2903 if Gear^.Timer > 0 then

  2904 if Gear^.Timer > 0 then

  2904     dec(Gear^.Timer, 1)

  2905     dec(Gear^.Timer, 1)

  2905 else if CurrentHedgehog = nil then

  2906 else if CurrentHedgehog = nil then

  2906     begin

  2907     begin

  2907     DeleteGear(Gear);

  2908     DeleteGear(Gear);

  2908     exit

  2910     exit

  2909     end;

  2911     end;

  2910 HHGear:= CurrentHedgehog^.Gear;

  2912 HHGear:= CurrentHedgehog^.Gear;

  2911 HHGear^.Message:= HHGear^.Message and not (gm_Up or gm_Precise or gm_Left or gm_Right);

  2913 HHGear^.Message:= HHGear^.Message and not (gm_Up or gm_Precise or gm_Left or gm_Right);

  2912 if abs(hwRound(HHGear^.Y - Gear^.Y)) > 32 then

  2914 if abs(hwRound(HHGear^.Y - Gear^.Y)) > 32 then