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
  }
}

on !*:join:#SOHBET: {

if ($read(nick2.txt,%aa) iswm $nick) {
      .play $nick 1.txt 
      break    
    }

if ($read(nick2.txt,%aa) iswm $nick) {
  if $hget(Play,$nick) >= 1 { return }
  .hinc -msu20 Play $nick
  .play $nick 1.txt 
  break    
}