hedgewars/uSound.pas
changeset 287 b0eef98928f8
parent 282 b1e3387389b6
child 351 29bc9c36ad5f
equal deleted inserted replaced
286:6aa69a531d50 287:b0eef98928f8
    73     Soundz[i].id:= Mix_LoadWAV_RW(SDL_RWFromFile(PChar(s), 'rb'), 1);
    73     Soundz[i].id:= Mix_LoadWAV_RW(SDL_RWFromFile(PChar(s), 'rb'), 1);
    74     TryDo(Soundz[i].id <> nil, msgFailed, true);
    74     TryDo(Soundz[i].id <> nil, msgFailed, true);
    75     WriteLnToConsole(msgOK);
    75     WriteLnToConsole(msgOK);
    76     end;
    76     end;
    77 
    77 
    78 s:= PathPrefix + 'Data/Music/kahvi140a_alexander_chereshnev-illusion.ogg';
    78 s:= PathPrefix + '/Music/kahvi140a_alexander_chereshnev-illusion.ogg';
    79 WriteToConsole(msgLoading + s + ' ');
    79 WriteToConsole(msgLoading + s + ' ');
    80 Mus:= Mix_LoadMUS(PChar(s));
    80 Mus:= Mix_LoadMUS(PChar(s));
    81 TryDo(Mus <> nil, msgFailed, false);
    81 TryDo(Mus <> nil, msgFailed, false);
    82 WriteLnToConsole(msgOK)
    82 WriteLnToConsole(msgOK)
    83 end;
    83 end;