Something

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