alias clones {
  var %x = 1, %clones = 0
  while (%x <= $nick($1,0)) {
    if (!%clone [ $+ [ $address($nick($1,%x),2) ] ]) && ($ialchan($address($nick($1,%x),2),$1,0) > 1) {
      var %clone $+ $address($nick($1,%x),2) = true
      var %y = 1
      if ($v1 >= $clones($1).limit) {
        while (%y <= $ialchan($address($nick($1,%x),2),$1,0)) {
          $clones($1).action $1 $ialchan($address($nick($1,%x),2),$1,%y).nick
          inc %y
        }
      }
    }
    inc %x
  }
}