hedgewars/uSound.pas
changeset 14042 006f97a6f6a7
parent 14041 44f20c9e6861
child 14053 38eb5937169e
equal deleted inserted replaced
14041:44f20c9e6861 14042:006f97a6f6a7
   326             (FileName:            'Watchthis.ogg'; Path: ptVoices; AltPath: ptNone),// sndWatchThis
   326             (FileName:            'Watchthis.ogg'; Path: ptVoices; AltPath: ptNone),// sndWatchThis
   327             (FileName:              'Runaway.ogg'; Path: ptVoices; AltPath: ptNone),// sndRunAway
   327             (FileName:              'Runaway.ogg'; Path: ptVoices; AltPath: ptNone),// sndRunAway
   328             (FileName:              'Revenge.ogg'; Path: ptVoices; AltPath: ptNone),// sndRevenge
   328             (FileName:              'Revenge.ogg'; Path: ptVoices; AltPath: ptNone),// sndRevenge
   329             (FileName:             'Cutitout.ogg'; Path: ptVoices; AltPath: ptNone),// sndCutItOut
   329             (FileName:             'Cutitout.ogg'; Path: ptVoices; AltPath: ptNone),// sndCutItOut
   330             (FileName:         'Leavemealone.ogg'; Path: ptVoices; AltPath: ptNone),// sndLeaveMeAlone
   330             (FileName:         'Leavemealone.ogg'; Path: ptVoices; AltPath: ptNone),// sndLeaveMeAlone
   331             (FileName:                 'Ouch.ogg'; Path: ptVoices; AltPath: ptNone) // sndOuch
   331             (FileName:                 'Ouch.ogg'; Path: ptVoices; AltPath: ptNone),// sndOuch
       
   332             (FileName:                  'Hmm.ogg'; Path: ptVoices; AltPath: ptNone) // sndHmm
   332             );
   333             );
   333 
   334 
   334 
   335 
   335 function  AskForVoicepack(name: shortstring): Pointer;
   336 function  AskForVoicepack(name: shortstring): Pointer;
   336 var i: Longword;
   337 var i: Longword;
   499         GetFallbackV := sndOops
   500         GetFallbackV := sndOops
   500     else if (snd = sndThisOneIsMine) then
   501     else if (snd = sndThisOneIsMine) then
   501         GetFallbackV := sndReinforce
   502         GetFallbackV := sndReinforce
   502     else if (snd in [sndAmazing, sndBrilliant, sndExcellent]) then
   503     else if (snd in [sndAmazing, sndBrilliant, sndExcellent]) then
   503         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
   504     else
   513     else
   505         GetFallbackV := sndNone;
   514         GetFallbackV := sndNone;
   506 end;
   515 end;
   507 
   516 
   508 function PlaySound(snd: TSound): boolean;
   517 function PlaySound(snd: TSound): boolean;