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

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

for i = 1,x do
	noLagg = noLagg.. "X"
end

local function cPrint(text)
   local x,y = term.getSize()
   x2,y2 = term.getCursorPos()
   term.setCursorPos(math.ceil((x / 2) - (text:len() / 2)), y2)
   write(text)
end


function drawCursor()
  term.clear() --Clears the screen
  if lives < 0 then
	term.setCursorPos(1,3)
	cPrint("GAME OVER")
	sleep(2)
	error()
  else
	for v = 2,y-2 do
			term.setCursorPos(1,v)
			write(noLagg)
	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, minedY = string.match(mined[i], "(%-?%d+)/(%-?%d+)")
			term.setCursorPos(tonumber(minedX),tonumber(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,kik in pairs(Players) do
			v = tostring(kik)
			if v then
				minedX, minedY = string.match(v, "(%-?%d+)/(%-?%d+)")
				if tonumber(minedX) then
					term.setCursorPos(tonumber(minedX),tonumber(minedY))
					write("I")
					mined[#mined+1] = kik
				end
			end
		end
	end

	if Mult then
		term.setCursorPos(4,2)
		write("Y")
	end

	for i = 1,#PvP do
		if PvP[i] then
			PvP[i] = tostring(PvP[i])
			minedX, minedY = string.match(PvP[i], "(%-?%d+)/(%-?%d+)")
			term.setCursorPos(tonumber(minedX),tonumber(minedY))
			write("O")
			if minedX == currentX and minedY == currentY then
				term.setCursorPos(1,1)
				write("You just got blackhole'd!")
				sleep(1)
				lives = lives-1
			end
		end
	end

	term.setCursorPos(currentX, currentY)
	write(direction)
  end
end

function begin()
	while true do
		drawCursor()
		local e,key,message = os.pullEvent()
		if e == "char" and key == "u" and Mult then
			PvP[#PvP+1] = currentX+1.. "/" ..currentY
			rednet.broadcast("[MM] ["..channel.."] [Bomb] " ..currentX+1.. "/" ..currentY)
		elseif 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

			if currentX == 4 and currentY == 2 then
				if Mult then
					term.setCursorPos(1,1)
					write("The flower ate you.")
					sleep(1)
					lives = lives-100000
				end
			end
		elseif Mult and e == "rednet_message" then
			if string.sub(message, 1, string.len("[MM] [" ..channel.."] [Bomb] ")) == "[MM] [" ..channel.."] [Bomb] " then
				PvP[#PvP+1] = string.sub(message, string.len("[MM] [" ..channel.."] [Bomb] *"), string.len(message))
			elseif string.sub(message, 1, string.len("[MM] [" ..channel.."] ")) == "[MM] [" ..channel.."] " then
				Players[key] = string.sub(message, string.len("[MM] [" ..channel.."] *"), string.len(message))
			end
		end
	end
end

print("MineMined 1.5\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