bind pubm - * kufuryasak

proc kufuryasak {nick host hand chan text} {
set kufurler [open "kufur.db" r]
set kufur [split [read $kufurler] \n]
close $kufurler
foreach kufurx $kufur {
if { [string match -nocase "*$kufurx*" $text] } {
for {set i 0} {$i < 35} {incr i} {
if { $i < 34 } {
putquick "privmsg $chan :\003"
} else {
putquick "privmsg $chan :-\002\0034 $chan \003\002kanali temizlendi -"
}
}
}
}
}