… | |
… | |
108 | return $type eq '66' || $type eq '41'; |
108 | return $type eq '66' || $type eq '41'; |
109 | } |
109 | } |
110 | |
110 | |
111 | sub arch_is_floor { |
111 | sub 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 | |
116 | sub arch_is_wall { |
118 | sub 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 | |
121 | sub arch_is_monster { |
125 | sub arch_is_monster { |
122 | my ($a) = @_; |
126 | my ($a) = @_; |
123 | my $arch = $Crossfire::ARCH{$a->{_name}}; |
127 | my $arch = $Crossfire::ARCH{$a->{_name}}; |