corrected tcl scripting
added ai script