View/Edit #1518:tell_www_setup

Switch to edit mode.

1:  "Prints a form allowing web-based setup of this room."
2:  "This verb handles the outside name/description."
3:  "Override to add more functionality.  Don't forget to pass."
4:  caller == this || raise(E_PERM)
5:  pass(@args)
6:  hack = player.user:controls(this)
7:  player:tell("<HR><H3>Movable Room setup.</H3>")
8:  player:tell("<FORM ACTION=\"/", toint(this), "/setup\" METHOD=\"post\">")
9:  outside_desc = this:_get_outside_description()
10: if (hack)
11:   player:tell("<B>Outside Name:</B> <INPUT TYPE=\"text\" NAME=\"outside_name\" SIZE=\"60\" VALUE=\"", $html_utils:literal_text(this.outside_name), "\"><BR>")
12:   player:tell("<B>Description:</B><BR>")
13:   text = `{tostr("<TEXTAREA NAME=\"outside_desc\" ROWS=\"", length({@outside_desc}) + 4, "\" COLS=\"75\" WRAP=\"virtual\">"), @$html_utils:literal_text(outside_desc), "</TEXTAREA><BR>"} ! E_TYPE => {"<TT>", @$html_utils:literal_text(toliteral(outside_desc)), "</TT><P>"}'
14:   text[1..2] = {text[1] + text[2]}
15:   length(text) > 1 && (text[$ - 1..$] = {text[$ - 1] + text[$]})
16:   player:tell(text)
17:   player:tell("<INPUT TYPE=\"submit\" VALUE=\"Change\"> <INPUT TYPE=\"reset\">")
18: else
19:   player:tell("<B>Outside Name:</B> <TT>", $html_utils:literal_text(this.name), "</TT><BR>")
20:   player:tell("<B>Outside Description:</B><BR><TT>", @`$html_utils:literal_text(outside_desc) ! E_TYPE => $html_utils:literal_text(toliteral(outside_desc))', "</TT>")
21: endif
22: player:tell("</FORM>")
23: "Last modified by Dax (#789) on Tue May  3 14:09:33 2005 MDT."

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