View/Edit #3310:_enterfunc

Switch to edit mode.

1:  !(caller in {this, #0, $scheduler}) && raise(E_PERM)
2:  what = args[1]
3:  if (what != player)
4:    return
5:  endif
6:  if (what:isa($player))
7:    if (what in this.invites)
8:      this.invites = setremove(this.invites, what)
9:    endif
10:   if (this:get_room_option("greet") && what.location == this)
11:     fork (`this.greet_delay ! ANY => 4')
12:       if (what.location == this)
13:         what:tell()
14:         $msg:mtell("greet", `this.namec ! E_PROPNF => this.name')
15:       endif
16:     endfork
17:   endif
18:   if (what != this.owner && what.home != this && this != #3310)
19:     this.people[1] = this.people[1] + 1
20:   endif
21:   if (!(what in this.people[2]) && this != #3310)
22:     this.people[2] = setadd(this.people[2], what)
23:   endif
24: endif
25: return pass(@args)

[home | help | who | search | setup | code]