on *:text:!voice*:#:{ cs access $chan list $nick }
set %chann $chan
set %nickk $nick
on *:Notice:*:*:{ 
  if ($nick == chanserv) && ($2 isnum) && (*-* !iswm $2) {
    mode %chann +v %nickk
  }
  unset %chann
  unset %nickk
}