Mercurial > boosterpack

annotate PokeScrape.pl @ 3:2e849c856026 boosterpack

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[svn r5] it works!
author robert
date Tue, 08 Sep 2009 05:55:51 -0400
parents d7dd496a4fa6
children e91d6f908222
rev   line source
robert@0 1 use Card;
robert@0 2 use Storable;
robert@3 3 use Filter;
robert@0 4
robert@0 5 open POKE, "<all.dat";
robert@3 6 &doit;
robert@0 7 @allcards = ();
robert@0 8
robert@0 9 for $line(<POKE>)
robert@0 10 {
robert@0 11 $line =~ m/(<img.*?>).*?(<img.*?>).*?/;
robert@0 12
robert@0 13 $img1 = $1;
robert@0 14 $img3 = $2;
robert@0 15 $line =~ m/(<a.*?<\/a>).*?/;
robert@0 16 $img2 = $1;
robert@0 17
robert@0 18
robert@0 19 #<img src="/cdexdata/images/types/w.gif" alt="Water" title="Water" height="17" width="17" class="t">
robert@0 20
robert@0 21 #<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 22
robert@0 23 #<img src="/cdexdata/images/rarities/rare-holo.gif" alt="Rare Holo" title="Rare Holo" width="28" height="16">
robert@0 24
robert@0 25
robert@0 26
robert@0 27
robert@0 28 $img1 =~ m/alt="(.*?)"/;
robert@0 29 $typeTag = $1;
robert@0 30
robert@0 31 $img2 =~ m/\(\#(\d+)\)/;
robert@0 32 $numTag = $1;
robert@0 33 $img2 =~ m/href="(.*?)"/;
robert@0 34 $pix = $1;
robert@0 35 $img2 =~ m/>(.*)</;
robert@0 36 $nameTag = $1;
robert@0 37 $img2 =~ m/from (.*?) \(/;
robert@0 38 $setTag = $1;
robert@0 39
robert@0 40 $img3 =~ m/alt="(.*?)"/;
robert@0 41 $rarityTag = $1;
robert@0 42
robert@0 43
robert@0 44 if ($line =~ m/^<td/)
robert@0 45 {
robert@2 46 print $numTag," ",$nameTag;
robert@0 47 $tempCard = Card->new();
robert@0 48 $tempCard->addTags($typeTag,$numTag,$nameTag,$setTag,$rarityTag);
robert@3 49
robert@3 50 if ($setTag eq "Base Set"){for $t(@Base){if ($t =~ m/$numTag/){ $tempCard->setPix($t);}}}
robert@3 51 if ($setTag eq "Jungle"){for $t(@Jungle){if ($t =~ m/$numTag/){ $tempCard->setPix($t);}}}
robert@3 52 if ($setTag eq "Team Rocket"){for $t(@Rocket){if ($t =~ m/$numTag/){ $tempCard->setPix($t);}}}
robert@3 53 if ($setTag eq "Fossil"){for $t(@Fossil){if ($t =~ m/$numTag/){ $tempCard->setPix($t);}}}
robert@3 54 if ($setTag eq "Gym Challenge"){for $t(@GymChallenge){if ($t =~ m/$numTag/){ $tempCard->setPix($t);}}}
robert@3 55 if ($setTag eq "Gym Heroes"){for $t(@GymHeroes){if ($t =~ m/$numTag/){ $tempCard->setPix($t);}}}
robert@3 56
robert@3 57
robert@3 58
robert@3 59
robert@3 60
robert@2 61 print " $setTag \n";
robert@0 62 push @allcards,$tempCard;
robert@0 63
robert@0 64
robert@0 65 }
robert@0 66
robert@0 67
robert@0 68
robert@0 69 }
robert@0 70
robert@0 71
robert@0 72 store \@allcards, 'CARD.perl';
robert@0 73
robert@0 74
robert@0 75
robert@0 76 my $refnewstruct = retrieve 'CARD.perl';
robert@0 77
robert@0 78
robert@3 79 print @$refnewstruct[0]->getTags();
robert@3 80
robert@3 81
robert@3 82
robert@3 83
robert@3 84
robert@3 85
robert@3 86
robert@3 87
robert@3 88
robert@3 89
robert@3 90
robert@3 91
robert@3 92
robert@3 93 sub doit {
robert@3 94
robert@3 95 @Base = qw(
robert@3 96 images/Base/100_Lightning_Energy.jpg
robert@3 97 images/Base/101_Psychic_Energy.jpg
robert@3 98 images/Base/102_Water_Energy.jpg
robert@3 99 images/Base/17_Beedrill.jpg
robert@3 100 images/Base/18_Dragonair.jpg
robert@3 101 images/Base/19_Dugtrio.jpg
robert@3 102 images/Base/20_Electabuzz.jpg
robert@3 103 images/Base/21_Electrode.jpg
robert@3 104 images/Base/22_Pidgeotto.jpg
robert@3 105 images/Base/23_Arcanine.jpg
robert@3 106 images/Base/24_Charmeleon.jpg
robert@3 107 images/Base/25_Dewgong.jpg
robert@3 108 images/Base/26_Dratini.jpg
robert@3 109 images/Base/27_Farfetchd.jpg
robert@3 110 images/Base/28_Growlithe.jpg
robert@3 111 images/Base/29_Haunter.jpg
robert@3 112 images/Base/30_Ivysaur.jpg
robert@3 113 images/Base/31_Jynx.jpg
robert@3 114 images/Base/32_Kadabra.jpg
robert@3 115 images/Base/33_Kakuna.jpg
robert@3 116 images/Base/34_Machoke.jpg
robert@3 117 images/Base/35_Magikarp.jpg
robert@3 118 images/Base/36_Magmar.jpg
robert@3 119 images/Base/37_Nidorino.jpg
robert@3 120 images/Base/38_Poliwhirl.jpg
robert@3 121 images/Base/39_Porygon.jpg
robert@3 122 images/Base/40_Raticate.jpg
robert@3 123 images/Base/41_Seel.jpg
robert@3 124 images/Base/42_Wartortle.jpg
robert@3 125 images/Base/43_Abra.jpg
robert@3 126 images/Base/44_Bulbasaur.jpg
robert@3 127 images/Base/45_Caterpie.jpg
robert@3 128 images/Base/46_Charmander.jpg
robert@3 129 images/Base/47_Diglett.jpg
robert@3 130 images/Base/48_Doduo.jpg
robert@3 131 images/Base/49_Drowzee.jpg
robert@3 132 images/Base/50_Gastly.jpg
robert@3 133 images/Base/51_Koffing.jpg
robert@3 134 images/Base/52_Machop.jpg
robert@3 135 images/Base/53_Magnemite.jpg
robert@3 136 images/Base/54_Metapod.jpg
robert@3 137 images/Base/55_Nidoran_M.jpg
robert@3 138 images/Base/56_Onix.jpg
robert@3 139 images/Base/57_Pidgey.jpg
robert@3 140 images/Base/58_Pikachu.jpg
robert@3 141 images/Base/59_Poliwag.jpg
robert@3 142 images/Base/60_Ponyta.jpg
robert@3 143 images/Base/61_Rattata.jpg
robert@3 144 images/Base/62_Sandshrew.jpg
robert@3 145 images/Base/63_Squirtle.jpg
robert@3 146 images/Base/64_Starmie.jpg
robert@3 147 images/Base/65_Staryu.jpg
robert@3 148 images/Base/66_Tangela.jpg
robert@3 149 images/Base/67_Voltorb.jpg
robert@3 150 images/Base/68_Vulpix.jpg
robert@3 151 images/Base/69_Weedle.jpg
robert@3 152 images/Base/70_Clefairy_Doll.jpg
robert@3 153 images/Base/71_Computer_Search.jpg
robert@3 154 images/Base/72_Devolution_Spray.jpg
robert@3 155 images/Base/73_Impostor_Professor_Oak.jpg
robert@3 156 images/Base/74_Item_Finder.jpg
robert@3 157 images/Base/75_Lass.jpg
robert@3 158 images/Base/76_Pokemon_Breeder.jpg
robert@3 159 images/Base/77_Pokemon_Trader.jpg
robert@3 160 images/Base/78_Scoop_Up.jpg
robert@3 161 images/Base/79_Super_Energy_Removal.jpg
robert@3 162 images/Base/80_Defender.jpg
robert@3 163 images/Base/81_Energy_Retrieval.jpg
robert@3 164 images/Base/82_Full_Heal.jpg
robert@3 165 images/Base/83_Maintenance.jpg
robert@3 166 images/Base/84_Plus_Power.jpg
robert@3 167 images/Base/85_Pokemon_Center.jpg
robert@3 168 images/Base/86_Pokemon_Flute.jpg
robert@3 169 images/Base/87_Pokedex.jpg
robert@3 170 images/Base/88_Professor_Oak.jpg
robert@3 171 images/Base/89_Revive.jpg
robert@3 172 images/Base/90_Super_Potion.jpg
robert@3 173 images/Base/91_Bill.jpg
robert@3 174 images/Base/92_Energy_Removal.jpg
robert@3 175 images/Base/93_Gust_of_Wind.jpg
robert@3 176 images/Base/94_Potion.jpg
robert@3 177 images/Base/95_Switch.jpg
robert@3 178 images/Base/96_Double_Colorless_Energy.jpg
robert@3 179 images/Base/97_Fighting_Energy.jpg
robert@3 180 images/Base/98_Fire_Energy.jpg
robert@3 181 images/Base/99_Grass_Energy.jpg
robert@3 182 images/Base/H-10_Mewtwo.jpg
robert@3 183 images/Base/H-11_Nidoking.jpg
robert@3 184 images/Base/H-12_Ninetales.jpg
robert@3 185 images/Base/H-13_Poliwrath.jpg
robert@3 186 images/Base/H-14_Raichu.jpg
robert@3 187 images/Base/H-15_Venusaur.jpg
robert@3 188 images/Base/H-16_Zapdos.jpg
robert@3 189 images/Base/H-1_Alakazam.jpg
robert@3 190 images/Base/H-2_Blastoise.jpg
robert@3 191 images/Base/H-3_Chansey.jpg
robert@3 192 images/Base/H-4_Charizard.jpg
robert@3 193 images/Base/H-5_Clefairy.jpg
robert@3 194 images/Base/H-6_Gyarados.jpg
robert@3 195 images/Base/H-7_Hitmonchan.jpg
robert@3 196 images/Base/H-8_Machamp.jpg
robert@3 197 images/Base/H-9_Magneton.jpg);
robert@3 198 @Fossil = qw(
robert@3 199 images/Fossil/16_Aerodactyl.jpg
robert@3 200 images/Fossil/17_Articuno.jpg
robert@3 201 images/Fossil/18_Ditto.jpg
robert@3 202 images/Fossil/19_Dragonite.jpg
robert@3 203 images/Fossil/20_Gengar.jpg
robert@3 204 images/Fossil/21_Haunter.jpg
robert@3 205 images/Fossil/22_Hitmonlee.jpg
robert@3 206 images/Fossil/23_Hypno.jpg
robert@3 207 images/Fossil/24_Kabutops.jpg
robert@3 208 images/Fossil/25_Lapras.jpg
robert@3 209 images/Fossil/26_Magneton.jpg
robert@3 210 images/Fossil/27_Moltres.jpg
robert@3 211 images/Fossil/28_Muk.jpg
robert@3 212 images/Fossil/29_Raichu.jpg
robert@3 213 images/Fossil/30_Zapdos.jpg
robert@3 214 images/Fossil/31_Arbok.jpg
robert@3 215 images/Fossil/32_Cloyster.jpg
robert@3 216 images/Fossil/33_Gastly.jpg
robert@3 217 images/Fossil/34_Golbat.jpg
robert@3 218 images/Fossil/35_Golduck.jpg
robert@3 219 images/Fossil/36_Golem.jpg
robert@3 220 images/Fossil/37_Graveler.jpg
robert@3 221 images/Fossil/38_Kingler.jpg
robert@3 222 images/Fossil/39_Magmar.jpg
robert@3 223 images/Fossil/40_Omastar.jpg
robert@3 224 images/Fossil/41_Sandslash.jpg
robert@3 225 images/Fossil/42_Seadra.jpg
robert@3 226 images/Fossil/43_Slowbro.jpg
robert@3 227 images/Fossil/44_Tentacruel.jpg
robert@3 228 images/Fossil/45_Weezing.jpg
robert@3 229 images/Fossil/46_Ekans.jpg
robert@3 230 images/Fossil/47_Geodude.jpg
robert@3 231 images/Fossil/48_Grimer.jpg
robert@3 232 images/Fossil/49_Horsea.jpg
robert@3 233 images/Fossil/50_Kabuto.jpg
robert@3 234 images/Fossil/51_Krabby.jpg
robert@3 235 images/Fossil/52_Omanyte.jpg
robert@3 236 images/Fossil/53_Psyduck.jpg
robert@3 237 images/Fossil/54_Shellder.jpg
robert@3 238 images/Fossil/55_Slowpoke.jpg
robert@3 239 images/Fossil/56_Tentacool.jpg
robert@3 240 images/Fossil/57_Zubat.jpg
robert@3 241 images/Fossil/58_Mr_Fuji.jpg
robert@3 242 images/Fossil/59_Energy_Search.jpg
robert@3 243 images/Fossil/60_Gambler.jpg
robert@3 244 images/Fossil/61_Recycle.jpg
robert@3 245 images/Fossil/62_Mysterious_Fossil.jpg
robert@3 246 images/Fossil/H-10_Lapras.jpg
robert@3 247 images/Fossil/H-11_Magneton.jpg
robert@3 248 images/Fossil/H-12_Moltres.jpg
robert@3 249 images/Fossil/H-13_Muk.jpg
robert@3 250 images/Fossil/H-14_Raichu.jpg
robert@3 251 images/Fossil/H-15_Zapdos.jpg
robert@3 252 images/Fossil/H-1_Aerodactyl.jpg
robert@3 253 images/Fossil/H-2_Articuno.jpg
robert@3 254 images/Fossil/H-3_Ditto.jpg
robert@3 255 images/Fossil/H-4_Dragonite.jpg
robert@3 256 images/Fossil/H-5_Gengar.jpg
robert@3 257 images/Fossil/H-6_Haunter.jpg
robert@3 258 images/Fossil/H-7_Hitmonlee.jpg
robert@3 259 images/Fossil/H-8_Hypno.jpg
robert@3 260 images/Fossil/H-9_Kabutops.jpg);
robert@3 261 @GymChallenge = qw(
robert@3 262 images/GymChallenge/100_Blaine.jpg
robert@3 263 images/GymChallenge/101_Brocks_Protection.jpg
robert@3 264 images/GymChallenge/102_Chaos_Gym.jpg
robert@3 265 images/GymChallenge/103_Erikas_Kindness.jpg
robert@3 266 images/GymChallenge/104_Giovanni.jpg
robert@3 267 images/GymChallenge/105_Giovannis_Last_Resort.jpg
robert@3 268 images/GymChallenge/106_Koga.jpg
robert@3 269 images/GymChallenge/107_Lt_Surges_Secret_Plan.jpg
robert@3 270 images/GymChallenge/108_Mistys_Wish.jpg
robert@3 271 images/GymChallenge/109_Resistance_Gym.jpg
robert@3 272 images/GymChallenge/110_Sabrina.jpg
robert@3 273 images/GymChallenge/111_Blaines_Quiz_2.jpg
robert@3 274 images/GymChallenge/112_Blaines_Quiz_3.jpg
robert@3 275 images/GymChallenge/113_Cinnabar_City_Gym.jpg
robert@3 276 images/GymChallenge/114_Fuchsia_City_Gym.jpg
robert@3 277 images/GymChallenge/115_Kogas_Ninja_Trick.jpg
robert@3 278 images/GymChallenge/116_Master_Ball.jpg
robert@3 279 images/GymChallenge/117_Max_Revive.jpg
robert@3 280 images/GymChallenge/118_Mistys_Tears.jpg
robert@3 281 images/GymChallenge/119_Rockets_Minefield_Gym.jpg
robert@3 282 images/GymChallenge/120_Rockets_Secret_Experiment.jpg
robert@3 283 images/GymChallenge/121_Sabrinas_Psychic_Control.jpg
robert@3 284 images/GymChallenge/122_Saffron_City_Gym.jpg
robert@3 285 images/GymChallenge/123_Viridian_City_Gym.jpg
robert@3 286 images/GymChallenge/124_Fervor.jpg
robert@3 287 images/GymChallenge/125_Transparent_Walls.jpg
robert@3 288 images/GymChallenge/126_Warp_Point.jpg
robert@3 289 images/GymChallenge/127_Fighting_Energy.jpg
robert@3 290 images/GymChallenge/128_Fire_Energy.jpg
robert@3 291 images/GymChallenge/129_Grass_Energy.jpg
robert@3 292 images/GymChallenge/130_Lightning_Energy.jpg
robert@3 293 images/GymChallenge/131_Psychic_Energy.jpg
robert@3 294 images/GymChallenge/132_Water_Energy.jpg
robert@3 295 images/GymChallenge/21_Blaines_Ninetales.jpg
robert@3 296 images/GymChallenge/22_Brocks_Dugtrio.jpg
robert@3 297 images/GymChallenge/23_Giovannis_Nidoqueen.jpg
robert@3 298 images/GymChallenge/24_Giovannis_Pinsir.jpg
robert@3 299 images/GymChallenge/25_Kogas_Arbok.jpg
robert@3 300 images/GymChallenge/26_Kogas_Muk.jpg
robert@3 301 images/GymChallenge/27_Kogas_Pidgeotto.jpg
robert@3 302 images/GymChallenge/28_Lt_Surges_Jolteon.jpg
robert@3 303 images/GymChallenge/29_Sabrinas_Gengar.jpg
robert@3 304 images/GymChallenge/30_Sabrinas_Golduck.jpg
robert@3 305 images/GymChallenge/31_Blaines_Charmeleon.jpg
robert@3 306 images/GymChallenge/33_Blaines_Rapidash.jpg
robert@3 307 images/GymChallenge/34_Brocks_Graveler.jpg
robert@3 308 images/GymChallenge/35_Brocks_Primape.jpg
robert@3 309 images/GymChallenge/36_Brocks_Sandslash.jpg
robert@3 310 images/GymChallenge/37_Brocks_Vulpix.jpg
robert@3 311 images/GymChallenge/38_Erickas_Bellsprout.jpg
robert@3 312 images/GymChallenge/39_Erickas_Bulbasaur.jpg
robert@3 313 images/GymChallenge/40_Erikas_Clefairy.jpg
robert@3 314 images/GymChallenge/41_Erikas_Ivysaur.jpg
robert@3 315 images/GymChallenge/42_Giovannis_Machoke.jpg
robert@3 316 images/GymChallenge/43_Giovannis_Meowth.jpg
robert@3 317 images/GymChallenge/44_Giovannis_Nidorina.jpg
robert@3 318 images/GymChallenge/45_Giovannis_Nidorino.jpg
robert@3 319 images/GymChallenge/46_Kogas_Golbat.jpg
robert@3 320 images/GymChallenge/47_Kogas_Kakuna.jpg
robert@3 321 images/GymChallenge/48_Kogas_Koffing.jpg
robert@3 322 images/GymChallenge/49_Kogas_Pidgey.jpg
robert@3 323 images/GymChallenge/50_Kogas_Weezing.jpg
robert@3 324 images/GymChallenge/51_Lt_Surges_Eevee.jpg
robert@3 325 images/GymChallenge/52_Lt_Surges_Electrode.jpg
robert@3 326 images/GymChallenge/53_Lt_Surges_Raticate.jpg
robert@3 327 images/GymChallenge/54_Mistys_Dewgong.jpg
robert@3 328 images/GymChallenge/55_Sabrinas_Haunter.jpg
robert@3 329 images/GymChallenge/56_Sabrinas_Hypno.jpg
robert@3 330 images/GymChallenge/57_Sabrinas_Jynx.jpg
robert@3 331 images/GymChallenge/58_Sabrinas_Kadabra.jpg
robert@3 332 images/GymChallenge/59_Sabrinas_Mr_Mime.jpg
robert@3 333 images/GymChallenge/60_Blaines_Charmander.jpg
robert@3 334 images/GymChallenge/61_Blaines_Duduo.jpg
robert@3 335 images/GymChallenge/62_Blaines_Growlithe.jpg
robert@3 336 images/GymChallenge/63_Blaines_Mankey.jpg
robert@3 337 images/GymChallenge/64_Blaines_Ponyta.jpg
robert@3 338 images/GymChallenge/65_Blaines_Rhyhorn.jpg
robert@3 339 images/GymChallenge/66_Blaines_Vulpix.jpg
robert@3 340 images/GymChallenge/67_Brocks_Diglett.jpg
robert@3 341 images/GymChallenge/68_Brocks_Geodude.jpg
robert@3 342 images/GymChallenge/69_Erikas_Jigglypuff.jpg
robert@3 343 images/GymChallenge/70_Erikas_Oddish.jpg
robert@3 344 images/GymChallenge/71_Erikas_Paras.jpg
robert@3 345 images/GymChallenge/72_Giovannis_Machop.jpg
robert@3 346 images/GymChallenge/73_Giovannis_Magikarp.jpg
robert@3 347 images/GymChallenge/74_Giovannis_Meowth.jpg
robert@3 348 images/GymChallenge/75_Giovannis_Nidoran.jpg
robert@3 349 images/GymChallenge/76_Giovannis_Nidoran.jpg
robert@3 350 images/GymChallenge/77_Kogas_Ekans.jpg
robert@3 351 images/GymChallenge/78_Kogas_Grimer.jpg
robert@3 352 images/GymChallenge/79_Kogas_Koffing.jpg
robert@3 353 images/GymChallenge/80_Kogas_Pidgey.jpg
robert@3 354 images/GymChallenge/81_Kogas_Tangela.jpg
robert@3 355 images/GymChallenge/82_Kogas_Weedle.jpg
robert@3 356 images/GymChallenge/83_Kogas_Zubat.jpg
robert@3 357 images/GymChallenge/84_Lt_Surges_Pikachu.jpg
robert@3 358 images/GymChallenge/85_Lt_Surges_Rattata.jpg
robert@3 359 images/GymChallenge/86_Lt_Surges_Voltorb.jpg
robert@3 360 images/GymChallenge/87_Mistys_Horsea.jpg
robert@3 361 images/GymChallenge/88_Mistys_Magikarp.jpg
robert@3 362 images/GymChallenge/89_Mistys_Poliwag.jpg
robert@3 363 images/GymChallenge/90_Mistys_Psyduck.jpg
robert@3 364 images/GymChallenge/91_Mistys_Seel.jpg
robert@3 365 images/GymChallenge/92_Mistys_Staryu.jpg
robert@3 366 images/GymChallenge/93_Sabrinas_Abra.jpg
robert@3 367 images/GymChallenge/94_Sabrinas_Abra.jpg
robert@3 368 images/GymChallenge/95_Sabrinas_Drowzee.jpg
robert@3 369 images/GymChallenge/96_Sabrinas_Gastly.jpg
robert@3 370 images/GymChallenge/97_Sabrinas_Gastly.jpg
robert@3 371 images/GymChallenge/98_Sabrinas_Porygon.jpg
robert@3 372 images/GymChallenge/99_Sabrinas_Psyduck.jpg
robert@3 373 images/GymChallenge/H-10_Kogas_Ditto.jpg
robert@3 374 images/GymChallenge/H-11_Lt_Surges_Raichu.jpg
robert@3 375 images/GymChallenge/H-12_Mistys_Golduck.jpg
robert@3 376 images/GymChallenge/H-13_Mistys_Gyarados.jpg
robert@3 377 images/GymChallenge/H-14_Rockets_Mewtwo.jpg
robert@3 378 images/GymChallenge/H-15_Rockets_Zapdos.jpg
robert@3 379 images/GymChallenge/H-16_Sabrinas_Alakazam.jpg
robert@3 380 images/GymChallenge/H-17_Blaine.jpg
robert@3 381 images/GymChallenge/H-18_Giovanni.jpg
robert@3 382 images/GymChallenge/H-19_Koga.jpg
robert@3 383 images/GymChallenge/H-1_Blaines_Arcanine.jpg
robert@3 384 images/GymChallenge/H-20_Sabrina.jpg
robert@3 385 images/GymChallenge/H-2_Blaines_Charizard.jpg
robert@3 386 images/GymChallenge/H-3_Brocks_Ninetales.jpg
robert@3 387 images/GymChallenge/H-4_Erikas_Venusaur.jpg
robert@3 388 images/GymChallenge/H-5_Giovannis_Gyarados.jpg
robert@3 389 images/GymChallenge/H-6_Giovannis_Machamp.jpg
robert@3 390 images/GymChallenge/H-7_Giovannis_Nidoking.jpg
robert@3 391 images/GymChallenge/H-8_Giovannis_Persian.jpg
robert@3 392 images/GymChallenge/H-9_Kogas_Beedrill.jpg);
robert@3 393 @GymHeroes = qw(
robert@3 394 images/GymHeroes/100_Erika.jpg
robert@3 395 images/GymHeroes/101_Lt_Surge.jpg
robert@3 396 images/GymHeroes/102_Misty.jpg
robert@3 397 images/GymHeroes/103_No_Removal_Gym.jpg
robert@3 398 images/GymHeroes/104_The_Rockets_Training_Gym.jpg
robert@3 399 images/GymHeroes/105_Blaines_Last_Resort.jpg
robert@3 400 images/GymHeroes/106_Brocks_Training_Method.jpg
robert@3 401 images/GymHeroes/107_Celadon_City_Gym.jpg
robert@3 402 images/GymHeroes/108_Cerulean_City_Gym.jpg
robert@3 403 images/GymHeroes/109_Erikas_Maids.jpg
robert@3 404 images/GymHeroes/110_Erikas_Perfume.jpg
robert@3 405 images/GymHeroes/111_Good_Manners.jpg
robert@3 406 images/GymHeroes/112_Lt_Surges_Treaty.jpg
robert@3 407 images/GymHeroes/113_Minion_of_Team_Rocket.jpg
robert@3 408 images/GymHeroes/114_Mistys_Wrath.jpg
robert@3 409 images/GymHeroes/115_Pewter_City_Gym.jpg
robert@3 410 images/GymHeroes/116_Recall.jpg
robert@3 411 images/GymHeroes/117_Sabrinas_ESP.jpg
robert@3 412 images/GymHeroes/118_Secret_Mission.jpg
robert@3 413 images/GymHeroes/119_Tickling_Machine.jpg
robert@3 414 images/GymHeroes/120_Vermilion_City_Gym.jpg
robert@3 415 images/GymHeroes/121_Blaines_Gamble.jpg
robert@3 416 images/GymHeroes/122_Energy_Flow.jpg
robert@3 417 images/GymHeroes/123_Mistys_Duel.jpg
robert@3 418 images/GymHeroes/124_Narrow_Gym.jpg
robert@3 419 images/GymHeroes/125_Sabrinas_Gaze.jpg
robert@3 420 images/GymHeroes/126_Trash_Exchange.jpg
robert@3 421 images/GymHeroes/127_Fighting_Energy.jpg
robert@3 422 images/GymHeroes/128_Fire_Energy.jpg
robert@3 423 images/GymHeroes/129_Grass_Energy.jpg
robert@3 424 images/GymHeroes/130_Lightning_Energy.jpg
robert@3 425 images/GymHeroes/131_Psychic_Energy.jpg
robert@3 426 images/GymHeroes/132_Water_Energy.jpg
robert@3 427 images/GymHeroes/20_Brocks_Golem.jpg
robert@3 428 images/GymHeroes/21_Brocks_Onix.jpg
robert@3 429 images/GymHeroes/22_Brocks_Rhyhorn.jpg
robert@3 430 images/GymHeroes/23_Brocks_Sandslash.jpg
robert@3 431 images/GymHeroes/24_Brocks_Zubat.jpg
robert@3 432 images/GymHeroes/25_Erikas_Clefairy.jpg
robert@3 433 images/GymHeroes/26_Erikas_Victreebel.jpg
robert@3 434 images/GymHeroes/27_Lt_Surges_Electabuzz.jpg
robert@3 435 images/GymHeroes/28_Lt_Surges_Raichu.jpg
robert@3 436 images/GymHeroes/29_Mistys_Cloyster.jpg
robert@3 437 images/GymHeroes/30_Mistys_Goldeen.jpg
robert@3 438 images/GymHeroes/31_Mistys_Poliwrath.jpg
robert@3 439 images/GymHeroes/32_Mistys_Tentacool.jpg
robert@3 440 images/GymHeroes/33_Rockets_Snorlax.jpg
robert@3 441 images/GymHeroes/34_Sabrinas_Venomoth.jpg
robert@3 442 images/GymHeroes/35_Blaines_Growlithe.jpg
robert@3 443 images/GymHeroes/36_Blaines_Kangaskhan.jpg
robert@3 444 images/GymHeroes/37_Blaines_Magmar.jpg
robert@3 445 images/GymHeroes/38_Brocks_Geodude.jpg
robert@3 446 images/GymHeroes/39_Brocks_Golbat.jpg
robert@3 447 images/GymHeroes/40_Brocks_Graveler.jpg
robert@3 448 images/GymHeroes/41_Brocks_Lickitung.jpg
robert@3 449 images/GymHeroes/42_Erikas_Dratini.jpg
robert@3 450 images/GymHeroes/43_Erikas_Exeggcute.jpg
robert@3 451 images/GymHeroes/44_Erikas_Exeggutor.jpg
robert@3 452 images/GymHeroes/45_Erikas_Gloom.jpg
robert@3 453 images/GymHeroes/46_Erikas_Gloom.jpg
robert@3 454 images/GymHeroes/47_Erikas_Oddish.jpg
robert@3 455 images/GymHeroes/48_Erikas_Weepinbell.jpg
robert@3 456 images/GymHeroes/49_Erikas_Weepinbell.jpg
robert@3 457 images/GymHeroes/50_Lt_Surges_Magnemite.jpg
robert@3 458 images/GymHeroes/51_Lt_Surges_Raticate.jpg
robert@3 459 images/GymHeroes/52_Lt_Surges_Spearow.jpg
robert@3 460 images/GymHeroes/53_Mistys_Poliwhirl.jpg
robert@3 461 images/GymHeroes/54_Mistys_Psyduck.jpg
robert@3 462 images/GymHeroes/55_Mistys_Seaking.jpg
robert@3 463 images/GymHeroes/56_Mistys_Starmie.jpg
robert@3 464 images/GymHeroes/57_Mistys_Tentacool.jpg
robert@3 465 images/GymHeroes/58_Sabrinas_Haunter.jpg
robert@3 466 images/GymHeroes/59_Sabrinas_Jynx.jpg
robert@3 467 images/GymHeroes/60_Sabrinas_Slowbro.jpg
robert@3 468 images/GymHeroes/61_Blaines_Charmander.jpg
robert@3 469 images/GymHeroes/62_Blaines_Growlithe.jpg
robert@3 470 images/GymHeroes/63_Blaines_Ponyta.jpg
robert@3 471 images/GymHeroes/64_Blaines_Tauros.jpg
robert@3 472 images/GymHeroes/65_Blaines_Vulpix.jpg
robert@3 473 images/GymHeroes/66_Brocks_Geodude.jpg
robert@3 474 images/GymHeroes/67_Brocks_Mankey.jpg
robert@3 475 images/GymHeroes/68_Brocks_Mankey.jpg
robert@3 476 images/GymHeroes/69_Brocks_Onix.jpg
robert@3 477 images/GymHeroes/70_Brocks_Rhyhorn.jpg
robert@3 478 images/GymHeroes/71_Brocks_Sandshrew.jpg
robert@3 479 images/GymHeroes/72_Brocks_Sandshrew.jpg
robert@3 480 images/GymHeroes/73_Brocks_Vulpix.jpg
robert@3 481 images/GymHeroes/74_Brocks_Zubat.jpg
robert@3 482 images/GymHeroes/75_Erikas_Bellsprout.jpg
robert@3 483 images/GymHeroes/76_Erikas_Bellsprout.jpg
robert@3 484 images/GymHeroes/77_Erikas_Exeggcute.jpg
robert@3 485 images/GymHeroes/78_Erikas_Oddish.jpg
robert@3 486 images/GymHeroes/79_Erikas_Tangela.jpg
robert@3 487 images/GymHeroes/80_Lt_Surges_Magnemite.jpg
robert@3 488 images/GymHeroes/81_Lt_Surges_Pikachu.jpg
robert@3 489 images/GymHeroes/82_Lt_Surges_Rattata.jpg
robert@3 490 images/GymHeroes/83_Lt_Surges_Spearow.jpg
robert@3 491 images/GymHeroes/84_Lt_Surges_Voltorb.jpg
robert@3 492 images/GymHeroes/85_Mistys_Goldeen.jpg
robert@3 493 images/GymHeroes/86_Mistys_Horsea.jpg
robert@3 494 images/GymHeroes/87_Mistys_Poliwag.jpg
robert@3 495 images/GymHeroes/88_Mistys_Seel.jpg
robert@3 496 images/GymHeroes/89_Mistys_Shellder.jpg
robert@3 497 images/GymHeroes/90_Mistys_Staryu.jpg
robert@3 498 images/GymHeroes/91_Sabrinas_Abra.jpg
robert@3 499 images/GymHeroes/92_Sabrinas_Drowzee.jpg
robert@3 500 images/GymHeroes/93_Sabrinas_Gastly.jpg
robert@3 501 images/GymHeroes/94_Sabrinas_Mr_Mime.jpg
robert@3 502 images/GymHeroes/95_Sabrinas_Slowpoke.jpg
robert@3 503 images/GymHeroes/96_Sabrinas_Venonat.jpg
robert@3 504 images/GymHeroes/97_Blaines_Quiz_1.jpg
robert@3 505 images/GymHeroes/98_Brock.jpg
robert@3 506 images/GymHeroes/99_Charity.jpg
robert@3 507 images/GymHeroes/H-10_Mistys_Tentacruel.jpg
robert@3 508 images/GymHeroes/H-11_Rockets_Hitmonchan.jpg
robert@3 509 images/GymHeroes/H-12_Rockets_Moltres.jpg
robert@3 510 images/GymHeroes/H-13_Rockets_Scyther.jpg
robert@3 511 images/GymHeroes/H-14_Sabrinas_Gengar.jpg
robert@3 512 images/GymHeroes/H-15_Brock.jpg
robert@3 513 images/GymHeroes/H-16_Erika.jpg
robert@3 514 images/GymHeroes/H-17_Lt_Surge.jpg
robert@3 515 images/GymHeroes/H-18_Misty.jpg
robert@3 516 images/GymHeroes/H-19_The_Rockets_Trap.jpg
robert@3 517 images/GymHeroes/H-1_Blaines_Moltres.jpg
robert@3 518 images/GymHeroes/H-2_Brocks_Rhydon.jpg
robert@3 519 images/GymHeroes/H-3_Erikas_Clefable.jpg
robert@3 520 images/GymHeroes/H-4_Erikas_Dragonair.jpg
robert@3 521 images/GymHeroes/H-5_Erikas_Vileplume.jpg
robert@3 522 images/GymHeroes/H-6_Lt_Surges_Electabuzz.jpg
robert@3 523 images/GymHeroes/H-7_Lt_Surges_Fearow.jpg
robert@3 524 images/GymHeroes/H-8_Lt_Surges_Magneton.jpg
robert@3 525 images/GymHeroes/H-9_Mistys_Seadra.jpg);
robert@3 526 @Jungle = qw(
robert@3 527 images/Jungle/17_Clefable.jpg
robert@3 528 images/Jungle/18_Electrode.jpg
robert@3 529 images/Jungle/19_Flareon.jpg
robert@3 530 images/Jungle/20_Jolteon.jpg
robert@3 531 images/Jungle/21_Kangaskhan.jpg
robert@3 532 images/Jungle/22_Mr_Mime.jpg
robert@3 533 images/Jungle/23_Nidoqueen.jpg
robert@3 534 images/Jungle/24_Pidgeot.jpg
robert@3 535 images/Jungle/25_Pinsir.jpg
robert@3 536 images/Jungle/26_Scyther.jpg
robert@3 537 images/Jungle/27_Snorlax.jpg
robert@3 538 images/Jungle/28_Vaporeon.jpg
robert@3 539 images/Jungle/29_Venomoth.jpg
robert@3 540 images/Jungle/30_Victreebel.jpg
robert@3 541 images/Jungle/31_Vileplume.jpg
robert@3 542 images/Jungle/32_Wigglytuff.jpg
robert@3 543 images/Jungle/33_Butterfree.jpg
robert@3 544 images/Jungle/34_Dodrio.jpg
robert@3 545 images/Jungle/35_Exeggutor.jpg
robert@3 546 images/Jungle/36_Fearow.jpg
robert@3 547 images/Jungle/37_Gloom.jpg
robert@3 548 images/Jungle/38_Lickitung.jpg
robert@3 549 images/Jungle/39_Marowak.jpg
robert@3 550 images/Jungle/40_Nidorina.jpg
robert@3 551 images/Jungle/41_Parasect.jpg
robert@3 552 images/Jungle/42_Persian.jpg
robert@3 553 images/Jungle/43_Primeape.jpg
robert@3 554 images/Jungle/44_Rapidash.jpg
robert@3 555 images/Jungle/45_Rhydon.jpg
robert@3 556 images/Jungle/46_Seaking.jpg
robert@3 557 images/Jungle/47_Tauros.jpg
robert@3 558 images/Jungle/48_Weepinbell.jpg
robert@3 559 images/Jungle/49_Bellsprout.jpg
robert@3 560 images/Jungle/50_Cubone.jpg
robert@3 561 images/Jungle/51_Eevee.jpg
robert@3 562 images/Jungle/52_Exeggcute.jpg
robert@3 563 images/Jungle/53_Goldeen.jpg
robert@3 564 images/Jungle/54_Jigglypuff.jpg
robert@3 565 images/Jungle/55_Mankey.jpg
robert@3 566 images/Jungle/56_Meowth.jpg
robert@3 567 images/Jungle/57_Nidoran_F.jpg
robert@3 568 images/Jungle/58_Oddish.jpg
robert@3 569 images/Jungle/59_Paras.jpg
robert@3 570 images/Jungle/60_Pikachu.jpg
robert@3 571 images/Jungle/61_Rhyhorn.jpg
robert@3 572 images/Jungle/62_Spearow.jpg
robert@3 573 images/Jungle/63_Venonat.jpg
robert@3 574 images/Jungle/64_Poke_Ball.jpg
robert@3 575 images/Jungle/H-10_Scyther.jpg
robert@3 576 images/Jungle/H-11_Snorlax.jpg
robert@3 577 images/Jungle/H-12_Vaporeon.jpg
robert@3 578 images/Jungle/H-13_Venomoth.jpg
robert@3 579 images/Jungle/H-14_Victreebel.jpg
robert@3 580 images/Jungle/H-15_Vileplume.jpg
robert@3 581 images/Jungle/H-16_Wigglytuff.jpg
robert@3 582 images/Jungle/H-1_Clefable.jpg
robert@3 583 images/Jungle/H-2_Electrode.jpg
robert@3 584 images/Jungle/H-3_Flareon.jpg
robert@3 585 images/Jungle/H-4_Jolteon.jpg
robert@3 586 images/Jungle/H-5_Kangaskhan.jpg
robert@3 587 images/Jungle/H-6_Mr_Mime.jpg
robert@3 588 images/Jungle/H-7_Nidoqueen.jpg
robert@3 589 images/Jungle/H-8_Pidgeot.jpg
robert@3 590 images/Jungle/H-9_Pinsir.jpg);
robert@3 591
robert@3 592 @Rocket = qw(
robert@3 593 images/Rocket/18_Dark_Alakazam.jpg
robert@3 594 images/Rocket/19_Dark_Arbok.jpg
robert@3 595 images/Rocket/20_Dark_Blastoise.jpg
robert@3 596 images/Rocket/21_Dark_Charizard.jpg
robert@3 597 images/Rocket/22_Dark_Dragonite.jpg
robert@3 598 images/Rocket/23_Dark_Dugtrio.jpg
robert@3 599 images/Rocket/24_Dark_Golbat.jpg
robert@3 600 images/Rocket/25_Dark_Gyarados.jpg
robert@3 601 images/Rocket/26_Dark_Hypno.jpg
robert@3 602 images/Rocket/27_Dark_Machamp.jpg
robert@3 603 images/Rocket/28_Dark_Magneton.jpg
robert@3 604 images/Rocket/29_Dark_Slowbro.jpg
robert@3 605 images/Rocket/30_Dark_Vileplume.jpg
robert@3 606 images/Rocket/31_Dark_Weezing.jpg
robert@3 607 images/Rocket/32_Dark_Charmeleon.jpg
robert@3 608 images/Rocket/33_Dark_Dragonair.jpg
robert@3 609 images/Rocket/34_Dark_Electrode.jpg
robert@3 610 images/Rocket/35_Dark_Flareon.jpg
robert@3 611 images/Rocket/36_Dark_Gloom.jpg
robert@3 612 images/Rocket/37_Dark_Golduck.jpg
robert@3 613 images/Rocket/38_Dark_Jolteon.jpg
robert@3 614 images/Rocket/39_Dark_Kadabra.jpg
robert@3 615 images/Rocket/40_Dark_Machoke.jpg
robert@3 616 images/Rocket/41_Dark_Muk.jpg
robert@3 617 images/Rocket/42_Dark_Persian.jpg
robert@3 618 images/Rocket/43_Dark_Primeape.jpg
robert@3 619 images/Rocket/44_Dark_Rapidash.jpg
robert@3 620 images/Rocket/45_Dark_Vaporeon.jpg
robert@3 621 images/Rocket/46_Dark_Wartortle.jpg
robert@3 622 images/Rocket/47_Magikarp.jpg
robert@3 623 images/Rocket/48_Porygon.jpg
robert@3 624 images/Rocket/49_Abra.jpg
robert@3 625 images/Rocket/50_Charmander.jpg
robert@3 626 images/Rocket/51_Dark_Raticate.jpg
robert@3 627 images/Rocket/52_Diglett.jpg
robert@3 628 images/Rocket/53_Dratini.jpg
robert@3 629 images/Rocket/54_Drowzee.jpg
robert@3 630 images/Rocket/55_Eevee.jpg
robert@3 631 images/Rocket/56_Ekans.jpg
robert@3 632 images/Rocket/57_Grimer.jpg
robert@3 633 images/Rocket/58_Koffing.jpg
robert@3 634 images/Rocket/59_Machop.jpg
robert@3 635 images/Rocket/60_Magnemite.jpg
robert@3 636 images/Rocket/61_Mankey.jpg
robert@3 637 images/Rocket/62_Meowth.jpg
robert@3 638 images/Rocket/63_Oddish.jpg
robert@3 639 images/Rocket/64_Ponyta.jpg
robert@3 640 images/Rocket/65_Psyduck.jpg
robert@3 641 images/Rocket/66_Rattata.jpg
robert@3 642 images/Rocket/67_Slowpoke.jpg
robert@3 643 images/Rocket/68_Squirtle.jpg
robert@3 644 images/Rocket/69_Voltorb.jpg
robert@3 645 images/Rocket/70_Zubat.jpg
robert@3 646 images/Rocket/71_Here_Comes_Team_Rocket.jpg
robert@3 647 images/Rocket/72_Rockets_Sneak_Attack.jpg
robert@3 648 images/Rocket/73_The_Bosss_Way.jpg
robert@3 649 images/Rocket/74_Challenge.jpg
robert@3 650 images/Rocket/75_Digger.jpg
robert@3 651 images/Rocket/76_Imposter_Oaks_Revenge.jpg
robert@3 652 images/Rocket/77_Nightly_Garbage_Run.jpg
robert@3 653 images/Rocket/78_Goop_Gas_Attack.jpg
robert@3 654 images/Rocket/79_Sleep.jpg
robert@3 655 images/Rocket/80_Rainbow_Energy.jpg
robert@3 656 images/Rocket/81_Full_Heal_Energy.jpg
robert@3 657 images/Rocket/82_Potion_Energy.jpg
robert@3 658 images/Rocket/83_Dark_Raichu.jpg
robert@3 659 images/Rocket/H-10_Dark_Machamp.jpg
robert@3 660 images/Rocket/H-11_Dark_Magneton.jpg
robert@3 661 images/Rocket/H-12_Dark_Slowbro.jpg
robert@3 662 images/Rocket/H-13_Dark_Vileplume.jpg
robert@3 663 images/Rocket/H-14_Dark_Weezing.jpg
robert@3 664 images/Rocket/H-15_Here_Comes_Team_Rocket.jpg
robert@3 665 images/Rocket/H-16_Rockets_Sneak_Attack.jpg
robert@3 666 images/Rocket/H-17_Rainbow_Energy.jpg
robert@3 667 images/Rocket/H-1_Dark_Alakazam.jpg
robert@3 668 images/Rocket/H-2_Dark_Arbok.jpg
robert@3 669 images/Rocket/H-3_Dark_Blastoise.jpg
robert@3 670 images/Rocket/H-4_Dark_Charizard.jpg
robert@3 671 images/Rocket/H-5_Dark_Dragonite.jpg
robert@3 672 images/Rocket/H-6_Dark_Dugtrio.jpg
robert@3 673 images/Rocket/H-7_Dark_Golbat.jpg
robert@3 674 images/Rocket/H-8_Dark_Gyarados.jpg
robert@3 675 images/Rocket/H-9_Dark_Hypno.jpg);}