equal
deleted
inserted
replaced
593 end; |
593 end; |
594 |
594 |
595 if (hwAbs(Gear^.dY) > _0) and (Gear^.FlightTime > 0) and ((GameFlags and gfLowGravity) = 0) then |
595 if (hwAbs(Gear^.dY) > _0) and (Gear^.FlightTime > 0) and ((GameFlags and gfLowGravity) = 0) then |
596 begin |
596 begin |
597 inc(Gear^.FlightTime, 1); |
597 inc(Gear^.FlightTime, 1); |
598 if Gear^.FlightTime = 2000 then |
598 if Gear^.FlightTime = 3000 then |
599 begin |
599 begin |
600 AddCaption(GetEventString(eidHomerun), cWhiteColor, capgrpMessage); |
600 AddCaption(GetEventString(eidHomerun), cWhiteColor, capgrpMessage); |
601 PlaySound(sndHomerun) |
601 PlaySound(sndHomerun) |
602 end; |
602 end; |
603 end |
603 end |