hedgewars/uGearsUtils.pas
branch0.9.24
changeset 13550 d42237d16acf
parent 13318 9071600f7b22
child 13568 470982c05f7e
equal deleted inserted replaced
13549:bc6f3d5309f4 13550:d42237d16acf
   514 else
   514 else
   515     begin
   515     begin
   516     // adjust water impact sound based on gear speed and density
   516     // adjust water impact sound based on gear speed and density
   517     hwTmp:= hwAbs(Gear^.Density * speed);
   517     hwTmp:= hwAbs(Gear^.Density * speed);
   518 
   518 
   519     if hwTmp > _1 then
   519     if (numDroplets < maxDroplets) then
   520         PlaySound(sndSplash)
   520         if hwTmp > _1 then
   521     else if hwTmp > _0_5 then
   521             PlaySound(sndSplash)
   522         PlaySound(sndSkip)
   522         else if hwTmp > _0_5 then
   523     else if hwTmp > _0_0002 then  // arbitrary sanity cutoff.  mostly for airmines
   523             PlaySound(sndSkip)
   524         PlaySound(sndDroplet2);
   524         else if hwTmp > _0_0002 then  // arbitrary sanity cutoff.  mostly for airmines
       
   525             PlaySound(sndDroplet2);
   525     end;
   526     end;
   526 
   527 
   527 
   528 
   528 // splash visuals
   529 // splash visuals
   529 
   530