stargate.lua

local component = require("component")
local fs = require("filesystem")
local internet = require("internet")
local process = require("process")
local event = require("event")
local keyboard = require("keyboard")
local shell = require("shell")
local term = require("term")
local text = require("text")
local unicode = require("unicode")
local sides = require("sides")
local colors=require("colors")

-- The following code added by Michiyo, to check if:
-- A.) The computer has HTTP access, and 
-- B.) if the required files exist to run this program.
-- C.) And to download them if it can.
--#~#~#~#~#~#~#~ CHANGE THE FOLLOWING VARIABLE TO FALSE TO DISABLE AUTOUPDATE CHECKING~#~#~#~#~#~#~#
autoUpdate = true

--Thanks Gopher!
function compareVersions(v1,v2)
	local pat="(%d+)"
	local iter1,iter2=v1:gmatch(pat),v2:gmatch(pat)
	while true do
		local n1,n2=iter1(), iter2()
		n1,n2=n1 and tonumber(n1),n2 and tonumber(n2)
		if n1==nil then
			if n2==nil then
				return 0
			else
				return -1
			end
			elseif n2==nil then
				return 1
			end
			if n1~=n2 then
				return n1-n2
			end
		end
	end

	function file_check(file_name)
		local file = fs.open(file_name)
		if file ~= nil then
			return true
		else
			return false
		end
	end
	wget = loadfile("/bin/wget.lua")
	function downloadFile(remotename, filename)
		wget("https://raw.github.com/OpenPrograms/Kenny-Programs/master/LC_Control/" .. remotename, filename)
	end

	function remoteVersion()
		for line in internet.request("https://raw.github.com/OpenPrograms/Kenny-Programs/master/LC_Control/stargate-version.txt") do 
			if line ~= "not found" then 
				return text.trim(line)
			else 
				return 0 
			end
		end
	end

	function localVersion()
		if not file_check(os.getenv("PWD") .. "stargate-version.txt") then
			return 0
		else
			local f = io.open(os.getenv("PWD") .. "stargate-version.txt", "rb")
			local content = f:read("*all")
			f:close()
			return content
		end
	end

	function doUpdate(watdo)
		if (watdo == "update") then
			if autoUpdate == true then
				print("A new version " .. remoteVersion() .. " is available, would you like to download it? Yes/No")
				doTehUpdate = io.read()
				if doTehUpdate == "yes" then
					print("Cleaning up previous install")
					fs.remove(os.getenv("PWD") .. "default.gss")
					fs.remove(os.getenv("PWD") .. "cv.gss")
					fs.remove(os.getenv("PWD") .. "gml.lua")
					fs.remove(os.getenv("PWD") .. "gfxbuffer.lua")
					fs.remove(os.getenv("PWD") .. "colorutils.lua")
					fs.remove(os.getenv("PWD") .. "colorutils.lua")
					fs.remove(os.getenv("PWD") .. "stargate-version.txt")
					currFile = process.running()
					fs.remove(currFile)
					if not file_check(os.getenv("PWD") .. currFile) then 
						print("Downloading stargate.lua")
						downloadFile("stargate.lua", currFile)
					end
				end
				else print("Skipping update, you will be reminded next time")
				end
			end
			print("Downloading latest versions of required files")
			if not file_check(os.getenv("PWD") .. "default.gss") then 
				print("Downloading default.gss")
				downloadFile("default.gss","default.gss")
				downloaded = true
			end
			if not file_check(os.getenv("PWD") .. "cv.gss") then 
				print("Downloading cv.gss")
				downloadFile("cv.gss","cv.gss")
				downloaded = true
			end
			if not file_check(os.getenv("PWD") .. "gml.lua") then 
				print("Downloading gml.lua")
				downloadFile("gml.lua","gml.lua")
				downloaded = true
			end
			if not file_check(os.getenv("PWD") .. "gfxbuffer.lua") then 
				print("Downloading gfxbuffer.lua")
				downloadFile("gfxbuffer.lua","gfxbuffer.lua")
				downloaded = true
			end
			if not file_check(os.getenv("PWD") .. "colorutils.lua") then 
				print("Downloading colorutils.lua")
				downloadFile("colorutils.lua","colorutils.lua")
				downloaded = true
			end
			if not file_check(os.getenv("PWD") .. "stargate-version.txt") then 
				print("Downloading stargate-version.txt")
				downloadFile("stargate-version.txt","stargate-version.txt")
			end
			if downloaded == true then
				print("Please run the program again")
				os.exit()
			end
		end

		if not component.isAvailable("internet") then 
			if not file_check(os.getenv("PWD") .. "gml.lua") or not file_check(os.getenv("PWD") .. "cv.gss") or not file_check(os.getenv("PWD") .. "default.gss") or not file_check(os.getenv("PWD") .. "gfxbuffer.lua") or not file_check(os.getenv("PWD") .. "colorutils.lua") or not file_check(os.getenv("PWD") .. "GateInfo.txt") then
				io.stderr:write("You are missing one or more of the required files 'gml.lua', 'colorutils.lua', 'gfxbuffer.lua', 'default.gss', or 'cv.gss' and do not have internet access to download them automaticly!\n")
				return
			end
		else
