yamanlar halı yıkama şemikler halı yıkama nergiz halı yıkama mavişehir halı yıkama karşıyaka halı yıkama gümüşpala halı yıkama bornova halı yıkama alaybey halı yıkama izmir halı yıkama maltepe escort kadıköy escort pendik escort ataşehir escort ümraniye escort üsküdar escort kartal escort mersin escort izmir escort başakşehir dershane
sohbet sitesi reklam sohbet sitesi reklam sohbet sitesi reklam sohbet sitesi reklam

-ip arşiv kodu hk.

Fredyyy

New Member
PHP:
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 4Ident: $+ 2 %difyident 1Son 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),%difynick z,$chr(32),*)) { write $+(-dl,$readn) arsiv.txt }
write arsiv.txt %difyzip %difynickz 4Ident: $+ 2 %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,/^\Q $+ $2 $+ \E\s/) { 
if !$2 { msg $chan Hatalı Kullanım 4-ip 78.98.162.78 1Şeklinde Yazın. 4 $+ $nick $+ 1, | 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 }
}
}
}
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

New Member
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.
 

irc forumları 1xbet giriş