local c = require("component")
local term = require("term")
local component = require("component")
local event = require("event")
local serialization = require("serialization")
local gpu = component.gpu
local w, h = gpu.getResolution()
local computer = require("computer")

gpu.fill(1, 1, w, h, " ")
local os = require("os")
local modem = component.modem
local term = require("term")
local sg = c.stargate
local port = 126
stargates_checked = 0
address = {}
symbols = {"Sculptor","Scorpius","Centaurus","Monoceros","Pegasus","Andromeda","Serpens Caput","Aries","Libra","Eridanus","Leo Minor","Hydra","Sagittarius","Sextans","Scutum","Pisces","Virgo","Bootes","Auriga","Corona Australis","Gemini","Leo","Cetus","Triangulum","Aquarius","Microscopium","Equuleus","Crater","Perseus","Cancer","Norma","Taurus","Canis Minor","Capricornus","Lynx","Orion","Piscis Austrinus"}

lenght = {min = 6, max = 6}


function checkadress(address)
	if not component.stargate.getEnergyRequiredToDial(address) == "address_malformed" then
		print("Address found, saving to file: ",address)
		address = serialization.serialize(address_raw)
		modem.broadcast(port, "foundaddress", address)
		os.sleep(10)
	end
end

function checksymbols(address)
	stargates_checked = stargates_checked +1
	if address[1] == address[2] or address[1] == address[3] or address[1] == address[4] or address[1] == address[6] or address[2] == address[3] or address[2] == address[4] or
	address[2] == address[6] or address[3] == address[4] or address[3] == address[5] or address[3] == address[6] or address[4] == address[5] or address[4] == address[6] or address[5] == address[6] then
		term.clear(true)
		print("Checked adresses:",stargates_checked)
	else
		checkadress(address)
	end
end




function print_t(t)
    for _,v in pairs(t) do
	table.insert(address, v)
    end
	table.insert(address, "Point of Origin")
	checksymbols(address)
	address = {}
end



function generate(current, len, chars)
    if #current == len then
    print_t(current)
	os.sleep(0.005)
    return
    end
    if #current < len then
    for c = 1, #chars do
    curr = {}
    for i = 1, #current do
        curr[i] = current[i]
    end
    curr[#curr+1] = chars[c]
    generate(curr, len, chars)
    end
    end
end

function brute(chars, min, max)
    for l = min, max do
    generate({}, l, chars)
    end
end


brute(symbols, lenght.min, lenght.max)