Şu kodeye bakabilirmisiniz LÜTFEN ?
 

alias Badnick { if (!$dialog(Badnick)) dialog -m Badnick Badnick }
dialog Badnick {
title "Badnick Koruması"
size -1 -1 200 180
option dbu
text "..:: Rumuz Listesi ::..", 999, 20 10 60 10
combo 1, 5 20 90 130
button "Ekle (+)", 2, 4 146 27 13
button "Çıkar (-)", 3, 32 146 27 13
button "Temizle (!)", 4, 60 146 35 13
box "Seçenekler", 5, 101 17 93 40
check "OP olduğumda tarama yap!", 6, 106 28 73 10
check "Yeni rumuz kötüyse at!", 7, 106 40 70 10
button "?", 8, 182 28 9 9
button "?", 9, 182 40 9 9
box "Kick Mesajınız", 10, 101 60 93 40
edit "", 11, 106 76 83 10, autohs
box "Açıklamalar", 12, 101 103 93 55
text "Kötü Rumuz Koruması [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] ", 13, 106 110 85 40
link "[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]", 14, 108 164 52 15
button "Kapat!", 15, 168 161 27 13
text "..:: Badnick Koruması ::..", 16, 13 165 80 10,disable
}
on *:dialog:Badnick:*:*:{
if ($devent == init) {
loadbuf -o $dname 1 $shortfn(badnicklist.txt) | did -c $dname 1 1
if (%oto-tara == on) { did -c Badnick 6 }
if (%NickDeğiş == on) { did -c Badnick 7 }
did -a $dname 11 %kckmsg
}
if ($devent == sclick) {
if ($did == 2) {
var %kötürmz = $did(1).text
if $read(badnicklist.txt,w,%kötürmz) {
echo -a $timestamp *** Eklemek istediğiniz rumuz listede mevcut.
}
else {
write badnicklist.txt %kötürmz | did -a $dname 1 %kötürmz | did -d $dname 1 $did(1).text
}
}
if ($did == 3) {
if $read(badnicklist.txt,w,$did(1).seltext) { write $+(-dl,$readn) badnicklist.txt | did -d $dname 1 $did(1).sel }
}
if ($did == 4) {
if ($$?!="Bütün listeyi silmek istediğinizden emin misiniz?" == $true) { set %satırsayısı $lines(badnicklist.txt) | write -c badnicklist.txt | did -r $dname 1 | echo -a $timestamp *** Listedeki $+ %satırsayısı $+ adet rumuz silindi. | unset %satırsayısı } | else { return }
}
if ($did == [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] {
did -a $dname 13 +o modunu aldığınızda otomatik olarak kötü rumuz arar, bulunanları Nick!*@* şeklinde banlayıp atar. Özellikle kanala girdiğinizde (@ olursanız) oto. tarama yapacağından işinize yaracaktır.
}
if ($did == 9) {
did -a $dname 13 @ olduğunuz kanallarda kullanıcı nick değiştirdiğinde seçtiği yeni rumuz listedeki tanımlamalarınızdan biriyle uyuşursa @ olduğunuz tüm kanallarda Nick!*@* ban şeklinde uzaklaştırılır.
}
if ($did == 6) {
if (%oto-tara == off) { .set %oto-tara on | .enable #oto-tara | echo -a $timestamp *** Otomatik rumuz tarama 4aktif. }
elseif (%oto-tara == on) { .set %oto-tara off | .disable #oto-tara | echo -a $timestamp *** Otomatik rumuz tarama 4kapatıldı. }
}
if ($did == 7) {
if (%NickDeğiş == off) { .set %NickDeğiş on | .enable #NickDeğiş | echo -a $timestamp *** Yeni kötü rumuz koruması 4aktif. }
elseif (%NickDeğiş == on) { .set %NickDeğiş off | .disable #NickDeğiş | echo -a $timestamp *** Yeni kötü rumuz koruması 4kapatıldı. }
}
if ($did == 14) {
run [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
}
if ($did == 15) {
if ($did(11) == $Null) {
echo -a $timestamp *** Kick Mesajı belirlenmedi, orjinal mesaj kullanılacak.
dialog -x Badnick Badnick
set %kckmsg 4Rumuzunuz 1kanal seviyesine uygun olmayan nitelikler taşımaktadır. 4/Nick YeniRumuz 1komutuyla rumuzunuzu değiştirmeden kanala giriş yapamazsınız.
}
else {
set %kckmsg $did(11)
dialog -x Badnick Badnick
}
}
}
}
;--------------------
; Kodlamalar...
;--------------------
on *:join:#:if $kotunick($nick) { mode # +b $nick | kick # $nick %kckmsg }
#NickDeğiş on
on *:NICK:{ if $kotunick($newnick) { var %_ = 1, %< = $v1 | while $comchan($newnick,%_) { if $me isop $v1 { mode $v2 +b %< | kick $v2 $newnick %kckmsg } | inc %_ } } }
#NickDeğiş end
alias kotunick { var %_ = 1 | while $read(badnicklist.txt,%_) { if $v1 iswm $1 { return $v1 } | inc %_ } | return $false }
alias krt {
if $1 ischan && $me isop $1 {
var %` = $lines(badnicklist.txt)
while %` {
if $fline($1,$read(badnicklist.txt,%`),0,1) >= 1 { var %~ = $ifmatch | while %~ { if $line($1,$fline($1,$read(badnicklist.txt,%`),%~,1) ,1) isreg $1 { mode $1 +b $+($read(badnicklist.txt,%`),!*@*) | kick $1 $line($1,$fline($1,$read(badnicklist.txt,%`),%~,1) ,1) %kckmsg } | dec %~ } }
dec %`
}
}
}
#oto-tara on
on *:OP:#:if $opnick == $me { krt $chan }
#oto-tara end
;-----------------------------------------
on *:LOAD:{
echo -a $timestamp *** Kötü Rumuz Koruması başarıyla yüklendi.
echo -a $timestamp *** İs here AhmT [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
run notepad.exe badnicklist.txt
set %oto-tara on
set %NickDeğiş on
set %kckmsg 4N14ickini1z 4K14ana1l 4S14eviyesin1e 4u14ygu1n 4o14lmaya1n 4n14itelikle1r 4t14aşımaktadı1r14.
}
on *:UNLOAD:{
echo -a $timestamp *** Kötü Rumuz Koruması kaldırıldı.
unset %oto-tar
unset %NickDeğiş
unset %kckmsg
}


Bu kodeye muaf nickler ve muaf kanallarıda eklemek istiyorum bu mümkünmü acaba ?
Birde benim kickmsg.txt dosyam var o dosya içindeki mesaj şekillerini göre farklı farklı atabilirmi ?
Örnek ;
[14:39:17] * *** was kicked by Pikacu (4Rumuzunuz 1kanal seviyesine uygun olmayan nitelikler taşımaktadır. 4*/Nick YeniRumuz* 1komutuyla rumuzunuzu değiştirmeden kanala giriş yapamazsınız. 1(2 19/10/2008 /21:37:06 1) 1Kick sayısı : (2 15 1))
[14:39:17] * *** was kicked by Pikacu (4 Nick değişmelisiniz. 1(2 19/10/2008 /21:37:06 1) 1Kick sayısı : (2 15 1))
[14:39:17] * *** was kicked by Pikacu (4 Lütfen uygun nick seciniz. 1(2 19/10/2008 /21:37:06 1) 1Kick sayısı : (2 15 1))

Cevap: Şu kodeye bakabilirmisiniz LÜTFEN ?
 

Muaf Kanallar İcin
Muaf Nickler İcin
Bunları Koduna Eklemen gerekli.

Banlarda dosyadan rastgele mesajlar okutmak icinde ban sebebi kısmına.

Cevap: Şu kodeye bakabilirmisiniz LÜTFEN ?
 

Elimden geldiğince toparlamaya çalıştım , belki eksik kalan yerler olmuştur.
Muaf nickler için , !istok(MuafNick1 MuafNick2,$nick,32)
Muaf kanal için , !istok(#MuafKanal1 #MuafKanal2,$chan,32)
Kick mesajların için , kickmesaj.txt

Bu durumları hem girişlerde hemde nick değişimlerinde ayarladım ama dediğim gibi tam olarak neticelenmemiş olabilir.Kullandıkça bu başlık altında yine yardımcı oluruz...
İyi paylaşımlar...

Cevap: Şu kodeye bakabilirmisiniz LÜTFEN ?
 

Çok saol Difuzyon fakat benim ekliyecegim muaf nickler bir hayli fazla :) bu yüzden bu muaf olaylarınıda txt içinde yapamazmıyız ?
Nickleri bu muafa ben şöyle ekliyorum mesela *nick* gibi.

Cevap: Şu kodeye bakabilirmisiniz LÜTFEN ?
 

Hayır,mantık olarak o şekilde algılamayacaktır.Ben size bir örnek izah edeyim;
Badnick ekleyeceğiniz mask : *gay* şeklinde olmalı.

Eklediğiniz bu mask ile kanala girişte veya nick değişiminde etkilenecek nickler: gay gay21 gaypppp ist_gay a_gay_arabali vs vs :D

Muaf tutulacak nickler ise: turgay gaye tugay vs vs...
Şeklinde düşününüz.

Muaf tutmak istediğiniz nickleri tek tek elle yazacaksınız.Bunun için bir sınırlama yok,örneğin:
!istok(turgay tugay gaye gayesiz inzibat-tugay gayret ha_gayret dondurmam_gaymak ist_gaye _21_tugay,$nick,32)

aynı şekilde kanal içerisinde nick değişimleri olduğunda bundan etkilenmeyecek nickler içinde:
!istok(turgay tugay gaye gayesiz inzibat-tugay gayret ha_gayret dondurmam_gaymak ist_gaye _21_tugay,$newnick,32)
şeklinde uygulamalısınız.

(Bu arada Nick değişimlerinde muaf tutulacak nickler kısmında kodda düzeltme yaptım,kodu yeniden alınız.)

İyi paylaşımlar...

Cevap: Şu kodeye bakabilirmisiniz LÜTFEN ?
 

Böğlede kısıtlı oluyor ama.
Benim muafnickler.txt gibi bişiy istemiştim.
Muaf nicklerim en az 150 tane var heralde o bakımdan yani.