IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
Sayfa 1 Toplam 2 Sayfadan 1 2
Konuya ait 40 Mesajı başka Sayfada göster

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/)
-   -   Çözüldü Nick Takip Remotesi (https://www.ircforumlari.net/mirc-scripting-sorunlari/799518-nick-takip-remotesi.html)

Style35 25 Temmuz 2018 15:45
Nick Takip Remotesi
 
Arkadaşlar selam, kolay gelsin. İstedigimiz bir nickin bulundugu tüm ortak kanallarda yazdıgı mesajları ayrı bir pencerede görebilirmiyiz acaba? mesela özlem nicki benim de buludugum tum kanallarda ne yazarsa yazsın tek bir pencerede toplansın, mümkün müdür böyle bir şey? tesekkürler..

BlackForce 26 Temmuz 2018 22:45
Cevap: Nick Takip Remotesi
 
Kod:
on *:text:*:*: if $findtok(%takiplist-,$nick,32) { $iif(!$window(@Takip),.window -en @Takip) | .aline @Takip 2 $+ $chr(171) $+ $time $+ $chr(187) Nick: $nick Kanal: $chan Msg: $1- }
dialog takiplist {
  title "Takip nick listesi"
  size -1 -1 133 150
  option dbu
  edit "", 11, 17 44 60 10
  list 3, 17 54 60 69
  button "Ekle", 4, 85 46 32 12
  button "Sil", 5, 85 66 33 12
  box "Takip edilecek nick'i yaziniz..", 9, 2 32 129 115
  button "Tamam", 10, 12 128 111 15, ok
}
menu status,channel,query {
  -
  Takip Listesi: dialog $iif(!$dialog(takiplist),-m takiplist,-v) takiplist
}
alias takiplist { .dialog -m takiplist takiplist }
on *:dialog:takiplist:init:*:{
  if (%takiplist-) .didtok $dname 3 32 $ifmatch
}
on *:dialog:takiplist:sclick:*: {
  if ($did == 4) { if ($did(11) != $null) { set -u %sk $did(11) | if (%sk) && (!$istok(%takiplist-,%sk,32)) { .set %takiplist- $addtok(%takiplist-,%sk,32) | .notify %sk | .notify on | did -a $dname 3 %sk | did -r $dname 11 } } }
  if ($did == 5) { if ($did(3).sel > 0) { .set %takiplist- $remtok(%takiplist-,$did(3).seltext,1,32) | .notify -r $did(3).seltext | did -d $dname 3 $did(3).sel | did -c $dname 3 1 } }
}
on ^*:NOTIFY: { $iif(!$window(@Takip),.window -en @Takip) | .aline @Takip 2Takip listesindeki  $nick  nick'i şu anda sunucuda. Tarih/Saat $date $+ / $+ $time }
on ^*:UNOTIFY: { $iif(!$window(@Takip),.window -en @Takip) | .aline @Takip 2Takip listesindeki  $nick  nick'i sunucudan çıkış yaptı. Tarih/Saat $date $+ / $+ $time }
Menüden istediğin nickleri ekleyebilirsin.

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Style35 27 Temmuz 2018 13:38
Cevap: Nick Takip Remotesi
 
Hocam harikasınız. çok işime yaradı teşekkür derim sağolasınız.

YouMyCure 27 Temmuz 2018 21:10
Cevap: Nick Takip Remotesi
 
Alıntı:
Kopenza Nickli Üyeden Alıntı (Mesaj 1041969220)
Arkadaşlar selam, kolay gelsin. İstedigimiz bir nickin bulundugu tüm ortak kanallarda yazdıgı mesajları ayrı bir pencerede görebilirmiyiz acaba? mesela özlem nicki benim de buludugum tum kanallarda ne yazarsa yazsın tek bir pencerede toplansın, mümkün müdür böyle bir şey? tesekkürler..
Kod:
on *:Text:*:*: {
  if $nick == TAKIP_NICK {
    window @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]ı
    echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]ı $+([,$time,]) $+(4,$chan) $+(2,$nick,5) $1-
  }
}
TAKIP_NICK yazan yere o kişinin nickini yazarak şu şekilde görüntüleyebilirsin;
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Style35 01 Ağustos 2018 19:05
Cevap: Nick Takip Remotesi
 
Çok teşekkürler hocam. Peki bu pencerenin logunu tutmamız mumkun mudur?

BlackForce 01 Ağustos 2018 19:22
Cevap: Nick Takip Remotesi
 
Alıntı:
Kopenza Nickli Üyeden Alıntı (Mesaj 1041970939)
Çok teşekkürler hocam. Peki bu pencerenin logunu tutmamız mumkun mudur?
Kod:
on *:start: /notify on | echo -a 9Notify takip listesi için aktif edildi.
on *:text:*:*: if $findtok(%takiplist-,$nick,32) { $iif(!$window(@Takip),.window -en @Takip) | .aline @Takip 2 $+ $chr(171) $+ $time $+ $chr(187) Nick: $nick Kanal: $chan Msg: $1- | write takiplog.txt $chr(171) $+ $time $+ $chr(187) Nick: $nick Kanal: $chan Msg: $1- }
dialog takiplist {
  title "Takip nick listesi"
  size -1 -1 133 150
  option dbu
  edit "", 11, 17 44 60 10
  list 3, 17 54 60 69
  button "Ekle", 4, 85 46 32 12
  button "Sil", 5, 85 66 33 12
  box "Takip edilecek nick'i yaziniz..", 9, 2 32 129 115
  button "Tamam", 10, 12 128 111 15, ok
}
menu status,channel,query {
  -
  Takip Listesi: dialog $iif(!$dialog(takiplist),-m takiplist,-v) takiplist
}
alias takiplist { .dialog -m takiplist takiplist }
on *:dialog:takiplist:init:*:{
  if (%takiplist-) .didtok $dname 3 32 $ifmatch
}
on *:dialog:takiplist:sclick:*: {
  if ($did == 4) { if ($did(11) != $null) { set -u %sk $did(11) | if (%sk) && (!$istok(%takiplist-,%sk,32)) { .set %takiplist- $addtok(%takiplist-,%sk,32) | .notify %sk | .notify on | did -a $dname 3 %sk | did -r $dname 11 } } }
  if ($did == 5) { if ($did(3).sel > 0) { .set %takiplist- $remtok(%takiplist-,$did(3).seltext,1,32) | .notify -r $did(3).seltext | did -d $dname 3 $did(3).sel | did -c $dname 3 1 } }
}
on ^*:NOTIFY: { $iif(!$window(@Takip),.window -en @Takip) | .aline @Takip 2Takip listesindeki  $nick  nick'i şu anda sunucuda. Tarih/Saat $date $+ / $+ $time | write takiplog.txt Takip listesindeki $nick nick'i $date $+ / $+ $time tarihinde sunucuya giriş yapti. }
on ^*:UNOTIFY: { $iif(!$window(@Takip),.window -en @Takip) | .aline @Takip 2Takip listesindeki  $nick  nick'i sunucudan çıkış yaptı. Tarih/Saat $date $+ / $+ $time | write takiplog.txt Takip listesindeki $nick nick'i $date $+ / $+ $time tarihinde sunucudan çıkış yapti. }
Arkadasin paylastigi icin;

Kod:
on *:Text:*:*: {
  if $nick == TAKIP_NICK {
    window @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]ı
    echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]ı $+([,$time,]) $+(4,$chan) $+(2,$nick,5) $1-
    write takiplog.txt $+([,$time,]) $chan $nick $1-
  }
}
takiplog.txt'nin içine loglanır boyle hocam

