Benutzer:Count Ypsilon/Skript:npclist2wikibilder.pl

Erwartet auf der Standardeingabe die NPC-Liste, wie sie von Benutzer:Count Ypsilon/Skript:npclist.pl erstellt wird. Gibt eine Wiki-Seite mit den NPC-Bildern aus.

#!/usr/bin/perl

# input: npclist 

print <<EOF;
<div style="background-color:orange;padding:1px;border:4px dashed black;">
{| {{Bausteindesign3}}
<!--| [[Bild:Baustelle.png|50px|Akut-Baustelle]]-->
|'''Hinweis:''' 
Diese Tabelle wird von Zeit zu Zeit automatisch aus den Daten auf den einzelnen NPC-Seiten erstellt.<br/>'''Die Daten hier sollten nicht direkt geändert werden, weil solche Änderungen bei einer Neuerstellung verloren gehen.'''<br/>Stattdessen bitte die Daten auf den Seiten des jeweiligen NPC korrigieren!<br/><br/>
(Für den Autor gibt es ein Vorlagenfeld "BildAutor", das dann auch im NPC-Artikel angezeigt wird.)
|}
</div>

{| {{Prettytable}}
|-
!Bild!!NPC!!Maler
EOF
while(<>)
{
    chomp;
    ($n,$d,$a,$l,$x,$g,$area,$drop,$bild,$autor)=split(/;/);
    next unless($bild =~ /^http:/);
    printf "|-\n||%s||[[%s]] ||%s\n",
        $bild, $n, (length($autor)>0 ? $autor : "??");
}
print <<EOF;
|}

[[Kategorie:NPC-Listen]]
[[Kategorie:NPCs mit Bild|!]]
EOF