on !*:join:#sohbet:if !$regex($token($token($address($nick,5),2,33),1,64),/^(MobilGiris|WebGiris)$/i) { timer 1 6 Operserv Raw :botismi privmsg #Sohbet :Hoşgeldin $nick  }

# Hoşgelmeyecek identleri yazın arada boşluk bırakarak! 
# (büyük - küçük harf uyumu aranmaz! identin sol başında ~ varsa onu yazmayın 
# list'i silmeyin Tcl komutudur!
# Eklenen ident Tcl'de özel anlamı olan [ ] { } # içeriyorsa ;
# Eklerken herbirini {içerisine alın!}  ->[list {ident1} {ident2}]  gibi...
set id[list ident1 ident2 ident3 ident4]

#"#KanalAdı *" yerine hangi kanalda işlemesi isteniyorsa onu yazın!
bind join - "#KanalAdı *" hosh

proc hosh {nick uhost hand chan} {
	set ident [string tolower [string trimleft [lindex [split $uhost @] 0] ~]]
	# utimer Eggdrop-Tcl komutu saniye cinsinden[list ..] içindeki komutu bekletir.
	# Kaç saniye sonra Hoşgeldin denmesi isteniyorsa 6 saniyeyi buradan değişin!
	if {$ident ni [string tolower $::id] && $nick ne $::botnick} {
	    utimer 6[list puthelp "privmsg $chan :Hoşgeldin $nick"]
		return 0
	}
}