View/Edit #3310:tell_www_body

Switch to edit mode.

1:  "Copied from the generic enhanced room (#1606):tell_www_body by Hacker (#38) Oct  3 16:42:11 1997"
2:  "Copied from Generic Room (#3):tell_www_body by Hacker (#38) Feb 22 10:07:00 1996"
3:  player:tell(this:www_description())
4:  player:tell("<P>")
5:  players = things = {}
6:  for x in (this:contents())
7:    link = $web:link(x)
8:    if (is_player(x))
9:      players = {@players, link}
10:   elseif (x.name != "} hidden {" && !this:junk_p(x))
11:     things = {@things, link}
12:   endif
13: endfor
14: if (!things)
15:   $msg:mtell("thing_none")
16: elseif (length(things) == 1)
17:   $msg:mtell("thing_sing", things[1])
18: else
19:   $msg:mtell("thing_plur", $www:format_list(this.www_list_type, things))
20: endif
21: player:tell("<BR>")
22: if (!players)
23:   $msg:mtell("player_none")
24: elseif (length(players) == 1)
25:   $msg:mtell("player_sing", players[1])
26: else
27:   $msg:mtell("player_plur", $www:format_list(this.www_list_type, players))
28: endif
29: this:tell_www_exits(this:exits())
30: "Last modified by Dax (#789) on Sat Aug 28 09:16:18 1999 MDT."

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