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

Comparing deliantra/Deliantra/Deliantra.pm (file contents):
Revision 1.57 by root, Thu Mar 23 08:55:54 2006 UTC vs.
Revision 1.58 by root, Thu Mar 23 20:15:08 2006 UTC

 our %FIELD_MULTILINE = (
    msg     => "endmsg",
    lore    => "endlore",
    maplore => "endmaplore",
 );
+# movement bit type, PITA
+our %FIELD_MOVEMENT = map +($_ => undef),
+   qw(move_type move_block move_allow move_on move_off move_slow);
 # same as in server save routine, to (hopefully) be compatible
 # to the other editors.
 our @FIELD_ORDER_MAP = (qw(
    name swap_time reset_timeout fixed_resettime difficulty region
 sub MOVE_FLY_LOW   (){ 0x02 }
 sub MOVE_FLY_HIGH  (){ 0x04 }
 sub MOVE_FLYING    (){ 0x06 }
 sub MOVE_SWIM      (){ 0x08 }
 sub MOVE_BOAT      (){ 0x10 }
+sub MOVE_KNOWN     (){ 0x1f } # all of above
-sub MOVE_ALL       (){ 0xff }
+sub MOVE_ALLBIT    (){ 0x10000 }
+sub MOVE_ALL       (){ 0x1001f } # very special value, more PITA
 sub load_ref($) {
    my ($path) = @_;
    open my $fh, "<", $path
    delete $ob->{$_} for qw(
       can_knockback can_parry can_impale can_cut can_dam_armour
       can_apply pass_thru can_pass_thru
    );
-   for my $attr (qw(move_type move_block move_allow move_on move_off move_slow)) {
+   for my $attr (keys %FIELD_MOVEMENT) {
       next unless exists $ob->{$attr};
+      $ob->{$attr} = MOVE_ALL if $ob->{$attr} == 255; #d# compatibility
       next if $ob->{$attr} =~ /^\d+$/;
       my $flags = 0;
       # assume list

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