Style35 01 Ağustos 2018 19:26
Cevap: Nick Takip Remotesi
 
Alıntı:
BlackForce Nickli Üyeden Alıntı (Mesaj 1041970942)
Kod:
on *:start: /notify on | echo -a 9Notify takip listesi için aktif edildi.
on *:text:*:*: if $findtok(%takiplist-,$nick,32) { $iif(!$window(@Takip),.window -en @Takip) | .aline @Takip 2 $+ $chr(171) $+ $time $+ $chr(187) Nick: $nick Kanal: $chan Msg: $1- | write takiplog.txt $chr(171) $+ $time $+ $chr(187) Nick: $nick Kanal: $chan Msg: $1- }
dialog takiplist {
  title "Takip nick listesi"
  size -1 -1 133 150
  option dbu
  edit "", 11, 17 44 60 10
  list 3, 17 54 60 69
  button "Ekle", 4, 85 46 32 12
  button "Sil", 5, 85 66 33 12
  box "Takip edilecek nick'i yaziniz..", 9, 2 32 129 115
  button "Tamam", 10, 12 128 111 15, ok
}
menu status,channel,query {
  -
  Takip Listesi: dialog $iif(!$dialog(takiplist),-m takiplist,-v) takiplist
}
alias takiplist { .dialog -m takiplist takiplist }
on *:dialog:takiplist:init:*:{
  if (%takiplist-) .didtok $dname 3 32 $ifmatch
}
on *:dialog:takiplist:sclick:*: {
  if ($did == 4) { if ($did(11) != $null) { set -u %sk $did(11) | if (%sk) && (!$istok(%takiplist-,%sk,32)) { .set %takiplist- $addtok(%takiplist-,%sk,32) | .notify %sk | .notify on | did -a $dname 3 %sk | did -r $dname 11 } } }
  if ($did == 5) { if ($did(3).sel > 0) { .set %takiplist- $remtok(%takiplist-,$did(3).seltext,1,32) | .notify -r $did(3).seltext | did -d $dname 3 $did(3).sel | did -c $dname 3 1 } }
}
on ^*:NOTIFY: { $iif(!$window(@Takip),.window -en @Takip) | .aline @Takip 2Takip listesindeki  $nick  nick'i şu anda sunucuda. Tarih/Saat $date $+ / $+ $time | write takiplog.txt Takip listesindeki $nick nick'i $date $+ / $+ $time tarihinde sunucuya giriş yapti. }
on ^*:UNOTIFY: { $iif(!$window(@Takip),.window -en @Takip) | .aline @Takip 2Takip listesindeki  $nick  nick'i sunucudan çıkış yaptı. Tarih/Saat $date $+ / $+ $time | write takiplog.txt Takip listesindeki $nick nick'i $date $+ / $+ $time tarihinde sunucudan çıkış yapti. }
Arkadasin paylastigi icin;

