Volume Leveler?

HotKeySet("{ESC}", "_Exit")
 
Global $iLimit = 60 ; Limit in Db
 
While 1
    $iCurVol = _Function_To_Get_Current_Playback_Volume() ; Gets the current playback volume in Db (loudness)
    If $iCurVol > $iLimit Then
        Do
            $iVol = _Function_To_Get_Master_Volume() ; Returns the master vol in %
            _Function_To_Set_Master_Volume($iVol - 1) ; Sets the master vol in %
        Until _Function_To_Get_Current_Playback_Volume() = $iLimit
    ElseIf $iCurVol < $iLimit Then
        Do
            $iVol = _Function_To_Get_Master_Volume() ; Returns the master vol in %
            _Function_To_Set_Master_Volume($iVol - 1) ; Sets the master vol in %
        Until _Function_To_Get_Current_Playback_Volume() = $iLimit
    EndIf
    Sleep(100) ; Check every 100 ms to reduce CPU load
WEnd
 
Func _Exit()
    Exit
EndFunc   ;==>_Exit