… | … | ||
---|---|---|---|
54 | 1 | 54 | 1 |
55 | } | 55 | } |
56 | 56 | ||
57 | sub safe_spot($$$) { | 57 | sub safe_spot($$$) { |
58 | my ($m, $x, $y) = @_; | 58 | my ($m, $x, $y) = @_; |
59 | |||
60 | return 0; | ||
61 | warn join ":", $m->at ($x, $y);#d# | ||
62 | warn "FOO$m { ".scalar ($m->at ($x, $y))." }\n"; | ||
63 | return 0; | ||
59 | 64 | ||
60 | scalar grep $_->type == cf::SAVEBED, $m->at ($x, $y) | 65 | scalar grep $_->type == cf::SAVEBED, $m->at ($x, $y) |
61 | } | 66 | } |
62 | 67 | ||
63 | sub enter_map { | 68 | sub enter_map { |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |