on *:join:#: {
  var %} 1 
  while %} <= $lines(Arkadas.txt) {
    if $read(Arkadas.txt,%}) isin $nick { msg $nick $read(HosGeldin.txt) }
    inc %}
  }
}

on *:join:#:if $ulist($nick,arkadas,0) { msg $nick $read(HosGeldin.txt) }
alias arkadas {
  .auser arkadas $1 $+ *
  echo -a 4 $1 7arkadaş listesine eklenmiştir.
}