on *:join:#: {
 %clone = $ialchan($wildsite,#,0)
 if (%clone == 3) {
 var %c = 1
 set %cloneNick csr
 while (%c <= %clone) {
 %cloneNick = %cloneNick $ial($wildsite,%c).nick
 set %:chan #
 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 "BAN&s", 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) { mode %:chan +b %cloneNick | kick %:chan %clonenick Clone Girişi Yasaktir. | unset %at* }
 if ($did == 3) { kill %at1 Clone Girişi Yasaktir. | kill %at2 Clone! | kill %at3 Clone | unset %at1 %at2 %at3 }
 if ($did == 4) { Shun %at1 Clone Girişi Yasaktir. | unset %at1 %at2 %at3 }
 if ($did == 5) { unset %at1 %at2 %at3 }
 }