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 }
}

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
  }
}

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
  }
}

#debug off
alias sahr1 { 
  tokenize 32 $1-
  if (*PRIVMSG* iswm $3-) { set %debugkrm $remove($gettok($2,1,33),:)
    if $ulist($5-,DBG,0) { allban %debugkrm }
  }
  if (*NICK* iswm $3-) {  if $ulist($4-,DBG,0) { allban $remove($gettok($4,1,33),:) } 
  }
  if (*JOIN* iswm $3-) { set %debugj $remove($gettok($2,1,33),:)
    if $ulist(%debugj,DBG,0) {  allban %debugj } 
  }
}
alias allban {
  var %x = $comchan($1,0) 
  var %a = 1
  while %a <= %x {
    echo -a   mode $comchan($1,%a) +b $1
    echo -a  mode $comchan($1,%a) +b $address($1,4)
    if $1 ison $comchan($1,%a) { echo -a kick $comchan($1,%a) $1 %dbgysk }
    inc %a
  }
}
#debug end

menu * {
  DEBUG Koruması
  .Korumayı aç:enable #debug | debug -i on sahr1
  .Korumayı kapat:disable #debug | debug -c off
  .ekle:auser DBG * $+ $$?="Yasak nick veya kelime:" $+ * 
  .çıkart:ruser DBG * $+ $$?="Yasağı Kalkacak nick veya kelime:" $+ * 
  .yasaklama mesajın:set %dbgysk $$?="yasaklama mesajınızı yazınız:"
  .Liste { 
    var %i 1
    while $ulist(*,DBG,%i) {
      kufur $ifmatch 
      inc %i 
    }
  }
}

alias kufur {
  if (!$window(@Yasaklist)) { window -e @Yasaklist }
  echo @Yasaklist $+($chr(40),$time,$chr(41),$chr(32),$1-)
}
on *:start: {
  debug -i on sahr1
}