Çevrimiçi

Elimde Bır Kufur Koruması Var Şu ŞekıL.. Bu Kufur Edıldıgınde Ayrı Bır Kufur Penceresı Acılıyor. Edılen Kufuru Saatı Kufur Edenın Nıckını Belırtıyor.

Alıntı:

on @*:TEXT:*:#:{ if ($istok(%muafnickler,$nick,32)) { halt } if $nick ison %muafkanallar { halt } var %p = 0 while (%p < $numtok($1-,32)) { inc %p if ($nick !isop $chan) { if ($istok(%badwords,$gettok($1-,%p,32),32)) && (%badword.detect == on) { msg $nick 7 $chan 10 kanalında 2Küfür10 sebebinden dolayı tarafımdan atıldınız. 5Kullandığınız kelime: (7 $+ $gettok($1-,%p,32),32) $+ 5)14 Eğer bir hata olduğunu düşünüyorsanız ŞİMDİ özelime bunu bildiriniz. ban # $nick 2 kick # $nick 2Küfür5 tespit edildi!. 10 Kullandığınız kelime özelinize gönderildi. 2Eğer bir hata olduğunu düşünüyorsanız özelime bunu bildiriniz. | Window -e @Küfür | titlebar @Küfür Kanal Korumasından gelen suç ve ceza raporları | echo 4 @Küfür »7 Kullandığı Kelime Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. 4 $+ $gettok($1-,%p,32),32) $+ ) 10nick:7 $nick 10KaNaL:7 $chan 10 BaN Süresi:7 süresiz 10 Zaman:7 $time } } } } on @*:action:*:#:{ if ($istok(%muafnickler,$nick,32)) { halt } if $nick ison %muafkanallar { halt } var %p = 0 while (%p < $numtok($1-,32)) { inc %p if ($nick !isop $chan) { if ($istok(%badwords,$gettok($1-,%p,32),32)) && (%badword.detect == on) { msg $nick 7 $chan 10 kanalında 2Küfür10 sebebinden dolayı tarafımdan atıldınız. 5Kullandığınız kelime: (7 $+ $gettok($1-,%p,32),32) $+ 5)14 Eğer bir hata olduğunu düşünüyorsanız ŞİMDİ özelime bunu bildiriniz. ban # $nick 2 kick # $nick 2Küfür5 tespit edildi!. 10 Kullandığınız kelime özelinize gönderildi. 2Eğer bir hata olduğunu düşünüyorsanız özelime bunu bildiriniz. | Window -e @Küfür | titlebar @Küfür Kanal Korumasından gelen suç ve ceza raporları | echo 4 @Küfür »7 Kullandığı Kelime Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. 4 $+ $gettok($1-,%p,32),32) $+ ) 10nick:7 $nick 10KaNaL:7 $chan 10 BaN Süresi:7 süresiz 10 Zaman:7 $time } } } } on @*:notice:*:#:{ if ($istok(%muafnickler,$nick,32)) { halt } if $nick ison %muafkanallar { halt } var %p = 0 while (%p < $numtok($1-,32)) { inc %p if ($nick !isop $chan) { if ($istok(%badwords,$gettok($1-,%p,32),32)) && (%badword.detect == on) { msg $nick 7 $chan 10 kanalında 2Küfür10 sebebinden dolayı tarafımdan atıldınız. 5Kullandığınız kelime: (7 $+ $gettok($1-,%p,32),32) $+ 5)14 Eğer bir hata olduğunu düşünüyorsanız ŞİMDİ özelime bunu bildiriniz. ban # $nick 2 kick # $nick 2Küfür5 tespit edildi!. 10 Kullandığınız kelime özelinize gönderildi. 2Eğer bir hata olduğunu düşünüyorsanız özelime bunu bildiriniz. | Window -e @Küfür | titlebar @Küfür Kanal Korumasından gelen suç ve ceza raporları | echo 4 @Küfür »7 Kullandığı Kelime Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. 4 $+ $gettok($1-,%p,32),32) $+ ) 10nick:7 $nick 10KaNaL:7 $chan 10 BaN Süresi:7 süresiz 10 Zaman:7 $time } } } } alias badword { if ($1 == add) { set %badwords $addtok(%badwords,$2,32) echo -a 14»1»15»1 Listeye $2 Eklendi..! } if ($1 == del) { if ($istok(%badwords,$2,32)) { set %badwords $remtok(%badwords,$2,32) echo -a 14»1»15»1 Listeden $2 Silindi..! } } if ($1 == delall) { unset %badwords echo -a 14»1»15»1 Küfür Listesi Boşaltıldı..! } if ($1 == list) { if ($window(@KüfürListesi) == $null) { window -ab @KüfürListesi } if ($numtok(%badwords,32) == 0) { aline @KüfürListesi 14»1»15»1 Listede Hicbir Kelime YoK..! | halt } aline @KüfürListesi 14»1»14»1 KüfürLü Kelimeler Listeleniyor... 10ToPLam Küfür : ( $+ $numtok(%badwords,32) $+ ) var %n = 1 while (%n <= $numtok(%badwords,32)) { aline $color(info 2) @KüfürListesi 2»»» 10 $gettok(%badwords,%n,32) inc %n } aline @KüfürListesi 14»1»15»1 LisTe Sonu .. } } alias Badword dialog -m Badword Badword dialog Badword { title "Küfür Koruma" size -1 -1 355 179 option pixels button "Kapat", 2, 25 125 300 25, ok button "Küfür Korumasını Çalıştır", 3, 25 25 150 25 button "Küfür Korumasını Kapat", 4, 175 25 150 25 button "Kelime Ekle", 5, 25 50 150 25 button "Kelime Sil", 6, 175 50 150 25 button "Listedeki Tüm Kelimeleri Sil", 7, 25 75 300 25 button "Küfür Listesine Bak", 8, 25 100 300 25 box "Küfür Koruması ", 9, 2 1 350 168 } on 1:dialog Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. adword:sclick:*:{ if ($did == 3) { /set %badword.detect on | echo -a 0> 2[ 10Küfür Koruması 7Açıldı. 2] } if ($did == 4) { /unset %badword.detect | echo -a 0> 2[ 10Küfür Koruması 7Kapatıldı. 2] } if ($did == 5) { /badword add $$?="Listeye eklemek istediğiniz Küfürü giriniz:" } if ($did == 6) { /badword del $$?="Listeden silmek istediğiniz Küfürü giriniz:" } if ($did == 7) { /badword delall } if ($did == 8) { /badword list } }

Ben Bu Kufur Penceresını şu Korumayada Eklemek Istıyorumda.

Alıntı:

on @*:TEXT:*:#:{ if ($istok(%muafnickler,$nick,32)) { halt } if $nick ison %muafkanallar { halt } if ($nick isreg #) && !$istok(#operhelp #Help #yönetim,#,32) && $nick !ison #Ops { var %i $lines(küfür.txt) while (%i > 0) { if ($read(küfür.txt,%i) iswm $1-) { var %k $comchan($nick,0) while (%k > 0) { if ($nick !isop $comchan($nick,%k)) { mode $chan +b $wildsite | kick $comchan($nick,%k) $nick %küfür } dec %k } } dec %i } } } } }

__________________
Benim En Kötü Hikaye'mi En Güvendiğim İnsanlar Yazdı..
Erhan İle Hüzünlü Saatler Etka..