for hat

alias dvl {
  var %i = 1
  mode $active +m
  while (%i <= $nick($active,0,v)) {
    var -s %names = %names $nick($active,%i,v)
    if ($numtok(%names,32) >= $iif($modespl,$v1,3)) {
      mode $active - $+ $str(v,$v2) %names
      unset %names
    }
    inc %i
  }
  mode $active - $+ $str(v,$numtok(%names,32)) %names
}