equal
deleted
inserted
replaced
61 Mix_CloseAudio |
61 Mix_CloseAudio |
62 end; |
62 end; |
63 |
63 |
64 procedure SoundLoad; |
64 procedure SoundLoad; |
65 var i: TSound; |
65 var i: TSound; |
66 s: array[byte] of char; |
66 s: shortstring; |
67 begin |
67 begin |
68 if not isSoundEnabled then exit; |
68 if not isSoundEnabled then exit; |
69 for i:= Low(TSound) to High(TSound) do |
69 for i:= Low(TSound) to High(TSound) do |
70 begin |
70 begin |
71 s:= Pathz[Soundz[i].Path] + '/' + Soundz[i].FileName; |
71 s:= Pathz[Soundz[i].Path] + '/' + Soundz[i].FileName; |
72 WriteToConsole(msgLoading + string(s) + ' '); |
72 WriteToConsole(msgLoading + s + ' '); |
73 Soundz[i].id:= Mix_LoadWAV_RW(SDL_RWFromFile(@s, 'rb'), 1); |
73 Soundz[i].id:= Mix_LoadWAV_RW(SDL_RWFromFile(Str2PChar(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 + '/Music/kahvi140a_alexander_chereshnev-illusion.ogg'; |
78 s:= PathPrefix + '/Music/kahvi140a_alexander_chereshnev-illusion.ogg'; |