| … | |
… | |
| 163 | |
163 | |
| 164 | cf::map::attachment rent => |
164 | cf::map::attachment rent => |
| 165 | on_enter => sub { |
165 | on_enter => sub { |
| 166 | my ($map, $pl, $x, $y) = @_; |
166 | my ($map, $pl, $x, $y) = @_; |
| 167 | |
167 | |
|
|
168 | return if $pl->ob->flag (cf::FLAG_WIZ); |
|
|
169 | |
| 168 | my $pfx = sprintf "~%s/", $pl->ob->name; |
170 | my $pfx = sprintf "~%s/", $pl->ob->name; |
| 169 | |
171 | |
| 170 | # only do something if entering ones own apartment |
172 | # only do something if entering ones own apartment |
| 171 | if ($pfx eq substr $map->path, 0, length $pfx) { |
173 | if ($pfx eq substr $map->path, 0, length $pfx) { |
| 172 | for my $path (keys %{ $pl->{rent}{apartment} }) { |
174 | for my $path (keys %{ $pl->{rent}{apartment} }) { |
