… | |
… | |
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 | warn "NAME: $ar->{name}\n"; |
|
|
162 | return ( |
161 | return (substr $ar->{name}, 0, 5) eq 'Floor'; |
163 | (substr $ar->{name}, 0, 5) eq 'Floor' |
|
|
164 | or (substr $ar->{name}, 0, 10) eq 'Shop Floor' |
|
|
165 | ) |
162 | } |
166 | } |
163 | |
167 | |
164 | sub arch_is_connector { |
168 | sub arch_is_connector { |
165 | my ($a) = @_; |
169 | my ($a) = @_; |
166 | my $ar = Crossfire::arch_attr $a; |
170 | my $ar = Crossfire::arch_attr $a; |