View/Edit #12:tell_www_setup

Switch to edit mode.

Name(s): tell_www_setup
1:  "Prints a form allowing web-based setup of this player."
2:  "This verb handles player-related setup (gender/password)."
3:  "Override to add more functionality.  Don't forget to pass."
4:  caller == this || raise(E_PERM)
5:  player:isa($webber) || raise(E_PERM)
6:  pass(@args)
7:  hack = player.user:controls(this)
8:  player:tell("<HR><H3>Player setup.</H3>")
9:  player:tell("<FORM ACTION=\"/", toint(this), "/setup\" METHOD=\"post\">")
10: desc = this:_get_description()
11: if (hack)
12:   player:tell("<B>Gender:</B> ", $html_utils:input_select("gender", $gender_utils.genders, this.gender), "<BR>")
13:   player:sub_tell("Pronouns: %t~s, %t~o, %t~p, %t~q, %t~r, %t~S, %t~O, %t~P, %t~Q, %t~R.<P>")
14:   player:tell("<B>Change Password to:</B> <INPUT TYPE=\"password\" NAME=\"pass1\"><BR>")
15:   player:tell("Type new password again:</B> <INPUT TYPE=\"password\" NAME=\"pass2\"><P>")
16:   player:tell("<INPUT TYPE=\"submit\" VALUE=\"Change\"> <INPUT TYPE=\"reset\">")
17: else
18:   player:tell("<B>Gender:&nbsp;&nbsp;&nbsp;&nbsp;</B> <TT>", $html_utils:literal_text($su:capitalize(this.gender)), "</TT><BR>")
19:   player:sub_tell("Pronouns: %t~s, %t~o, %t~p, %t~q, %t~r, %t~S, %t~O, %t~P, %t~Q, %t~R.")
20: endif
21: player:tell("</FORM>")
22: "Last modified by Dax (#789) on Tue May  3 14:09:29 2005 MDT."

Verb arguments: this none this
Verb perms: Readable eXecutable NOT-Debug
Verb owned by: Dax (#789)

You are not logged in.

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