hedgewars/uSound.pas
changeset 2501 51ebab1b446d
parent 2494 1e10a47cabea
child 2515 51d3f4b6293a
equal deleted inserted replaced
2500:31ba68a50208 2501:51ebab1b446d
   193 Mus:= oalb_loadfile(Str2PChar(s));
   193 Mus:= oalb_loadfile(Str2PChar(s));
   194 TryDo(Mus >= 0, msgFailed, false);
   194 TryDo(Mus >= 0, msgFailed, false);
   195 WriteLnToConsole(msgOK);
   195 WriteLnToConsole(msgOK);
   196 
   196 
   197 oalb_playsound(Mus, 1);
   197 oalb_playsound(Mus, 1);
   198 oalb_fadein(Mus, 50);
   198 oalb_fadein(Mus, 20);
   199 end;
   199 end;
   200 
   200 
   201 function ChangeVolume(voldelta: LongInt): LongInt;
   201 function ChangeVolume(voldelta: LongInt): LongInt;
   202 begin
   202 begin
   203 if not isSoundEnabled then exit(0);
   203 if not isSoundEnabled then exit(0);