--- deliantra/server/ext/login.ext 2007/12/28 19:44:34 1.77 +++ deliantra/server/ext/login.ext 2008/01/07 01:55:19 1.78 @@ -57,6 +57,11 @@ sub safe_spot($$$) { my ($m, $x, $y) = @_; + return 0; + warn join ":", $m->at ($x, $y);#d# + warn "FOO$m { ".scalar ($m->at ($x, $y))." }\n"; + return 0; + scalar grep $_->type == cf::SAVEBED, $m->at ($x, $y) }