hedgewars/uSound.pas
changeset 4404 6bae4e9461aa
parent 4403 0dfe26f48ec1
child 4461 2f4f5d649bcd
equal deleted inserted replaced
4403:0dfe26f48ec1 4404:6bae4e9461aa
    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, uIO, uCommands, uDebug;
    49 uses uVariables, uConsole, uUtils, uCommands, uDebug;
    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;