#!/opt/bin/perl

use Crossfire::Map;
use Storable;
use POSIX ();

use Gtk2 -init;

my $maps;

for my $X (100..129) {
   print "$X\n";
   for my $Y (100..129) {
      my $map = new_from_file Crossfire::Map "../maps/world/world_$X\_$Y"
         or die "$X,$Y\n";
      $maps->[$X][$Y] = $map;
   }
}

Storable::store $maps, "worldmaps.pst";
POSIX::_exit 0;