20 Ekim 2017, 22:08
|
#11 |
| Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
| Cevap: Badnick TCL Hata
| BuCaLI Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
| Kod: Kodu kopyalamak için üzerine çift tıklayın! putserv "MODE $chan +b $banmask"
yerine;
Kod: Kodu kopyalamak için üzerine çift tıklayın! putserv "MODE $chan +b $newnick"
yazman yeterli.
Kod: Kodu kopyalamak için üzerine çift tıklayın! set badnicks "scripts/badnick.txt"
set file [open $badnicks r]
set listfile [split [subst -nocommands [read $file]] "\n"]
bind nick - * Detected_changebad
proc Detected_changebad {nick uhost hand chan newnick} {
global listfile botnick
if {(![matchattr $hand b]) && ($nick != $botnick)} {
foreach badchange [string tolower $listfile] {
if {[string match *$badchange* [string tolower $newnick]]} {
set banmask "*!*[string range $uhost [string first "@" $uhost] end]"
putserv "MODE $chan +b $banmask"
putserv "KICK $chan $newnick :Lütfen Kötü Nickler Kullanmayınız."
putserv "sajoin $nick #***"
return 0
}
}
}
}
|
bu tcl scripte sunlarıda ekelrsen guncel olur.
putserv "MODE $chan +b $banmask" yerine putserv "MODE $chan +b $newnick" yazarsak
putserv "sajoin $nick #***" yerine putserv "sajoin $newnick #***" yazıldıgında atılan badnicki #*** kanalına sorunsuz sajoinler. iyi ifler
|
|
|  |
Benzer Konular 
Normal
