#! perl # mandatory depends=map-world

# renders the quadland worldmap area. not weorking well yet.

ext::map_world::register __PACKAGE__,
   200,   0, -1e6,
   699, 499,  1e6,
   pri => 0,
;

sub init_worldmap {
}

sub post_load_original {
   my ($self) = @_;

   warn "xxx $self->{ox}+$self->{oy} * $self->{z}\n";#d#
   $self->gen_quadmap (@$self{qw(ox oy z)});

   $self->SUPER::post_load_original;
}