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.6 by elmex, Thu Mar 16 14:00:24 2006 UTC vs.
Revision 1.10 by elmex, Tue Mar 21 01:02:14 2006 UTC

… …
15use Storable; 15use Storable;
16use List::Util qw(min max); 16use List::Util qw(min max);
17 17
18use Crossfire; 18use Crossfire;
19use Crossfire::MapWidget; 19use Crossfire::MapWidget;
20use File::Spec::Functions;
20 21
21our @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); 22our @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);
23
24sub map2abs {
25 my ($dest, $mape) = @_;
26
27 my $dir;
28 if (File::Spec->file_name_is_absolute($dest)) {
29 $dir = catdir ($CFG->{MAPDIR}, $dest);
30 } else {
31 my ($v, $p, $f) = File::Spec->splitpath ($mape->{path});
32 $dir = File::Spec->rel2abs ($dest, File::Spec->catpath ($v, $p));
33 }
34 return $dir;
35}
22 36
23sub def($$) { 37sub def($$) {
24 return defined ($_[0]) ? $_[0] : $_[1]; 38 return defined ($_[0]) ? $_[0] : $_[1];
25} 39}
26 40
… …
86 100
87 return 'between'; 101 return 'between';
88 } 102 }
89} 103}
90 104
105sub arch_is_exit {
106 my ($a) = @_;
107 my $type = $Crossfire::ARCH{$a->{_name}}->{type};
108 return $type eq '66' || $type eq '41';
109}
110
91sub arch_is_floor { 111sub arch_is_floor {
92 my ($a) = @_; 112 my ($a) = @_;
113 my $ar = Crossfire::arch_attr $a;
114 return $ar->{name} eq 'Floor';
93 return $Crossfire::ARCH{$a->{_name}}->{is_floor}; 115#return $Crossfire::ARCH{$a->{_name}}->{is_floor};
94} 116}
95 117
96sub arch_is_wall { 118sub arch_is_wall {
97 my ($a) = @_; 119 my ($a) = @_;
120 my $ar = Crossfire::arch_attr $a;
121 return $ar->{name} eq 'Wall';
98 return $Crossfire::ARCH{$a->{_name}}->{no_pass}; 122#return $Crossfire::ARCH{$a->{_name}}->{no_pass};
99} 123}
100 124
101sub arch_is_monster { 125sub arch_is_monster {
102 my ($a) = @_; 126 my ($a) = @_;
103 my $arch = $Crossfire::ARCH{$a->{_name}}; 127 my $arch = $Crossfire::ARCH{$a->{_name}};

Diff Legend

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