@verb #51:"f*ind" any any any rxdo #60
@program #51:"f*ind" any any any
if (callers() && caller != this)
  return E_PERM
endif
if (!this.escape_xml)
  argstr = player:input_get_raw(argstr)
endif
if (!(who = this:loaded(player)))
  player:tell(this:msg_nothing_loaded())
elseif (typeof(subst = this:parse_subst(argstr && argstr[1] + argstr, "c", "Empty search string?")) != $LIST)
  player:tell(tostr(subst))
elseif (typeof(start = subst[4] ? this:parse_insert(who, subst[4]) | this.inserting[who]) == $ERR)
  player:tell("Starting from where?", subst[4] ? "  (can't parse " + subst[4] + ")" | "")
else
  search = subst[2]
  case = !index(subst[3], "c", 1)
  text = this.texts[who]
  tlen = length(text)
  while (start <= tlen && !index(text[start], search, case))
    start = start + 1
  endwhile
  if (start > tlen)
    player:tell("`", search, "' not found.")
  else
    this.inserting[who] = start + 1
    this:list_line(who, start)
  endif
endif
"Last modified by Dax (#789) on Wed May  4 06:46:00 2005 MDT."
.