| Çevrimdışı | !arsiv IP Nick
Merhaba MF' Kullanıcıları.
Sunucuya giriş satırı:
-irc.sunucu.adı- *** Notice -- Client connecting on port 6667: cLaS (paramilite@94.123.128.183) [clients]
Nick değişimleri satırı:
-irc.sunucu.adı- *** Notice -- cLaS (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: Kodu kopyalamak için üzerine çift tıklayın! 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 }
}
}
Merhaba MF' Kullanıcıları.
Sunucuya giriş satırı:
-irc.sunucu.adı- *** Notice -- Client connecting on port 6667: cLaS (paramilite@94.123.128.183) [clients]
Nick değişimleri satırı:
-irc.sunucu.adı- *** Notice -- cLaS (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: Kodu kopyalamak için üzerine çift tıklayın! 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 }
}
}
|