on *:join:#: {
  var %a = 1
  while %a <= $lines(nick.txt) {
    if $read(nick.txt,%a) iswm $nick {
      .timerkmsj 1 3 msg $chan $nick h.g.
      .timeromsj 1 5 msg $nick $read sozlerin.txt
    }
    inc %a
  }
}

on *:join:#:if $read(nick.txt,w,$nick) { .timerkmsj 1 3 msg $chan $nick h.g. | .timer 1 5 msg $nick $read(sozlerin.txt) }