since there were some problems about the rating. these are the exact ratingranges:
-1 = Unknown
0-5 (0) = Bomb
6-15 (10) = 0.5*
16-25 (20) = 1*
26-35 (30) = 1.5*
36-45 (40) = 2*
46-55 (50) = 2.5*
56-65 (60) = 3*
66-75 (70) = 3.5*
76-85 (80) = 4*
86-95 (90) = 4.5*
96-100 (100) = 5*
Would be nice if you could implement them, since AutoRateAccurate uses a bit special ratings...
Here's a function I wrote for MonkeyRok to get the stars. Maybe this helps you a bit:
Code: Select all
'star images
Function ImagesForRating(rating)
Dim temp : temp = Int(rating)
If temp < 0 Then
ImagesForRating = "<image src='unknown.gif'>"
Exit Function
End If
If temp >= 0 and temp < 6 Then
ImagesForRating = "<image src='bomb.gif'>"
Exit Function
End If
Do While temp > 15
ImagesForRating = ImagesForRating&"<image src='star.gif'>"
temp = temp - 20
Loop
If temp > 5 Then
ImagesForRating = ImagesForRating&"<image src='star_half.gif'>"
End If
End Function