anchor.diff:  
   
   { Update sound gain (global volume for all sounds) }
  -procedure TKMSoundPlayer.UpdateSoundVolume(Value: Single);
  +procedure TKMSoundPlayer.UpdateSoundVolume(aValue: Single);
   
     procedure UpdateSound(aI: Integer);
     begin
  
positive.code:     procedure PlayCitizen(aUnitType: TKMUnitType; aSound: TWarriorSpeech; const aLoc: TKMPointF); overload;
      procedure PlayWarrior(aUnitType: TKMUnitType; aSound: TWarriorSpeech); overload;
      procedure PlayWarrior(aUnitType: TKMUnitType; aSound: TWarriorSpeech; const aLoc: TKMPointF); overload;
      procedure Play(SoundID: TSoundFX; Volume: Single = 1); overload;
      procedure Play(SoundID: TSoundFX; Loc: TKMPoint; Attenuated: Boolean = True; Volume: Single = 1); overload;
      procedure Play(SoundID: TSoundFX; Loc: TKMPointF; Attenuated: Boolean = True; Volume: Single = 1); overload;
  
      procedure Play(SoundID: TSoundFXNew; Volume:Single = 1; FadeMusic: Boolean = False); overload;
      procedure Play(SoundID: TSoundFXNew; Loc: TKMPoint; Attenuated: Boolean = True; Volume: Single = 1; FadeMusic: Boolean = False); overload;
  
      function PlayScriptSound(const aFile: UnicodeString; aLoc: TKMPointF; aAttenuate: Boolean; aVolume: Single; aRadius: Single; aFadeMusic, aLooped: Boolean): Integer;
      procedure StopScriptSound(aIndex: Integer);
  
negative.code:     procedure AbortAllLongSounds;
  
      procedure UpdateListener(X,Y: Single);
      procedure UpdateSoundVolume(aValue: Single);
  
      function IsScriptSoundPlaying(aScriptIndex: Integer): Boolean;
  
  