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 = .superstar) {
   var %file $qt($+($mircdir,title.txt))
   var %r $read(%file, w, * superstar *)
   if (%r) { msg $chan $nick -> %r }
   else { msg $chan matchtext superstar was not found }
  }
}