@verb #4464:"_enterfunc" this none this rdo #2729
@program #4464:"_enterfunc" this none this
"Copied from the generic All-In-One Room (#3310):_enterfunc by Jay (#8438)Feb 26 10:06:38 2000"
!(caller in {this, #0, $scheduler}) && raise(E_PERM)
what = args[1]
if (what != player)
  return
endif
if (what == #2570)
  player:moveto(#6812)
  #2729:tell("Mark6 tried to enter.")
endif
if (what:isa($player))
  if (what in this.invites)
    this.invites = setremove(this.invites, what)
  endif
endif
if (what != this.owner && what.home != this && this != #3310)
  this.people[1] = this.people[1] + 1
endif
if (!(what in this.people[2]) && this != #3310)
  this.people[2] = setadd(this.people[2], what)
endif
return pass(@args)
"Last modified by Corran (#2729) on Mon Apr 10 20:02:17 2000 EDT."
.