Revision: | 1.2 |
Committed: | Tue May 4 21:45:42 2010 UTC (14 years, 2 months 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 |