72 

    72 

    73 var MusicFN: shortstring = '';

    73 var MusicFN: shortstring = '';

    74 

    74 

    75 implementation

    75 implementation

    76 

    76 

    78 

    78 

    79 const chanTPU = 12;

    79 const chanTPU = 12;

    80 var	lastChan: array [TSound] of LongInt;

    80 var	lastChan: array [TSound] of LongInt;

    81 	voicepacks: array[0..cMaxTeams] of TVoicepack;

    81 	voicepacks: array[0..cMaxTeams] of TVoicepack;

    82 	defVoicepack: PVoicepack;

    82 	defVoicepack: PVoicepack;

   146 				if voicepacks[t].chunks[i] < 0 then

   146 				if voicepacks[t].chunks[i] < 0 then

   147 					WriteLnToConsole(msgFailed)

   147 					WriteLnToConsole(msgFailed)

   148 				else

   148 				else

   149 					WriteLnToConsole(msgOK)

   149 					WriteLnToConsole(msgOK)

   150 				end;

   150 				end;

   151 end;

   153 end;

   152 

   154 

   153 procedure PlaySound(snd: TSound; infinite: boolean; voicepack: PVoicepack);

   155 procedure PlaySound(snd: TSound; infinite: boolean; voicepack: PVoicepack);

   154 begin

   156 begin

   155 if (not isSoundEnabled) or fastUntilLag then exit;

   157 if (not isSoundEnabled) or fastUntilLag then exit;