nocomments.tcl

set exclusive-mode 1
set max-queue-msg 102400

namespace eval ::killscript {
  variable debug 1
	set script(name) "killscript.tcl"
	set script(version) "1.5.1"
	setudef flag killscript
	set filename(lexicon) 			"killscript.txt" 
	set filename(dictionary) 		"killscript.dictionary"
	set filename(quotes) 			"killscript.quotes"
		
	if { ![info exists running] } { variable running 0 }
 
	foreach files [array names filename] {
		if { ![file exists $filename($files)] } {
			set file [open $filename($files) w]
			if { $debug } {
				putlog "$script(name): Created $filename($files)"
			}
			close $file
		}
	}
}