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

[BFZ] Added Devoid and Ingest keywords.

Browse source
This commit is contained in:
LevelX2 2015-08-28 16:51:37 +02:00
parent 423e1fd368
commit b6c3355329
5 changed files with 362 additions and 246 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Mage.Client/src/main/resources/image.url.properties
View file

@ -64,6 +64,6 @@ ddd=gvl
unh=uh unh=uh
dde=pvc dde=pvc
# Remove setname as soon as the images can be downloaded # Remove setname as soon as the images can be downloaded
ignore.urls=TOK,MM2,V15,BFZ,DDP ignore.urls=TOK,V15,DDP
# sets ordered by release time (newest goes first) # sets ordered by release time (newest goes first)
token.lookup.order=DDP,BFZ,FVD,FVE,FVL,FVR,V12,V13,V14,V15,TPR,MPRP,DD3,DDO,ORI,MM2,PTC,DTK,FRF,KTK,M15,VMA,CNS,JOU,BNG,THS,DDL,M14,MMA,DGM,GTC,RTR,M13,AVR,DDI,DKA,ISD,M12,NPH,MBS,SOM,M11,ROE,DDE,WWK,ZEN,M10,GVL,ARB,DVD,CFX,JVC,ALA,EVE,SHM,EVG,MOR,LRW,10E,CLS,CHK,GRC token.lookup.order=DDP,BFZ,FVD,FVE,FVL,FVR,V12,V13,V14,V15,TPR,MPRP,DD3,DDO,ORI,MM2,PTC,DTK,FRF,KTK,M15,VMA,CNS,JOU,BNG,THS,DDL,M14,MMA,DGM,GTC,RTR,M13,AVR,DDI,DKA,ISD,M12,NPH,MBS,SOM,M11,ROE,DDE,WWK,ZEN,M10,GVL,ARB,DVD,CFX,JVC,ALA,EVE,SHM,EVG,MOR,LRW,10E,CLS,CHK,GRC

41
Mage/src/mage/abilities/keyword/DevoidAbility.java Normal file
View file

@ -0,0 +1,41 @@
/*
* To change this license header, choose License Headers in Project Properties.
* To change this template file, choose Tools | Templates
* and open the template in the editor.
*/
package mage.abilities.keyword;
import mage.ObjectColor;
import mage.abilities.common.SimpleStaticAbility;
import mage.constants.Zone;
/**
*
* @author LevelX2
*/
public class DevoidAbility extends SimpleStaticAbility {
public DevoidAbility(ObjectColor color) {
super(Zone.ALL, null);
color.setBlack(false);
color.setWhite(false);
color.setGreen(false);
color.setBlue(false);
color.setRed(false);
}
public DevoidAbility(final DevoidAbility ability) {
super(ability);
}
@Override
public DevoidAbility copy() {
return new DevoidAbility(this);
}
@Override
public String getRule() {
return "Devoid <i>(This card has no color.)<i/>";
}
}

71
Mage/src/mage/abilities/keyword/IngestAbility.java Normal file
View file

@ -0,0 +1,71 @@
/*
* To change this license header, choose License Headers in Project Properties.
* To change this template file, choose Tools | Templates
* and open the template in the editor.
*/
package mage.abilities.keyword;
import mage.abilities.Ability;
import mage.abilities.common.DealsCombatDamageToAPlayerTriggeredAbility;
import mage.abilities.effects.OneShotEffect;
import mage.cards.Card;
import mage.constants.Outcome;
import mage.constants.Zone;
import mage.game.Game;
import mage.players.Player;
/**
*
* @author LevelX2
*/
public class IngestAbility extends DealsCombatDamageToAPlayerTriggeredAbility {
public IngestAbility() {
super(new IngestEffect(), false, true);
}
public IngestAbility(IngestAbility ability) {
super(ability);
}
@Override
public String getRule() {
return "Ingest (Whenever this creature deals combat damage to a player, that player exiles the top card of his or her library.)";
}
@Override
public IngestAbility copy() {
return new IngestAbility(this);
}
}
class IngestEffect extends OneShotEffect {
public IngestEffect() {
super(Outcome.Exile);
this.staticText = "that player exiles the top card of his or her library";
}
public IngestEffect(final IngestEffect effect) {
super(effect);
}
@Override
public IngestEffect copy() {
return new IngestEffect(this);
}
@Override
public boolean apply(Game game, Ability source) {
Player targetPlayer = game.getPlayer(getTargetPointer().getFirst(game, source));
if (targetPlayer != null) {
Card card = targetPlayer.getLibrary().getFromTop(game);
if (card != null) {
targetPlayer.moveCards(card, Zone.LIBRARY, Zone.EXILED, source, game);
}
return true;
}
return false;
}
}

