hedgewars/uGearsHedgehog.pas
changeset 8003 7d8bce524daf
parent 7956 61da79e83330
child 8026 4a4f21070479
child 8030 165aeaaaf445
equal deleted inserted replaced
8000:cd007c1780e7 8003:7d8bce524daf
   969             isCursorVisible:= false
   969             isCursorVisible:= false
   970     end;
   970     end;
   971 if (not isZero(Gear^.dY)) and (Gear^.FlightTime > 0) and ((GameFlags and gfLowGravity) = 0) then
   971 if (not isZero(Gear^.dY)) and (Gear^.FlightTime > 0) and ((GameFlags and gfLowGravity) = 0) then
   972     begin
   972     begin
   973     inc(Gear^.FlightTime);
   973     inc(Gear^.FlightTime);
   974     if (Gear^.FlightTime > 1500) and ((hwRound(Gear^.X) < leftX-250) or (hwRound(Gear^.X) > rightX+250))  then
   974     if (Gear^.FlightTime > 1500) and ((hwRound(Gear^.X) < LongInt(leftX)-250) or (hwRound(Gear^.X) > LongInt(rightX)+250))  then
   975         begin
   975         begin
   976         Gear^.FlightTime:= 0;
   976         Gear^.FlightTime:= 0;
   977         AddCaption(GetEventString(eidHomerun), cWhiteColor, capgrpMessage);
   977         AddCaption(GetEventString(eidHomerun), cWhiteColor, capgrpMessage);
   978         PlaySound(sndHomerun)
   978         PlaySound(sndHomerun)
   979         end;
   979         end;