on *:join:#: {
  if ($istok($me,$nick,32)) { halt }
  if ($chan == #KANAL) { Halt }
  %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  }
    .msg #KANAL  %clones adet clone tespit edildi.  $remove( %clone.nicks, )
    .msg #KANAL  (  $address($nick,2) )
    set %change $ read -s $+ $address($nick,4) notes.ini
    if (%change == $null) {
      haltdef
      write notes.ini $address($nick,4) $nick
      halt
    }
  }
}