#!/usr/local/bin/perl
# version 2.021016, coded by MrRat - http://www.mrrat.com, GPL licensed - http://www.opensource.org/licenses/gpl-license.html
# you can make a donation at http://s1.amazon.com/exec/varzea/pay/T3M26803DZOCMK
# This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details.
#
# Check the perl line at the top and make sure it points to the proper location.
# Place this cgi in your cgi-bin directory and make it executable (chmod 755).
# display games from Freewebgames.com?
$display_freewebgames = "yes";
# display games from Kewlbox.com?
$display_kewlbox = "yes";
#
# don't monkey with anything below here unless you know PERL
%freeweb_games = (
"Crate Man Jr." => [qq||, qq|Help Curtis the Crate Man reach the red crates in each room.|],
"Dog Bones" => [qq||, qq|Can you help Rover find his 5 bones?|],
"Desk Drop Jr." => [qq||, qq|Match the falling objects and elimate the rows.|],
"Find TheWord" => [qq||, qq|See if you can find all the words in a 16x16 matrix of letters.|],
"Palace Guard Jigsaw Puzzle" => [qq||, qq|Be the fastest on the Internet as you put together the Palace Guards.|],
"Roman Coliseum Jigsaw Puzzle" => [qq||, qq|Put together the Coliseum faster then anyone else on the Internet.|],
"Pic-N-Pair People" => [qq||, qq|Race against the clock as you try to match the correct pair.|],
"Pic-N-Pair Sports" => [qq||, qq|Match the names of the athletes asscociated with their correct sport.|],
"Pic-N-Pair World Capitals" => [qq||, qq|Race to match the capitals with the country.|],
"Raku Jr." => [qq||, qq|Flip all the tiles back to blue in a few moves as possible.|],
"Robix" => [qq||, qq|Get your 10 marbles to the bottom before the computer.|],
"The Shell Game" => [qq||, qq|Guess which cup the ball is under.|],
"Calorie Kids Space Run Game" => [qq||, qq|Avoid the meteors while you pick-up the floating Calorie Kids.|],
"Thesaurus Tangle Jr." => [qq||, qq|Unscramble the mystery synonym relating to a word.|],
"Topic Tangle Jr." => [qq||, qq|Race the clock as you unscramble words related to a topic.|],
);
%kewlbox_games = (
"Braving the Elements" => [qq||, qq|You must help Bob make it through the city, climbing stairs, dodging slippery ice, and jumping from building to building.|],
"Burning Rubber" => [qq||, qq|This Swappers puzzle game features some awesome images from the IRL Racing Team, Treadway-Hubbard.|],
"Chef Toss" => [qq||, qq|It’s grillin’ time! Wow everyone with your amazing grill flipping techniques.|],
"Cookie Crumbler" => [qq||, qq|If you love cookies, here is another great puzzler - but we can't guarantee that your mouth won't be watering and your stomach won't be growling after playing this new Swappers game.|],
"Dallas Burn Swappers Game" => [qq||, qq|See how fast you can keep up with these soccer pros. This Swappers puzzle game features some awesome images from the MLS team, Dallas Burn.|],
"Frendz" => [qq||, qq|Frendz are loveable little aliens who enjoy the company of others. In this fun game of strategy, you control the Blue Frendz while the computer controls the Red Frendz.|],
"Furious George in the Missing Link" => [qq||, qq|Researchers from around the world think they have found the Missing Link. One likes pinto beans and bar-b-q, the other digs bananas and flinging poo.|],
"Holiday Endurance" => [qq||, qq|Give 'em what they want, when they want it and get 'em out of the house before Mother’s holiday dinner hits the table.|],
"Santa Balls" => [qq||, qq|Elves, who are attracted to bright, shiny objects, created this game of ball swapping and busting.|],
"Santa Balls 2" => [qq||, qq|Bigger game board, bouncier balls and Oliver the Elf is bolder than ever! There are all kinds of surprises, crazy ball juggling action, plus a special guest appearance from Frank the Penguin.|],
"Sketchy!" => [qq||, qq|Sketchy! is your ticket to extreme sledding, extreme wax tracks, and a hot dog stand that will bust your kid bro's bib suit.|],
"Star Wars Swappers: Villains" => [qq||, qq|This Swappers puzzle game features fathers and cloned sons, masters and apprentices and the most evil of them all, Darth Vader.|],
"Trouble Bubbles" => [qq||, qq|Your job is to arrange 'em, drop 'em, and pop 'em for points as you listen to some groovtastic mad beats ripped up by our very own, in-house DJ Arthur.|],
"TV Nuts" => [qq||, qq|Every time they watch their favorite channels, they find themselves in a game where they must catch prizes falling from the sky.|],
"Viva Los Straitjackets" => [qq||, qq|Armed with their mystical masks and killer guitar licks to protect them, Los Straitjackets must save the day by stopping the possessed jewels from multiplying like mad.|],
);
if ($ENV{'QUERY_STRING'}) {
get_url_input();
$title = "$FORM{name}";
$hash = $FORM{provider} . "_games";
$html .= "${$hash}{$FORM{name}}[0]";
$html .= qq[ Shockwave Games Menu ];
} else {
$title = "Shockwave Games";
if ($display_freewebgames eq "yes") {
$html .= qq[games provided by Free-Web-Games.com