hedgewars/GSHandlers.inc
changeset 4602 ec84fb564bab
parent 4582 85e92b6e5ad4
child 4611 445d382cd401
equal deleted inserted replaced
4600:5a3b1dbdd4c9 4602:ec84fb564bab
   318     if Gear^.AdvBounce > 1 then dec(Gear^.AdvBounce);
   318     if Gear^.AdvBounce > 1 then dec(Gear^.AdvBounce);
   319 
   319 
   320     if isFalling then 
   320     if isFalling then 
   321         begin
   321         begin
   322         Gear^.dY := Gear^.dY + cGravity;
   322         Gear^.dY := Gear^.dY + cGravity;
   323         if (GameFlags and gfMoreWind) <> 0 then Gear^.dX := Gear^.dX + cWindSpeed * _16 / max(12,sqr(Gear^.Radius))
   323         if (GameFlags and gfMoreWind) <> 0 then Gear^.dX := Gear^.dX + cWindSpeed / Gear^.Density
   324         end;
   324         end;
   325 
   325 
   326     Gear^.X := Gear^.X + Gear^.dX;
   326     Gear^.X := Gear^.X + Gear^.dX;
   327     Gear^.Y := Gear^.Y + Gear^.dY;
   327     Gear^.Y := Gear^.Y + Gear^.dY;
   328     CheckGearDrowning(Gear);
   328     CheckGearDrowning(Gear);