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

0