FindDev_Updated

-- Inventory and Peripheral Program
-- For use with computercraft and OpenPeripherals, to display Inventory information on both items and
-- fluids.
-- Programmed By Linrox
-- Requirements: 1x Advanced Computer (GOLD) and 40x Advanced Monitors (5 heigh x 8 wide)


-- SETUP VARIABLES
local w, s, tp, ID, txt, timeout,modSd,monSd,bc
local MyID, MyName, wm, hm, DevName, currKey,termx, termy, yy
monFound=False
termx,termy=term.getSize()
yy=termy-2
local TableVSpace=6
local y=1
-- Table Variables
term.clear()
term.setCursorPos(1,y)

--TABLES
local DeviceNames={}



function ComputerInfo()
	MyID= (os.getComputerID())
	MyName=(os.getComputerLabel())
end

ComputerInfo()

function MonitorInfo(newDevName)
	monitor=newDevName
	if monFound==false then
		term.setCursorPos(1,yy)
		print("Monitor not found")
		sleep(1)
		elseif monFound==true then
		wm, hm = monitor.getSize()
		term.setCursorPos(1,yy)
		print("Monitor Height:"..hm.." Width:"..wm)
	end
end

function displayConnDevs()
		y=4
		term.clear()
		term.setCursorPos(1,1)
		print("ID: "..MyID.." Name: "..MyName)
		print("____________________________")
		print("Key  Found Devices")
	for k,v in pairs(DeviceNames) do
	sleep(.5)
		print(k.."     "..v)

	end
end

function checkDB(newDevName, DevName)
	for k,v in pairs(DeviceNames) do
		if tostring(v)==newDevName then
		term.setCursorPos(1,termy-4 )
		print(v.." has been added, using key "..k)
		newDevName=peripheral.wrap(DevName)
		print(v.." Assigned")
		if DevName=="monitor_0" then
			monFound=true
			MonitorInfo(newDevName)
			end
		end
		displayConnDevs()				-- CHECKS DB
	end
end

function findRDev(DevName,currKey,s,Devs)
	if s~=nil then
		if peripheral.getType(s)=="modem" and peripheral.isPresent(s) then
			UDevWrap=peripheral.wrap(s)
			if UDevWrap.isWireless() == true then
				DevName="Wireless Modem"
			end

			if peripheral.isPresent(s)  then
				term.setCursorPos(1,termy-6 )
				print("Local "..DevName.." Found on side ",currKey)
				print("Give a user friendly name to use for "..DevName)
				newDevName=io.read()  --*
				DeviceNames[tonumber(currKey)]=tostring(newDevName) --*****ADDING TO DB
			end
		else

		UDevName=peripheral.getType(DevName)
			if UDevName~=nil then
				if (UDevName.."_0")==DevName then
					if peripheral.isPresent(DevName) then
					y=(#DeviceNames+TableVSpace)
					term.setCursorPos(1,termy-4)
					print("Remote "..DevName.." is Found, and will use key ",currKey)
					print("Give a user friendly name to use for "..DevName)
					newDevName=io.read()  --*
					DeviceNames[tonumber(currKey)]=tostring(newDevName) --*****ADDING TO DB
					end
				else
					print(UDevName.." not Found")
				end

			elseif UDevName==nil then
				print("UDevName is Nil "..tostring(Devs))
				sleep(2)
				Devs=1
				print(tostring(Devs))
				sleep(2)
				RemoteDevs(Devs,currKey)
			else
				print("UDevName not matched "..tostring(Devs))
				sleep(2)
				Devs=(Devs+1)
				print(tostring(Devs))
				sleep(2)
				RemoteDevs(Devs,currKey)
			end
		end
	end
	checkDB(newDevName, DevName)
end

function RemoteDevs(Devs,currKey)
	for num=1,Devs do
		term.setCursorPos(1,10)
		print(tostring(Devs))
		sleep(1)
		y=(#DeviceNames+TableVSpace)
		term.setCursorPos(1,termy-6)
		print("What is the Name of device "..Devs.."?")
		DevName=io.read()
		currKey=currKey+1
		findRDev(DevName,currKey,Devs)

	end
end

function MoreDevs()
	print("How many devices?")
	currKey=5
	local Devs=io.read()
	RemoteDevs(Devs,currKey)
end

function DevAsk()
	y=(#DeviceNames+TableVSpace)
	term.setCursorPos(1,y+2)
	print("Are there remote devices to connect? Y/N")
	Answer=io.read()
	if string.lower(Answer)=="y" then MoreDevs()
	elseif string.lower(Answer)=="n" then
	error(reason)
	else print("Try again")
	DevAsk()
	end
end

function findDev()
	for w = 1 , 5, 1 do
		if (w==1) then s="left" end
		if (w==2) then s="right" end
		if (w==3) then s="top" end
		if (w==4) then s="back" end
		if (w==5) then s="bottom" end
		ps=peripheral.isPresent(s)
		if (ps== true) then
			tp=peripheral.getType(s)
			--print("True found - w: ",w," s: ",s," tp: ",tp )
			if (tp=="modem") then
				Comms= peripheral.wrap(s)
				if Comms.isWireless() == true then
				DevName="modem"
				currKey=w
				findRDev(DevName,currKey,s)
				--[[for i,v in ipairs(peripheral.getMethods(s)) do
				print(i..". "..v) ]]--
				--** print("Wireless Modem Found - Side: ",s)
				--Wireless=peripheral.wrap(s)
				--modSd=s
				else
				--print("Modem Found - Side: ",s)
				DevName="modem"
				currKey=w
				findRDev(DevName,currKey,s)
				--Wired=peripheral.wrap(s)
				--modSd=s
				end
				--end
				-- print("Device: "..tp)
				-- for i,v in ipairs(peripheral.getMethods(modSd)) do
				-- print(i..". "..v)
				-- end
			end
			if (tp=="monitor") then
				if monFound==false then print("Monitor not found")
					DevName="monitor_0"
					currKey=w
					findRDev(DevName,currKey,s)
					--[[for i,v in ipairs(peripheral.getMethods(s)) do
					--print(i..". "..v)]]--
					--monitor= peripheral.wrap(s)
					--print("Monitor Found - Side: ",s )
					--local monSd=s
					--monFound=True
					--MonitorInfo()
					--print("Monitor Height:"..hm.." Width:"..wm)
				end
			end
		end
	end
end

findDev()
DevAsk()

print("EOL")