on *:join:#kanal: {
  if ($chanmode(#kanal) isin $str(a,$len($chan(#kanal).mode))) && ($me isreg #kanal) {
    var %nick = $nick
    while ($istok($nick,|,1) > 0) { var %nick $gettok(%nick,1,124) }
    if ($regex(%nick,/^[a-zA-Z0-9_\[\]\\`^\{\}\-]+$/)) {
      if ($nick != $me) {
        var %register = $regml(1)
        if (%register) {
          var %password = $input(Sifre girin:, m, Kanala girmek icin sifre gereklidir.)
          if ($len(%password)) {
            if ($readini(kanalsifreler.ini,%nick,#kanal) == %password) {
              msg #kanal $nick kanala hos geldin!
            }
            else {
              msg #kanal Sifre yanlis, kanala giris engellendi.
              kick #kanal $nick Sifre yanlis!
            }
          }
          else {
            msg #kanal Sifre bos birakilamaz, kanala giris engellendi.
            kick #kanal $nick Sifre bos birakilamaz!
          }
        }
        else {
          msg #kanal Kayitli bir nickiniz yok, kanala giris engellendi.
          kick #kanal $nick Kayitli bir nickiniz yok!
        }
      }
    }
    else {
      msg #kanal Geçersiz bir nick, kanala giris engellendi.
      kick #kanal $nick Geçersiz bir nick!
    }
  }
}