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 %r $read(%file, w, $+(*,$2-,*))
   if ($exists(%file)) {
    if (%r) { msg $chan located: %r }
    else { msg $chan matchtext $2- was not found }
   }
   else { msg $chan file not exists: %file }
  }
}