IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
Sayfa 2 Toplam 3 Sayfadan 1 2 3
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)

Tinba 13 Ağustos 2018 14:09
Cevap: Nick Takip Remotesi
 
Alıntı:
YouMyCure Nickli Üyeden Alıntı (Mesaj 1041973595)
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 }
}
Takipte Ekli olanların Peki Direk yazdıklarını Admin kanalına nasıl aktararırım

YouMyCure 13 Ağustos 2018 17:04
Cevap: Nick Takip Remotesi
 
Alıntı:
Tinba Nickli Üyeden Alıntı (Mesaj 1041973622)
Takipte Ekli olanların Peki Direk yazdıklarını Admin kanalına nasıl aktararırım
Kod:
window $+(@,$hget(takip,%i).data)
    echo $+(@,$hget(takip,%i).data) $+([,$time,]) $+(4,$chan) $+(2,$nick,5) $1-
bu satırları
Kod:

    msg #admin $+([,$time,]) $+(4,$chan) $+(2,$nick,5) $1-
yaparsan #Admin kanalına yazar

Tinba 13 Ağustos 2018 20:06
Cevap: Nick Takip Remotesi
 
Usta Dediğin Yeri Değiştirdim Ama Malasef Aktarmadı ve Sicrtipt Donup Kastı

YouMyCure 13 Ağustos 2018 23:07
Cevap: Nick Takip Remotesi
 
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 {
  msg #admin $nick $1-
  }
  inc %1
  }
 
}
dendim ve sorunsuz

Alıntı:
Tinba Nickli Üyeden Alıntı (Mesaj 1041973672)
Usta Dediğin Yeri Değiştirdim Ama Malasef Aktarmadı ve Sicrtipt Donup Kastı

High 21 Aralık 2022 14:53
Cevap: Nick Takip Remotesi
 
Alıntı:
BlackForce Nickli Üyeden Alıntı (Mesaj 1041969528)
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...]
BlackForce, Öncelikle eline sağlık Kardeşim. Kod da sanırım nick olarak ekliyoruz şöyle bir düzenleme yapabilir misin? Boş bir zamanın da Örnek: Mobil@75.55.100 şeklinde bir İP adresini takip etmek istiyorum. willcard kullarak Mobil@*75.55.* şeklinde ekleyerek İdenti Mobil İP başlangıcı 75.55 olan kullanıcılar giriş yaptığın da uyarı almak istiyorum. Umarım anlata bilmişimdir.

Giant 30 Aralık 2022 15:42
Cevap: Nick Takip Remotesi
 
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 } }
Bu kodu + remote eklemekten kurtardım.
Bu şekil bişi oldu;
Kod:

on *:Text:*:*: { mkdir windowlogs
if $findtok(%takiplist-,$nick,32) { $iif(!$window(@Takip),.window -en @Takip) | .aline @Takip 2 $+ $chr(171) $+ $date $time $+ $chr(187) Nick: $nick  $chan Msg: $1- | write  $+($mircdir,/windowlogs/,$gettok($date,1,$asc(/)),$gettok($date,2,$asc(/)),.txt) $+(,$chan) $+(,$nick,): $1-    } }
alias benimlog { run $mircdir/windowlogs }
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 }
Not: 30122022 Spam'a giriyor mecbur kaldırdım o kısımı.

Buraya kadar tamam. Sıradaki !oku 3012.txt ile tüm 3012.txt içerisindeki yazıları mesaj olarak kendi nicime gelmesini istiyorum bunu nasıl yapabiliriz.


Kod:
on *:text:!3012*:#:{
  var %? = 1, %! = $2
  while (%? <= %!) {
    .timer 1 %? /notice $nick $read($mircdir,/windowlogs/3012.txt)
    inc %?
  }
}

!3012 20 ile 20 satır okuyorum. Bana tüm txt içerisindeki satırları göndermesi lazım.

Sterben 08 Temmuz 2024 13:30
Cevap: Nick Takip Remotesi
 
Konuyu hortlatacağım ama bu takip de peki ona seslenmeleride görebileceğim bir remote lazım da ortak bulunduğumuz kanallarda onun yazıları ile ona seslenleri şimdi den teşekkürler

Enes 11 Temmuz 2024 11:07
Cevap: Nick Takip Remotesi
 
Alıntı:
Sterben Nickli Üyeden Alıntı (Mesaj 1042912128)
Konuyu hortlatacağım ama bu takip de peki ona seslenmeleride görebileceğim bir remote lazım da ortak bulunduğumuz kanallarda onun yazıları ile ona seslenleri şimdi den teşekkürler
Kod:
on izle:text:*:#:{
  if (!$window(@Takip)) window -en @Takip {
  echo -tm @Takip 1 $nick  - 5 #  4 -> 2 $1- }
}

-----------------------------------------------------------------------------------------------------------------------------


on izle:Nick: {
  if ($nick !iswm $newnick) && ($newnick !iswm $nick) {
    echo -tm @Takip $nick nick değişerek $newnick oldu. {
      auser izle $newnick | echo -tm @Takip $newnick Takibe alındı.
    }
  }
}
hangi nick hangi kanalda ne yazmış @Takip window penceresine yansıtır nick değiştirse de yeni nickini ekler takibe devam eder.

Kod:
/auser izle nick
şeklinde eklersin

Kod:
/ruser izle nick
şeklinde kaldırırsın veya manuel de yaparsın.

diğer olayı da basit şekilde

Kod:
on *:text:*:#kanal:{
  if (nick1 isin $1-) || (nick2 isin $1-) {
  msg #yansıyacakkanal -1 $1-  }
}

NothingLose 30 Eylül 2024 19:24
Cevap: Nick Takip Remotesi
 
Peki bunu giren kullaniciya oto alsa ve global kanallarin hepsinde kayit etse mesajlarini simdiden tşkler

Gurkan 01 Ekim 2024 16:23
Cevap: Nick Takip Remotesi
 
Alıntı:
NothingLose Nickli Üyeden Alıntı (Mesaj 1042930317)
Peki bunu giren kullaniciya oto alsa ve global kanallarin hepsinde kayit etse mesajlarini simdiden tşkler

Kod:
on *:START:{
  if (!$hget(active_users)) { hmake active_users 100 }
}

on *:JOIN:*:{
  if ($nick != $me) {
    hadd active_users $nick 1
    msg #log $nick sunucuya giriş yaptı
  }
}

on *:PART:*:{
  if ($nick != $me) {
    hdel active_users $nick
    msg #log $nick sunucudan ayrıldı
  }
}

on *:QUIT:{
  if ($nick != $me) {
    hdel active_users $nick
    msg #log $nick sunucudan ayrıldı (QUIT)
  }
}

on *:TEXT:*:*:{
  if ($nick != $me) {
    if ($hget(active_users,$nick)) {
      msg #log $nick > $chan: $1-
    }
  }
}

on *:NICK:{
  if ($newnick != $me) {
    hdel active_users $nick
    hadd active_users $newnick 1
    msg #log $nick nick'ini $newnick olarak değiştirdi
  }
}

alias izlenenler {
  var %i = 1, %users
  while (%i <= $hget(active_users,0).item) {
    %users = %users $hget(active_users,%i).item $+ $chr(44)
    inc %i
  }
  echo -a İzlenen kullanıcılar: $left(%users,-1)
}

menu status,channel {
  -
  Kullanıcı Logları
  .İzlenen Kullanıcıları Göster:izlenenler
}
Problem yaşarsan üstüne konuşalım.


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

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