alias sahr1 { tokenize 32 $1-
  set %dbg $5-
  set %debugkrm $remove($gettok($2,1,33),:)
  if $ulist(%dbg,arkadas,0) { tumban %debugkrm
  }
  if (*NICK* iswm $3-) {
    set %dbgn $4-
    if $ulist(%dbgn,arkadas,0) { 
     tumban %dbgn
    }
  }
  if (*JOIN* iswm $2-) {
    set %dbgj $remove($gettok($2,1,33),:)
    if $ulist(%dbgj,arkadas,0) {
      tumban %dbgj 
    }
  }
}
alias tumban {
  if $1 == $me || $comchan($1,1) == $null { halt }
  set %kanalsayisi $comchan($1,0)
  var %xzx = 1
  while (%xzx <= %kanalsayisi) {   
  echo -a ban -u300 $comchan($1,%xzx) %debugkrm Yasak %dbgj | inc %xzx }
}