Tekil Mesaj gösterimi
Alt 14 Temmuz 2011, 18:35   #3
Çevrimdışı
StanteaR
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Küfüre Ayrı Pencere




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..
 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları reklamver bizimmekan