Benutzer:Count Ypsilon/Skript:maplist2wiki.pl

Skript zur Generierung des Inhaltes der Seite Koordinaten (Liste) aus der Ausgabe des Skripts Benutzer:Count Ypsilon/Skript:maplist.pl.

#!/usr/bin/perl
#

#in: maplist

my $lg;
my $koo=[];

my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
my $date = sprintf("%d.%d.%04d", $mday, $mon+1, $year+1900);

print << "EOT";
Einige Zauber und Funktionen in Freewar verraten die aktuelle Position eines
Charakters in Form von Koordinaten. Die folgende Liste hilft dabei, das Gebiet
zu ermitteln, zu dem die entsprechenden Koordinaten gehören.

Alle Koordinaten sind in der Form '''X''','''Y''' unter dem Namen des Gebiets
gelistet, zu dem sie gehören. So kann mit der Suchfunktion des Browsers
leicht das Gebiet zu einer bestimmten Position ermittelt werden.

Die Liste ist automatisch aus den Wiki-Kartendaten erstellt (Stand $date)
und wird evtl. bei Kartenänderungen oder Fehlern auch automatisch wieder
neu generiert; Änderungen an der Liste sind nicht sinnvoll. Stattdessen,
wenn etwas auffällt, bitte auf der Diskussionsseite vermerken.
EOT

my $lk;
while(<>)
{
    next if (/^GET/);
    my($gebiet,$begehbar, $x,$y,$npc,$rest) = split(/;/);
    next if ($npc =~ /^Ort|Wiedergeburt/);
    next unless($begehbar);
    if (($lg ne $gebiet) && (defined($lg)))
    {
        if ($lg ne "Dummyplace")
        {
            gendump($lg, $koo);
        }
        $koo=[];
    }
    $lg=$gebiet;
    my $k="$x,$y";
    if ($k ne $lk)
    {
        $lk=$k;
        push(@{$koo}, $k);
    }
}
gendump($lg, $koo);

sub gendump
{
    my($a,$b)=@_;
    print "{{Überschriftensimulation 2|1={{Gebietslink|$a}}}}";
    print join("; ", @{$b}) . "\n";
}

print "[[Kategorie:Allgemeines]][[Kategorie:Karten|!Koordinaten (Liste)]]\n";