| … | … | ||
|---|---|---|---|
| 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 |