hedgewars/uSound.pas
changeset 4403 0dfe26f48ec1
parent 4398 36d7e4b6ca81
child 4404 6bae4e9461aa
equal deleted inserted replaced
4402:54a78ec6aac4 4403:0dfe26f48ec1
    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;
    49 uses uMisc, uVariables, uConsole, uUtils, uIO, 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;