hedgewars/uGearsUtils.pas
changeset 8987 47cf32305d99
parent 8966 5ab59d79bc9a
child 8989 ae97ab6dcc70
equal deleted inserted replaced
8986:f7bb323a6934 8987:47cf32305d99
   359                 Gear^.dY:= _90-(GetRandomf*_360)
   359                 Gear^.dY:= _90-(GetRandomf*_360)
   360                 end
   360                 end
   361             else DeleteGear(Gear);
   361             else DeleteGear(Gear);
   362             exit
   362             exit
   363             end;
   363             end;
   364         isSubmersible:= (Gear = CurrentHedgehog^.Gear) and (CurAmmoGear <> nil) and (CurAmmoGear^.AmmoType = amJetpack);
   364         isSubmersible:= ((Gear = CurrentHedgehog^.Gear) and (CurAmmoGear <> nil) and (CurAmmoGear^.AmmoType = amJetpack)) or (Gear^.State and gstNoDrown <> 0);
   365         skipSpeed := _0_25;
   365         skipSpeed := _0_25;
   366         skipAngle := _1_9;
   366         skipAngle := _1_9;
   367         skipDecay := _0_87;
   367         skipDecay := _0_87;
   368         X:= hwRound(Gear^.X);
   368         X:= hwRound(Gear^.X);
   369         vdX:= hwFloat2Float(Gear^.dX);
   369         vdX:= hwFloat2Float(Gear^.dX);