hedgewars/uSound.pas
changeset 14410 07c9bdc45115
parent 14387 2ab312c47dc3
child 14411 e5eee50bd457
equal deleted inserted replaced
14409:cf49fac6e88a 14410:07c9bdc45115
   500         GetFallbackV := sndOops
   500         GetFallbackV := sndOops
   501     else if (snd = sndThisOneIsMine) then
   501     else if (snd = sndThisOneIsMine) then
   502         GetFallbackV := sndReinforce
   502         GetFallbackV := sndReinforce
   503     else if (snd in [sndAmazing, sndBrilliant, sndExcellent]) then
   503     else if (snd in [sndAmazing, sndBrilliant, sndExcellent]) then
   504         GetFallbackV := sndEnemyDown
   504         GetFallbackV := sndEnemyDown
   505     // Hmm is for enemy turn start
       
   506     else if snd = sndHmm then
       
   507         // these are not ideal fallbacks, but those were the voices which were used in older versions
       
   508         // for enemy turn start
       
   509         if random(2) = 0 then
       
   510             GetFallbackV := sndIllGetYou
       
   511         else
       
   512             GetFallbackV := sndJustYouWait
       
   513     else
   505     else
   514         GetFallbackV := sndNone;
   506         GetFallbackV := sndNone;
   515 end;
   507 end;
   516 
   508 
   517 function PlaySound(snd: TSound): boolean;
   509 function PlaySound(snd: TSound): boolean;