@verb #51:"del*ete" any any any rdo #60
@program #51:"del*ete" any any any
if (!(who = this:loaded(player)))
  player:tell(this:msg_nothing_loaded())
elseif (typeof(range = this:parse_range(who, {"_", "1"}, @args)) != $LIST)
  player:tell(range)
elseif (range[3])
  player:tell("Junk at end of cmd:  ", range[3])
else
  text = this.texts[who]
  if (!this.escape_XML)
    player:tell($html_utils:literal_text(text[from = range[1]..to = range[2]]))
  else
    player:tell(text[from = range[1]..to = range[2]])
  endif
  player:tell("---Line", to > from ? "s" | "", " deleted.  Insertion point is before line ", from, ".")
  this.texts[who] = {@text[1..from - 1], @text[to + 1..length(text)]}
  this.changes[who] = text
  this.times[who] = time()
  this.inserting[who] = from
endif
"Last modified by Dax (#789) on Wed May  4 06:46:00 2005 MDT."
.