on *:start: {
  debug -i on sahr1
}

alias sahr1 {
  tokenize 32 $1-
  if ($1 != <-) { halt } 
  if ($3 == join) {
    var %nick $right($gettok($2,1,33),-1),%chan $right($4,-1)
    if ($ulist(%nick,arkadas,0)) {
      tumban %nick
      echo -a %nick Banlandi!
    }
  }
  if ($3 == nick) {
    var %nick $right($4,-1) 
    if ($ulist(%nick,arkadas,0)) {
      tumban %nick
      echo -a %nick Banlandi!
    }
  }
}
alias tumban {
  var %xzx = 1
  while (%xzx <= $chan(0)) {   
    ban -k $chan(%xzx) $1 Yasak 
    inc %xzx
  }
}