hedgewars/uSound.pas
changeset 3418 8545f646a40d
parent 3202 b470d7875f23
child 3529 0e968ba12a84
equal deleted inserted replaced
3417:27ff4a6375dd 3418:8545f646a40d
    52 
    52 
    53 
    53 
    54 implementation
    54 implementation
    55 uses uMisc, uConsole;
    55 uses uMisc, uConsole;
    56 
    56 
    57 const chanTPU = 12;
    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;
    61     defVoicepack: PVoicepack;
    61     defVoicepack: PVoicepack;
    62     Mus: PMixMusic = nil;
    62     Mus: PMixMusic = nil;