Added flight recorder and more boot messages.

lib/openmsx/share/scripts/boot_exec.tcl

@@ -0,0 +1,33 @@
+# boot_exec -- Helper command to autoexec.bat boot scripts.
+#
+# Adds the following command to openMSX;
+#
+# 'boot_exec_exit'
+# Requested delayed shutdown of openMSX.
+# (as workaround for segfault when screenshot is not ready yet)
+#
+# 'boot_exec_color_dark'
+# Sets the VDP colors to dark color tones.
+#
+# 'boot_exec_config_info'
+# Displays machine and openMSX version on one line.
+#
+
+proc boot_exec_exit {} {
+	after time 1 "exit 0"
+	return "Shutdown openMSX"
+}
+
+proc boot_exec_color_dark {} {
+	setcolor 4 000
+	setcolor 15 777
+	return "Boot color dark"
+}
+
+proc boot_exec_config_info {} {
+	set result "Run machine "
+	append result [machine_info config_name]
+	append result " on "
+	append result [openmsx_info version]
+	return $result
+}