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 *** |
# | User | Rev | Content |
---|---|---|---|
1 | root | 1.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 |