hedgewars/uSound.pas
changeset 53 0e27949850e3
parent 13 7a5db822fd3f
child 70 82d93eeecebe
equal deleted inserted replaced
52:ae2950c5465c 53:0e27949850e3
    75     s: string;
    75     s: string;
    76 begin
    76 begin
    77 if not isSoundEnabled then exit;
    77 if not isSoundEnabled then exit;
    78 for i:= Low(TSound) to High(TSound) do
    78 for i:= Low(TSound) to High(TSound) do
    79     begin
    79     begin
    80     s:= Pathz[ptSounds] + Soundz[i].FileName;
    80     s:= Pathz[ptSounds] + '/' + Soundz[i].FileName;
    81     WriteToConsole(msgLoading + s + ' ');
    81     WriteToConsole(msgLoading + s + ' ');
    82     Soundz[i].id:= Mix_LoadWAV_RW(SDL_RWFromFile(PChar(s), 'rb'), 1);
    82     Soundz[i].id:= Mix_LoadWAV_RW(SDL_RWFromFile(PChar(s), 'rb'), 1);
    83     TryDo(Soundz[i].id <> nil, msgFailed, true);
    83     TryDo(Soundz[i].id <> nil, msgFailed, true);
    84     WriteLnToConsole(msgOK);
    84     WriteLnToConsole(msgOK);
    85     end;
    85     end;