hedgewars/HHHandlers.inc
changeset 1922 88cdabb51995
parent 1883 7c7476f56114
child 1964 dc9ea05c9d2f
equal deleted inserted replaced
1921:2a09f7f786a0 1922:88cdabb51995
   125         if (Ammo^[CurSlot, CurAmmo].Propz and ammoprop_Power) <> 0 then
   125         if (Ammo^[CurSlot, CurAmmo].Propz and ammoprop_Power) <> 0 then
   126            begin
   126            begin
   127            StopSound(sndThrowPowerUp);
   127            StopSound(sndThrowPowerUp);
   128            PlaySound(sndThrowRelease, false, nil);
   128            PlaySound(sndThrowRelease, false, nil);
   129            end;
   129            end;
       
   130 
   130         xx:= SignAs(AngleSin(Angle), dX);
   131         xx:= SignAs(AngleSin(Angle), dX);
   131         yy:= -AngleCos(Angle);
   132         yy:= -AngleCos(Angle);
   132 
   133 
   133         if ((Gear^.State and gstHHHJump) <> 0) then xx:= - xx;
   134         if ((Gear^.State and gstHHHJump) <> 0) then xx:= - xx;
   134              case Ammo^[CurSlot, CurAmmo].AmmoType of
   135              case Ammo^[CurSlot, CurAmmo].AmmoType of