@verb #16:"@newpassword @new-password" any none none rdo #789
@program #16:"@newpassword @new-password" any none none
"Copied from Lao-Tzu (#8084):@newpassword2 May  5 12:38:57 1997"
if (caller != this || player != this)
  return $msg:mtell("huh")
endif
dobj = $su:match_player(dobjstr)
if (!valid(dobj))
  player:tell("Who is that?")
elseif (!player:isa($guardian) || dobj:isa($guardian))
  player:tell("You cannot set the password of a guardian or wizard.")
elseif (!dobj.email_address || dobj:isa($guest))
  player:tell(dobj.name, " doesn't have a registered email address. Cannot mail password. Aborting.")
elseif ($command_utils:yes_or_no("Email " + dobj.name + " with new password?"))
  $wiz_utils:guard_alert(verb, tostr(player.name, " gives ", dobj:nn(), " a new password"))
  password = $wiz_utils:random_password(5)
  moo_name = $name
  result = $network:sendmail(dobj.email_address, "Your " + moo_name + " password", "The password for your " + moo_name + " character:", " " + dobj.name, "has been changed. The new password is:", " " + password, "")
  dobj.password = result == 0 ? string_hash(password) | dobj.password
  player:tell(result == 0 ? "Mail sent, password set." | tostr("Trouble sending mail: ", result, "   (Password not changed.)"))
else
  player:tell("Password not changed.")
endif
"Last modified by Dax (#789) on Mon Aug 26 22:32:41 2002 MDT."
.