492
Utils/gen-card.pl
View file

@ -1,245 +1,247 @@
#!/usr/bin/perl -w #!/usr/bin/perl -w
#author: North #author: North
use Text::Template; use Text::Template;
use strict; use strict;
my $authorFile = 'author.txt'; my $authorFile = 'author.txt';
my $dataFile = 'mtg-cards-data.txt'; my $dataFile = 'mtg-cards-data.txt';
my $setsFile = 'mtg-sets-data.txt'; my $setsFile = 'mtg-sets-data.txt';
my $knownSetsFile = 'known-sets.txt'; my $knownSetsFile = 'known-sets.txt';
my $keywordsFile = 'keywords.txt'; my $keywordsFile = 'keywords.txt';
my %cards; my %cards;
my %sets; my %sets;
my %knownSets; my %knownSets;
my %keywords; my %keywords;
sub toCamelCase { sub toCamelCase {
my $string = $_[0]; my $string = $_[0];
$string =~ s/\b([\w']+)\b/ucfirst($1)/ge; $string =~ s/\b([\w']+)\b/ucfirst($1)/ge;
$string =~ s/[-,\s\']//g; $string =~ s/[-,\s\']//g;
$string; $string;
} }
sub fixCost { sub fixCost {
my $string = $_[0]; my $string = $_[0];
$string =~ s/{([2BUGRW])([2BUGRW])}/{$1\/$2}/g; $string =~ s/{([2BUGRW])([2BUGRW])}/{$1\/$2}/g;
$string; $string;
} }
my $author; my $author;
if (-e $authorFile) { if (-e $authorFile) {
open (DATA, $authorFile); open (DATA, $authorFile);
$author = <DATA>; $author = <DATA>;
chomp $author; chomp $author;
close(DATA); close(DATA);
} else { } else {
$author = 'anonymous'; $author = 'anonymous';
} }
open (DATA, $dataFile) || die "can't open $dataFile"; open (DATA, $dataFile) || die "can't open $dataFile";
while(my $line = <DATA>) { while(my $line = <DATA>) {
my @data = split('\\|', $line); my @data = split('\\|', $line);
$cards{$data[0]}{$data[1]} = \@data; $cards{$data[0]}{$data[1]} = \@data;
} }
close(DATA); close(DATA);
open (DATA, $setsFile) || die "can't open $setsFile"; open (DATA, $setsFile) || die "can't open $setsFile";
while(my $line = <DATA>) { while(my $line = <DATA>) {
my @data = split('\\|', $line); my @data = split('\\|', $line);
$sets{$data[0]}= $data[1]; $sets{$data[0]}= $data[1];
#print "$data[0]--$data[1]\n" #print "$data[0]--$data[1]\n"
} }
close(DATA); close(DATA);
open (DATA, $knownSetsFile) || die "can't open $knownSetsFile"; open (DATA, $knownSetsFile) || die "can't open $knownSetsFile";
while(my $line = <DATA>) { while(my $line = <DATA>) {
my @data = split('\\|', $line); my @data = split('\\|', $line);
$knownSets{$data[0]}= $data[1]; $knownSets{$data[0]}= $data[1];
} }
close(DATA); close(DATA);
open (DATA, $keywordsFile) || die "can't open $keywordsFile"; open (DATA, $keywordsFile) || die "can't open $keywordsFile";
while(my $line = <DATA>) { while(my $line = <DATA>) {
my @data = split('\\|', $line); my @data = split('\\|', $line);
$keywords{toCamelCase($data[0])}= $data[1]; $keywords{toCamelCase($data[0])}= $data[1];
} }
close(DATA); close(DATA);
my %cardTypes; my %cardTypes;
$cardTypes{'Artifact'} = 'CardType.ARTIFACT'; $cardTypes{'Artifact'} = 'CardType.ARTIFACT';
$cardTypes{'Conspiracy'} = 'CardType.CONSPIRACY'; $cardTypes{'Conspiracy'} = 'CardType.CONSPIRACY';
$cardTypes{'Creature'} = 'CardType.CREATURE'; $cardTypes{'Creature'} = 'CardType.CREATURE';
$cardTypes{'Enchantment'} = 'CardType.ENCHANTMENT'; $cardTypes{'Enchantment'} = 'CardType.ENCHANTMENT';
$cardTypes{'Instant'} = 'CardType.INSTANT'; $cardTypes{'Instant'} = 'CardType.INSTANT';
$cardTypes{'Land'} = 'CardType.LAND'; $cardTypes{'Land'} = 'CardType.LAND';
$cardTypes{'Sorcery'} = 'CardType.SORCERY'; $cardTypes{'Sorcery'} = 'CardType.SORCERY';
$cardTypes{'Planeswalker'} = 'CardType.PLANESWALKER'; $cardTypes{'Planeswalker'} = 'CardType.PLANESWALKER';
$cardTypes{'Tribal'} = 'CardType.TRIBAL'; $cardTypes{'Tribal'} = 'CardType.TRIBAL';
my %raritiesConversion; my %raritiesConversion;
$raritiesConversion{'C'} = 'COMMON'; $raritiesConversion{'C'} = 'COMMON';
$raritiesConversion{'U'} = 'UNCOMMON'; $raritiesConversion{'U'} = 'UNCOMMON';
$raritiesConversion{'R'} = 'RARE'; $raritiesConversion{'R'} = 'RARE';
$raritiesConversion{'M'} = 'MYTHIC'; $raritiesConversion{'M'} = 'MYTHIC';
$raritiesConversion{'Special'} = 'SPECIAL'; $raritiesConversion{'Special'} = 'SPECIAL';
$raritiesConversion{'Bonus'} = 'BONUS'; $raritiesConversion{'Bonus'} = 'BONUS';
# Get card name # Get card name
my $cardName = $ARGV[0]; my $cardName = $ARGV[0];
if(!$cardName) { if(!$cardName) {
print 'Enter a card name: '; print 'Enter a card name: ';
$cardName = <STDIN>; $cardName = <STDIN>;
chomp $cardName; chomp $cardName;
} }
if (!exists $cards{$cardName}) { if (!exists $cards{$cardName}) {
die "Card name doesn't exist: $cardName\n"; die "Card name doesn't exist: $cardName\n";
} }
# Check if card is already implemented # Check if card is already implemented
foreach my $setName (keys %{$cards{$cardName}}) { foreach my $setName (keys %{$cards{$cardName}}) {
if (exists $knownSets{$setName}) { if (exists $knownSets{$setName}) {
my $fileName = "../Mage.Sets/src/mage/sets/" . $knownSets{$setName} . "/" . toCamelCase($cardName) . ".java"; my $fileName = "../Mage.Sets/src/mage/sets/" . $knownSets{$setName} . "/" . toCamelCase($cardName) . ".java";
if(-e $fileName) { if(-e $fileName) {
die "$cardName is already implemented (set found in: $setName).\n"; die "$cardName is already implemented (set found in: $setName).\n";
} }
} }
} }
# Generate the cards # Generate the cards
my $simpleOnly = $ARGV[1] || 'false'; my $simpleOnly = $ARGV[1] || 'false';
my $template = Text::Template->new(TYPE => 'FILE', SOURCE => 'cardClass.tmpl', DELIMITERS => [ '[=', '=]' ]); my $template = Text::Template->new(TYPE => 'FILE', SOURCE => 'cardClass.tmpl', DELIMITERS => [ '[=', '=]' ]);
my $templateExtended = Text::Template->new(TYPE => 'FILE', SOURCE => 'cardExtendedClass.tmpl', DELIMITERS => [ '[=', '=]' ]); my $templateExtended = Text::Template->new(TYPE => 'FILE', SOURCE => 'cardExtendedClass.tmpl', DELIMITERS => [ '[=', '=]' ]);
my %vars; my %vars;
$vars{'author'} = $author; $vars{'author'} = $author;
$vars{'name'} = $cardName; $vars{'name'} = $cardName;
$vars{'className'} = toCamelCase($cardName); $vars{'className'} = toCamelCase($cardName);
if ($simpleOnly ne 'true') { if ($simpleOnly ne 'true') {
print "Files generated:\n"; print "Files generated:\n";
} }
my $baseRarity = ''; my $baseRarity = '';
foreach my $setName (keys %{$cards{$cardName}}) { foreach my $setName (keys %{$cards{$cardName}}) {
if (exists $knownSets{$setName}) { if (exists $knownSets{$setName}) {
my $fileName = "../Mage.Sets/src/mage/sets/" . $knownSets{$setName} . "/" . toCamelCase($cardName) . ".java"; my $fileName = "../Mage.Sets/src/mage/sets/" . $knownSets{$setName} . "/" . toCamelCase($cardName) . ".java";
my $result; my $result;
$vars{'set'} = $knownSets{$setName}; $vars{'set'} = $knownSets{$setName};
$vars{'expansionSetCode'} = $sets{$setName}; $vars{'expansionSetCode'} = $sets{$setName};
$vars{'cardNumber'} = $cards{$cardName}{$setName}[2]; $vars{'cardNumber'} = $cards{$cardName}{$setName}[2];
$vars{'rarity'} = $raritiesConversion{$cards{$cardName}{$setName}[3]}; $vars{'rarity'} = $raritiesConversion{$cards{$cardName}{$setName}[3]};
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];
my @types; my @types;
$vars{'subType'} = ''; $vars{'subType'} = '';
my $type = $cards{$cardName}{$setName}[5]; my $type = $cards{$cardName}{$setName}[5];
while ($type =~ m/([a-zA-Z]+)( )*/g) { while ($type =~ m/([a-zA-Z]+)( )*/g) {
if (exists($cardTypes{$1})) { if (exists($cardTypes{$1})) {
push(@types, $cardTypes{$1}); push(@types, $cardTypes{$1});
} else { } else {
if (@types) { if (@types) {
$vars{'subType'} .= "\n this.subtype.add(\"$1\");"; $vars{'subType'} .= "\n this.subtype.add(\"$1\");";
} else { } else {
$vars{'subType'} .= "\n this.supertype.add(\"$1\");"; $vars{'subType'} .= "\n this.supertype.add(\"$1\");";
} }
} }
} }
$vars{'type'} = join(', ', @types); $vars{'type'} = join(', ', @types);
$vars{'abilitiesImports'} = ''; $vars{'abilitiesImports'} = '';
$vars{'abilities'} = ''; $vars{'abilities'} = '';
my @abilities = split('\$', $cards{$cardName}{$setName}[8]); my @abilities = split('\$', $cards{$cardName}{$setName}[8]);
foreach my $ability (@abilities) { foreach my $ability (@abilities) {
$ability =~ s/ <i>.+?<\/i>//g; $ability =~ s/ <i>.+?<\/i>//g;
my $notKeyWord; my $notKeyWord;
foreach my $keyword (keys %keywords) { foreach my $keyword (keys %keywords) {
if (toCamelCase($ability) =~ m/^$keyword(?=[A-Z{\d]|$)/g) { if (toCamelCase($ability) =~ m/^$keyword(?=[A-Z{\d]|$)/g) {
$notKeyWord = 'false'; $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 $kk (keys %keywords) { foreach my $kk (keys %keywords) {
if (toCamelCase($kw) =~ m/^$kk(?=[A-Z{\d]|$)/g) { if (toCamelCase($kw) =~ m/^$kk(?=[A-Z{\d]|$)/g) {
$kw = $kk; $kw = $kk;
} }
} }
if ($keywords{$kw}) { if ($keywords{$kw}) {
$vars{'abilities'} .= "\n // " . ucfirst($kwUnchanged); $vars{'abilities'} .= "\n // " . ucfirst($kwUnchanged);
if ($keywords{$kw} eq 'instance') { if ($keywords{$kw} eq 'instance') {
$vars{'abilities'} .= "\n this.addAbility(" . $kw . "Ability.getInstance());"; $vars{'abilities'} .= "\n this.addAbility(" . $kw . "Ability.getInstance());";
} elsif ($keywords{$kw} eq 'new') { } elsif ($keywords{$kw} eq 'new') {
$vars{'abilities'} .= "\n this.addAbility(new " . $kw . "Ability());"; $vars{'abilities'} .= "\n this.addAbility(new " . $kw . "Ability());";
} elsif ($keywords{$kw} eq 'number') { } elsif ($keywords{$kw} eq 'color') {
$ability =~ m/(\b\d+?\b)/g; $vars{'abilities'} .= "\n this.addAbility(new " . $kw . "Ability(this.color));";
$vars{'abilities'} .= "\n this.addAbility(new " . $kw . 'Ability(' . $1 . '));'; } elsif ($keywords{$kw} eq 'number') {
} elsif ($keywords{$kw} eq 'cost') { $ability =~ m/(\b\d+?\b)/g;
$ability =~ m/({.*})/g; $vars{'abilities'} .= "\n this.addAbility(new " . $kw . 'Ability(' . $1 . '));';
$vars{'abilities'} .= "\n this.addAbility(new " . $kw . 'Ability(new ManaCostsImpl("' . fixCost($1) . '")));'; } elsif ($keywords{$kw} eq 'cost') {
$vars{'abilitiesImports'} .= "\nimport mage.abilities.costs.mana.ManaCostsImpl;"; $ability =~ m/({.*})/g;
} elsif ($keywords{$kw} eq 'card, manaString') { $vars{'abilities'} .= "\n this.addAbility(new " . $kw . 'Ability(new ManaCostsImpl("' . fixCost($1) . '")));';
$ability =~ m/({.*})/g; $vars{'abilitiesImports'} .= "\nimport mage.abilities.costs.mana.ManaCostsImpl;";
$vars{'abilities'} .= "\n this.addAbility(new " . $kw . 'Ability(this, "' . fixCost($1) . '"));'; } elsif ($keywords{$kw} eq 'card, manaString') {
} elsif ($keywords{$kw} eq 'card, cost') { $ability =~ m/({.*})/g;
$ability =~ m/({.*})/g; $vars{'abilities'} .= "\n this.addAbility(new " . $kw . 'Ability(this, "' . fixCost($1) . '"));';
$vars{'abilities'} .= "\n this.addAbility(new " . $kw . 'Ability(this, new ManaCostsImpl("' . fixCost($1) . '")));'; } elsif ($keywords{$kw} eq 'card, cost') {
$vars{'abilitiesImports'} .= "\nimport mage.abilities.costs.mana.ManaCostsImpl;"; $ability =~ m/({.*})/g;
} $vars{'abilities'} .= "\n this.addAbility(new " . $kw . 'Ability(this, new ManaCostsImpl("' . fixCost($1) . '")));';
$vars{'abilitiesImports'} .= "\nimport mage.abilities.costs.mana.ManaCostsImpl;";
}
$vars{'abilitiesImports'} .= "\nimport mage.abilities.keyword." . $kw . "Ability;";
} else {
$vars{'abilities'} .= "\n // $kwUnchanged"; $vars{'abilitiesImports'} .= "\nimport mage.abilities.keyword." . $kw . "Ability;";
if ($simpleOnly eq 'true') { } else {
exit 0; $vars{'abilities'} .= "\n // $kwUnchanged";
} if ($simpleOnly eq 'true') {
} exit 0;
} }
} }
} }
}
if (!$notKeyWord) { }
$vars{'abilities'} .= "\n // $ability";
if ($simpleOnly eq 'true') { if (!$notKeyWord) {
exit 0; $vars{'abilities'} .= "\n // $ability";
} if ($simpleOnly eq 'true') {
} exit 0;
} }
if ($vars{'abilities'}) { }
$vars{'abilities'} = "\n" . $vars{'abilities'}; }
} if ($vars{'abilities'}) {
$vars{'abilities'} = "\n" . $vars{'abilities'};
$vars{'baseSet'} = $vars{'set'}; }
$vars{'baseClassName'} = $vars{'className'};
$vars{'baseSet'} = $vars{'set'};
$result = $template->fill_in(HASH => \%vars); $vars{'baseClassName'} = $vars{'className'};
} else {
$vars{'rarityExtended'} = ''; $result = $template->fill_in(HASH => \%vars);
if ($baseRarity ne $cards{$cardName}{$setName}[3]) { } else {
$vars{'rarityExtended'} = "\n this.rarity = Rarity.$raritiesConversion{$cards{$cardName}{$setName}[3]};"; $vars{'rarityExtended'} = '';
} if ($baseRarity ne $cards{$cardName}{$setName}[3]) {
$result = $templateExtended->fill_in(HASH => \%vars); $vars{'rarityExtended'} = "\n this.rarity = Rarity.$raritiesConversion{$cards{$cardName}{$setName}[3]};";
} }
$result = $templateExtended->fill_in(HASH => \%vars);
open CARD, "> $fileName"; }
print CARD $result;
close CARD; open CARD, "> $fileName";
print CARD $result;
print "$vars{'set'}.$vars{'className'}\n"; close CARD;
} else {
print "Set not found in known sets: $setName\n"; print "$vars{'set'}.$vars{'className'}\n";
} } else {
} print "Set not found in known sets: $setName\n";
}
}

2
Utils/keywords.txt
View file

@ -11,6 +11,7 @@ Dash|card, manaString|
Deathtouch|instance| Deathtouch|instance|
Delve|new| Delve|new|
Dethrone|new| Dethrone|new|
Devoid|color|
Defender|instance| Defender|instance|
Double Strike|instance| Double Strike|instance|
Dredge|number| Dredge|number|
@ -32,6 +33,7 @@ Hexproof|instance|
Indestructible|instance| Indestructible|instance|
Infect|instance| Infect|instance|
Intimidate|instance| Intimidate|instance|
Ingest|new|
Islandcycling|cost| Islandcycling|cost|
Islandwalk|new| Islandwalk|new|
Level up|cost| Level up|cost|