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

card class generator now correctly (i hope) detects cards colors

Browse source
This commit is contained in:
Loki 2010-12-18 12:26:01 +02:00
parent 23b40c6321
commit 01a47fc34e
2 changed files with 14 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
Utils/cardclass.tmpl
View file

@ -44,8 +44,7 @@ public class [=$classname=] extends CardImpl<[=$classname=]> {
public [=$classname=] (UUID ownerId) {
super(ownerId, [=$collector=], "[=$name=]", Rarity.[=$rarity=], new CardType[]{}, "[=$manacost=]");
this.expansionSetCode = "[=$setcode=]";
this.subtype.add("");
this.color.setCOLOR(true);
this.subtype.add("");[= $colors=]
[=if (defined($power)) {
$OUT .= "this.power = new MageInt($power);";
}=]

15
Utils/gen-card.pl
View file

@ -2,8 +2,8 @@
use WWW::Mechanize;
use HTML::TreeBuilder;
use Parse::RecDescent;
use Text::Template;
use Data::Dumper;
use strict;
my $datafile = "mtg-cards-data.txt";
@ -210,6 +210,7 @@ $knownSets{'CON'} = 'conflux';
$knownSets{'M10'} = 'magic2010';
$knownSets{'M11'} = 'magic2011';
$knownSets{'HOP'} = 'planechase';
$knownSets{'RAV'} = 'ravnika';
$knownSets{'ROE'} = 'riseoftheeldrazi';
$knownSets{'ALA'} = 'shardsofalara';
$knownSets{'10E'} = 'tenth';
@ -236,8 +237,12 @@ $mana{'Black or Green'} = 'B\\\\G';
$mana{'Black or Red'} = 'B\\\\R';
$mana{'Red or Green'} = 'R\\\\G';
my $parser = new Parse::RecDescent(q{
});
my %manatocolor;
$manatocolor{'Black'} = " creature.color.setBlack(true);";
$manatocolor{'Blue'} = " creature.color.setBlue(true);";
$manatocolor{'Green'} = " creature.color.setGreen(true);";
$manatocolor{'Red'} = " creature.color.setRed(true);";
$manatocolor{'White'} = " creature.color.setWhite(true);";
my %normalid;
@ -299,6 +304,7 @@ foreach my $div (@divs) {
}
}
if ($id =~m/manaRow/) {
my $findedcolors;
foreach my $sub ($div->look_down('_tag', 'img')) {
if (defined($sub->attr('alt'))) {
my $m = $sub->attr('alt');
@ -307,11 +313,14 @@ foreach my $div (@divs) {
} else {
die "unknown manacost: " . $m unless defined $mana{$m};
$manacost .= $mana{$m};
$findedcolors .= "\n" . $manatocolor{$m};
}
}
}
$manacost =~ s/^\s*(\S*(?:\s+\S+)*)\s*$/$1/;
$vars{'manacost'} = $manacost;
$vars{'colors'} = $findedcolors;
print Dumper(%vars);
}
if ($id =~/ptRow/) {
foreach my $sub ($div->look_down('_tag', 'div')) {