Clones Scanner
mircalem Clones Scanner hazır kodu.

irc kodu:
dialog clones {
title -- Scan Clones By CaRtOs --
size -1 -1 400 440
option pixels
tab \\\\"Scan Clones\\\\",1,-1 -1 410 450
tab \\\\"Options\\\\",2
button \\\\"Fermer\\\\",3,10 405 380 25,ok
text \\\\"Salon :\\\\",4,50 43 60 15,center,tab 1
combo 5,110 40 120 200,drop,tab 1
button \\\\"Scanner\\\\",6,250 40 90 22,tab 1
text \\\\"Sélectionner un salon ci-dessus, puis cliquez sur Scan\\\\",7,50 80 300 15,center,tab 1
list 8,10 110 130 240,extsel,tab 1
list 9,137 110 255 240,extsel,tab 1
button \\\\"Avertir\\\\",10,10 350 90 22,tab 1
button \\\\"KickBan\\\\",11,100 350 90 22,tab 1
button \\\\"Kick\\\\",12,10 372 90 22,tab 1
button \\\\"Ban\\\\",13,100 372 90 22,tab 1
button \\\\"Afficher dans le statut\\\\",14,210 350 180 22,tab 1
button \\\\"Afficher sur le salon\\\\",15,210 372 180 22,tab 1

text \\\\"Raison de l\\\\\\\'avertissement (en notice) (*)\\\\",16,0 60 400 15,center,tab 2
edit \\\\"4§nick, merci d\\\\\\\'enlever tes clones de §chan\\\\",17,10 80 380 22,autohs,center,tab 2
text \\\\"Raison du kick (*)\\\\",18,0 110 400 15,center,tab 2
edit \\\\"10·4 Clones interdit 10· !\\\\",19,10 130 380 22,autohs,center,tab 2
text \\\\"Lors d\\\\\\\'un mass-kick - Temps entre chaque kick (en ms) :\\\\",20,10 165 320 15,tab 2
edit \\\\"1000\\\\",21,300 162 40 22,tab 2
text \\\\"A l\\\\\\\'affichage en public - Temps entre chaque ligne (en ms) :\\\\",22,10 190 320 15,tab 2
edit \\\\"300\\\\",23,300 187 40 22,tab 2

check \\\\"\\\\",24,10 227 15 15,tab 2
text \\\\"A l\\\\\\\'entrée de chaque utilisateur, vérifier que ce n\\\\\\\'est pas un clone (déconseillé). Si c\\\\\\\'est le cas, faire la commande : (*)\\\\",25,30 220 350 45,tab 2
edit \\\\"/echo -ta 4§nick possède des clones sur §chan (§mask)\\\\",26,10 255 380 22,autohs,tab 2
check \\\\"Protection contre les arrivées en masse de clones.\\\\",27,10 290 260 15,tab 2
check \\\\"Salon en +i\\\\",28,30 310 360 15,tab 2
check \\\\"Ban sur le mask\\\\",29,30 327 360 15,tab 2
check \\\\"Autre (*) :\\\\",30,30 344 65 15,tab 2
edit \\\\"/echo -s Attaque de clone sur §chan (§mask)\\\\",31,100 342 290 20,autohs,tab 2

text \\\\"(*) Identifieurs utilisables : §nick, §mask, §chan, §me\\\\",32,10 375 380 15,center,tab 2
button \\\\"Définition\\\\",33,275 287 60 21,tab 2
text \\\\"Lors du scan, ignorer les masks :\\\\",34,50 33 200 15,tab 2
button \\\\"Configurer les masks\\\\",35,210 31 120 20,tab 2
}
dialog clonesdef {
title -- Définition d\\\\\\\'une attaque de clones --
size -1 -1 270 100
option pixels
button \\\\"OK\\\\",1,115 72 40 22,ok
text \\\\"Considérer comme une attaque de clones lorsque :\\\\",2,10 10 260 15
edit \\\\"6\\\\",3,10 30 30 20
text \\\\"clones entrent sur le salon en moins de\\\\",4,45 33 220 15
edit \\\\"2\\\\",5,10 55 30 20
text \\\\"secondes\\\\",6,45 57 100 15
}

on 1:dialog:clonesdef:init:0:{
if (%SCnbc != $null) { did -o clonesdef 3 1 %SCnbc }
else { set %SCnbc $did(clonesdef,3) }
if (%SCnbs != $null) { did -o clonesdef 5 1 %SCnbs }
else { set %SCnbs $did(clonesdef,5) }
}

