!arsiv [IP|Nick]

Sunucuya giriş satırı:
-irc.sunucu.adı- *** Notice — Client connecting on port 6667: Cenk (paramilite@94.123.128.183) [clients]
Nick değişimleri satırı:
-irc.sunucu.adı- *** Notice — Cenk (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.

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

Exclamation !arsiv [IP|Nick]
Merhabalar,

Sunucuya giriş satırı:
-irc.sunucu.adı- *** Notice — Client connecting on port 6667: Cenk (paramilite@94.123.128.183) [clients]
Nick değişimleri satırı:
-irc.sunucu.adı- *** Notice — Cenk (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 }
}
}

Uygulama Sonuçları:

[22:09] !arsiv eCe
[22:09] <@Difuzyon> eCe arşivde bulunmuyor

[22:10] !arsiv seref06
[22:10] <@Difuzyon> seref06 arşivi listeleniyor
[22:10] <@Difuzyon> 94.123.128.183 Seref06 Ident: trsohbet Son Girişi: 22:01:20-28/01/2011

[22:10] !arsiv 85.102.42.208
[22:10] <@Difuzyon> 85.102.42.208 arşivi listeleniyor
[22:10] <@Difuzyon> 85.102.42.208 deneme12345 Ident: Cenk Son Girişi: 21:37:39-28/01/2011
[22:10] <@Difuzyon> 85.102.42.208 deneme123 Ident: Cenk Son Girişi: 21:41:04-28/01/2011
[22:10] <@Difuzyon> 85.102.42.208 deneme1234 Ident: Cenk Son Girişi: 21:49:58-28/01/2011
[22:10] <@Difuzyon> 85.102.42.208 Cenk Ident: Cenk Son Girişi: 22:07:49-28/01/2011

Leave a Reply

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir