miscellaneous tcl eggdrop scripts