#!@WISHX@ -f

######################################################################
#
# dontspace
#
# Copyright (C) 1993-1996 by John Heidemann <johnh@isi.edu>
# All rights reserved.
#
# Redistribution and use in source and binary forms, with or without
# modification, are permitted provided that the following conditions
# are met:
# 1. Redistributions of source code must retain the above copyright
#    notice, this list of conditions and the following disclaimer.
# 2. Redistributions in binary form must reproduce the above copyright
#    notice, this list of conditions and the following disclaimer in the
#    documentation and/or other materials provided with the distribution.
# 3. The name of John Heidemann may not be used to endorse or promote products
#    derived from this software without specific prior written permission.
#
# THIS SOFTWARE IS PROVIDED BY JOHN HEIDEMANN ``AS IS'' AND
# ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
# ARE DISCLAIMED.  IN NO EVENT SHALL JOHN HEIDEMANN BE LIABLE
# FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
# OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
# HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
# LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
# SUCH DAMAGE.
#
#
# $Id: dontspace.in,v 2.9 1997/04/29 03:17:36 johnh Exp $
#
######################################################################


set game(sourcedir) "@mydatadir@/@package@"

#
# Load tclx exivalents if needed.
#
global tcl_version
if {$tcl_version >= 7.5} {
	source "$game(sourcedir)/tclx_compat.tcl"
}


#
# Some simple version checking
# Make sure tk and tclX are both present.
#
proc dieIfLackingCommand {cmd prog} {
	global errorInfo game
	catch $cmd
	if { [regexp {^invalid command name} $errorInfo] } {
		puts "$game(Package) requires $prog and appears to have been mis-installed without\nthis tcl extension.  See the README file for information on obtaining $prog\nand installing $game(package).\n"
		exit 1
	}
}

dieIfLackingCommand {tk} "tk"
dieIfLackingCommand {random} "tclx or tcl7.5"

set game(Package) "Dontspace"
set game(package) "dontspace"
set game(releasefile) "$game(sourcedir)/release"
set table(bitmapdir) "@$game(sourcedir)/CARDS"
set score(scorefile) "$game(sourcedir)/SCORES/scores"
set score(dictionary) "@dictwords@"
set score(writeScores) 1

source "$game(sourcedir)/dontspaceRules.tcl"

main