on *:join:#: {
  %clone = $ialchan($wildsite,#,0)
  if (%clone == 3) {
    var %c = 1
    set %cloneNick csr
    while (%c <= %clone)  {
      %cloneNick = %cloneNick  $ial($wildsite,%c).nick
    inc %c  }
    dialog -m clone clone
    .set %At1 $gettok($remove(%cloneNick,csr),1,32)
    .set  %At2 $gettok($remove(%cloneNick,csr),2,32)
    .set %at3 $gettok($remove(%cloneNick,csr),3,32)
  }
  set %change $read -s $+ $address($nick,4) notes.ini
  if (%change == $null) {
    haltdef
    halt  
  }
}

dialog Clone {
  title "Clone İşlem Paneli"
  size -1 -1 106 54
  option dbu
  box "Clonelere Uygulanacak  Komut?", 1, 2 0 102 52
  button "Kline", 2, 71 13 27 12, ok
  button "Kill", 3, 38 13 27 12, ok
  button "Shun", 4, 6 13 27 12, ok
  button "Kapat", 5, 33 33 37 12, ok cancel
}
on *:dialog:clone:sclick:*:{
  if ($did == 2) { kline %at1 Clone! | unset %at1 %at2 %at3 }
  if ($did == 3) { kill %at1 Clone! | kill %at2 Clone! | kill %at3 Clone | unset %at1 %at2 %at3 }
  if ($did == 4) { Shun %at1 Clone! | unset %at1 %at2 %at3 }
  if ($did == 5) { unset %at1 %at2 %at3 }
}