lookjapan.COM - IRC ve mIRC dünyasının forumu!

lookjapan.COM - IRC ve mIRC dünyasının forumu! (http://www.lookjapan.com/index.php)
-   mIRC Scripting Sorunları (http://www.lookjapan.com/forumdisplay.php?f=52)
-   -   -ip arşiv kodu hk. (http://www.lookjapan.com/showthread.php?t=6032)

Fredyyy 09 Şubat 2019 19:33

-ip arşiv kodu hk.
 
PHP- Kodu:

on *:snotice:*:{
if (*
client*connectiswm $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,$readnarsiv.txt }
write arsiv.txt %difyip %difynick 4Ident: $+ %difyident 1Son Girişi: $+($time,-,$date
}
elseif (*
changed*his*her*nicknameiswm $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,$readnarsiv.txt }
write arsiv.txt %difyzip %difynickz 4Ident: $+ %difyidentz 1Son Girişi: $+($time,-,$date
}
}
;
kod içerisindeki #KANAL kısmını kendinize göre değişebilirsiniz
on *:text:*:#: { 
if $regex($1,/^([!/./-][Iıİi]p)$/i) {
if 
$regex($2,/^\d+.\d+/) {
if 
$read(arsiv.txt,r,/^\$+ $$+ \E\s/) { 
if !$
msg $chan Hatalı Kullanım 4-ip 78.98.162.78 1Şeklinde Yazın$+ $nick $+ 1, | return }
msg $chan $2 arşivi listeleniyor 
filter 
-ffcg arsiv.txt depo.txt /^\$+ $$+ \E\s
play $chan depo.txt 750
}
else { 
msg $chan $2 arşivde bulunmuyor 
}
}
if 
$regex($2,/^[^\d]/) {
if 
$read(arsiv.txt,r,/[^:]\s\$+ $$+ \E\s/i) { 
msg $chan $2 arşivi listeleniyor 
filter 
-ffcg arsiv.txt depo.txt /[^:]\s\$+ $$+ \E\s/
play $chan depo
.txt 750 
}
else { 
msg $chan $2 arşivde bulunmuyor }
}
}


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.

pCkOpAt 09 Şubat 2019 20:33

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.


All times are GMT +3. The time now is 22:41.

Powered by vBulletin®
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.