new tclX-based startup

[ircbot] / blight-startup.tcl

diff --git a/blight-startup.tcl b/blight-startup.tcl
new file mode 100755 (executable)
index 0000000..c2a2436
--- /dev/null
+++ b/blight-startup.tcl
@@ -0,0 +1,6 @@
+#!/usr/bin/tcl -f
+source blight.tcl
+set tcl_prompt1 { puts -nonewline "% " }
+set tcl_prompt2 { puts -nonewline "> " }
+commandloop -async -interactive on
+mainloop