[script]
n0=alias clonescan {
n1=  if ($1 ischan) {
n2=    unset %clone.*
n3=    .remove clones.clz
n4=    set %clone.start $ticks
n5=    set %clone.start2 $time
n6=    set %clone.all $nick($1,0)
n7=    :start
n8=    inc %clone.i
n9=    if (%clone.address.done. [ $+ [ $address($nick($1,%clone.i),2) ] ] == $null) {
n10=      set %clone.address.all. [ $+ [ $address($nick($1,%clone.i),2) ] ] $ialchan($address($nick($1,%clone.i),2),$1,0)
n11=      if (%clone.address.all. [ $+ [ $address($nick($1,%clone.i),2) ] ] > 1) {
n12=        inc %clone.groups
n13=        :start2
n14=        inc %clone.ii
n15=        set %clone.address.nicks. [ $+ [ $ialchan($address($nick($1,%clone.i),2),$1,1) ] ] %clone.address.nicks. [ $+ [ $ialchan($address($nick($1,%clone.i),2),$1,1) ] ] & $userprefix($ialchan($address($nick($1,%clone.i),2),$1,%clone.ii).nick,$1) $+ $ialchan($address($nick($1,%clone.i),2),$1,%clone.ii).nick
n16=        inc %clone.tot
n17=        if (%clone.ii != %clone.address.all. [ $+ [ $address($nick($1,%clone.i),2) ] ]) { goto start2 }
n18=        set %magick.text %clone.address.nicks. [ $+ [ $ialchan($address($nick($1,%clone.i),2),$1,1) ] ]
n19=        set %magick.len $len(%magick.text)
n20=        set %magick.magick $replace($right(%magick.text,$calc(%magick.len -1)),&,1&)
n21=        write clones.clz echo @Clones 1Group %clone.groups $+ :  %clone.address.all. [ $+ [ $address($nick($1,%clone.i),2) ] ] Clones: %magick.magick Address: $address($nick($1,%clone.i),2) %EblessV8
n22=        unset %magick.*
n23=        set %clone.address.done. [ $+ [ $address($nick($1,%clone.i),2) ] ] x
n24=        unset %clone.ii
n25=      }
n26=    }
n27=    if (%clone.i != %clone.all) { goto start }
n28=    window -c @Clones
n29=    if (%clone.tot != $null) {
n30=      iecho 1Clones Scaner on $1 took $calc(($ticks - %clone.start) / 1000) secs, and %clone.tot clones on %clone.groups groups was found. »T« $time %EblessV8
n31=      .timer -m 1 1200  window @Clones
n32=      .timer -m 1 1250 .play -c $me clones.clz 2
n33=    }
n34=    else iecho 1Clones Scanner Found 0 Clones on $1 »T« $time %EblessV8
n35=    unset %clone.*
n36=  }
n37=}
n38=alias iecho {
n39=  set %tsta $readini mirc.ini options n4
n40=  if ($gettok(%tsta,12,44) == 1) { set %ts $timestamp }
n41=  echo -a 1 $+ $+ %ts $+ ***  $+ $1 $+  $2- 
n42=  if (Status isin $active) && (Window isin $active) {
n43=    echo -a 1 $+ $colour(info) $+ - 
n44=  }
n45=  unset %ts %tsta
n46=}