on *:JOIN:#:{
  set %totalusers [ $+ [ $chan ] ] $nick($chan,0)
  set %currentusers [ $+ [ $chan ] ] 1
  while (%currentusers [ $+ [ $chan ] ] < %totalusers [ $+ [ $chan ] ]) {
    if ($address($nick($chan,%currentusers [ $+ [ $chan ] ]),2) == $address($nick,2)) {
      var %clones2 [ $+ [ $nick ] ] = %clones1 [ $+ [ $nick ] ] $nick
      set %clones1 [ $+ [ $nick ] ] %clones2
    }
    inc %currentusers [ $+ [ $chan ] ] 1
  }
  if ($remove(%clones1 [ $+ [ $nick ] ],$nick) != $null) {
    echo $chan 14][2Nick:4 $nick $+ 14][ 14][2Clones:7 $remove(%clones1 [ $+ [ $nick ] ],$nick) $+ 14][
  }
  unset %clones*
}