rendered paste body[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=}