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 	{$linklib openal}

    30 	{$linklib openal}

    30 	{$linklib ogg}

    31 	{$linklib ogg}

    31 	{$linklib vorbis}

    32 	{$linklib vorbis}

    32 	{$linklib vorbisfile}

    33 	{$linklib vorbisfile}

    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);

   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