[deo]

set botvars(schan) "#channel" ;# channel bot needs to join

bind join - * _START

proc _START {nick user hand chan} {global botvars
	if {[string equal -nocase $chan $botvars(schan)] && [isbotnick $nick]} {
		...go disk free proc...
	}
}

there's a start...