@verb #4457:"@title* @gradm @gmode" any any any rxdo #4457
@program #4457:"@title* @gradm @gmode" any any any
if (verb == "@titlem")
  mode = argstr
  if (argstr == "grad")
    this.grads = this.ggrads
    {meh, title} = #2440:fa(this.title)
    gtitle = $gu:mg(@this.grads, title)
    this.gtitle = #2440:dfa(meh, gtitle)
    this.mood = this.mood ? $gu:mg(@this.grads, $html_utils:detag(this.mood)) | ""
  else
    this.ggrads = this.grads
  endif
  player:tell("Your mode is now ", this.tmode = mode, ", your title verb now shows as: ", this:title(), ".")
elseif (verb == "@titleg")
  player:tell("Please enter the grads you wish to use for your title.")
  grads = $cmd_utils:read_lines()
  this.grads = grads
  this.ggrads = grads
  {meh, title} = #2440:fa(this.title)
  gtitle = $gu:mg(@this.grads, title)
  this.gtitle = #2440:dfa(meh, gtitle)
  if (this.mood)
    this.mood = #2440:mg(this.grads, $html_utils:Detag(meh))
    player:tell("Your mood has been Gradded.")
  endif
  player:tell($gu:mg(@this.grads, "These are the colors now chosen to do your title."))
elseif (verb == "@titlec")
  colors = ""
  while (length(colors) < 2 || length(colors) > 2)
    player:tell("Enter the colors.")
    colors = $cmd_utils:Read_lines()
  endwhile
  this.colors = colors
  "  this.title = this:_docolor($html_utils:detag(this.title));"
  this.mood = this:_docolor($html_utils:detag(this.mood))
  player:tell(this:_docolor("Done, colors changed."))
elseif (verb == "@gradm" || verb == "@gmode")
  if (this.tmode != "grad")
    player:tell("Not in gradient mode.")
    return
  endif
  while (!argstr)
    this:listgrads()
    player:tell("Enter the mode.")
    argstr = $cmd_utils:read()
  endwhile
  if ((m = toint(argstr)) && m <= length(this.oldgrads))
    mode = this.gmodes[m]
  elseif ((mode = this:matchtheme(argstr)) != #-1)
    mode = this:matchtheme(argstr)
  else
    mode = argstr
  endif
  if (!(mode in this.gmodes))
    player:tell("Error.")
    return
  else
    this.grads = this.oldgrads[mode in this.gmodes]
    {meh, title} = #2440:fa(this.title)
    gtitle = $gu:mg(@this.grads, title)
    this.gtitle = #2440:dfa(meh, gtitle)
    this.mood = this.mood ? #2440:mg(this.grads, $html_utils:detag(this.mood)) | ""
    this.location:announce_all(player:title(), " has switched to ", $gu:mg(@this.grads, mode), " mode.")
    if (#2440.location != this.location)
      #2440.location:announce_all(#2440:title(), " has switched to ", $gu:mg(@this.grads, mode), " mode.")
    endif
  endif
elseif (verb == "@title")
  name = argstr
  this:tell("You morph into ", argstr, ": ", name, ".")
  this.location:announce(player:title(), " morphs into ", argstr, ".")
  if (#2440.location != this && #2440.location != this.location)
    #2440.location:announce(#2440:title(), " morphs into ", argstr, ".")
  endif
  {meh, name} = #2440:fa(name)
  gtitle = $gu:mg(@this.grads, name)
  this.gtitle = #2440:dfa(meh, gtitle)
  this.title = $html_utils:Detag(this.gtitle)
else
  player:tell("I don't understand that.")
endif
"Last modified by Dax (#789) on Tue May  3 14:09:35 2005 MDT."
.