###############   K O M U T L A R  B Ö 
L Ü M Ü   #############
##                                                    
      ##
##     Botumuzun sunucu üzerindeki çalıştıran komutlarını   ##
## 
     kendinize özel yapabilir yada asla değiştirmeden    ##
##             
mevcut hali ile kullanabilirsiniz            ##
##                                                          ##
##############################################################


set tor(kanal) "#Sohbet,#Radyo,#Oyun"
set 
tor(sure) "5"

bind 
raw * notice 
tor:connection
proc 
tor:connection 
{from 
keyword arg} {
  global 
tor
if 
{[string match -nocase "*Client 
connecting on port*" $arg]} {
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 dienes]
 
   }
set connect [::http::geturl http://rbls.org/$ip] 
set 
files [::http::data $connect] 

    if {[string match 
-nocase 
"*listed in*other blacklists*" 
$files]} 
{
putquick "os 
raw svsjoin $nick #Karantina"
::http::cleanup $files 
}
 
   if {[string match -nocase "*not 
listed in any blacklists*" $files]} {
utimer 
$tor(sure)[list putquick 
"sajoin $nick 
$tor(kanal)"]
      
::http::cleanup $files 
}
 
 }
}

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

putlog "Delay 
Join TCL v2.0 - Written By CLubber"