Untitled

proc join:chan {nick uhost hand chan} {
  	global botnick excepts
  	if {$nick == $botnick} { ; THIS BIT ISN'T WORKING
		utimer 10 [check:chan $chan] ; THIS BIT ISN'T WORKING
  	} ; THIS BIT ISN'T WORKING
  	if {[lsearch -glob $excepts [string tolower $chan]] == -1} {
    		if {$nick != $botnick && [string match -nocase *KewlBot $nick] == 1} {
      			putserv "PART $chan :\00314You already have a \0035KewlBot\00314 on this channel.\003"
      			channel remove $chan
    		}
  	}
}

proc check:chan {chan} {
	global excepts
	if {[llength [chanlist $chan]] <= "4"} { ; THIS BIT ISN'T WORKING
 		putquick "PRIVMSG $chan :On the channel there are: [chanlist $chan] Total: [llength [chanlist $chan]]" ; THIS BIT ISN'T WORKING
		putquick "PART $chan :\00314This channel does not have \0035five\00314 or more people.\003" ; THIS BIT ISN'T WORKING
	}  else {
		putquick "PRIVMSG $chan :\0035KewlBot v2\00314 Scripted And Hosted By \0035Hamish\00314.\003"
	}
}