--We load the internet API here so we don't die on computers without internet cards.
internet = require("internet")
if not file_check(os.getenv("PWD") .. "stargate-version.txt") then 
	print("Setting up version cache")
	downloadFile("stargate-version.txt","stargate-version.txt")
end
--Check if this is a fresh download, or a update 0 is fresh, > 0 is update.
if (compareVersions(remoteVersion(), localVersion()) == 0) then
	doUpdate("fresh")
	elseif(compareVersions(remoteVersion(), localVersion()) > 0) then
		doUpdate("update")
	end
	os.sleep(0.5)
end
--We've checked for gml, and downloaded it if it was available, so we can load gml now.

local gml=require("gml")

local sg = component.stargate
local gpu=component.gpu
local w, h = gpu.getResolution()
local fname = "GateInfo.txt"
local filename = shell.resolve(fname)
local connectAddress = ""
local destAddress = {}
local destName = {}
local timerID = 0
local fuelTimer = 0
local running=process.running() 
local addressListAdd
local addressListDelete

local function isAdvanced()
	return gpu.getDepth()
end

local function strripos(s, delim)
	return s:match('^.*()'..delim)
end

function loadAddressData()
  destName = {}
  destAddress = {}
	do
		local f = io.open(filename)
		if f then
			for line in f:lines() do
				line = text.trim(line)
				delimPos = strripos(line, ",")
				table.insert(destName, string.sub(line, 1, delimPos - 1))
				table.insert(destAddress, string.sub(line, delimPos + 1, string.len(line)))
			end
			f:close()
		end
	end
  if (#destName < 1) then
    destName = {" "}
    destAddress = {" "}
  end
end

term.clear()
local gui=gml.create("center", "center", 80, 25)
gui.style=gml.loadStyle("cv.gss")

local function dialing()
  return tostring(sg.stargateState()=="Dialling")
end

local function connected()
  return tostring(sg.stargateState()=="Connected")
end

local function fuelAvailable()
  return tostring(sg.hasFuel())
end

local function valid(address)
  return "true"
end
 
loadAddressData()

local addressListBoxGUI = gml.create("center", 18, 48, 16)
local addressList=gui:addListBox(21, 7, 38, 8, destName)
local addressLabel=gui:addLabel(19, 16, 41,"Destination:  "..text.trim(destAddress[1]))
local validLabel=gui:addLabel(19, 18, 41, "Valid:  "..valid(text.trim(destAddress[1])))     

local contentsLabel=gui:addLabel(5, 2, 15, "Gate Address:")
local contentsActiveLabel=gui:addLabel(20, 2, 9, "         ")
contentsActiveLabel.text = text.trim(sg.getAddress())
contentsActiveLabel["text-color"] = 0xFFFFFF
contentsActiveLabel["text-background"] = 0x0000AA
contentsActiveLabel:draw()

local fuelLabel=gui:addLabel(35, 2, 30, "Has Fuel:")
local fuelLabelActive=gui:addLabel(48, 2, 7, "looking")

local dialingLabel=gui:addLabel(5, 4, 13,"Dialing:  ")
local dialingActiveLabel=gui:addLabel(20, 4, 7,"       ")
local connectedLabel=gui:addLabel(35, 4, 17, "Connected:  ")
local connectedActiveLabel=gui:addLabel(48, 4, 7, "       ")

local function hasFuel()
  if (text.trim(fuelAvailable()) == "false") then
    fuelLabelActive["text-color"] = 0xFFFFFF
    fuelLabelActive["text-background"] = 0xBB0000
  else
    fuelLabelActive["text-color"] = 0xFFFFFF
    fuelLabelActive["text-background"] = 0x009900
  end
  fuelLabelActive.text = fuelAvailable()
  fuelLabelActive:draw()
end

function saveAddressData()
	do
		local f = io.open(filename, "w")
		if f then
			for a = 1, #destName do
        f:write(tostring(destName[a])..","..string.sub(tostring(destAddress[a]), 1, 9).."\n")
			end
			f:close()
		end
	end
  addressList:updateList(destName)
end

local function cancelAddress()
  newAddressField.text = ""
  newGateAddressField.text = ""
  newAddressField:draw()
  newGateAddressField:draw()
end

local function deleteAddress()
  for id, name in pairs(destName) do
    if text.trim(name) == text.trim(addressList:getSelected()) then
      addressID = id
      break
    end
  end
  if addressID ~= 0 then
    table.remove(destName, addressID)
    table.remove(destAddress, addressID)
  end
  addressList:updateList(destName)
  saveAddressData()
end

local function setNewAddressData()
  if (string.len(text.trim(newAddressField.text)) > 1) then
    destName[#destName + 1] = text.trim(newAddressField.text)
    destAddress[#destAddress + 1] = text.trim(newGateAddressField.text)
    newAddressField.text = ""
    newGateAddressField.text = ""
    newAddressField:draw()
    newGateAddressField:draw()
  end
  saveAddressData()
end

local function addAddress()
  gpu.setForeground(0xFFFFFF)
  gpu.setBackground(0x000000)
  term.clear()
  newAddressGUI = gml.create("center", "center", 50, 16)
  newAddressLabel=newAddressGUI:addLabel(2, 2, 13,"Address Name:")
  newAddressField=newAddressGUI:addTextField(15, 2, 30)
  newGateAddressLabel=newAddressGUI:addLabel(2, 4, 13,"Gate Address:")
  newGateAddressField=newAddressGUI:addTextField(15, 4, 10)
  newAddressSave=newAddressGUI:addButton(5, 6, 10, 1, "Save", setNewAddressData)
  newAddressCancel=newAddressGUI:addButton(20, 6, 10, 1, "Cancel", cancelAddress)
  newAddressClose=newAddressGUI:addButton(35, 6, 10, 1, "Close", newAddressGUI.close)
  newAddressGUI:run()
  term.clear()
  gui:draw()
  addressListBoxGUI:draw()
  addressList:draw()
  addressLabel:draw()
  addressListAdd:draw()
  addressListDelete:draw()
  validLabel:draw()
  dialingLabel:draw()
  dialingActiveLabel:draw()
end

addressListAdd=gui:addButton(25, 20, 10, 1, "Add", addAddress)
addressListDelete=gui:addButton(45, 20, 10, 1, "Delete", deleteAddress)

gui.onClose=function()
  event.cancel(fuelTimer)
end

gui.onRun=function()
  fuelID = event.timer(20, hasFuel, math.huge)
  addressListBoxGUI:draw()
  addressList:draw()
  addressLabel:draw()
  addressListAdd:draw()
  addressListDelete:draw()
  validLabel:draw()
  dialingLabel:draw()
  dialingActiveLabel:draw()
end

local function updateValues()
  event.cancel(timerID)
  connectedActiveLabel.text=string.sub(" "..connected().."  ", 1, 7)
  dialingActiveLabel.text= string.sub(" "..dialing().."  ", 1, 7)

  if (text.trim(connected()) == "false") then
    connectedActiveLabel["text-color"] = 0xFFFFFF
    connectedActiveLabel["text-background"] = 0xBB0000
  else
    connectedActiveLabel["text-color"] = 0xFFFFFF
    connectedActiveLabel["text-background"] = 0x009900
  end
  if (text.trim(dialing()) == "false") then
    dialingActiveLabel["text-color"] = 0xFFFFFF
    dialingActiveLabel["text-background"] = 0xBB0000
  else
    dialingActiveLabel["text-color"] = 0xFFFFFF
    dialingActiveLabel["text-background"] = 0x009900
  end

  connectedLabel:draw()
  connectedActiveLabel:draw()
  dialingLabel:draw()
  dialingActiveLabel:draw()
end

local function updateDialAddress(info)
  local addressID = 0
  local addInfo = text.trim(info)
  connectAddress = ""
  
  for id, name in pairs(destName) do
    if text.trim(name) == text.trim(addInfo) then
      addressID = id
      break
    end
  end
  if addressID ~= 0 then
    connectAddress = text.trim(destAddress[addressID])
    addressLabel.text="Address: "..destAddress[addressID]
    addressLabel:draw()
  end
  validLabel.text= "Valid:  "..valid(connectAddress)
  validLabel:draw()
end

local function disconnect()
  sg.disconnect()
  os.sleep(2)
  updateValues()
end

local function dialGate()
  if (valid(connectAddress) == "true") then
    sg.dial(connectAddress)
    dialingActiveLabel["text-color"] = 0xFFFFFF
    dialingActiveLabel["text-background"] = 0x009900
    dialingActiveLabel.text= string.sub(" "..dialing().."  ", 1, 7)
    dialingActiveLabel:draw()
    timerID = event.timer(26, updateValues, 1)
  end
end

local function onAddressDial()
  updateDialAddress(addressList:getSelected())
  dialGate()
end

local connect=gui:addButton(15,-1,10,1,"Connect",onAddressDial)
local disconnect=gui:addButton(35,-1,10,1,"Disconnect", disconnect)
local close=gui:addButton(55,-1,10,1,"Close",gui.close)

local function onAddressSelect(lb,prevIndex,selIndex)
  updateDialAddress(addressList:getSelected())
end

addressList.onChange=onAddressSelect

addressList.onDoubleClick=function()
  updateDialAddress(addressList:getSelected())
end

updateValues()
gui:run()

gpu.setForeground(0xFFFFFF)
gpu.setBackground(0x000000)
term.clear()