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("

Player setup.

") player:tell("
") desc = this:_get_description() if (hack) player:tell("Gender: ", $html_utils:input_select("gender", $gender_utils.genders, this.gender), "
") player:sub_tell("Pronouns: %t~s, %t~o, %t~p, %t~q, %t~r, %t~S, %t~O, %t~P, %t~Q, %t~R.

") player:tell("Change Password to:
") player:tell("Type new password again:

") player:tell(" ") else player:tell("Gender:     ", $html_utils:literal_text($su:capitalize(this.gender)), "
") 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("

") "Last modified by Dax (#789) on Tue May 3 14:09:29 2005 MDT." . 0