[WIP] GUI Early Test *Out-Dated*

--Basic Functions
local user = "guest"
local select = 1
local menustate = "admin"
w,h = term.getSize()
function printCentred(str , h)
  term.setCursorPos(w/2 - #str/2, h)
  term.write(str)
end
function printRight(str , h)
  term.setCursorPos(w - #str, h)
  term.write(str)
end
function printLeft(str , h)
  term.setCursorPos(1, h)
  term.write(str)
end
function returnFileAsTable(aFile) --This function and the two bellow it are credit of Challenge.Accepted on the ComputerCraft Forums
f= fs.open(aFile,"r")
aTable = {}
aLine = f.readLine()
while aLine ~= nil do
  table.insert(aTable, aLine)
  aLine = f.readLine()
end
return aTable
end
function seperateString(aString, sep)
p = string.find(aString, sep)
return string.sub(aString, 1, p-1), string.sub(aString, p+1)
end
function iterateTable(aTable)
local keyTable = {}
local definitionTable = {}
for i=1, #aTable do
  key, def = seperateString(aTable[i], ":")
  table.insert(keyTable, key)
  table.insert(definitionTable, def)
end
return keyTable, definitionTable
end
--Menu state--
local path = "GUI/GUImopt"
fs.makeDir(path)
local mopt = {}
local tAllValues = {}
local i3
local menus = fs.list(path)
if #menus ~= 0 then
for i = 1,#menus do
  mopt[menus[i]] = {}
  tAllValues = returnFileAsTable(path.."/"..menus[i])
  mopt[menus[i]].options = {}
  i3 = 1
  for i2 = 1,#tAllValues,5 do
print(i..":"..i2)
   table.insert(mopt[menus[i]].options, {})
   mopt[menus[i]].options[i3].display = tAllValues[i2]
   mopt[menus[i]].options[i3].link = tAllValues[i2+1]
   mopt[menus[i]].options[i3].ftype = tAllValues[i2+2]
   mopt[menus[i]].options[i3].colour = tonumber(tAllValues[i2+3])
   i3 = i3+1
  end
end
end
--no = assert(loadstring('return '..tAllValues[4]))
sleep(1)
local hist = {}
--Scrolling List--
fitem = 1
rsel = 1
selpos = 5
function drawList(items)
  a = h-6  a = a/2
  if #items > a then l = a
  else l = #items end
  j = 4
  for i = fitem, l+fitem-1 do
   term.setTextColour(items[i].colour)
   printCentred(items[i].display, j)
   j = j +2
  end
  term.setTextColour(items[select].colour)
  local selpos = rsel*2 + 2
  printCentred("[  "..items[select].display.."  ]", selpos)

end
function checkSel(items)
a = h -6  a= a/2

if rsel > a -1 and select<#items then
  rsel = rsel -1
  fitem = fitem+1
elseif rsel == 1 and select > 1 then
  rsel = rsel +1
  fitem = fitem -1
end
end
function changeMenu()
menustate = mopt[menustate].options[select].link
end
function plainText()
end
local typelist = {
["menu"] = {func = changeMenu},
["text"] = {func = plainText},
["special"] = {}
}
--Menus
function drawHeader()
  term.setTextColour(colours.white)
  printCentred("KYLEOS - TEST 0.2", 1)
  printLeft(string.rep("-",w),2)
  printLeft(string.rep("-",w),h-1)
  printLeft(menustate,h)
  printRight("made by kylergs",h)
end
--Run
function runMain()
while true do
  term.clear()
  drawHeader()
  mms = mopt[menustate]
  tftype = mms.options[select].ftype
  if not skip then drawList(mms.options) end
  local id, key = os.pullEvent("key")
  if not skip then
   if key == 200 and select > 1 then select = select-1 rsel=rsel-1 checkSel(mms.options)
   elseif key == 208 and select < #mms.options then select = select + 1 rsel = rsel +1 checkSel(mms.options)  
   elseif key == 28 then
	if mms.options[select].link == "quit" then break end  
	typelist[tftype].func()
   end
  else skip = false
end
end
end
runMain()
term.clear()
term.setCursorPos(1,1)