github/mage
1
0
Fork 0
mirror of https://github.com/correl/mage.git synced 2024-12-24 03:00:14 +00:00
Code Issues Projects Releases Packages Wiki Activity

* gen-list-unimplemented-cards-for-set - Some updates to link generation.

Browse source
This commit is contained in:
LevelX2 2019-01-05 16:14:45 +01:00
parent 0293b91c25
commit 7848c78563
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
Utils/gen-list-unimplemented-cards-for-set.pl
View file

@ -89,6 +89,7 @@ sub toCamelCase {
# TODO: check for basic lands with ending 1,2,3,4,5 ...
my %cardNames;
my $toPrint = '';
my $setAbbr = $sets{$setName};
foreach my $card (sort cardSort @setCards) {
my $className = toCamelCase(@{$card}[0]);
@ -102,7 +103,7 @@ foreach my $card (sort cardSort @setCards) {
}
my $cardName = @{$card}[0];
$cardName =~ s/ /+/g;
$toPrint .= "@{$card}[2]|[@{$card}[0]](https://magiccards.info/query?q=!$cardName)";
$toPrint .= "@{$card}[2]|[@{$card}[0]](https://scryfall.com/search?q=!\"$cardName\" e:$setAbbr)";
}
}
@ -127,7 +128,7 @@ foreach $cn (sort keys (%cardNames))
}
my $cn2 = $cn;
$cn2 =~ s/ /+/g;
print ISSUE_TRACKER "- $x_or_not [$cn](https://magiccards.info/query?q=!$cn2)\n";
print ISSUE_TRACKER "- $x_or_not [$cn](https://scryfall.com/search?q=!\"$cn2\" e:$setAbbr)\n";
}
close ISSUE_TRACKER;
print ("Tracking Issue text for a new Github issue (similar to https://github.com/magefree/mage/issues/2215): " . lc($sets{$setName}) ."_issue_tracker.txt\n");
print ("Tracking Issue text for a new Github issue (similar to https://github.com/magefree/mage/issues/2215): " . lc($setAbbr) ."_issue_tracker.txt\n");