hedgewars/uSound.pas
changeset 97 e7c1df9cce2c
parent 70 82d93eeecebe
child 174 0b2c5b22f644
equal deleted inserted replaced
96:aeeb4da6b157 97:e7c1df9cce2c
    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;
    86 
    86 
    87 s:= 'Data/Music/kahvi140a_alexander_chereshnev-illusion.ogg';
    87 s:= PathPrefix + 'Data/Music/kahvi140a_alexander_chereshnev-illusion.ogg';
    88 WriteToConsole(msgLoading + s + ' ');
    88 WriteToConsole(msgLoading + s + ' ');
    89 Mus:= Mix_LoadMUS(PChar(s));
    89 Mus:= Mix_LoadMUS(PChar(s));
    90 TryDo(Mus <> nil, msgFailed, false);
    90 TryDo(Mus <> nil, msgFailed, false);
    91 WriteLnToConsole(msgOK)
    91 WriteLnToConsole(msgOK)
    92 end;
    92 end;