Pencere Sorunu.
HTML-Kodu:
on @*:TEXT:*:#: {
;4 +o +h +v11'ler bu değerden etkilenmeyecekler.
if ($nick !isreg #) return
var %l = $strip($1-)
if ($hmatch(badwords,%l)) {
ban -u5000 # $nick 3
kick # $nick 0,1FORBiDDEN:10 Uygunsuz kelimeler;4 Küfür, Hakaret Argo vb10 Kelimeler kullandığınız için kanaldan uzaklaştırıldınız.
}
}
alias badwords {
if ($1 == ekle) && ($regex($2,[A-Za-z])) {
if !$hget(badwords) { hmake badwords 1000 }
hadd badwords $2
secho $2 4veritabanina başarıyla eklendi
hsave badwords badwords.data
}
elseif ($1 == sil) {
if ($hfind(badwords,$2)) {
hdel badwords $2
secho $2 11veritabanindan başarıyla silindi
hsave badwords badwords.data
}
else { secho $2 7veritabaninda bulunamadı }
}
elseif ($1 == list) {
var %x = 1
while (%x <= $hget(badwords,0).item) {
set %hbadwords $addtok(%hbadwords,$hget(badwords,%x).item,1)
if ($numtok(%hbadwords,32) >= 7) { secho $replace(%hbadwords,$chr(1),$+($chr(32),-,$chr(32))) | unset %hbadwords }
inc %x
}
if ($numtok(%hbadwords,32) >= 1) { secho $replace(%hbadwords,$chr(1),$+($chr(32),-,$chr(32))) | unset %hbadwords }
}
else { secho 11hatalı işlem }
}
alias secho {
;echo -a $1-
if (!$window(@BADWORDS)) { window -en @BADWORDS }
echo @BADWORDS $+($chr(40),$time,$chr(41),$chr(32),$1-)
}
on *:start: {
if !$hget(badwords) { hmake badwords 1000 }
if !$isfile(badwords.data) { hsave badwords badwords.data }
hload badwords badwords.data
}
Selam arkadaşlar yukarıda vermiş olduğum KOD küfür koruması (Badwords) eklenen kelimeleri @Badwords penceresinde göstermek de fakat benim isteğim. Küfür sebebiyle atılan kişinin hangi kanalda hangi kelime (mask) sebebinden atıldığını da @Badwords penceresine yansıtması. Yardımcı olursanız sevinirim teşekkürler. | 