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]
}