Kategorien
Bearbeiten von „Benutzer:Count Ypsilon/Skript:maplist.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 76: | Zeile 76: | ||
my $opened; | my $opened; | ||
my $firstline = 1; | my $firstline = 1; | ||
foreach my $line(@lines) | foreach my $line(@lines) | ||
Zeile 83: | Zeile 82: | ||
my ($vorlage, $sub, $argl, $more) = ($1, $3, $5, $6); | my ($vorlage, $sub, $argl, $more) = ($1, $3, $5, $6); | ||
my @args = split(/\|/, $argl); | my @args = split(/\|/, $argl); | ||
if (!$opened) | if (!$opened) | ||
{ | { | ||
$opened = 1 if ($vorlage eq "Beginn"); | $opened = 1 if ($vorlage eq "Beginn"); | ||
next; | next; | ||
} | } | ||
Zeile 120: | Zeile 113: | ||
my $img = shift(@args); | my $img = shift(@args); | ||
if ($img eq "http:// | if ($img eq "http://85.10.193.197/freewar/images/map/black.jpg") | ||
{ | { | ||
print "$text;0;$curx;$cury;;$img\n"; | print "$text;0;$curx;$cury;;$img\n"; | ||
Zeile 130: | Zeile 123: | ||
foreach my $npc(@args) | foreach my $npc(@args) | ||
{ | { | ||
print "$text;$begehbar;$curx;$cury;$npc;$img\n" unless ($npc =~ /^Alt=/); | print "$text;$begehbar;$curx;$cury;$npc;$img\n" unless ($npc =~ /^Alt=/); | ||
} | } | ||
Zeile 140: | Zeile 132: | ||
if ($vorlage eq "Berg") | if ($vorlage eq "Berg") | ||
{ | { | ||
my $img = "http:// | my $img = "http://85.10.193.197/freewar/images/map/std.jpg"; | ||
print "$text;0;$curx;$cury;;$img\n" | print "$text;0;$curx;$cury;;$img\n" | ||
} | } | ||
elsif ($vorlage eq "Grenzfeld") | elsif ($vorlage eq "Grenzfeld") | ||
{ | { | ||
my $img = shift(@args); | my $img = shift(@args); | ||
print "$text;0;$curx;$cury;;$img\n" | print "$text;0;$curx;$cury;;$img\n" | ||
} | |||
elsif ($vorlage ne "Leer") | |||
{ | |||
print STDERR "unbekannt: $vorlage in '$text'\n" | |||
} | } | ||
else | |||
{ | { | ||
$curx++; | |||
} | } | ||
} | } | ||
} | } | ||
} | } | ||
</pre> | </pre> |