07 Şubat 2018, 22:58
|
#1 |
| Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
| Badnick badnick.db varsa guest yapsın
Yardimci olurmusunuz.
Asagidaki koda +b atiyor badnick istedigim su badnick guest cevrilsin atilmasin.
bndizin badnickleri cekiyor yapmak istedim +b yerine nicki degistirsin. PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!
bind join - * sv2_badnick_55
proc sv2_badnick_55 {nick uhost hand chan} {
global botnick sv2
if {$sv2(bndurum) == "on"} {
if {$nick == $botnick} { return 0 }
if {[isop $nick $chan]} { return 0 }
if {[ishalfop $nick $chan]} { return 0 }
if {[onchan $nick $sv2(adminc)] || [onchan $nick $sv2(operc)] || [onchan $nick $sv2(opc)] || [onchan $nick $sv2(helpersc)]} { return 0 }
if {[botisop $chan]} {
if {[info exists ::muaflist]} {
foreach mf $::muaflist {
if {[string match -nocase $mf $nick!$uhost]} { return 0 }
}
}
set r [lindex $sv2(renk) [rand [llength $sv2(renk)]]]
set input "[open "$sv2(bndizin)" r]"
set lines "[split [subst -nocommands [read $input]] \n]"
catch {close $input}
foreach line $lines {
if {$line != ""} {
if {[string match "$line" [string tolower $nick]]} {
putquick "MODE $chan +b $line"
putquick "KICK $chan $nick \003$r$sv2(badnickmsg)\003"
##putquick "PRIVMSG $sv2(logc) \026 BadNick \026 \003$r\002$nick\002 nickini \002$line\002 olarak değiştirdiği için \002$chan\002 odasından uzaklaştırıldı.\003"
}
}
}
}
}
}
bind nick - * sv2_rbadnick_55
proc sv2_rbadnick_55 {nick uhost hand chan newnick} {
global botnick sv2
if {$sv2(bndurum) == "on"} {
if {$newnick == $botnick} { return 0 }
if {[isop $newnick $chan]} { return 0 }
if {[ishalfop $newnick $chan]} { return 0 }
if {[botisop $chan]} {
if {[onchan $newnick $sv2(adminc)] || [onchan $newnick $sv2(operc)] || [onchan $newnick $sv2(opc)] || [onchan $newnick $sv2(helpersc)]} { return 0 }
if {[info exists ::muaflist]} {
foreach mf $::muaflist {
if {[string match -nocase $mf $newnick!$uhost]} { return 0 }
}
}
set r [lindex $sv2(renk) [rand [llength $sv2(renk)]]]
set input "[open "$sv2(bndizin)" r]"
set lines "[split [subst -nocommands [read $input]] \n]"
catch {close $input}
foreach line $lines {
if {$line != ""} {
if {[string match "$line" [string tolower $newnick]]} {
putquick "MODE $chan +b $line"
putquick "KICK $chan $newnick \003$r$sv2(badnickmsg)\003"
#putquick "PRIVMSG $sv2(logc) \026 BadNick \026 \003$r\002$newnick\002 nickini \002$line\002 olarak değiştirdiği için \002$chan\002 odasından uzaklaştırıldı.\003"
}
}
}
}
}
}
#Badnick Sonu
|
|
|  |
Benzer Konular 
Normal
