35d
@verb #51:"append_line" this none this rxdo #60
@program #51:"append_line" this none this
":append_line([who,] string)"
"  appends the given string to the line before the insertion point."
"  returns E_NONE if the session has no text loaded yet."
if (typeof(who = args[1]) != $INT)
  args = {player in this.active, @args}
endif
if (!(corrupt = this:ok(who = args[1])))
  return corrupt
elseif ((append = this.inserting[who] - 1) < 1)
  return this:insert_line(who, {args[2]})
elseif (typeof(text = this.texts[who]) != $LIST)
  return E_NONE
else
  this.texts[who][append] = text[append] + args[2]
  this.changes[who] = text
  this.times[who] = time()
  p = this.active[who]
  if (!p:edit_option("quiet_insert"))
    p:tell("Appended to line ", append, ".")
  endif
endif
"Last modified by Dax (#789) on Wed May  4 06:46:00 2005 MDT."
.

0