#!/usr/bin/perl
#############################
# eMineSweeper #
######################################################
# By: Po-Han Lin #
# pohanl@hotmail.com #
# http://edepot.com #
# #
# This script freely distributable and installable #
# on the condition that the entire script is intact. #
# You may NOT modify it with the exception of the #
# "domain name line" and "location of perl line" #
# to make it work on your server. #
# (credit info located here and at the footer when #
# this script is executed must not be modifed or #
# removed) #
# #
######################################################
use strict;
# This is the only line you need to modify...
# Change the line to reflect the domain and location where you
# put this script on your server.
my($theurl)="http://YourDomainName/cgi-bin/minesweeper.pl";
##########################################################################
################## Do Not Modify Anything Below This Line ################
##########################################################################
my($markedbomb,$time_start,$Row,$Col,$theRow,$theCol,@Mine,@Sweep,$end,$total,$temp,$y,$x,$count,$in,@in,%in);
my($i, $loc, $key, $val);
if ($ENV{'REQUEST_METHOD'} eq "POST") {
read(STDIN,$in,$ENV{'CONTENT_LENGTH'});
}
@in = split(/&/,$in);
foreach $i (0 .. $#in) {
$in[$i] =~ s/\+/ /g;
($key, $val) = split(/=/,$in[$i],2); # splits on the first =.
$key =~ s/%(..)/pack("c",hex($1))/ge;
$val =~ s/%(..)/pack("c",hex($1))/ge;
$in{$key} .= "\0" if (defined($in{$key})); # \0 is the multiple separator
$in{$key} .= $val;
}
my(%colorCodes)=(1,"blue",2,"darkgreen",3,"red",4,"darkblue",5,"brown",6,"green",7,"black",8,"gray","X","red");
my(%buttonSymbols)=(0,".",1,"",2,"*",3,"?",4," ");
print "Content-type: text/html\n\n";
if ($in{'TS'}) {
$time_start=$in{'TS'};
}
print "eMineSweeper";
print "
eMineSweeper";
if (!defined $in{'G'}) {$in{'G'}=1;}
if ($in{'best'}) {
&showTimes();
exit;
}
if ($in{'G'} eq "1") {
$total=$in{'RS'}*$in{'CS'};
$time_start=time();
$in{'GO'}=0;
if (($in{'RS'}<9)){ $in{'RS'}=9; }
if (($in{'RS'}>24)){ $in{'RS'}=24; }
if (($in{'CS'}<9)){ $in{'CS'}=9; }
if (($in{'CS'}>30)){ $in{'CS'}=30; }
if ($in{'TotalMines'}<10) {$in{'TotalMines'}=10;}
if ($in{'TotalMines'}>$in{'CS'}*$in{'RS'}) {$in{'TotalMines'}=($in{'CS'}-1)*($in{'RS'}-1); }
$count=0;
while ($count<$in{'TotalMines'}) {
$Row=1+int(rand($in{'RS'}));
$Col=1+int (rand($in{'CS'}));
if ($Mine[$Row][$Col] ne "9") {
$Mine[$Row][$Col]="9";
$count++;
}
}
for ($Row=1;$Row<=$in{'RS'};$Row++) {
for ($Col=1;$Col<=$in{'CS'};$Col++) {
$Sweep[$Row][$Col]="0";
$count=0;
for ($y=-1; $y<=1; $y++) {
for ($x=-1; $x<=1; $x++) {
if ($Mine[$Row+$y][$Col+$x] eq "9") { $count++; }
}
}
if ($Mine[$Row][$Col] ne "9") {
$Mine[$Row][$Col]=$count;
}
}
}
} else {
$total=$in{'RS'}*$in{'CS'};
$markedbomb=0;
my($tempMines);
$tempMines=$in{'Map'};
$Col=1;
$Row=1;
my($theSubmit);
while ($tempMines =~ /M([\d|\+|X]+)S([\d]+)/g) {
$Mine[$Row][$Col]=$1;
$Sweep[$Row][$Col]=$2;
if ($2==1) {--$total;}
elsif ($2==2) {++$markedbomb;}
if ($1 eq "X") {++$markedbomb;}
$temp="s".($Row*($in{'CS'}+1)+$Col);
if ($in{$temp}) {
$theRow=$Row;
$theCol=$Col;
$theSubmit=$in{$temp};
}
$Col++;
if ($Col == $in{'CS'}+1) {
++$Row;
$Col=1;
}
}
$end=0;
if ($theSubmit && (! defined $in{'GO'})) {
if ($in{'TP'} eq "Unmark"){
if ($theSubmit eq "*" ||$theSubmit eq "?") {
$Sweep[$theRow][$theCol]=0;
if ($theSubmit eq "*") {
$markedbomb--;
}
}
}elsif ($in{'TP'} eq "Mark Mine"){
if ($theSubmit eq "." ||$theSubmit eq "?") {
$Sweep[$theRow][$theCol]=2;
$markedbomb++;
}
}elsif ($in{'TP'} eq "Mark ?"){
if ($theSubmit eq "." ||$theSubmit eq "*") {
$Sweep[$theRow][$theCol]=3;
if ($theSubmit eq "*") {
$markedbomb--;
}
}
}else {
if ($theSubmit eq "."|| $theSubmit eq "?" ) {
--$total;
if ($Mine[$theRow][$theCol] ne "9") {
$Sweep[$theRow][$theCol]=1;
if ($Mine[$theRow][$theCol] eq "0") {
&clearArea($theRow,$theCol);
}
} else { $end=1; }
}
}
}
if ($end==1) {
$time_start=time()-$time_start;
$in{'GO'}=1;
for ($y=1;$y<=$in{'RS'};$y++) {
for ($x=1;$x<=$in{'CS'};$x++) {
if ($Mine[$y][$x] eq "9") {
if ($Sweep[$y][$x]==2) {
}else {
$Sweep[$y][$x]=1;
}
} else {
if ($Sweep[$y][$x]==2) {
$Sweep[$y][$x]=1;
$Mine[$y][$x]="X";
}
}
if ($Sweep[$y][$x]==0) {$Sweep[$y][$x]=4;}
}
}
}
if (($total==$in{'TotalMines'})&&($end!=1)&&(! defined $in{'GO'})) {
$time_start=time()-$time_start;
$in{'GO'}=2;
for ($y=1;$y<=$in{'RS'};$y++) {
for ($x=1;$x<=$in{'CS'};$x++) {
if (($Mine[$y][$x] eq "9")&&($Sweep[$y][$x]!=2)) {
$Sweep[$y][$x]=2;
++$markedbomb;
}
}
}
#####
}
}
print "
";
print "Like this program? Help support my efforts by registering. In addition, support for high scores is available in the registered version ";
print "only. Scores will be stored at an external server. Your ";
print "registration fee will go towards paying for the upkeep and ";
print "maintenance of this server. To register, Click:";
print " ";
&continueButton("OK","0");
print "
";
print "
";
print "
";
}
sub generateString {
my($theString)="";
for ($Row=1;$Row<=$in{'RS'};$Row++) {
for ($Col=1;$Col<=$in{'CS'};$Col++) {
$theString .= "M".$Mine[$Row][$Col];
$theString .= "S".$Sweep[$Row][$Col];
}
}
return $theString;
}
sub clearArea {
my($theRow,$theCol)=@_;
my(@markforclear);
my($tmpi,$tmpj);
$Mine[$theRow][$theCol]="+";
for ($tmpi=-1; $tmpi<=1; $tmpi++) {
for ($tmpj=-1; $tmpj<=1; $tmpj++) {
if (defined $Mine[$theRow+$tmpi][$theCol+$tmpj]) {
if ($Sweep[$theRow+$tmpi][$theCol+$tmpj]!=1) {
if ($Sweep[$theRow+$tmpi][$theCol+$tmpj]!=2) {
$Sweep[$theRow+$tmpi][$theCol+$tmpj]=1;
--$total;
}
}
if ($Mine[$theRow+$tmpi][$theCol+$tmpj] eq "0") {
&clearArea($theRow+$tmpi,$theCol+$tmpj);
}
}
}
}
}
sub newGameButton {
my($hidden,$rows,$cols,$mines,$label)=@_;
print " ";
}
sub continueButton {
my($label,$condition)=@_;
print " ";
}
![\"Make](\"http://images.paypal.com/images/x-click-but6.gif\")