Revision: | 1.3 |
Committed: | Sun May 8 21:52:24 2011 UTC (13 years, 1 month ago) by root |
Branch: | MAIN |
CVS Tags: | rel-3_1, HEAD |
Changes since 1.2: | +0 -1 lines |
Log Message: | *** empty log message *** |
# | User | Rev | Content |
---|---|---|---|
1 | root | 1.1 | #! perl # mandatory depends=map-world |
2 | |||
3 | # renders the quadland worldmap area. not weorking well yet. | ||
4 | |||
5 | ext::map_world::register __PACKAGE__, | ||
6 | 200, 0, -1e6, | ||
7 | 699, 499, 1e6, | ||
8 | pri => 0, | ||
9 | ; | ||
10 | |||
11 | sub init_worldmap { | ||
12 | } | ||
13 | |||
14 | sub post_load_original { | ||
15 | my ($self) = @_; | ||
16 | |||
17 | root | 1.2 | $self->gen_quadmap (@$self{qw(ox oy z)}); |
18 | root | 1.1 | |
19 | $self->SUPER::post_load_original; | ||
20 | } | ||
21 |