hedgewars/HHHandlers.inc
changeset 4633 e69becb1ac14
parent 4623 fa24dac6c473
child 4641 43d17e3b81de
equal deleted inserted replaced
4632:d01a95361297 4633:e69becb1ac14
   667    else
   667    else
   668        begin
   668        begin
   669        Gear^.dY:= Gear^.dY + cGravity;
   669        Gear^.dY:= Gear^.dY + cGravity;
   670 // this set of circumstances could be less complex if jumping was more clearly identified
   670 // this set of circumstances could be less complex if jumping was more clearly identified
   671        if ((GameFlags and gfMoreWind) <> 0) and 
   671        if ((GameFlags and gfMoreWind) <> 0) and 
   672           (Gear^.Damage <> 0) or
   672           (((Gear^.Damage <> 0) or
   673           ((CurAmmoGear <> nil) and
   673           ((CurAmmoGear <> nil) and
   674             ((CurAmmoGear^.AmmoType = amJetpack) or
   674             ((CurAmmoGear^.AmmoType = amJetpack) or
   675             (CurAmmoGear^.AmmoType = amBirdy))) or
   675             (CurAmmoGear^.AmmoType = amBirdy))) or
   676           ((Gear^.dY.QWordValue + Gear^.dX.QWordValue) > _0_55.QWordValue)
   676           ((Gear^.dY.QWordValue + Gear^.dX.QWordValue) > _0_55.QWordValue)))
   677           then Gear^.dX := Gear^.dX + cWindSpeed * _0_2
   677           then Gear^.dX := Gear^.dX + cWindSpeed * _0_2
   678        end
   678        end
   679    end 
   679    end 
   680 else
   680 else
   681    begin
   681    begin