server/ext/build.ext

#! 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;
      }
   },
);

Revision:	1.2
Committed:	Tue May 4 21:45:42 2010 UTC (14 years ago) by root
Branch:	MAIN
CVS Tags:	rel-3_1, rel-3_0, HEAD
Changes since 1.1:	+0 -1 lines
Log Message:	* empty log message *
#	Content
1	#! perl
2
3	# various build extensions
4
5	cf::player->attach (
6	on_build => sub {
7	my ($pl, $builder, $map, $x, $y) = @_;
8
9	if (defined $map->{user}
10	and $map->{user} ne $pl->ob->name
11	and !$pl->ob->flag (cf::FLAG_WIZ)
12	) {
13	$pl->failmsg ("You cannot build on maps belonging to another player.");
14	cf::override;
15	}
16	},
17	);
18