Mine

n $*:text:/^[.!@]voice(d|s)?(check)($|\s)/Si:#:{
  set.tar $1
  if ($nick isop $chan) {
    var %i,%x,%y = #soulfire
    unset %voicecheck
    unset %voicecheck2
    set %i 1
    set %x $nick(%y,0)
    while (%i <= %x) {
      if ($nick(%y,%i) isvoice %y) {
        if ($len(%voicecheck) <= 400) {
          set %voicecheck %voicecheck $iif($readini(nicks.ini,n,$network,$nick(%y,%i)),$readini(nicks.ini,n,$network,$nick(%y,%i)),$nick(%y,%i))
        } 
        else {
          set %voicecheck2 %voicecheck2 $iif($readini(nicks.ini,n,$network,$nick(%y,%i)),$readini(nicks.ini,n,$network,$nick(%y,%i)),$nick(%y,%i))
        }
      }
      inc %i
    }
    %send Voiced users set to: %voicecheck
    if (%voicecheck2) { %send Voiced users: %voicecheck2 }
  }
  else { %send 14You must be an op to do07 !voicecheck }
}