Mine

alias voiceA {
   set %chanVic #
   msg $iif(L ison %chanVic,l,q) chanlev %chanVic
 }
}
on *:NOTICE:*:*:{
  if (%chanVic) {
    if ($nick == L) || ($nick == Q) {
      if ((*----* iswm $1) || (are: isin $1-)) && (!%check) { set %check 1 } 
      elseif (($1 == Total:) || (*End of list.* iswm $1-)) { unset %check | unset %lol | .timer 1 1 Checkaddd }
      elseif (%check) && (*----* !iswm $1) { set %address %address $1 }
    }
  }
}
alias Checkaddd {
  var %x 1
  While ($gettok(%address,%x,32)) { 
    .timer 1 $Calc(%x * 2) .msg $iif(L ison %chanVic,l,q) chanlev %chanVic # [ $+ [ $gettok(%address,%x,32) ] ] -av
    inc %x
  }
  if (!$nick(%address,%x,32)) { unset %x | unset %address | unset %chanVic }
}
raw 330:*:{
  if (%chanVic) {
    if ($3) {
      if ($3 !isin %address) { mode %chanVic -av $nick(%chanVic,%x,v) }
    }
    else { mode %chanVic -v $nick(%chanVic,%x,v) }
  }
}