on *:join:#: {
  if ($regex($address($nick,2),/(Admin|Oper|Ircop)/i)) { halt }
  %clones = $ialchan($wildsite,#,0)
  if ( %clones > 2 ) {
    var %count = 1
    set %clone.nicks -->
    while (%count <= %clones) {
      %clone.nicks = %clone.nicks $ial($wildsite,%count).nick
    inc %count }
  .msg %operkanali Clone Tespit Edildi: %clones Tane ( $remove(%clone.nicks,-->) ) ( $address($nick,2) 11) }
  set %change $ read -s $+ $address($nick,4) notes.ini
  if (%change == $null) {
    haltdef
    write notes.ini $address($nick,4) $nick
    halt 
  }
}