hedgewars/uGearsHedgehog.pas
changeset 14961 8b848c2939da
parent 14947 60340c8a6fae
child 14984 2d5f1dc637da
equal deleted inserted replaced
14960:7b597da60fda 14961:8b848c2939da
  1280 else
  1280 else
  1281     begin
  1281     begin
  1282     uStats.hedgehogFlight(Gear, Gear^.FlightTime);
  1282     uStats.hedgehogFlight(Gear, Gear^.FlightTime);
  1283     Gear^.FlightTime:= 0;
  1283     Gear^.FlightTime:= 0;
  1284     end;
  1284     end;
       
  1285 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
       
  1286     begin
       
  1287     PlaySoundV(sndFlyAway, Gear^.Hedgehog^.Team^.voicepack);
       
  1288     Gear^.Hedgehog^.FlownOffMap:= true;
       
  1289     end;
  1285 
  1290 
  1286 end;
  1291 end;
  1287 
  1292 
  1288 procedure doStepHedgehogDriven(HHGear: PGear);
  1293 procedure doStepHedgehogDriven(HHGear: PGear);
  1289 var t: PGear;
  1294 var t: PGear;