hedgewars/uSound.pas
changeset 2328 e74f2db28b21
parent 2327 4832b77ec958
child 2390 57fb33ab04a4
equal deleted inserted replaced
2327:4832b77ec958 2328:e74f2db28b21
   201 
   201 
   202 Mus:= openal_loadfile(Str2PChar(s));
   202 Mus:= openal_loadfile(Str2PChar(s));
   203 TryDo(Mus >= 0, msgFailed, false);
   203 TryDo(Mus >= 0, msgFailed, false);
   204 WriteLnToConsole(msgOK);
   204 WriteLnToConsole(msgOK);
   205 
   205 
   206 //openal_setvolume(Mus, cInitVolume-40);
       
   207 openal_fadein(Mus, 20);
   206 openal_fadein(Mus, 20);
   208 openal_toggleloop(Mus);
   207 openal_toggleloop(Mus);
   209 end;
   208 end;
   210 
   209 
   211 function ChangeVolume(voldelta: LongInt): LongInt;
   210 function ChangeVolume(voldelta: LongInt): LongInt;