<?php

	set_time_limit(600);

	header("content-type: image/png");
	header('cache-control: no-cache');
	header('pragma: no-cache');
	
	include_once("functions.inc.php");
	
	$mazeWidth = ($_GET[mw]!=null) ? $_GET[mw] : (($_GET[a]!=null) ? $_GET[a] : 90);
	$mazeHeight = ($_GET[mh]!=null) ? $_GET[mh] : (($_GET[b]!=null) ? $_GET[b] : 126);
	$cellWidth = ($_GET[cw]!=null) ? $_GET[cw] : (($_GET[c]!=null) ? $_GET[c] : 10);
	$cellHeight = ($_GET[ch]!=null) ? $_GET[ch] : (($_GET[d]!=null) ? $_GET[d] : 10);
	$bgcol = ($_GET[bg]!=null) ? $_GET[bg] : (($_GET[e]!=null) ? $_GET[e] : "FFFFFF");
	if (preg_match("/^(([0-9a-fA-F]{3}){1,2}$)||transparent/",$bgcol)!=1) $bgcol = "FFFFFF";
	$fgcol = ($_GET[fg]!=null) ? $_GET[fg] : (($_GET[f]!=null) ? $_GET[f] : "000000");
	if (preg_match("/^(([0-9a-fA-F]{3}){1,2}$)||transparent/",$fgcol)!=1) $fgcol = "000000";
	$path = (($_GET[pa]!=null && $_GET[pa]!="0") || ($_GET[g]!=null && $_GET[g]!="0"));
	$pacol = ($_GET[pc]!=null) ? $_GET[pc] : (($_GET[h]!=null) ? $_GET[h] : "FF0000");
	if (preg_match("/^(([0-9a-fA-F]{3}){1,2}$)||transparent/",$pacol)!=1) $pacol = "000000";
	
	$imageWidth = ($mazeWidth+2)*$cellWidth-1;
	$imageHeight = ($mazeHeight+2)*$cellHeight-1;
	
	$img = imagecreatetruecolor($imageWidth,$imageHeight);
	
	$transparent = imagecolorallocate($img,189,76,219); // Bad
	imagecolortransparent($img,$transparent);
	
	if ($bgcol != "transparent")
	{
		if (strlen($bgcol)==6) {$r = base_convert(substr($bgcol,0,2),16,10); $g = base_convert(substr($bgcol,2,2),16,10); $b = base_convert(substr($bgcol,4,2),16,10);}
		else {$r = base_convert($bgcol[0].$bgcol[0],16,10); $g = base_convert($bgcol[1].$bgcol[1],16,10); $b = base_convert($bgcol[2].$bgcol[2],16,10);}
		$bg = imagecolorallocate($img,$r,$g,$b);
	}
	else $bg = $transparent;
	
	if ($fgcol != "transparent")
	{
		if (strlen($fgcol)==6) {$r = base_convert(substr($fgcol,0,2),16,10); $g = base_convert(substr($fgcol,2,2),16,10); $b = base_convert(substr($fgcol,4,2),16,10);}
		else {$r = base_convert($fgcol[0].$fgcol[0],16,10); $g = base_convert($fgcol[1].$fgcol[1],16,10); $b = base_convert($fgcol[2].$fgcol[2],16,10);}
		$fg = imagecolorallocate($img,$r,$g,$b);
	}
	else $fg = $transparent;
	
	if ($pacol != "transparent")
	{
		if (strlen($pacol)==6) {$r = base_convert(substr($pacol,0,2),16,10); $g = base_convert(substr($pacol,2,2),16,10); $b = base_convert(substr($pacol,4,2),16,10);}
		else {$r = base_convert($pacol[0].$pacol[0],16,10); $g = base_convert($pacol[1].$pacol[1],16,10); $b = base_convert($pacol[2].$pacol[2],16,10);}
		$pc = imagecolorallocate($img,$r,$g,$b);
	}
	else $pc = $transparent;
	
	imagefill($img,0,0,$bg);
	
	$cellWallTop = array_fill(0,$mazeWidth+3,array_fill(0,$mazeHeight+3,true));
	$cellWallLeft = array_fill(0,$mazeWidth+3,array_fill(0,$mazeHeight+3,true));
	
	$cellStatus = array_fill(0,$mazeWidth+3,array_fill(0,$mazeHeight+3,0));
	
	for ($x=0;$x<$mazeWidth+2;$x++)
	{
		$cellStatus[$x][0] = 3;
		$cellStatus[$x][$mazeHeight+1] = 3;
		$cellWallLeft[$x][$mazeHeight+1] = false;
	}
	
	for ($y=0;$y<$mazeHeight+2;$y++)
	{
		$cellStatus[0][$y] = 3;
		$cellStatus[$mazeWidth+1][$y] = 3;
		$cellWallTop[$mazeWidth+1][$y] = false;
	}
	
	$cellWallTop[1][1] = false;
	$cellWallTop[$mazeWidth][$mazeHeight+1] = false;
	
	$stackx = array();
	$stacky = array();
	
	$cellX = mt_rand(1,$mazeWidth);
	$cellY = mt_rand(1,$mazeHeight);
	
	$sideNotActive = array(false,false,false,false);
	
	$end = false;
	$iterations = 0;
		
	do
	{
		$cellStatus[$cellX][$cellY] = 2;
		
		for($i=0,$len=count($stackx);$i<$len;$i++) 
		{
			if ($stackx[$i] == $cellX && $stacky[$i] == $cellY)
			{
				$stackx[$i] = -1;
				$stacky[$i] = -1;
			}
		}
		
		if ($cellStatus[$cellX][$cellY-1] == 0)
		{
			$cellStatus[$cellX][$cellY-1] = 1;
			array_push($stackx,$cellX);
			array_push($stacky,$cellY-1);
		}
		if ($cellStatus[$cellX+1][$cellY] == 0)
		{
			$cellStatus[$cellX+1][$cellY] = 1;
			array_push($stackx,$cellX+1);
			array_push($stacky,$cellY);
		}
		if ($cellStatus[$cellX][$cellY+1] == 0)
		{
			$cellStatus[$cellX][$cellY+1] = 1;
			array_push($stackx,$cellX);
			array_push($stacky,$cellY+1);
		}
		if ($cellStatus[$cellX-1][$cellY] == 0)
		{
			$cellStatus[$cellX-1][$cellY] = 1;
			array_push($stackx,$cellX-1);
			array_push($stacky,$cellY);
		}
		
		$sideActive = false;
		$sideNotActive = array_fill(0,4,false);
		do
		{
			$side = mt_rand(0,3);
			switch($side)
			{
				case 0:
					if ($cellStatus[$cellX][$cellY-1] == 2)
					{
						$cellWallTop[$cellX][$cellY] = false;
						$sideActive = true;
					}
					else $sideNotActive[0] = true;
					break;
				case 1:
					if ($cellStatus[$cellX+1][$cellY] == 2)
					{
						$cellWallLeft[$cellX+1][$cellY] = false;
						$sideActive = true;
					}
					else $sideNotActive[1] = true;
					break;
				case 2:
					if ($cellStatus[$cellX][$cellY+1] == 2)
					{
						$cellWallTop[$cellX][$cellY+1] = false;
						$sideActive = true;
					}
					else $sideNotActive[2] = true;
					break;
				case 3:
					if ($cellStatus[$cellX-1][$cellY] == 2)
					{
						$cellWallLeft[$cellX][$cellY] = false;
						$sideActive = true;
					}
					else $sideNotActive[3] = true;
					break;
			}
		} while(!$sideActive && (!$sideNotActive[0] || !$sideNotActive[1] || !$sideNotActive[2] || !$sideNotActive[3]));
		
		$sideStandBy = false;
		$sideNotActive = array_fill(0,4,false);
		do
		{
			$side = mt_rand(0,3);
			switch($side)
			{
				case 0:
					if ($cellStatus[$cellX][$cellY-1] == 1)
					{
						$cellY--;
						$sideStandBy = true;
					}
					else $sideNotActive[0] = true;
					break;
				case 1:
					if ($cellStatus[$cellX+1][$cellY] == 1)
					{
						$cellX++;
						$sideStandBy = true;
					}
					else $sideNotActive[1] = true;
					break;
				case 2:
					if ($cellStatus[$cellX][$cellY+1] == 1)
					{
						$cellY++;
						$sideStandBy = true;
					}
					else $sideNotActive[2] = true;
					break;
				case 3:
					if ($cellStatus[$cellX-1][$cellY] == 1)
					{
						$cellX--;
						$sideStandBy = true;
					}
					else $sideNotActive[3] = true;
					break;
			}
		} while(!$sideStandBy && (!$sideNotActive[0] || !$sideNotActive[1] || !$sideNotActive[2] || !$sideNotActive[3]));
		
		if ($sideNotActive[0] && $sideNotActive[1] && $sideNotActive[2] && $sideNotActive[3])
		{
			$sx = array_pop($stackx);
			$sy = array_pop($stacky);
			if ($sx == -1 || $sy == -1 || !$sy || !$sx)
			{
				while ($stackx[0] !== null)
				{
					$sx = array_pop($stackx);
					$sy = array_pop($stacky);
					if ($sx != -1 && $sy != -1 && $sx && $sy)
					{
						$cellX = $sx;
						$cellY = $sy;
						break;
					}
				}
				if (!count($stackx)) $end = true;
			}
			else
			{
				$cellX = $sx;
				$cellY = $sy;
				for($i=0,$len=count($stackx);$i<$len;$i++) 
				{
					if ($stackx[$i] == $cellX && $stacky[$i] == $cellY)
					{
						$stackx[$i] = -1;
						$stacky[$i] = -1;
					}
				}
			}
		}
		
	} while(!$end);
	
	if ($path)
	{
		
		$s = array_fill(0,$mazeWidth+2,array_fill(0,$mazeHeight+2,0));
		$s[1][1]=1;
		for ($i=2,$end=false;$i<=10000 && !$end;$i++)
		{
			$tempStatus = $s;
			$end = true;
			for ($x=1;$x<=$mazeWidth;$x++)
				for ($y=1;$y<=$mazeHeight;$y++)
					if (!$s[$x][$y]) 
						if (($s[$x][$y-1] && !$cellWallTop[$x][$y]) || ($s[$x+1][$y] && !$cellWallLeft[$x+1][$y]) || ($s[$x][$y+1] && !$cellWallTop[$x][$y+1]) || ($s[$x-1][$y] && !$cellWallLeft[$x][$y])) { $tempStatus[$x][$y] = $i; $end = false; }
			$s = $tempStatus;
		}
		
		$pathx = array();
		$pathy = array();
		for ($i=$s[$mazeWidth][$mazeHeight],$pathx[$i]=$mazeWidth,$pathy[$i]=$mazeHeight;$i>0;$i--)
		{
			if ($s[$pathx[$i]][$pathy[$i]-1] == $i-1 && !$cellWallTop[$pathx[$i]][$pathy[$i]]) { $pathx[$i-1]=$pathx[$i]; $pathy[$i-1]=$pathy[$i]-1; }
			if ($s[$pathx[$i]+1][$pathy[$i]] == $i-1 && !$cellWallLeft[$pathx[$i]+1][$pathy[$i]]) { $pathx[$i-1]=$pathx[$i]+1; $pathy[$i-1]=$pathy[$i]; }
			if ($s[$pathx[$i]][$pathy[$i]+1] == $i-1 && !$cellWallTop[$pathx[$i]][$pathy[$i]+1]) { $pathx[$i-1]=$pathx[$i]; $pathy[$i-1]=$pathy[$i]+1; }
			if ($s[$pathx[$i]-1][$pathy[$i]] == $i-1 && !$cellWallLeft[$pathx[$i]][$pathy[$i]]) { $pathx[$i-1]=$pathx[$i]-1; $pathy[$i-1]=$pathy[$i]; }
		}
		
	}
	
	for ($y=1;$y<=$mazeHeight+1;$y++)
	{
		for ($x=1;$x<=$mazeWidth+1;$x++)
		{
			if ($cellWallTop[$x][$y]) line($x*$cellWidth,$y*$cellHeight,($x+1)*$cellWidth,$y*$cellHeight);
			if ($cellWallLeft[$x][$y]) line($x*$cellWidth,$y*$cellHeight,$x*$cellWidth,($y+1)*$cellHeight);
			//imagettftext($img,8,0,$x*$cellWidth+$cellWidth/2,$y*$cellHeight+8+$cellHeight/2,$fg,"sansation.ttf",$s[$x][$y]);
		}
	}
	
	if ($path)
	{
		for ($i=2,$len=count($pathx);$i<$len;$i++) 
			line(($pathx[$i-1]+0.5)*$cellWidth,($pathy[$i-1]+0.5)*$cellHeight,($pathx[$i]+0.5)*$cellWidth,($pathy[$i]+0.5)*$cellHeight,true);
		line(1.5*$cellWidth,0.5*$cellHeight,1.5*$cellWidth,1.5*$cellHeight,true);
		line(($mazeWidth+0.5)*$cellWidth,($mazeHeight+0.5)*$cellHeight,($mazeWidth+0.5)*$cellWidth,($mazeHeight+1.5)*$cellHeight,true);
	}
	
	imagepng($img);
	imagedestroy($img);

	function line($x1,$y1,$x2,$y2,$path=false)
	{
		global $img,$fg,$pc;
		if ($path) return imageline($img,$x1,$y1,$x2,$y2,$pc);
		else return imageline($img,$x1,$y1,$x2,$y2,$fg);
	}

?>