Revision: | 1.1 |
Committed: | Sat Sep 2 15:48:27 2006 UTC (17 years, 9 months 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"; |