[ViewVC] Diff of: cvs/deliantra/gde/GCE/Util.pm

Comparing deliantra/gde/GCE/Util.pm (file contents):
Revision 1.6 by elmex, Thu Mar 16 14:00:24 2006 UTC vs.
Revision 1.9 by elmex, Mon Mar 20 02:53:49 2006 UTC

 use Storable;
 use List::Util qw(min max);
 use Crossfire;
 use Crossfire::MapWidget;
+use File::Spec::Functions;
-our @EXPORT = qw(insert_arch_stack_layer replace_arch_stack_layer new_arch_pb fill_pb_from_arch arch_is_floor stack_find_floor stack_find_wall stack_find arch_is_wall arch_is_monster add_table_widget quick_msg def);
+our @EXPORT = qw(insert_arch_stack_layer replace_arch_stack_layer new_arch_pb fill_pb_from_arch arch_is_floor stack_find_floor stack_find_wall stack_find arch_is_wall arch_is_monster add_table_widget quick_msg def arch_is_exit map2abs);
+sub map2abs {
+   my ($dest, $mape) = @_;
+   my $dir;
+   if (File::Spec->file_name_is_absolute($dest)) {
+      $dir = catdir ($CFG->{MAPDIR}, $dest);
+   } else {
+      my ($v, $p, $f) = File::Spec->splitpath ($mape->{path});
+      $dir = File::Spec->rel2abs ($dest, File::Spec->catpath ($v, $p));
+   }
+   return $dir;
+}
 sub def($$) {
    return defined ($_[0]) ? $_[0] : $_[1];
 }
    } else { # $arch->{is_floor} and all other arches are 'between' monsters and floor
       return 'between';
    }
+}
+sub arch_is_exit {
+   my ($a) = @_;
+   my $type = $Crossfire::ARCH{$a->{_name}}->{type};
+   return $type eq '66' || $type eq '41';
 }
 sub arch_is_floor {
    my ($a) = @_;
    return $Crossfire::ARCH{$a->{_name}}->{is_floor};

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