# HG changeset patch
# User robert
# Date 1252407323 14400
# Node ID e91d6f90822211d989c5184e9c06f3b0f7d0a809
# Parent 90181bbf7a0cbb21726ce871848aa0d4c1117f8c
[svn r7] finished!
diff -r 90181bbf7a0c -r e91d6f908222 CARD.perl
Binary file CARD.perl has changed
diff -r 90181bbf7a0c -r e91d6f908222 PokeScrape.pl
--- a/PokeScrape.pl Tue Sep 08 06:05:47 2009 -0400
+++ b/PokeScrape.pl Tue Sep 08 06:55:23 2009 -0400
@@ -45,16 +45,23 @@
{
print $numTag," ",$nameTag;
$tempCard = Card->new();
+
+ 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/))
+ {$rarityTag = "None";print "FAIL::";}
+
+
+
$tempCard->addTags($typeTag,$numTag,$nameTag,$setTag,$rarityTag);
- if ($setTag eq "Base Set"){for $t(@Base){if ($t =~ m/$numTag/){ $tempCard->setPix($t);}}}
- if ($setTag eq "Jungle"){for $t(@Jungle){if ($t =~ m/$numTag/){ $tempCard->setPix($t);}}}
- if ($setTag eq "Team Rocket"){for $t(@Rocket){if ($t =~ m/$numTag/){ $tempCard->setPix($t);}}}
- if ($setTag eq "Fossil"){for $t(@Fossil){if ($t =~ m/$numTag/){ $tempCard->setPix($t);}}}
- if ($setTag eq "Gym Challenge"){for $t(@GymChallenge){if ($t =~ m/$numTag/){ $tempCard->setPix($t);}}}
- if ($setTag eq "Gym Heroes"){for $t(@GymHeroes){if ($t =~ m/$numTag/){ $tempCard->setPix($t);}}}
+
+ if ($setTag eq "Base Set"){for $t(@Base){if ($t =~ m/\D$numTag\D/){ $tempCard->setPix($t);}}}
+ if ($setTag eq "Jungle"){for $t(@Jungle){if ($t =~ m/\D$numTag\D/){ $tempCard->setPix($t);}}}
+ if ($setTag eq "Team Rocket"){for $t(@Rocket){if ($t =~ m/\D$numTag\D/){ $tempCard->setPix($t);}}}
+ if ($setTag eq "Fossil"){for $t(@Fossil){if ($t =~ m/\D$numTag\D/){ $tempCard->setPix($t);}}}
+ if ($setTag eq "Gym Challenge"){for $t(@GymChallenge){if ($t =~ m/\D$numTag\D/){ $tempCard->setPix($t);}}}
+ if ($setTag eq "Gym Heroes"){for $t(@GymHeroes){if ($t =~ m/\D$numTag\D/){ $tempCard->setPix($t);}}}
-
+ if ($tempCard->getPix()=~ m/132_Water_Energy/){print "##################AHHHHHHHHHHHHHHHHHHHHHH";}
@@ -304,6 +311,7 @@
images/GymChallenge/30_Sabrinas_Golduck.jpg
images/GymChallenge/31_Blaines_Charmeleon.jpg
images/GymChallenge/33_Blaines_Rapidash.jpg
+images/GymChallenge/32_Blaines_Dodrio.jpg
images/GymChallenge/34_Brocks_Graveler.jpg
images/GymChallenge/35_Brocks_Primape.jpg
images/GymChallenge/36_Brocks_Sandslash.jpg
diff -r 90181bbf7a0c -r e91d6f908222 images/GymChallenge/Thumbs.db
Binary file images/GymChallenge/Thumbs.db has changed
diff -r 90181bbf7a0c -r e91d6f908222 index.html
--- a/index.html Tue Sep 08 06:05:47 2009 -0400
+++ b/index.html Tue Sep 08 06:55:23 2009 -0400
@@ -1,37 +1,34 @@
-
-Pokèmon Booster Pack Generator
-
+Pokèmon Booster Pack Generator
-
-
+
+
+
\ No newline at end of file
diff -r 90181bbf7a0c -r e91d6f908222 index.pl
--- a/index.pl Tue Sep 08 06:05:47 2009 -0400
+++ b/index.pl Tue Sep 08 06:55:23 2009 -0400
@@ -93,6 +93,13 @@
my $unum = $mapRules{"Uncommon"};
my $cnum = $mapRules{"Common"};
+
+ ##########3
+ #my $rnum = 500;
+ #my $unum =500;
+ #my $cnum = 500;
+ #;
+ ##############
for $crd(@reduced)
{
if (($crd -> hasTags("Rare") or $crd -> hasTags("Rare Holo"))and ($rnum>0)){push @r_list, $crd; $rnum--;}
diff -r 90181bbf7a0c -r e91d6f908222 rlm/booster.prefs
Binary file rlm/booster.prefs has changed
diff -r 90181bbf7a0c -r e91d6f908222 style.css
--- a/style.css Tue Sep 08 06:05:47 2009 -0400
+++ b/style.css Tue Sep 08 06:55:23 2009 -0400
@@ -34,13 +34,21 @@
display:block;
overflow-y:auto;
overflow-x:hidden;
+ text-align:center;
+ vertical-align:middle;
+ padding-top:16px;
+}
+
+#out1 img {
+ padding:2px;
+ width:18%;
}
/* UI */
#radiobuttons{display:inline;}
#radiobuttons a{text-decoration:none;color:#000;font-size:14px;margin-left:2px;margin-right:.6em;}
-#b2{display:none;}
+#b2{font-size:15px;padding:4px 2px;margin-left:4px;margin-top:-4px;}