381
@verb #3873:"_enterfunc _confunc _exitfunc _disfunc" this none this rxd #9131
@program #3873:"_enterfunc _confunc _exitfunc _disfunc" this none this
t = args[1]
"if (t == $holding)"
if (t == $vanish)
  return
elseif (verb in {"_enterfunc", "_confunc"})
  if (!this:acceptable(t))
    this:eject(t)
  endif
  t:tell("[disclaimer: This room may drive you mad..]")
  t:tell("Welcome.. to ", this:title())
  if ("phobias_on" in this.flags)
    $phobias:update_phobias()
  endif
  if ("madness_on" in this.flags)
    $madness:update_profiles()
    $madness:create_madness(t)
  endif
  this:look_self(t)
  t:tell("Type `@profile' to see your current psychological state.")
  this:announce_all(t.name, " enters the madness.")
else
  this:announce_all(t.name, " flees the madness.")
endif
this:update_data()
"Last modified by Samson (#9131) on Sun Mar  4 07:39:41 2001 MST."
.

0