Kod:
on *:Text:*:*: {
  if $nick == TAKIP_NICK {
    window @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]ı
    echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]ı $+([,$time,]) $+(4,$chan) $+(2,$nick,5) $1-
    write takiplog.txt $+([,$time,]) $chan $nick $1-
  }
}
takiplog.txt'nin içine loglanır boyle hocam
Hocam ellerinize sağlık. Çok teşekkür ederim, kolay gelsin.

YouMyCure 01 Ağustos 2018 20:08
Cevap: Nick Takip Remotesi
 
Alıntı:
Kopenza Nickli Üyeden Alıntı (Mesaj 1041970939)
Çok teşekkürler hocam. Peki bu pencerenin logunu tutmamız mumkun mudur?
Kod:
on *:Text:*:*: {
  if $nick == TAKIP_NICK {
mkdir windowlogs
    window @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]ı
    echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]ı $+([,$time,]) $+(4,$chan) $+(2,$nick,5) $1-
write $+($mircdir,/windowlogs/,$gettok($date,1,$asc(/)),$gettok($date,2,$asc(/)),$gettok($date,3,$asc(/)),.txt) $1-
  }
alias benimlog { run $mircdir/windowlogs }
}
şeklinde yaparsan mirc klasörünün icersine windowlogs klasoru olusturur ve bunun içerine;
31072018.txt
01082018.txt
02082018.txt
gibi dosyalar oluşturup günlük içerisine ekler.
Kod:
/benimlog
komutu ile log klasörüne gidebilirsin

Tinba 13 Ağustos 2018 01:07
Cevap: Nick Takip Remotesi
 
Bunu Bota Nasıl Editlerim Örnek #Admin Kanalında !takip Ekle YouMyCure !takip sil YouMyCure Yazıp Kanal Genellerinde YouMyCure Yazdıklarını Nasıl Takip Ederim

YouMyCure 13 Ağustos 2018 12:35
Cevap: Nick Takip Remotesi
 
Alıntı:
Tinba Nickli Üyeden Alıntı (Mesaj 1041973544)
Bunu Bota Nasıl Editlerim Örnek #Admin Kanalında !takip Ekle YouMyCure !takip sil YouMyCure Yazıp Kanal Genellerinde YouMyCure Yazdıklarını Nasıl Takip Ederim
Kod:
on *:Text:*:*: {
  if ($chan == #Admin) {
    if $regex($1,/^[!.]tak[ıiİ]p$/Si) {
      if $2 == ekle {
        if !$hget(takip) { hmake takip 100 }
        hadd takip $3
        notice $nick $3 takip list eklendi
      }
      if $2 == sil {
        hdel takip $3
        notice $nick $3 takip list silindi
      }
      if $2 == list {
        var %i 1
        while %i <= $hget(takip,0).data {
          notice $nick $hget(takip,%i).data
          inc %i
        }
      }
    }
  }
  var %q 1
  while %q <= $hget(takip,0).data {
  if $nick == $hget(takip,%i).data {
  mkdir windowlogs
    window $+(@,$hget(takip,%i).data)
    echo $+(@,$hget(takip,%i).data) $+([,$time,]) $+(4,$chan) $+(2,$nick,5) $1-
    write $+($mircdir,/windowlogs/,$gettok($date,1,$asc(/)),$gettok($date,2,$asc(/)),$gettok($date,3,$asc(/)),.txt) $1-
  }
  inc %1
  }
  alias benimlog { run $mircdir/windowlogs }
}


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 21:44.
Sayfa 1 Toplam 2 Sayfadan 1 2
Konuya ait 40 Mesajı başka Sayfada göster

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