Unnamed

on *:input:#:{
  if ($$1 == dvoice) {

    if ($$2 == $chr(42)) {

      set %ma $modespl

      set %m 1

      set %mm 1

      set %mt $nick($chan,0)  

      while (%m <= %mt) {

        if ($nick($chan,%m) != $me) && ($nick($chan,%m) isvoice $chan) { .set %mn %mn $nick($chan,%m) }

        inc %m 1  

        if (%mm == %ma) { mode $chan - $+ $str(v,$modespl) %mn | unset %mm | unset %mn }

        inc %mm 1

      }  

      mode $chan - $+ $str(v,$modespl) %mn

      unset %m  

      unset %mt

      unset %mn

    } 

    else { mode $chan -v $$2 }

  }
}