#! perl

# various build extensions

cf::player->attach (
   on_build => sub {
      my ($pl, $builder, $map, $x, $y) = @_;

      if (defined $map->{user}
          and $map->{user} ne $pl->ob->name
          and !$pl->ob->flag (cf::FLAG_WIZ)
      ) {
         $pl->failmsg ("You cannot build on maps belonging to another player.");
         cf::override;
      }
   },
);