robert@0: use Card;
robert@0: use Storable;
robert@3: use Filter;
robert@0: 
robert@0: open POKE, "<all.dat";
robert@3: &doit;
robert@0: @allcards = ();
robert@0: 
robert@0: for $line(<POKE>)
robert@0: {
robert@0: 	$line =~ m/(<img.*?>).*?(<img.*?>).*?/;
robert@0: 	
robert@0: 	$img1 = $1;
robert@0: 	$img3 = $2;
robert@0: 	$line =~ m/(<a.*?<\/a>).*?/;
robert@0: 	$img2 = $1;
robert@0: 	
robert@0: 	
robert@0: 	#<img src="/cdexdata/images/types/w.gif" alt="Water" title="Water" height="17" width="17" class="t">
robert@0: 	
robert@0: 	#<a id="base-set-2-blastoise" href="/scans/base-set/2-blastoise.jpg" title="Blastoise from Base Set (#2)" target="1">Blastoise</a>
robert@0: 	
robert@0: 	#<img src="/cdexdata/images/rarities/rare-holo.gif" alt="Rare Holo" title="Rare Holo" width="28" height="16">
robert@0: 	
robert@0: 
robert@0: 	
robert@0: 	
robert@0: 	$img1 =~ m/alt="(.*?)"/;
robert@0: 	$typeTag = $1;
robert@0: 	
robert@0: 	$img2 =~ m/\(\#(\d+)\)/;
robert@0: 	$numTag = $1;
robert@0: 	$img2 =~ m/href="(.*?)"/;
robert@0: 	$pix = $1;
robert@0: 	$img2 =~ m/>(.*)</;
robert@0: 	$nameTag = $1;
robert@0: 	$img2 =~ m/from (.*?) \(/;
robert@0: 	$setTag = $1;
robert@0: 		
robert@0: 	$img3 =~ m/alt="(.*?)"/;
robert@0: 	$rarityTag = $1;
robert@0: 	
robert@0: 	
robert@0: 	if ($line =~ m/^<td/)
robert@0: 	{
robert@2: 		print $numTag," ",$nameTag;
robert@0: 		$tempCard = Card->new();
robert@5: 		
robert@5: 		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/))
robert@5: 		{$rarityTag = "None";print "FAIL::";}
robert@5: 		
robert@5: 		
robert@5: 		
robert@0: 		$tempCard->addTags($typeTag,$numTag,$nameTag,$setTag,$rarityTag);
robert@3: 		
robert@5: 		
robert@5: 		if ($setTag eq "Base Set"){for $t(@Base){if ($t =~ m/\D$numTag\D/){ $tempCard->setPix($t);}}}
robert@5: 		if ($setTag eq "Jungle"){for $t(@Jungle){if ($t =~ m/\D$numTag\D/){ $tempCard->setPix($t);}}}
robert@5: 		if ($setTag eq "Team Rocket"){for $t(@Rocket){if ($t =~ m/\D$numTag\D/){ $tempCard->setPix($t);}}}
robert@5: 		if ($setTag eq "Fossil"){for $t(@Fossil){if ($t =~ m/\D$numTag\D/){ $tempCard->setPix($t);}}}
robert@5: 		if ($setTag eq "Gym Challenge"){for $t(@GymChallenge){if ($t =~ m/\D$numTag\D/){ $tempCard->setPix($t);}}}
robert@5: 		if ($setTag eq "Gym Heroes"){for $t(@GymHeroes){if ($t =~ m/\D$numTag\D/){ $tempCard->setPix($t);}}}
robert@3: 			
robert@5: 		if ($tempCard->getPix()=~ m/132_Water_Energy/){print "##################AHHHHHHHHHHHHHHHHHHHHHH";}	
robert@3: 		
robert@3: 		
robert@3: 		
robert@2: 		print " $setTag \n";
robert@0: 		push @allcards,$tempCard;
robert@0: 		
robert@0: 		
robert@0: 	}
robert@0: 	
robert@0: 
robert@0: 	
robert@0: }	
robert@0: 	
robert@0: 
robert@0: store \@allcards, 'CARD.perl';
robert@0: 
robert@0: 
robert@0: 
robert@0: my $refnewstruct = retrieve 'CARD.perl';
robert@0: 
robert@0: 
robert@3: print @$refnewstruct[0]->getTags();
robert@3: 
robert@3: 
robert@3: 
robert@3: 
robert@3: 
robert@3: 
robert@3: 
robert@3: 
robert@3: 
robert@3: 
robert@3: 
robert@3: 
robert@3: 
robert@3: sub doit {
robert@3: 	
robert@3: @Base = qw(
robert@3: images/Base/100_Lightning_Energy.jpg
robert@3: images/Base/101_Psychic_Energy.jpg
robert@3: images/Base/102_Water_Energy.jpg
robert@3: images/Base/17_Beedrill.jpg
robert@3: images/Base/18_Dragonair.jpg
robert@3: images/Base/19_Dugtrio.jpg
robert@3: images/Base/20_Electabuzz.jpg
robert@3: images/Base/21_Electrode.jpg
robert@3: images/Base/22_Pidgeotto.jpg
robert@3: images/Base/23_Arcanine.jpg
robert@3: images/Base/24_Charmeleon.jpg
robert@3: images/Base/25_Dewgong.jpg
robert@3: images/Base/26_Dratini.jpg
robert@3: images/Base/27_Farfetchd.jpg
robert@3: images/Base/28_Growlithe.jpg
robert@3: images/Base/29_Haunter.jpg
robert@3: images/Base/30_Ivysaur.jpg
robert@3: images/Base/31_Jynx.jpg
robert@3: images/Base/32_Kadabra.jpg
robert@3: images/Base/33_Kakuna.jpg
robert@3: images/Base/34_Machoke.jpg
robert@3: images/Base/35_Magikarp.jpg
robert@3: images/Base/36_Magmar.jpg
robert@3: images/Base/37_Nidorino.jpg
robert@3: images/Base/38_Poliwhirl.jpg
robert@3: images/Base/39_Porygon.jpg
robert@3: images/Base/40_Raticate.jpg
robert@3: images/Base/41_Seel.jpg
robert@3: images/Base/42_Wartortle.jpg
robert@3: images/Base/43_Abra.jpg
robert@3: images/Base/44_Bulbasaur.jpg
robert@3: images/Base/45_Caterpie.jpg
robert@3: images/Base/46_Charmander.jpg
robert@3: images/Base/47_Diglett.jpg
robert@3: images/Base/48_Doduo.jpg
robert@3: images/Base/49_Drowzee.jpg
robert@3: images/Base/50_Gastly.jpg
robert@3: images/Base/51_Koffing.jpg
robert@3: images/Base/52_Machop.jpg
robert@3: images/Base/53_Magnemite.jpg
robert@3: images/Base/54_Metapod.jpg
robert@3: images/Base/55_Nidoran_M.jpg
robert@3: images/Base/56_Onix.jpg
robert@3: images/Base/57_Pidgey.jpg
robert@3: images/Base/58_Pikachu.jpg
robert@3: images/Base/59_Poliwag.jpg
robert@3: images/Base/60_Ponyta.jpg
robert@3: images/Base/61_Rattata.jpg
robert@3: images/Base/62_Sandshrew.jpg
robert@3: images/Base/63_Squirtle.jpg
robert@3: images/Base/64_Starmie.jpg
robert@3: images/Base/65_Staryu.jpg
robert@3: images/Base/66_Tangela.jpg
robert@3: images/Base/67_Voltorb.jpg
robert@3: images/Base/68_Vulpix.jpg
robert@3: images/Base/69_Weedle.jpg
robert@3: images/Base/70_Clefairy_Doll.jpg
robert@3: images/Base/71_Computer_Search.jpg
robert@3: images/Base/72_Devolution_Spray.jpg
robert@3: images/Base/73_Impostor_Professor_Oak.jpg
robert@3: images/Base/74_Item_Finder.jpg
robert@3: images/Base/75_Lass.jpg
robert@3: images/Base/76_Pokemon_Breeder.jpg
robert@3: images/Base/77_Pokemon_Trader.jpg
robert@3: images/Base/78_Scoop_Up.jpg
robert@3: images/Base/79_Super_Energy_Removal.jpg
robert@3: images/Base/80_Defender.jpg
robert@3: images/Base/81_Energy_Retrieval.jpg
robert@3: images/Base/82_Full_Heal.jpg
robert@3: images/Base/83_Maintenance.jpg
robert@3: images/Base/84_Plus_Power.jpg
robert@3: images/Base/85_Pokemon_Center.jpg
robert@3: images/Base/86_Pokemon_Flute.jpg
robert@3: images/Base/87_Pokedex.jpg
robert@3: images/Base/88_Professor_Oak.jpg
robert@3: images/Base/89_Revive.jpg
robert@3: images/Base/90_Super_Potion.jpg
robert@3: images/Base/91_Bill.jpg
robert@3: images/Base/92_Energy_Removal.jpg
robert@3: images/Base/93_Gust_of_Wind.jpg
robert@3: images/Base/94_Potion.jpg
robert@3: images/Base/95_Switch.jpg
robert@3: images/Base/96_Double_Colorless_Energy.jpg
robert@3: images/Base/97_Fighting_Energy.jpg
robert@3: images/Base/98_Fire_Energy.jpg
robert@3: images/Base/99_Grass_Energy.jpg
robert@3: images/Base/H-10_Mewtwo.jpg
robert@3: images/Base/H-11_Nidoking.jpg
robert@3: images/Base/H-12_Ninetales.jpg
robert@3: images/Base/H-13_Poliwrath.jpg
robert@3: images/Base/H-14_Raichu.jpg
robert@3: images/Base/H-15_Venusaur.jpg
robert@3: images/Base/H-16_Zapdos.jpg
robert@3: images/Base/H-1_Alakazam.jpg
robert@3: images/Base/H-2_Blastoise.jpg
robert@3: images/Base/H-3_Chansey.jpg
robert@3: images/Base/H-4_Charizard.jpg
robert@3: images/Base/H-5_Clefairy.jpg
robert@3: images/Base/H-6_Gyarados.jpg
robert@3: images/Base/H-7_Hitmonchan.jpg
robert@3: images/Base/H-8_Machamp.jpg
robert@3: images/Base/H-9_Magneton.jpg);
robert@3: @Fossil = qw(
robert@3: images/Fossil/16_Aerodactyl.jpg
robert@3: images/Fossil/17_Articuno.jpg
robert@3: images/Fossil/18_Ditto.jpg
robert@3: images/Fossil/19_Dragonite.jpg
robert@3: images/Fossil/20_Gengar.jpg
robert@3: images/Fossil/21_Haunter.jpg
robert@3: images/Fossil/22_Hitmonlee.jpg
robert@3: images/Fossil/23_Hypno.jpg
robert@3: images/Fossil/24_Kabutops.jpg
robert@3: images/Fossil/25_Lapras.jpg
robert@3: images/Fossil/26_Magneton.jpg
robert@3: images/Fossil/27_Moltres.jpg
robert@3: images/Fossil/28_Muk.jpg
robert@3: images/Fossil/29_Raichu.jpg
robert@3: images/Fossil/30_Zapdos.jpg
robert@3: images/Fossil/31_Arbok.jpg
robert@3: images/Fossil/32_Cloyster.jpg
robert@3: images/Fossil/33_Gastly.jpg
robert@3: images/Fossil/34_Golbat.jpg
robert@3: images/Fossil/35_Golduck.jpg
robert@3: images/Fossil/36_Golem.jpg
robert@3: images/Fossil/37_Graveler.jpg
robert@3: images/Fossil/38_Kingler.jpg
robert@3: images/Fossil/39_Magmar.jpg
robert@3: images/Fossil/40_Omastar.jpg
robert@3: images/Fossil/41_Sandslash.jpg
robert@3: images/Fossil/42_Seadra.jpg
robert@3: images/Fossil/43_Slowbro.jpg
robert@3: images/Fossil/44_Tentacruel.jpg
robert@3: images/Fossil/45_Weezing.jpg
robert@3: images/Fossil/46_Ekans.jpg
robert@3: images/Fossil/47_Geodude.jpg
robert@3: images/Fossil/48_Grimer.jpg
robert@3: images/Fossil/49_Horsea.jpg
robert@3: images/Fossil/50_Kabuto.jpg
robert@3: images/Fossil/51_Krabby.jpg
robert@3: images/Fossil/52_Omanyte.jpg
robert@3: images/Fossil/53_Psyduck.jpg
robert@3: images/Fossil/54_Shellder.jpg
robert@3: images/Fossil/55_Slowpoke.jpg
robert@3: images/Fossil/56_Tentacool.jpg
robert@3: images/Fossil/57_Zubat.jpg
robert@3: images/Fossil/58_Mr_Fuji.jpg
robert@3: images/Fossil/59_Energy_Search.jpg
robert@3: images/Fossil/60_Gambler.jpg
robert@3: images/Fossil/61_Recycle.jpg
robert@3: images/Fossil/62_Mysterious_Fossil.jpg
robert@3: images/Fossil/H-10_Lapras.jpg
robert@3: images/Fossil/H-11_Magneton.jpg
robert@3: images/Fossil/H-12_Moltres.jpg
robert@3: images/Fossil/H-13_Muk.jpg
robert@3: images/Fossil/H-14_Raichu.jpg
robert@3: images/Fossil/H-15_Zapdos.jpg
robert@3: images/Fossil/H-1_Aerodactyl.jpg
robert@3: images/Fossil/H-2_Articuno.jpg
robert@3: images/Fossil/H-3_Ditto.jpg
robert@3: images/Fossil/H-4_Dragonite.jpg
robert@3: images/Fossil/H-5_Gengar.jpg
robert@3: images/Fossil/H-6_Haunter.jpg
robert@3: images/Fossil/H-7_Hitmonlee.jpg
robert@3: images/Fossil/H-8_Hypno.jpg
robert@3: images/Fossil/H-9_Kabutops.jpg);
robert@3: @GymChallenge = qw(
robert@3: images/GymChallenge/100_Blaine.jpg
robert@3: images/GymChallenge/101_Brocks_Protection.jpg
robert@3: images/GymChallenge/102_Chaos_Gym.jpg
robert@3: images/GymChallenge/103_Erikas_Kindness.jpg
robert@3: images/GymChallenge/104_Giovanni.jpg
robert@3: images/GymChallenge/105_Giovannis_Last_Resort.jpg
robert@3: images/GymChallenge/106_Koga.jpg
robert@3: images/GymChallenge/107_Lt_Surges_Secret_Plan.jpg
robert@3: images/GymChallenge/108_Mistys_Wish.jpg
robert@3: images/GymChallenge/109_Resistance_Gym.jpg
robert@3: images/GymChallenge/110_Sabrina.jpg
robert@3: images/GymChallenge/111_Blaines_Quiz_2.jpg
robert@3: images/GymChallenge/112_Blaines_Quiz_3.jpg
robert@3: images/GymChallenge/113_Cinnabar_City_Gym.jpg
robert@3: images/GymChallenge/114_Fuchsia_City_Gym.jpg
robert@3: images/GymChallenge/115_Kogas_Ninja_Trick.jpg
robert@3: images/GymChallenge/116_Master_Ball.jpg
robert@3: images/GymChallenge/117_Max_Revive.jpg
robert@3: images/GymChallenge/118_Mistys_Tears.jpg
robert@3: images/GymChallenge/119_Rockets_Minefield_Gym.jpg
robert@3: images/GymChallenge/120_Rockets_Secret_Experiment.jpg
robert@3: images/GymChallenge/121_Sabrinas_Psychic_Control.jpg
robert@3: images/GymChallenge/122_Saffron_City_Gym.jpg
robert@3: images/GymChallenge/123_Viridian_City_Gym.jpg
robert@3: images/GymChallenge/124_Fervor.jpg
robert@3: images/GymChallenge/125_Transparent_Walls.jpg
robert@3: images/GymChallenge/126_Warp_Point.jpg
robert@3: images/GymChallenge/127_Fighting_Energy.jpg
robert@3: images/GymChallenge/128_Fire_Energy.jpg
robert@3: images/GymChallenge/129_Grass_Energy.jpg
robert@3: images/GymChallenge/130_Lightning_Energy.jpg
robert@3: images/GymChallenge/131_Psychic_Energy.jpg
robert@3: images/GymChallenge/132_Water_Energy.jpg
robert@3: images/GymChallenge/21_Blaines_Ninetales.jpg
robert@3: images/GymChallenge/22_Brocks_Dugtrio.jpg
robert@3: images/GymChallenge/23_Giovannis_Nidoqueen.jpg
robert@3: images/GymChallenge/24_Giovannis_Pinsir.jpg
robert@3: images/GymChallenge/25_Kogas_Arbok.jpg
robert@3: images/GymChallenge/26_Kogas_Muk.jpg
robert@3: images/GymChallenge/27_Kogas_Pidgeotto.jpg
robert@3: images/GymChallenge/28_Lt_Surges_Jolteon.jpg
robert@3: images/GymChallenge/29_Sabrinas_Gengar.jpg
robert@3: images/GymChallenge/30_Sabrinas_Golduck.jpg
robert@3: images/GymChallenge/31_Blaines_Charmeleon.jpg
robert@3: images/GymChallenge/33_Blaines_Rapidash.jpg
robert@5: images/GymChallenge/32_Blaines_Dodrio.jpg
robert@3: images/GymChallenge/34_Brocks_Graveler.jpg
robert@3: images/GymChallenge/35_Brocks_Primape.jpg
robert@3: images/GymChallenge/36_Brocks_Sandslash.jpg
robert@3: images/GymChallenge/37_Brocks_Vulpix.jpg
robert@3: images/GymChallenge/38_Erickas_Bellsprout.jpg
robert@3: images/GymChallenge/39_Erickas_Bulbasaur.jpg
robert@3: images/GymChallenge/40_Erikas_Clefairy.jpg
robert@3: images/GymChallenge/41_Erikas_Ivysaur.jpg
robert@3: images/GymChallenge/42_Giovannis_Machoke.jpg
robert@3: images/GymChallenge/43_Giovannis_Meowth.jpg
robert@3: images/GymChallenge/44_Giovannis_Nidorina.jpg
robert@3: images/GymChallenge/45_Giovannis_Nidorino.jpg
robert@3: images/GymChallenge/46_Kogas_Golbat.jpg
robert@3: images/GymChallenge/47_Kogas_Kakuna.jpg
robert@3: images/GymChallenge/48_Kogas_Koffing.jpg
robert@3: images/GymChallenge/49_Kogas_Pidgey.jpg
robert@3: images/GymChallenge/50_Kogas_Weezing.jpg
robert@3: images/GymChallenge/51_Lt_Surges_Eevee.jpg
robert@3: images/GymChallenge/52_Lt_Surges_Electrode.jpg
robert@3: images/GymChallenge/53_Lt_Surges_Raticate.jpg
robert@3: images/GymChallenge/54_Mistys_Dewgong.jpg
robert@3: images/GymChallenge/55_Sabrinas_Haunter.jpg
robert@3: images/GymChallenge/56_Sabrinas_Hypno.jpg
robert@3: images/GymChallenge/57_Sabrinas_Jynx.jpg
robert@3: images/GymChallenge/58_Sabrinas_Kadabra.jpg
robert@3: images/GymChallenge/59_Sabrinas_Mr_Mime.jpg
robert@3: images/GymChallenge/60_Blaines_Charmander.jpg
robert@3: images/GymChallenge/61_Blaines_Duduo.jpg
robert@3: images/GymChallenge/62_Blaines_Growlithe.jpg
robert@3: images/GymChallenge/63_Blaines_Mankey.jpg
robert@3: images/GymChallenge/64_Blaines_Ponyta.jpg
robert@3: images/GymChallenge/65_Blaines_Rhyhorn.jpg
robert@3: images/GymChallenge/66_Blaines_Vulpix.jpg
robert@3: images/GymChallenge/67_Brocks_Diglett.jpg
robert@3: images/GymChallenge/68_Brocks_Geodude.jpg
robert@3: images/GymChallenge/69_Erikas_Jigglypuff.jpg
robert@3: images/GymChallenge/70_Erikas_Oddish.jpg
robert@3: images/GymChallenge/71_Erikas_Paras.jpg
robert@3: images/GymChallenge/72_Giovannis_Machop.jpg
robert@3: images/GymChallenge/73_Giovannis_Magikarp.jpg
robert@3: images/GymChallenge/74_Giovannis_Meowth.jpg
robert@3: images/GymChallenge/75_Giovannis_Nidoran.jpg
robert@3: images/GymChallenge/76_Giovannis_Nidoran.jpg
robert@3: images/GymChallenge/77_Kogas_Ekans.jpg
robert@3: images/GymChallenge/78_Kogas_Grimer.jpg
robert@3: images/GymChallenge/79_Kogas_Koffing.jpg
robert@3: images/GymChallenge/80_Kogas_Pidgey.jpg
robert@3: images/GymChallenge/81_Kogas_Tangela.jpg
robert@3: images/GymChallenge/82_Kogas_Weedle.jpg
robert@3: images/GymChallenge/83_Kogas_Zubat.jpg
robert@3: images/GymChallenge/84_Lt_Surges_Pikachu.jpg
robert@3: images/GymChallenge/85_Lt_Surges_Rattata.jpg
robert@3: images/GymChallenge/86_Lt_Surges_Voltorb.jpg
robert@3: images/GymChallenge/87_Mistys_Horsea.jpg
robert@3: images/GymChallenge/88_Mistys_Magikarp.jpg
robert@3: images/GymChallenge/89_Mistys_Poliwag.jpg
robert@3: images/GymChallenge/90_Mistys_Psyduck.jpg
robert@3: images/GymChallenge/91_Mistys_Seel.jpg
robert@3: images/GymChallenge/92_Mistys_Staryu.jpg
robert@3: images/GymChallenge/93_Sabrinas_Abra.jpg
robert@3: images/GymChallenge/94_Sabrinas_Abra.jpg
robert@3: images/GymChallenge/95_Sabrinas_Drowzee.jpg
robert@3: images/GymChallenge/96_Sabrinas_Gastly.jpg
robert@3: images/GymChallenge/97_Sabrinas_Gastly.jpg
robert@3: images/GymChallenge/98_Sabrinas_Porygon.jpg
robert@3: images/GymChallenge/99_Sabrinas_Psyduck.jpg
robert@3: images/GymChallenge/H-10_Kogas_Ditto.jpg
robert@3: images/GymChallenge/H-11_Lt_Surges_Raichu.jpg
robert@3: images/GymChallenge/H-12_Mistys_Golduck.jpg
robert@3: images/GymChallenge/H-13_Mistys_Gyarados.jpg
robert@3: images/GymChallenge/H-14_Rockets_Mewtwo.jpg
robert@3: images/GymChallenge/H-15_Rockets_Zapdos.jpg
robert@3: images/GymChallenge/H-16_Sabrinas_Alakazam.jpg
robert@3: images/GymChallenge/H-17_Blaine.jpg
robert@3: images/GymChallenge/H-18_Giovanni.jpg
robert@3: images/GymChallenge/H-19_Koga.jpg
robert@3: images/GymChallenge/H-1_Blaines_Arcanine.jpg
robert@3: images/GymChallenge/H-20_Sabrina.jpg
robert@3: images/GymChallenge/H-2_Blaines_Charizard.jpg
robert@3: images/GymChallenge/H-3_Brocks_Ninetales.jpg
robert@3: images/GymChallenge/H-4_Erikas_Venusaur.jpg
robert@3: images/GymChallenge/H-5_Giovannis_Gyarados.jpg
robert@3: images/GymChallenge/H-6_Giovannis_Machamp.jpg
robert@3: images/GymChallenge/H-7_Giovannis_Nidoking.jpg
robert@3: images/GymChallenge/H-8_Giovannis_Persian.jpg
robert@3: images/GymChallenge/H-9_Kogas_Beedrill.jpg);
robert@3: @GymHeroes = qw(
robert@3: images/GymHeroes/100_Erika.jpg
robert@3: images/GymHeroes/101_Lt_Surge.jpg
robert@3: images/GymHeroes/102_Misty.jpg
robert@3: images/GymHeroes/103_No_Removal_Gym.jpg
robert@3: images/GymHeroes/104_The_Rockets_Training_Gym.jpg
robert@3: images/GymHeroes/105_Blaines_Last_Resort.jpg
robert@3: images/GymHeroes/106_Brocks_Training_Method.jpg
robert@3: images/GymHeroes/107_Celadon_City_Gym.jpg
robert@3: images/GymHeroes/108_Cerulean_City_Gym.jpg
robert@3: images/GymHeroes/109_Erikas_Maids.jpg
robert@3: images/GymHeroes/110_Erikas_Perfume.jpg
robert@3: images/GymHeroes/111_Good_Manners.jpg
robert@3: images/GymHeroes/112_Lt_Surges_Treaty.jpg
robert@3: images/GymHeroes/113_Minion_of_Team_Rocket.jpg
robert@3: images/GymHeroes/114_Mistys_Wrath.jpg
robert@3: images/GymHeroes/115_Pewter_City_Gym.jpg
robert@3: images/GymHeroes/116_Recall.jpg
robert@3: images/GymHeroes/117_Sabrinas_ESP.jpg
robert@3: images/GymHeroes/118_Secret_Mission.jpg
robert@3: images/GymHeroes/119_Tickling_Machine.jpg
robert@3: images/GymHeroes/120_Vermilion_City_Gym.jpg
robert@3: images/GymHeroes/121_Blaines_Gamble.jpg
robert@3: images/GymHeroes/122_Energy_Flow.jpg
robert@3: images/GymHeroes/123_Mistys_Duel.jpg
robert@3: images/GymHeroes/124_Narrow_Gym.jpg
robert@3: images/GymHeroes/125_Sabrinas_Gaze.jpg
robert@3: images/GymHeroes/126_Trash_Exchange.jpg
robert@3: images/GymHeroes/127_Fighting_Energy.jpg
robert@3: images/GymHeroes/128_Fire_Energy.jpg
robert@3: images/GymHeroes/129_Grass_Energy.jpg
robert@3: images/GymHeroes/130_Lightning_Energy.jpg
robert@3: images/GymHeroes/131_Psychic_Energy.jpg
robert@3: images/GymHeroes/132_Water_Energy.jpg
robert@3: images/GymHeroes/20_Brocks_Golem.jpg
robert@3: images/GymHeroes/21_Brocks_Onix.jpg
robert@3: images/GymHeroes/22_Brocks_Rhyhorn.jpg
robert@3: images/GymHeroes/23_Brocks_Sandslash.jpg
robert@3: images/GymHeroes/24_Brocks_Zubat.jpg
robert@3: images/GymHeroes/25_Erikas_Clefairy.jpg
robert@3: images/GymHeroes/26_Erikas_Victreebel.jpg
robert@3: images/GymHeroes/27_Lt_Surges_Electabuzz.jpg
robert@3: images/GymHeroes/28_Lt_Surges_Raichu.jpg
robert@3: images/GymHeroes/29_Mistys_Cloyster.jpg
robert@3: images/GymHeroes/30_Mistys_Goldeen.jpg
robert@3: images/GymHeroes/31_Mistys_Poliwrath.jpg
robert@3: images/GymHeroes/32_Mistys_Tentacool.jpg
robert@3: images/GymHeroes/33_Rockets_Snorlax.jpg
robert@3: images/GymHeroes/34_Sabrinas_Venomoth.jpg
robert@3: images/GymHeroes/35_Blaines_Growlithe.jpg
robert@3: images/GymHeroes/36_Blaines_Kangaskhan.jpg
robert@3: images/GymHeroes/37_Blaines_Magmar.jpg
robert@3: images/GymHeroes/38_Brocks_Geodude.jpg
robert@3: images/GymHeroes/39_Brocks_Golbat.jpg
robert@3: images/GymHeroes/40_Brocks_Graveler.jpg
robert@3: images/GymHeroes/41_Brocks_Lickitung.jpg
robert@3: images/GymHeroes/42_Erikas_Dratini.jpg
robert@3: images/GymHeroes/43_Erikas_Exeggcute.jpg
robert@3: images/GymHeroes/44_Erikas_Exeggutor.jpg
robert@3: images/GymHeroes/45_Erikas_Gloom.jpg
robert@3: images/GymHeroes/46_Erikas_Gloom.jpg
robert@3: images/GymHeroes/47_Erikas_Oddish.jpg
robert@3: images/GymHeroes/48_Erikas_Weepinbell.jpg
robert@3: images/GymHeroes/49_Erikas_Weepinbell.jpg
robert@3: images/GymHeroes/50_Lt_Surges_Magnemite.jpg
robert@3: images/GymHeroes/51_Lt_Surges_Raticate.jpg
robert@3: images/GymHeroes/52_Lt_Surges_Spearow.jpg
robert@3: images/GymHeroes/53_Mistys_Poliwhirl.jpg
robert@3: images/GymHeroes/54_Mistys_Psyduck.jpg
robert@3: images/GymHeroes/55_Mistys_Seaking.jpg
robert@3: images/GymHeroes/56_Mistys_Starmie.jpg
robert@3: images/GymHeroes/57_Mistys_Tentacool.jpg
robert@3: images/GymHeroes/58_Sabrinas_Haunter.jpg
robert@3: images/GymHeroes/59_Sabrinas_Jynx.jpg
robert@3: images/GymHeroes/60_Sabrinas_Slowbro.jpg
robert@3: images/GymHeroes/61_Blaines_Charmander.jpg
robert@3: images/GymHeroes/62_Blaines_Growlithe.jpg
robert@3: images/GymHeroes/63_Blaines_Ponyta.jpg
robert@3: images/GymHeroes/64_Blaines_Tauros.jpg
robert@3: images/GymHeroes/65_Blaines_Vulpix.jpg
robert@3: images/GymHeroes/66_Brocks_Geodude.jpg
robert@3: images/GymHeroes/67_Brocks_Mankey.jpg
robert@3: images/GymHeroes/68_Brocks_Mankey.jpg
robert@3: images/GymHeroes/69_Brocks_Onix.jpg
robert@3: images/GymHeroes/70_Brocks_Rhyhorn.jpg
robert@3: images/GymHeroes/71_Brocks_Sandshrew.jpg
robert@3: images/GymHeroes/72_Brocks_Sandshrew.jpg
robert@3: images/GymHeroes/73_Brocks_Vulpix.jpg
robert@3: images/GymHeroes/74_Brocks_Zubat.jpg
robert@3: images/GymHeroes/75_Erikas_Bellsprout.jpg
robert@3: images/GymHeroes/76_Erikas_Bellsprout.jpg
robert@3: images/GymHeroes/77_Erikas_Exeggcute.jpg
robert@3: images/GymHeroes/78_Erikas_Oddish.jpg
robert@3: images/GymHeroes/79_Erikas_Tangela.jpg
robert@3: images/GymHeroes/80_Lt_Surges_Magnemite.jpg
robert@3: images/GymHeroes/81_Lt_Surges_Pikachu.jpg
robert@3: images/GymHeroes/82_Lt_Surges_Rattata.jpg
robert@3: images/GymHeroes/83_Lt_Surges_Spearow.jpg
robert@3: images/GymHeroes/84_Lt_Surges_Voltorb.jpg
robert@3: images/GymHeroes/85_Mistys_Goldeen.jpg
robert@3: images/GymHeroes/86_Mistys_Horsea.jpg
robert@3: images/GymHeroes/87_Mistys_Poliwag.jpg
robert@3: images/GymHeroes/88_Mistys_Seel.jpg
robert@3: images/GymHeroes/89_Mistys_Shellder.jpg
robert@3: images/GymHeroes/90_Mistys_Staryu.jpg
robert@3: images/GymHeroes/91_Sabrinas_Abra.jpg
robert@3: images/GymHeroes/92_Sabrinas_Drowzee.jpg
robert@3: images/GymHeroes/93_Sabrinas_Gastly.jpg
robert@3: images/GymHeroes/94_Sabrinas_Mr_Mime.jpg
robert@3: images/GymHeroes/95_Sabrinas_Slowpoke.jpg
robert@3: images/GymHeroes/96_Sabrinas_Venonat.jpg
robert@3: images/GymHeroes/97_Blaines_Quiz_1.jpg
robert@3: images/GymHeroes/98_Brock.jpg
robert@3: images/GymHeroes/99_Charity.jpg
robert@3: images/GymHeroes/H-10_Mistys_Tentacruel.jpg
robert@3: images/GymHeroes/H-11_Rockets_Hitmonchan.jpg
robert@3: images/GymHeroes/H-12_Rockets_Moltres.jpg
robert@3: images/GymHeroes/H-13_Rockets_Scyther.jpg
robert@3: images/GymHeroes/H-14_Sabrinas_Gengar.jpg
robert@3: images/GymHeroes/H-15_Brock.jpg
robert@3: images/GymHeroes/H-16_Erika.jpg
robert@3: images/GymHeroes/H-17_Lt_Surge.jpg
robert@3: images/GymHeroes/H-18_Misty.jpg
robert@3: images/GymHeroes/H-19_The_Rockets_Trap.jpg
robert@3: images/GymHeroes/H-1_Blaines_Moltres.jpg
robert@3: images/GymHeroes/H-2_Brocks_Rhydon.jpg
robert@3: images/GymHeroes/H-3_Erikas_Clefable.jpg
robert@3: images/GymHeroes/H-4_Erikas_Dragonair.jpg
robert@3: images/GymHeroes/H-5_Erikas_Vileplume.jpg
robert@3: images/GymHeroes/H-6_Lt_Surges_Electabuzz.jpg
robert@3: images/GymHeroes/H-7_Lt_Surges_Fearow.jpg
robert@3: images/GymHeroes/H-8_Lt_Surges_Magneton.jpg
robert@3: images/GymHeroes/H-9_Mistys_Seadra.jpg);
robert@3: @Jungle = qw(
robert@3: images/Jungle/17_Clefable.jpg
robert@3: images/Jungle/18_Electrode.jpg
robert@3: images/Jungle/19_Flareon.jpg
robert@3: images/Jungle/20_Jolteon.jpg
robert@3: images/Jungle/21_Kangaskhan.jpg
robert@3: images/Jungle/22_Mr_Mime.jpg
robert@3: images/Jungle/23_Nidoqueen.jpg
robert@3: images/Jungle/24_Pidgeot.jpg
robert@3: images/Jungle/25_Pinsir.jpg
robert@3: images/Jungle/26_Scyther.jpg
robert@3: images/Jungle/27_Snorlax.jpg
robert@3: images/Jungle/28_Vaporeon.jpg
robert@3: images/Jungle/29_Venomoth.jpg
robert@3: images/Jungle/30_Victreebel.jpg
robert@3: images/Jungle/31_Vileplume.jpg
robert@3: images/Jungle/32_Wigglytuff.jpg
robert@3: images/Jungle/33_Butterfree.jpg
robert@3: images/Jungle/34_Dodrio.jpg
robert@3: images/Jungle/35_Exeggutor.jpg
robert@3: images/Jungle/36_Fearow.jpg
robert@3: images/Jungle/37_Gloom.jpg
robert@3: images/Jungle/38_Lickitung.jpg
robert@3: images/Jungle/39_Marowak.jpg
robert@3: images/Jungle/40_Nidorina.jpg
robert@3: images/Jungle/41_Parasect.jpg
robert@3: images/Jungle/42_Persian.jpg
robert@3: images/Jungle/43_Primeape.jpg
robert@3: images/Jungle/44_Rapidash.jpg
robert@3: images/Jungle/45_Rhydon.jpg
robert@3: images/Jungle/46_Seaking.jpg
robert@3: images/Jungle/47_Tauros.jpg
robert@3: images/Jungle/48_Weepinbell.jpg
robert@3: images/Jungle/49_Bellsprout.jpg
robert@3: images/Jungle/50_Cubone.jpg
robert@3: images/Jungle/51_Eevee.jpg
robert@3: images/Jungle/52_Exeggcute.jpg
robert@3: images/Jungle/53_Goldeen.jpg
robert@3: images/Jungle/54_Jigglypuff.jpg
robert@3: images/Jungle/55_Mankey.jpg
robert@3: images/Jungle/56_Meowth.jpg
robert@3: images/Jungle/57_Nidoran_F.jpg
robert@3: images/Jungle/58_Oddish.jpg
robert@3: images/Jungle/59_Paras.jpg
robert@3: images/Jungle/60_Pikachu.jpg
robert@3: images/Jungle/61_Rhyhorn.jpg
robert@3: images/Jungle/62_Spearow.jpg
robert@3: images/Jungle/63_Venonat.jpg
robert@3: images/Jungle/64_Poke_Ball.jpg
robert@3: images/Jungle/H-10_Scyther.jpg
robert@3: images/Jungle/H-11_Snorlax.jpg
robert@3: images/Jungle/H-12_Vaporeon.jpg
robert@3: images/Jungle/H-13_Venomoth.jpg
robert@3: images/Jungle/H-14_Victreebel.jpg
robert@3: images/Jungle/H-15_Vileplume.jpg
robert@3: images/Jungle/H-16_Wigglytuff.jpg
robert@3: images/Jungle/H-1_Clefable.jpg
robert@3: images/Jungle/H-2_Electrode.jpg
robert@3: images/Jungle/H-3_Flareon.jpg
robert@3: images/Jungle/H-4_Jolteon.jpg
robert@3: images/Jungle/H-5_Kangaskhan.jpg
robert@3: images/Jungle/H-6_Mr_Mime.jpg
robert@3: images/Jungle/H-7_Nidoqueen.jpg
robert@3: images/Jungle/H-8_Pidgeot.jpg
robert@3: images/Jungle/H-9_Pinsir.jpg);
robert@3: 
robert@3: @Rocket = qw(
robert@3: images/Rocket/18_Dark_Alakazam.jpg
robert@3: images/Rocket/19_Dark_Arbok.jpg
robert@3: images/Rocket/20_Dark_Blastoise.jpg
robert@3: images/Rocket/21_Dark_Charizard.jpg
robert@3: images/Rocket/22_Dark_Dragonite.jpg
robert@3: images/Rocket/23_Dark_Dugtrio.jpg
robert@3: images/Rocket/24_Dark_Golbat.jpg
robert@3: images/Rocket/25_Dark_Gyarados.jpg
robert@3: images/Rocket/26_Dark_Hypno.jpg
robert@3: images/Rocket/27_Dark_Machamp.jpg
robert@3: images/Rocket/28_Dark_Magneton.jpg
robert@3: images/Rocket/29_Dark_Slowbro.jpg
robert@3: images/Rocket/30_Dark_Vileplume.jpg
robert@3: images/Rocket/31_Dark_Weezing.jpg
robert@3: images/Rocket/32_Dark_Charmeleon.jpg
robert@3: images/Rocket/33_Dark_Dragonair.jpg
robert@3: images/Rocket/34_Dark_Electrode.jpg
robert@3: images/Rocket/35_Dark_Flareon.jpg
robert@3: images/Rocket/36_Dark_Gloom.jpg
robert@3: images/Rocket/37_Dark_Golduck.jpg
robert@3: images/Rocket/38_Dark_Jolteon.jpg
robert@3: images/Rocket/39_Dark_Kadabra.jpg
robert@3: images/Rocket/40_Dark_Machoke.jpg
robert@3: images/Rocket/41_Dark_Muk.jpg
robert@3: images/Rocket/42_Dark_Persian.jpg
robert@3: images/Rocket/43_Dark_Primeape.jpg
robert@3: images/Rocket/44_Dark_Rapidash.jpg
robert@3: images/Rocket/45_Dark_Vaporeon.jpg
robert@3: images/Rocket/46_Dark_Wartortle.jpg
robert@3: images/Rocket/47_Magikarp.jpg
robert@3: images/Rocket/48_Porygon.jpg
robert@3: images/Rocket/49_Abra.jpg
robert@3: images/Rocket/50_Charmander.jpg
robert@3: images/Rocket/51_Dark_Raticate.jpg
robert@3: images/Rocket/52_Diglett.jpg
robert@3: images/Rocket/53_Dratini.jpg
robert@3: images/Rocket/54_Drowzee.jpg
robert@3: images/Rocket/55_Eevee.jpg
robert@3: images/Rocket/56_Ekans.jpg
robert@3: images/Rocket/57_Grimer.jpg
robert@3: images/Rocket/58_Koffing.jpg
robert@3: images/Rocket/59_Machop.jpg
robert@3: images/Rocket/60_Magnemite.jpg
robert@3: images/Rocket/61_Mankey.jpg
robert@3: images/Rocket/62_Meowth.jpg
robert@3: images/Rocket/63_Oddish.jpg
robert@3: images/Rocket/64_Ponyta.jpg
robert@3: images/Rocket/65_Psyduck.jpg
robert@3: images/Rocket/66_Rattata.jpg
robert@3: images/Rocket/67_Slowpoke.jpg
robert@3: images/Rocket/68_Squirtle.jpg
robert@3: images/Rocket/69_Voltorb.jpg
robert@3: images/Rocket/70_Zubat.jpg
robert@3: images/Rocket/71_Here_Comes_Team_Rocket.jpg
robert@3: images/Rocket/72_Rockets_Sneak_Attack.jpg
robert@3: images/Rocket/73_The_Bosss_Way.jpg
robert@3: images/Rocket/74_Challenge.jpg
robert@3: images/Rocket/75_Digger.jpg
robert@3: images/Rocket/76_Imposter_Oaks_Revenge.jpg
robert@3: images/Rocket/77_Nightly_Garbage_Run.jpg
robert@3: images/Rocket/78_Goop_Gas_Attack.jpg
robert@3: images/Rocket/79_Sleep.jpg
robert@3: images/Rocket/80_Rainbow_Energy.jpg
robert@3: images/Rocket/81_Full_Heal_Energy.jpg
robert@3: images/Rocket/82_Potion_Energy.jpg
robert@3: images/Rocket/83_Dark_Raichu.jpg
robert@3: images/Rocket/H-10_Dark_Machamp.jpg
robert@3: images/Rocket/H-11_Dark_Magneton.jpg
robert@3: images/Rocket/H-12_Dark_Slowbro.jpg
robert@3: images/Rocket/H-13_Dark_Vileplume.jpg
robert@3: images/Rocket/H-14_Dark_Weezing.jpg
robert@3: images/Rocket/H-15_Here_Comes_Team_Rocket.jpg
robert@3: images/Rocket/H-16_Rockets_Sneak_Attack.jpg
robert@3: images/Rocket/H-17_Rainbow_Energy.jpg
robert@3: images/Rocket/H-1_Dark_Alakazam.jpg
robert@3: images/Rocket/H-2_Dark_Arbok.jpg
robert@3: images/Rocket/H-3_Dark_Blastoise.jpg
robert@3: images/Rocket/H-4_Dark_Charizard.jpg
robert@3: images/Rocket/H-5_Dark_Dragonite.jpg
robert@3: images/Rocket/H-6_Dark_Dugtrio.jpg
robert@3: images/Rocket/H-7_Dark_Golbat.jpg
robert@3: images/Rocket/H-8_Dark_Gyarados.jpg
robert@3: images/Rocket/H-9_Dark_Hypno.jpg);}