|
on *:text:*:#:{
var %a = $lines(küfürler.txt)
while %a {
if ($read(küfürler.txt,%a) isin $1-) {
banla $nick $chan
halt
}
else {
dec %a
}
}
}
alias banla {
if $1 isreg $2 {
if $me isop $2 {
ban -ku900 $2 $1 2 küfür etme
}
else {
cs akick $2 $add $address($1,2)
cs akick $2 enforce
timer 1 300 cs akick $2 del $address($1,2)
}
}
}
Şimdilik işinin görülmesi açısından kodu veriyim.En yakın zamanda anlatımda yaparım.
|