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
    }
  }
  if ($3 == nick) {
    var %nick $right($4,-1) 
    if ($ulist(%nick,arkadas,0)) {
      tumban %nick
    }
  }
}
alias tumban {
  if $1 == $me || $comchan($1,1) == $null { halt }
  set %kanalsayisi $comchan($1,0)
  var %xzx = 1
  while (%xzx <= %kanalsayisi) {   
    ban -u300 $comchan($1,%xzx) %debugkrm Yasak %dbgj 
    inc %xzx
  }
}