anchor.diff:  { Update sound gain (global volume for all sounds) }
   procedure TSoundLib.UpdateSoundVolume(Value:single);
   begin
  -  if not fIsSoundInitialized then exit;
  +  if not fIsSoundInitialized then Exit;
     fSoundGain := Value;
     //alListenerf(AL_GAIN, fSoundGain); //Set in source property
   end;
  
positive.code:     procedure Play(SoundID:TSoundFX; Loc:TKMPoint; const Attenuated:boolean=true; const Volume:single=1.0); overload;
      procedure Play(const aFile:string; Loc:TKMPoint; const Attenuated:boolean=true; const Volume:single=1.0); overload;
      procedure Paint;
  end;
  
  
  var
  
negative.code: procedure TSoundLib.PlayNotification(aSound:TAttackNotification);
  var Wave:string; Count:byte;
  begin
    if not fIsSoundInitialized then Exit;
  
    Count := fNotificationSoundCount[aSound];
  
  