IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Kod:

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!

    }

  }

}

Bu kod, kişilerin #kanal'a girişlerinde kanalın sifreli olması ve kullanıcının kayıtlı bir nick kullanması gerektiğini kontrol eder. Eğer kişi bu şartları sağlıyorsa, kanalın şifresini sorar ve doğru girilmesi halinde kullanıcıyı kanala kabul eder. Aksi takdirde, kanaldan atılır.

Kod'u yazdim ama denemedim. :)