Ok, since I am very new to scripting (a pro at installing them, but not a coder for sure
) - there is probably a better way to do this, but:
Just for kicks, I modified my Radio Announcer to quote the string for rating along with the artist/title.
This allows me to monitor the auto-ratings (or see if the song is rated or not) whilst I'm away from the machine.
Question: Is there a way to quote ratings without "plaintexting" them like I am doing in code snippet below? Using Itm.Rating of course quotes MM's version of the rating (20 stars, 80 stars and so forth).
Code:
Code: Select all
If Itm.Rating = -1 Then
SayThis = Itm.ArtistName & ", " & Itm.Title & ". " & "Not yet rated."
End If
If Itm.Rating = 100 Then
SayThis = Itm.ArtistName & ", " & Itm.Title & ". " & "5 Stars."
End If
If Itm.Rating = 90 Then
SayThis = Itm.ArtistName & ", " & Itm.Title & ". " & "4.5 stars."
End If
If Itm.Rating = 80 Then
SayThis = Itm.ArtistName & ", " & Itm.Title & ". " & "4 stars."
End If
If Itm.Rating = 70 Then
SayThis = Itm.ArtistName & ", " & Itm.Title & ". " & "3.5 stars."
End If
If Itm.Rating = 60 Then
SayThis = Itm.ArtistName & ", " & Itm.Title & ". " & "3 stars."
End If
If Itm.Rating = 50 Then
SayThis = Itm.ArtistName & ", " & Itm.Title & ". " & "2.5 stars."
End If
If Itm.Rating = 40 Then
SayThis = Itm.ArtistName & ", " & Itm.Title & ". " & "2 stars."
End If
If Itm.Rating = 30 Then
SayThis = Itm.ArtistName & ", " & Itm.Title & ". " & "1.5 stars."
End If
If Itm.Rating = 20 Then
SayThis = Itm.ArtistName & ", " & Itm.Title & ". " & "1 stars."
End If
If Itm.Rating = 10 Then
SayThis = Itm.ArtistName & ", " & Itm.Title & ". " & ".5 stars."
End If
If Itm.Rating = 0 Then
SayThis = Itm.ArtistName & ", " & Itm.Title & ". " & "This song is a bomb."
End If