Select by color

I did not expect that someone will want script to select by color, then in Max exist "Edit > Select By > Color", but if for some reason you need to do this by script, here's how:

clr = $.wirecolor -- get color from selected
for i in $* where (i.wirecolor == clr) do selectMore i
-- that's all :)