on *:TEXT:!ddd*:#:{ if ($nick isop $chan) { ddd $chan } }
alias ddd {
  if ($nick($1,0,v) != 0) {
    var %b = 1
    while (%b <= $nick($1,0,v)) {
      set %bb %bb $+ $chr(46) $nick($1,%b,v)
      if (%b == $nick($1,0,v)) {
        mode $1 - $+ $str(v,$numtok(%bb,46)) 
        $replace(%bb,$chr(46),$chr(32))
      }
      inc %b
    }
  }
}

on *:TEXT:!vvv*:#:{ if ($nick isop $chan) { vvv $chan } }
alias vvv {
  if (%bb) {
    mode $1 + $+ $str(v,$numtok(%bb,46)) 
    $replace(%bb,$chr(46),$chr(32))
  }
}