equal
deleted
inserted
replaced
24 {$linklib openalbridge} |
24 {$linklib openalbridge} |
25 {$linkframework OpenAL} |
25 {$linkframework OpenAL} |
26 {$linkframework Ogg} |
26 {$linkframework Ogg} |
27 {$linkframework Vorbis} |
27 {$linkframework Vorbis} |
28 {$ELSE} |
28 {$ELSE} |
|
29 {$IFNDEF MSVC} |
29 {$linklib openal} |
30 {$linklib openal} |
30 {$linklib ogg} |
31 {$linklib ogg} |
31 {$linklib vorbis} |
32 {$linklib vorbis} |
32 {$linklib vorbisfile} |
33 {$linklib vorbisfile} |
|
34 {$ENDIF} |
33 {$ENDIF} |
35 {$ENDIF} |
34 |
36 |
35 uses uConsts; |
37 uses uConsts; |
36 {$INCLUDE options.inc} |
38 {$INCLUDE options.inc} |
37 |
39 |
184 Mus:= openal_loadfile(Str2PChar(s)); |
186 Mus:= openal_loadfile(Str2PChar(s)); |
185 TryDo(Mus >= 0, msgFailed, false); |
187 TryDo(Mus >= 0, msgFailed, false); |
186 WriteLnToConsole(msgOK); |
188 WriteLnToConsole(msgOK); |
187 |
189 |
188 openal_setvolume(Mus, 60); |
190 openal_setvolume(Mus, 60); |
189 openal_fadein(Mus, 70); |
191 openal_fadein(Mus, 20); |
190 openal_toggleloop(Mus); |
192 openal_toggleloop(Mus); |
191 end; |
193 end; |
192 |
194 |
193 function ChangeVolume(voldelta: LongInt): LongInt; |
195 function ChangeVolume(voldelta: LongInt): LongInt; |
194 begin |
196 begin |