hedgewars/uSound.pas
changeset 70 82d93eeecebe
parent 53 0e27949850e3
child 97 e7c1df9cce2c
equal deleted inserted replaced
69:d8a526934b9f 70:82d93eeecebe
    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[Soundz[i].Path] + '/' + 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;