on 1:dialog:clonesdef:edit:3:set %SCnbc $did(clonesdef,3)
on 1:dialog:clonesdef:edit:5:set %SCnbs $did(clonesdef,5)
on 1:dialog:clones:init:0:{
var %i 1
while (%i <= $chan(0)) { didtok clones 5 32 $chan(%i) | if ($active == $chan(%i)) { did -c clones 5 %i } | inc %i }
if (%SCnbc == $null) { set %SCnbc 4 }
if (%SCnbs == $null) { set %SCnbs 2 }
if (%SCavertraison != $null) { did -o clones 17 1 %SCavertraison }
else { set %SCavertraison $did(clones,17) }
if (%SCkickraison != $null) { did -o clones 19 1 %SCkickraison }
else { set %SCkickraison $did(clones,19) }
if (%SCtimekick != $null) { did -o clones 21 1 %SCtimekick }
else { set %SCtimekick $did(clones,21) }
if (%SCtimeline != $null) { did -o clones 23 1 %SCtimeline }
else { set %SCtimeline $did(clones,23) }
if (%SConjoinreact != $null) { did -o clones 26 1 %SConjoinreact }
else { set %SConjoinreact $did(clones,26) }
if ($group(#SConjoin).status == on) { did -c clones 24 } | else { did -b clones 26 }
if ($group(#SCprotect).status == on) { did -c clones 27 } | else { did -b clones 28,29,30,31 }
if (%SCprotect.i == $true) { did -c clones 28 }
if (%SCprotect.b == $true) { did -c clones 29 }
if (%SCprotect.a == $true) { did -c clones 30 } | else { did -b clones 31 }
if (%SCprotect.cmd != $null) { did -o clones 31 1 %SCprotect.cmd }
else { set %SCprotect.cmd $did(clones,31) }
}
on 1:dialog:clones:sclick:35:if ($dialog(ignoreclones) == $null) { dialog -m ignoreclones ignoreclones } | else { dialog -v ignoreclones }
on 1:dialog:clones:sclick:33:if ($dialog(clonesdef) == $null) { dialog -m clonesdef clonesdef } | else { dialog -v clonesdef }
on 1:dialog:clones:sclick:28:if ($did(clones,28).state == 1) { set %SCprotect.i $true } | else { set %SCprotect.i $false }
on 1:dialog:clones:sclick:29:if ($did(clones,29).state == 1) { set %SCprotect.b $true } | else { set %SCprotect.b $false }
on 1:dialog:clones:sclick:30:if ($did(clones,30).state == 1) { set %SCprotect.a $true | did -e clones 31 } | else { set %SCprotect.a $false | did -b clones 31 }
on 1:dialog:clones:edit:31:set %SCprotect.cmd $did(clones,31)

on 1:dialog:clones:sclick:24:{
if ($did(clones,24).state == 1) { .enable #SConjoin | did -e clones 26 }
else { .disable #SConjoin | did -b clones 26 }
}
on 1:dialog:clones:sclick:27:{
if ($did(clones,27).state == 1) { .enable #SCprotect | did -e clones 28,29,30,33 | if ($did(clones,30).state == 1) { did -e clones 31 } }
else { .disable #SCprotect | did -b clones 28,29,30,31,33 }
}
on 1:dialog:clones:edit:26:set %SConjoinreact $did(clones,26)
on 1:dialog:clones:edit:17:set %SCavertraison $did(clones,17)
on 1:dialog:clones:edit:19:set %SCkickraison $did(clones,19)
on 1:dialog:clones:edit:21:set %SCtimekick $iif($did(clones,21) >= 100,$did(clones,21),100)
on 1:dialog:clones:edit:23:set %SCtimeline $iif($did(clones,23) >= 100,$did(clones,23),100)
on 1:dialog:clones:sclick:6:if ($did(clones,5) != $null) { did -r clones 8,9 | SCdetect $did(clones,5) }
did -c clones 9 1
did -u clones 9
var %i = 1
while ($did(clones,8,%i).sel != $null) {
did -ck clones 9 $did(clones,8,%i).sel
inc %i
}
did -c clones 8 1
did -u clones 8 1
%i = 1
while ($did(clones,9,%i).sel != $null) {
did -ck clones 8 $did(clones,9,%i).sel
inc %i
}
}

on 1:dialog:clones:sclick:9:{
did -c clones 8 1
did -u clones 8
var %i = 1
while ($did(clones,9,%i).sel != $null) {
did -ck clones 8 $did(clones,9,%i).sel
inc %i
}
did -c clones 9 1
did -u clones 9 1
%i = 1
while ($did(clones,8,%i).sel != $null) {
did -ck clones 9 $did(clones,8,%i).sel
inc %i
}
}

#SConjoin off
#SConjoin end
#SCprotect off
#SCprotect end