c = require("component")
local term = require("term")
local component = require("component")
local sides = require("sides")
event = require("event")
os = require("os")
event = require("event")
computer = require("computer")
serialization = require("serialization")
local tun = component.proxy("b0ed4e8a-f364-4a87-84c7-ad30fb70dd10")
local gpu = component.gpu -- get primary gpu component
local w, h = gpu.getResolution()
gpu.fill(1, 1, w, h, " ") -- clears the screen
tun = component.proxy("b0ed4e8a-f364-4a87-84c7-ad30fb70dd10")
red = component.proxy("9c980497-8473-4695-a209-fab60e95b817")
modem = component.proxy("8ee6aa880-f70f-4cde-82d1-5b7b79b48856")
sg = component.proxy("11f5b83f-bca9-4c38-aaf6-f5c089b7e424")
port = 123
bm = component.proxy("68e2cef2-d43e-490d-a11a-bd43fef6e2ef")
local asd = 1
print("SGC Gate Computer Program v1.1 /by Kevlaris")
print("--------------------------------------------------------------------------------------------------------------------------------------------------------------")
print()

repeat
 term.clear(false)
	print("Listening for incoming messages and events across dimensions")
	print()

	local _, _, _, _, _, raw, address_raw = event.pull(nil, "modem_message")
	print("Message recieved.")
	os.sleep(0.5)

	if raw == "AlphaT" then
		print("Sending Message Relay 1")
		modem.broadcast(port, "Relay1A")
		os.sleep(1)

	elseif raw == "Relay2B" then
		print("Recieving")
		bm.setBeamerRole("receive")
		bm.setActive(true)
		bm.getBeamerMode()
		red.setOutput(sides.right, 1)
		os.sleep(83)
		print("Engaging IO")
		red.setOutput(sides.right, 0)
		os.sleep(1)
		red.setOutput(sides.right, 1)
		os.sleep(1)
		red.setOutput(sides.right, 0)
		print("Resetting")
		red.setOutput(sides.back, 1)
		os.sleep(1)
		red.setOutput(sides.back, 0)

	elseif raw == "BaseT" then
		print("preparing base")
		modem.broadcast(port, "prepare")
		print("Engaging IO")
		red.setOutput(sides.left, 1)
		address = {"Crater", "Monoceros", "Scorpius", "Serpens Caput", "Sculptor", "Aquarius", "Point of Origin"}
		os.sleep(0.5)
		print("Dialing")
		for i,v in ipairs(address) do print(i,v) end
		print()

		function dialNext(dialed)
			glyph = address[dialed + 1]
			print("Engaging "..glyph.."... ")

			sg.engageSymbol(glyph)

		end

		eventID = event.listen("stargate_spin_chevron_engaged", function(evname, address, caller, num, lock, glyph)
			os.sleep(2)
			if lock then
				if (event.cancel(eventID)) then
					print("Event cancelled successfully")
				end
			print("Engaging...")
			sg.engageGate()
			bm.setBeamerRole("transmit")
			getBeamerMode()
			print("Transmitting")
			os.sleep(1)
			os.sleep(10)
			bm.setBeamerRole("disabled")
			getBeamerMode()
			red.setOutput(sides.left, 0)
			doing = false
			os.sleep(1)
			print("Stargate Shutdown")
			sg.disengageGate()
			os.sleep(5)
			bm.setBeamerRole("receive")
			getBeamerMode()
			os.sleep(2)
		else
			dialNext(num)
		end
	end)



		dialNext(0)
		doing = true
		print()
		while doing do os.sleep(0.1) end

	end
until asd == 2