on !*:Join:#KANAL: { updatenl | .timer 1 4 kontrol | set -u6 %giren $nick | set -u6 %kanal $chan }
alias kontrol { 
  if (!$regex(%giren,/^(CesuryureK|BotNick1|BotNick2|BotNick3)$/i)) {
    if (!$regex($address(%giren,2),/(Server|Services|Admin|Oper|IRCop|Network)/i)) {
      if ($regex($nick(%kanal,%giren).pnick,@|&|%|~)) { 
        if !$read(Gunluk.txt,w,%giren) {
          msg %kanal Hoş Geldin %Giren 
          write Gunluk.txt %giren
        }
      }
    }
  }
}
on *:Start: { write -c gunluk.txt }