/ScriptServ

[script]
n0=on *:JOIN:#: {
n1=  if (%clonejoin1 == on) { 
n2=    set %join1 $address($nick,2)
n3=    set %name 0
n4=    set %clone $nick
n5=    :step1
n6=    inc %name 1
n7=    if (%name <= $nick(0,$chan) && $nick(%name,$chan) != $nick) { 
n8=      set %join2 $address($nick(%name,$chan),2)
n9=      if (%join1 == %join2) { 
n10=        %clone = %clone - $nick(%name,$chan) $+ 
n11=        goto step1
n12=      }
n13=      else { goto step1 }
n14=    }
n15=    :alldone
n16=    if (%clone != $nick) {
n17=      echo -a 0,10: CLONE JOIN ( $+ $chan $+ ) :
n18=      echo -a 4,15Nicks : 12 %clone ( $+ $address $+ )
n19=    }
n20=  }
n21=  ;  if (%seen == on) {
n22=  ;  write -ds $+ $nick $mircdir $+ data\seen.txt | /write $mircdir $+ data\seen.txt $nick - $address Left at: $atime %tz - $fulldate  Last Note: Joined $chan | halt }  
n23=}