| host ban ve sebep yazısı
on *:TEXT:*:#:{
var %i $lines(kelime.txt)
while (%i > 0) {
if ($read(kelime.txt,%i) iswm $1-) {
var %k $comchan($nick,0)
while (%k > 0) {
if ($nick !isop $comchan($nick,%k)) { mode $chan +b $nick | kick $comchan($nick,%k) $nick Get OUT! }
dec %k
}
}
dec %i
}
}
sadece hosta ban atmasını istiyorum kıck atmasın ayrıca hosta ban atarken sebep yazısıda belırtsın bunu nasıl cevırebilirz
|