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

- mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)

- - Kodda Hata Var Online Takip (https://www.ircforumlari.net/mirc-scripting-sorunlari/27202-kodda-hata-var-online-takip.html)

Kodda Hata Var Online Takip

Alıntı:

on master:join:#Ankara: { $+(timer,$nick) 0 1 inc -e $+(%,$nick) }
on masterart:#Ankara: { if $timer($nick) { | $+(timer,$nick) off }
write $+($nick,.txt) $date tarihinde $time saatinde $replace($duration($($+(%,$nick),2)),mins,Dakika,h rs,Saat,secs,Saniye'dir,min,Dakika,hr,Saat,sec,San iye) online olmuştur | unset $+(%,$nick) }
on *:quit: { if $timer($nick) { $+(.timer,$nick) off }
write $+($nick,.txt) $date tarihinde $time saatinde $replace($duration($($+(%,$nick),2)),mins,Dakika,h rs,Saat,secs,Saniye'dir,min,Dakika,hr,Saat,sec,San iye) online olmuştur | unset $+(%,$nick) }
on *:text:*:#IRCMaster: { if !goster == $$1 { var %Saat $lines($+($2,.txt))
while (%Saat > 0) { msg #IRCmaster $2 $read($+($2,.txt),%Saat) | dec %Saat } } }
on 1:deop:#Ankara: { if $timer($nick) { | $+(timer,$nick) off } }

Abicim Bu Kod Kanala Giren Çıkan Bütün Nickleri Tutuyor ve Hepsine Tek Tek txt Acıyor Ben Diyorum ki Sadece #ahmet Kanalına Giren Nicklerin Kayıtlarını Tutsun ve Hepsini nickonline.txt Dosyasında Tutsun. ve Aşağıdaki gibi Kayıt etsin Kolay Gelsin Simdiden ellerinize Sağlık

Alıntı:

NaTSuKa 08/08/2006 15:29:05 tarihinde 3Saniye online olmuştur
NaTSuKa 08/08/2006 15:30:02 tarihinde 1dakika 13Saniye online olmuştur
NaTSuKa 08/08/2006 15:30:17 tarihinde 15Saniye online olmuştur

Cevap: Kodda Hata Var Online Takip

Abi Kimse Bilmiyomu Ya Sunu Yapalım HelpBotu tamamlıcam İnş.

Yanıt: Kodda Hata Var Online Takip

Moonshield bir txt de toplasın istemişsin öle denedim yapamadım ama söle bir kod yaptm kanal giren nickleri takip dosyasına kanaldan bir şekilde çıkış yapan nickleride çıkış dosyasında tutuyor ve script her acıldıgında bu dosyalar temizleniyor...

Kod:

on *:join:#kanaladı: { write -s $+ $nick Takip\ $+ $nick $+ .txt $nick $date $time Online olmustur. }

on *:part:#kanaladı: { write -s $+ $nick Çıkış\ $+ $nick $+ .txt $nick $date $time Part Olmustur. }

on *:kick:#kanaladı: { write -s $+ $nick Çıkış\ $+ $nick $+ .txt $nick $date $time Kanaldan Atılmıştır. }

on *:quit: { write -s $+ $nick Çıkış\ $+ $nick $+ .txt $nick $date $time Sunucudan Çıkmıştır. }

on *:text:*:#kanaladı: { 

  if $1 == !takip { takip $chan $2 $+ .txt | cıkıs $chan $2 $+ .txt }

}

alias takip {

  if ($findfile($shortfn($mircdirTakip),$2-,1)) { 

    var %ia 1,%za $ifmatch

    while %ia <= $len(%za) {

      $iif($read(%za,%ia),msg $1 $read(%za,%ia))  

      inc %ia 

    }

  }

  else {

    msg $1 Nickin Giriş anındaki takibi bulunamadı.. 

  }

}

alias cıkıs {

  if ($findfile($shortfn($mircdirÇıkış),$2-,1)) { 

    var %ia 1,%za $ifmatch

    while %ia <= $len(%za) {

      $iif($read(%za,%ia),msg $1 $read(%za,%ia)) 

      inc %ia 

    }

  }

  else {

    msg $1 Nickin Çıkış anındaki takibi bulunamadı.. 

  }

}

alias sila {

  var %s = $findfile(takip\,*.txt,0)

  while (%s) {

    dec %s

    return $findfile(takip\,*.txt,0,.remove $+(",$1-,"))

  }

}

alias silb {

  var %s = $findfile(çıkış\,*.txt,0)

  while (%s) {

    dec %s

    return $findfile(çıkış\,*.txt,0,.remove $+(",$1-,"))

  }

}

on *:start:{ sila | silb }

Örnek olarak bunları verebilirim...

Kod:

[12:20] <KGS> !takip karanlik

[12:20] <CaLvin> KaranLik 04/02/2007 12:13:10 Online olmustur.

[12:20] <CaLvin> KaranLik 04/02/2007 12:13:10 Part Olmustur.

[12:21] <KGS> !takip TeQuiLa

[12:21] <CaLvin> Nickin Giriş anındaki takibi bulunamadı..

[12:21] <CaLvin> TeQuiLa 04/02/2007 12:14:34 Part Olmustur.

[12:24] <KGS> !takip KaLpSiZzZ

[12:24] <CaLvin> KaLpSiZzZ 04/02/2007 12:18:50 Online olmustur.

[12:24] <CaLvin> KaLpSiZzZ 04/02/2007 12:24:36 Sunucudan Çıkmıştır.