on *:join:#: {
  %clone = $ialchan($wildsite,#,0)
  if (%clone == 2) {
    var %c = 1
    set %clonenck csr
    while (%c <= %clone)  {
      %clonenck = %clonenck  $ial($wildsite,%c).nick
    inc %c  }
    dialog -m clone clone
    .set %den1 $gettok($remove(%clonenck,csr),1,32)
    .set %den2 $gettok($remove(%clonenck,csr),2,32)
    .set %den3 $gettok($remove(%clonenck,csr),3,32)
  }
  set %change $read -s $+ $address($nick,4) notes.ini
  if (%change == $null) {
    haltdef
    halt  
  }
}
dialog Clone {
  title "Clone İşlem"
  size -1 -1 106 54
  option dbu
  box "Clonelere Uygulanacak  Komut?", 1, 2 0 102 52
  button "Kick", 2, 71 13 27 12, ok
  button "Kill", 3, 38 13 27 12, ok
  button "Z-Line", 4, 6 13 27 12, ok
  button "Kapat", 5, 33 33 37 12, ok cancel
}
on *:dialog:clone:sclick:*:{
  if ($did == 2) { kick %den1 Clone | unset %den1 %den2 %den3 }
  if ($did == 3) { kill %den1 Clone | kill %den2 Clone | kill %den3 Clone | unset %den1 %den2 %den3 }
  if ($did == 4) { zline %den1 Clone | unset %den1 %den2 %den3 }
  if ($did == 5) { unset %den1 %den2 %den3 }
}