hedgewars/HHHandlers.inc
changeset 6248 103bc8fd4f1b
parent 6244 23801d8b83d5
child 6291 cfd2483b8c97
equal deleted inserted replaced
6247:6dfad55fd71c 6248:103bc8fd4f1b
   875       CheckHHDamage(Gear);
   875       CheckHHDamage(Gear);
   876       Gear^.dY:= _0;
   876       Gear^.dY:= _0;
   877       Gear^.Y:= Gear^.Y + _1
   877       Gear^.Y:= Gear^.Y + _1
   878       end;
   878       end;
   879    CheckGearDrowning(Gear);
   879    CheckGearDrowning(Gear);
   880    if (Gear^.State and gstDrowning) <> 0 then isCursorVisible:= false
   880    // hide target cursor if current hog is drowning
       
   881    if (Gear^.State and gstDrowning) <> 0 then
       
   882        if (CurrentHedgehog^.Gear = Gear) then
       
   883           isCursorVisible:= false
   881    end;
   884    end;
   882 
   885 
   883 if (hwAbs(Gear^.dY) > _0) and (Gear^.FlightTime > 0) and ((GameFlags and gfLowGravity) = 0) then
   886 if (hwAbs(Gear^.dY) > _0) and (Gear^.FlightTime > 0) and ((GameFlags and gfLowGravity) = 0) then
   884     begin
   887     begin
   885     inc(Gear^.FlightTime);
   888     inc(Gear^.FlightTime);