871    if (Gear^.State and gstDrowning) <> 0 then isCursorVisible:= false

   871    if (Gear^.State and gstDrowning) <> 0 then isCursorVisible:= false

   872    end;

   872    end;

   873 

   873 

   874 if (hwAbs(Gear^.dY) > _0) and (Gear^.FlightTime > 0) and ((GameFlags and gfLowGravity) = 0) then

   874 if (hwAbs(Gear^.dY) > _0) and (Gear^.FlightTime > 0) and ((GameFlags and gfLowGravity) = 0) then

   875     begin

   875     begin

   877     if Gear^.FlightTime = 3000 then

   877     if Gear^.FlightTime = 3000 then

   878         begin

   878         begin

   879         AddCaption(GetEventString(eidHomerun), cWhiteColor, capgrpMessage);

   879         AddCaption(GetEventString(eidHomerun), cWhiteColor, capgrpMessage);

   880         PlaySound(sndHomerun)

   880         PlaySound(sndHomerun)

   881         end;

   881         end;

   882     end

   882     end

   883 else

   883 else

   884     begin

   884     begin

   885     Gear^.FlightTime:= 0;

   886     Gear^.FlightTime:= 0;

   886     end;

   887     end;

   887 

   888 

   888 end;

   889 end;

   889 

   890