anchor.diff:  function TKMSoundPlayer.GetPrevVolume: Single;
   begin
     Result := IfThen(fPrevVolume = 0, 0.5, fPrevVolume);
  +end;
  +
  +
  +function TKMSoundPlayer.GetIsReady: Boolean;
  +begin
  +  Result := fInitComplete and fIsSoundInitialized;
   end;
   
   
  
positive.code:   end;
    inherited;
  end;
  
  
  procedure TKMSoundPlayer.CheckOpenALError;
  
negative.code:     property Volume: Single read fVolume write UpdateSoundVolume;
      procedure ToggleMuted;
  
      property IsReady: Boolean read GetIsReady;
      property Muted: Boolean read GetMuted write SetMuted;
  
      function IsScriptSoundPlaying(aScriptIndex: Integer): Boolean;
  