0ct0pu5/wesnoth
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* fix attack animation listing

Browse source
This commit is contained in:
Gunter Labes 2008-01-28 20:55:51 +00:00
parent 54d8df7460
commit c8d45d21e0
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
data/tools/unit_tree/units.pl
View file

@ -626,7 +626,7 @@ sub CopyImages {
sub GenerateAnimationInfo {
print "Generating animation information\n";
my %tags;
my @anim = qw/animation death defend healing_anim idle_anim leading_anim movement_anim recruit_anim/;
my @anim = qw/attack_anim death defend healing_anim idle_anim leading_anim movement_anim recruit_anim/;
my $re_anim = "(";
$re_anim .= "$_|" foreach @anim;
$re_anim =~ s/\|$/)/;
@ -642,10 +642,10 @@ sub GenerateAnimationInfo {
open (INDEX, "> $html_dir/animations.html") or die "Couldn't create animations.html: $!\n";
# Load units information
my @unitdir = glob("$units_dir/*");
foreach (@unitdir) {
my @unitsdirs = glob("$units_dir/*");
foreach (@unitsdirs) {
unless (/(fake|cfg|rpg)$/) {
($unitdir = $_) =~ s/(.*)\///;
($unitsdirs = $_) =~ s/(.*)\///;
@units = glob($_ . '/*.cfg');
foreach $unit (@units) {
my ($id,$tag,$in,$images);