ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/gde/GCE/Util.pm
(Generate patch)

Comparing deliantra/gde/GCE/Util.pm (file contents):
Revision 1.9 by elmex, Mon Mar 20 02:53:49 2006 UTC vs.
Revision 1.11 by elmex, Tue Mar 21 01:41:25 2006 UTC

… …
24sub map2abs { 24sub map2abs {
25 my ($dest, $mape) = @_; 25 my ($dest, $mape) = @_;
26 26
27 my $dir; 27 my $dir;
28 if (File::Spec->file_name_is_absolute($dest)) { 28 if (File::Spec->file_name_is_absolute($dest)) {
29 $dir = catdir ($CFG->{MAPDIR}, $dest); 29 $dir = catdir ($::CFG->{MAPDIR}, $dest);
30 } else { 30 } else {
31 my ($v, $p, $f) = File::Spec->splitpath ($mape->{path}); 31 my ($v, $p, $f) = File::Spec->splitpath ($mape->{path});
32 $dir = File::Spec->rel2abs ($dest, File::Spec->catpath ($v, $p)); 32 $dir = File::Spec->rel2abs ($dest, File::Spec->catpath ($v, $p));
33 } 33 }
34 return $dir; 34 return $dir;
… …
108 return $type eq '66' || $type eq '41'; 108 return $type eq '66' || $type eq '41';
109} 109}
110 110
111sub arch_is_floor { 111sub arch_is_floor {
112 my ($a) = @_; 112 my ($a) = @_;
113 my $ar = Crossfire::arch_attr $a;
114 return $ar->{name} eq 'Floor';
113 return $Crossfire::ARCH{$a->{_name}}->{is_floor}; 115#return $Crossfire::ARCH{$a->{_name}}->{is_floor};
114} 116}
115 117
116sub arch_is_wall { 118sub arch_is_wall {
117 my ($a) = @_; 119 my ($a) = @_;
120 my $ar = Crossfire::arch_attr $a;
121 return $ar->{name} eq 'Wall';
118 return $Crossfire::ARCH{$a->{_name}}->{no_pass}; 122#return $Crossfire::ARCH{$a->{_name}}->{no_pass};
119} 123}
120 124
121sub arch_is_monster { 125sub arch_is_monster {
122 my ($a) = @_; 126 my ($a) = @_;
123 my $arch = $Crossfire::ARCH{$a->{_name}}; 127 my $arch = $Crossfire::ARCH{$a->{_name}};

Diff Legend

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