[ViewVC] Diff of: cvs/deliantra/Deliantra/Deliantra.pm

Comparing deliantra/Deliantra/Deliantra.pm (file contents):
Revision 1.17 by root, Wed Feb 22 22:36:45 2006 UTC vs.
Revision 1.18 by root, Wed Feb 22 22:41:22 2006 UTC

 sub arch_attr($) {
    my ($arch) = @_;
    require Crossfire::Data;
-   my %attr;
+   my $attr;
    if ($arch->{type} > 0) {
-      %attr = %{ $Crossfire::Data::ATTR{$arch->{type}+0} || {} };
+      $attr = $Crossfire::Data::ATTR{$arch->{type}+0};
    } else {
-      die;
+      $attr = $Crossfire::Data::TYPE{Misc};
+      type:
+      for (@Crossfire::Data::ATTR0) {
+         my $req = $_->{required}
+            or die "internal error: ATTR0 without 'required'";
+         while (my ($k, $v) = each %$req) {
+            next type
+               unless $arch->{$k} == $v;
+         }
+         $attr = $_;
+      }
    }
    use PApp::Util;
-   warn PApp::Util::dumpval \%attr;
+   warn PApp::Util::dumpval $attr;
 }
 sub arch_edit_sections {
 #      if (edit_type == IGUIConstants.TILE_EDIT_NONE)
 #           edit_type = 0;

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines