View/Edit #84:tell_general

Switch to edit mode.

1:  {object} = args
2:  mods = {}
3:  if (player.user:controls(object))
4:    "The MOO no longer supports writable things. --amuck"
5:    "  player:tell(\"<FORM METHOD=\\\"POST\\\"><INPUT TYPE=\\\"checkbox\\\" NAME=\\\"r\\\"\", object.r ? \" CHECKED\" | \"\", \"><B>R</B>eadable <INPUT TYPE=\\\"checkbox\\\" NAME=\\\"w\\\"\", object.w ? \" CHECKED\" | \"\", \"><B>W</B>ritable <INPUT TYPE=\\\"checkbox\\\" NAME=\\\"f\\\"\", object.f ? \" CHECKED\" | \"\", \"><B>F</B>ertile <INPUT TYPE=\\\"hidden\\\" NAME=\\\"chmod\\\" VALUE=\\\"on\\\"><INPUT TYPE=\\\"submit\\\" VALUE=\\\"Chmod\\\"></FORM>\")"
6:    player:tell("*R*eadable  *F*ertile")
7:  else
8:    object.r && (mods = {"readable"})
9:    object.f && (mods = {@mods, "fertile"})
10: endif
11: is_player(object) && (mods = {@mods, "player"})
12: object.programmer && (mods = {@mods, "programmer"})
13: object.wizard && (mods = {@mods, "wizard"})
14: player:tell("<FORM METHOD=\"POST\">")
15: mods && player:tell("<I>", $string_utils:from_list(mods, " | "), "</I><BR>")
16: if (player.user.wizard)
17:   player:tell("Owned by <INPUT TYPE=\"text\" NAME=\"chown\" VALUE=\"", $html_utils:literal_text($su:nn(object.owner)), "\"> <INPUT TYPE=\"submit\" VALUE=\"Chown\">")
18: else
19:   player:tell("Owned by ", $www:link(object.owner), ".")
20: endif
21: player:tell("<BR>Location ", $www:link(object.location), ".")
22: player:tell("<BR>Child of ", this:link(parent(object)), ".")
23: if (k = length(children(object)))
24:   player:tell("<BR>Has <A HREF=\"/", toint(object), "/setup/children\">", k, k == 1 ? " child" | " children", "</A>.")
25:   if (k <= 4)
26:     kids = children(object)
27:     for k in [1..k]
28:       kids[k] = this:link(kids[k])
29:     endfor
30:     player:tell(" (", $string_utils:from_list(kids, ", "), ")")
31:   endif
32: else
33:   player:tell("<BR>Has no children.")
34: endif
35: if (k = length(object.contents))
36:   player:tell("<BR>Contains <A HREF=\"/", toint(object), "/setup/contents\">", k, k == 1 ? " object" | " objects", "</A>.")
37:   if (k <= 4)
38:     kids = object.contents
39:     for k in [1..k]
40:       kids[k] = this:link(kids[k])
41:     endfor
42:     player:tell(" (", $string_utils:from_list(kids, ", "), ")")
43:   endif
44: else
45:   player:tell("<BR>Has no contents.")
46: endif
47: player:tell("</FORM>")
48: "Last modified by Amuck (#8720) on Wed Jan 23 03:16:53 2008 EST."

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