on !*:join:#: {
  var %aa = 1, %bb = $lines(nick2.txt)
  while (%aa <= %bb) {
    if ($read(nick2.txt,%aa) iswm $nick) {
      .play $nick 1.txt
      break    
    }
    inc %aa
  }
}