# hedef kanal adlarini,birden fazla kanal için arada bosluk birakarak yanyana girin.
set kanallar "#sohbet"
# hedef ident-ler birden fazlaysa alt alta tirnaklar içinde çogaltarak girin.
set hedefident {
"*sohbet*"
"muhabbet*"
"*laklak"
}
set mesajim "Merhaba $nick $kanallar kanalina yonlendiriliyorsunuz."
# ayarlar buraya kadar kod basliyor.
bind raw - notice yakala:ident
proc yakala:ident {from keyword text} {
 if {[string match -nocase "*client connecting*" $text]} {
 global hedefident nick kanallar mesajim
  set nick [lindex [split $text] 9]
# girislerde gordugu snoticelerden kullanicinin identini yakalayip
# islem yapacagi identle eslesip eslesmedigine bakiyor. 
   foreach yakalaident [string tolower $hedefident] {
    set hedefIDyakala "*!*$yakalaident*@*"
# once bakacagi ident kismini tanimladik
# simdi yakala onu diyoruz. 
    set gelenident "[string trimleft [string tolower [lindex [split $host "@"] 0]] "~"]"
    if {[string match *$yakalaident* [string tolower $gelenident]]} {
 # hedef identle yakalanana diledigimiz islemi uygulatiyoruz.
    putquick "sajoin $nick $kanallar"
    putserv "notice $nick $mesajim"
    return 0 
   }
 }
}
}
putlog "ident-yakala.tcl yuklendi"
return