External/mage
1
0
Fork 1
mirror of https://github.com/magefree/mage.git synced 2025-12-20 02:30:08 -08:00
Code Issues Projects Releases Packages Wiki Activity Actions

Remove possible newline character from author's name in gen-card.pl

Browse source
This commit is contained in:
LoneFox 2015-07-12 12:43:39 +03:00
parent 977cbe538b
commit ee19ae4096
1 changed files with 5 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

9
Utils/gen-card.pl
View file

@ -35,6 +35,7 @@ my $author;
if (-e $authorFile) { if (-e $authorFile) {
open (DATA, $authorFile); open (DATA, $authorFile);
$author = <DATA>; $author = <DATA>;
chomp $author;
close(DATA); close(DATA);
} else { } else {
$author = 'anonymous'; $author = 'anonymous';
@ -136,7 +137,7 @@ foreach my $setName (keys %{$cards{$cardName}}) {
if (!$baseRarity) { if (!$baseRarity) {
$baseRarity = $cards{$cardName}{$setName}[3]; $baseRarity = $cards{$cardName}{$setName}[3];
$vars{'manaCost'} = fixCost($cards{$cardName}{$setName}[4]); $vars{'manaCost'} = fixCost($cards{$cardName}{$setName}[4]);
$vars{'power'} = $cards{$cardName}{$setName}[6]; $vars{'power'} = $cards{$cardName}{$setName}[6];
$vars{'toughness'} = $cards{$cardName}{$setName}[7]; $vars{'toughness'} = $cards{$cardName}{$setName}[7];
@ -156,7 +157,7 @@ foreach my $setName (keys %{$cards{$cardName}}) {
} }
} }
$vars{'type'} = join(', ', @types); $vars{'type'} = join(', ', @types);
$vars{'abilitiesImports'} = ''; $vars{'abilitiesImports'} = '';
$vars{'abilities'} = ''; $vars{'abilities'} = '';
@ -198,7 +199,7 @@ foreach my $setName (keys %{$cards{$cardName}}) {
$vars{'abilitiesImports'} .= "\nimport mage.abilities.costs.mana.ManaCostsImpl;"; $vars{'abilitiesImports'} .= "\nimport mage.abilities.costs.mana.ManaCostsImpl;";
} }
$vars{'abilitiesImports'} .= "\nimport mage.abilities.keyword." . $kw . "Ability;"; $vars{'abilitiesImports'} .= "\nimport mage.abilities.keyword." . $kw . "Ability;";
} else { } else {
$vars{'abilities'} .= "\n // $kwUnchanged"; $vars{'abilities'} .= "\n // $kwUnchanged";
@ -209,7 +210,7 @@ foreach my $setName (keys %{$cards{$cardName}}) {
} }
} }
} }
if (!$notKeyWord) { if (!$notKeyWord) {
$vars{'abilities'} .= "\n // $ability"; $vars{'abilities'} .= "\n // $ability";
if ($simpleOnly eq 'true') { if ($simpleOnly eq 'true') {