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

Merge

Browse source
This commit is contained in:
magenoxx 2011-07-17 13:45:35 +04:00
commit e29bbcfc09
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
Utils/gen-card.pl
View file

@ -175,14 +175,14 @@ foreach my $setName (keys %{$cards{$cardName}}) {
my $notKeyWord; my $notKeyWord;
foreach my $keyword (keys %keywords) { foreach my $keyword (keys %keywords) {
if (index(toCamelCase($ability), $keyword) eq 0) { if (toCamelCase($ability) =~ m/^$keyword(?=[A-Z{\d]|$)/g) {
$notKeyWord = 'no'; $notKeyWord = 'false';
my @ka = split(', ', $ability); my @ka = split(', ', $ability);
foreach my $kw (@ka) { foreach my $kw (@ka) {
my $kwUnchanged = $kw; my $kwUnchanged = $kw;
foreach my $keyword (keys %keywords) { foreach my $kk (keys %keywords) {
if (index(toCamelCase($kw), $keyword) eq 0) { if (toCamelCase($kw) =~ m/^$kk(?=[A-Z{\d]|$)/g) {
$kw = $keyword; $kw = $kk;
} }
} }
if ($keywords{$kw}) { if ($keywords{$kw}) {