09 Şubat 2019, 19:33 | #1 |
Üyelik tarihi: 29 Kasım 2015
Mesajlar: 6 WEB Sitesi: Yok IRC Sunucusu: Yok İlgi Alanı: Alınan Beğeni: 1 |
-ip arşiv kodu hk.
Böyle bir kod paylaşımı olmuştu. Ben bu kod için giriş noticelerini statüste değil #Takip kanalında bot tarafından yazılınca görebiliyorum. Örn: <irc.random.net> Client connecting on port 6667: cam-ustasi (Sohbet@46.196.XX.XX) [Web Random.Net IRC Client] [clients] | isteğim kodun oradan bilgiyi alabilmesi arşiv dosyasına ekletebilmek ve bu arşivdeki nicklere koruma için otoshun ekleme şansımız da olur mu? Nickine olacak şekilde olabilir mesela. |
Alıntı
|
09 Şubat 2019, 20:33 | #2 |
Üyelik tarihi: 03 Kasım 2016
Bulunduğu yer: Rize Mesajlar: 139 WEB Sitesi: www.sohbetciyiz.net IRC Sunucusu: irc.sohbetciyiz.net İlgi Alanı: mIRC Scripting Alınan Beğeni: 63 |
Cevap: -ip arşiv kodu hk.
Kod:
on *:snotice:*:{ if (*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),%difynick z,$chr(32),*)) { write $+(-dl,$readn) arsiv.txt } write arsiv.txt %difyzip %difynickz Ident: $+ %difyidentz Son Girişi: $+($time,-,$date) } } ;kod içerisindeki #KANAL kısmını kendinize göre değişebilirsiniz on *:text:*:#: { if (*client*connect* iswm $strip($1-)) { var %difyip = $remove($token($strip($7),2,64),$chr(41)), %difynick = $strip($6), %difyident = $remove($token($strip($7),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 Ident : $+ %difyident Son Girişi: $+($time,-,$date) } if $regex($1,/^([!/./-][Iıİi]p)$/i) { if $regex($2,/^\d+.\d+/) { if $read(arsiv.txt,r,/^\Q $+ $2 $+ \E\s/) { if !$2 { msg $chan Hatalı Kullanım -ip 78.98.162.78 Şeklinde Yazın. $+ $nick $+ , | return } 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 } } } } shun kısmı için tam olarak ne istediğini anlamadım. |
Alıntı
|
Etiketler |
client, raw |
Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir) | |
Seçenekler | |
Stil | |
|
|
Benzer Konular | ||||
Konu | Konuyu Başlatan | Forum | Cevaplar | Son Mesaj |
Amsg Muaf Kodu | AntepLi | Hazır Kodlar | 0 | 01 Mart 2019 13:41 |
CR de Söz Yazma Kodu | Goemon | ConferenceRoom | 0 | 05 Mart 2015 10:51 |
!nerden Kodu | Toprak | Hazır Kodlar | 1 | 17 Şubat 2015 00:54 |
Motd Kodu | Goemon | ConferenceRoom | 0 | 15 Şubat 2015 17:02 |
mIRC Scripting Hazır Kodlar Arşiv | Toprak | Hazır Kodlar | 0 | 26 Ocak 2015 00:55 |