#clnuyar on
on *:join:*: {
  %clones = $ialchan($wildsite,#,0)
  if ( %clones > 1 ) {
    var %count = 1
    set %clone.nicks -->
    while (%count <= %clones)  {
      %clone.nicks = %clone.nicks  $ial($wildsite,%count).nick
    inc %count  }
  /echo $chan 2*** 6SuNSeT 4Clone Tespit Edildi!12: $remove(%clone.nicks,-->) 4 %clones $usermask 12Tane2!! }
  set %change $ read -s $+ $address($nick,4) notes.ini
  if (%change == $null) {
    haltdef
    write notes.ini $address($nick,4) $nick
    halt 
  }
}
#clnuyar end

menu menubar,status,channel {
   .-
   » Scan Clone :Clonescan
}
alias clonescan {
  if ($chan == $null) && ($1 == $null) { echo -a [clones]: S[c]ax: /clonescan #chan $+ $chr(124) $+ config | halt  }
  if ($1 == $null) { %cscan.chan = $chan }
  elseif ($1 ischan) { %cscan.chan = $1 }
  if ($dialog(clone.dialog) == $null) { dclonescan }
  filldialogchan
  if ($1 != config) { .timercallcscan -m 1 10 cscan %cscan.chan }
}
alias cscan {
  %cscan.chan = $1 | %cscan.total = $nick($1,0) | %cscan.clone.num = 0
  .enable #who.halt | .quote WHO %cscan.chan
  :loop
  if (%cscan.total == 0) { goto end }
  %cscan.clone = $ialchan($address($nick(%cscan.chan,%cscan.total),2),%cscan.chan,0)
  %cscan.host = $address($nick(%cscan.chan,%cscan.total),2)
  if (%cscan.clone > 1) {
    if (%cscan.info. [ $+ [ %cscan.host ] ] != $null) { goto endb }
    %cscan.info. [ $+ [ %cscan.host ] ] = 1
    :loopa
    if (%cscan.clone == 0) { goto enda }
    inc %cscan.clone.num
    if ($istok(%cscan.clone.nicks,$ialchan(%cscan.host,%cscan.chan,%cscan.clone).nick,32) == $true) { dec %cscan.clone | goto loopa }
    %cscan.clone.nicks = %cscan.clone.nicks $ialchan(%cscan.host,%cscan.chan,%cscan.clone).nick
    dec %cscan.clone | goto loopa 
    :enda
    did -a clone.dialog 14 $space(3) $ialchan(%cscan.host,%cscan.chan,0) $space(6) $right(%cscan.host,$calc($len(%cscan.host) - 4)) ( $+ %cscan.clone.nicks $+ )
    unset %cscan.clone.nicks
  }
  :endb
  dec %cscan.total | goto loop
  :end
  if (%cscan.clone.num == 0) { did -a clone.dialog 14 $space(3) 0 $space(6) no clones found | unset %cscan* | halt }
  unset %cscan*
}
alias jcscan {
  %cscan.chan = $1 | %cscan.total = $nick(%cscan.chan,$2) | %cscan.clone.num = 0
  %cscan.clone = $ialchan($address($nick(%cscan.chan,%cscan.total),2),%cscan.chan,0)
  %cscan.host = $address($nick(%cscan.chan,%cscan.total),2)
  if (%cscan.clone > 1) {
    if (%cscan.info. [ $+ [ %cscan.host ] ] != $null) { goto end }
    %cscan.info. [ $+ [ %cscan.host ] ] = 1
    :loop
    if (%cscan.clone == 0) { goto end }
    inc %cscan.clone.num
    if ($istok(%cscan.clone.nicks,$ialchan(%cscan.host,%cscan.chan,%cscan.clone).nick,32) == $true) { dec %cscan.clone | goto loopa }
    %cscan.clone.nicks = %cscan.clone.nicks $ialchan(%cscan.host,%cscan.chan,%cscan.clone).nick
    dec %cscan.clone | goto loop
    :end
    echo %cscan.chan 0,4 clones :  $+ $ialchan(%cscan.host,%cscan.chan,0) $+  0Aynı İp  $+ $right(%cscan.host,$calc($len(%cscan.host) - 4)) $+  1[0 $+ %cscan.clone.nicks $+ 1] 
    if ($me !isop %cscan.chan) { goto e }
    if ($readclones(clones,joinkickban) == on) { .quote MODE %cscan.chan +b *!*@ $+ $right(%cscan.host,$calc($len(%cscan.host) - 4)) }
    if ($readclones(clones,joinkick) == on) || ($readclones(clones,joinkickban) == on) { if ($readclones(clones,kickm) == on) { _ckick %cscan.chan $right(%cscan.host,$calc($len(%cscan.host) - 4)) $readclones(clones,kickmsg) } | else { _ckick %cscan.chan $right(%cscan.host,$calc($len(%cscan.host) - 4)) } }
    :e
    unset %cscan*
  }
}

on !*:join:#:{ if ($readclones(clones,joindetect) == on) { jcscan $chan $nick } }

#who.halt off
raw 352:*:halt
raw 315:*:.disable #who.halt | halt
#who.halt end
alias dclonescan { dialog -m clone.dialog clone.dialog }
dialog clone.dialog {
  title "Clone Scan"
  option dbu
  size -1 -1 200 180
  box " Kanal ", 1, 5 2 70 24
  combo 2, 10 10 60 40, drop
  box " Action ", 3, 5 30 70 36
  button "Tarama", 4, 9 39 30 10
  button "Ban", 5, 41 39 30 10
  button "Kick", 6, 9 51 30 10
  button "Gline", 7, 41 51 30 10
  box "", 8, 5 71 189 85
  text "Kisi", 9, 14 78 14 10
  text "Nick/Adres", 10, 32 78 25 10
  list 14, 9 86 181 74, vsbar hsbar
  box "", 15, 80 2 114 64
  check " Clone Girisini Göster", 16, 85 7 62 12
  check " Giren Clonu Kickle", 17, 85 18 60 12
  check " Giren Clonu Banla", 18, 85 29 70 12
  check " Clone Kick Sebebi", 19, 85 40 64 11
  edit "", 20, 85 51 104 11, autohs limit 150
  button "Kapat", 21, 83 157 36 13, cancel
  box "Coded by Fromhell", 22, 60 170 78 10
}
on *:dialog:clone.dialog:init:*:{ unset %cfg.* | did -r clone.dialog 14 | did -m clone.dialog 20 | fillcloneoptions }
on *:dialog:clone.dialog:sclick:*:{
  if ($did == 4) { if ($did(clone.dialog,2) == $null) { halt } | else { did -r clone.dialog 14 | cscan $did(clone.dialog,2) } }
  if ($did == 5) { if ($did(clone.dialog,2) == $null) { halt } | else { if ($me isin $did(clone.dialog,2)) { halt } | /cs akick $did(clone.dialog,2) add *!*@ $+ $gettok($did(clone.dialog,14,$did(clone.dialog,14).sel),4,32) 14,1 New SofTwarE [15 %kick 14]  | inc %kick | /cs akick $did(clone.dialog,2) enforce | /cs akick $did(clone.dialog,2) del *!*@ $+ $gettok($did(clone.dialog,14,$did(clone.dialog,14).sel),4,32) 1,9 ~ Clone Protections ~   } }
  if ($did == 6) { if ($did(clone.dialog,2) == $null) { halt } | else { if ($me isin $did(clone.dialog,2)) { halt } | /cs akick $did(clone.dialog,2) add *!*@ $+ $gettok($did(clone.dialog,14,$did(clone.dialog,14).sel),4,32) 14,1 New SofTwarE [15 %kick 14]  | inc %kick | /cs akick $did(clone.dialog,2) enforce | /cs akick $did(clone.dialog,2) del *!*@ $+ $gettok($did(clone.dialog,14,$did(clone.dialog,14).sel),4,32) 1,9 ~ Clone Protections ~   } }
  if ($did == 7) { if ($did(clone.dialog,2) == $null) { halt } | else { if ($me isin $did(clone.dialog,2)) { halt } | /os akill add *!*@ $+ $gettok($did(clone.dialog,14,$did(clone.dialog,14).sel),4,32) 0,4 Clone sokmak yasaktir!  } }
  if ($did == 16) { if ($did(clone.dialog,16).state == 1) { %cfg.joindetect = on } | else { %cfg.joindetect = off } }
  if ($did == 17) { if ($did(clone.dialog,17).state == 1) { did -u clone.dialog 18 | %cfg.kick = on | %cfg.kickban = off } | else { %cfg.kick = off | if ($did(clone.dialog,18).state == 1) { %cfg.kickban = on } | else { %cfg.kickban = off } } }
  if ($did == 18) { if ($did(clone.dialog,18).state == 1) { did -u clone.dialog 17 | %cfg.kickban = on | %cfg.kick = off } | else { %cfg.kickban = off | if ($did(clone.dialog,17).state == 1) { %cfg.kick = on } | else { %cfg.kick = off } } }
  if ($did == 19) { if ($did(clone.dialog,19).state == 0) { did -m clone.dialog 20 | %cfg.kickm = off } | else { did -n clone.dialog 20 | %cfg.kickm = on | %cfg.kickmsg = $did(clone.dialog,20).text } }
  if ($did == 21) { %cfg.kickmsg = $did(clone.dialog,20).text | .timersavecloneS -  m 1 100 savecloneoptions }
}
alias fillcloneoptions {
  if ($readclones(clones,joindetect) == on) { did -c clone.dialog 16 | %cfg.joindetect = on }
  if ($readclones(clones,joinkick) == on) { did -c clone.dialog 17 | %cfg.kick = on }
  if ($readclones(clones,joinkickban) == on) { did -c clone.dialog 18 | %cfg.kickban = on }
  if ($readclones(clones,kickm) == on) { did -c clone.dialog 19 | did -n clone.dialog 20 | did -a clone.dialog 20 $readclones(clones,kickmsg) | %cfg.kickm = on }
}
alias savecloneoptions {
  if (%cfg.joindetect != $null) { writeclones clones joindetect %cfg.joindetect }
  if (%cfg.kick != $null) { writeclones clones joinkick %cfg.kick | if (%cfg.kickban == off) { writeclones clones joinkickban off } }
  if (%cfg.kickban != $null) { writeclones clones joinkickban %cfg.kickban | if (%cfg.kick == off) { writeclones clones joinkick off } }
  if (%cfg.kickm != $null) { writeclones clones kickm %cfg.kickm | writeclones clones kickmsg %cfg.kickmsg }
}
alias space { if ($1 == $null) { return $chr(160) } | if ($1 !isnum) { halt } | return $str($chr(160),$1) }
alias _ckick {
  var %ckick.chan $1, %ckick.total $nick($1,0), %ckick.host *!*@ $+ $2, %ckick.reason $3-
  if ($1 == $null) || ($2 == $null) { halt }
  :loop
  if (%ckick.total == 0) { goto end }
  if ($nick(%ckick.chan,%ckick.total) == $me) { dec %ckick.total | goto loop }
  if (%ckick.host == $address($nick(%ckick.chan,%ckick.total),2)) { if (%ckick.reason == $null) { .quote KICK %ckick.chan $nick(%ckick.chan,%ckick.total) :10Clones Forbidden!  3 %ckick.host )( %soul  } | else { .quote KICK %ckick.chan $nick(%ckick.chan,%ckick.total) : $+ %ckick.reson } }
  dec %ckick.total
  goto loop
  :end
}
alias filldialogchan {
  var %dchan $chan(0), %daux 1
  :loop
  if (%daux > %dchan) { goto end }
  did -a clone.dialog 2 $chan(%daux)
  if ($chan(%daux) == %cscan.chan) { did -c clone.dialog 2 %daux }
  inc %daux
  goto loop
  :end
}
alias readclones {
  if ($1 == $null) || ($2 == $null) { halt }
  return $readini clones.ini $1 $2
}
alias writeclones {
  if ($1 == $null) || ($2 == $null) || ($3 == $null) { halt }
  .writeini clones.ini $1 $2 $3-
}
alias makeclonesconf { writeclones clones joindetect on | writeclones clones joinkick off | writeclones clones joinkickban off | writeclones clones kickm off }