IRCForumu.ORG

IRCForumu.ORG (https://www.ircforumu.org/)
-   Genel IRCD (Sunucu, Servis, Botlar, Korumalar) (https://www.ircforumu.org/genel-ircd-sunucu-servis-botlar-korumalar/)
-   -   Kanal ip/takip Sistemi. (https://www.ircforumu.org/genel-ircd-sunucu-servis-botlar-korumalar/71845-kanal-ip-takip-sistemi.html)

KivanC 26 Kasım 2022 17:20

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.


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

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Search Engine Friendly URLs by vBSEO ©2011, Crawlability, Inc.