cf.schmorp.de/util/world2pst

#!/opt/bin/perl

use Crossfire::Map;
use Storable;

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";
Revision:	1.1
Committed:	Sat Sep 2 15:48:27 2006 UTC (20 years, 1 month ago) by root
Branch:	MAIN
Log Message:	* empty log message *
#	User	Rev	Content
1	root	1.1	#!/opt/bin/perl
2
3			use Crossfire::Map;
4			use Storable;
5
6			use Gtk2 -init;
7
8			my $maps;
9
10			for my $X (100..129) {
11			print "$X\n";
12			for my $Y (100..129) {
13			my $map = new_from_file Crossfire::Map "maps/world/world_$X\_$Y"
14			or die "$X,$Y\n";
15			$maps->[$X][$Y] = $map;
16			}
17			}
18
19			Storable::store $maps, "worldmaps.pst";