@verb #4457:"mdo_*" this none this rxdo #4457
@program #4457:"mdo_*" this none this
{what} = args
moog = ""
meh = muh = 1
if (index(verb, "rainbow"))
  barb = length(verb[5..7] == "rev" ? this.rrainbow | this.rainbow)
  while (meh <= length(what))
    if (muh > length(verb[5..7] == "rev" ? this.rrainbow | this.rainbow))
      muh = 1
    endif
    if (what[meh] != " ")
      moog = tostr(moog, "<font color=", (verb[5..7] == "rev" ? this.rrainbow | this.rainbow)[muh], ">", what[meh], "</font>")
      muh = muh + 1
    else
      moog = tostr(moog, " ")
    endif
    meh = meh + 1
  endwhile
  return moog
else
  if (!this:has_property(verb[5..$]))
    return player:tell("Error. there is no color property ", verb[5..$])
  endif
  {what} = args
  mug = ""
  meh = 1
  muh = 1
  while (meh <= length(what))
    if (muh == length(this.(verb[5..$])))
      muh = 1
    endif
    if (what[meh] == " ")
      mug = mug + " "
    else
      mug = tostr(mug, "<font color=", this.(verb[5..$])[muh], ">", what[meh], "</font>")
      muh = muh + 1
    endif
    meh = meh + 1
  endwhile
  return mug
endif
"Last modified by Rubbie (#4457) on Wed Jun 21 18:08:29 2000 MDT."
.