Bearbeiten von „Benutzer:Count Ypsilon/Skript:maplist2wiki.pl“

Zur Navigation springen Zur Suche springen

Achtung

Du bearbeitest diese Seite unangemeldet. Wenn du deine Änderung speicherst, wird deine aktuelle IP-Adresse in der Versionsgeschichte aufgezeichnet und ist damit öffentlich einsehbar. Um effektiver mitarbeiten zu können und deine IP-Adresse zu verbergen, melde dich doch bitte an.

Speichere bitte keine Textversuche ab. Nutze stattdessen die Spielwiese, um dich im Umgang mit der Textverarbeitung im Wiki vertraut zu machen.

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]].


<pre>
(Achtung, im Source sind für diese Seite ein paar "nowiki"-Tags notwendig geworden.)
#!/usr/bin/perl
#


#in: maplist
  #!/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 << "EOT";
  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, das Gebiet
  while(<>)
zu ermitteln, zu dem die entsprechenden Koordinaten gehören.
  {
 
      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 gehören. So kann mit der Suchfunktion des Browsers
      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 Kartenänderungen oder Fehlern auch automatisch wieder
          if ($lg ne "Dummyplace")
neu generiert; Änderungen an der Liste sind nicht sinnvoll. Stattdessen,
          {
wenn etwas auffällt, bitte auf der Diskussionsseite vermerken.
              gendump($lg, $koo);
EOT
          }
 
          $koo=[];
my $lk;
      }
while(<>)
      $lg=$gebiet;
{
      push(@{$koo}, "$x,$y");
    next if (/^GET/);
  }
    my($gebiet,$begehbar, $x,$y,$npc,$rest) = split(/;/);
 
    next if ($npc =~ /^Ort|Wiedergeburt/);
  sub gendump
    next unless($begehbar);
  {
    if (($lg ne $gebiet) && (defined($lg)))
      my($a,$b)=@_;
    {
      <nowiki>print "{{Ã~\berschriftensimulation 2|1={{Gebietslink|$a}}}}";</nowiki>
        if ($lg ne "Dummyplace")
      print join("; ", @{$b});
        {
  }
            gendump($lg, $koo);
 
        }
  <nowiki>print "[[Kategorie:Allgemeines]][[Kategorie:Karten|!Koordinaten (Liste)]]\n";</nowiki>
        $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});
}
 
print "[[Kategorie:Allgemeines]][[Kategorie:Karten|!Koordinaten (Liste)]]\n";
</pre>

Bitte beachte, dass alle Beiträge zu FreewarWiki von anderen Mitwirkenden bearbeitet, geändert oder gelöscht werden können. Reiche hier keine Texte ein, falls du nicht willst, dass diese ohne Einschränkung geändert werden können.

Du bestätigst hiermit auch, dass du diese Texte selbst geschrieben hast oder diese von einer gemeinfreien Quelle kopiert hast (weitere Einzelheiten unter FreewarWiki:Urheberrechte). ÜBERTRAGE OHNE GENEHMIGUNG KEINE URHEBERRECHTLICH GESCHÜTZTEN INHALTE!

Bitte beantworte die folgende Frage, um diese Seite speichern zu können (weitere Informationen):

Abbrechen Bearbeitungshilfe (wird in einem neuen Fenster geöffnet)
Abgerufen von „https://fwwiki.de/index.php/Benutzer:Count_Ypsilon/Skript:maplist2wiki.pl“