equal
deleted
inserted
replaced
1265 inc(Gear^.FlightTime); |
1265 inc(Gear^.FlightTime); |
1266 if (Gear^.FlightTime > 1500) and ((hwRound(Gear^.X) < leftX-250) or (hwRound(Gear^.X) > rightX+250)) then |
1266 if (Gear^.FlightTime > 1500) and ((hwRound(Gear^.X) < leftX-250) or (hwRound(Gear^.X) > rightX+250)) then |
1267 begin |
1267 begin |
1268 Gear^.FlightTime:= 0; |
1268 Gear^.FlightTime:= 0; |
1269 s:= ansistring(CurrentHedgehog^.Name); |
1269 s:= ansistring(CurrentHedgehog^.Name); |
1270 AddCaption(FormatA(GetEventString(eidHomerun), s), capcolDefault, capgrpMessage); |
1270 AddCaption(FormatA(GetEventString(eidHomerun), s), capcolDefault, capgrpMessage2); |
1271 PlaySound(sndHomerun) |
1271 PlaySound(sndHomerun) |
1272 end; |
1272 end; |
1273 end |
1273 end |
1274 else |
1274 else |
1275 begin |
1275 begin |