Kategorien
Bearbeiten von „Benutzer:Count Ypsilon/Skript:maplist2wiki.pl“
Zur Navigation springen
Zur Suche springen
Die Bearbeitung kann rückgängig gemacht werden. Bitte prüfe den Vergleich unten, um sicherzustellen, dass du dies tun möchtest, und veröffentliche dann unten deine Änderungen, um die Bearbeitung rückgängig zu machen.
Aktuelle Version | Dein Text | ||
Zeile 1: | Zeile 1: | ||
Skript zur Generierung des Inhaltes der Seite [[Koordinaten (Liste)]] aus der Ausgabe des Skripts [[Benutzer:Count Ypsilon/Skript:maplist.pl]]. | Skript zur Generierung des Inhaltes der Seite [[Koordinaten (Liste)]] aus der Ausgabe des Skripts [[Benutzer:Count Ypsilon/Skript:maplist.pl]]. | ||
(Achtung, im Source sind für diese Seite ein paar "nowiki"-Tags notwendig geworden.) | |||
# | #!/usr/bin/perl | ||
my $lg; | my $lg; | ||
my $koo=[]; | my $koo=[]; | ||
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time); | my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time); | ||
my $date = sprintf("%d.%d.%04d", $mday, $mon+1, $year+1900); | my $date = sprintf("%d.%d.%04d", $mday, $mon+1, $year+1900); | ||
print | print "Einige Zauber und Funktionen in Freewar verraten die aktuelle Position eines Charakters in Form von Koordinaten. Gerade bei Feldern, die nicht zur oberirdischen Hauptlandmasse von Freewar gehören, ist es oft schwer, herauszufinden, zu welchem Gebiet diese Koordinaten gehören.<br />Die folgende Liste hilft dabei. 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.<br />Die Liste ist automatisch aus den Wiki-Kartendaten erstellt (Stand $date) und wird evtl. bei Kartenänderungen oder Fehlern auch automatisch wieder neu generiert; Ã~Dnderungen an der Liste sind nicht sinnvoll. Stattdessen, wenn etwas auffällt, bitte auf der Diskussionsseite vermerken.<br />"; | ||
Einige Zauber und Funktionen in Freewar verraten die aktuelle Position eines | |||
Charakters in Form von Koordinaten. Die folgende Liste hilft dabei | while(<>) | ||
{ | |||
next if (/^GET/); | |||
Alle Koordinaten sind in der Form '''X''','''Y''' unter dem Namen des Gebiets | my($gebiet,$x,$y,$npc,$rest) = split(/;/); | ||
gelistet, zu dem sie | next if ($npc =~ /^Ort|Wiedergeburt/); | ||
leicht das Gebiet zu einer bestimmten Position ermittelt werden. | next if ($gebiet eq ""); | ||
if (($lg ne $gebiet) && (defined($lg))) | |||
Die Liste ist automatisch aus den Wiki-Kartendaten erstellt (Stand $date) | { | ||
und wird evtl. bei | if ($lg ne "Dummyplace") | ||
neu generiert; | { | ||
wenn etwas | gendump($lg, $koo); | ||
} | |||
$koo=[]; | |||
} | |||
while(<>) | $lg=$gebiet; | ||
{ | push(@{$koo}, "$x,$y"); | ||
} | |||
sub gendump | |||
{ | |||
my($a,$b)=@_; | |||
<nowiki>print "{{Ã~\berschriftensimulation 2|1={{Gebietslink|$a}}}}";</nowiki> | |||
print join("; ", @{$b}); | |||
} | |||
<nowiki>print "[[Kategorie:Allgemeines]][[Kategorie:Karten|!Koordinaten (Liste)]]\n";</nowiki> | |||
sub gendump | |||
{ | |||
} | |||
print "[[Kategorie:Allgemeines]][[Kategorie:Karten|!Koordinaten (Liste)]]\n"; | |||
</ |