Forums Scripts & Popups channel blacklist

raw 319:*: {
if ($2 ison #channel) {
  set %user.channels $remove($1-,@,+)
  set %checknum $0
  set %i 3
  while (%i <= %checknum) {
    set %blacklist.check $addtok(%blacklist.check,$gettok(%user.channels,%i,32),32)
    set %del $gettok(%user.channels,%i,32)
    if ($istok(%blacklist,%blacklist.check,32) == $true) {
      ban -u300 #ircmods $2 2
      :command
      unset %blacklist.check
      unset %del
      break
    }
    if ($istok(%blacklist.check,%del,32)) {
      set %blacklist.check $deltok(%blacklist.check,$findtok(%blacklist.check,%del,32),32)
      inc %i 1
    }
  }
}