hedgewars/GSHandlers.inc
changeset 80 3c3dc6a148ca
parent 79 29b477319854
child 81 d74e0e914b50
equal deleted inserted replaced
79:29b477319854 80:3c3dc6a148ca
   427       ApplyAmmoChanges(PHedgehog(Gear.Hedgehog)^)
   427       ApplyAmmoChanges(PHedgehog(Gear.Hedgehog)^)
   428     end;
   428     end;
   429 
   429 
   430 begin
   430 begin
   431 HHGear:= PHedgehog(Gear.Hedgehog).Gear;
   431 HHGear:= PHedgehog(Gear.Hedgehog).Gear;
   432 if (HHGear.State and gstHHDriven) = 0 then
   432 if ((HHGear.State and gstHHDriven) = 0)
       
   433    or (CheckGearDrowning(HHGear)) then
   433    begin
   434    begin
   434    DeleteMe;
   435    DeleteMe;
   435    exit
   436    exit
   436    end;
   437    end;
   437 Gear.dX:= HHGear.X - Gear.X;
   438 Gear.dX:= HHGear.X - Gear.X;