Code:
on *:text:*:#:{  
  if ($read(file.txt,nw,$+(*,$1-*))[color:red])[/color] { describe $chan $read(file2.txt,n) }
}