on $*:text:/^[.!@]voice(d|s)?(check)($|\s)/Si:#soulspys:{
  set.tar $1
  if ($nick isop $chan) {
    var %i,%x,%y = #soulfire
    unset %voicecheck
    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))
      }
      inc %i
    }
    %send Voiced users set to: %voicecheck
  }
  else { %send 14You must be an op to do07 !voicecheck }
}

on $*:text:/^[.!@]spotted(\s|$)/Si:#soulspys:{
  set.tar $1
  if ($nick isop $chan) {
    if (!$2) { %send 14Syntax is:07 !spotted rsn }
    elseif ($2 == check) { %send %voicecheck }
    elseif ($2) {
      set %voicecheck $remtok(%voicecheck,$2,1,32)
      %send $2 removed. Remaining users: %voicecheck
    }
  }
}