#argo on
on @*:TEXT:*:#:{
  if $istok(#kanal1 #kanal2 #kanal3,$chan,32) { return }
  var %i 1
  while $read(argo.txt,%i) {
    if ($read(argo.txt,%i) iswm $1-) { ban -k # $nick 2 1Argo konuşmak yasaktır! %banla %cihandar
    }
    inc %i
  }
} 
 
on @*:NOTICE:*:#:{
  if $istok(#kanal1 #kanal2 #kanal3,$chan,32) { return }
  var %i 1
  while $read(argo.txt,%i) {
    if ($read(argo.txt,%i) iswm $1-) { ban -k # $nick 2 1Argo konuşmak yasaktır! %banla %cihandar
    }
    inc %i
  }
} 
 
on @*:ACTION:*:#:{
  if $istok(#kanal1 #kanal2 #kanal3,$chan,32) { return }
  var %i 1
  while $read(argo.txt,%i) {
    if ($read(argo.txt,%i) iswm $1-) { ban -k # $nick 2 1Argo konuşmak yasaktır! %banla %cihandar
    }
    inc %i
  }
} 
#argo end

on @badnick:join:#:mode # +b $nick | kick # $nick  1Badnick kullanımı yasaktır! %banla %cihandar
alias tara {
  if $me !isop $1 { return }
  var %t = 1
  while (%t <= $nick($1,0)) {
    var %bdnick = $nick($1,%t)
    if ($level($nick($1,%t)) == badnick) { mode $1 +b  $ulist(%bdnick) | kick $1 %bdnick 1BadNick kullanımı yasaktır! %banla %cihandar }
    inc %t 1
  }
}