| … | |
… | |
| 156 | } |
156 | } |
| 157 | |
157 | |
| 158 | sub arch_is_floor { |
158 | sub arch_is_floor { |
| 159 | my ($a) = @_; |
159 | my ($a) = @_; |
| 160 | my $ar = Crossfire::arch_attr $a; |
160 | my $ar = Crossfire::arch_attr $a; |
|
|
161 | return ( |
| 161 | return (substr $ar->{name}, 0, 5) eq 'Floor'; |
162 | (substr $ar->{name}, 0, 5) eq 'Floor' |
|
|
163 | or (substr $ar->{name}, 0, 10) eq 'Shop Floor' |
|
|
164 | ) |
| 162 | } |
165 | } |
| 163 | |
166 | |
| 164 | sub arch_is_connector { |
167 | sub arch_is_connector { |
| 165 | my ($a) = @_; |
168 | my ($a) = @_; |
| 166 | my $ar = Crossfire::arch_attr $a; |
169 | my $ar = Crossfire::arch_attr $a; |
