579
@verb #8045:"_disfunc" this none this rxdo #8045
@program #8045:"_disfunc" this none this
if (verb == "_confunc")
  if (`listassoc("user_connected", callers(), 2)[1] != #0 ! E_RANGE => 1')
    return E_PERM
  endif
else
  if (`listassoc("user_disconnected", callers(), 2)[1] != #0 ! E_RANGE => 1' && `listassoc("user_client_disconnected", callers(), 2)[1] != #0 ! E_RANGE => 1')
    return E_PERM
  endif
endif
fork (290)
  if (this.location == this.home || this:connected())
    return
  endif
  (l = this.location):announce("Housekeeper arrives cart " + (t = this:title(1)) + " off to bed.")
  suspend(2)
  l:announce(t + " notices that the Housekeeper is one FINE hunk of a man and jumps into his arms yelling, \"At last my prayers have been answered!\"")
  suspend(2)
  l:announce("The Housekeeper smiles knowingly and carts Myra off to bed!")
  this:moveto(this.home)
endfork
force_input(this, "drop #7804")
for x in (this.gaged)
  delete_verb(x, "say")
  $wiz_utils:rename_all_instances(x, "say(oldie)", "say")
  $wiz_utils:rename_all_instances(x, "emote(oldie)", "emote")
  x:sub_tell("%n's disconnection seems to have released the bind on your mouth.")
  x.location:sub_announce("%n's disconnection has released the mysterious bind on %1's mouth.", x)
endfor
this.gaged = {}
return pass(@args)
"Last modified by Dax (#789) on Thu May  5 16:02:53 2005 MDT."
.

0