6f4
@verb #4457:"title" this none this rdo #4457
@program #4457:"title" this none this
"if ((this.location == #999) || (#3857 in this.location.contents))"
"  title = this:_docolor(this.title);"
"else"
colors = {"red", "yellow", "green", "blue", "purple", "rainbow", "revrainbow"}
if (this.tmode == "rainbow")
  title = this:(tostr("mdo_", color[random($)]))(this.title)
elseif (this.tmode == "random")
  color1 = this:fileread("colors")[random($)]
  color2 = this:fileread("colors")[random($)]
  this.grads = {color1, color2, color1, color2}
  title = $gu:mg(@this.grads, $html_utils:detag(this.title))
  if (this.mood)
    this.mood = #2440:mg(this.grads, $html_utils:Detag(this.mood))
  endif
  "    this.mtype = \"random\";"
  "  endif"
elseif (this.tmode == "brick")
  if (index(this.title, "<font"))
    this.title = $html_utils:detag(this.title)
  endif
  title = this:_docolor(this.title)
  if (this.mood && this.mtype != "brick")
    this.mood = this:_docolor($html_utils:detag(this.mood))
    this.mtype = "brick"
  endif
elseif (this.tmode == "grad")
  title = this.gtitle
  if (this.mood && this.mtype != "grad")
    this.mood = #2440:mg(this.grads, $html_utils:Detag(this.mood))
    this.mtype = "grad"
  endif
else
  "  title = this:_docolor(this.title);"
  title = this.gtitle
endif
"endif"
if (`this.away[1] == 1 ! E_TYPE => 0')
  return this.colorize ? tostr(title, " ", $gu:mg(@this.grads, tostr("[Away: ", #34:hms(time() - this.away[3]), "]"))) | tostr(title, " [Away: ", #34:hms(time() - this.away[3]), "]")
  return tostr(title, " [Away: ", #34:hms(time() - this.away[3]), "]")
else
  return this.mood ? title + " (" + this.mood + ")" | title
endif
"Last modified by Rubbie (#4457) on Sun Sep 10 18:00:47 2000 MDT."
.

0