Something

on *:TEXT:~rollcall:#:{
  if ($nick($chan,$nick,ho)) {
    var %a = 1, %s
    while ($nick($chan,%a,v)) {
      %s = %s $v1
      if ($numtok(%s,32) == $modespl) {
        mode $chan $+(-,$str(v,$v1)) %s
        var %s
      }
      inc %a
    }
    if (%s) mode $chan $+(-,$str(v,$numtok(%s,32))) %s
    msg $chan 04PM07 %users 12in-game to be voiced. All who do not PM will be blacklisted!04~
  }
}
on *:TEXT:~derollcall *:#:{
  if ($nick($chan,$nick,ho)) && ($2 isreg $chan) {
    mode $chan +v $2
    msg $chan 04~07 $2 12has been deleted from the 04RollCall Blacklist ~
  }
}