startup3

rednet.open("bottom")
monitor = peripheral.wrap("left")
idsu = peripheral.wrap("right")
percentin = 0
bundleout = 0
theme = 1
themes = {{}, {}, {}}
version = "1.2"
states = fs.open("buttonstates","r")
buttons = textutils.unserialize(states.readAll())
states.close()
fieldurl = "http://www.escratch.org/dominic/field.txt"
--os.startTimer(10)

--Theme setup
--Theme: Standard
themes[1].normaltext = colors.white
themes[1].normaltextsoft = colors.lightGray
themes[1].normalbg = colors.black
themes[1].menutext = colors.white
themes[1].menubg = colors.gray
themes[1].buttonbg = colors.gray
themes[1].errortext = colors.red
themes[1].warningtext = colors.yellow
themes[1].goodtext = colors.lime
--Theme: Blue
themes[2].normaltext = colors.white
themes[2].normaltextsoft = colors.lightGray
themes[2].normalbg = colors.blue
themes[2].menutext = colors.white
themes[2].menubg = colors.gray
themes[2].buttonbg = colors.gray
themes[2].errortext = colors.red
themes[2].warningtext = colors.yellow
themes[2].goodtext = colors.lime
--Theme: Modern
themes[3].normaltext = colors.black
themes[3].normaltextsoft = colors.gray
themes[3].normalbg = colors.white
themes[3].menutext = colors.black
themes[3].menubg = colors.lightGray
themes[3].buttonbg = colors.gray
themes[3].errortext = colors.red
themes[3].warningtext = colors.yellow
themes[3].goodtext = colors.lime

function pullFieldStatus()
  http.request(fieldurl)
  local event, _, fieldstates = os.pullEvent("http_success")
  print("updated states")
  if fieldstates.readLine() == "field on" then
    buttons["field"].active = true
    print("field on")
  else
    buttons["field"].active = false
    print("field off")
  end
  if fieldstates.readLine() == "kill on" then
    buttons["defence"].active = true
    print("kill on")
  else
    buttons["defence"].active = false
    print("kill off")
  end
  print("done")
end

function getPowerIDSU()
  local _,_,_,data = idsu.get(1)
  if data["energyL"] ~= nil and data["maxStorageL"] ~= nil then
    percentin = math.floor(100 * (data["energyL"]/data["maxStorageL"]))
  else
    percentin = 0
  end
end

function writeTempColorMonitor( string, color )
  monitor.setTextColor(color)
  monitor.write(string)
  monitor.setTextColor(themes[theme].normaltext)
end

function drawScreen()
  getPowerIDSU()
  monitor.setBackgroundColor(themes[theme].normalbg)
  monitor.setTextColor(themes[theme].normaltext)
  monitor.clear()
  drawTopMenu()
  pullFieldStatus()
  drawPowerMeter(percentin)
  for k,v in pairs(buttons) do
    drawButton(k)
  end
  buttonActions()
  print("screen drawn!")
end

function drawPowerMeter( percent )
  monitor.setCursorPos(1,2)
  writeTempColorMonitor("Power: (", themes[theme].normaltextsoft)
  monitor.setTextColor(colors.lime)
  bar=""
  if percent == "timeout" then
    for i=1,25 do
      bar = bar .. " "
    end
  else
    for i=1, math.floor( percent / 4 ) do
      bar = bar .. "="
    end
    for i=1, 25 - math.floor( percent / 4 ) do
      bar = bar .. " "
    end
  end
  monitor.setTextColor(themes[theme].goodtext)
  monitor.write(bar)
  writeTempColorMonitor(") ",themes[theme].normaltextsoft)
  if percent == "timeout" then
    writeTempColorMonitor("0% ",themes[theme].normaltext)
    writeTempColorMonitor("Error!", themes[theme].errortext)
  else
    writeTempColorMonitor(percent.."% ", themes[theme].normaltext)
  end
end

function drawButton( key )
  if buttons[key].active then
    monitor.setTextColor(themes[theme].goodtext)
  else
    monitor.setTextColor(themes[theme].errortext)
  end
  monitor.setCursorPos(buttons[key].x,buttons[key].y)
  monitor.setBackgroundColor(themes[theme].buttonbg)
  monitor.write(buttons[key].name)
  monitor.setTextColor(themes[theme].normaltext)
end

function buttonActions()
  bundleout = 0
  resetorange = 0
  if not buttons["field"].active then
    bundleout = bundleout + colors.white
  end
  if not buttons["defence"].active then
    bundleout = bundleout + colors.orange
  end
  states = fs.open("buttonstates","w")
  states.write(textutils.serialize(buttons))
  states.close()
  rs.setBundledOutput("back",bundleout)
  drawScreen()
end

function drawTopMenu()
  monitor.setCursorPos(1,1)
  monitor.setBackgroundColor(themes[theme].menubg)
  monitor.setTextColor(themes[theme].menutext)
  monitor.write("ApeOS "..version)
  --Next line is to set whole top with menu coloring
  for i = 1,100 do monitor.write(" ") end
  monitor.setBackgroundColor(themes[theme].normalbg)
  monitor.setTextColor(themes[theme].normaltext)
end

function pullEvent()
  event,a,b,c,d = os.pullEvent()
end

function wait()
  sleep(10)
  event = "timer"
  a,b,c,d = nil
end

--Runtime
buttons["field"].active = buttons["field"].active
buttonActions()
drawScreen()
while(1) do
  event,a,b,c,d = os.pullEvent()
  --For debugging:
  print("Refreshed"," ",event," ",a," ",b," ",c," ",d)
  --if event == "timer" then
  --   monitor.clear()
  --  drawScreen()
  --end
  if event == "rednet_message" and a == 217 and b ~= "checkCells" then
    percentin = b
    monitor.clear()
    drawScreen()
  end
  if event == "monitor_touch" and a == "left" then
    --print("X: "..b.." Y: "..c)
    x = b
    y = c
    for k,v in pairs(buttons) do
    --print("buttonx="..buttons[k].x)
    --print("buttony="..buttons[k].y)
    --print("Search: "..buttons[k].name)
    --print("Y match: "..buttons[k].y == y)
    --print("X match"..buttons[k].x <= x and string.len(buttons[k].name)+buttons[k].x >= x)
      if (buttons[k].y == y) and (buttons[k].x <= x and buttons[k].x + string.len(buttons[k].name) - 1 >= x) then
      --print("Match: "..buttons[k].name)
        buttons[k].active = not buttons[k].active
      end
    end
    drawScreen()
    buttonActions()
  end
end