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/)
-   -   Nick Takip (https://www.ircforumlari.net/mirc-scripting-sorunlari/435859-nick-takip.html)

breakwolf 16 Aralık 2011 06:31
Nick Takip
 
Kod:

alias abo { enable #abo }
alias ado { disable #abo }
#abo on
on 1:connect:{ .IAL On | takip + 300 }
alias takip {
  if $1 == + { $iif($hget(Takip),hfree Takip) | .enable #Takip | $iif(!$hget(Takip),hmake Takip 1000) | set %cSj $iif($2,$2,300) | echo -ta 4Takip Modu Devrede!.. $+([,%cSj,sn.,]) }
  else { .disable #Takip | unset %cSj | echo -ta 14Takip Modu DevreDışı ! }
}
#Takip on ^*:QUIT:{ hadd $iif($address($nick,2),$+(-u,%cSj),$+(-u1)) Takip $address($nick,2) $iif($istok($hget(Takip,$address($nick,2)),$nick,3 2),$hget(Takip,$address($nick,2)),$iif($hget(Takip ,$address($nick,2)),$hget(Takip,$address($nick,2)) /!\ $nick,$nick)) }
on ^*:part:#: { hadd $iif($address($nick,2),$+(-u,%cSj),$+(-u1)) Takip $address($nick,2) $iif($istok($hget(Takip,$address($nick,2)),$nick,3 2),$hget(Takip,$address($nick,2)),$iif($hget(Takip ,$address($nick,2)),$hget(Takip,$address($nick,2)) /!\ $nick,$nick)) }
on !^*:JOIN:#:{
  if ($hget(Takip,$address($nick,2)) && $hget(Takip,$address($nick,2)) != $nick) { echo -t $chan 14,1 Takip Raporu: 3 $nick 14nickinin3 %cSj 14saniye içinde kullandığı nickler 4:3 $hget(Takip,$address($nick,2)) }
}
#Takip end
#abo end
Eskilerden Böyle Bi Kod Buldum. Calısıyormu Bilmiyorum fakat ŞöLe ßir Hata ile karsılasıyorum; * /hadd: Böyle bir Tablo yok 'Takip' Bu kodu calısır duruma getirebilir misiniz acaba ?

SiLuet 16 Aralık 2011 09:59
Cevap: Nick Takip
 
[09:54:11] Takip Raporu: edaaa nickinin 300 saniye içinde kullandığı nickler : deniz__
[09:54:11] *** Giriş: edaaa

Kodda 1 kaç yerde hata vardı düzelttim Çalışıyor. Bu şekilde denermisin.

Kod:
on 1:connect:{ .IAL On | takip + 300 }
alias takip {
  if $1 == + {
    $iif($hget(Takip),hfree Takip) | .enable #Takip | $iif(!$hget(Takip),hmake Takip 1000) | set %cSj $iif($2,$2,300) | echo -ta 4Takip Modu Devrede!.. $+([,%cSj,sn.,])
  }
  else { .disable #Takip | unset %cSj | echo -ta 14Takip Modu DevreDışı ! 
  }
}

#takip on

on ^*:QUIT:{ hadd $iif($address($nick,2),$+(-u,%cSj),$+(-u1)) Takip $address($nick,2) $iif($istok($hget(Takip,$address($nick,2)),$nick,32),$hget(Takip,$address($nick,2)),$iif($hget(Takip ,$address($nick,2)),$hget(Takip,$address($nick,2)) /!\ $nick,$nick)) }
on ^*:part:#: { hadd $iif($address($nick,2),$+(-u,%cSj),$+(-u1)) Takip $address($nick,2) $iif($istok($hget(Takip,$address($nick,2)),$nick,32),$hget(Takip,$address($nick,2)),$iif($hget(Takip ,$address($nick,2)),$hget(Takip,$address($nick,2)) /!\ $nick,$nick)) }
on !^*:JOIN:#:{
  if ($hget(Takip,$address($nick,2)) && $hget(Takip,$address($nick,2)) != $nick) { echo -t $chan 14,1 Takip Raporu: 3 $nick 14nickinin3 %cSj 14saniye içinde kullandığı nickler 4:3 $hget(Takip,$address($nick,2)) }
}
#takip end

breakwolf 16 Aralık 2011 16:46
Cevap: Nick Takip
 
Tskler Calısıyor. ßuna ßirde Sağ Tuş'a Nick Takip Ac Kapat Komutu ekleyebilir miyiz ?

Paint 16 Aralık 2011 16:55
Cevap: Nick Takip
 
Alıntı:
breakwolf Nickli Üyeden Alıntı (Mesaj 1040961550)
Tskler Calısıyor. ßuna ßirde Sağ Tuş'a Nick Takip Ac Kapat Komutu ekleyebilir miyiz ?
Popupslara mı?

breakwolf 16 Aralık 2011 17:24
Cevap: Nick Takip
 
Yok papus'a değiL ßoş Ekranda Sağ Tuş Yapınca Cıkıyor Ya.

Paint 16 Aralık 2011 17:33
Cevap: Nick Takip
 
Alıntı:
breakwolf Nickli Üyeden Alıntı (Mesaj 1040961593)
Yok papus'a değiL ßoş Ekranda Sağ Tuş Yapınca Cıkıyor Ya.
İşte o dediğin şey popups oluyor her neyse.

Kod:
menu * {
  .-
  Nick takip
  .Açık:.takip +
  .-
  .Kapalı:.takip -
  .-
}
Remotene ekle.

SiLuet 16 Aralık 2011 17:45
Cevap: Nick Takip
 
Kod:
menu channel,query {
  Nick Takip
  .Aç:$iif($group(#takip) == on,echo -a 4Takip Modu Zaten Devrede.,takip + 300)
  .Kapat:$iif($group(#takip) == off,echo -a 14Takip Modu Zaten Devre Dışı,takip)
}
Kanalda veya Özelde Sağ tıkladığın Zaman Karşına Çıkacaktır.
Açık'a tıkladıgında Açık'sa Uyarı verecek Açık değilse Açacaktır. Kapalıdada Aynı şekilde.

Heavenly 16 Aralık 2011 18:31
Cevap: Nick Takip
 
buna birde ip kısmınıda ekleyemezmiyiz?
Kod:
echo -t $chan 14,1 Takip Raporu: 3 $nick 14nickinin3 %cSj 14saniye içinde kullandığı nickler 4:3 $hget(Takip,$address($nick,2)) , :ip no : ipvsvs }
gibi

SiLuet 16 Aralık 2011 18:46
Cevap: Nick Takip
 
Popups Aç/Kapat ve İp gösterimi Editlenmiş Şekli Aşağıdadır.

Kod:
on 1:connect:{ .IAL On | takip + 300 }
alias takip {
  if $1 == + {
    $iif($hget(Takip),hfree Takip) | .enable #Takip | $iif(!$hget(Takip),hmake Takip 1000) | set %cSj $iif($2,$2,300) | echo -ta 4Takip Modu Devrede!.. $+([,%cSj,sn.,])
  }
  else { .disable #Takip | unset %cSj | echo -ta 14Takip Modu DevreDışı ! 
  }
}

#takip on

on ^*:QUIT:{ hadd $iif($address($nick,2),$+(-u,%cSj),$+(-u1)) Takip $address($nick,2) $iif($istok($hget(Takip,$address($nick,2)),$nick,32),$hget(Takip,$address($nick,2)),$iif($hget(Takip ,$address($nick,2)),$hget(Takip,$address($nick,2)) /!\ $nick,$nick)) }
on ^*:part:#: { hadd $iif($address($nick,2),$+(-u,%cSj),$+(-u1)) Takip $address($nick,2) $iif($istok($hget(Takip,$address($nick,2)),$nick,32),$hget(Takip,$address($nick,2)),$iif($hget(Takip ,$address($nick,2)),$hget(Takip,$address($nick,2)) /!\ $nick,$nick)) }
on !^*:JOIN:#:{
  if ($hget(Takip,$address($nick,2)) && $hget(Takip,$address($nick,2)) != $nick) { echo -t $chan 14,1 Takip Raporu: 3 $nick 14nickinin3 %cSj 14saniye içinde kullandığı nickler 4:3 $hget(Takip,$address($nick,2)) 14 İp: $+(4[,3,$gettok($address($nick,2),2,64),4])  }
}
#takip end

menu channel,query {
  Nick Takip
  .Aç:$iif($group(#takip) == on,echo -a 4Takip Modu Zaten Devrede.,takip + 300)
  .Kapat:$iif($group(#takip) == off,echo -a 14Takip Modu Zaten Devre Dışı,takip)
}

Heavenly 16 Aralık 2011 19:21
Cevap: Nick Takip
 
ip verisi tam çıkmıyor

(19:19:24) 0,1 Takip Raporu4: 14 ezgii18 0nickinin 4 900 0,1saniye içinde kullandığı nickler 4:10 ezgii18 [/!\] secil_burak 14 ip numarası: 4[10525DEE09.79FD7554.EA667B7E.IP4]

normal 78.111.441 gibi çıksa 525DEE09.79FD7554.EA667B7E.IP yerine

SiLuet 16 Aralık 2011 19:41
Cevap: Nick Takip
 
Bunu join eventinde Direk Göremezsin,Gerçek İp'e görmek için en temiz Yolu Snoticeye göre uyarlanmasıdır. Sunucunuzdaki giriş çıkış snoticelerini verirseniz Yardımcı olmaya çalışırım.

Heavenly 16 Aralık 2011 19:57
Cevap: Nick Takip
 
Client connecting at web.geveze.org: baba_büyük (Csohbet@78.168.188.99)
Client connecting at irc.geveze.org: male_40 (Geveze2012@78.188.62.227)
Client exiting at web.geveze.org: evl29m!TMWeb@78.188.213.208
Client exiting at irc.geveze.org: mIRCTR-User!mIRC2010@88.251.4.182

SiLuet 16 Aralık 2011 20:41
Cevap: Nick Takip
 
#takip on/end arasında Kalan quit,part,join eventlerini kaldırıp Aşagıdaki Kodu Ekle. Deneme şansım olmadı. Deneyip Bir hata olursa Haber verirsin.

Kod:
on *:snotice:*: {
  if $regex($1-,exiting) { var %ip $gettok($5,2,64),%nick = $gettok($5,1,33) | hadd $iif(%ip,$+(-u,%cSj),$+(-u1)) Takip %ip $iif($istok($hget(Takip,%ip),%nick,32),$hget(Takip,%ip),$iif($hget(Takip ,%ip),$hget(Takip,%ip) /!\ %nick,%nick)) } 
  if $regex($1-,connecting) {
    var %ip $remove($gettok($6,2,64),$chr(41))
    if ($hget(Takip,%ip) && $hget(Takip,%ip) != $5) {
      echo -t $chan 14,1 Takip Raporu: 3 $5 14nickinin3 %cSj 14saniye içinde kullandığı nickler 4:3 $hget(Takip,%ip) 14 İp: $+(4[,3,%ip,4])
    }
  }
}

Heavenly 16 Aralık 2011 20:48
Cevap: Nick Takip
 
hiçbir hareket belirtisi yok çalışmadı malesef.

SiLuet 16 Aralık 2011 20:55
Cevap: Nick Takip
 
Mircde /hsave -is takip takip.ini yapıp sonrasında /run takip.ini yaparmısın Takip.ini Dosyasına kayıt ediyormu Çıkan İp ve nickleri? Deneme Şansım olmadıgı için Nerede Hata verir nereye kadar çalışıyor kod bilemiyorum. birde Hata mesajı falan veriyomu?

Heavenly 16 Aralık 2011 21:05
Cevap: Nick Takip
 
dediklerini yaptım ama hiçbir şekilde işlev yok hata mesajıda yok.

SiLuet 16 Aralık 2011 21:16
Cevap: Nick Takip
 
Kod:
on *:snotice:*: {
  if (*Client*exiting* iswm $1-) { var %ip $gettok($5,2,64),%nick = $gettok($5,1,33) | hadd $iif(%ip,$+(-u,%cSj),$+(-u1)) Takip %ip $iif($istok($hget(Takip,%ip),%nick,32),$hget(Takip,%ip),$iif($hget(Takip ,%ip),$hget(Takip,%ip) /!\ %nick,%nick)) } 
  if (*Client*connecting* iswm $1-) {
    var %ip $remove($gettok($6,2,64),$chr(41))
    if ($hget(Takip,%ip) && $hget(Takip,%ip) != $5) {
      echo -t $chan 14,1 Takip Raporu: 3 $5 14nickinin3 %cSj 14saniye içinde kullandığı nickler 4:3 $hget(Takip,%ip) 14 İp: $+(4[,3,%ip,4])
    }
  }
}
Birde Bu şekilde Dene,ve #takip on/end Group unun aRasına Koyduysan Kodu #Takip on Oldugundan Emin ol birde /takip + süre Şeklinde 10 saniye gibi kısa süre girdiysen uyarı vermeyebilir. Bunuda Bi gözden geçir istersen.

Heavenly 16 Aralık 2011 21:45
Cevap: Nick Takip
 
malesef yine hiçbir hareketlilik yok.

SiLuet 16 Aralık 2011 22:28
Cevap: Nick Takip
 
Kod:
on *:snotice:*: {
  if (*Client*exiting* iswm $1-) { var %ip $gettok($8,2,64),%nick = $gettok($8,1,33) | hadd $iif(%ip,$+(-u,%cSj),$+(-u1)) Takip %ip $iif($istok($hget(Takip,%ip),%nick,32),$hget(Takip,%ip),$iif($hget(Takip ,%ip),$hget(Takip,%ip) /!\ %nick,%nick)) } 
  if (*Client*connecting* iswm $1-) {
    var %ip $remove($gettok($9,2,64),$chr(41))
    if ($hget(Takip,%ip) && $hget(Takip,%ip) != $8) {
      echo -t $chan 14,1 Takip Raporu: 3 $8 14nickinin3 %cSj 14saniye içinde kullandığı nickler 4:3 $hget(Takip,%ip) 14 İp: $+(4[,%ip,4])
    }
  }
}
Bu defa Çalıştıgından Eminim Denediğimiz İçin :)

Heavenly 16 Aralık 2011 22:39
Cevap: Nick Takip
 
uğraştırdık ama oldu en sonunda:)

fLayer 16 Aralık 2011 23:02
Cevap: Nick Takip
 
bunu toplayıp hepsini birden versenizde tek tek ugraşmsak :) tek tek zor oluyor eklemesi bir zahmet toparlarsanız sevinirim @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

SiLuet 16 Aralık 2011 23:11
Cevap: Nick Takip
 
Kod:
on 1:connect:{ .IAL On | takip + 300 }
alias takip {
  if $1 == + {
    $iif($hget(Takip),hfree Takip) | .enable #Takip | $iif(!$hget(Takip),hmake Takip 1000) | set %cSj $iif($2,$2,300) | echo -ta 4Takip Modu Devrede!.. $+([,%cSj,sn.,])
  }
  else { .disable #Takip | unset %cSj | echo -ta 14Takip Modu DevreDışı ! 
  }
}

#takip on

on *:snotice:*: {
  if (*Client*exiting* iswm $1-) { var %ip $gettok($8,2,64),%nick = $gettok($8,1,33) | hadd $iif(%ip,$+(-u,%cSj),$+(-u1)) Takip %ip $iif($istok($hget(Takip,%ip),%nick,32),$hget(Takip,%ip),$iif($hget(Takip ,%ip),$hget(Takip,%ip) /!\ %nick,%nick)) } 
  if (*Client*connecting* iswm $1-) {
    var %ip $remove($gettok($9,2,64),$chr(41))
    if ($hget(Takip,%ip) && $hget(Takip,%ip) != $8) {
      echo -t $chan 14,1 Takip Raporu: 3 $8 14nickinin3 %cSj 14saniye içinde kullandığı nickler 4:3 $hget(Takip,%ip) 14 İp: $+(4[,%ip,4])
    }
  }
}

menu channel,query {
  Nick Takip
  .Aç:$iif($group(#takip) == on,echo -a 4Takip Modu Zaten Devrede.,takip + 300)
  .Kapat:$iif($group(#takip) == off,echo -a 14Takip Modu Zaten Devre Dışı,takip)
}
Serverlerde,Giriş/Çıkış Snoticeleri Farklılık Gösterebiliyor,Oyuzden Çalışmama/Hatalı Gösterme İhtimalleri mevcuttur. Bilginize.

breakwolf 19 Aralık 2011 02:35
Cevap: Nick Takip
 
Arkadaslar Bu nick Takip Kodunu Ban Atması İçin NasıL tasarlayabiliriz. ? Mesela 300 Saniye İçerisinde Arzu - Aysun - Fatma - Hatice Diye Nicklerle Girdiği tespit Edildi kanal'a 300 Saniye içerisinde 4 ve üzeri nick Değiştirdiyse. 300 Saniye İçerisinde (Arzy + Aysun + Fatma - Hatice Nickleri ile giriş Yaptığınız Tespit Edildi.))) Şeklinde IP Ban Atsın İstiyorum

breakwolf 20 Aralık 2011 00:50
Cevap: Nick Takip
 
Güncel...

SiLuet 20 Aralık 2011 12:55
Cevap: Nick Takip
 
Kod:
on 1:connect:{ .IAL On | takip + 300 }
alias takip {
  if $1 == + {
    $iif($hget(Takip),hfree Takip) | .enable #Takip | $iif(!$hget(Takip),hmake Takip 1000) | set %cSj $iif($2,$2,300) | echo -ta 4Takip Modu Devrede!.. $+([,%cSj,sn.,])
  }
  else { .disable #Takip | unset %cSj | echo -ta 14Takip Modu DevreDışı ! 
  }
}

#takip on

on ^*:QUIT:{ hadd $iif($address($nick,2),$+(-u,%cSj),$+(-u1)) Takip $address($nick,2) $iif($istok($hget(Takip,$address($nick,2)),$nick,32),$hget(Takip,$address($nick,2)),$iif($hget(Takip ,$address($nick,2)),$hget(Takip,$address($nick,2)) & $nick,$nick)) }
on ^*:part:#: { hadd $iif($address($nick,2),$+(-u,%cSj),$+(-u1)) Takip $address($nick,2) $iif($istok($hget(Takip,$address($nick,2)),$nick,32),$hget(Takip,$address($nick,2)),$iif($hget(Takip ,$address($nick,2)),$hget(Takip,$address($nick,2)) & $nick,$nick)) }
on !^*:JOIN:#:{
  if ($hget(Takip,$address($nick,2)) && $hget(Takip,$address($nick,2)) != $nick) {
    echo -t $chan 14,1 Takip Raporu: 3 $nick 14nickinin3 %cSj 14saniye içinde kullandığı nickler 4:3 $hget(Takip,$address($nick,2))
    if (4 <= $numtok($hget(Takip,$address($nick,2)),38)) { ban -k # $address($nick,2) %cSj Saniyede Kullandığın Nickler: $hget(Takip,$address($nick,2))) }
  }
}
#takip end

menu channel,query {
  Nick Takip
  .Aç:$iif($group(#takip) == on,echo -a 4Takip Modu Zaten Devrede.,takip + 300)
  .Kapat:$iif($group(#takip) == off,echo -a 14Takip Modu Zaten Devre Dışı,takip)
}
İstenilen Son şekli,Takip + süre İle belirtilen Süre içerisinde 4 veya 4 den fazla Değişik Nickle Girerse Nick, Kick sebebine Kullandıgı Nicklerde Eklenerek Kanaldan Atılır.

Edit:Banlar direk İP'e Atılacaktır. Kick mesajı Kırmızı Renktedir. Girdiği Nickleri Gösteren Kısım Mavidir.

breakwolf 20 Aralık 2011 19:33
Cevap: Nick Takip
 
Alıntı:
SiLuet Nickli Üyeden Alıntı (Mesaj 1040967233)
Kod:
on 1:connect:{ .IAL On | takip + 300 }
alias takip {
  if $1 == + {
    $iif($hget(Takip),hfree Takip) | .enable #Takip | $iif(!$hget(Takip),hmake Takip 1000) | set %cSj $iif($2,$2,300) | echo -ta 4Takip Modu Devrede!.. $+([,%cSj,sn.,])
  }
  else { .disable #Takip | unset %cSj | echo -ta 14Takip Modu DevreDışı ! 
  }
}
 
#takip on
 
on ^*:QUIT:{ hadd $iif($address($nick,2),$+(-u,%cSj),$+(-u1)) Takip $address($nick,2) $iif($istok($hget(Takip,$address($nick,2)),$nick,32),$hget(Takip,$address($nick,2)),$iif($hget(Takip ,$address($nick,2)),$hget(Takip,$address($nick,2)) & $nick,$nick)) }
on ^*:part:#: { hadd $iif($address($nick,2),$+(-u,%cSj),$+(-u1)) Takip $address($nick,2) $iif($istok($hget(Takip,$address($nick,2)),$nick,32),$hget(Takip,$address($nick,2)),$iif($hget(Takip ,$address($nick,2)),$hget(Takip,$address($nick,2)) & $nick,$nick)) }
on !^*:JOIN:#:{
  if ($hget(Takip,$address($nick,2)) && $hget(Takip,$address($nick,2)) != $nick) {
    echo -t $chan 14,1 Takip Raporu: 3 $nick 14nickinin3 %cSj 14saniye içinde kullandığı nickler 4:3 $hget(Takip,$address($nick,2))
    if (4 <= $numtok($hget(Takip,$address($nick,2)),38)) { ban -k # $nick %cSj Saniyede Kullandığın Nickler: $hget(Takip,$address($nick,2))) }
  }
}
#takip end
 
menu channel,query {
  Nick Takip
  .Aç:$iif($group(#takip) == on,echo -a 4Takip Modu Zaten Devrede.,takip + 300)
  .Kapat:$iif($group(#takip) == off,echo -a 14Takip Modu Zaten Devre Dışı,takip)
}
Merhaba.. Kick değiLde IP Ban Şeklinde nasıl yapabiliriz ? Birde Ben Ban Mesajında Değişiklik Yapmak Istıyorum O kısım neresi Acaba Renkli olarak Belirtebilir misin ?


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

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