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

- 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)

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)

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 •••

  -

}

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.

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.

Cevap: kanala girenleri takip

WeiLSiDe, kod sorunsuz çalışmakta.

Cevap: kanala girenleri takip

Tşk ler.. Sanırım sorun benden kaynaklanıyo
Afedersiniz

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

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

Cevap: kanala girenleri takip

Bende çalışıyor arkadaşlar version 6,33
Düşük versionda sorun olabilir...

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