menu channel {
  @clone scan: /vs
}

alias vs {
  hmake clones 500
  var %x = 1, %c = $iif($1 ischan,$1,$active),%ticks = $ticks,%clones
  if ($window(@clones)) window -c @clones
  window @clones
  if (%c ischan) && ($ialchan(*,%c,0) != $nick(%c,0)) { .enable #clones | aline @clones S tò a nalizzando l a I AL .. | .ial on | who %c }
  while ($nick(%c,%x)) {
    var %i = $ifmatch
    if ($hget(clones,$address(%i,2)) == $null) && ($ialchan($address(%i,2),%c,0) > 1) {
      inc %clones $ialchan($address(%i,2),%c,0)
      hadd clones $address(%i,2) $address(%i,2)
      var %temp,%a = 1
      while ($ialchan($address(%i,2),%c,%a)) {
        set %temp %temp $+ $chr(44) $ialchan($address(%i,2),%c,%a).nick
        inc %a
      }
      privmsg $chan $ialchan($address(%i,2),%c,0) 4Cloni che hanno come Indirizzo: 11 $address(%i,2) $+ :
      privmsg $chan - Nick del Clone: 9 $mid(%temp,2,$calc($len(%temp) - 1))
    }
    inc %x
  }
  privmsg $chan -
  privmsg $chan - -- ---- C onnessioni c on C loni R ilevate: $hmatch(clones,*,0)
  privmsg $chan - -- ---- In tutto ci sono n° %clones cloni
  privmsg $chan - -- ---- P er t rovarli c i h o m esso: $duration($calc(($ticks - %ticks) / 1000)) $gettok($calc(($ticks - %ticks) / 1000),2,46) $+ millisecs
  hfree clones
}
#clones off
raw 315:*: vs $2 | .disable #clones
#clones end

on *:connect: .disable #clones
on *:TEXT:*:*:{
if ($1 == !cloni) { vs }
}