anchor.diff:    if not BASS_Init(-1, 44100, 0, 0, nil) then
     begin
       gLog.AddTime('Failed to initialize the music playback device');
  -    IsMusicInitialized := False;
  -  end;
  -  {$ENDIF}
  -
  -  UpdateMusicVolume(aVolume);
  +    fIsMusicInitialized := False;
  +  end;
  +  {$ENDIF}
  +
  +  SetVolume(aVolume);
   
     // Initialise TrackOrder
     for I := 0 to fMusicCount - 1 do
  
positive.code:   ;
  
  type
    TKMFadeState = (fsNone, fsFadeOut, fsFadeIn, fsFaded);
  
    TKMMusicLib = class
    private
  
negative.code: 
  
  function TKMMusicLib.PlayMusicFile(const FileName: UnicodeString): Boolean;
  {$IFDEF USEBASS}
  var
    errorCode: Integer;
  {$ENDIF}
  begin
    Result := False;
    if not fIsMusicInitialized then Exit;
    if fFadeState <> fsNone then exit; //Don't start a new track while fading or faded
  
    //Cancel previous sound
  