hedgewars/uSound.pas
changeset 4377 43945842da0c
parent 4374 bcefeeabaa33
child 4398 36d7e4b6ca81
equal deleted inserted replaced
4376:9654205a9424 4377:43945842da0c
    44 function  ChangeVolume(voldelta: LongInt): LongInt;
    44 function  ChangeVolume(voldelta: LongInt): LongInt;
    45 function  AskForVoicepack(name: shortstring): Pointer;
    45 function  AskForVoicepack(name: shortstring): Pointer;
    46 
    46 
    47 
    47 
    48 implementation
    48 implementation
    49 uses uMisc, uVariables, uConsole, uUtils;
    49 uses uMisc, uVariables, uConsole, uUtils, uIO;
    50 
    50 
    51 const chanTPU = 32;
    51 const chanTPU = 32;
    52 var Volume: LongInt;
    52 var Volume: LongInt;
    53     lastChan: array [TSound] of LongInt;
    53     lastChan: array [TSound] of LongInt;
    54     voicepacks: array[0..cMaxTeams] of TVoicepack;
    54     voicepacks: array[0..cMaxTeams] of TVoicepack;