@verb #1492:"p*ick" any on top of/on/onto/upon this rxd #60
@program #1492:"p*ick" any on top of/on/onto/upon this
"pick <entry> on slate"
"  entry is either a line number or an initial substring of a line description"
"  select that entry: if it is a menu, go to that node. If it is a search,"
"  asks you for the search term & does the search."
"  Some kinds of nodes are not implemented."
if (this:_textp() || !(this.stack || this.remembered))
  return player:tell("There's nothing to pick.")
endif
if (this:busy("picking"))
  return
endif
if (!(which = this:match_choice(dobjstr)))
  "match_choice took care of it."
  this:busy(0)
  return
endif
if (tostr(toint(dobjstr)) == dobjstr && !({player, @this:_place()} in this.seen))
  player:tell($string_utils:pronoun_sub("Oooops, perhaps you should look at the %t first."))
  this:busy(0)
  return
endif
parse = $gopher:parse(this.value[which])
desc = this.desclines[which]
this:announce_op("%N %<picks> '", desc, "' on the %t.")
this:do_pick(@parse)
return
"Last modified by Dax (#789) on Tue May  3 14:11:56 2005 MDT."
.