you could use $rand:
$rand(v1,v2)
This works in two ways. If you supply it with numbers for v1 and v2, it returns a random number between v1 and v2. If you supply it with letters, it returns a random letter between letters v1 and v2.
and then test the value returend and if it is '8' then call $rand again..
ie: set %color1 $rand(1,15) (valid values are 0 to 15 but you do not want to use 0)
Hope this helps.