--- deliantra/server/ext/cfplus.ext	2006/12/15 19:29:18	1.1
+++ deliantra/server/ext/cfplus.ext	2006/12/16 17:16:51	1.2
@@ -68,6 +68,8 @@
    my ($pl, $msg) = @_;
    my ($dx, $dy) = @$msg{qw(dx dy)};
 
+   return unless $pl->ob && $pl->ob->map;
+
    my $near = (abs $dx) <= 2 && (abs $dy) <= 2;
 
    my %res;
@@ -98,6 +100,7 @@
    my ($pl, $msg) = @_;
    my ($id, $dx, $dy) = @$msg{qw(msgid dx dy)};
 
+   return unless $pl->ob && $pl->ob->map;
    return unless (abs $dx) <= 2 && (abs $dy) <= 2;
    return unless $pl->cell_visible ($dx, $dy);