Ticket #5008: variant_support.diff

checkrefs.pl

@@ -147 +147 @@
     }
 }
 
+
+sub add_variants
+{
+    print "Loading variants...\n";
+    my @variantfiles = find_files('art/variants', 'xml');   
+
+    for my $f (sort @variantfiles)
+    {    
+        push @files, $f;
+        push @roots, $f if ROOT_ACTORS;
+        my $variant = XMLin(vfs_to_physical($f), ForceArray => [qw(texture prop animation)], KeyAttr => []) or die "Failed to parse '$f': $!";       
+        push @deps, [ $f, "art/meshes/$variant->{mesh}" ] if $variant->{mesh};
+        for my $tex (@{$variant->{textures}{texture}})
+        {
+            push @deps, [ $f, "art/textures/skins/$tex->{file}" ] if $tex->{file};
+        }
+        for my $prop (@{$variant->{props}{prop}})
+        {
+            push @deps, [ $f, "art/actors/$prop->{actor}" ] if $prop->{actor};
+        }
+        for my $anim (@{$variant->{animations}{animation}})
+        {
+            push @deps, [ $f, "art/animation/$anim->{file}" ] if $anim->{file};
+        }
+    }
+}
+
 sub add_art
 {
     print "Loading art files...\n";
@@ -553 +580 @@
 
 add_actors();
 
+add_variants();
+
 add_art();
 
 add_materials();