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

Comparing deliantra/gde/GCE/Util.pm (file contents):
Revision 1.22 by elmex, Tue Nov 28 16:26:22 2006 UTC vs.
Revision 1.23 by elmex, Fri Jan 5 14:17:12 2007 UTC

 use File::Spec::Functions;
 use File::Basename;
 use File::Path;
 use HTTP::Request::Common;
 use Cwd 'abs_path';
+use strict;
 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 exit_paths pseudohtml2txt arch_is_connector);
 }
 sub map2abs {
    my ($dest, $mape) = @_;
-   $mappath  = abs_path $mappath;
+   $dest = abs_path $dest;
    my $dir;
    if (File::Spec->file_name_is_absolute($dest)) {
       $dir = catdir ($::MAPDIR, $dest);
    } else {
       my ($v, $p, $f) = File::Spec->splitpath ($mape->{path});
 sub fill_pb_from_arch {
    my ($pb, $a) = @_;
    my $o = $Crossfire::ARCH{$a->{_name}};
-   my $face = $Crossfire::FACE{$a->{face} || $o->{face} || "blank.111"}
+   my $face = $Crossfire::FACE{$a->{face} || $o->{face} || "blank.111"};
+   unless ($face) {
+      $face = $Crossfire::FACE{"blank.x11"}
-            or warn "no gfx found for arch '$a->{_name}' at ($x|$y)\n";
+         or warn "no gfx found for arch '$a->{_name}'\n";
+   }
    $face or return;
    $pb->fill (0x00000000);
    $TILE->composite ($pb,

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