PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!
bind raw * notice connect
proc connect {from keyword text} {
if {[string match -nocase "*Client connecting on port*" $text]} {
set nick [lindex $text 9]
if {$nick == "Muafnick"} {return 0}
if {$nick == "Muafnick2"} {return 0}
if {$nick == "Muafnick3"} {return 0}
putquick "SPY ADD $nick #OperLog"
putquick "PRIVMSG #OperLog \[Özel Okuma Sistemi\] Sunucuya Kullanıcı Bağlandı. Sunucu Güvenliği için \[ $nick \] Nickinin Özeli Bu Kanala Loglanacaktır."
}
}
Bu TCL ile, Sunucuya Bağlanan Kullanıcıların Özel Yazışmalarını #OperLog Kanalına Yansıtırsınız. #OperLog Kanalına Sadece, Benim Belirlediğim Kişiler girsin diyorsanız,
PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!
bind join - * kanal:karsilama
proc kanal:karsilama {nick uhost handle chan} {
if {$nick == "İzinverilennick"} {return 0}
if {$nick == "İzinverilennick2"} {return 0}
if {$nick == "İzinverilennick3"} {return 0}
if {$nick == "Botunnicki"} {return 0}
if {![string match -nocase "#OperLog" $chan]} {return 0}
putquick "OperServ Raw SVSPART $nick #OperLog"
putquick "MODE #OperLog +b $nick"
putquick "PRIVMSG #OperLog \[OperLog Kanal Bilgilendirmesi\] $nick Nicki şu anda \[ #OperLog \] Kanalına Girmeye Çalıştı. Lütfen Kullanıcıyı Girmemesi Konusunda Uyarınız."
}
* Muafnick olarak belirlediğiniz Kişilerin Özeli okunmaz.
* İzinverilennick olarak belirlediğiniz nickler #OperLog kanalına girebilir, diğer operler giremez.
* Nickleri tam yazınız. "Kenan" ile, "kenan" farklıdır.
* Belirlediğiniz kişiler #OperLog kanalına girebilir, diğer operler veya kullanıcılar girse bile hemen kanaldan part edilir.
*** Bilmiyorum ne kadar etik başkasının özelini okumak ama,
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. Benim gibi reklamdan sıkıldıysanız bi çare olacaktır.
*** Özel okuma modulunun kurulmuş olması gerek, komutu "SPY ADD" Eğer sizdeki "OKU ADD" ise değiştiriniz.
*** Kendi Yazdığım Bir TCL'dir.