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/)
-   -   Bad İdent Taraması (https://www.ircforumlari.net/mirc-scripting-sorunlari/602648-bad-ident-taramasi.html)

FirariSevdam 01 Ağustos 2014 21:47

Bad İdent Taraması
 
on @kl:JOIN:#Geveze:{
if $nick isop $chan { halt }
if ($chan == #cinsellik) { halt }
if ($chan == #gay) { halt }
if ($chan == #lezbiyen) { halt }
if ($chan == #***) { halt }
if ($chan == #help) { halt }
if ($cha == #eğitim) { halt }
.kick # $nick 4,1(9ßad11~9Nick4)
.mode # +b $nick
}
alias badntara {
if (!$1) { $iif($input(Kanal Girmediniz?,io,Uyarı),halt,halt) }
if ($chr(35) !isin $1) { $iif($input($chr(35) işaretini girmediniz,io,Uyarı),halt,halt) }
set %ch $1
var %y = $input(Tarama İşlemi Sırasında Bulunan Bad Nickler Atılsınmı?,ivy,Seçim)
var %! = 1,%? = $nick(%ch,0)
while (%! <= %?) {
if ($level($nick(%ch,%!)) == Kl) {
if %y == $yes { mode %ch +b $nick(%ch,%!) | kick %ch $nick($1,%!) 9,1(15Bad4~15Nick9) }
else { cline 4 %ch %! }
}
inc %! 1
}
if %y == $no { $input(Tarama İşlemi Bitti Bad Nickler Kırmızı Olarak Renklendirildi,io,Bilgi) }
else { { $input(Tarama İşlemi Bitti Bad Nickler Atıldı,io,Bilgi) } }
}
menu status,menubar,channel {
ReBeLLioN Script™ 1.0 BadNick Kick Menu
.Aç/Kapa
..$iif($group(#badjoin) == on,$style(2)) aç:.enable #badjoin | $input(kl Koruması Açıldı,io,Bad Nick)
..$iif($group(#badjoin) == off,$style(2)) kapat:.disable #badjoin | $input(kl Koruması Kapatıldı,io,Bad Nick)
.Nick
..Ekle:var %x $$?="eklenecek nick'i girin" | .auser kl %x | $input(%x kl Listesine Eklendi,io,Bad Nick)
..Sil:var %x $$?="silinecek nick'i girin" | .ruser kl %x | $input(%x kl Listesinden Silindi,io,Bad Nick)
..Listele:badnlist
.Tara:badntara $active
}
menu nicklist {
ReBeLLioN Script™ 1.0 Bad Nick Kill Menu
.Ekle:.auser kl $$1 | $input($$1 kl Listesine Eklendi,io,Bad Nick)
.Sil:.ruser kl $$1 | $input($$1 kl Listesinden Silindi,io,Bad Nick)
.Listele:badnlist
}
#badjoin on
#badjoin end
menu @kl {
Ekle:.auser kl $$?="Eklenecek Nick'i Girin" | badnlist
Sil:if ($gettok($line(@kl,$1,1),2,45)) { .ruser kl $gettok($line(@kl,$1,1),2,45) | badnlist }
Kapat:window -c $active
}
alias badnlist {
$iif(!$window(@kl),window -Cak0dl @kl 0 0 250 550)
clear @kl
var %2 = $ulist(*,kl,*),%1 = 1
while (%1 <= %2) {
aline 4 @kl $+(%1,-,$ulist(*,kl,%1)))
inc %1 1
}
}


Yukarda Görmüş oLdugunuz Gibi Bir Bad Nick Koruma Remotesi var. Şimdi Sorun Bu
Kanala Nick Girdigi Zaman Nicki Bad iSe Atıyor Zaten Nick Bad DegiLse Yine Atıyor Sebebi İdenti Bad Oldugu İçin. Yetkili oLdugum Kanala CinsEL Kanallar Linkli. Ordan Gelen Userlerin İdenti CinseLLik İçeriyor. Bu Korumaya Ne Yapsakta Sadece Nicki Tarasa İdenti Taramasa.. Ve Kanaldaki Diger Oplar Kendileride Bad TarayabiLsinler Diye !Badtara Kodunu YerleştirebiLirmiyiz. Tşkler Şimdiden.

q0kh4n 01 Ağustos 2014 22:25

Cevap: Bad İdent Taraması
 
ekleidğin badnick(ler)

mesela "kl:*badnick*" bu şekilde olursa nick ident host komple tarama yapar.
sadece nick atılsın istiyosanız eklemelerinizi "kl:*badnick*!*@*" bu şekilde yapın, sadece nickler etkilenir.

FirariSevdam 01 Ağustos 2014 22:35

Cevap: Bad İdent Taraması
 
Peki Kanaldaki Oplar KanaL GeneLinde !Badtara Yazdıklarında Bad Nick Tarasın Bunu nasıl Yapıcaz?

q0kh4n 01 Ağustos 2014 22:40

Cevap: Bad İdent Taraması
 
onun için paylaşılmış bi ton yardım konusu var göz atabilirsin.

aLone 02 Ağustos 2014 02:25

Cevap: Bad İdent Taraması
 
Kod:

on @kl:JOIN:#:{
  if $nick isop $chan { halt }
  if ($chan == #cinsellik) { halt }
  if ($chan == #gay) { halt }
  if ($chan == #lezbiyen) { halt }
  if ($chan == #***) { halt }
  if ($chan == #help) { halt }
  if ($cha == #eğitim) { halt }
  .kick # $nick 4,1(9ßad11~9Nick4)
  .mode # +b $nick
}
alias badntara {
  if (!$1) { $iif($input(Kanal Girmediniz?,io,Uyarı),halt,halt) }
  if ($chr(35) !isin $1) { $iif($input($chr(35) işaretini girmediniz,io,Uyarı),halt,halt) }
  set %ch $1
  var %y = $input(Tarama İşlemi Sırasında Bulunan Bad Nickler Atılsınmı?,ivy,Seçim)
  var %! = 1,%? = $nick(%ch,0)
  while (%! <= %?) {
    if ($level($nick(%ch,%!)) == Kl) {
      if %y == $yes { mode %ch +b $nick(%ch,%!) | kick %ch $nick($1,%!) 9,1(15Bad4~15Nick9) }
      else { cline 4 %ch %! }
    }
    inc %! 1
  }
  if %y == $no { $input(Tarama İşlemi Bitti Bad Nickler Kırmızı Olarak Renklendirildi,io,Bilgi) }
  else { { $input(Tarama İşlemi Bitti Bad Nickler Atıldı,io,Bilgi) } }
}
menu status,menubar,channel {
  ReBeLLioN Script™ 1.0 BadNick Kick Menu
  .Aç/Kapa
  ..$iif($group(#badjoin) == on,$style(2)) aç:.enable #badjoin | $input(kl Koruması Açıldı,io,Bad Nick)
  ..$iif($group(#badjoin) == off,$style(2)) kapat:.disable #badjoin | $input(kl Koruması Kapatıldı,io,Bad Nick)
  .Nick
  ..Ekle:var %x $$?="eklenecek nick'i girin" | .auser kl %x | $input(%x kl Listesine Eklendi,io,Bad Nick)
  ..Sil:var %x $$?="silinecek nick'i girin" | .ruser kl %x | $input(%x kl Listesinden Silindi,io,Bad Nick)
  ..Listele:badnlist
  .Tara:badntara $active
}
menu nicklist {
  ReBeLLioN Script™ 1.0 Bad Nick Kill Menu
  .Ekle:.auser kl $$1 | $input($$1 kl Listesine Eklendi,io,Bad Nick)
  .Sil:.ruser kl $$1 | $input($$1 kl Listesinden Silindi,io,Bad Nick)
  .Listele:badnlist
}
#badjoin on
#badjoin end
menu @kl {
  Ekle:.auser kl $$?="Eklenecek Nick'i Girin" | badnlist
  Sil:if ($gettok($line(@kl,$1,1),2,45)) { .ruser kl $gettok($line(@kl,$1,1),2,45) | badnlist }
  Kapat:window -c $active
}
alias badnlist {
  $iif(!$window(@kl),window -Cak0dl @kl 0 0 250 550)
  clear @kl
  var %2 = $ulist(*,kl,*),%1 = 1
  while (%1 <= %2) {
    aline 4 @kl $+(%1,-,$ulist(*,kl,%1)))
    inc %1 1
  }
}
on *:text:*:#:{
  if !badtara isin $1 {
    if $nick !isop $chan {
    .notice $nick  kanalda op olmanız gerekır.  }
    else {
    timer 1 2 tara $chan | msg $chan  tarama basladı }
  }
}
alias tara {
  var %t = 1,
  while (%t <= $nick($1,0)) {
    var %kl = $nick($1,%t)
    if ($level($nick($1,%t)) == kl) { mode $1 +b $ulist(%kl) | kick $1 %kl 0,12 Nick Uygunsuz }
    inc %t 1
  }
}

hangi kanalda !Badtara yazarsan o kanalda badnick taraması yapar
senin bu kod biraz çorba olmuş oyuzden 2 ci bir tara aliası ekledik umarın işine yarar :D


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

Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net