set kanal "#kanaladi" set gnick "nick" bind join - * pjoin proc pjoin {nick uhost hand chan} { global kanal gnick if { $chan == $kanal && $nick == $gnick } { putserv "sapart $gnick $kanal" } }