anchor.diff:      procedure SetMuted(const aMuted: Boolean);
   
       function GetPrevVolume: Single;
  +    function GetIsReady: Boolean;
   
       property PrevVolume: Single read GetPrevVolume write fPrevVolume;
  +
  +    procedure Init;
     public
       constructor Create(aVolume: Single);
       destructor Destroy; override;
  
positive.code:       Ori: array [1..6] of TALfloat; //Orientation LookingAt and UpVector
      end;
      fIsSoundInitialized: Boolean;
  
      fALSounds: array [0..MAX_SOUNDS-1] of record
        ALBuffer: TALuint;
  
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;
  