equal
deleted
inserted
replaced
204 if not isSoundEnabled then exit; |
204 if not isSoundEnabled then exit; |
205 if (chn <> -1) and (Mix_Playing(chn) <> 0) then Mix_HaltChannel(chn); |
205 if (chn <> -1) and (Mix_Playing(chn) <> 0) then Mix_HaltChannel(chn); |
206 end; |
206 end; |
207 |
207 |
208 procedure PlayMusic; |
208 procedure PlayMusic; |
209 var s: string; |
209 var s: shortstring; |
210 begin |
210 begin |
211 if (not isSoundEnabled) |
211 if (not isSoundEnabled) |
212 or (MusicFN = '') |
212 or (MusicFN = '') |
213 or (not isMusicEnabled) then exit; |
213 or (not isMusicEnabled) then exit; |
214 |
214 |