35c
@verb #51:"join_lines" this none this rxdo #60
@program #51:"join_lines" this none this
if (!(corrupt = this:ok(who = args[1])))
  return corrupt
elseif ((from = args[2]) >= (to = args[3]))
  return 0
else
  nline = ""
  for line in ((text = this.texts[who])[from..to])
    if (!(english = args[4]))
      nline = nline + line
    else
      len = length(line) + 1
      while ((len = len - 1) && line[len] == " ")
      endwhile
      if (len > 0)
        nline = nline + line + (index(".:", line[len]) ? "  " | " ")
      endif
    endif
  endfor
  this.texts[who] = {@text[1..from - 1], nline, @text[to + 1..length(text)]}
  if ((insert = this.inserting[who]) > from)
    this.inserting[who] = insert <= to ? from + 1 | insert - to + from
  endif
  this.changes[who] = text
  this.times[who] = time()
  return to - from
endif
.

0