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

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)
-   -   badnick taraması (https://www.ircforumlari.net/mirc-scripting-sorunlari/497920-badnick-taramasi.html)

By_ATMACA 07 Aralık 2012 00:27

Cevap: badnick taraması
 
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Buna Bak Bi istersen

Bozkurt 14 Şubat 2014 14:05

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ş:)),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ş:)),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ş:)),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ş:)),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 ?

basketci 14 Şubat 2014 20:18

Cevap: badnick taraması
 
Kod:

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


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 20:53.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk