--- deliantra/Deliantra/Deliantra.pm	2007/02/06 23:53:26	1.82
+++ deliantra/Deliantra/Deliantra.pm	2007/02/07 00:14:48	1.83
@@ -215,6 +215,19 @@
  tin        => 1024,
  bone       => 2048,
  ice        => 4096,
+
+ # guesses
+ runestone  =>   12,
+ bronze     =>   18,
+ "ancient wood" => 20,
+ glass      =>   36,
+ marble     =>   66,
+ ice        =>   68,
+ stone      =>   70,
+ stone      =>   80,
+ cloth      =>  136,
+ ironwood   =>  144,
+ blood      =>  544,
 ;
 
 # object as in "Object xxx", i.e. archetypes
@@ -232,11 +245,11 @@
             warn "object $ob->{_name} has both materialname ($ob->{materialname}) and material ($ob->{material}) set.\n";
             delete $ob->{material}; # assume materilname is more specific and nuke material
          }
+      } elsif (my $name = $MATERIAL{$ob->{material}}) {
+         delete $ob->{material};
+         $ob->{materialname} = $name;
       } else {
-         if (my $name = $MATERIAL{$ob->{material}}) {
-            delete $ob->{material};
-            $ob->{materialname} = $name;
-         }
+         warn "object $ob->{_name} has unknown material ($ob->{material}) set.\n";
       }
    }