on *:join:#: { 
  if $nick != $me {
    if %sisteming == on { 
      set %nicknames $nick
      ns info $nick 
      set %iplist $address($nick,2)
    }
  }
}
on *:notice:*:*: { 
  if %sisteming == on { 
    if (Kayit zamani: isin $1-) { 
      var %eLbette $strip($remove($8,[))
      if %elbette < %deger { 
        if %kanaldanating == on { 
          mode %uygulac +b $address(%nicknames,2) | kick %uygulac %nicknames 12 Nickinizin Kayıt Tarihi 4 %deger 1Günden Eskidir. Bu Sebeple Kanala Giriş Yapamazsınız. Bilginize.
        }
        if %operatorbilgi == on { 
          if $me ison %opchannel { 
            msg %opchannel Kanala Girişi Yapan >> %nicknames << Rumuzunun Kayıt Tarihi %deger Günden Az. Bilginize Sunarım.
          }  
        }
      }
    }
    if (kayitli bir nick degil. isin $1-)  { 
      if %kanaldanat == on { 
        mode %uygulac +b %iplist | kick %uygulac $strip($remove($1,:)) 1Nickiniz Kayıtlı Değildir. Kayıtsız Nickleri Şu An İçin Kanala Almamaktayız. Lütfen Nickinizi Kaydediniz.
      }
      if %opbilgi == on { 
        if $me ison %opchannel { 
          msg %opchannel Kanala Girişi Yapan >> $remove($1,:) << Rumuzunun Nicki Kayıtlı Değil. Bilginize Sunarım.
        }
      }
      if %kayitbilgi == on { 
        msg $strip($remove($1,:)) 0,1Merhaba 0,4 $strip($remove($1,:)) $+ , 0,1 Ben Kanal Sistem Takip Botu 0,4 $me $+ . 0,1Nickiniz Kayıtlı Değildir Kayıt Etmek İçin Aşağıdaki Yönergeleri İzleyiniz.
        .timer 1 1 msg $strip($remove($1,:))  1,12 1.) 0,4http://uyeler.mynet.com/index/mymailkayit.html?fw=http%3A%2F%2Fuyeler.mynet.com%2Flogin%2Flogin.asp%3FloginRequestingURL%3Dlmail%26formname%3Deposta&surl=http%3A%2F%2Feposta.mynet.com%2Findex%2Fmymail.html 0,1Bu Adrese Giderek Formu Doldurup Bir Email Alınız. | .timer 1 2 msg $strip($remove($1,:))  1,12 2.) 0,1Email Aldıktan Sonra 0,4 /ns register Şifreniz Email | .timer 1 3 msg $strip($remove($1,:))  1,12 3.)0,1Şeklinde Nickinizi Şifreleyiniz. Daha Sonra 0,4http://email.mynet.com 0,1Adresine Giderek Email'inize Gelen Auth Kodunu Kopyalayarak | .timer 1 4 msg $strip($remove($1,:))  1,12 4.)0,4/ns AUTH codeniz 0,1Şeklinde Giriniz. İşlemi Yaptıktan Sonra Rumuzunuzun Başarıyla Auth Kodunun Onaylandığına Dair İleti Alıyorsanız İşlem Gerçekleşmiştir. | .timer 1 5 msg $strip($remove($1,:))  0,4İyi Günler Dilerim..     
      }
    }
  }
}
menu * { 
  Kanal Giriş Kontrol Sistemi:giris
}
alias giris dialog -m girissistem girissistem
dialog girissistem {
  title "Kanal Giriş Kontrol Sistemi V1.0"
  size -1 -1 184 131
  option dbu
  edit "", 1, 34 69 15 10
  radio "Sistemi Aktif Et", 2, 5 2 50 10
  radio "Sistemi Deaktif Et", 3, 123 2 57 10
  text "Kanala Giren Nick Şu Günden Daha Az Kayıt Tarihine Sahipse", 4, 5 49 78 18
  check "Kanaldan At", 5, 10 84 50 10
  check "Op Kanalına Bilgi Ver", 8, 10 96 66 10
  text "Kanala Giren Nick Kayıtlı Değilse", 7, 99 49 71 18
  check "Kanaldan At", 10, 106 71 50 10
  check "Op Kanalına Bilgi Ver", 11, 106 83 66 10
  button "İptal Et", 13, 116 118 54 10
  edit "", 14, 11 22 64 10
  box "Op Kanalı", 15, 5 14 75 22
  box "Uygulanacak Kanal", 16, 106 14 75 22
  edit "", 17, 112 22 64 10
  box "Kayıtlı Nicklere", 18, 3 40 86 72
  box "Kayıtsız Nicklere", 19, 96 40 86 72
  check "Nick Kayıt Bilgisi Gönder", 20, 106 96 72 10
  button "Uygula", 21, 16 117 54 10,ok
}

on *:dialog:girissistem:sclick:*: { 
  if $did == 21 { 
    set %uygulac $did(17)
    set %opchannel $did(14)
    set %deger $did(1)
  }
  if ($did(2).state == 0) { set %sisteming off } 
  else { set %sisteming on } 
  if ($did(3).state == 0) { set %sisteming on } 
  else { set %sisteming off } 
  if ($did(5).state == 0) { set %kanaldanating off } 
  else { set %kanaldanating on } 
  if ($did(8).state == 0) { set %operatorbilgi off } 
  else { set %operatorbilgi on } 
  if ($did(10).state == 0) { set %kanaldanat off } 
  else { set %kanaldanat on } 
  if ($did(11).state == 0) { set %opbilgi off } 
  else { set %opbilgi on } 
  if ($did(20).state == 0) { set %kayitbilgi off } 
  else { set %kayitbilgi on } 

}
on *:dialog:girissistem:init:*: { 
  did -a $dname 17 %uygulac
  did -a $dname 14 %opchannel
  did -a $dname 1 %deger
  if (%sisteming == off) did -c girissistem 3
  if (%sisteming == on) did -c girissistem 2
  if (%kanaldanating == on) did -c girissistem 5
  if (%operatorbilgi == on) did -c girissistem 8
  if (%kanaldanat == on) did -c girissistem 10
  if (%opbilgi == on) did -c girissistem 11
  if (%kayitbilgi == on) did -c girissistem 20
}