Switch to edit mode.
Name(s): people been1: "Inspired by #8500:been, by James (#6397)."
2: player:tell()
3: player:tell("This room has been entered ", toint(this.people[1]), " times.")
4: this.people[2] = $list_utils:sort(this.people[2])
5: $command_utils:suspend_if_needed()
6: player:tell("These players have been here:")
7: data = {}
8: for x in (this.people[2])
9: if (is_player(x))
10: data = {@data, $su:nn(x)}
11: $cmd_utils:suspend_if_needed(0)
12: else
13: this.people[2] = setremove(this.people[2], x)
14: endif
15: endfor
16: people = #4214:percent(this.people[2], players())[1..4]
17: $command_utils:suspend_if_needed(0)
18: player:tell($su:columnise(data, 3))
19: $command_utils:suspend_if_needed()
20: return player:tell(length(this.people[2]), " of ", length(players()), " players, or ", people, "% of the MOO, have been in this room.")
21: "Last modified by Dax (#789) on Tue May 3 14:09:34 2005 MDT."