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

 Kayıt ol  Topluluk
5Beğeni(ler)

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 07 Aralık 2012, 00:27   #11
Çevrimiçi
~ Coktatli.net ~
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (2)
IF Ticaret Yüzdesi:(%)
Cevap: badnick taraması




[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Buna Bak Bi istersen

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Alt 14 Şubat 2014, 14:05   #12
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: badnick taraması




#göster off
on ^*:hotlink:*Uyarı*:#:return
on ^*:hotlink:*Kick*:#:return
on ^*:hotlink:*Kick+ban*:#:return
on ^*:hotlink:*Badnick-Ekle*:#:return
on *:hotlink:*:#:{
if $remove($1,$chr(40),$chr(41)) == Uyarı {
var %line $gettok($strip($remove($gettok($strip($hotline),1, 40),Giriş
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
),2,93)
set %lastnick $strip(%line)
notice %line %line kullanmış olduğunuz nick yasaklanmıştır. Eğer 60 saniye içinde nickinizi değiştirmezseniz kanaldan uzaklaştırılıcaksınız!
$+(timer,$strip(%line)) 1 60 uzaklastir $chan %line Badnick yasaktır. Nickinizi değiştiriniz.
}
elseif $remove($1,$chr(40),$chr(41)) == Kick {
var %line $gettok($strip($remove($gettok($strip($hotline),1, 40),Giriş
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
),2,93)
kick $chan %line Badnick yasaktır. Nickinizi değiştiriniz.
}
elseif $remove($1,$chr(40),$chr(41)) == Kick+ban {
var %line $gettok($strip($remove($gettok($strip($hotline),1, 40),Giriş
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
),2,93)
mode $chan +b %line | kick $chan %line Badnick yasaktır. Nickinizi değiştiriniz.
}
elseif $remove($1,$chr(40),$chr(41)) == Badnick-Ekle {
var %line $gettok($strip($remove($gettok($strip($hotline),1, 40),Giriş
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
),2,93)
badnick ekle %line
kick $chan %line Badnick yasaktır. Nickinizi değiştiriniz.
}
}
on *:part:#:{
if $timer($nick) {
timer $+ $nick off
}
}
on *:quit:{
if $timer($nick) {
timer $+ $nick off
}
}
on ^*:join:#:{
.haltdef
if $hfind(badnick,$nick,1,W).data {
echo $chan $+(2[,$time,]) Giriş: 4 $+ $nick $+ 2 $remove($+($chr(40),$address($nick,1),$chr(41)),*, !) 5Badnick! 4(1Uyarı4) 10 4(1Kick4) 10 4(1Kick+ban4)
}
else {
echo $chan $+(2[,$time,]) Giriş: $nick $remove($+($chr(40),$address($nick,1),$chr(41)),*, !) 4(1Badnick-Ekle4)
}
}
#göster end
#kickle off
on *:join:#:{
if $hfind(badnick,$nick,1,W).data {
uzaklastir $chan $nick Badnick yasaktır. Nickinizi değiştiriniz.
}
}
#kickle end

alias badnick {
if $1 == ekle {
if !$hfind(badnick,$2,1,W).data {
hadd -m badnick $r(1000,999999) $2
hsave badnick badnick.Vt-Aux
hload badnick badnick.Vt-Aux
echo -a 10Badnick listesine $+(2,,$2,10) eklendi.
}
else {
echo -a 10 $+(2,,$2,10) zaten badnick listesinde mevcut.
}
}
elseif $1 == sil {
if $hfind(badnick,$2,1,W).data {
hdel badnick $ifmatch
hsave badnick badnick.Vt-Aux
hload badnick badnick.Vt-Aux
echo -a 10 $+(2,,$2,10) badnick listemden silindi.
}
else {
echo -a 10 $+(2,,$2,10) zaten badnick listemde yok.
}
}
else {
echo -a 10 Komutu yalnış kullandınız.
echo -a 10 Örnek: 2 /badnick ekle nick* 10 gibi eklemelerinizde wildcard geçerlidir.
}
}
on *:nick:{
if $nick == %lastnick {
$+(.timer,%lastnick) off
}
if $hfind(badnick,$newnick,1,W).data {
var %a = 1, %b = $comchan($newnick,0)
while %a <= %b {
if $me isop $comchan($newnick,%a) {
mode $v2 +b $newnick
kick $v2 $newnick /Nick YENINICK seklinde rumunuzu degistirip oyle kanala giris yapabilirsiniz. • Vt-Aux-SyS •
}
inc %a
}
}
}

alias uzaklastir {
mode $1 +b $2
kick $1 $2 $3-
}
alias yordam {
if $1 == göster {
echo -a Artık badnickler'i kanalınıza girdiğinde Manuel işlem yapabiliceksiniz.
enable #göster
hload badnick badnick.Vt-Aux
}
elseif $1 == kickle {
if $2 == on {
echo -a Artık badnickler otomatik olarak atılıcaktır.
enable #kickle
hload badnick badnick.Vt-Aux
}
elseif $2 == off {
echo -a Kickleme durumu kapatıldı.
disable #kickle
}
}
elseif $1 == durum {
if !%ilkcalisma {
hmake badnick
set %ilkcalisma 1
echo -a Addon ilk defa çalıştırıldığı için herhangi bir yordam açık değil.
echo -a Lütfen /Aux durum komutunu tekrar deneyin.
}
else {
echo -a Sistemdeki Aux durumu:
echo -a Manuel Kontrol: $iif($group(#göster).status == on,Aktif,Çalışmıyor)
echo -a Otomatik Kontrol: $iif($group(#kickle).status == on,Aktif,Çalışmıyor)
echo -a Zamanlı listeleme: $iif(%listeleme,Aktif,Çalışmıyor)
if $group(#kickle).status == off && $group(#göster).status == off {
echo -a Şuanda kanalınız korunaksız.
echo -a Herhangi birini açmak için: /yordam göster|kickle kullanabilirsiniz.
echo -a Otomatik olarak badnick listelemek için: /Aux listele saniye #kanal kapatmak için /Auxlisteleme #kanaladı şeklinde yapabilirsiniz.
}
}
}
elseif $1 == listele {
if $2 && $3 {
set %listeleme $addtok(%listeleme,$3,32)
$+(.timer,$3) 0 $2 badtara $3
echo -a Vt-Aux-Sys artık $2 saniyede bir $3 kanalını badnick taraması yapacaktır.
}
}
elseif $1 == listeleme {
if $2 {
set %listeleme $remtok(%listeleme,$2,32)
$+(.timer,$2) off
echo -a $2 Badnick Tarama kontrolü durduruldu.Vt-Sys
}
}
elseif $1 == off {
disable #kickle
disable #göster
echo -a Tüm Aux kapandı. Kanalınız Muaf
}
else {
echo -a Yalnış komut kullanımı.
echo -a Lütfen /Aux istatislik komutunu Kullan.
}
}


alias badtara {
if $1 {
var %/ 1
while %/ <= $hget(badnick,*).item {
if $hfind(badnick,$nick($1,%/),1,W).data {
mode $chan +b $nick($1,%/) | kick $chan $nick($1,%/) /Nick YENINICK seklinde rumunuzu degistirip oyle kanala giris yapabilirsiniz. • Vt-Aux-SyS •
}
inc %/
}
}
}
on *:op:#:$iif($opnick == $me,badtara $chan,return)
on *:start:hmake badnick | hload badnick badnick.Vt-Aux

Bad nick listesine nasl bakıcaz bunda ?

 
Alıntı ile Cevapla

Alt 14 Şubat 2014, 20:18   #13
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (1)
IF Ticaret Yüzdesi:(%)
Cevap: badnick taraması




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
menu channel { - 1 $chr(11) » BadNick Koruma:/bads - } alias bads { dialog -m bads bads } dialog bads { title "basketci Badnick Koruması" size -1 -1 256 148 option dbu edit "", 2, 17 22 64 10, return autohs list 3, 17 34 64 75, sort size hsbar button "Nick ekle", 4, 17 11 32 10 button "Nick SiL", 5, 49 11 32 10 edit "", 6, 98 22 64 10, return autohs list 7, 98 34 64 75, sort size hsbar button "M Nick Ekle", 8, 98 11 32 10 button "M Nick SiL", 9, 130 11 32 10 edit "", 10, 176 22 64 10, return autohs list 11, 176 34 64 75, sort size hsbar button "M kanal ekle", 12, 176 11 32 10 button "M kanal SiL", 13, 208 11 32 10 button "Badnick Tara", 15, 197 120 50 10 button "Tamam/Kapat", 16, 79 132 99 12, ok check "Aç / Kapat", 17, 10 120 50 10 box " Badnick Listesi", 19, 10 1 78 116 box " Muaf Nick Listesi", 20, 90 1 78 116 box " Muaf Kanal Listesi", 21, 170 1 78 116 } on *:dialog:bads:sclick:*:{ if ($did(17).state == 1) { .enable #kbk } | else { .disable #kbk } if ($did == 4) { write bads.txt $did(2) | did -a $dname 3 $did(2) | did -r $dname 2 } if ($did == 5) { write -dl $+ $did(3).sel bads.txt | did -d $dname 3 $did(3).sel } if ($did == 8) { if ($did(6) != $null) { set -u %mnk $did(6) | if (%mnk) && (!$istok(%korunick,%mnk,32)) { .set %korunick $addtok(%korunick,%mnk,32) | did -a $dname 7 %mnk | did -r $dname 6 } } } if ($did == 9) { if ($did(7).sel > 0) { .set %korunick $remtok(%korunick,$did(7).seltext,1,32) | did -d $dname 7 $did(7).sel | did -c $dname 7 } } if ($did == 12) { if ($did(10) != $null) { set -u %mke $did(10) | if (%mke) && (!$istok(%korukanal,%mke,32)) { .set %korukanal $addtok(%korukanal,%mke,32) | did -a $dname 11 %mke | did -r $dname 10 } } } if ($did == 13) { if ($did(11).sel > 0) { .set %korukanal $remtok(%korukanal,$did(11).seltext,1,32) | did -d $dname 11 $did(11).sel | did -c $dname 11 } } if ($did == 15) { .tara $active } } on 1:dialog:bads:init:0: { idset if ($isfile(bads.txt) == $false) { write -c bads.txt } | else { loadbuf -o $dname 3 bads.txt } if (%korunick) .didtok $dname 7 32 $ifmatch if (%korukanal) .didtok $dname 11 32 $ifmatch if ($group(#kbk) == on) { did -c bads 17 } } #Kbk off on !*:join:#: { if $istok(%korukanal,#,32) == $true { halt } if $istok(%korunick,$nick,32) == $true { halt } if ($me isop $chan) || ($me ishop $chan) || (o isin $usermode) { var %= $lines(bads.txt) while (0 <= %=) { if $read(bads.txt,%=) iswm $nick { mode # +b $+($v1,!*@*) kick # $nick 14,14l15,1  Nick'iniz KanaL Seviyesine Uygun Değildir. 14,14l %basketci } dec %= } } } on *:NICK:{ if $istok(%korunick,$newnick,32) == $true { halt } if $badnick($newnick) { var %e = 1, %u = $v1 while $comchan($newnick,%e) { if ($me isop $v1) || ($me ishop $v1) && ($newnick isreg $v2) && (%korukanal != $v2) { mode $v2 +b %u kick $v2 $newnick 14,14l15,1  Nick'iniz KanaL Seviyesine Uygun Değildir. 14,14l %basketci } inc %e } } } alias badnick { var %e = 1 while $read(bads.txt,%e) { if $v1 iswm $1 { return $v1 } inc %e } return $false } #Kbk end alias tara { if $1 ischan { var %d = $lines(bads.txt) while %d { if $fline($1,$read(bads.txt,%d),0,1) >= 1 { var %q = $ifmatch | while %q { if $line($1,$fline($1,$read(bads.txt,%d),%q,1),1) isreg $1 { mode $1 +b $+($read(bads.txt,%d),!*@*) | kick $1 $line($1,$fline($1,$read(bads.txt,%d),%q,1),1) 14,14l15,1  Nick'iniz KanaL Seviyesine Uygun Değildir. 14,14l %basketci} | dec %q } } dec %d } } }

bunu dene

 
Alıntı ile Cevapla

Cevapla

Etiketler
badnick, taraması


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
Badnick Taraması Kod istegi yardım Nothinq mIRC Scripting Sorunları 11 22 Şubat 2013 20:42
Klon Taraması JohnGalt mIRC Scripting Sorunları 3 18 Ağustos 2011 17:44
İp Taraması kilicli_32 mIRC Scripting Sorunları 3 19 Ocak 2010 21:16
Clone Taraması Kan mIRC Scripting Hazır Kodlar 5 07 Ekim 2007 10:41
clone taraması Absolve mIRC Scripting Sorunları 3 11 Ekim 2006 21:14