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/)
-   -   kanala girenleri takip (https://www.ircforumlari.net/mirc-scripting-sorunlari/164522-kanala-girenleri-takip.html)

WeiLSiDe 12 Aralık 2008 03:26
kanala girenleri takip
 
12------» 12¦14 relax 12[14~xxxx12@14D7EA390F.34A1A42C.39F5C3D2.IP12]14 joins (joined before as yolal)


Yabancı bi scriptte böle bi özellik var bunu kendi scriptime eklemek istiyorum. mümkünse tabi.
Bunun için bişeyler yapılabilir mi?
Şimdiden tşk ler....

SuNSeT 12 Aralık 2008 05:02
Cevap: kanala girenleri takip
 
Kod:
on *:join:#:{
window -m @Join | aline @Join $nick nick'i $chan kanalına giriş yaptı. IP: $fulladdress }
Bunun gibi birşey istedin sanırım, kolay gelsin.

WeiLSiDe 12 Aralık 2008 21:03
Cevap: kanala girenleri takip
 
Aslında tam olarak öyle değil.
Şimdi diyelim kanala biri girdi ve cıktı. Sonra bu kişi nick değişip tekrar geldi. İşte bu anda script şöle diyo "bu kişinin bi önceki nicki şu idi (12------» 12¦14 relax 12[14~xxxx12@14D7EA390F.34A1A42C.39F5C3D2.IP12]14 joins (joined before as yolal) ) Sanırım bunu logları tarayarak yapıyo.
Umarım anlatabilmişimdir.

Ra` 12 Aralık 2008 21:55
Cevap: kanala girenleri takip
 
Alıntı:
on 1:start: { .hmake nicksch 100 }
on 1:part:#: { if ( $comchan($nick,0) < 2 ) { nicksgrab $nick $site } }
on 1:quit: { nicksgrab $nick $site }
on 1:kick:#: {
if ( $comchan($knick,0) < 2 ) {
if ( $ial($knick).host != $null ) { nicksgrab $knick $ifmatch }
}
}
alias nicksgrab {
.hadd nicksch $iif(($gettok($2,-1,46) == virtuel) && ($numtok($2,46) > 3),$+($gettok($2,1-2,46),.virtuel),$2) $1
}
alias NicksTrouve {
var %a = $iif(($gettok($2,-1,46) == virtuel) && ($numtok($2,46) > 3),$+($gettok($2,1-2,46),.virtuel),$2)
return $iif($hget(nicksch,%a) != $1,$ifmatch)
}
on 1:JOIN:#: {
var %NickPrecedent = $iif($NicksTrouve($nick,$site), 2 Bir Önceki Nick Alarmı 4:1 $ifmatch )
if ( %NickPrecedent ) { echo -tm $chan $ifmatch }
}
bu işini görür sanırım

WeiLSiDe 12 Aralık 2008 23:18
Cevap: kanala girenleri takip
 
Ra' hiç bi tepki vermedi....

Spectral 13 Aralık 2008 00:44
Cevap: kanala girenleri takip
 
Kod:
ON *:START: {
  ; Create a hash table and load the saved user data
  hmake trackusers 10
  if ($isfile(trackusers.dat)) {
    hload trackusers trackusers.dat
  }
}
on *:JOIN:#: {
  ; Check if there are any nicknames for this mask
  if ($hget(trackusers,$address($nick,3))) {
    var %n = $ifmatch
    ; Delete the current nickname from the list of used nicknames
    if ($istok(%n,$nick,32)) { var %d = $deltok(%n,$findtok(%n,$nick,1,32),32) }
    else { var %d = %n }
    ; If there are no nicknames left in the list then stop
    if (!%d) { return }
    ; Display the nicknames
    echo $colour(info) -ti2 $chan * $nick has also used the nickname $+ $iif($numtok(%d,32) > 1,s:,:) %d
    if (!$istok(%n,$nick,32)) {
      ; Add the current nickname to the list
      hadd trackusers $address($nick,3) %n $nick
    }
  }
  else {
    ; Create a new entry for this mask
    hadd trackusers $address($nick,3) $nick
  }
}
on *:NICK: {
  if ($hget(trackusers,$address($newnick,3))) {
    var %n = $ifmatch
    if (!$istok(%n,$newnick,32)) {
      ; Append the new nickname to the list for this mask
      hadd trackusers $address($newnick,3) %n $newnick
    }
  }
  else {
    ; Create a new entry for this mask
    hadd trackusers $address($nick,3) $newnick
  }
}
menu nicklist {
  Track Users
  .View Other Nicknames:{
    if (!$address($$1,3)) { echo $colour(info) -ti2 # * IAL not updated for $$1 $+ , performing userhost lookup | userhost $$1 | return }
    if ($hget(trackusers,$address($$1,3))) {
      var %n = $ifmatch
      if ($istok(%n,$$1,32)) { var %d = $deltok(%n,$findtok(%n,$$1,1,32),32) }
      else { var %d = %n }
      if (!%d) { goto notknown }
      echo $colour(info) -ti2 # * $$1 has also used the nickname $+ $iif($numtok(%d,32) > 1,s:,:) %d
    }
    else {
      :notknown
      echo $colour(info) -ti2 # * $$1 has not been known by any other nickname
    }
  }
  ; This resets the data for this nick's mask only
  .Reset:hdel trackusers $address($$1,3)
}
ON *:EXIT: {
  ; Save data on exit
  if ($hget(trackusers)) { hsave -o trackusers trackusers.dat }
}

WeiLSiDe 13 Aralık 2008 01:47
Cevap: kanala girenleri takip
 
Spectral
* /hadd: Böyle bir Tablo yok 'trackusers' (Satır 26, script3.amk)
böyle diyo

Difuzyon 13 Aralık 2008 02:58
Cevap: kanala girenleri takip
 
Kod:
on !*:join:#:{
set %nick $nick
set %mask $address($nick,2)
set %nick2 $readini profil.ini %mask nick
set %mask2 $readini profil.ini %mask mask
if %mask == %mask2 && %nick != %nick2 {
set %quand $readini profil.ini %mask quand | beep
$iif(!$window(@IP-Takip),window -z @IP-Takip)
aline -hp @IP-Takip - $- $+($time,-) $+($chr(40),#,$chr(41)) $nick nickinin,bundan önce aynı IP'den giriş yaptığı nick: %nick2 $+($chr(40),%quand,$chr(41))
}
if !$ini(profil.ini,mask) { hashtable }
}
alias hashtable {
if !$hget(profil) { .hmake profil 5 }
else { .hadd profil nick %nick | .hadd profil mask %mask | .hadd profil quand $+($time,-,$date) | .hsave -sai profil profil.ini $hget(profil,mask) | .hfree -s profil }
}
Daha önceden forumda paylaşılmıştı biraz refize ettim.
Kanala girenlerin host bilgisini profil.ini dosyasına başlık olarak açıyor.Bu hosttan farklı bir nick girince ,bir önceki nicki size bildiriyor.
Gün içerisinde 1 kanalda denedim gayet iyi çalışıyor,çoklu kanallarda umarım sorun yaratmaz.Şayet sorun yaratırsa yine bu başlık altında belirtirsiniz.

İyi paylaşımlar...

Spectral 13 Aralık 2008 03:08
Cevap: kanala girenleri takip
 
Alıntı:
WeiLSiDe Nickli Üyeden Alıntı (Mesaj 602922)
Spectral
* /hadd: Böyle bir Tablo yok 'trackusers' (Satır 26, script3.amk)
böyle diyo
kendi eklemesi gerekirdi ama su dosyayi mircin icine atarsan sorun kalmaz
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
deneme geregi duymadim cunku kendi mircimde kullaniyorum :)

WeiLSiDe 13 Aralık 2008 15:40
Cevap: kanala girenleri takip
 
Alıntı:
Difuzyon Nickli Üyeden Alıntı (Mesaj 602982)
Daha önceden forumda paylaşılmıştı biraz refize ettim.
Kanala girenlerin host bilgisini profil.ini dosyasına başlık olarak açıyor.Bu hosttan farklı bir nick girince ,bir önceki nicki size bildiriyor.
Gün içerisinde 1 kanalda denedim gayet iyi çalışıyor,çoklu kanallarda umarım sorun yaratmaz.Şayet sorun yaratırsa yine bu başlık altında belirtirsiniz.

İyi paylaşımlar...
Difuzyon bu güzel çalışıyo tşk ederim. Fakat yeni pencere değilde Örneğin
...Giriş asli(xxxx@78.161.176.D49EF966) (Önceki nick vs.) şeklinde yapabilirmiyiz.

WeiLSiDe 13 Aralık 2008 15:42
Cevap: kanala girenleri takip
 
Alıntı:
Spectral Nickli Üyeden Alıntı (Mesaj 602984)
kendi eklemesi gerekirdi ama su dosyayi mircin icine atarsan sorun kalmaz
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
deneme geregi duymadim cunku kendi mircimde kullaniyorum :)
Bu dosyayı mirc ana klasorune ekledim, halen aynı hatayı veriyo.
* /hadd: Böyle bir Tablo yok 'trackusers' (Satır 26, script3.amk)

Spectral 13 Aralık 2008 16:58
Cevap: kanala girenleri takip
 
* Spectral has joined #
* Spectral has also used the nicknames: Away Spectre
Bende sorun yok tekrar denedim.
Neyse madem olmuyor su yeni verdigimi deneyebilirsin.
Kod:
on 1!:PART:#: { writeini nicks.log entradas $site $nick | rnickbuf }
on 1!:QUIT: { writeini nicks.log entradas $site $nick | rnickbuf }
on 1:KICK:#: { writeini nicks.log entradas $remove($address($knick,2),*!*@) $knick | rnickbuf }
alias RNICKBUF if ($lof(nicks.log) > 40000) { write -c nicks.log | echo 12 -se < clearing register entries > }
on ^1!:JOIN:#: {
  if (%avon == on) { r1nick $site $nick }
  echo $colour(join) $chan $timestamp  $nick ( $+ $strip($address) $+ ) has joined # $result | halt
}

alias r1nick {
  if $ipef2($$1) == falsa return
  set %anic $readini nicks.log entradas $$1
  if ( %anic != $null ) && ( $$2 != %anic ) {
    if %anic !isin %tclon {
      set %texto 10[12 has entered before as4 %anic 10] | unset %anic | return %texto   
    }
  }
  unset %anic
}

menu menubar,channel,nicklist {
  Aka Script on/off
  .On:/set %avon on | echo -a 13,15 ••• Aka Script now set to ON •••
  .Off:/set %avon off | echo -a 13,15 ••• Aka Script now set to OFF •••
  -
}

L4roXyL 13 Aralık 2008 18:27
Cevap: kanala girenleri takip
 
Bu tarz kodlarda hash table kullanmak en mantıklısıdır.

Kod:
on !^*:join:#:hadd -m # $nick $site | if ($hfind(#,$site,0).data >= 2) { var %s = 1,%q | while (%s <= $hfind(#,$site,0).data) { %q = $addtok(%q,$hfind(#,$site,%s).data,32) | inc %s } | echo $color(join) # * Giriş: $nick $+($chr(40),$remove($address($nick,0),*,!),$chr(41)) - Önceki nickleri: $+($chr(40),$remove(%q,$nick),$chr(41)) | halt }

Gibi bir kod işini görecektir.

WeiLSiDe 13 Aralık 2008 18:54
Cevap: kanala girenleri takip
 
Arkadaşlar ilgilendiğiniz için cok tşk ederim ama hiç birinden bi sonuc alamadım.
Belki de hata bende bilemiyorum.
İstediğim sadece ...
Giriş »»» MERTHAN (xxxxx@78.184.166.4231AD2A) (Önceki nicki ......)
gibi birşeydi. Hepinize tşk ederim.

L4roXyL 14 Aralık 2008 02:15
Cevap: kanala girenleri takip
 
WeiLSiDe, kod sorunsuz çalışmakta.

WeiLSiDe 14 Aralık 2008 02:32
Cevap: kanala girenleri takip
 
Tşk ler.. Sanırım sorun benden kaynaklanıyo
Afedersiniz

Locked 22 Ocak 2009 00:32
Cevap: kanala girenleri takip
 
WeiLSiDe sunu ekle servera girip nick değiştiren yada düşüp değişik nickle gelen herkesi gösteren bir addon var işini görür umarim

Kod:
on 1:connect:{ takip + | .IAL On }
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 ! $+( 7[12 ,%cSj,sn, 7] ) }
  else { .disable #Takip | unset %cSj | echo -ta 12Takip Modu DevreDisi ! }
}
#Takip on
on ^*:QUIT:{ hadd $+(-u,%cSj) 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 4Takip Raporu:12 $nick 5Nickinin  %cSj Saniye Icinde Kullandigi Nickler:13 $hget(Takip,$address($nick,2))  } }
#Takip end

sniper 22 Ocak 2009 01:10
Cevap: kanala girenleri takip
 
Alıntı:
L4roXyL Nickli Üyeden Alıntı (Mesaj 603321)
Bu tarz kodlarda hash table kullanmak en mantıklısıdır.

Kod:
on !^*:join:#:hadd -m # $nick $site | if ($hfind(#,$site,0).data >= 2) { var %s = 1,%q | while (%s <= $hfind(#,$site,0).data) { %q = $addtok(%q,$hfind(#,$site,%s).data,32) | inc %s } | echo $color(join) # * Giriş: $nick $+($chr(40),$remove($address($nick,0),*,!),$chr(41)) - Önceki nickleri: $+($chr(40),$remove(%q,$nick),$chr(41)) | halt }

Gibi bir kod işini görecektir.
bu bendede çalışmadı mirc alt sürüm olduğu için mi bu hash kod ları çalışmıyor acaba ;idea

Difuzyon 22 Ocak 2009 01:21
Cevap: kanala girenleri takip
 
Bende çalışıyor arkadaşlar version 6,33
Düşük versionda sorun olabilir...

ekselansx 18 Mayıs 2009 02:03
Cevap: kanala girenleri takip
 
Alıntı:
Difuzyon Nickli Üyeden Alıntı (Mesaj 602982)
Kod:
on !*:join:#:{
set %nick $nick
set %mask $address($nick,2)
set %nick2 $readini profil.ini %mask nick
set %mask2 $readini profil.ini %mask mask
if %mask == %mask2 && %nick != %nick2 {
set %quand $readini profil.ini %mask quand | beep
$iif(!$window(@IP-Takip),window -z @IP-Takip)
aline -hp @IP-Takip - $- $+($time,-) $+($chr(40),#,$chr(41)) $nick nickinin,bundan önce aynı IP'den giriş yaptığı nick: %nick2 $+($chr(40),%quand,$chr(41))
}
if !$ini(profil.ini,mask) { hashtable }
}
alias hashtable {
if !$hget(profil) { .hmake profil 5 }
else { .hadd profil nick %nick | .hadd profil mask %mask | .hadd profil quand $+($time,-,$date) | .hsave -sai profil profil.ini $hget(profil,mask) | .hfree -s profil }
}
Daha önceden forumda paylaşılmıştı biraz refize ettim.
Kanala girenlerin host bilgisini profil.ini dosyasına başlık olarak açıyor.Bu hosttan farklı bir nick girince ,bir önceki nicki size bildiriyor.
Gün içerisinde 1 kanalda denedim gayet iyi çalışıyor,çoklu kanallarda umarım sorun yaratmaz.Şayet sorun yaratırsa yine bu başlık altında belirtirsiniz.

İyi paylaşımlar...
Bunu önceki nicki olan biri kanala girdiğinde kanal genelinde görebilirmiyiz....yani sadece ben göreceğim,başkası değil...
HEM Ip-get DİYE Bİ PENCEREDE GÖSTERİLECEK ÖNCEKİ NİCKİNİ...HEMDE NİCK KANALA GİRDİĞİNDE KANAL GENELİNDE GÖRECEĞİM(SADECE BEN)
bu şekilde nasıl düzenleyebiliriz acaba? tşkler

Leo 18 Mayıs 2009 09:26
Cevap: kanala girenleri takip
 
on *:join:#:{
window -m @Join | aline @Join $nick nick'i $chan kanalına giriş yaptı. IP: $fulladdress }

bu ip olarak deyilde sadece Nick Ve Giriş Tarihi Saati Saniyesi Olarak ayarlaya Bilirmiyiz birde takip dosyasina giriş çikiş saatlerini kaydedebilirmi log olarak?

RapStar 23 Ocak 2010 17:18
Cevap: kanala girenleri takip
 
Alıntı:
Difuzyon Nickli Üyeden Alıntı (Mesaj 602982)
Kod:
on !*:join:#:{
set %nick $nick
set %mask $address($nick,2)
set %nick2 $readini profil.ini %mask nick
set %mask2 $readini profil.ini %mask mask
if %mask == %mask2 && %nick != %nick2 {
set %quand $readini profil.ini %mask quand | beep
$iif(!$window(@IP-Takip),window -z @IP-Takip)
aline -hp @IP-Takip - $- $+($time,-) $+($chr(40),#,$chr(41)) $nick nickinin,bundan önce aynı IP'den giriş yaptığı nick: %nick2 $+($chr(40),%quand,$chr(41))
}
if !$ini(profil.ini,mask) { hashtable }
}
alias hashtable {
if !$hget(profil) { .hmake profil 5 }
else { .hadd profil nick %nick | .hadd profil mask %mask | .hadd profil quand $+($time,-,$date) | .hsave -sai profil profil.ini $hget(profil,mask) | .hfree -s profil }
}
Daha önceden forumda paylaşılmıştı biraz refize ettim.
Kanala girenlerin host bilgisini profil.ini dosyasına başlık olarak açıyor.Bu hosttan farklı bir nick girince ,bir önceki nicki size bildiriyor.
Gün içerisinde 1 kanalda denedim gayet iyi çalışıyor,çoklu kanallarda umarım sorun yaratmaz.Şayet sorun yaratırsa yine bu başlık altında belirtirsiniz.

İyi paylaşımlar...

Difüzyon Kod 10 Numara. Bunu Mesela #A Kanalında Değişik nickle Gelince Kanal Geneline Echo biçiminde "daha önceki nicki : şudur" Olarak Düşürebilirmiyiz ?

SteNLie 24 Ocak 2010 01:00
Cevap: kanala girenleri takip
 
menu menubar,status,channel {
. Önceki NicK
..Açık:.enable #onick | echo -a %mksLogo 11,2 Önceki NicK Remotesi Devrede.. 
..Kapalı:.disable #onick | echo -a %mksLogo 11,2 Önceki NicK Remotesi Devredışı.. 
}
#onick off

on 1:start: { .hmake nicksch 100 }
on 1:part:#: { if ( $comchan($nick,0) < 2 ) { nicksgrab $nick $site } }
on 1:quit: { nicksgrab $nick $site }
on 1:kick:#: {
if ( $comchan($knick,0) < 2 ) {
if ( $ial($knick).host != $null ) { nicksgrab $knick $ifmatch }
}
}
alias nicksgrab {
.hadd nicksch $iif(($gettok($2,-1,46) == virtuel) && ($numtok($2,46) > 3),$+($gettok($2,1-2,46),.virtuel),$2) $1
}
alias NicksTrouve {
var %a = $iif(($gettok($2,-1,46) == virtuel) && ($numtok($2,46) > 3),$+($gettok($2,1-2,46),.virtuel),$2)
return $iif($hget(nicksch,%a) != $1,$ifmatch)
}
on 1:JOIN:#: {
var %NickPrecedent = $iif($NicksTrouve($nick,$site), 10 [Onceki Nicki] $ifmatch )
if ( %NickPrecedent ) { echo -tm $chan $ifmatch }
}

#onick end

RapStar 25 Ocak 2010 11:39
Cevap: kanala girenleri takip
 
Alıntı:
SteNLie Nickli Üyeden Alıntı (Mesaj 1040303755)
menu menubar,status,channel {
. Önceki NicK
..Açık:.enable #onick | echo -a %mksLogo 11,2 Önceki NicK Remotesi Devrede.. 
..Kapalı:.disable #onick | echo -a %mksLogo 11,2 Önceki NicK Remotesi Devredışı.. 
}
#onick off

on 1:start: { .hmake nicksch 100 }
on 1:part:#: { if ( $comchan($nick,0) < 2 ) { nicksgrab $nick $site } }
on 1:quit: { nicksgrab $nick $site }
on 1:kick:#: {
if ( $comchan($knick,0) < 2 ) {
if ( $ial($knick).host != $null ) { nicksgrab $knick $ifmatch }
}
}
alias nicksgrab {
.hadd nicksch $iif(($gettok($2,-1,46) == virtuel) && ($numtok($2,46) > 3),$+($gettok($2,1-2,46),.virtuel),$2) $1
}
alias NicksTrouve {
var %a = $iif(($gettok($2,-1,46) == virtuel) && ($numtok($2,46) > 3),$+($gettok($2,1-2,46),.virtuel),$2)
return $iif($hget(nicksch,%a) != $1,$ifmatch)
}
on 1:JOIN:#: {
var %NickPrecedent = $iif($NicksTrouve($nick,$site), 10 [Onceki Nicki] $ifmatch )
if ( %NickPrecedent ) { echo -tm $chan $ifmatch }
}

#onick end

Maalesef Hiç Tepki Bile Vermiyor Bu..

----------

Alıntı:
RapStar Nickli Üyeden Alıntı (Mesaj 1040303480)
Difüzyon Kod 10 Numara. Bunu Mesela #A Kanalında Değişik nickle Gelince Kanal Geneline Echo biçiminde "daha önceki nicki : şudur" Olarak Düşürebilirmiyiz ?

Tamamdır Bunu Halletim.

Tşkler, Kolay Gelsin


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

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