IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
  digitalpanel

Etiketlenen Kullanıcılar

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 14 Mart 2010, 01:06   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Clone Scanner




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
menu menubar,status,channel { .- » Scan Clone :Clonescan } alias clonescan { if ($chan == $null) && ($1 == $null) { echo -a [clones]: Syntax: /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 10 clones : $+ $ialchan(%cscan.host,%cscan.chan,0) $+ 10Aynı İp $+ $right(%cscan.host,$calc($len(%cscan.host) - 4)) $+ 4[10 $+ %cscan.clone.nicks $+ 4] 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 "Global 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 "Akick", 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 UniversaL", 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) 5,1 ~ Clone Girişi Tespit Edilmiştir ~ 4 « $me » | /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) 5,1 ~ 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) 5,1 ~ Clone Girişi Tespit Edilmiştir ~ 4 « $me » | /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) 5,1 ~ Clone Protections ~ } } if ($did == 7) { 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) 5,1 ~ Clone Girişi Tespit Edilmiştir ~ 4 « $me » | /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) 5,1 ~ Clone Protections ~ } } 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 }


 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları eglen sohbet sohbet
Alt 28 Nisan 2010, 17:37   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Clone Scanner




panel cıkıyor hersey guzel fakat ayarları kaydedecek bır buton yok Ok butunu yada kaydet gıbı bısey olsa cok sahne olurdu kapat var onu denıyoruz ayarları kaydetmıyor paylasım ıcın saol rast gele..

 
Alıntı ile Cevapla

Cevapla

Etiketler
clone, mirc, mirc download, mirc indir, scanner


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
@clone Penceresinde Nick1 Nick2 Nick3 gibi Clone'ları Göstersin. DarK^ mIRC Scripting Sorunları 8 22 Ekim 2008 17:13
Clone Gostergesi / Clone Bans morveotesii mIRC Scripting Sorunları 3 23 Şubat 2006 16:01