@verb #8668:"select-create" any with/using this rdo #8084
@program #8668:"select-create" any with/using this
length = toint(dobjstr)
if (length < 1)
  return player:tell("Invalid length.")
endif
ztext = $cmd_utils:read_lines("password text")
text = ""
for z in (ztext)
  text = tostr(text, z)
endfor
player:tell("The password generated: \"", this:_password(text, length), "\".")
player.responsible = listdelete(player.responsible, length(player.responsible))
player:tell("Text removed from your .responsible property.")
"Last modified by Dax (#789) on Tue May  3 14:09:37 2005 MDT."
.