Revision: | 1.2 |
Committed: | Sun May 8 21:51:26 2011 UTC (13 years, 1 month ago) by root |
Branch: | MAIN |
Changes since 1.1: | +2 -1 lines |
Log Message: | *** empty log message *** |
# | Content |
---|---|
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 | warn "xxx $self->{ox}+$self->{oy} * $self->{z}\n";#d# |
18 | $self->gen_quadmap (@$self{qw(ox oy z)}); |
19 | |
20 | $self->SUPER::post_load_original; |
21 | } |
22 |