1f9
@verb #6:"accept_for_abode" this none this rxdo #60
@program #6:"accept_for_abode" this none this
{who} = args
if (!valid(who))
  return 0
elseif ($perm_utils:controls(who.owner, this))
  return 1
elseif (this.free_home)
  return 1
endif
res = typeof(this.residents) == $LIST ? this.residents | {this.residents}
for x in (res)
  if (x == who)
    return 1
  elseif (x == who.owner)
    return 1
  endif
endfor
return 0
"Last modified by Dax (#789) on Tue May  3 13:55:52 2005 MDT."
.

0