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

Comparing deliantra/Deliantra/Deliantra.pm (file contents):
Revision 1.90 by root, Sat Mar 3 18:58:25 2007 UTC vs.
Revision 1.93 by root, Sat Mar 3 19:38:06 2007 UTC

 {
    package Crossfire::MoveType;
    use overload
+      '='  => sub { bless [@{$_[0]}], ref $_[0] },
       '""' => \&as_string,
       '>=' => sub { $_[0][0] & $MOVE_TYPE{$_[1]} ? $_[0][1] & $MOVE_TYPE{$_[1]} : undef },
       '+=' => sub { $_[0][0] |= $MOVE_TYPE{$_[1]}; $_[0][1] |=  $MOVE_TYPE{$_[1]}; &normalise },
       '-=' => sub { $_[0][0] |= $MOVE_TYPE{$_[1]}; $_[0][1] &= ~$MOVE_TYPE{$_[1]}; &normalise },
       '/=' => sub { $_[0][0] &= ~$MOVE_TYPE{$_[1]}; &normalise },
             $_[0] /= $_[1];
          }
          $_[0]
       },
+      'eq' => sub { "$_[0]" eq "$_[1]" },
+      'ne' => sub { "$_[0]" ne "$_[1]" },
    ;
 }
 sub Crossfire::MoveType::new {
    my ($class, $string) = @_;
    my $mask;
    my $value;
+   if ($string =~ /^\s*\d+\s*$/) {
+      $mask = MOVE_ALL;
+      $value = $string+0;
+   } else {
-   for (split /\s+/, lc $string) {
+      for (split /\s+/, lc $string) {
-      if (s/^-//) {
+         if (s/^-//) {
-         $mask  |=  $MOVE_TYPE{$_};
+            $mask  |=  $MOVE_TYPE{$_};
-         $value &= ~$MOVE_TYPE{$_};
+            $value &= ~$MOVE_TYPE{$_};
-      } else {
+         } else {
-         $mask  |=  $MOVE_TYPE{$_};
+            $mask  |=  $MOVE_TYPE{$_};
-         $value |=  $MOVE_TYPE{$_};
+            $value |=  $MOVE_TYPE{$_};
+         }
       }
    }
    (bless [$mask, $value], $class)->normalise
 }

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