anchor.diff:      AlGenBuffers(1, @Sound[i].ALBuffer);
       AlGenSources(1, @Sound[i].ALSource);
     end;
  +
  +  CheckOpenALError;
  +  if not IsSoundInitialized then exit;
  +
     //Set default Listener orientation
     Listener.Ori[1]:=0; Listener.Ori[2]:=1; Listener.Ori[3]:=0; //Look-at vector
     Listener.Ori[4]:=0; Listener.Ori[5]:=0; Listener.Ori[6]:=1; //Up vector
  
positive.code:     AlutExit();
    end;
    Inherited;
  end;
  
  
  
negative.code:     SoundGain:single; //aka "Global volume"
      WarriorSoundCount: array[15..24, TSoundToPlay] of byte;
      procedure LoadSoundsDAT();
      procedure CheckOpenALError();
      function GetWarriorSoundFile(aUnitType:TUnitType; aSound:TSoundToPlay; aNumber:byte; aLocale:string=''):string;
    public
      constructor Create(aLocale:string; aVolume:single);
  