hedgewars/uSound.pas
changeset 4359 83ef50815535
parent 4357 a1fcfc341a52
child 4361 64ea345ab655
equal deleted inserted replaced
4357:a1fcfc341a52 4359:83ef50815535
    50 function  ChangeVolume(voldelta: LongInt): LongInt;
    50 function  ChangeVolume(voldelta: LongInt): LongInt;
    51 function  AskForVoicepack(name: shortstring): Pointer;
    51 function  AskForVoicepack(name: shortstring): Pointer;
    52 
    52 
    53 
    53 
    54 implementation
    54 implementation
    55 uses uMisc, uConsole;
    55 uses uMisc, uVariables, uConsole;
    56 
    56 
    57 const chanTPU = 32;
    57 const chanTPU = 32;
    58 var Volume: LongInt;
    58 var Volume: LongInt;
    59     lastChan: array [TSound] of LongInt;
    59     lastChan: array [TSound] of LongInt;
    60     voicepacks: array[0..cMaxTeams] of TVoicepack;
    60     voicepacks: array[0..cMaxTeams] of TVoicepack;