hedgewars/uSound.pas
changeset 11532 bf86c6cb9341
parent 11507 bd9a2f1b0080
child 11663 0427a9b6457b
child 11765 10860d4bca22
equal deleted inserted replaced
11531:d1cf1ff6cabb 11532:bf86c6cb9341
   288         path:= cPathz[ptVoices] + '/Default';
   288         path:= cPathz[ptVoices] + '/Default';
   289         if pfsExists(path) then
   289         if pfsExists(path) then
   290             exit(AskForVoicepack('Default'));
   290             exit(AskForVoicepack('Default'));
   291         end;
   291         end;
   292 
   292 
   293     while (voicepacks[i].name <> name) and (voicepacks[i].name <> '') do
   293     while (voicepacks[i].name <> name) and (voicepacks[i].name <> '') and (i < cMaxTeams) do
   294         begin
   294         begin
   295         inc(i);
   295         inc(i);
   296         TryDo(i <= cMaxTeams, 'Engine bug: AskForVoicepack i > cMaxTeams', true)
   296         //TryDo(i <= cMaxTeams, 'Engine bug: AskForVoicepack i > cMaxTeams', true)
   297         end;
   297         end;
   298 
   298 
   299     voicepacks[i].name:= name;
   299     voicepacks[i].name:= name;
   300     AskForVoicepack:= @voicepacks[i]
   300     AskForVoicepack:= @voicepacks[i]
   301 end;
   301 end;