Çevrimdışı

on *:TEXT:*:#:{
if $nick isop # { return }
var %i 1
while $read(kufurler.txt,%i) {
if ($read(kufurler.txt,%i) iswm $remove($1-,$chr(32),*,/,\,.,$chr(44),-,_,!,
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
) { /kick $chan $nick Kanal İçinde Küfür\Reklam Vb.. Agresif Davranışlar Yasaktır ! | /mode $chan +b $nick }
inc %i
}
}


bu korumanın kanal operatorlerıne ıslememesını ıstıyorum yanı operatorler kufretse bıle atmayacak nasıl yapabılırım

[box=el33t]Kırmızı[/box]

 

1dakka...

 

Çevrimdışı

on *:TEXT:*:#:{
if $nick isop $chan { halt }
var %i 1
while $read(kufurler.txt,%i) {
if ($read(kufurler.txt,%i) iswm $remove($1-,$chr(32),*,/,\,.,$chr(44),-,_,!,
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
) { /kick $chan $nick Kanal İçinde Küfür\Reklam Vb.. Agresif Davranışlar Yasaktır ! | /mode $chan +b $nick }
inc %i
}
}

Tamamdır. İşine yarar umarım.

 

Çevrimdışı

çalışmıyor
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 

Çevrimdışı

dialog kufur {
title "Küfür Koruması [ NaTSuKa ]"
size -1 -1 138 186
option dbu
edit "", 1, 7 10 61 10
list 2, 7 22 60 50, size
button "Ekle", 3, 7 74 27 12, flat
button "Sil", 4, 39 74 27 12, flat
check "Opları (@)", 5, 85 21 41 10, flat
check "Voiceler (@)", 6, 85 10 42 10, flat
combo 7, 7 102 52 51, size
button "Ekle", 8, 7 154 24 9, flat
button "Sil", 9, 35 154 23 9, flat
box "Küfür listesi", 13, 3 2 71 88
box "Ayrılan Nickler", 14, 3 92 63 76
box "Ayrılan Kanallar", 15, 73 92 62 76
box "Ayır", 16, 78 2 56 33
button "Sil", 10, 106 154 23 9, flat
button "Ekle", 11, 78 154 24 9, flat
combo 12, 78 102 52 51, size
box "İşlemler", 17, 78 37 56 53
radio "Opersem Kline", 18, 83 47 47 10, flat
radio "Opersem Kill", 19, 83 57 47 10, flat
radio "Opsam Kick", 20, 83 67 47 10, flat
check "Banla", 21, 83 77 27 10, flat
button "Kapat", 22, 97 171 37 12, flat ok
}
alias kufur { /dialog -m kufur kufur }
on *:dialog:kufur:init:*: {
if ($isfile(kufur.txt) == $false) { write -c kufur.txt } | else { loadbuf -o $dname 2 kufur.txt }
if (%knickler) .didtok $dname 7 32 $ifmatch
if (%kufkanal) .didtok $dname 12 32 $ifmatch
if (%klineat) { .did -c $dname 18 }
if (%killat) { .did -c $dname 19 }
if (%kickat) { .did -c $dname 20 }
if (%banla) { .did -c $dname 21 }
if (%oplar) { .did -c $dname 5 }
if (%vlar) { .did -c $dname 6 }
}
on *:dialog:kufur:sclick:*: {
if ($did == 18) { if ($did(18).state == 1) { .set %klineat on | .unset %killat | .unset %kickat } | else { .unset %klineat } }
if ($did == 19) { if ($did(19).state == 1) { .set %killat on | .unset %klineat | .unset %kickat } | else { .unset %killat } }
if ($did == 20) { if ($did(20).state == 1) { .set %kickat on | .unset %killat | .unset %klineat } | else { .unset %kickat } }
if ($did == 21) { if ($did(21).state == 1) { .set %banla on } | else { .unset %banla } }
if ($did == 3) { write kufur.txt $did(1) | did -a $dname 2 $did(1) | did -r $dname 1 }
if ($did == 4) { write -dl $+ $did(2).sel kufur.txt | did -d $dname 2 $did(2).sel }
if ($did == 8) { if ($did(7) != $null) { set -u %sk $did(7) | if (%sk) && (!$istok(%knickler,%sk,32)) { .set %knickler $addtok(%knickler,%sk,32) | did -a $dname 7 %sk } } }
if ($did == 9) { if ($did(7).sel > 0) { .set %knickler $remtok(%knickler,$did(7).seltext,1,32) | did -d $dname 7 $did(7).sel | did -c $dname 7 1 } }
if ($did == 11) { if ($did(12) != $null) { set -u %ek $did(12) | if (%ek) && (!$istok(%kufkanal,%ek,32)) { .set %kufkanal $addtok(%kufkanal,%ek,32) | did -a $dname 12 %ek } } }
if ($did == 10) { if ($did(12).sel > 0) { .set %kufkanal $remtok(%kufkanal,$did(12).seltext,1,32) | did -d $dname 12 $did(12).sel | did -c $dname 12 1 } }
if ($did == 5) { if ($did(5).state == 1) { .set %oplar on } | else { .unset %oplar } }
if ($did == 6) { if ($did(6).state == 1) { .set %vlar on } | else { .unset %vlar } }
}
on *:text:*:#: {
if $istok(%kufkanal,#,32) == $true { halt }
if $istok(%knickler,$nick,32) == $true { halt }
if ($nick isop #) && (%oplar == on) { return }
if ($nick isvo #) && (%vlar == on) { return }
korukufurden $1-
}
alias korukufurden {
var %HR $strip($1-) , %_: $lines(kufur.txt)
while (%_
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
{
if $read(kufur.txt,%_
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
iswm %HR iswm %HR {
if (%banla == on) { .mode $chan +b $wildsite }
if (%klineat == on) { .kline $nick Lutfen kufur etmeyin }
if (%killat == on) { .kill $nick Lutfen kufur etmeyin }
if (%kickat == on) { .mode $chan +b $wildsite | .kick $chan $nick Kanal genelinde küfür ve argo içerkli konuşmalarınız yüzünden uzaklaştırıldınız. }
return
}
dec %_:
}
}

 

Çevrimdışı

/kufur yazdığında listede ayır yazıyo orda @ lara seçeneğini işaretle umarım işine yarar

 

Çevrimdışı

denmedim ama büyük ihtimal çalışır

 

Çevrimdışı

malesef 2 sıde olmadı 2 ayrı scıptte denedım olmadı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.