| … | … | ||
|---|---|---|---|
| 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; | 113 | my $ar = Crossfire::arch_attr $a; |
| 114 | return $ar->{name} eq 'Floor'; | 114 | return (substr $ar->{name}, 0, 5) eq 'Floor'; |
| 115 | #return $Crossfire::ARCH{$a->{_name}}->{is_floor}; | 115 | #return $Crossfire::ARCH{$a->{_name}}->{is_floor}; |
| 116 | } | 116 | } |
| 117 | 117 | ||
| 118 | sub arch_is_wall { | 118 | sub arch_is_wall { |
| 119 | my ($a) = @_; | 119 | my ($a) = @_; |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |