| … | |
… | |
| 32 | my ($map, $x, $y) = @_; |
32 | my ($map, $x, $y) = @_; |
| 33 | |
33 | |
| 34 | for my $x (0 .. $map->width - 1) { |
34 | for my $x (0 .. $map->width - 1) { |
| 35 | for my $y (0 .. $map->height - 1) { |
35 | for my $y (0 .. $map->height - 1) { |
| 36 | return 4 |
36 | return 4 |
| 37 | if grep $_->flag (cf::FLAG_MONSTER), |
37 | if grep $_->flag (cf::FLAG_MONSTER) |
|
|
38 | && !$_->flag (cf::FLAG_FRIENDLY) |
|
|
39 | && !$_->flag (cf::FLAG_UNAGGRESSIVE), |
| 38 | $map->at ($x, $y); |
40 | $map->at ($x, $y); |
| 39 | } |
41 | } |
| 40 | } |
42 | } |
| 41 | |
43 | |
| 42 | if ($map->path =~ /^~/) { |
44 | if ($map->path =~ /^~/) { |
