Something

on ^*:NOTICE:*:?:{ if ($1 == $me) && ($nick == ChanServ) { haltdef } }
on ^*:NOTICE:*:?:{ 
  if ($nick == ChanServ) { 
    if ($1 == $me) {
      if ($4 == access) { 
        if ($3 == has) {
          if ($remove($5,$chr(2)) < 400) { 
            haltdef 
            .notice #shockserv-staff 9,1(0,1ACCESS PROBLEM9,1)0,1 $remove($7,.) ------> $5 
            .msg $remove($7,.) Your channel does not have the right access. My access is $remove($5,$chr(2)) and I need at least 400. Please change this.
          }
        }
        elseif ($3 == lacks) {
          haltdef 
          .notice #shockserv-staff 9,1(0,1ACCESS PROBLEM9,1)0,1 $remove($6,.) ------> NONE 
          .msg $remove($6,.) Your channel does not have the right access. My access is 0 and I need at least 400. Please change this.
        }
      }
    }
  } 
}

alias chanaccesscheck { var %cac 1 | while (%cac <= $chan(0)) { cs $chan(%cac) a | inc %cac } }