hedgewars/uGearsHedgehog.pas
changeset 14961 8b848c2939da
parent 14947 60340c8a6fae
child 14984 2d5f1dc637da
--- a/hedgewars/uGearsHedgehog.pas	Tue May 14 15:52:53 2019 +0200
+++ b/hedgewars/uGearsHedgehog.pas	Tue May 14 16:01:55 2019 +0200
@@ -1282,6 +1282,11 @@
     uStats.hedgehogFlight(Gear, Gear^.FlightTime);
     Gear^.FlightTime:= 0;
     end;
+if (WorldEdge = weNone) and (not Gear^.Hedgehog^.FlownOffMap) and (not isZero(Gear^.dX)) and (not isUnderwater) and ((Gear^.State and gstHHDriven) = 0) and (hwRound(Gear^.Y) < cWaterLine-300) and ((hwRound(Gear^.X) < leftX-2048) or (hwRound(Gear^.X) > rightX+2048)) then
+    begin
+    PlaySoundV(sndFlyAway, Gear^.Hedgehog^.Team^.voicepack);
+    Gear^.Hedgehog^.FlownOffMap:= true;
+    end;
 
 end;