@verb #3310:"_enterfunc" this none this rxdo #8438
@program #3310:"_enterfunc" this none this
!(caller in {this, #0, $scheduler}) && raise(E_PERM)
what = args[1]
if (what != player)
  return
endif
if (what:isa($player))
  if (what in this.invites)
    this.invites = setremove(this.invites, what)
  endif
  if (this:get_room_option("greet") && what.location == this)
    fork (`this.greet_delay ! ANY => 4')
      if (what.location == this)
        what:tell()
        $msg:mtell("greet", `this.namec ! E_PROPNF => this.name')
      endif
    endfork
  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
endif
return pass(@args)
.