Kanal Giriş Kontrol Sistemi V1.0
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Bu kodla;
-
Kanalınıza giren nicklerin kayıt tarihleri belirteceğiniz günden eskiyse nicki kanaldan atıcak yada isteğinize bağlı olarak op kanalınıza sadece bilgi mesajı atıcaktır. Aynı anda ikisinide seçebilirsiniz. Hem atar hem bilgi verir.
-
Kanalınıza giren nick eğer kayıtsız ise isteğinize bağlı olarak;
Nicki kanaldan atıcak
Nicke Kayıt ettirme bilgisi vericek
Op kanalına bilgi mesajı göndericek.
-
Bu şıklardan aynı anda hepsinide seçebilirsiniz. Yani hem kanaldan atar hem op kanalına bilgi mesajı gönderir hemde nicke kayıt ettirme bilgisi verir. Kodlar; PHP- Kodu:
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
}
----------
DİKKAT!!!
Bu kod Sistemi MYNET Sunucusu Uyumludur. Kendi Sunucunuza Göre Editlemek İsterseniz Şu Bölgelerdeki NickServ Notice Mesajlarını Eğer Farklıysa Editleyiniz; if (Kayit zamani: isin $1-) { if (kayitli bir nick degil. isin $1-) { Buradaki Mesajları Kendinize Göre Editleyin. Yok editlemeye çalışıpta yapamamışsanız sunucunuzun ismini yazın ben size direkt codeyi verim. |
