Func Fill($x, $y)
	Local $Temp[2]
	Local $RetTemp

	$Temp[0] = $x&"|"&$y

   while $Temp[0] <> ""
      $RetTemp = _ArrayPop($Temp)

		MsgBox("","",$RetTemp)

		$Spl = StringSplit($RetTemp,"|")

		_ArrayDisplay($Spl)

		if CheckInBounds($Spl[1],$Spl[2]) then
			$TempArray[$Spl[1]][$Spl[2]] = 0

			_ArrayAdd($Temp,$Spl[1]+1&"|"&$Spl[2])
			_ArrayAdd($Temp,$Spl[1]&"|"&$Spl[2]+1)
			_ArrayAdd($Temp,$Spl[1]-1&"|"&$Spl[2])
			_ArrayAdd($Temp,$Spl[1]&"|"&$Spl[2]-1)
			_ArrayDisplay($Temp)
		Endif
	WEnd

	MsgBox("","","")

   return;
EndFunc