Forums Scripts & Popups Only one channel is working on my auto whois ban

menu channel {
  Badchan Checker
  .$iif($group(#badchans) == off,$style(2)) $iif($istok(%protchans,#,32),Remove,Add) protection for #:{
    if $istok(%protchans,#,32) {
      %protchans = $remtok(%protchans,#,1,32)
      echo -ac info * Removed # from the list of protected channels
    }
    else {
      %protchans = %protchans #
      echo -ac info * Added # to the list of protected channels
    }
  }
  .$iif($group(#badchans) == on,Disable,Enable):{
    if $group(#badchans) == on) { disable #badchans | chans_save }
    else { enable #badchans | chans_load }
  }
}

#badchans on
on *!:JOIN:%protchans: .enable #chancheck | whois $nick 
on *:START: chans_load
on *:EXIT: chans_save
#badchans end

#chancheck off
raw 318:*: haltdef | .disable #chancheck 
raw 319:*: haltdef | chans_check $2- 
raw *:*: if $istok(301 307 310 311 312 313 317 320 401,$numeric,32) { haltdef }
#chancheck end

alias chans_noprefix var %a, %b = $regsub($1-,/(?:^|\s)([^#]+)/g,$chr(32),%a) | return %a

alias chans_check {
  var %chans = $chans_noprefix($2-), %a = 1
  while $gettok(%chans,%a,32) {
    if $hget(chans,$v1) { chans_comkick $1 | return }
    inc %a
  }
}

alias chans_comkick {
  var %a = $comchan($1,0), %b
  while $comchan($1,%a) {
    %b = $v1
    if $istok(%protchans,%b,32) && $me isop %b && $1 !isop %b {
      ban -ku1800 %b $1 2 Banned: forbidden channel/nickname. 
    }
    dec %a
  }
}

alias chans_load {
  if !$isfile(chans.txt) {
    echo -asc info * Could not find chans.txt. Creating new file...Done.
    write chans.txt
  }
  hmake chans
  hload chans chans.txt
}

alias chans_save hsave chans chans.txt | hfree chans

alias chans_add {
  hadd chans $$1 1 
  echo -ac info * Added $1 to list of bad channels
}

alias chans_rem {
  hdel chans $$1 
  echo -ac info * Deleted $1 from list of bad channels 
}

alias chans_list {
  var %a = 1
  echo -asc info ### Listing bad channels ###
  while $hget(chans,%a).item { 
    echo -as * $v1
    inc %a
  }
}

menu channel { 
  Badchan Checker 
  .$iif($group(#badchans) == off,$style(2)) $iif($istok(%protchans,#,32),Remove,Add) protection for #:{ 
    if $istok(%protchans,#,44) { 
      %protchans = $remtok(%protchans,#,1,44) 
      echo -ac info * Removed # from the list of protected channels 
    } 
    else { 
      %protchans = $addtok(%protchans,#,44)
      echo -ac info * Added # to the list of protected channels 
    } 
  } 
  .$iif($group(#badchans) == on,Disable,Enable):{ 
    if $group(#badchans) == on) { disable #badchans | chans_save } 
    else { enable #badchans | chans_load } 
  } 
} 
 [color:red]  [/color] 
#badchans off
on *!:JOIN:%protchans: .enable #chancheck | whois $nick 
on *:START: chans_load 
on *:EXIT: chans_save 
#badchans end 
 [color:red]  [/color] 
#chancheck off 
raw 318:*: haltdef | .disable #chancheck 
raw 319:*: haltdef | chans_check $2- 
raw *:*: if $istok(301 307 310 311 312 313 317 320 401,$numeric,32) { haltdef } 
#chancheck end 
 [color:red]  [/color] 
alias chans_noprefix var %a, %b = $regsub($1-,/(?:^|\s)([^#]+)/g,$chr(32),%a) | return %a 
 [color:red]  [/color] 
alias chans_check { 
  var %chans = $chans_noprefix($2-), %a = 1 
  while $gettok(%chans,%a,32) { 
    if $hfind(chans,$v1,1,W) { chans_comkick $1 | return } 
    inc %a 
  } 
} 
 [color:red]  [/color] 
alias chans_comkick { 
  var %a = $comchan($1,0), %b 
  while $comchan($1,%a) { 
    %b = $v1 
    if $istok(%protchans,%b,44) && $me isop %b && $1 !isop %b { 
      ban -k %b $1 2 You are on a forbidden channel. 
    } 
    dec %a 
  } 
} 
 [color:red]  [/color] 
alias chans_load { 
  if !$isfile(chans.txt) { 
    echo -asc info * Could not find chans.txt. Creating new file...Done. 
    write chans.txt 
  } 
  hmake chans 
  hload chans chans.txt 
} 
 [color:red]  [/color] 
alias chans_save hsave chans chans.txt | hfree chans 
 [color:red]  [/color] 
alias chans_add { 
  hadd chans $$1 1 
  echo -ac info * Added $1 to list of bad channels 
} 
 [color:red]  [/color] 
alias chans_rem { 
  hdel chans $$1 
  echo -ac info * Deleted $1 from list of bad channels 
} 
 [color:red]  [/color] 
alias chans_list { 
  var %a = 1 
  echo -asc info ### Listing bad channels ### 
  while $hget(chans,%a).item { 
    echo -as * $v1 
    inc %a 
  } 
} 
 

on *@!:join:#:{ setlimit $cid $chan }
on *@!part:#:{ setlimit $cid $chan }
on *!:quit:{
  var %i = 1
  while ($comchan($nick,%i)) {
    if ($comchan($nick,%i).op) { setlimit $cid $comchan($nick,%i) }
    inc %i
  }
}
on @*:kick:#:{
  if ($knick != $me) { setlimit $cid $chan }
}
alias setlimit {
  if (!$timer(mode $+ $1 $+ $2)) { .timermode $+ $1 $+ $2 1 6 mode $2 +l $calc($nick($2,0) + 5) }
}