| … | … | ||
|---|---|---|---|
| 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 ( |
| 163 | (substr $ar->{name}, 0, 5) eq 'Floor' | 162 | (substr $ar->{name}, 0, 5) eq 'Floor' |
| 164 | or (substr $ar->{name}, 0, 10) eq 'Shop Floor' | 163 | or (substr $ar->{name}, 0, 10) eq 'Shop Floor' |
| 165 | ) | 164 | ) |
| 166 | } | 165 | } |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |