Tekil Mesaj gösterimi
Alt 04 Mart 2021, 12:17   #2
Çevrimiçi
Toprak
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (1)
IF Ticaret Yüzdesi:(%)
Cevap: NS sonucu, kac gündür gelmedigini listelemek




KuL Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Selamun Aleykum Arkadaslar,

bukonulardan uzun zamandir uzagim, ve bir arkadasa Yardim amacli birsey yapiyim dedim, ama tikandim. Daha dogrusu hangi sekilde mantik yürütücegimi bilemiyorum suan.

Komut ile, Kanalin access listesi sorgulanicak, cikan listedeki nicklere info cekicek, ve sonucuda gün olarak hesaplayip, yani en son girdigi tarih ile sorgulanan tarih arasini hesaplayip, txt yazicak. ve o txt yi islem bitdikden sonra, kanala yansiticak


Örnek:

Yetkili: !sorgula #Sohbet
Bot: Sohbet Kanal Yetkilileri sorgulaniyor..
Bot: -
Bot: Ali - 2 Gün 3 Saat
Bot: Veli - 10 Gün 9 Saat
Bot: Ayse - Online
Bot: Sinan - Online
Bot: Derya - 22 Gün 19 Saat

gibi mesela, ama NS Sonucu sadece su sekilde veriyorm infoda

-NickServ- Son gorulen zaman: Mar 03 03:33:02 2021 +03

Ne yapmam gerekiyor, yani access listesini okutunca noticeden nicklerin $1 ini 1.txt ye kayit edip, sonra o islemden sonra 1.txt deki nicklere sirayla info cekip, sonucunu ikinci kod ile 2.txt ye kayit edip, ücüncüde birlestiricemmi?

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:text:*:#:{ if $regex($1,/^[!.-]sorgula/Si) { if !$regex($2,/^#.+/Si) { msg # Lütfen kanal belirtiniz ORNEK: !sorgula # } else { set %:kont # | cs access $2 list } } } on *:notice:*:?:{ if ($nick == ChanServ) && $regex($2,/(\d+)/S) && (%:kont) { ns info $3 } elseif ($nick == NickServ) && (%:kont) { if $regex($1-,/(.+) isim:/Si) { set -u5 %_nick $regml(1) } elseif $regex($1-,/Son quit mesaji/Si) && (%_nick) { msg %:kont %_nick - Online } elseif $regex($1-,/Son gorulen zaman\: (.+) (.+) (.+) (.+) \+/Si) { msg %:kont %_nick - $tr-saat($duration($calc($ctime - $ctime($+($regml(2),/,$_ay($regml(1)),/,$regml(4)) $regml(3))))) | unset %_nick } } } alias _ay return $replace($1-,Oca,01,Sub,02,Mar,03,Nis,04,May,05,Haz,06,Tem,07,Agu,08,Eyl,09,Ekm,10,Ksm,11,Ara,12) alias tr-saat return $replace($1-,secs,$+($chr(32),Saniye),mins,$+($chr(32),Dakika),hrs,$+($chr(32),Saat),days,$+($chr(32),Gün),wks,$+($chr(32),Hafta),min,$+($chr(32),Dakika),Hr,$+($chr(32),Saat),sec,$+($chr(32),Saniye),day,$+($chr(32),Gün),wk,$+($chr(32),Hafta))

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

__________________
Dünyanın en güzel yeri neresi biliyor musun? Biraz kenara kaysana...
 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları eglen sohbet reklamver