Spring RTS Engine

Code: Select all

#!/usr/bin/perl -w

# Copyright 2007, Peter Cordes <peter@cordes.ca>
# GPL

# turn a directory of .fbi files into a table of unit stats
# suitable for viewing and sorting with a spreadsheet program
# doesn't go the other way, so you have to edit the fbi files, though.

# yes this is a quick hack.  no it doesn't get weapon stats.

use Config::File;

# rows are from an array of hash refs for each unit.  plain hashes collapse when pushed...
my @allunits;

# we need to know all the keys that any unit has.  These are the table columns
#my $filter = qr/germanname|weaponslaveto4/
my @taglist = ("unitname", "name", "description", "side", "buildcostenergy", "buildcostmetal", "buildtime", "maxdamage", "maxvelocity", "maxslope", "sightdistance", "radardistance", "sonardistance", "radardistancejam", "builddistance", "mincloakdistance", "cloakcost", "transportcapacity", "transportsize", "weapon1", "weapon2", "weapon3", "workertime" );
# TODO do something about the order here.  
# after these fixed ones, discovered ones are added in whatever order they  appear in the hash.
my %allkeys;
map $allkeys{$_}=1, @taglist;

foreach $fbi (@ARGV){
    my $config_hash = Config::File::read_config_file($fbi) || die "bad unit file $fbi";
#    map {s/; *$//} values %$config_hash;

# copy into a new hash with changed keys and values
    my %unithash;
    foreach $key (keys %$config_hash){
	my $lckey = lc($key);
	if (!exists($allkeys{$lckey})){
	    $allkeys{$lckey} = 1;
	    push @taglist, $lckey;
	}
	($unithash{$lckey} = $$config_hash{$key}) =~ s/; *$//;  # clean up trailing junk
    }
    push @allunits, \%unithash;
}

#@taglist = sort(keys %allkeys);
print join("|", @taglist), "\n";


foreach $unit (@allunits){
    my @unitstats = map( $$unit{$_} || "", @taglist);
    print join("|", @unitstats), "\n";
}