#!/opt/bin/perl # cfworldmap - create a crossfire world map # Copyright (C) 2005 Marc Lehmann # # CFARCH2HTML is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2 of the License, or # (at your option) any later version. # # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with gvpe; if not, write to the Free Software # Foundation, Inc. 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA our $VERSION = '1.031'; use Storable; my $T = 50; my @W = (100..129); my @H = (100..129); my $DIR = $ARGV[0] || "world"; open my $fh, ">:utf8", "$DIR/index.xhtml" or die "index.xhtml: $!"; select $fh; print "", '', "", "", "Crossfire Worldmap", "\n", "", "

Crossfire Worldmap

"; for my $y (@H) { print ""; for my $x (@W) { print ""; } print ""; } print "

"; close $fh; #system "gzip", "-7f", "$DIR/index.xhtml";