on *:join:*: {
  %clones = $ialchan($wildsite,#,0)
  if ( %clones > 1 ) {
    var %count = 1
    set %clone.nicks -->
    while (%count <= %clones) {
      %clone.nicks = %clone.nicks $ial($wildsite,%count).nick
    inc %count }
  /echo $chan 0,7 0,14 0,4 &#8226; cLone • 0,14 0,7  4: $remove(%clone.nicks,-->) 2 %clones Tane }
  if (%change == $null) {
    haltdef
    halt 
  }
} 

on 1pen:?: {
  if $address($nick,2) != $null qc $nick
  .whois $nick
  else {
    set %ial query
  }
}
alias qc {
  if ($1 == $null) { goto sons }
  unset %qc*
  if $ial( $address($1,2) , 0 ) < 2 halt
  :başla
  inc %qc
  if $ial( $address($1,2) , %qc ).nick == $1 goto başla
  if $ial( $address($1,2) , %qc ).nick == $null goto son
  set %qc [ $+ [ $1 ] ] $left( %qc [ $+ [ $1 ] ] , 100 ) & $ial( $address($1,2) , %qc ).nick
  goto başla
  :son
  if %qc [ $+ [ $1 ] ] == $null halt
  echo $1 %sa 2Özelinizdeki 4 $1 %qc [ $+ [ $1 ] ] 2aynı cafe'den yada aynı kişiler. 4( $+ $address($1,2) $+ )
  echo $1 
  unset %qc*
  :sons
}