;Clone Koruması
#cLonekorumaSi on
on @!*:JOIN:#:{
  if ($ialchan($wildsite,#,0) > %clonesayi) {
    var %' = $ifmatch, %. | while %' {
      var %7 = $gettok($ialchan($wildsite,#,%'),1,33)
    if (%7 !isop #) { %. = $addtok(%.,%7,44) | dec %' } | else { return } }
    if %. { mode # +b $wildsite | var %~ = $numtok(%.,44) | while %~ { kick # $gettok(%.,%~,44) %clonekorumasebep | dec %~ } }
  }
}
#cLonekorumaSi end
alias clonekoruma { dialog -m clonekorumasi clonekorumasi }
dialog clonekorumasi {
  title "Clone Korumasi"
  size -1 -1 144 88
  option dbu
  text "Kanal'a", 1, 9 7 20 8
  edit "", 2, 30 6 13 10
  text "Den Fazla Clone Girerse o Adresi Banla", 3, 43 7 100 8
  box "Durum", 4, 5 19 135 37
  button "Aç", 5, 23 27 37 12
  button "Kapat", 6, 83 27 37 12
  text "Durum:", 7, 35 44 22 8
  edit "", 8, 57 44 50 10, read
  edit "", 9, 44 60 97 10, autohs
  text "Kick Sebebiniz", 10, 4 61 40 8
  button "Kaydet Ve Çık", 11, 22 72 46 12, ok
  button "İptal", 12, 73 72 46 12, cancel
}
on *:dialog:clonekorumasi:*:*:{
  if ($devent == init) {
    did -a $dname 8 %clonekorumadurum
    did -a $dname 9 %clonekorumasebep
    did -a $dname 2 %clonesayi
  }
  if ($devent == sclick) {
    if ($did == 5) { .enable #cLoneKorumaSi | set %clonekorumadurum Açık | set %clonekorumasebep $did(9) | set %clonesayi $did(2) | dialog -x clonekorumasi clonekorumasi | clonekoruma }
    if ($did == 6) { .disable #cLoneKorumaSi | set %clonekorumadurum Kapalı | set %clonekorumasebep $did(9) | set %clonesayi $did(2) | dialog -x clonekorumasi clonekorumasi | clonekoruma }
    if ($did == 11) {  set %clonekorumasebep $did(9) | set %clonesayi $did(2) }
  }

on *:join:#kanaladı: {
  if $regex($gettok($address,2,64),/(oper|admin|helper)/i) { halt }
  if $ial($address($nick,2),0) = 2 {
    kill $ial($address($nick,2),1).nick SEBEP
  }
}