Benutzer:Three Of Twelve/npclist2wiki.pl

aus FreewarWiki, der Referenz für Freewar
Version vom 13. April 2007, 05:31 Uhr von Three Of Twelve (Diskussion | Beiträge) (Die Seite wurde neu angelegt)
(Unterschied) ← Nächstältere Version | ↑ Aktuelle Version (Unterschied) | Nächstjüngere Version → (Unterschied)
Zur Navigation springen Zur Suche springen

Zur Erstellen der Wiki-Seite NPCs (Liste). Mel eben gemacht, da Count Ypilon 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 "Diese Tabelle wird von Zeit zu Zeit automatisch aus den Daten aus den einzelnen NPC-Artikeln erstellt. Die Daten hier sollten nicht di\
rekt 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\n";

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]]";