hedgewars/HHHandlers.inc
changeset 3003 0afdba08a858
parent 2996 dfc7507a21a0
child 3037 ab6e949eb5cb
equal deleted inserted replaced
3002:9bf51d5a8a80 3003:0afdba08a858
   586       end;
   586       end;
   587    CheckGearDrowning(Gear);
   587    CheckGearDrowning(Gear);
   588    if (Gear^.State and gstDrowning) <> 0 then isCursorVisible:= false
   588    if (Gear^.State and gstDrowning) <> 0 then isCursorVisible:= false
   589    end;
   589    end;
   590 
   590 
   591 if (hwAbs(Gear^.dY) > _0) and (Gear^.FlightTime > 0) then
   591 if (hwAbs(Gear^.dY) > _0) and (Gear^.FlightTime > 0) and ((GameFlags and gfLowGravity) = 0) then
   592     begin
   592     begin
   593     inc(Gear^.FlightTime, 1);
   593     inc(Gear^.FlightTime, 1);
   594     if Gear^.FlightTime = 2000 then
   594     if Gear^.FlightTime = 2000 then
   595         begin
   595         begin
   596         AddCaption(GetEventString(eidHomerun), cWhiteColor, capgrpMessage);
   596         AddCaption(GetEventString(eidHomerun), cWhiteColor, capgrpMessage);