MasterPC

rednet.open("right")

local debug = true

local function rednetWait(message)
	while true do
		id,msg,dist = rednet.receive()
		if msg == message then
			return id
		end
	end
end

local function rednetBroadcastAndWait(outMessage, inMessage)
	while true do
		rednet.broadcast(outMessage)
		id,msg,dist = rednet.receive(0.5)
		if msg == inMessage then
			return id
		end
	end
end

local function rednetSendAndWait(outId, outMessage, inMessage)
	while true do
		rednet.send(outId, outMessage)
		id,msg,dist = rednet.receive(0.5)
		if msg == inMessage then
			return id
		end
	end
end

write("Waiting on WellMaster...")
local WellMaster = rednetWait("WellMaster Init")
rednet.send(WellMaster, "WellMaster Ok")
print("Ok")

write("Waiting on FrameMaster...")
local FrameMaster = rednetWait("FrameMaster Init")
rednet.send(WellMaster, "FrameMaster Ok")
print("Ok")

while true do
	rednet.send(WellMaster, "WellMaster Deploy")
	print("WellMaster deployed")
	rednetWait("WellMaster Finished")
	print("WellMaster Finished")
	rednet.send(WellMaster, "WellMaster Acknowledged")
	print("WellMaster Acknowledged")

	if debug then os.pullEvent("char") end
	rednet.send(FrameMaster, "FrameMaster Move")
	print("Movement ordered")
	rednetWait("FrameMaster Finished")
	print("Movement completed")

	if debug then os.pullEvent("char") end
end