Benutzer:Three Of Twelve/npclist2wiki.pl: Unterschied zwischen den Versionen

aus Chaos FreewarWiki, der Referenz für Freewar
Zur Navigation springen Zur Suche springen
K (hups, sorry Yps ;-))
K (erste print-anweisung verbessert)
 
Zeile 7: Zeile 7:
#in: npclist
#in: npclist


print "Diese Tabelle wird von Zeit zu Zeit automatisch aus den Daten aus den einzelnen NPC-Artikeln erstellt. Die Daten hier sollten nicht di\
print <<'EOT';
rekt ge&auml;ndert werden, weil solche &Auml;nderungen bei einer Neuerstellung verloren gehen. Stattdessen bitte die Daten auf den Seiten des\
Diese Tabelle wird von Zeit zu Zeit automatisch aus den Daten aus den
jeweiligen NPCs korrigieren!
einzelnen NPC-Artikeln erstellt. Die Daten hier sollten nicht direkt
ge&auml;ndert werden, weil solche &Auml;nderungen bei einer Neuerstellung
verloren gehen. Stattdessen bitte die Daten auf den Seiten des jeweiligen
NPCs korrigieren!


Die Buttons neben den &Uuml;berschriften k&ouml;nnen zum Sortieren angeklickt werden. Da die Liste sehr lang ist, kann dies allerdings einige\
Die Buttons neben den &Uuml;berschriften k&ouml;nnen zum Sortieren angeklickt
Sekunden dauern.
werden. Da die Liste sehr lang ist, kann dies allerdings einige Sekunden
dauern.


{| {{Prettytable|text-align:right;}} class=\"sortable\"
{| {{Prettytable|text-align:right;}} class="sortable"
  |- style=\"text-align:center;\"
  |- style="text-align:center;"
  ! Name || Angr. || LP || XP || Gold || XP/LP || Gold/LP || Gold/XP\n";
  ! Name || Angr. || LP || XP || Gold || XP/LP || Gold/LP || Gold/XP
EOT


while(<>)
while(<>)
Zeile 22: Zeile 27:
     next if (/^GET/);
     next if (/^GET/);
     my ($name, $atk, $lp, $xp, $gm, $vk, $items) = split(/;/);
     my ($name, $atk, $lp, $xp, $gm, $vk, $items) = split(/;/);
     printf " |-\n | style=\"text-align:left;\" | [[%s]] || %u || %u || %u || %u || %.2f || %.2f || %s\n", $name, $atk, $lp, $xp, $gm, $xp / $\
     printf " |-\n | style=\"text-align:left;\" | [[%s]] || %u || %u || %u || %u || %.2f || %.2f || %s\n",  
lp, $gm / $lp, $xp == 0 ? '&mdash;' : int($gm / $xp + 0.5);
      $name, $atk, $lp, $xp, $gm, $xp / $lp, $gm / $lp, $xp == 0 ? '&mdash;' : int($gm / $xp + 0.5);


}
}

Aktuelle Version vom 28. Januar 2009, 11:06 Uhr

Zur Erstellen der Wiki-Seite NPCs (Liste). Mel eben gemacht, da Count Ypsilon seines noch nicht hochgeladen hat, und dieses wegen neurerer Änderungen (sortierbare Tabellen) vermutlich nicht mehr ganz aktuell ist. Auf Basis von Benutzer:Count Ypsilon/Skript:maplist2wiki.pl.

#!/usr/bin/perl
#

#in: npclist

print <<'EOT';
Diese Tabelle wird von Zeit zu Zeit automatisch aus den Daten aus den
einzelnen NPC-Artikeln erstellt. Die Daten hier sollten nicht direkt
geändert werden, weil solche Änderungen bei einer Neuerstellung
verloren gehen. Stattdessen bitte die Daten auf den Seiten des jeweiligen
NPCs korrigieren!

Die Buttons neben den Überschriften können zum Sortieren angeklickt
werden. Da die Liste sehr lang ist, kann dies allerdings einige Sekunden
dauern.

{| {{Prettytable|text-align:right;}} class="sortable"
 |- style="text-align:center;"
 ! Name || Angr. || LP || XP || Gold || XP/LP || Gold/LP || Gold/XP
EOT

while(<>)
{
    next if (/^GET/);
    my ($name, $atk, $lp, $xp, $gm, $vk, $items) = split(/;/);
    printf " |-\n | style=\"text-align:left;\" | [[%s]] || %u || %u || %u || %u || %.2f || %.2f || %s\n", 
      $name, $atk, $lp, $xp, $gm, $xp / $lp, $gm / $lp, $xp == 0 ? '—' : int($gm / $xp + 0.5);

}

print " |}

[[Kategorie:NPC-Listen]]";