equal
deleted
inserted
replaced
107 |
107 |
108 Mus:= Mix_LoadMUS(Str2PChar(s)); |
108 Mus:= Mix_LoadMUS(Str2PChar(s)); |
109 TryDo(Mus <> nil, msgFailed, false); |
109 TryDo(Mus <> nil, msgFailed, false); |
110 WriteLnToConsole(msgOK); |
110 WriteLnToConsole(msgOK); |
111 |
111 |
112 Mix_PlayMusic(Mus, -1) |
112 SDLTry(Mix_FadeInMusic(Mus, -1, 3000) <> -1, false) |
113 end; |
113 end; |
114 |
114 |
115 function ChangeVolume(voldelta: LongInt): LongInt; |
115 function ChangeVolume(voldelta: LongInt): LongInt; |
116 begin |
116 begin |
117 if not isSoundEnabled then |
117 if not isSoundEnabled then |