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

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

- - kanala giren yetkiliyi takip (https://www.ircforumlari.net/mirc-scripting-sorunlari/406262-kanala-giren-yetkiliyi-takip.html)

kanala giren yetkiliyi takip

S.a arkadaslar Forumda bu konu hakkında baya acıklama addon verilmıs fakat benim istediğim le uyusmadı eksik kalıyor..

#OP kanalına Giriş yapan yetkili hop,aop,sop %@& ları kayıt altına almak qün saat olarak.. Dün 5 sefer bu gün 15 sefermi girdi, bunu gün ve saat olarak kanala yansıtmak istiyorum
örnek: !bul aLeX
!sil aLeX

cevap: aLeX Nicki Tarih : 29-09-2011 Saat : 12:24 tarihinde girdi Tarih : 29-09-2011 Saat : 12:55 Çıktı

cevap: aLeX Nicki Tarih : 29-09-2011 Saat : 13:07 tarihinde girdi Tarih : 29-09-2011 Saat : 14:35 Çıktı

yani qün içerisinde kac sefer hangi saatlerde qirdi cıktı takıp etmek için
birde !sil nick le kayıtları sıfırlaya bilelim

Yardımlarınız için teşekkür ederim..

Cevap: kanala giren yetkiliyi takip

Kod:

on *:rawmode:#op:if ($regex($1,\+(o|a|h))) { set -e %op [ $+ [ $2 ] ] $date * $time }

on *:part:#op:if %op [ $+ [ $nick ] ] { write op.txt $nick Tarih: $gettok(%op [ $+ [ $nick ] ],1,42) Giris: $gettok(%op [ $+ [ $nick ] ],2,42) Cıkıs: $time  | unset %op [ $+ [ $nick ] ]  }

on *:quit:if %op [ $+ [ $nick ] ] { write op.txt $nick Tarih: $gettok(%op [ $+ [ $nick ] ],1,42) Giris: $gettok(%op [ $+ [ $nick ] ],2,42) Cıkıs: $time  | unset %op [ $+ [ $nick ] ] }

on *:text:*:#op: {

  if ($regex($1,/[!.]bul/i)) {

    if (!$read(op.txt,w,$+($2,$chr(32),*))) { msg # $2 adinda kayıt bulunamadı! | halt }

    var %s 1 | while (%s <= $lines(op.txt)) { $iif($gettok($read(op.txt,%s),1,32) == $2,msg # $read(op.txt,%s)) | inc %belirt | inc %s }

    msg # Kayitlardaki Bilgi Sayısı, %belirt  olarak kayıtlardadir. | unset %belirt

  }

  if ($regex($1,/[!.]sil/i)) {

    if (!$read(op.txt,w,$+($2,$chr(32),*))) { msg # $2 adinda kayıt bulunamadı! | halt }

    var %s 1 | while (%s <= $lines(op.txt)) { $iif($gettok($read(op.txt,%s),1,32) == $2,write $(-dl,$readn) op.txt) | inc %s }

    msg # $2 Listeden Silindi! | unset %op [ $+ [ $2 ] ] 

  }

}

denemedim ama calismasi gerek , bana konu altinda bildirirsin calisip calismadıgını , hayırlı IF'ler.

Cevap: kanala giren yetkiliyi takip

normal kayitli nickler icinde olsa iyi olurdu