249
@verb #7165:"rgb" any any any rxdo #7165
@program #7165:"rgb" any any any
{r, g, b, ?bits = 16} = args
r = toint(r)
g = toint(g)
b = toint(b)
bits = toint(bits)
if (bits == 16)
  r = r * (2 ^ 5 - 1) / 100
  g = g * (2 ^ 6 - 1) / 100
  b = b * (2 ^ 5 - 1) / 100
  colour = r * 2 ^ 11 + g * 2 ^ 5 + b
endif
if (callers())
  return colour
else
  hex = $math_utils:base_conversion(colour, 10, 16)
  hex = $string_utils:space(8 - length(hex), "0") + hex
  return player:tell(colour, " = 0x", hex)
endif
"Last modified by Dax (#789) on Tue May  3 14:09:36 2005 MDT."
.

0