anchor.diff:      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;
  +  end;
   
   
   var
  
positive.code: procedure TSoundLib.PlayCitizen(aUnitType:TUnitType; aSound:TWarriorSpeech; aLoc:TKMPoint);
  var Wave:string; HasLoc:boolean; SoundID: byte;
  begin
    if not fIsSoundInitialized then exit;
    if not (aUnitType in [CITIZEN_MIN..CITIZEN_MAX]) then exit;
  
    if aSound = sp_Death then
      SoundID := CitizenSFX[aUnitType].DeathID
  
negative.code: {Wrapper with fewer options for non-attenuated sounds}
  procedure TSoundLib.Play(SoundID:TSoundFX; const Volume:single=1.0);
  begin
    if not fIsSoundInitialized then Exit;
    Play(SoundID, KMPoint(0,0), false, Volume); //Redirect
  end;
  
  