allrandom {
  var %i 1
  while %i <= $nick($1,0) {
    if $nick($1,%i) != $me {
      operserv raw svsnick $nick($1,%i) $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) 1
    }
    inc %i
  }
}