;[read write data/setting.ini]
alias _vr {
  if ($exists(data\setting.ini) == $false) { mkdir data | write -c data\setting.ini }
  return $readini data\setting.ini $1 $2 
}
alias _vw {
  if ($exists(data\setting.ini) == $false) { mkdir data | write -c data\setting.ini }
  writeini data\setting.ini $1 $2 $3-
}
alias _vrem {
  if ($exists(data\setting.ini) == $false) { mkdir data | write -c data\setting.ini }
  remini data\setting.ini $1 $2 
}
alias clone.scan { 
  if ($chan(0) <= 0) { echo -a  $+ $colour(info2) $+ %logo 10Clone Tarayıcısını Çalıştırmak için Kanala Girmeniz GerekLidir. | beep | halt }
  if $dialog(clone.s) == $null) { set %csc $chan | dialog -m clone.s clone.s }
}
dialog clone.s {
  title ""
  size -1 -1 295 240
  option pixels 
  list 9, 10 10 270 130,extsel,hsbar
  button "Kapat", 2, 130 210 50 20, ok
  button "At", 18, 10 180 50 20, disable
  button "YeniLe", 16, 130 180 50 20
  button "Uyar", 19, 70 180 50 20, disable
  text "KanaL:", 144, 190 125 70 15
  combo 10, 190 140 100 100, drop
  edit "", 142, 75 210 45 20,autohs read
  text "Tamamlandı", 143, 5 215 70 15
  check "Ban Clone", 69, 20 152 75 20
  check "Clon Kanala Girince Başlat", 70, 20 132 145 20
  box "AyarLar:", 71, 10 120 170 55
  text "CLone Scan v1", 146, 195 180 100 15
  button "Ana Sayfa", 148, 212 202 60 20
  box "", 147, 185 170 105 60
}
on *:dialog:clone.s:init:*:{
  dialog -t clone.s Clone Scan on %csc 
  chan.cs
  did -c clone.s 10 1
  did -z clone.s 9
  if ($_vr(clonescan,ban) == on) did -c clone.s 69 
  if ($_vr(clonescan,launch) == on) did -c clone.s 70 
  _clone
}
on *:dialog:clone.s:sclick:*:{
  if ($did == 1) unset %csc 
  if ($did == 10)  { set %csc $did(clone.s,10).text | _clone |  dialog -t clone.s Clone Scan on %csc }
  if ($did == 16) { _clone | chan.cs }
  if ($did == 69) {  
    if ($_vr(clonescan,ban) == off) { _vw clonescan ban on | did -c clone.s 69 }
    else { _vw clonescan ban off | did -u clone.s 69 }
  } 
  if ($did == 70) {  
    if ($_vr(clonescan,launch) == off) { _vw clonescan launch on | did -c clone.s 70 }
    else { _vw clonescan launch off | did -u clone.s 70 }
  } 
  if ($did == 148) { run [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] } 
  if ($did == 18) {
    if ($did(9,$did(9).sel) != $null) && (*!*@ !isin $did(9,$did(9).sel)) { 
      if ($me isop %csc) { 
        var %ck = 0     
        var %cc = $numtok($did(9,$did(9).sel),32)   
        :loop      
        inc %ck 1
        if ($_vr(clonescan,ban) == on) { mode %csc +b $address($remove($gettok($did(9,$did(9).sel),1,32),$chr(44)),2) }
        kick %csc $remove($gettok($did(9,$did(9).sel), %ck ,32),$chr(44)) Clone $chr(35) $+ %ck of %cc
        if (%ck >= %cc) goto end 
        goto loop
        :end
        _clone
      } 
    }
  }
  if ($did == 19) { 
    if ($did(9,$did(9).sel) != $null) && (*!*@ !isin $did(9,$did(9).sel)) { 
      var %ck = 0     
      var %cc = $numtok($did(9,$did(9).sel),32)   
      :loop      
      inc %ck 1
      notice $remove($gettok($did(9,$did(9).sel), %ck ,32),$chr(44)) $remove($gettok($did(9,$did(9).sel), %ck ,32),$chr(44)) $+ , 10Lütfen Clonelerinizi4 %csc 10Kanalından Çıkarın Aksi Taktirde Atılacaksınız!
      if (%ck >= %cc) goto end 
      goto loop
      :end
    } 
  }
}
alias chan.cs {
  did -r clone.s 10
  var %channum = 0
  :findchan
  inc %channum 1
  var %csc = $chan(%channum)
  if (%csc == $null) { goto end }
  did -a clone.s 10 %csc
  goto findchan
  :end
}
alias _clone {
  did -r clone.s 9,142 
  if ($me isop %csc) did -e clone.s 18,19 
  elseif ($me !isop %csc) did -b clone.s 18,19
  var %n = 0 | var %nm = $nick(%csc,0,a) | var %s = $ctime
  :next
  var %st = $address($nick(%csc,%nm),2)
  if (%clone. [ $+ [ %st ] ] == $null) { 
    set %clone. [ $+ [ %st ] ]  $nick(%csc,%nm)
  }
  else {
    set %clone. [ $+ [ %st ] ]  %clone. [  $+ [ %st ] ] $+ , $nick(%csc,%nm)  
    if (%cn == $null) {
      var %cn = %st
      inc %n 1
    }
    elseif (%st !isin %cn) {
      var %cn = %cn %st
      inc %n 1
    }
  }
  dec %nm 1
  if (%nm > 0) goto next
  var %e = $ctime
  if (%cn != $null) {
    :displaynext
    did -a clone.s 9 %clone. [ $+ [ $gettok(%cn,%n,32) ]  ] | did -a clone.s 9 $gettok(%cn,%n,32) | did -a clone.s 9 
    dec %n
    if (%n > 0) goto displaynext
  }
  else { did -a clone.s 9 %csc Kanalında Hiçbir Clone Bulunamadı | did -b clone.s 9 }
  var %e = %e - %s
  did -a clone.s 142 $duration(%e)
  unset %clone.* 
  did -z clone.s 9
}
on *:JOIN:#: {
  updatenl
  unset %c3
  :loop
  inc %c3
  var %c4 = $ialchan($address($nick,2),$chan,%c3).nick   
  if (%c4 == $nick) { goto loop }
  if (%c4 == $null) { goto end }   
  if ($_vr(clonescan,launch) == on) { beep | clone.scan }
  goto loop  
  :end  
}