| 1 | #!/opt/bin/perl | 1 | #!/opt/bin/perl |
|---|---|---|---|
| 2 | 2 | ||
| 3 | use Crossfire::Map; | 3 | use Crossfire::Map; |
| 4 | use Storable; | 4 | use Storable; |
| 5 | use POSIX (); | ||
| 5 | 6 | ||
| 6 | use Gtk2 -init; | 7 | use Gtk2 -init; |
| 7 | 8 | ||
| 8 | my $maps; | 9 | my $maps; |
| 9 | 10 | ||
| 10 | for my $X (100..129) { | 11 | for my $X (100..129) { |
| 11 | print "$X\n"; | 12 | print "$X\n"; |
| 12 | for my $Y (100..129) { | 13 | for my $Y (100..129) { |
| 13 | my $map = new_from_file Crossfire::Map "maps/world/world_$X\_$Y" | 14 | my $map = new_from_file Crossfire::Map "../maps/world/world_$X\_$Y" |
| 14 | or die "$X,$Y\n"; | 15 | or die "$X,$Y\n"; |
| 15 | $maps->[$X][$Y] = $map; | 16 | $maps->[$X][$Y] = $map; |
| 16 | } | 17 | } |
| 17 | } | 18 | } |
| 18 | 19 | ||
| 19 | Storable::store $maps, "worldmaps.pst"; | 20 | Storable::store $maps, "worldmaps.pst"; |
| 21 | POSIX::_exit 0; |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |