Kategorien
Bearbeiten von „FreewarWiki:Bot/Skripts/npclist2wiki.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 3: | Zeile 3: | ||
#!/usr/bin/perl | #!/usr/bin/perl | ||
#inout: npclist | #inout: npclist | ||
use constant CUnknown => "?"; | use constant CUnknown => "?"; | ||
use POSIX; | use POSIX; | ||
Zeile 11: | Zeile 12: | ||
my $myTimestamp = sprintf("%.2d.%.2d.%d %.2d:%.2d", $mday, $mon+1, $year+1900, $hour, $min); | my $myTimestamp = sprintf("%.2d.%.2d.%d %.2d:%.2d", $mday, $mon+1, $year+1900, $hour, $min); | ||
print " | print "Diese Tabelle wird von Zeit zu Zeit automatisch aus den Daten aus den einzelnen NPC-Artikeln erstellt (zuletzt am " . $myTimestamp . "). Die Daten hier sollten nicht direkt ge\N{U+0026}auml;ndert werden, weil solche \N{U+0026}Auml;nderungen bei einer Neuerstellung verloren gehen. Stattdessen bitte die Daten auf den Seiten des jeweiligen NPCs korrigieren! | ||
Die Buttons neben den \N{U+0026}Uuml;berschriften k\N{U+0026}ouml;nnen zum Sortieren angeklickt werden. Da die Liste sehr lang ist, kann dies allerdings einige Sekunden dauern. | Die Buttons neben den \N{U+0026}Uuml;berschriften k\N{U+0026}ouml;nnen zum Sortieren angeklickt werden. Da die Liste sehr lang ist, kann dies allerdings einige Sekunden dauern. | ||
{| class=\"sortable | {| class=\"sortable prettytable\" style=\"text-align:right;\" | ||
|- style=\"text-align:center;\" | |- style=\"text-align:center;\" | ||
! Name | | ! Name || Angr. || LP || XP || Gold || XP/LP || Gold/LP || Gold/XP\n"; | ||
Zeile 26: | Zeile 27: | ||
if ($divisor == 0) {return "-"; } | if ($divisor == 0) {return "-"; } | ||
return sprintf($format, $dividend / $divisor); | return sprintf($format, $dividend / $divisor); | ||
} | |||
sub CheckUnknown { | |||
my $number = @_[0]; | |||
if (($number eq "?") || ($number eq "-")) { $number = 0;} | |||
return $number; | |||
} | } | ||
Zeile 32: | Zeile 39: | ||
next if (/^GET/); | next if (/^GET/); | ||
my ($name, $atk, $lp, $xp, $gm, $vk, $items | my ($name, $atk, $lp, $xp, $gm, $vk, $items) = split(/;/); | ||
printf " |-\n | style=\"text-align:left;\" | [[%s]] || {{SortKey|{{nts|%s}}|%s}} || {{SortKey|{{nts|%s}}|%s}} || {{SortKey|{{nts|%s}}|%s}} || {{SortKey|{{nts|%s}}|%s}} || {{SortKey|{{nts|%s}}|%s}} || {{SortKey|{{nts|%s}}|%s}} || {{SortKey|{{nts|%s}}|%s}}\n", $name, CheckUnknown($atk), $atk, CheckUnknown($lp), $lp, CheckUnknown($xp), $xp, CheckUnknown($gm), $gm, CheckUnknown(GetQuotient($xp, $lp, "%.2f")), GetQuotient($xp, $lp, "%.2f"), CheckUnknown(GetQuotient($gm, $lp, "%.2f")), GetQuotient($gm, $lp, "%.2f"), CheckUnknown(GetQuotient($gm, $xp, "%.0f")), GetQuotient($gm, $xp, "%.0f"); | |||
printf " |-\n | style=\"text-align:left; | |||
} | } |