| … | |
… | |
| 58 | |
58 | |
| 59 | my $m = $ob->map |
59 | my $m = $ob->map |
| 60 | or return; |
60 | or return; |
| 61 | my $x = $ob->x; |
61 | my $x = $ob->x; |
| 62 | my $y = $ob->y; |
62 | my $y = $ob->y; |
|
|
63 | |
|
|
64 | # never happens normally, but helps when shell users make mistakes |
|
|
65 | $m->in_memory == cf::MAP_ACTIVE |
|
|
66 | or return 1; |
| 63 | |
67 | |
| 64 | # return 0;#d# |
68 | # return 0;#d# |
| 65 | # warn join ":", $m->at ($x, $y);#d# |
69 | # warn join ":", $m->at ($x, $y);#d# |
| 66 | # warn "FOO$m { ".scalar ($m->at ($x, $y))." }\n"; |
70 | # warn "FOO$m { ".scalar ($m->at ($x, $y))." }\n"; |
| 67 | # return 0; |
71 | # return 0; |
