Kod: Kodu kopyalamak için üzerine çift tıklayın!
on *:text:*:#: {
var %kufur $lines(kufur.txt)
while (%kufur > 0) {
if ($read(kufur.txt,%kufur) isin $strip($1-)) { set -e %kfrbz $nick $chan $time $1- | who $nick | .enable #wholist }
dec %kufur
}
}
#wholist off
raw 352:*: {
haltdef
if $gettok(%kfrbz,1,32) == $6 {
if *r* iswm $7 {
if ($window(@Kufur) == $null) { window -ne @Kufur }
echo 12 -t @Kufur $6 Nicki $gettok(%kfrbz,2,32) Kanalında $gettok(%kfrbz,3,32) Saatinde Şunu Yazdı: $gettok(%kfrbz,4-,32)
}
}
unset %kfrbz
if $gettok(%kickfrbz,2,32) == $6 {
if *r* iswm $7 {
if ($window(@Kick) == $null) { window -ne @Kick }
echo 4 -t @Kick $gettok(%kickfrbz,2,32) $gettok(%kickfrbz,3,32) nickli kişiyi $gettok(%kickfrbz,1,32) Kanalından şu sebeple attı: $gettok(%kickfrbz,4-,32)
}
}
unset %kickfrbz
}
raw 315:*:haltdef | .disable #wholist
#wholist end
on *:Kick:#: {
if *AKICK by* iswm $1- {
var %i $lines(kufur.txt)
while (%i > 0) {
if ($read(kufur.txt,%i) isin $strip($4-)) {
if ($window(@Akick) == $null) { window -ne @Akick }
echo 4 -t @Akick $nick $knick nickli kişiyi $chan Kanalından şu sebeple attı: $1-
}
dec %i
}
}
else {
var %i $lines(kufur.txt)
while (%i > 0) {
if ($read(kufur.txt,%i) isin $strip($1-)) { set -e %kickfrbz $chan $nick $knick $1- | who $nick | .enable #wholist }
dec %i
}
}
}
Kanalda geçen küfürlü text mesajlarında ve kick mesajlarında,nick kayıtlı biriyse @uyarı verir.Değilse pas geçecektir.
Akick komutunu uygulayacak kişinin kayıtlı bir nick olması gerektiğinden, küfürlü mesaj varsa direk @uyarı verecektir.
Kolay gelsin.