--- deliantra/Deliantra/Deliantra.pm	2006/03/23 07:33:16	1.56
+++ deliantra/Deliantra/Deliantra.pm	2006/03/23 08:55:54	1.57
@@ -51,6 +51,8 @@
 ));
 
 our @FIELD_ORDER = (qw(
+   elevation
+
    name name_pl custom_name title race
    slaying skill msg lore other_arch face
    #todo-events
@@ -232,6 +234,13 @@
       }
    }
 
+   # a speciality for the editor
+   if (exists $ob->{attack_movement}) {
+      my $am = delete $ob->{attack_movement};
+      $ob->{attack_movement_bits_0_3} = $am &  15;
+      $ob->{attack_movement_bits_4_7} = $am & 240;
+   }
+
    $ob
 }
 
@@ -311,7 +320,7 @@
          $more = undef;
       } elsif (/^arch (\S+)$/i) {
          my $name = $1;
-         my $arc = normalize_object $parse_block->(_name => $name);
+         my $arc = normalize_arch $parse_block->(_name => $name);
 
          if ($more) {
             $more->{more} = $arc;