on *:TEXT:*:#:{
  var %i $lines(kufurler.txt)
  while (%i > 0) {
    if ($me isop $chan)
    if ($nick !isop $chan)
    if ($read(kufurler.txt,%i) isin $1) {
      mode $chan +b $nick | kick $chan $nick Küfür Yasak.!
    }
  }
}
on *:TEXT:*:?:{
  var %i $lines(kufurler.txt)
  while (%i > 0) {
    if ($me isop $comchan($nick,1))
    if ($nick !isop $comchan($nick,1))
    if ($read(kufurler.txt,%i) isin $1) {
      mode $comchan($nick,1) +b $nick | kick $comchan($nick,1) $nick Küfür Yasak.!
    }
  }
}
alias kufurekle { 
  write kufurler.txt $1
}
alias kufurlist {
  var %i $lines(kufurler.txt)
  while (%i > 0) {
    echo -a $read(kufurler.txt,%i)
    dec %i
  }
}
alias kufursil {
  write $+(-ds,$1) kufurler.txt $1
} 
on *:TEXT:*:#:{
  var %i $lines(reklamlar.txt)
  while (%i > 0) {
    if ($me isop $chan)
    if ($nick !isop $chan)
    if ($read(reklamlar.txt,%i) isin $1) {
      mode $chan +b $nick | kick $chan $nick Küfür Yasak.!
    }
  }
}
on *:TEXT:*:?:{
  var %i $lines(reklamlar.txt)
  while (%i > 0) {
    if ($me isop $comchan($nick,1))
    if ($nick !isop $comchan($nick,1))
    if ($read(reklamlar.txt,%i) isin $1) {
      mode $comchan($nick,1) +b $nick | kick $comchan($nick,1) $nick Küfür Yasak.!
    }
  }
}
alias reklamekle { 
  write reklamlar.txt $1
}
alias reklamlist {
  var %i $lines(reklamlar.txt)
  while (%i > 0) {       
    echo -a $read(reklamlar.txt,%i)
  }
  dec %i
}
alias reklamsil {
  write $+(-ds,$1) reklamlar.txt $1
}