--Dig Dug--
local mined = {}
local x,y = term.getSize()
local round = 1
local lives = 3
local channel = "SinglePlayer"
local Mult = false
local Players = {}

local currentX = x/2
local currentY = 2
local direction = ">"


function drawCursor()
  term.clear() --Clears the screen

	for i = 1,x do
		for v = 1,y do
			if v>3 then
				term.setCursorPos(i,v)
				write("X")
			end
		end
	end

	term.setCursorPos(4,2)
	write("Y")

	for i = 1,lives do
		term.setCursorPos(i,y)
		write(">")
	end


	term.setCursorPos(x-string.len("RND: " ..round),y)
	write("RND: " ..round)

	for i = 1,#mined do
		if mined[i] then
			mined[i] = tostring(mined[i])
			minedX = string.sub(mined[i], 1, string.find(mined[i], "/")-1)
			minedY = string.sub(mined[i], string.find(mined[i], "/")+1, string.len(mined[i]))
			term.setCursorPos(minedX,minedY)
			write(" ")
			--if currentX == minedX and currentY == minedY-1 then
			--    currentY = minedY
			--end
		end
	end
	term.setCursorPos(x-1,1)
	write("@")
	  if currentY == 1 then currentY = 2 end
	  if currentX == x then
		currentX = x-1
	  elseif currentX == 0 then
		currentX = 1
	  end

	if Mult then
		for i = 1,#Players do
			Players[i] = tostring(Players[i])
			minedX = string.sub(Players[i], 1, string.find(Players[i], "/")-1)
			minedY = string.sub(Players[i], string.find(Players[i], "/")+1, string.len(Players[i]))
			term.setCursorPos(minedX,minedY)
			write("M")
		end
	end
  term.setCursorPos(currentX, currentY)
  write(direction)
end

function begin()
	while true do
		drawCursor()
		local e,key,message = os.pullEvent()
		if e == "key" then
			if key == 17 or key == 200 then --up
				mined[#mined+1] = currentX.. "/" ..currentY
				currentY = currentY -1
				direction = "^"
			elseif key == 31 or key == 208 then --down
				if currentY < y-1 then
					mined[#mined+1] = currentX.. "/" ..currentY
					currentY = currentY +1
				end
				direction = "v"
			elseif key == 203 or key == 30 then --left
				mined[#mined+1] = currentX.. "/" ..currentY
				currentX = currentX -1
				direction = "<"
			elseif key == 205 or key == 32 then --right
				mined[#mined+1] = currentX.. "/" ..currentY
				currentX = currentX +1
				direction = ">"
			end

			if Mult then
				rednet.broadcast("[MM] ["..channel.."] " ..currentX.. "/" ..currentY)
			end
		elseif Mult and e == "rednet_message" then
			if string.sub(message, 1, string.len("[MM] [" ..channel.."] ")) == "[MM] [" ..channel.."] " then
				Players[#Players] = string.sub(message, string.len("[MM] [" ..channel.."] *"), string.len(message))
			end
		end
	end
end

print("MineMined\n")
print("1; Singleplayer")
print("2; Multiplayer (BETA)\n")
write("Selection: ")
input = read()
if input == "1" then
	begin()
elseif input == "2" then
	write("\nChannel: ")
	channel = read()
	Mult = true
	rednet.open("top")
	begin()
end