IRCForumu.ORG   sohbetkacak
reklamalanı


 
 
Seçenekler Stil
Alt 26 Kasım 2022, 17:20   #1
Standart Kanal ip/takip Sistemi.

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 14Ident: %difyident 02Son 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),%difynickz,$chr(32),*)) { write $+(-dl,$readnarsiv.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,/^\$+ $$+ \E\s/) { 
      
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 }
  }

Alıntı:
botunuza rahatlıkla ekleyebilirsiniz.
________________

"Sevilmenin kıymeti bilinmiyorsa, Uzaklaşmak En güzeli ki üzülen sen olmayasın"
 


Şu anda bu konuyu görüntüleyen etkin kullanıcılar: 1 (0 üye ve 1 ziyaretçi)
 

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB kodu Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Açık
Pingbacks are Açık
Refbacks are Kapalı



Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 04:49.