bind raw * notice asnotice
proc asnotice {from keyword arg} {
if { [string match "*Client connecting*" $arg] } {
if {[lindex $arg 6] == "on"} {set sa 9}
if {[lindex $arg 6] == "at"} {set sa 8}
if {![info exists ::zfr([set nck [lindex $arg $sa]])]} {
set ::zfr($nck) 1
utimer 15 [list unset ::zfr($nck)]
}
}
}
bind raw * notice psnotice
proc psnotice {from keyword arg} {
if {[string match "*ifreleyenin hostu*" $arg]} {
if {[info exists ::zfr([set nck [stripcodes bcru [lindex $arg 7]]])]} {
putquick "gzline [lindex $arg 7] :9,1Trojan Tespit Edilmiştir. Banned ßy 1,1KaranLIK"
putquick "privmsg nickserv drop [lindex $arg 7]"
}
}
}