So I have been using MediaMonkey for a few days now and am using AutoRateAccurate to rate my songs from 1-5 Stars. I rate songs that I simply don't want to listen to anymore to 0.5 Stars manually.
I have done a quick search for a feature quite similar to the one that is requested in the OP. Since noone has provided you with a script, I have tried it myself for the last 30 minutes. The webhelp is good reference for such things.
This script runs a function every time the current song is changed and checks if the rating is between -1 and 16 (you can change the values in the script file, it's not that hard
).
Refer to
this for the values.
If the rating is in the specified range, the song is skipped.
Simply put the code into a file called SkipBelowRating.vbs and copy it to your Scripts/Auto folder:
Code: Select all
Sub OnStartup
Script.RegisterEvent SDB, "OnPlay", "SkipBelowRating" 'Register SkipBelowRating on OnPlay event
End sub
Sub SkipBelowRating
Dim min_rating
min_rating = 16
If (SDB.Player.CurrentSong.Rating < min_rating) And (SDB.Player.CurrentSong.Rating > -1) Then
SDB.Player.Next
End If
End Sub
Have fun
PS: Just registered! First post - Yay
So I have been using MediaMonkey for a few days now and am using AutoRateAccurate to rate my songs from 1-5 Stars. I rate songs that I simply don't want to listen to anymore to 0.5 Stars manually.
I have done a quick search for a feature quite similar to the one that is requested in the OP. Since noone has provided you with a script, I have tried it myself for the last 30 minutes. The webhelp is good reference for such things.
This script runs a function every time the current song is changed and checks if the rating is between -1 and 16 (you can change the values in the script file, it's not that hard ;)).
Refer to [url=http://www.mediamonkey.com/wiki/index.php/ISDBSongData::Rating]this[/url] for the values.
If the rating is in the specified range, the song is skipped.
Simply put the code into a file called SkipBelowRating.vbs and copy it to your Scripts/Auto folder:
[code]
Sub OnStartup
Script.RegisterEvent SDB, "OnPlay", "SkipBelowRating" 'Register SkipBelowRating on OnPlay event
End sub
Sub SkipBelowRating
Dim min_rating
min_rating = 16
If (SDB.Player.CurrentSong.Rating < min_rating) And (SDB.Player.CurrentSong.Rating > -1) Then
SDB.Player.Next
End If
End Sub
[/code]
Have fun :)
PS: Just registered! First post - Yay :D