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