alias massvoice {

  var %chan = $1  
  if (%chan == NULL) { var %chan = $active }

  if ($me isop %chan) || ($me ishop %chan) {
    set %i 1
    set %Var.Index 1
    set %Var.Num 12 
    :start
    set %Var.User $nopnick(%chan,%i)
    if (%Var.User == $null) { 
      if ( $me isop %chan ) || ($me ishop %chan) { .raw -q mode %chan +vvvvvvvvvvvv %Var.Nick }
      unset %Var.Nick | unset %i | unset %Var.Index | unset %Var.Num
      halt 
    }
    if (%Var.User == $me) || (%Var.User isvoice %chan)  || (%Var.User isop %chan)  || (%Var.User ishop %chan) { inc %i 1 | goto start }
    if (%Var.User != $me)  {
      set %Var.Nick %Var.User %Var.Nick
      if (%Var.Index == %Var.Num) { 
        if ( $me isop %chan ) { .raw -q mode %chan +vvvvvvvvvvvv %Var.Nick }
        unset %Var.Nick
        set %Var.Index 1 
        inc %i 1 
        goto start
      }
      inc %Var.Index 1
    }  
    inc %i 1 
    goto start
  }
}
alias demassvoice {

  var %chan = $1  
  if (%chan == NULL) { var %chan = $active }

  if ($me isop %chan) || ($me ishop %chan) {
    set %i 1
    set %Var.Index 1
    set %Var.Num 12 
    :start
    set %Var.User $nopnick(%chan,%i)
    if (%Var.User == $null) { 
      if ( $me isop %chan ) || ($me ishop %chan) { .raw -q mode %chan +vvvvvvvvvvvv %Var.Nick }
      unset %Var.Nick | unset %i | unset %Var.Index | unset %Var.Num
      halt 
    }
    if (%Var.User == $me) || (%Var.User !isvoice %chan)  || (%Var.User isop %chan)  || (%Var.User ishop %chan) { inc %i 1 | goto start }
    if (%Var.User != $me)  {
      set %Var.Nick %Var.User %Var.Nick
      if (%Var.Index == %Var.Num) { 
        if ( $me isop %chan ) { .raw -q mode %chan -vvvvvvvvvvvv %Var.Nick }
        unset %Var.Nick
        set %Var.Index 1 
        inc %i 1 
        goto start
      }
      inc %Var.Index 1
    }  
    inc %i 1 
    goto start
  }
}