hedgewars/uSound.pas
changeset 8145 6408c0ba4ba1
parent 8046 4d3415927d2c
child 8165 9527839ad58b
equal deleted inserted replaced
8143:3f2ba6debbdd 8145:6408c0ba4ba1
   118     Mus: PMixMusic; // music pointer
   118     Mus: PMixMusic; // music pointer
   119     MusicFN: shortstring; // music file name
   119     MusicFN: shortstring; // music file name
   120     isMusicEnabled: boolean;
   120     isMusicEnabled: boolean;
   121     isSoundEnabled: boolean;
   121     isSoundEnabled: boolean;
   122     isSEBackup: boolean;
   122     isSEBackup: boolean;
       
   123     VoiceList : array[0..7] of TVoice =  (
       
   124                     ( snd: sndNone; voicepack: nil),
       
   125                     ( snd: sndNone; voicepack: nil),
       
   126                     ( snd: sndNone; voicepack: nil),
       
   127                     ( snd: sndNone; voicepack: nil),
       
   128                     ( snd: sndNone; voicepack: nil),
       
   129                     ( snd: sndNone; voicepack: nil),
       
   130                     ( snd: sndNone; voicepack: nil),
       
   131                     ( snd: sndNone; voicepack: nil));
       
   132     Soundz: array[TSound] of record
       
   133             FileName: string[31];
       
   134             Path    : TPathType;
       
   135             end = (
       
   136             (FileName:                         ''; Path: ptNone  ),// sndNone
       
   137             (FileName:        'grenadeimpact.ogg'; Path: ptSounds),// sndGrenadeImpact
       
   138             (FileName:            'explosion.ogg'; Path: ptSounds),// sndExplosion
       
   139             (FileName:         'throwpowerup.ogg'; Path: ptSounds),// sndThrowPowerUp
       
   140             (FileName:         'throwrelease.ogg'; Path: ptSounds),// sndThrowRelease
       
   141             (FileName:               'splash.ogg'; Path: ptSounds),// sndSplash
       
   142             (FileName:        'shotgunreload.ogg'; Path: ptSounds),// sndShotgunReload
       
   143             (FileName:          'shotgunfire.ogg'; Path: ptSounds),// sndShotgunFire
       
   144             (FileName:          'graveimpact.ogg'; Path: ptSounds),// sndGraveImpact
       
   145             (FileName:           'mineimpact.ogg'; Path: ptSounds),// sndMineImpact
       
   146             (FileName:             'minetick.ogg'; Path: ptSounds),// sndMineTicks
       
   147             (FileName:             'Droplet1.ogg'; Path: ptSounds),// sndMudballImpact
       
   148             (FileName:           'pickhammer.ogg'; Path: ptSounds),// sndPickhammer
       
   149             (FileName:                  'gun.ogg'; Path: ptSounds),// sndGun
       
   150             (FileName:                  'bee.ogg'; Path: ptSounds),// sndBee
       
   151             (FileName:                'Jump1.ogg'; Path: ptVoices),// sndJump1
       
   152             (FileName:                'Jump2.ogg'; Path: ptVoices),// sndJump2
       
   153             (FileName:                'Jump3.ogg'; Path: ptVoices),// sndJump3
       
   154             (FileName:               'Yessir.ogg'; Path: ptVoices),// sndYesSir
       
   155             (FileName:                'Laugh.ogg'; Path: ptVoices),// sndLaugh
       
   156             (FileName:            'Illgetyou.ogg'; Path: ptVoices),// sndIllGetYou
       
   157             (FileName:          'JustYouWait.ogg'; Path: ptVoices),// sndJustYouWait
       
   158             (FileName:             'Incoming.ogg'; Path: ptVoices),// sndIncoming
       
   159             (FileName:               'Missed.ogg'; Path: ptVoices),// sndMissed
       
   160             (FileName:               'Stupid.ogg'; Path: ptVoices),// sndStupid
       
   161             (FileName:           'Firstblood.ogg'; Path: ptVoices),// sndFirstBlood
       
   162             (FileName:               'Boring.ogg'; Path: ptVoices),// sndBoring
       
   163             (FileName:               'Byebye.ogg'; Path: ptVoices),// sndByeBye
       
   164             (FileName:             'Sameteam.ogg'; Path: ptVoices),// sndSameTeam
       
   165             (FileName:               'Nutter.ogg'; Path: ptVoices),// sndNutter
       
   166             (FileName:       'Reinforcements.ogg'; Path: ptVoices),// sndReinforce
       
   167             (FileName:              'Traitor.ogg'; Path: ptVoices),// sndTraitor
       
   168             (FileName:      'Youllregretthat.ogg'; Path: ptVoices),// sndRegret
       
   169             (FileName:            'Enemydown.ogg'; Path: ptVoices),// sndEnemyDown
       
   170             (FileName:               'Coward.ogg'; Path: ptVoices),// sndCoward
       
   171             (FileName:                'Hurry.ogg'; Path: ptVoices),// sndHurry
       
   172             (FileName:              'Watchit.ogg'; Path: ptVoices),// sndWatchIt
       
   173             (FileName:             'Kamikaze.ogg'; Path: ptVoices),// sndKamikaze
       
   174             (FileName:                'cake2.ogg'; Path: ptSounds),// sndCake
       
   175             (FileName:                  'Ow1.ogg'; Path: ptVoices),// sndOw1
       
   176             (FileName:                  'Ow2.ogg'; Path: ptVoices),// sndOw2
       
   177             (FileName:                  'Ow3.ogg'; Path: ptVoices),// sndOw3
       
   178             (FileName:                  'Ow4.ogg'; Path: ptVoices),// sndOw4
       
   179             (FileName:           'Firepunch1.ogg'; Path: ptVoices),// sndFirepunch1
       
   180             (FileName:           'Firepunch2.ogg'; Path: ptVoices),// sndFirepunch2
       
   181             (FileName:           'Firepunch3.ogg'; Path: ptVoices),// sndFirepunch3
       
   182             (FileName:           'Firepunch4.ogg'; Path: ptVoices),// sndFirepunch4
       
   183             (FileName:           'Firepunch5.ogg'; Path: ptVoices),// sndFirepunch5
       
   184             (FileName:           'Firepunch6.ogg'; Path: ptVoices),// sndFirepunch6
       
   185             (FileName:                'Melon.ogg'; Path: ptVoices),// sndMelon
       
   186             (FileName:              'Hellish.ogg'; Path: ptSounds),// sndHellish
       
   187             (FileName:               'Yoohoo.ogg'; Path: ptSounds),// sndYoohoo
       
   188             (FileName:              'rcplane.ogg'; Path: ptSounds),// sndRCPlane
       
   189             (FileName:            'whipcrack.ogg'; Path: ptSounds),// sndWhipCrack
       
   190             (FileName:'ride_of_the_valkyries.ogg'; Path: ptSounds),// sndRideOfTheValkyries
       
   191             (FileName:               'denied.ogg'; Path: ptSounds),// sndDenied
       
   192             (FileName:               'placed.ogg'; Path: ptSounds),// sndPlaced
       
   193             (FileName:          'baseballbat.ogg'; Path: ptSounds),// sndBaseballBat
       
   194             (FileName:                'steam.ogg'; Path: ptSounds),// sndVaporize
       
   195             (FileName:                 'warp.ogg'; Path: ptSounds),// sndWarp
       
   196             (FileName:          'suddendeath.ogg'; Path: ptSounds),// sndSuddenDeath
       
   197             (FileName:               'mortar.ogg'; Path: ptSounds),// sndMortar
       
   198             (FileName:         'shutterclick.ogg'; Path: ptSounds),// sndShutter
       
   199             (FileName:              'homerun.ogg'; Path: ptSounds),// sndHomerun
       
   200             (FileName:              'molotov.ogg'; Path: ptSounds),// sndMolotov
       
   201             (FileName:            'Takecover.ogg'; Path: ptVoices),// sndCover
       
   202             (FileName:                'Uh-oh.ogg'; Path: ptVoices),// sndUhOh
       
   203             (FileName:                 'Oops.ogg'; Path: ptVoices),// sndOops
       
   204             (FileName:                 'Nooo.ogg'; Path: ptVoices),// sndNooo
       
   205             (FileName:                'Hello.ogg'; Path: ptVoices),// sndHello
       
   206             (FileName:             'ropeshot.ogg'; Path: ptSounds),// sndRopeShot
       
   207             (FileName:           'ropeattach.ogg'; Path: ptSounds),// sndRopeAttach
       
   208             (FileName:          'roperelease.ogg'; Path: ptSounds),// sndRopeRelease
       
   209             (FileName:            'switchhog.ogg'; Path: ptSounds),// sndSwitchHog
       
   210             (FileName:              'Victory.ogg'; Path: ptVoices),// sndVictory
       
   211             (FileName:             'Flawless.ogg'; Path: ptVoices),// sndFlawless
       
   212             (FileName:         'sniperreload.ogg'; Path: ptSounds),// sndSniperReload
       
   213             (FileName:                'steps.ogg'; Path: ptSounds),// sndSteps
       
   214             (FileName:           'lowgravity.ogg'; Path: ptSounds),// sndLowGravity
       
   215             (FileName:           'hell_growl.ogg'; Path: ptSounds),// sndHellishImpact1
       
   216             (FileName:            'hell_ooff.ogg'; Path: ptSounds),// sndHellishImpact2
       
   217             (FileName:              'hell_ow.ogg'; Path: ptSounds),// sndHellishImpact3
       
   218             (FileName:             'hell_ugh.ogg'; Path: ptSounds),// sndHellishImpact4
       
   219             (FileName:          'melonimpact.ogg'; Path: ptSounds),// sndMelonImpact
       
   220             (FileName:             'Droplet1.ogg'; Path: ptSounds),// sndDroplet1
       
   221             (FileName:             'Droplet2.ogg'; Path: ptSounds),// sndDroplet2
       
   222             (FileName:             'Droplet3.ogg'; Path: ptSounds),// sndDroplet3
       
   223             (FileName:                  'egg.ogg'; Path: ptSounds),// sndEggBreak
       
   224             (FileName:             'drillgun.ogg'; Path: ptSounds),// sndDrillRocket
       
   225             (FileName:          'PoisonCough.ogg'; Path: ptVoices),// sndPoisonCough
       
   226             (FileName:           'PoisonMoan.ogg'; Path: ptVoices),// sndPoisonMoan
       
   227             (FileName:             'BirdyLay.ogg'; Path: ptSounds),// sndBirdyLay
       
   228             (FileName:              'Whistle.ogg'; Path: ptSounds),// sndWhistle
       
   229             (FileName:             'beewater.ogg'; Path: ptSounds),// sndBeeWater
       
   230             (FileName:                   '1C.ogg'; Path: ptSounds),// sndPiano0
       
   231             (FileName:                   '2D.ogg'; Path: ptSounds),// sndPiano1
       
   232             (FileName:                   '3E.ogg'; Path: ptSounds),// sndPiano2
       
   233             (FileName:                   '4F.ogg'; Path: ptSounds),// sndPiano3
       
   234             (FileName:                   '5G.ogg'; Path: ptSounds),// sndPiano4
       
   235             (FileName:                   '6A.ogg'; Path: ptSounds),// sndPiano5
       
   236             (FileName:                   '7B.ogg'; Path: ptSounds),// sndPiano6
       
   237             (FileName:                   '8C.ogg'; Path: ptSounds),// sndPiano7
       
   238             (FileName:                   '9D.ogg'; Path: ptSounds),// sndPiano8
       
   239             (FileName:                 'skip.ogg'; Path: ptSounds),// sndSkip
       
   240             (FileName:              'sinegun.ogg'; Path: ptSounds),// sndSineGun
       
   241             (FileName:                'Ooff1.ogg'; Path: ptVoices),// sndOoff1
       
   242             (FileName:                'Ooff2.ogg'; Path: ptVoices),// sndOoff2
       
   243             (FileName:                'Ooff3.ogg'; Path: ptVoices),// sndOoff3
       
   244             (FileName:               'hammer.ogg'; Path: ptSounds),// sndWhack
       
   245             (FileName:           'Comeonthen.ogg'; Path: ptVoices),// sndComeonthen
       
   246             (FileName:            'parachute.ogg'; Path: ptSounds),// sndParachute
       
   247             (FileName:                 'bump.ogg'; Path: ptSounds),// sndBump
       
   248             (FileName:            'hogchant3.ogg'; Path: ptSounds),// sndResurrector
       
   249             (FileName:                'plane.ogg'; Path: ptSounds),// sndPlane
       
   250             (FileName:               'TARDIS.ogg'; Path: ptSounds) // sndTardis
       
   251             );
       
   252 
   123 
   253 
   124 
   254 
   125 function  AskForVoicepack(name: shortstring): Pointer;
   255 function  AskForVoicepack(name: shortstring): Pointer;
   126 var i: Longword;
   256 var i: Longword;
   127     locName, path: shortstring;
   257     locName, path: shortstring;