cf.schmorp.de/util/world2pst

#!/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;
Revision:	1.3
Committed:	Sun Dec 17 18:03:11 2006 UTC (19 years, 9 months ago) by root
Branch:	MAIN
CVS Tags:	HEAD
Changes since 1.2:	+0 -0 lines
State:	*FILE REMOVED*
Log Message:	* empty log message *
#	User	Rev	Content
1	root	1.1	#!/opt/bin/perl
2
3			use Crossfire::Map;
4			use Storable;
5	root	1.2	use POSIX ();
6	root	1.1
7			use Gtk2 -init;
8
9			my $maps;
10
11			for my $X (100..129) {
12			print "$X\n";
13			for my $Y (100..129) {
14	root	1.2	my $map = new_from_file Crossfire::Map "../maps/world/world_$X\_$Y"
15	root	1.1	or die "$X,$Y\n";
16			$maps->[$X][$Y] = $map;
17			}
18			}
19
20			Storable::store $maps, "worldmaps.pst";
21	root	1.2	POSIX::_exit 0;