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