anchor.diff:      if InRange(aVolume, 0, 1) then
         Result := gScriptSounds.AddSound(aPlayer, aFileName, afOgg, KMPOINT_ZERO, False, aVolume, 0, False, True)
       else
  -      LogParamWarning('Actions.PlayWAVLooped: ' + UnicodeString(aFileName), []);
  +      LogParamWarning('Actions.PlayOGGLooped: ' + UnicodeString(aFileName), []);
     except
       gScriptEvents.ExceptionOutsideScript := True; //Don't blame script for this exception
       raise;
  
positive.code:     if InRange(aVolume, 0, 1) then
        Result := gScriptSounds.AddSound(aPlayer, aFileName, afOgg, KMPOINT_ZERO, False, aVolume, 0, True, False)
      else
        LogParamWarning('Actions.PlayWAVFadeMusic: ' + UnicodeString(aFileName), []);
    except
      gScriptEvents.ExceptionOutsideScript := True; //Don't blame script for this exception
      raise;
  
negative.code: procedure TKMScriptActions.StopSound(aSoundIndex: Integer);
  begin
    try
      if aSoundIndex > 0 then
        gScriptSounds.RemoveSoundByUID(aSoundIndex)
      else
        LogParamWarning('Actions.StopSound', [aSoundIndex]);
    except
      gScriptEvents.ExceptionOutsideScript := True; //Don't blame script for this exception
      raise;
  