resupplier

rednet.open("right")
m = peripheral.wrap("top")
wr = peripheral.wrap("left")
w,h = m.getSize()
w = w + 1
h = h + 1
value = 64
col = { ["white"]=1, ["orange"]=2, ["magenta"]=4, ["lightblue"]=8, ["yellow"]=16, ["lime"]=32, ["pink"]=64, ["gray"]=128, ["lightgray"]=256, ["cyan"]=512, ["purple"]=1024, ["blue"]=2048, ["brown"]=4096, ["green"]=8192, ["red"]=16384, ["black"]=32768 }

function pulse(freq,num)
	wr.setFreq(freq)
	for i=1,num do
		redstone.setOutput("left",true)
		os.sleep(0.1)
		redstone.setOutput("left",false)
		os.sleep(0.2)
	end
end

function swrite(str,x,y,color)
	m.setCursorPos(x,y)
	m.setTextColor(col[color])
	m.write(str)
end

function swritecenter(str,y,color)
	m.setCursorPos((w/2-#str/2)+1,y)
	m.setTextColor(col[color])
	m.write(str)
end

function drawbox(str,x1,x2,y1,y2,strcol,color)
	m.setCursorPos(x1,y1)
	m.setBackgroundColor(col[color])
	m.setTextColor(col[strcol])
	local bw = x2-x1
	local bh = y2-y1
	local bstr = " "
	while #bstr < bw do
		bstr = bstr.." "
	end
	for i=1,bh do
		m.setCursorPos(x1,y1+i-1)
		m.write(bstr)
	end
	m.setCursorPos(x1+bw/2-#str/2,y1+bh/2)
	m.write(str)
	m.setBackgroundColor(col["black"])
	return { [1]=x1, [2]=x2, [3]=y1, [4]=y2 }
end

function drawtext(str,x,y,color)
	m.setCursorPos(x,y)
	m.setTextColor(col[color])
	m.write(str)
	return { [1]=x, [2]=x+1, [3]=y, [4]=y+#str }
end

function press(but)
	if event == "monitor_touch" then
		if pr2 >= but[1] and pr2 < but[2] and pr3 >= but[3] and pr3 < but[4] then
			return true
		else
			return false
		end
	end
end

function drawoutline(str,strcol,color)
	m.setBackgroundColor(col[color])
	m.setTextColor(col[strcol])
	drawbox(str,1,w,1,2,strcol,color)
	drawbox("",1,2,1,h,strcol,color)
	drawbox("",w-1,w,1,h,strcol,color)
	drawbox("",1,w,h-1,h,strcol,color)
end

function drawmenu()
	m.clear()
	drawoutline("Fair's resupply system","black","white")
	bronze = drawbox("Bronze",4,19,3,6,"black","blue")
	brass = drawbox("Brass",22,37,3,6,"black","blue")
	redaingot = drawbox("Red AIngot",4,19,7,10,"black","blue")
	blueaingot = drawbox("Blue AIngot",22,37,7,10,"black","blue")
	riron = drawbox("Ref. Iron",4,19,11,14,"black","blue")
	smoothstone = drawbox("Smoothstone",22,37,11,14,"black","blue")
	sand = drawbox("Sand",4,19,15,18,"black","blue")
	glass = drawbox("Glass",22,37,15,18,"black","blue")
	obsidian = drawbox("Obsidian",4,19,19,22,"black","blue")
	planks = drawbox("Wood Planks",22,37,19,22,"black","blue")
	negplus = drawtext("--",14,23,"white")
	neg = drawtext("-",17,23,"white")
	swritecenter(" "..value.." ",23,"white")
	addplus = drawtext("++",26,23,"white")
	add = drawtext("+",24,23,"white")
end

function drawvalue()
	swritecenter(" "..value.." ",23,"white")
end

drawmenu()

while true do
	event,pr1,pr2,pr3 = os.pullEvent()

	if press(negplus) then
		value = value - 64
		if value < 4 then
			value = 4
		end
		drawvalue()
	elseif press(neg) then
		value = value - 4
		if value < 4 then
			value = 4
		end
		drawvalue()
	elseif press(addplus) then
		value = value + 64
		if value > 320 then
			value = 320
		end
		drawvalue()
	elseif press(add) then
		value = value + 4
		if value > 320 then
			value = 320
		end
		drawvalue()
	elseif press(bronze) then

	elseif press(brass) then

	elseif press(redaingot) then

	elseif press(blueaingot) then

	elseif press(riron) then
		pulse(2222,value)
	elseif press(smoothstone) then
		pulse(2224,value)
	elseif press(sand) then
		pulse(2225,value)
	elseif press(glass) then
		pulse(2223,value)
	elseif press(obsidian) then

	elseif press(planks) then

	end
end