equal
deleted
inserted
replaced
28 chunks: array [TSound] of PMixChunk; |
28 chunks: array [TSound] of PMixChunk; |
29 end; |
29 end; |
30 |
30 |
31 var MusicFN: shortstring; |
31 var MusicFN: shortstring; |
32 |
32 |
33 procedure init_uSound; |
33 procedure initModule; |
34 procedure free_uSound; |
34 procedure freeModule; |
35 |
35 |
36 procedure InitSound; |
36 procedure InitSound; |
37 procedure ReleaseSound; |
37 procedure ReleaseSound; |
38 procedure SoundLoad; |
38 procedure SoundLoad; |
39 procedure PlaySound(snd: TSound); |
39 procedure PlaySound(snd: TSound); |
247 if (MusicFN = '') or (not isMusicEnabled) then exit; |
247 if (MusicFN = '') or (not isMusicEnabled) then exit; |
248 |
248 |
249 Mix_ResumeMusic(Mus); |
249 Mix_ResumeMusic(Mus); |
250 end; |
250 end; |
251 |
251 |
252 procedure init_uSound; |
252 procedure initModule; |
253 begin |
253 begin |
254 MusicFN:=''; |
254 MusicFN:=''; |
255 end; |
255 end; |
256 |
256 |
257 procedure free_uSound; |
257 procedure freeModule; |
258 begin |
258 begin |
259 |
259 |
260 end; |
260 end; |
261 |
261 |
262 end. |
262 end. |