tcl file for eggdrop