equal
deleted
inserted
replaced
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 + '/Music/kahvi140a_alexander_chereshnev-illusion.ogg'; |
78 s:= PathPrefix + '/Music/kahvi140a_alexander_chereshnev-illusion.ogg'; |
79 WriteToConsole(msgLoading + string(s) + ' '); |
79 WriteToConsole(msgLoading + s + ' '); |
80 Mus:= Mix_LoadMUS(@s); |
80 Mus:= Mix_LoadMUS(Str2PChar(s)); |
81 TryDo(Mus <> nil, msgFailed, false); |
81 TryDo(Mus <> nil, msgFailed, false); |
82 WriteLnToConsole(msgOK) |
82 WriteLnToConsole(msgOK) |
83 end; |
83 end; |
84 |
84 |
85 procedure PlaySound(snd: TSound; infinite: boolean); |
85 procedure PlaySound(snd: TSound; infinite: boolean); |