IRCALEM.Com Genel Forum, IRC Forumu IF - mIRC Scripting mIRC Scripting Hazır Kodlar !arsiv IP Nick
irc

!arsiv IP Nick
Aytac
!arsiv IP Nick
0
362
  • 0 Oy - 0 Ortalama
  • 1
  • 2
  • 3
  • 4
  • 5

[-]
Etiketler
ip arsiv nick

Bu konuyu görüntüleyen kullanıcı(lar):1 Ziyaretçi
Şuan Offine!
Şuan Offine!
Aytac Administrator
********
Proje Sorumlusu

  • Üyelik tarihi    04.02.2020
  • Konum  78 Karabük
  • Konular351
  • Mesajlar364
  • Verilen beğeni8 in 5 posts
  • Alınan beğeni6
  • Rep puanı 6

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


Kode Sahibi: Difuzyon
“İnsanların en hayırlısı, insanlara faydalı olandır”. H.Ş.


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
asiren
Web Nick Kayıt Aytac 2 611 05.12.2020, 14:21
Son Mesaj: Sadullah
  !gbt Nick/!gbtip IP Aytac 0 505 14.04.2020, 00:58
Son Mesaj: Aytac
  Girişte Nick Şehir Ülke İp Gosterme ve Hotlink İp Banlama Aytac 0 696 02.04.2020, 18:20
Son Mesaj: Aytac
  mIRC Nick Puan Kodu Aytac 0 402 28.03.2020, 18:59
Son Mesaj: Aytac
  Nick Kalın Yazma Kodu Aytac 0 462 28.03.2020, 17:36
Son Mesaj: Aytac

Foruma Git: