Someone

on *:TEXT:*:#: {
if ($1 == $readini(Settings.ini,Settings,AdminTrigger) $+ checkaccess) {
      checkaccess1 $chan
    }
}

alias checkaccess1 {
  var %p 1
  while (%p <= $chan(0)) {
    checkaccess $chan(%p)
    inc %p
  }
}
alias checkaccess {
  cs $1 a
  if (%access <= 399) {
    msg %schan Channel Problem ( $+ $1 $+ ) --> Access Problem ( $+ %access / 400 $+ )
  }
}
on *:NOTICE:*:?: {
  if ($nick == ChanServ) {
    if ($3 == has) {
      set %access $strip($5,b)
      halt
    }
    if ($5 == to) {
      set %access 0
      halt
    }
    if ($5 == registered) {
      set %access 0
      halt
    }
  }
}