on *:text:*:#:{
  if ($1 = .title) {
    var %file $qt($+($mircdir,title.txt))
    var %lines $lines(%file)
    if ($2 <= %lines) {
      msg $chan $nick title: $2 - $read(%file,nt,$2)
    }
    else { msg $chan $nick title out bounds. titles: %lines }
  }
  elseif ($1 = .locate) {
    var %file $qt($+($mircdir,title.txt))
    var %m $+(*,$2-,*)
    var %r $read(%file,wnt,%m)
    echo -a > %r > $readn
    if ($exists(%file)) {
      if (%r) { msg $chan located: %r }
      else { msg $chan matchtext $2- was not found }
    }
    else { msg $chan file not exists: %file }
  }
}