bind raw * notice tsnotice
proc tsnotice {from keyword arg} {
global girTas
if { [string match "*Client connecting on port*" $arg] } {
if {![info exists ::gr]} {
set ::gr [lindex $arg 9]
utimer 3[list girTas]
return 0
}
append ::gr " [lindex $arg 9]"
utimer 3[list girTas] 
if {[llength $::gr] >= "5"} { 
set acik 2

putquick "SAMODE #Radyo +R"
putquick "SAMODE #Sohbet +R"
putquick "SAMODE #Kelime +R"
putquick "SAMODE #Oyun +R"
putquick "SAMODE #DiniSohbet +R"
putquick "SAMODE #Test +R"
putquick "SAMODE #yarisma +R"
putquick "SAMODE #Carkifelek +R"
putquick "SAMODE #islam +R"
putquick "SAMODE #Şiir +R"

set zamanlayici [timer 20 sure]
putserv "PRIVMSG #Opers :Sunucuya giriş yoğunluğu tesbit edilmiştir. Saldırı olasılığı yüksek olmasından dolayı tüm global kanallar 20Dk'Lığına +R (Şifresiz Nickler Giremez) moduna alınmıştır."

foreach nck $::gr {
putserv "ZLINE $nck 1h :Giriş yoğunluğu tesbit edilmiştir."

}
unset ::gr
}
}
}

proc girTas {} {
set ::gr [lrange $::gr 1 end]
}





bind raw * notice spam:connection
proc spam:connection {from keyword arg} {
global spam acik



if {[string match -nocase "*Client connecting on port*" $arg]} {
set dronebl "http://dronebl.org/lookup?ip="
set nick [lindex $arg 9]
set port [string range [lindex [split [lindex $arg 8] ":"] 0] 0 end]
set ident [string range [lindex [split [lindex $arg 10] "@"] 0] 1 end]
set ip [string range [lindex [split [lindex $arg 10] "@"] 1] 0 end-1]
if {![regexp {[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}} $ip]} {
set ip [dnslookup $ip baksuna]
}



set connect7 [::http::geturl $dronebl$ip] 
set filess [::http::data $connect7] 
if {![string match -nocase "*No incidents*" $filess]} {
putquick "GZLINE *@$ip 12h Proxy Koruması!"
putquick "privmsg #Opers :Banlanan Proxy/Spam IP: $ip"
::http::cleanup $filess
}
}
}



proc baksuna {ip host status} { 
if {!$status} {return}
return $ip
}

proc sure {} { 
global zamanlayici
putquick "SAMODE #Radyo -R"
putquick "SAMODE #Sohbet -R"
putquick "SAMODE #Kelime -R"
putquick "SAMODE #Oyun -R"
putquick "SAMODE #DiniSohbet -R"
putquick "SAMODE #Test -R"
putquick "SAMODE #yarisma -R"
putquick "SAMODE #Carkifelek -R"
putquick "SAMODE #islam -R"
putquick "SAMODE #Şiir -R"
putquick "Privmsg #Opers :2Global kanallar4 20 2dakikalık süre doldugu için otomatik olarak güvenlik modundan çıkmıştır. "

}

putlog "Spam Koruması"