hedgewars/uSound.pas
changeset 14024 1effb8b72b11
parent 14021 09e2e52aa025
child 14039 f9281c294a4c
equal deleted inserted replaced
14023:039a9a6d68eb 14024:1effb8b72b11
   316             (FileName:               'Bugger.ogg'; Path: ptVoices; AltPath: ptNone),// sndBugger
   316             (FileName:               'Bugger.ogg'; Path: ptVoices; AltPath: ptNone),// sndBugger
   317             (FileName:              'Amazing.ogg'; Path: ptVoices; AltPath: ptNone),// sndAmazing
   317             (FileName:              'Amazing.ogg'; Path: ptVoices; AltPath: ptNone),// sndAmazing
   318             (FileName:            'Brilliant.ogg'; Path: ptVoices; AltPath: ptNone),// sndBrilliant
   318             (FileName:            'Brilliant.ogg'; Path: ptVoices; AltPath: ptNone),// sndBrilliant
   319             (FileName:            'Excellent.ogg'; Path: ptVoices; AltPath: ptNone),// sndExcellent
   319             (FileName:            'Excellent.ogg'; Path: ptVoices; AltPath: ptNone),// sndExcellent
   320             (FileName:                 'Fire.ogg'; Path: ptVoices; AltPath: ptNone),// sndFire
   320             (FileName:                 'Fire.ogg'; Path: ptVoices; AltPath: ptNone),// sndFire
   321             (FileName:            'Watchthis.ogg'; Path: ptVoices; AltPath: ptNone) // sndWatchThis
   321             (FileName:            'Watchthis.ogg'; Path: ptVoices; AltPath: ptNone),// sndWatchThis
       
   322             (FileName:              'Runaway.ogg'; Path: ptVoices; AltPath: ptNone) // sndRunAway
   322             );
   323             );
   323 
   324 
   324 
   325 
   325 function  AskForVoicepack(name: shortstring): Pointer;
   326 function  AskForVoicepack(name: shortstring): Pointer;
   326 var i: Longword;
   327 var i: Longword;
   536                     snd := sndRegret
   537                     snd := sndRegret
   537                 else if (snd in [sndOhDear, sndSoLong]) then
   538                 else if (snd in [sndOhDear, sndSoLong]) then
   538                     snd := sndByeBye
   539                     snd := sndByeBye
   539                 else if (snd = sndWhatThe) then
   540                 else if (snd = sndWhatThe) then
   540                     snd := sndNooo
   541                     snd := sndNooo
       
   542                 else if (snd = sndRunAway) then
       
   543                     snd := sndOops
   541                 else if (snd = sndThisOneIsMine) then
   544                 else if (snd = sndThisOneIsMine) then
   542                     snd := sndReinforce
   545                     snd := sndReinforce
   543                 else if (snd in [sndAmazing, sndBrilliant, sndExcellent]) then
   546                 else if (snd in [sndAmazing, sndBrilliant, sndExcellent]) then
   544                     snd := sndEnemyDown;
   547                     snd := sndEnemyDown;
   545 
   548