ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/cf.schmorp.de/util/world2pst
Revision: 1.3
Committed: Sun Dec 17 18:03:11 2006 UTC (17 years, 6 months ago) by root
Branch: MAIN
CVS Tags: HEAD
Changes since 1.2: +0 -0 lines
State: FILE REMOVED
Log Message:
*** empty log message ***

File Contents

# Content
1 #!/opt/bin/perl
2
3 use Crossfire::Map;
4 use Storable;
5 use POSIX ();
6
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 my $map = new_from_file Crossfire::Map "../maps/world/world_$X\_$Y"
15 or die "$X,$Y\n";
16 $maps->[$X][$Y] = $map;
17 }
18 }
19
20 Storable::store $maps, "worldmaps.pst";
21 POSIX::_exit 0;