bind join - * msg_botserv
proc msg_botserv {nick uhost hand chan} {
  global botnick
  if {$nick!=$botnick} {return 0}
  putquick "OPERSERV MODE $chan +ao $botnick $botnick"
}
putlog "Kanal Join/Mode TCL v1.0 Coded By CLubber"

bind raw * notice connect:user
proc connect:user {from keyword arg} {
 global girTas
 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 ::gr]} {
   set ::gr [lindex $arg $sa]
   utimer 4[list girTas]
   return 0
  }
  append ::gr " [lindex $arg $sa]"
  utimer 4[list girTas] 
  if {[llength $::gr] >= "4"} { 
   foreach nck $::gr {
    putquick "GZLINE $nck 1h :Giriş Yoğunluğu Tespit Edilmiştir."
   }
   unset ::gr
  }
 }
}
proc girTas {} {
set ::gr [lrange $::gr 1 end]
}

bind raw * notice connect:user
proc connect:user {from keyword arg} {
 global girTas
 if { [string match "*Client conn..."
    (file "scripts/bottt.tcl" line 109)
    invoked from within
"source scripts/bottt.tcl"
    (file "bottt.conf" line 137)
[17:45] * CONFIG FILE NOT LOADED (NOT FOUND, OR ERROR)

utimer 4[list girTas]

channel add #kanal1 {
  need-op { putserv "MODE #kanal1 +a Botunuzun-adi " }
  } 
channel add #kanal2 {
  need-op { putserv "MODE #kanal2 +a Botunuzun-adi " }
  }