Track info versions:
You'll need this component to run the scripts: http://foobar.bowron.us/foo_cwb_hooks.zip
And now it's already tuned to work with the official foo_playcount.dll.
//Change "decreaserange" value to the desired period after which the rating drops (in days)
$puts(decreaserange,15)
//------------------------------------------------------------------------------
//Change background color
$puts(background,$rgb(122,122,122))
//-----------------------------------------------------------------------------
$puts(sysmonth,$num($substr(%systemdate%,6,7),2))
$puts(sysday,$num($substr(%systemdate%,9,10),2))
$puts(sysyear,$num($substr(%systemdate%,1,4),4))
$puts(month,$mul(30,$get(sysmonth)))
$puts(day,$get(sysday))
$puts(year,$mul(365,$get(sysyear)))
$puts(date,$add($get(month),$get(day),$get(year)))
$puts(symbol,$char(9608))
$puts(fmonth,$mul(30,$num($substr(%first_played%,6,7),2)))
$puts(fday,$num($substr(%first_played%,9,10),2))
$puts(fyear,$mul(365,$num($substr(%first_played%,1,4),4)))
$puts(fdate,$add($get(fmonth),$get(fday),$get(fyear)))
$if($stricmp($get(fdate),0),$puts(fdate,$get(date)))
$puts(daterange,$sub($get(date),$get(fdate)))
$puts(fix,$div($get(daterange),$get(decreaserange)))
$if(%play_count%,$puts(rating,%play_count%),$puts(rating,0))
$if($greater(%play_count%,5),$puts(rating,$sub(5,$get(fix))),
$puts(rating,$sub($get(rating),$get(fix))))
$if($greater(-5,$get(rating)),$puts(rating,-5))
$if($greater($get(rating),5),$puts(rating,5))
$puts(neg,$transition($repeat($get(symbol),5),$rgb(250,0,0),$rgb(250,100,0)))
$puts(pos,$transition($repeat($get(symbol),5),$rgb(100,250,0),$rgb(0,250,0)))
$if($greater(0,$get(rating)),
$get(background)$repeat($get(symbol),$add(5,$get(rating)))
$right($get(neg),$add(2,$mul(9,$mul(-1,$get(rating)))))
$rgb(150,150,0)$get(symbol)
$get(background)$repeat($get(symbol),5),
$if($greater($get(rating),0),
$get(background)$repeat($get(symbol),5)
$rgb(150,150,0)$get(symbol)
$left($get(pos),$mul($get(rating),9))
$get(background)$repeat($get(symbol),$sub(5,$get(rating)))
,
$get(background)$repeat($get(symbol),5)
$rgb(150,150,0)$get(symbol)
$get(background)$repeat($get(symbol),5)
))
//Change "decreaserange" value to the desired period after which the rating drops (in days)
$puts(decreaserange,15)
//------------------------------------------------------------------------------
//Change background color
$puts(background,$rgb(122,122,122))
//-----------------------------------------------------------------------------
$puts(sysmonth,$num($substr(%systemdate%,6,7),2))
$puts(sysday,$num($substr(%systemdate%,9,10),2))
$puts(sysyear,$num($substr(%systemdate%,1,4),4))
$puts(month,$mul(30,$get(sysmonth)))
$puts(day,$get(sysday))
$puts(year,$mul(365,$get(sysyear)))
$puts(date,$add($get(month),$get(day),$get(year)))
$puts(symbol,$char(9608))
$puts(fmonth,$mul(30,$num($substr(%first_played%,6,7),2)))
$puts(fday,$num($substr(%first_played%,9,10),2))
$puts(fyear,$mul(365,$num($substr(%first_played%,1,4),4)))
$puts(fdate,$add($get(fmonth),$get(fday),$get(fyear)))
$if($stricmp($get(fdate),0),$puts(fdate,$get(date)))
$puts(daterange,$sub($get(date),$get(fdate)))
$puts(fix,$div($get(daterange),$get(decreaserange)))
$if(%play_count%,$puts(rating,%play_count%),$puts(rating,0))
$if($greater(%play_count%,5),$puts(rating,$sub(5,$get(fix))),
$puts(rating,$sub($get(rating),$get(fix))))
$if($greater(-5,$get(rating)),$puts(rating,-5))
$if($greater($get(rating),5),$puts(rating,5))
$if($greater(0,$get(rating)),
$rgb(250,0,0)$repeat($char(8595),$mul(-1,$get(rating)))
,$if($greater($get(rating),0),
$rgb(0,250,0)$repeat($char(8593),$get(rating)),
$rgb(250,250,0)$char(8616))
)
//Change "decreaserange" value to the desired period after which the rating drops (in days)
$puts(decreaserange,15)
//------------------------------------------------------------------------------
//Change background color
$puts(background,$rgb(122,122,122))
//-----------------------------------------------------------------------------
$puts(sysmonth,$num($substr(%systemdate%,6,7),2))
$puts(sysday,$num($substr(%systemdate%,9,10),2))
$puts(sysyear,$num($substr(%systemdate%,1,4),4))
$puts(month,$mul(30,$get(sysmonth)))
$puts(day,$get(sysday))
$puts(year,$mul(365,$get(sysyear)))
$puts(date,$add($get(month),$get(day),$get(year)))
$puts(symbol,$char(9608))
$puts(fmonth,$mul(30,$num($substr(%first_played%,6,7),2)))
$puts(fday,$num($substr(%first_played%,9,10),2))
$puts(fyear,$mul(365,$num($substr(%first_played%,1,4),4)))
$puts(fdate,$add($get(fmonth),$get(fday),$get(fyear)))
$if($stricmp($get(fdate),0),$puts(fdate,$get(date)))
$puts(daterange,$sub($get(date),$get(fdate)))
$puts(fix,$div($get(daterange),$get(decreaserange)))
$if(%play_count%,$puts(rating,%play_count%),$puts(rating,0))
$if($greater(%play_count%,5),$puts(rating,$sub(5,$get(fix))),
$puts(rating,$sub($get(rating),$get(fix))))
$if($greater(-5,$get(rating)),$puts(rating,-5))
$if($greater($get(rating),5),$puts(rating,5))
$if($greater(0,$get(rating)),
$get(rating)$rgb(250,0,0)$char(9660)
,$if($greater($get(rating),0),
$get(rating)$rgb(0,250,0)$char(9650),
$rgb(250,250,0)$char(9668)$char(9658))
)