Mercurial > boosterpack

diff PokeScrape.pl @ 5:e91d6f908222 boosterpack

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[svn r7] finished!
author robert
date Tue, 08 Sep 2009 06:55:23 -0400
parents 2e849c856026
children 8c6d2ce90677
line wrap: on
line diff
     1.1 --- a/PokeScrape.pl	Tue Sep 08 06:05:47 2009 -0400
     1.2 +++ b/PokeScrape.pl	Tue Sep 08 06:55:23 2009 -0400
     1.3 @@ -45,16 +45,23 @@
     1.4  	{
     1.5  		print $numTag," ",$nameTag;
     1.6  		$tempCard = Card->new();
     1.7 +		
     1.8 +		if (($nameTag =~ m/Fighting Energy/)or ($nameTag =~ m/Fire Energy/)or ($nameTag =~ m/Grass Energy/)or ($nameTag =~ m/Lightning Energy/)or ($nameTag =~ m/Psychic Energy/)or ($nameTag =~ m/Water Ener/))
     1.9 +		{$rarityTag = "None";print "FAIL::";}
    1.10 +		
    1.11 +		
    1.12 +		
    1.13  		$tempCard->addTags($typeTag,$numTag,$nameTag,$setTag,$rarityTag);
    1.14  		
    1.15 -		if ($setTag eq "Base Set"){for $t(@Base){if ($t =~ m/$numTag/){ $tempCard->setPix($t);}}}
    1.16 -		if ($setTag eq "Jungle"){for $t(@Jungle){if ($t =~ m/$numTag/){ $tempCard->setPix($t);}}}
    1.17 -		if ($setTag eq "Team Rocket"){for $t(@Rocket){if ($t =~ m/$numTag/){ $tempCard->setPix($t);}}}
    1.18 -		if ($setTag eq "Fossil"){for $t(@Fossil){if ($t =~ m/$numTag/){ $tempCard->setPix($t);}}}
    1.19 -		if ($setTag eq "Gym Challenge"){for $t(@GymChallenge){if ($t =~ m/$numTag/){ $tempCard->setPix($t);}}}
    1.20 -		if ($setTag eq "Gym Heroes"){for $t(@GymHeroes){if ($t =~ m/$numTag/){ $tempCard->setPix($t);}}}
    1.21 +		
    1.22 +		if ($setTag eq "Base Set"){for $t(@Base){if ($t =~ m/\D$numTag\D/){ $tempCard->setPix($t);}}}
    1.23 +		if ($setTag eq "Jungle"){for $t(@Jungle){if ($t =~ m/\D$numTag\D/){ $tempCard->setPix($t);}}}
    1.24 +		if ($setTag eq "Team Rocket"){for $t(@Rocket){if ($t =~ m/\D$numTag\D/){ $tempCard->setPix($t);}}}
    1.25 +		if ($setTag eq "Fossil"){for $t(@Fossil){if ($t =~ m/\D$numTag\D/){ $tempCard->setPix($t);}}}
    1.26 +		if ($setTag eq "Gym Challenge"){for $t(@GymChallenge){if ($t =~ m/\D$numTag\D/){ $tempCard->setPix($t);}}}
    1.27 +		if ($setTag eq "Gym Heroes"){for $t(@GymHeroes){if ($t =~ m/\D$numTag\D/){ $tempCard->setPix($t);}}}
    1.28  			
    1.29 -			
    1.30 +		if ($tempCard->getPix()=~ m/132_Water_Energy/){print "##################AHHHHHHHHHHHHHHHHHHHHHH";}	
    1.31  		
    1.32  		
    1.33  		
    1.34 @@ -304,6 +311,7 @@
    1.35  images/GymChallenge/30_Sabrinas_Golduck.jpg
    1.36  images/GymChallenge/31_Blaines_Charmeleon.jpg
    1.37  images/GymChallenge/33_Blaines_Rapidash.jpg
    1.38 +images/GymChallenge/32_Blaines_Dodrio.jpg
    1.39  images/GymChallenge/34_Brocks_Graveler.jpg
    1.40  images/GymChallenge/35_Brocks_Primape.jpg
    1.41  images/GymChallenge/36_Brocks_Sandslash.jpg