IRCForumu.Net - Türkiye'nin IRC ve mIRC Kullanıcılarının Buluştuğu Forum

Merhaba MF' Kullanıcıları.

Sunucuya giriş satırı:
-irc.sunucu.adı- *** Notice -- Client connecting on port 6667: cLaS (paramilite@94.123.128.183) [clients]
Nick değişimleri satırı:
-irc.sunucu.adı- *** Notice -- cLaS (paramilite@94.123.128.183) has changed his/her nickname to Dify

Sunucuda IRCop düzeyinde bulunan mirc botunuz yukarıdaki snotice satırlarını görebiliyorsa aşağıdaki kodu mirc botunuzun remote kısmına eklemeniz halinde;sunucuya giriş yapan veya sunucuda nick değiştiren nicki,ident bilgisini ve ip numarasını kayıt altına alacaktır.
Bir nevi giriş yapan tüm nick ve ip noları arşivleyecektir.

Bu kayıtlar bir metin belgesine yazdırılıp istem halinde
(#KANAL'da uygulanacak komutlar)
!arsiv IP
veya
!arsiv Nick
komutlarını belirttiğiniz #kanal da uyguladığınızda istemde bulunan verileri filtreleyip
size sunacaktır.

Kod:

on *:snotice:*:{

  if (*client*connect* iswm $1-) { 

    var %difyip = $remove($token($10,2,64),$chr(41)), %difynick = $9, %difyident = $remove($token($10,1,64),$chr(40))

    if $read(arsiv.txt,w,$+(*,%difyip,$chr(32),%difynick,$chr(32),*)) { write $+(-dl,$readn) arsiv.txt }

    write arsiv.txt %difyip %difynick 14Ident: %difyident 02Son Girişi: $+($time,-,$date) 

  }

  elseif (*changed*his*her*nickname* iswm $1-) {

    var %difyzip = $remove($token($5,2,64),$chr(41)), %difynickz = $11, %difyidentz = $remove($token($5,1,64),$chr(40))

    if $read(arsiv.txt,w,$+(*,%difyzip,$chr(32),%difynickz,$chr(32),*)) { write $+(-dl,$readn) arsiv.txt }

    write arsiv.txt %difyzip %difynickz 14Ident: %difyidentz 02Son Girişi: $+($time,-,$date) 

  }

}

;kod içerisindeki #KANAL kısmını kendinize göre değişebilirsiniz

on *:text:!arsiv &:#KANAL:{

  if $regex($2,/^\d+.\d+/) {

    if $read(arsiv.txt,r,/^\Q $+ $2 $+ \E\s/) { 

      msg $chan $2 arşivi listeleniyor 

      filter -ffcg arsiv.txt depo.txt /^\Q $+ $2 $+ \E\s/ 

      play $chan depo.txt 750

    }

    else { msg $chan $2 arşivde bulunmuyor }

  }

  if $regex($2,/^[^\d]/) {

    if $read(arsiv.txt,r,/[^:]\s\Q $+ $2 $+ \E\s/i) { 

      msg $chan $2 arşivi listeleniyor 

      filter -ffcg arsiv.txt depo.txt /[^:]\s\Q $+ $2 $+ \E\s/i 

      play $chan depo.txt 750 

    }

    else { msg $chan $2 arşivde bulunmuyor }

  }

}