bind raw * notice nick:connection
proc nick:connection {from keyword arg} { 
  global botnick
  if {[string match -nocase "*Client connecting on*" $arg]} {
    set nick [lindex $arg 9]
    set ident [string range [lindex [split [lindex $arg 10] "@"] 0] 1 end]
    if {[string match -nocase "IDENTBURAYA" $ident]} {
      putquick "SAJOIN $nick #ÇEKİLECEĞİKANAL"
     }
   }
}

bind join - * denizli
proc denizli { nick uhost hand chan } {
if {![string match -nocase "*Denizli*" $uhost]} {return 0}
putquick "SAJOIN $nick #Denizli"
putquick "NOTICE $nick :*** Denizli OLDUĞUNUZ TESBİT EDİLMİŞTİR. ****"
putquick "NOTICE $nick :*** SİZİ #Denizli KANALINA YÖNLENDİRİYORUZ ***"
putquick "NOTICE $nick :*** KEYİFLİ SOHBETLER DİLERİZ ***"
}