3d3
@verb #4457:"@mood" any any any rxdo #4457
@program #4457:"@mood" any any any
meh = argstr
while (!meh)
  player:tell("Enter your mood.")
  meh = $cmd_utils:read()
endwhile
if (meh == "none")
  this.mood = ""
  player:tell("Mood Removed.")
  return
endif
if (this:ok(this.location) && this.tmode == "grad")
  {feh, meh} = #2440:fa(meh)
  mood = $gu:mg(@this.grads, meh)
  this.mood = #2440:dfa(feh, mood)
  this.mtype = "grad"
elseif (this:ok(this.location) && this.tmode == "random")
  this.mood = $gu:mg(@this.grads, meh)
  this.mtype = "random"
else
  this.mood = this:_docolor(meh)
  this.mtype = "brick"
endif
player:tell(tostr(this.mood, " is your new mood."))
player.location:announce(player:title(), " changes his mood to ", this.mood, ".")
if (#2440.location != this.location)
  #2440.location:announce(this:title(), " changes his mood to ", this.owner.mood, ".")
endif
"Last modified by Rubbie (#4457) on Thu Aug 24 20:22:31 2000 MDT."
.

0