#!/usr/bin/perl -w
# $Id: sac,v 1.1.1.1 2002/12/20 01:37:12 mike Exp $

# sacomp - compile my "sac" text-file format into Scott Adams game format.
#
#   ###	Should include POD documentation.

use Games::ScottAdams;
use strict;

if (@ARGV != 1) {
    print STDERR "Usage: $0 <sa-file>\n";
    exit 1;
}

my $game = new Games::ScottAdams::Game()
    or die "can't create game";
my $fn = $ARGV[0];
$game->parse($fn)
    or die "can't parse SAC file '$fn'";
$game->compile();
