API tools faq
paste
Advertisement
UNOBTANIUM

OpenPeripheral Client 0.5.2

UNOBTANIUM
Jul 12th, 2013
2,347
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lua 59.68 KB | None | 0 0
raw download clone embed print report
  1. --0.5.2 by UNOBTANIUM 09.06.2015
  2. local site = {}
  3. local screen = {}
  4. local selected = 1
  5. local selectedObj = 1
  6. local z = 1
  7. local mode = "mainmenu"
  8. local errorText = nil
  9. local w,h = term.getSize()
  10. w = w + 1
  11. local updateInterval = 2
  12. local delay = os.startTimer(0.5)
  13. local colorName = {colors.white, colors.orange, colors.magenta, colors.lightBlue, colors.yellow, colors.lime, colors.pink, colors.lightGray, colors.cyan, colors.purple, colors.blue, colors.brown, colors.green, colors.red, colors.black}
  14. local colorHex = {0xFFFFFF,0xFF8800,0xFF8CFF,0x00FFFF,0xFFF700,0x00FF11,0xF7B5DE,0xBFBFBF,0x65A1D6,0xAF56B3,0x0000FF,0x754302,0x004000,0xFF0000,0x000000}
  15. local rednetSide = {"top","bottom","right","front"}
  16. local b = peripheral.wrap("left")
  17. local net = peripheral.wrap("back")
  18.  
  19.  
  20. -- type x y w h {c} {t} unit method {param} {var} minNumber maxNumber fadeout action
  21.  
  22. -- type text x y c
  23. -- type x y text unit method maxNumber c cMax var param
  24. -- type x y w h cBorder tBorder cBack tBack cOne tOne cTwo tTwo unit method maxNumber var param
  25. -- type x y w h minNumber maxNumber c t fadeout unit method var param
  26. -- type unit method operator limitNumber action
  27. -- type x y w h liquid cBorder tBorder cBack tBack unit method maxNumber var param
  28.  
  29.  
  30.  
  31.  
  32. -- tank with liquid
  33. -- addLiquid(number x, number y, number width, number height, string liquid)
  34. -- or?
  35. -- addFluid(number x, number y, number width, number height, string liquid) add a box textured like a liquid to the screen
  36. -- addIcon(number x, number y, string id, number meta) add an icom of an item to the screen (height width?)
  37.  
  38. for i=1, 199 do
  39.  site[i] = {}
  40.  screen[i] = {}
  41. end
  42.  
  43.  
  44. function save()
  45.   local file = fs.open("openPeripheralClient","w")
  46.     file.writeLine("OPEN PERIPHERAL CLIENT DATABASE")
  47.     file.writeLine(string.gsub(textutils.serialize(site),"\n%S-",""))
  48.     file.writeLine(string.gsub(textutils.serialize(screen),"\n%S-",""))
  49.     file.writeLine(updateInterval)
  50.     file.writeLine(selected)
  51.   file.close()
  52. end
  53.  
  54. function buildString(stringBuilder, site)
  55.   stringBuilder = stringBuilder .. "{"
  56.   local added = false
  57.   for i, var in pairs(site) do -- VARIABLE
  58.     added = true
  59.     if type(var) == "string" then
  60.       stringBuilder = stringBuilder .. "\"" .. var .. "\""
  61.     elseif type(var) == "number" then
  62.       stringBuilder = stringBuilder .. var
  63.     elseif type(var) == "boolean" then
  64.       stringBuilder = stringBuilder .. tostring(var)
  65.     elseif type(var) == "table" then
  66.       stringBuilder = buildString(stringBuilder, site[i])
  67.     end
  68.     stringBuilder = stringBuilder .. ","
  69.   end
  70.   if added then
  71.     stringBuilder = stringBuilder:sub(1,stringBuilder:len()-1)
  72.   end
  73.   return stringBuilder .. "}"
  74. end
  75.  
  76. function load()
  77.   if not fs.exists("openPeripheralClient") then return end
  78.   local file = fs.open("openPeripheralClient","r")
  79.     local firstLine = file.readLine()
  80.     if firstLine == "OPEN PERIPHERAL CLIENT DATABASE" then -- NEWEST since 0.5
  81.       site = textutils.unserialize(file.readLine())
  82.       screen = textutils.unserialize(file.readLine())
  83.       updateInterval = tonumber(file.readLine())
  84.       selected = tonumber(file.readLine())
  85.       file.close()
  86.     elseif firstLine == "OPEN PERIPHERAL CLIENT DATA" then -- since 0.3
  87.       site = textutils.unserialize(file.readLine())
  88.       file.close()
  89.       oldLoad03()
  90.     else -- OLDEST since 0.1
  91.       file.close()
  92.       oldLoad01()
  93.     end
  94. end
  95.  
  96. -- OLD LOAD
  97.  
  98. function oldLoad03()
  99.   local newDB = {}
  100.   for i=1,199 do
  101.     newDB[i] = {}
  102.   end
  103.  
  104.   for siteID, s in pairs(site) do
  105.     for objID, obj in pairs(s) do
  106.       if obj[1] == "text" then
  107.         newDB[siteID][objID] = {type=obj[1],text=obj[2],x=obj[3],y=obj[4],color=obj[5]}
  108.       elseif obj[1] == "box" then
  109.         newDB[siteID][objID] = {type=obj[1],x=obj[2],y=obj[3],w=obj[4],h=obj[5],inner_color=obj[6],inner_transparency=obj[7],border_color=obj[8],border_transparency=obj[9]}
  110.       elseif obj[1] == "number" then
  111.         newDB[siteID][objID] = {type=obj[1],x=obj[2],y=obj[3],text=obj[4],unit=obj[5],method=obj[6],maxNumber=obj[7],text_standardColor=obj[8],text_maxNumberColor=obj[9],arguments=obj[10]}
  112.       elseif obj[1] == "bar" then
  113.         newDB[siteID][objID] = {type=obj[1],x=obj[2],y=obj[3],w=obj[4],h=obj[5],color=obj[6],transparency=obj[7],color2=obj[8],transparency2=obj[9],color3=obj[10],transparency3=obj[11],color4=obj[12],transparency4=obj[13],unit=obj[14],method=obj[15],maxNumber=obj[16], arguments=obj[17]}
  114.       elseif obj[1] == "graphPillar" or obj[1] == "graphPoint" then
  115.         newDB[siteID][objID] = {type=obj[1],x=obj[2],y=obj[3],w=obj[4],h=obj[5],minNumber=obj[6],maxNumber=obj[7],color=obj[8],transparency=obj[9],fadeout=obj[10],unit=obj[11],method=obj[12],arguments=obj[14]}
  116.       elseif obj[1] == "frame" then
  117.         newDB[siteID][objID] = {type=obj[1],frame=obj[2],x=obj[3],y=obj[4]}
  118.       elseif obj[1] == "ALARM" then
  119.         if obj[7] == "TEXT" then
  120.           newDB[siteID][objID] = {type=obj[1] ,unit=obj[2], method=obj[3], arguments=obj[4], operator=obj[5], number=obj[6], action_type=obj[7],action_x=obj[8],action_y=obj[9],action_text=obj[10], action_text_color=obj[11]}
  121.         elseif obj[7] == "ACTIVATION" then
  122.           newDB[siteID][objID] = {type=obj[1] ,unit=obj[2], method=obj[3], arguments=obj[4], operator=obj[5], number=obj[6], action_type=obj[7],action_unit=obj[8],action_method=obj[9],action_arguments=obj[10]}
  123.         elseif obj[7] == "REDNET" then
  124.           newDB[siteID][objID] = {type=obj[1] ,unit=obj[2], method=obj[3], arguments=obj[4], operator=obj[5], number=obj[6], action_type=obj[7],action_text=obj[9]}
  125.         else
  126.           newDB[siteID][objID] = {type=obj[1] ,unit=obj[2], method=obj[3], arguments=obj[4], operator=obj[5], number=obj[6], action_type=obj[7]}
  127.         end
  128.       elseif obj[1] == "CHAT" then
  129.         if obj[3] == "TEXT" then
  130.           newDB[siteID][objID] = {type=obj[1],text=obj[2],action_type=obj[3],action_x=obj[4],action_y=obj[5],action_text=obj[6], action_text_color=obj[7]}
  131.         elseif obj[3] == "ACTIVATION" then
  132.           newDB[siteID][objID] = {type=obj[1],text=obj[2],action_type=obj[3],action_unit=obj[4],action_method=obj[5],action_arguments=obj[6]}
  133.         elseif obj[3] == "REDNET" then
  134.           newDB[siteID][objID] = {type=obj[1],text=obj[2],action_type=obj[3],action_text=obj[5]}
  135.         else
  136.           newDB[siteID][objID] = {type=obj[1],text=obj[2],action_type=obj[3]}
  137.         end
  138.       elseif obj[1] == "REDNET" then
  139.         if obj[3] == "TEXT" then
  140.           newDB[siteID][objID] = {type=obj[1],text=obj[2],action_type=obj[3],action_x=obj[4],action_y=obj[5],action_text=obj[6], action_text_color=obj[7]}
  141.         elseif obj[3] == "ACTIVATION" then
  142.           newDB[siteID][objID] = {type=obj[1],text=obj[2],action_type=obj[3],action_unit=obj[4],action_method=obj[5],action_arguments=obj[6]}
  143.         elseif obj[3] == "REDNET" then
  144.           newDB[siteID][objID] = {type=obj[1],text=obj[2],action_type=obj[3],action_text=obj[5]}
  145.         else
  146.           newDB[siteID][objID] = {type=obj[1],text=obj[2],action_type=obj[3]}
  147.         end
  148.       end
  149.     end
  150.   end
  151.   site = newDB
  152.   save()
  153.   load()
  154. end
  155.  
  156. function oldLoad01()
  157.  if not fs.exists("openPeripheralClient") then return end
  158.  local file = fs.open("openPeripheralClient","r")
  159.   for i=1,198 do
  160.    local amountObj = tonumber(file.readLine())
  161.    for k=1,amountObj do
  162.     local amountVars = tonumber(file.readLine())
  163.     local typ = file.readLine()
  164.     site[i][k] = {}
  165.     site[i][k][1] = typ
  166.     for m=2,amountVars do
  167.      if typ == "text" then
  168.       if m == 2 then
  169.        site[i][k][m] = file.readLine()
  170.       else
  171.        site[i][k][m] = tonumber(file.readLine())
  172.       end
  173.      elseif typ == "box" then
  174.        site[i][k][m] = tonumber(file.readLine())
  175.      elseif typ == "number" then
  176.       if m == 2 or m == 3 or m >= 7 then
  177.        site[i][k][m] = tonumber(file.readLine())
  178.       else
  179.        site[i][k][m] = file.readLine()
  180.       end
  181.      elseif typ == "bar" then
  182.       if (m >= 2 and m <=13) or m == 16 then
  183.        site[i][k][m] = tonumber(file.readLine())
  184.       else
  185.        site[i][k][m] = file.readLine()
  186.       end
  187.      elseif typ == "graphPillar" or typ == "graphPoint" then
  188.       if m >= 2 and m <= 9 then
  189.        site[i][k][m] = tonumber(file.readLine())
  190.       elseif m == 10 then
  191.        if file.readLine() == "true" then
  192.         site[i][k][m] = true
  193.        else
  194.         site[i][k][m] = false        
  195.        end
  196.       elseif m == 11 or m == 12 then
  197.        site[i][k][m] = file.readLine()
  198.       else
  199.        local amount = tonumber(file.readLine())
  200.        site[i][k][m] = {}
  201.        for a=1,amount do
  202.         site[i][k][m][a] = tonumber(file.readLine())
  203.        end
  204.       end
  205.      elseif typ == "frame" then
  206.        site[i][k][m] = tonumber(file.readLine())
  207.      end
  208.     end
  209.    end
  210.    save()
  211.    load()
  212.   end
  213.  
  214.  file.close()
  215. end
  216.  
  217. function clear(color)
  218.  color = color or colors.black
  219.  term.setBackgroundColor(color)
  220.  term.clear()
  221.  term.setCursorPos(1,1)
  222. end
  223.  
  224. function countArray(a)
  225.  local amount = 0
  226.  for k,v in pairs(a) do
  227.   amount = amount + 1
  228.  end
  229.  return amount
  230. end
  231.  
  232. function write(text,x,y,c)
  233.  c = c or colors.white
  234.  term.setCursorPos(x,y)
  235.  term.setTextColor(c)
  236.  term.write(text)
  237. end
  238.  
  239. function centered(text,y,c)
  240.  c = c or colors.white
  241.  term.setCursorPos(w/2-math.ceil(#tostring(text)/2),y)
  242.  term.setTextColor(c)
  243.  term.write(tostring(text))
  244. end
  245.  
  246. function fill(text,y)
  247.  centered(string.rep(tostring(text), w), y)
  248. end
  249.  
  250. function setColors(text,background)
  251.  background = background or colors.lightGray
  252.  term.setTextColor(text)
  253.  term.setBackgroundColor(background)
  254. end
  255.  
  256. function drawArrows(y)
  257.   write("<",14,y)
  258.   write(">",36,y)
  259. end
  260.  
  261. -- CHECK ALARM AND ACTIVATIONS
  262.  
  263. function checkAlarm(chatCommand, rednetMessage) -- DONE 1
  264.   chatCommand = chatCommand or ""
  265.   rednetMessage = rednetMessage or ""
  266.   local number = 0
  267.   for objID, obj in pairs(site[199]) do
  268.     if obj.type == "ALARM" then   -- ALARM
  269.       number = table.remove(screen[199][objID]["values"], 1)
  270.       if type(number) == "number" then -- ERROR
  271.         if obj.operator == "=" and number == obj.number then
  272.           makeAction(obj, objID)
  273.         elseif obj.operator == ">" and number > obj.number then
  274.           makeAction(obj, objID)
  275.         elseif obj.operator == "<"and number < obj.number then
  276.           makeAction(obj, objID)
  277.         end
  278.       end
  279.     elseif not (chatCommand == "") and obj.type == "CHAT" and obj.text == chatCommand then  -- CHAT
  280.       makeAction(obj, objID)
  281.     elseif not (rednetMessage == "") and obj.type == "REDNET" and obj.text == rednetMessage then -- REDNET
  282.       makeAction(obj, objID)
  283.     end
  284.   end
  285. end
  286.  
  287. function makeAction(obj, objID)
  288.   if obj.action_type == "TEXT" then
  289.     drawText(199, objID, 0, 0)
  290.   elseif obj.action_type == "ACTIVATION" then
  291.     if net.isPresentRemote(obj.action_unit) and obj.action_method ~= "NONE" and type(obj.action_arguments) == "table" then
  292.       if countArray(obj.action_arguments) >= 1 then
  293.         local noErr,res = pcall( net.callRemote, obj.action_unit, obj.action_method, unpack(obj.action_arguments))
  294.         if not noErr then
  295.           if errorText == nil then
  296.             errorText = {"ERROR!!! ALARM'N'ACTION CALLING WITH ARGUMENTS! Object: " .. objID, "ORIGINAL ERROR MESSAGE: ".. res}
  297.           end
  298.         end
  299.       else
  300.         local noErr,res = pcall( net.callRemote, obj.action_unit, obj.action_method, unpack(obj.action_arguments))
  301.         if not noErr then
  302.           if errorText == nil then
  303.             errorText = {"ERROR!!! ALARM'N'ACTION CALLING WITHOUT ARGUMENTS! Object: " .. objID, "ORIGINAL ERROR MESSAGE: ".. res}
  304.           end
  305.         end
  306.       end
  307.     end
  308.   elseif obj.action_type == "REDNET" then
  309.     rednet.broadcast(obj.action_text)
  310.   end
  311. end
  312.  
  313.  
  314.  
  315.  
  316. -- ON SCREEN OBJECT DRAWING
  317.  
  318. -- type text x y c
  319. function drawText(siteID, objID, relX, relY)
  320.   local obj = site[siteID][objID]
  321.   if obj.type == "text" then
  322.     local var = b.addText(obj.x+relY,obj.y+relY,obj.text,colorHex[obj.text_color])
  323.     setZDimension(var)
  324.   elseif obj.action_type == "TEXT" then
  325.     local var = b.addText(obj.action_x+relX,obj.action_y+relY,obj.action_text,colorHex[obj.action_text_color])
  326.     setZDimension(var)
  327.   end
  328. end
  329.  
  330. -- type x y w h cOne tOne cTwo tTwo
  331. function drawBox(siteID, objID, relX, relY)
  332.   local obj = site[siteID][objID]
  333.   local cOne = colorHex[obj.inner_color]
  334.   local cTwo = colorHex[obj.border_color]
  335.   local var1 = b.addBox(obj.x+relX,obj.y+relY,obj.w,2,cTwo,obj.border_transparency)
  336.   setZDimension(var1)
  337.   local var2 = b.addBox(obj.x+relX,obj.y+2+relY,2,obj.h-4,cTwo,obj.border_transparency)
  338.   setZDimension(var2)
  339.   local var3 = b.addBox(obj.x+relX,obj.y+relY+obj.h-2,obj.w,2,cTwo,obj.border_transparency)
  340.   setZDimension(var3)
  341.   local var4 = b.addBox(obj.x+relX+obj.w-2,obj.y+relY+2,2,obj.h-4,cTwo,obj.border_transparency)
  342.   setZDimension(var4)
  343.   local var5 = b.addBox(obj.x+relX+2,obj.y+relY+2,obj.w-4,obj.h-4,cOne,obj.inner_transparency)
  344.   setZDimension(var5)
  345. end
  346.  
  347. -- type x y text unit method maxNumber c cMax
  348. function drawNumber(siteID, objID, relX, relY)
  349.   local obj = site[siteID][objID]
  350.   local c = colorHex[obj.text_standardColor]
  351.   local cMax = colorHex[obj.text_maxNumberColor]
  352.   local number = table.remove(screen[siteID][objID]["values"], 1)
  353.   if (type(number) == "table") then
  354.       number = "ERROR table"
  355.   end
  356.   local lengthText = ((#tostring(obj.text)) + 2)*6
  357.   local lengthNumber = (#(tostring(number)))*6
  358.   local maxLength = (#(tostring(obj.maxNumber)))*6
  359.   if type(number) == "string" or (type(number) == "number" and number == maxNumber) then
  360.     local var1 = b.addText(obj.x+relX,obj.y+relY,obj.text .. ":",c)
  361.     setZDimension(var1)
  362.     local var2 = b.addText(obj.x+relX+lengthText,obj.y+relY,tostring(number),cMax)
  363.     setZDimension(var2)
  364.     local var3 = b.addText(obj.x+relX+lengthText+(#(tostring(number)))*6,obj.y+relY, " / " .. obj.maxNumber, c)
  365.     setZDimension(var3)
  366.   else
  367.     local var1 =  b.addText(obj.x+relX,obj.y+relY, obj.text .. ":", c )
  368.     setZDimension(var1)
  369.     local var2 =  b.addText(obj.x+relX+lengthText+(maxLength-lengthNumber),obj.y+relY, tostring(number) .. " / " .. obj.maxNumber,c)
  370.     setZDimension(var2)
  371.   end
  372. end
  373.  
  374. -- type x y w h cBorder tBorder cBack tBack cOne tOne cTwo tTwo unit method maxNumber
  375. function drawBar(siteID, objID, relX, relY)
  376.   local obj = site[siteID][objID]
  377.   local cBorder = colorHex[obj.color3]
  378.   local cBack = colorHex[obj.color4]
  379.   local cOne = colorHex[obj.color]
  380.   local cTwo = colorHex[obj.color2]
  381.   local tBorder = obj.transparency3
  382.   local tBack = obj.transparency4
  383.   local tOne = obj.transparency
  384.   local tTwo = obj.transparency2
  385.   local var1 = b.addBox(obj.x+relX+2,obj.y+relY+2,obj.w-4,obj.h-4,cBack,tBack)
  386.   setZDimension(var1)
  387.   local var2 = b.addBox(obj.x+relX,obj.y+relY,obj.w,2,cBorder,tBorder)
  388.   setZDimension(var2)
  389.   local var3 = b.addBox(obj.x+relX,obj.y+relY+obj.h-2,obj.w,2,cBorder,tBorder)
  390.   setZDimension(var3)
  391.   local var4 = b.addBox(obj.x+relX,obj.y+relY+2,2,obj.h-4,cBorder,tBorder)
  392.   setZDimension(var4)
  393.   local var5 = b.addBox(obj.x+relX+obj.w-2,obj.y+relY+2,2,obj.h-4,cBorder,tBorder)
  394.   setZDimension(var5)
  395.   local number = table.remove(screen[siteID][objID]["values"], 1)
  396.   if type(number) == "number" then
  397.     local box = b.addGradientBox(obj.x+relX+2,obj.y+relY+2,math.ceil((number/obj.maxNumber)*(obj.w-4)),obj.h-4,cOne,tOne,cTwo,tTwo,2)
  398.     z = z + 1
  399.     setZDimension(box)
  400.   end
  401. end
  402.  
  403. -- type x y w h minNumber maxNumber c t fadeout unit method var
  404. function drawGraph(siteID, objID, rX, rY)
  405.   local obj = site[siteID][objID]
  406.   local var = screen[siteID][objID]["values"]
  407.   table.remove(screen[siteID][objID]["values"], math.ceil(obj.w+2/2))
  408.   local t = obj.transparency
  409.   local decrease = obj.transparency/20
  410.   local c = colorHex[obj.color]
  411.   for relX=2,obj.w,2 do
  412.     if obj.fadeout and relX >= obj.w-20 and t > 0.05 then
  413.       t = t - decrease
  414.     end
  415.     if obj.type == "graphPillar" then
  416.       if type(var[relX/2]) == "number" then
  417.         if var[relX/2] > obj.minNumber then
  418.           local box = b.addBox(obj.x+rX+relX-2,obj.y+rY+(obj.h-1-(math.ceil((var[relX/2]/(obj.maxNumber))*obj.h))),2,(math.ceil((var[relX/2]/(obj.maxNumber))*obj.h)),c,t)
  419.           setZDimension(box)
  420.         else
  421.           local box = b.addBox(obj.x+rX+relX-2,obj.y+rY+obj.h-2,2,1,c,t)
  422.           setZDimension(box)
  423.         end
  424.       else
  425.         local box = b.addBox(obj.x+rX+relX-2,obj.y+rY+obj.h-2,2,1,c,t)
  426.         setZDimension(box)
  427.       end
  428.     else
  429.       if type(var[relX/2]) == "number" then
  430.         if var[relX/2] > obj.minNumber then
  431.           local box = b.addBox(obj.x+rX+relX-2,obj.y+rY+(obj.h-1-((math.ceil((var[relX/2]/(obj.maxNumber))*obj.h)))),2,2,c,t)
  432.           setZDimension(box)
  433.           local box = b.addBox(obj.x+rX+relX-2,obj.y+rY+obj.h-1,2,1,c,t)
  434.           setZDimension(box)
  435.         else
  436.           local box = b.addBox(obj.x+rX+relX-2,obj.y+rY+obj.h-1,2,1,c,t)
  437.           setZDimension(box)
  438.         end
  439.       else
  440.         local box = b.addBox(obj.x+rX+relX-2,obj.y+rY+obj.h-1,2,1,c,t)
  441.         setZDimension(box)
  442.       end
  443.     end
  444.   end
  445. end
  446.  
  447. function drawTank(siteID, objID, relX, relY)
  448.   local obj = site[siteID][objID]
  449.   local cBorder = colorHex[obj.cBorder]
  450.   local cBack = colorHex[obj.cBack]
  451.   local tBorder = obj.tBorder
  452.   local tBack = obj.tBack
  453.   local var1 = b.addBox(obj.x+relX+2,obj.y+relY+2,obj.w-4,obj.h-4,cBack,tBack)
  454.   setZDimension(var1)
  455.   local var2 = b.addBox(obj.x+relX,obj.y+relY,obj.w,2,cBorder,tBorder)
  456.   setZDimension(var2)
  457.   local var3 = b.addBox(obj.x+relX,obj.y+relY+obj.h-2,obj.w,2,cBorder,tBorder)
  458.   setZDimension(var3)
  459.   local var4 = b.addBox(obj.x+relX,obj.y+relY+2,2,obj.h-4,cBorder,tBorder)
  460.   setZDimension(var4)
  461.   local var5 = b.addBox(obj.x+relX+obj.w-2,obj.y+relY+2,2,obj.h-4,cBorder,tBorder)
  462.   setZDimension(var5)
  463.   local number = table.remove(screen[siteID][objID]["values"], 1)
  464.   if type(number) == "number" then
  465.     local relH = obj.h-math.ceil((number/obj.maxNumber)*obj.h)
  466.     local box = b.addLiquid(obj.x+relX+2,obj.y+relH+relY+2,obj.w-4,obj.h-relH-4, obj.liquid)
  467.     z = z + 1
  468.     setZDimension(box)
  469.   end
  470. end
  471.  
  472. function setZDimension(obj)
  473.   local wtf = ( obj.setZ and obj.setZ(z) ) or ( obj.setZIndex and obj.setZIndex(z) )
  474.   z = z + 1
  475. end
  476.  
  477.  
  478.  
  479. -- ON SCREEN DRAWING MAIN METHODS
  480.  
  481.  
  482.  
  483.  
  484. function drawSite(doUpdate)
  485.   doUpdate = doUpdate or true
  486.   if (doUpdate) then
  487.     update()
  488.   end
  489.   if selected == 0 then return end
  490.   z = 1
  491.   b.clear()
  492.   for i=1,4 do
  493.     innerDraw(0,0,selected,i)
  494.   end
  495.   checkAlarm()
  496.   b.sync()
  497.   save()
  498. end
  499.  
  500.  
  501.  
  502. function update() -- DONE 1
  503.   for siteID, selectedSite in pairs(site) do -- SITE
  504.     for objID, obj in pairs(selectedSite) do  -- OBJECT
  505.       if siteID == selected or ( obj.type == "graphPillar" or obj.type == "graphPoint" or obj.type == "ALARM" or obj.type == "CHAT" or obj.type == "REDNET") then -- JUST NEEDED INFORMATION.
  506.         if obj.unit ~= nil and obj.method ~= nil then
  507.           callMethod(siteID, objID, obj, "unit", "method", "arguments","values")
  508.         end
  509.         if obj.action_type ~= "ACTIVATION" and obj.action_unit ~= nil and obj.action_method ~= nil then
  510.           callMethod(siteID, objID, obj, "action_unit", "action_method", "action_arguments", "action_values")
  511.         end
  512.       end
  513.     end
  514.   end
  515. end
  516.  
  517. function callMethod(siteID, objID, obj, unit_pos, method_pos, arguments_pos, values_pos) -- DONE 1
  518.   if screen[siteID][objID] == nil then
  519.       screen[siteID][objID] = {}
  520.       screen[siteID][objID]["values"] = {}
  521.       screen[siteID][objID]["action_values"] = {}
  522.       screen[siteID][objID]["objects"] = {}
  523.     end
  524.   if net.isPresentRemote(obj[unit_pos]) and obj[method_pos] ~= "NONE" then
  525.     if type(obj[arguments_pos]) ~= "table" then
  526.       table.insert(screen[siteID][objID]["values"], 1, "ERROR")
  527.       table.insert(screen[siteID][objID]["action_values"], 1, "ERROR")
  528.       return
  529.     end
  530.     if countArray(obj[arguments_pos]) == 0 then
  531.       local noError, value = pcall( net.callRemote, obj[unit_pos], obj[method_pos] )
  532.       if noError and (type(value) == "number" or type(value) == "string" or type(value) == "boolean") then
  533.         table.insert(screen[siteID][objID][values_pos], 1, value)
  534.       elseif errorText == nil then
  535.         table.insert(screen[siteID][objID][values_pos], 1, "ERROR")
  536.         if siteID <= 99 then siteID = "Site: " .. siteID
  537.         elseif siteID <= 198 then siteID = "Frame: " .. siteID-99
  538.         else siteID = "ALARM'N'ACTION"
  539.         end
  540.         if type(value) == "table" then
  541.           value = "(Original Error code was a table. Unable to print.)"
  542.         end
  543.         errorText = {"ERROR! ".. siteID .. "  Object: " .. objID .. "  Unit: " .. obj[unit_pos] .. "  Method: " .. obj[method_pos] .. "  No arguments!", "Original Error Code: " .. tostring(value)}
  544.       end
  545.     else
  546.       local noError, value = pcall( net.callRemote, obj[unit_pos], obj[method_pos], unpack(obj[arguments_pos]) )
  547.       if noError and (type(value) == "number" or type(value) == "string" or type(value) == "boolean") then
  548.         table.insert(screen[siteID][objID][values_pos], 1, value)
  549.       elseif errorText == nil then
  550.         table.insert(screen[siteID][objID][values_pos], 1, "ERROR")
  551.         if siteID <= 99 then siteID = "Site: " .. siteID
  552.         elseif siteID <= 198 then siteID = "Frame: " .. siteID-99
  553.         else siteID = "ALARM'N'ACTION"
  554.         end
  555.         if type(value) == "table" then
  556.           value = "(Original Error code was a table. Unable to print.)"
  557.         end
  558.         errorText = {"ERROR! ".. siteID .. "  Object: " .. objID .. "  Unit: " .. obj[unit_pos] .. "  Method: " .. obj[method_pos] .. "  Arguments: " .. countArray(obj[arguments_pos]), "Original Error Code: " .. tostring(value)}
  559.       end
  560.     end
  561.   elseif countArray(screen[siteID][objID]["values"]) == 0 or countArray(screen[siteID][objID]["action_values"]) then
  562.     table.insert(screen[siteID][objID]["values"], 1, "ERROR")
  563.     table.insert(screen[siteID][objID]["action_values"], 1, "ERROR")
  564.   end
  565. end
  566.  
  567.  
  568. function innerDraw(relX, relY, s, layer) -- DONE 1
  569.   if layer == 4 then -- ERROR
  570.     if type(errorText) == "table" then
  571.       local length = #errorText[1]
  572.       if #errorText[1] < #errorText[2] then
  573.         length = #errorText[2]
  574.       end
  575.       local box1 = b.addBox(0,0,math.ceil(length*5.3),28,colorHex[1],1)
  576.       setZDimension(box1)
  577.       local box2 = b.addBox(0,28,1+math.ceil(length*5.3),2,colorHex[14],1)
  578.       setZDimension(box2)
  579.       local box3 = b.addBox(math.ceil(length*5.3),0,2,29,colorHex[14],1)
  580.       setZDimension(box3)
  581.       local var1 = b.addText(5,5,errorText[1],colorHex[14])
  582.       setZDimension(var1)
  583.       local var2 = b.addText(5,15, errorText[2],colorHex[14])
  584.       setZDimension(var2)
  585.       errorText = nil
  586.     end
  587.   end
  588.  
  589.   for objID, obj in pairs(site[s]) do
  590.     if obj.type == "frame" then
  591.       innerDraw(obj.x, obj.y, obj.frame, layer)
  592.     elseif layer == 1 then -- BOX
  593.       if obj.type == "box" then
  594.         drawBox(s, objID, relX, relY)
  595.       end
  596.     elseif layer == 2 then -- NUMBER, BAR, GRAPH
  597.       if obj.type == "number" then
  598.         drawNumber(s, objID, relX, relY)
  599.       elseif obj.type == "bar" then
  600.         drawBar(s, objID, relX, relY)
  601.       elseif obj.type == "graphPillar" or obj.type == "graphPoint" then
  602.         drawGraph(s, objID, relX, relY)
  603.       elseif obj.type == "tank" then
  604.         drawTank(s, objID, relX, relY)
  605.       end      
  606.     elseif layer == 3 then -- TEXT
  607.       if obj.type == "text" or obj.action_type == "TEXT" then
  608.         drawText(s, objID, relX, relY)
  609.       end
  610.     end
  611.   end
  612. end
  613.  
  614.  
  615.  
  616. -- MENU FUNCTIONS
  617.  
  618. function betterRead(x,y,numberOnly,pos,clickX) -- DONE 1
  619.   local previousMode = mode
  620.   local selectedSite = selected
  621.   mode = "betterRead"
  622.   term.setTextColor(colors.lightGray)
  623.   term.setCursorBlink(true)
  624.   local s
  625.   if clickX < x then
  626.     s = ""
  627.   else
  628.     s = tostring(site[selected][selectedObj][pos])
  629.   end
  630.  
  631.  
  632.   while true do
  633.     term.setCursorPos(x,y)
  634.     term.write( string.rep(' ', w - x + 1) )
  635.     term.setCursorPos(x,y)
  636.     if s:len()+x < w then
  637.       term.write(s)
  638.     else
  639.       term.write(s:sub( s:len() - (w-x-2)))
  640.     end
  641.     local e = { os.pullEvent() }
  642.     if e[1] == "mouse_click" then
  643.       mode = "back"
  644.     elseif e[1] == "char" then
  645.       s = s .. e[2]
  646.     elseif e[1] == "key" then
  647.       if e[2] == keys.enter then
  648.         mode = "back"
  649.       elseif e[2] == keys.backspace then
  650.         s = s:sub( 1, s:len() - 1 )
  651.       end
  652.     else
  653.       checkEvent(e, false)
  654.     end
  655.     if mode == "back" then
  656.       mode = previousMode
  657.       break
  658.     elseif not (mode == "betterRead") then
  659.       break
  660.     end
  661.   end
  662.  
  663.   term.setTextColor(colors.white)
  664.   if numberOnly then
  665.     s = tonumber(s)
  666.     if s then
  667.       site[selectedSite][selectedObj][pos] = s
  668.     end
  669.   else
  670.     site[selectedSite][selectedObj][pos] = s
  671.   end
  672.   term.setCursorBlink(false)
  673. end
  674.  
  675.  
  676. function drawColor(color,y) -- DONE 1
  677.   drawArrows(y)
  678.   term.setBackgroundColor(colorName[color])
  679.   centered("   ",y)
  680.   term.setBackgroundColor(colors.black)
  681. end
  682.  
  683. function drawTransparent(transparency,y) -- DONE 1
  684.   drawArrows(y)
  685.   centered(transparency, y)
  686. end
  687.  
  688.  
  689. function changeColor(x, color) -- DONE 1
  690.   if x < 25 then
  691.     site[selected][selectedObj][color] = site[selected][selectedObj][color] - 1
  692.   else
  693.     site[selected][selectedObj][color] = site[selected][selectedObj][color] + 1
  694.   end
  695.   if site[selected][selectedObj][color] <= 0 then
  696.     site[selected][selectedObj][color] = 15
  697.   elseif site[selected][selectedObj][color] >= 16 then
  698.     site[selected][selectedObj][color] = 1
  699.   end
  700. end
  701.  
  702. function changeTransparence(x, transparency) -- DONE 1
  703.   if x < 25 then
  704.     site[selected][selectedObj][transparency] = site[selected][selectedObj][transparency] - 0.1
  705.   else
  706.     site[selected][selectedObj][transparency] = site[selected][selectedObj][transparency] + 0.1
  707.   end
  708.   if site[selected][selectedObj][transparency] < 0 then
  709.     site[selected][selectedObj][transparency] = 1
  710.   elseif site[selected][selectedObj][transparency] > 1 then
  711.     site[selected][selectedObj][transparency] = 0
  712.   end
  713. end
  714.  
  715.  
  716.  
  717. -- QUATERNARY MENUS
  718.  
  719. function menuArguments(unit_pos, method_pos, arguments_pos, amount, args, advancedMethodsSupport) -- DONE 1
  720.   local previousMode = mode
  721.   mode = "arguments"
  722.  
  723.   local param = site[selected][selectedObj][arguments_pos]
  724.   if advancedMethodsSupport then
  725.     for i=1, amount do
  726.       if args[i]["type"] == "NUMBER" and param[i] == nil then
  727.         param[i] = i
  728.       elseif param[i] == nil then
  729.         param[i] = "Argument" .. i
  730.       end
  731.     end
  732.   end
  733.  
  734.  
  735.   while true do
  736.     -- DRAW
  737.     amount = countArray(param)
  738.     clear()
  739.     centered("ENTER ARGUMENTS FOR METHOD " .. site[selected][selectedObj][method_pos], 1)
  740.     fill("-", 2)
  741.     centered("APPLY", 15)
  742.     for i=1, amount do
  743.       write("ARG ".. i ..": " .. param[i],11,3+i)
  744.     end
  745.     if not advancedMethodsSupport and amount <= 10 then
  746.       centered("ADD NEW MANUAL ARGUMENT", 16)
  747.     end
  748.     if not advancedMethodsSupport and amount > 0 then
  749.       centered("DELETE LAST ARGUMENT", 17)
  750.     end
  751.  
  752.     -- EVENT
  753.     local event = { os.pullEvent() }
  754.     if checkEvent(event) then
  755.       x,y = event[3], event[4]
  756.       if y >= 4 and y <= amount+3 then
  757.         site[selected][selectedObj][arguments_pos] = param[y-3]
  758.         if advancedMethodsSupport then
  759.           if args[y-3]["type"] == "NUMBER" then
  760.             betterRead(18,y,true,arguments_pos,x)
  761.           else
  762.             betterRead(18,y,false,arguments_pos,x)
  763.           end
  764.         else -- not advancedMethodsSupport
  765.           betterRead(18,y,false,arguments_pos,x)
  766.           local tempVar = tonumber(site[selected][selectedObj][arguments_pos])
  767.           if tempVar then
  768.             site[selected][selectedObj][arguments_pos] = tempVar
  769.           end
  770.         end
  771.         param[y-3] = site[selected][selectedObj][arguments_pos]
  772.       elseif not advancedMethodsSupport and amount <= 10 and y == 16 then
  773.         param[amount+1] = "Manual Argument" .. amount+1
  774.       elseif not advancedMethodsSupport and amount > 0 and y == 17 then
  775.         param[amount] = nil
  776.       elseif y == 15 then
  777.         mode = "back"
  778.       end
  779.     end
  780.  
  781.     -- BACK TO MENU
  782.     if mode == "back" then
  783.       mode = previousMode
  784.       break
  785.     elseif not (mode == "arguments") then
  786.       break
  787.     end
  788.   end
  789.   site[selected][selectedObj][arguments_pos] = param
  790.   save()
  791. end
  792.  
  793.  
  794.  
  795.  
  796.  
  797.  
  798. -- TERTIARY MENUS
  799.  
  800. function menuUnit(unit_pos, method_pos, arguments_pos) -- DONE 1
  801.   clear()
  802.   local list = net.getNamesRemote()
  803.   if countArray(list) == 0 then
  804.     centered("NOTHING ATTACHED TO THE NETWORK!",9)
  805.     while true do
  806.       local event = {os.pullEvent()}
  807.       if event[1] == "timer" and event[2] == delay then
  808.         drawSite()
  809.         delay = os.startTimer(updateInterval)
  810.       else
  811.         return "NONE"
  812.       end
  813.     end
  814.   end
  815.  
  816.   local selectedUnit = 1
  817.   for k,v in pairs(list) do
  818.     selectedUnit = selectedUnit + 1
  819.     if advancedMethodsSupport and v["name"] == site[selected][selectedObj][unit_pos] then
  820.       break
  821.     elseif not advancedMethodsSupport and v == site[selected][selectedObj][unit_pos] then
  822.       break
  823.     end
  824.   end
  825.   selectedUnit = selectedUnit - 1
  826.  
  827.   selectedUnit = 1
  828.   local previousMode = mode
  829.   mode = "unit"
  830.   while true do
  831.     -- DRAW
  832.     clear()
  833.     centered("SELECT A UNIT",1)
  834.     fill("-",2)
  835.     centered("SELECT",14)
  836.     fill(" ",9)
  837.     drawArrows(9)
  838.     centered(list[selectedUnit],9)
  839.  
  840.     -- EVENT
  841.     local event = { os.pullEvent() }
  842.     if checkEvent(event) then
  843.       x,y = event[3], event[4]
  844.       if y >= 8 and y <= 10 then
  845.         if x <= 25 then
  846.           selectedUnit = selectedUnit - 1
  847.         else
  848.           selectedUnit = selectedUnit + 1
  849.         end
  850.         if selectedUnit == 0 then
  851.           selectedUnit = countArray(list)
  852.         elseif selectedUnit > countArray(list) then
  853.           selectedUnit = 1
  854.         end
  855.       elseif y == 14 then
  856.         mode = "back"
  857.       end
  858.     end
  859.  
  860.     -- BACK TO MENU
  861.     if mode == "back" then
  862.       mode = previousMode
  863.       break
  864.     elseif not (mode == "unit") then
  865.       break
  866.     end
  867.   end
  868.   site[selected][selectedObj][unit_pos] = list[selectedUnit]
  869.   site[selected][selectedObj][method_pos] = "NONE"
  870.   site[selected][selectedObj][arguments_pos] = {}
  871. end
  872.  
  873.  
  874.  
  875.  
  876. function menuMethod(method_pos, unit_pos, arguments_pos, allReturnTypes) -- DONE 1
  877.   local unit = site[selected][selectedObj][unit_pos]
  878.   allReturnTypes = allReturnTypes or false
  879.   clear()
  880.   if not net.isPresentRemote(unit) then
  881.     return "NONE"
  882.   end
  883.  
  884.   -- methods available?
  885.   local basicMethods = net.getMethodsRemote(unit)
  886.   if basicMethods ~= nil and countArray(basicMethods) == 0 then
  887.     centered("NO METHOD FOUND!",9)
  888.     while true do
  889.       local event = {os.pullEvent()}
  890.       if event[1] == "timer" and event[2] == delay then
  891.         drawSite()
  892.         delay = os.startTimer(updateInterval)
  893.       else
  894.         break
  895.       end
  896.     end
  897.     return "NONE"
  898.   end
  899.  
  900. -- advanced or normal support? (fixed by blunty666)
  901.   local advancedMethodsSupport = false
  902.   local unitType = "NONE"
  903.   local advancedMethodsList = {}
  904.   for k,v in pairs(basicMethods) do
  905.     if v == "getAdvancedMethodsData" then
  906.        advancedMethodsSupport = true
  907.        unitType = net.getTypeRemote(unit)
  908.        advancedMethodsList = net.callRemote(unit, "getAdvancedMethodsData")
  909.        break
  910.     end
  911.   end
  912.  
  913.   --[[ get advanced methods if possible
  914.   local list = {}
  915.   if advancedMethodsSupport then
  916.     for k,v in pairs(advancedMethodsList) do
  917.       if allReturnTypes or ( v["returnType"] ~= nil and v["returnType"] ) or ( v["returnTypes"][1] == "number" ) then
  918.         table.insert(list, 1, v)
  919.       end
  920.     end
  921.   else
  922.     list = net.getMethodsRemote(unit)
  923.   end]]
  924.  
  925.  
  926. -- get advanced methods if possible (fixed by blunty666)
  927.   local list = {}
  928.   if advancedMethodsSupport then
  929.     for k,v in pairs(advancedMethodsList) do
  930.       if allReturnTypes or ( v["returnType"] ~= nil and v["returnType"] ) or ( v["returnTypes"][1] == "number" ) then
  931.         v.name = k
  932.         table.insert(list, 1, v)
  933.       end
  934.     end
  935.   else
  936.     list = net.getMethodsRemote(unit)
  937.   end
  938.  
  939.  
  940.  
  941.  
  942.   -- still methods with number as return value available?
  943.   if advancedMethodsSupport and (list == nil or countArray(list) == 0) then
  944.     centered("NO METHOD FOUND!",9)
  945.     while true do
  946.       local event = {os.pullEvent()}
  947.       if event[1] == "timer" and event[2] == delay then
  948.         drawSite()
  949.         delay = os.startTimer(updateInterval)
  950.       else
  951.         break
  952.       end
  953.     end
  954.     return "NONE"
  955.   end
  956.  
  957.  
  958.  
  959.  
  960.   -- selection of the method
  961.   local method = 1
  962.   for k,v in pairs(list) do
  963.     method = method + 1
  964.     if advancedMethodsSupport and v["name"] == site[selected][selectedObj][method_pos] then
  965.       break
  966.     elseif not advancedMethodsSupport and v == site[selected][selectedObj][method_pos] then
  967.       break
  968.     end
  969.   end
  970.   method = method - 1
  971.  
  972.   local previousMode = mode
  973.   local previousSelected = selected
  974.   mode = "method"
  975.   while true do
  976.     -- DRAW
  977.     clear()
  978.     centered("SELECT A METHOD FROM " .. unit ,1)
  979.     fill("-",2)
  980.     centered("SELECT",16)
  981.     local methodName = "UNKNOWN"
  982.     local methodDescription = "UNKNOWN! No Advanced Methods Support available!"
  983.     local methodReturnType = "UNKNOWN"
  984.     local methodArgumentamount = 1337
  985.     local methodArgs = {}
  986.     if advancedMethodsSupport then
  987.       local counter = 1
  988.       for k, v in pairs(list) do
  989.         if counter == method then
  990.           methodName = v["name"]
  991.           methodDescription = v["description"]
  992.           methodReturnType = v["returnType"] or v["returnTypes"][1] or "nil"
  993.           methodArgumentamount = countArray(v["args"]) or 0
  994.           methodArgs = v["args"] or {}
  995.           break
  996.         end
  997.         counter = counter + 1
  998.       end
  999.     else
  1000.       methodDescription = "UNKNOWN! No Advanced Methods Support available!"
  1001.       methodReturnType = "UNKNOWN"
  1002.       methodArgumentamount = 0
  1003.       methodName = list[method]
  1004.     end
  1005.  
  1006.  
  1007.     fill(" ",6)
  1008.     drawArrows(6)
  1009.     centered(methodName, 6)
  1010.     term.setCursorPos(1,8)
  1011.     print(" Description: " .. methodDescription)
  1012.     print(" Returns: " .. methodReturnType)
  1013.     print(" Arguments: " .. methodArgumentamount)
  1014.     if advancedMethodsSupport and methodArgumentamount >= 1 then
  1015.       centered("SET OR CHANGE ARGUMENTS", 15)
  1016.     elseif not advancedMethodsSupport then
  1017.       centered("SET OR CHANGE ARGUMENTS (OWN RISK)", 15)
  1018.     end
  1019.     -- EVENT
  1020.     local event = { os.pullEvent() }
  1021.     if checkEvent(event) then
  1022.       site[selected][selectedObj][method_pos] = methodName
  1023.       x,y = event[3], event[4]
  1024.       if y >= 5 and y <= 8 then
  1025.         site[selected][selectedObj][arguments_pos] = {}
  1026.         screen[selected][selectedObj][arguments_pos] = {}
  1027.         if x <= 25 then
  1028.           method = method - 1
  1029.         else
  1030.           method = method + 1
  1031.         end
  1032.         if method == 0 then
  1033.           method = countArray(list)
  1034.         elseif method > countArray(list) then
  1035.           method = 1
  1036.         end
  1037.       elseif advancedMethodsSupport and methodArgumentamount >= 1 and y == 15 then
  1038.         menuArguments(unit_pos, method_pos, arguments_pos, methodArgumentamount, methodArgs, true)
  1039.       elseif not advancedMethodsSupport and y == 15 then
  1040.         menuArguments(unit_pos, method_pos, arguments_pos, countArray(site[selected][selectedObj][arguments_pos]), methodArgs, false)
  1041.       elseif y == 16 then
  1042.         mode = "back"
  1043.       end
  1044.     end
  1045.  
  1046.     -- BACK TO MENU
  1047.     if mode == "back" then
  1048.       mode = previousMode
  1049.       break
  1050.     elseif not (mode == "method") then
  1051.       break
  1052.     end
  1053.   end
  1054. end
  1055.  
  1056.  
  1057. -- SECONDARY MENUS
  1058.  
  1059. function menuSiteOrFrame(setMode) -- DONE 1
  1060.   mode = setMode
  1061.   local selectedFrame = 100
  1062.   if mode == "site" then
  1063.     selected = 1
  1064.   else
  1065.     selected = 100
  1066.   end
  1067.   selectedObj = 1
  1068.   while true do
  1069.     -- DRAW
  1070.     clear()
  1071.     drawArrows(1)
  1072.     if mode == "site" then
  1073.      centered("SITE " .. selected ,1)
  1074.     elseif mode == "frame" then
  1075.      centered("FRAME " .. selected-99 ,1)
  1076.     end
  1077.     fill("-",2)
  1078.     local obj = site[selected][selectedObj]
  1079.     if type(obj) == "table" then
  1080.       centered(selectedObj.. " - " .. obj.type , 3)
  1081.     else
  1082.      centered(selectedObj , 3)
  1083.     end
  1084.     drawArrows(3)
  1085.     fill("-",4)
  1086.     write("BACK",48,1)
  1087.     if type(obj) == "table" then    -- object exists
  1088.       write("DELETE",1,1)
  1089.       if obj.type == "text" then    -- TEXT
  1090.         write("TEXT: " .. obj.text,10,7)
  1091.         write("X:    " .. obj.x,10,9)
  1092.         write("Y:    " .. obj.y,10,11)
  1093.         drawColor(obj.text_color,13)
  1094.       elseif obj.type == "box" then   -- BOX
  1095.         write("X:      " .. obj.x,10,5)
  1096.         write("Y:      " .. obj.y,10,6)
  1097.         write("WIDTH:  " .. obj.w,10,7)
  1098.         write("HEIGHT: " .. obj.h,10,8)
  1099.         drawColor(obj.border_color,9)
  1100.         drawTransparent(obj.border_transparency,10)
  1101.         drawColor(obj.inner_color,11)
  1102.         drawTransparent(obj.inner_transparency,12)
  1103.       elseif obj.type == "number" then  -- NUMBER
  1104.         write("X:      "..obj.x,10,5)
  1105.         write("Y:      "..obj.y,10,6)
  1106.         write("TEXT:   "..obj.text,10,7)
  1107.         write("UNIT:   "..obj.unit,10,8)
  1108.         write("METHOD: "..obj.method,10,9)
  1109.         write("MAX:    "..obj.maxNumber,10,10)
  1110.         drawColor(obj.text_standardColor,11)
  1111.         drawColor(obj.text_maxNumberColor,12)
  1112.       elseif obj.type == "bar" then   -- BAR
  1113.         write("X:      "..obj.x,10,5)
  1114.         write("Y:      "..obj.y,10,6)
  1115.         write("WIDTH:  "..obj.w,10,7)
  1116.         write("HEIGHT: "..obj.h,10,8)
  1117.         write("UNIT:   "..obj.unit,10,9)
  1118.         write("METHOD: "..obj.method,29,9)
  1119.         write("MAX:    "..obj.maxNumber,10,10)
  1120.         drawColor(obj.color,11)
  1121.         drawTransparent(obj.transparency,12)
  1122.         drawColor(obj.color2,13)
  1123.         drawTransparent(obj.transparency2,14)
  1124.         drawColor(obj.color3,15)
  1125.         drawTransparent(obj.transparency3,16)
  1126.         drawColor(obj.color4,17)
  1127.         drawTransparent(obj.transparency4,18)
  1128.         write("ADD AUTO TEXT", 10, 19)
  1129.       elseif obj.type == "graphPillar" or obj.type == "graphPoint" then    
  1130.         -- GRAPHS
  1131.         write("X:       "..obj.x,10,5)
  1132.         write("Y:       "..obj.y,10,6)
  1133.         write("WIDTH:   "..obj.w,10,7)
  1134.         write("HEIGHT:  "..obj.h,10,8)
  1135.         write("UNIT:    "..obj.unit,10,9)
  1136.         write("METHOD:  "..obj.method,10,10)
  1137.         write("MIN:     "..obj.minNumber,10,11)
  1138.         write("MAX:     "..obj.maxNumber,10,12)
  1139.         drawColor(obj.color,13)
  1140.         drawTransparent(obj.transparency,14)
  1141.         write("FADEOUT: "..tostring(obj.fadeout),10,15)
  1142.         write("TYPE:   " ..obj.type,10,16)
  1143.         write("ADD AUTO BOX", 10, 17)
  1144.       elseif obj.type == "frame" then -- FRAME
  1145.         centered(obj.frame-99,5)
  1146.         drawArrows(5)
  1147.         fill("-",6)
  1148.         write("X: "..obj.x,10,8)
  1149.         write("Y: "..obj.y,10,10)
  1150.       elseif obj.type == "tank" then -- TANK
  1151.         write("X:      "..obj.x,10,5)
  1152.         write("Y:      "..obj.y,10,6)
  1153.         write("WIDTH:  "..obj.w,10,7)
  1154.         write("HEIGHT: "..obj.h,10,8)
  1155.         write("UNIT:   "..obj.unit,10,9)
  1156.         write("METHOD: "..obj.method,10,10)
  1157.         write("MAX:    "..obj.maxNumber,10,11)
  1158.         write("LIQUID: "..obj.liquid,10,12)
  1159.         drawColor(obj.cBorder,13)
  1160.         drawTransparent(obj.tBorder,14)
  1161.         drawColor(obj.cBack,15)
  1162.         drawTransparent(obj.tBack,16)
  1163.       end
  1164.     else  --create new object
  1165.       write("TEXT",20,6)
  1166.       write("BOX",20,7)
  1167.       write("NUMBER",20,8)
  1168.       write("BAR",20,9)
  1169.       write("GRAPH (PILLAR)",20,10)
  1170.       write("GRAPH (POINT)",20,11)
  1171.       write("TANK",20,12)
  1172.       if mode == "site" then
  1173.         write("FRAME",20,13)
  1174.       end
  1175.     end
  1176.  
  1177.     -- EVENT
  1178.     local event = { os.pullEvent() }
  1179.     if checkEvent(event) then
  1180.       x, y = event[3], event[4]
  1181.       if y == 1 and x >= w-4 then
  1182.         mode = "mainmenu"
  1183.       elseif type(site[selected][selectedObj]) == "table" and y == 1 and x <=6 then
  1184.         site[selected][selectedObj] = nil
  1185.         if selectedObj >= 2 then
  1186.           selectedObj = selectedObj - 1
  1187.         end
  1188.       elseif y == 1 then
  1189.         selectedObj = 1
  1190.         if x < 25 then
  1191.           selected = selected - 1
  1192.         else
  1193.           selected = selected + 1
  1194.         end
  1195.         if mode == "site" then
  1196.           if selected <= 0 then
  1197.             selected = 99
  1198.           elseif selected >= 100 then
  1199.             selected = 1
  1200.           end
  1201.         elseif mode == "frame" then
  1202.           if selected <= 99 then
  1203.             selected = 198
  1204.           elseif selected >= 199 then
  1205.             selected = 100
  1206.           end
  1207.         end
  1208.       elseif y >= 2 and y <= 4 then
  1209.         if x < 25 then
  1210.           selectedObj = selectedObj - 1
  1211.         else
  1212.           selectedObj = selectedObj + 1
  1213.         end
  1214.         if selectedObj == 0 then
  1215.           selectedObj = 1
  1216.         end
  1217.       elseif type(site[selected][selectedObj]) == "table" then
  1218.         if site[selected][selectedObj].type == "text" then
  1219.           if y == 7 then
  1220.             betterRead(16,y,false,"text",x)
  1221.           elseif y == 9 then
  1222.             betterRead(16,y,true,"x",x)
  1223.           elseif y == 11 then
  1224.             betterRead(16,y,true,"y",x)
  1225.           elseif y == 13 then
  1226.             changeColor(x,"text_color")
  1227.           end
  1228.         elseif site[selected][selectedObj].type == "box" then
  1229.           if y == 5 then
  1230.             betterRead(18,y,true,"x",x)
  1231.           elseif y == 6 then
  1232.             betterRead(18,y,true,"y",x)
  1233.           elseif y == 7 then
  1234.             betterRead(18,y,true,"w",x)
  1235.           elseif y == 8 then
  1236.             betterRead(18,y,true,"h",x)
  1237.           elseif y == 9 then
  1238.             changeColor(x,"border_color")
  1239.           elseif y == 10 then
  1240.             changeTransparence(x,"border_transparency")
  1241.           elseif y == 11 then
  1242.             changeColor(x,"inner_color")
  1243.           elseif y == 12 then
  1244.             changeTransparence(x,"inner_transparency")
  1245.           end
  1246.         elseif site[selected][selectedObj].type == "number" then
  1247.           if y == 5 then
  1248.            betterRead(18,y,true,"x",x)
  1249.           elseif y == 6 then
  1250.             betterRead(18,y,true,"y",x)
  1251.           elseif y == 7 then
  1252.             betterRead(18,y,false,"text",x)
  1253.           elseif y == 8 then
  1254.             menuUnit("unit","method","arguments")
  1255.           elseif y == 9 then
  1256.             if x < 18 then
  1257.               menuMethod("method","unit","arguments",true)
  1258.             else
  1259.               menuMethod("method","unit","arguments",false)
  1260.             end
  1261.           elseif y == 10 then
  1262.             betterRead(18,y,true,"maxNumber",x)
  1263.           elseif y == 11 then
  1264.             changeColor(x,"text_standardColor")
  1265.           elseif y == 12 then
  1266.             changeColor(x,"text_maxNumberColor")
  1267.           end
  1268.         elseif site[selected][selectedObj].type == "bar" then
  1269.           if y == 5 then
  1270.             betterRead(18,y,true,"x",x)
  1271.           elseif y == 6 then
  1272.             betterRead(18,y,true,"y",x)
  1273.           elseif y == 7 then
  1274.             betterRead(18,y,true,"w",x)
  1275.           elseif y == 8 then
  1276.             betterRead(18,y,true,"h",x)
  1277.           elseif y == 9 then
  1278.             if x < 28 then
  1279.               menuUnit("unit","method","arguments")
  1280.             else
  1281.               if x < 18 then
  1282.               menuMethod("method","unit","arguments",true)
  1283.             else
  1284.               menuMethod("method","unit","arguments",false)
  1285.             end
  1286.           end
  1287.           elseif y == 10 then
  1288.             betterRead(18,y,true,"maxNumber",x)
  1289.           elseif y == 11 then
  1290.             changeColor(x,"color")
  1291.           elseif y == 12 then
  1292.             changeTransparence(x,"transparency")
  1293.           elseif y == 13 then
  1294.             changeColor(x,"color2")
  1295.           elseif y == 14 then
  1296.             changeTransparence(x,"transparency2")
  1297.           elseif y == 15 then
  1298.             changeColor(x,"color3")
  1299.           elseif y == 16 then
  1300.             changeTransparence(x,"transparency3")
  1301.           elseif y == 17 then
  1302.             changeColor(x,"color4")
  1303.           elseif y == 18 then
  1304.             changeTransparence(x,"transparency4")
  1305.           elseif y == 19 then
  1306.             local bar = site[selected][selectedObj]
  1307.             local textProperties = {type="text",text="YOUR TEXT",x=bar.x-59,y=bar.y+4,text_color=bar.color}
  1308.             table.insert(site[selected], selectedObj+1, textProperties )
  1309.             selectedObj = selectedObj+1
  1310.  
  1311.             betterRead(25,y,false,"text",50)
  1312.             site[selected][selectedObj].x = bar.x - 10 - math.floor(5.5 * #site[selected][selectedObj].text)
  1313.           end
  1314.         elseif site[selected][selectedObj].type == "graphPillar" or site[selected][selectedObj].type == "graphPoint" then
  1315.           if y == 5 then
  1316.             betterRead(19,y,true,"x",x)
  1317.           elseif y == 6 then
  1318.             betterRead(19,y,true,"y",x)
  1319.           elseif y == 7 then
  1320.             betterRead(19,y,true,"w",x)
  1321.           elseif y == 8 then
  1322.             betterRead(19,y,true,"h",x)
  1323.           elseif y == 9 then
  1324.             menuUnit("unit","method","arguments")
  1325.           elseif y == 10 then
  1326.             if x < 18 then
  1327.               menuMethod("method","unit","arguments",true)
  1328.             else
  1329.               menuMethod("method","unit","arguments",false)
  1330.             end
  1331.           elseif y == 11 then
  1332.             betterRead(19,y,true,"minNumber",x)
  1333.           elseif y == 12 then
  1334.             betterRead(19,y,true,"maxNumber",x)
  1335.           elseif y == 13 then
  1336.             changeColor(x,"color")
  1337.           elseif y == 14 then
  1338.             changeTransparence(x,"transparency")
  1339.           elseif y == 15 then
  1340.             site[selected][selectedObj].fadeout = not site[selected][selectedObj].fadeout
  1341.           elseif y == 16 then
  1342.             if site[selected][selectedObj].type == "graphPoint" then
  1343.               site[selected][selectedObj].type = "graphPillar"
  1344.             elseif site[selected][selectedObj].type == "graphPillar" then
  1345.               site[selected][selectedObj].type = "graphPoint"
  1346.             end
  1347.           elseif y == 17 then
  1348.             local g = site[selected][selectedObj]
  1349.             local boxProperties = {type="box", x=g.x-4, y=g.y-6, w=g.w+8, h=g.h+10, inner_color=1, inner_transparency=0.4, border_color=g.color, border_transparency=0.9}
  1350.             table.insert(site[selected], selectedObj+1, boxProperties )
  1351.             selectedObj = selectedObj+1
  1352.           end
  1353.         elseif site[selected][selectedObj].type == "tank" then
  1354.           if y == 5 then
  1355.             betterRead(18,y,true,"x",x)
  1356.           elseif y == 6 then
  1357.             betterRead(18,y,true,"y",x)
  1358.           elseif y == 7 then
  1359.             betterRead(18,y,true,"w",x)
  1360.           elseif y == 8 then
  1361.             betterRead(18,y,true,"h",x)
  1362.           elseif y == 9 then
  1363.             menuUnit("unit","method","arguments")
  1364.           elseif y == 10 then
  1365.             if x < 18 then
  1366.               menuMethod("method","unit","arguments",true)
  1367.             else
  1368.               menuMethod("method","unit","arguments",false)
  1369.             end
  1370.           elseif y == 11 then
  1371.             betterRead(18,y,true,"maxNumber",x)
  1372.           elseif y == 12 then
  1373.             betterRead(18,y,false,"liquid",x)
  1374.           elseif y == 13 then
  1375.             changeColor(x,"cBorder")
  1376.           elseif y == 14 then
  1377.             changeTransparence(x,"tBorder")
  1378.           elseif y == 15 then
  1379.             changeColor(x,"cBack")
  1380.           elseif y == 16 then
  1381.             changeTransparence(x,"tBack")
  1382.           end
  1383.         elseif site[selected][selectedObj].type == "frame" then
  1384.           if y == 5 then
  1385.             if x < 25 then
  1386.               site[selected][selectedObj].frame = site[selected][selectedObj].frame - 1
  1387.             else
  1388.               site[selected][selectedObj].frame = site[selected][selectedObj].frame + 1
  1389.             end
  1390.             if site[selected][selectedObj].frame == 99 then
  1391.               site[selected][selectedObj].frame = 198
  1392.             elseif site[selected][selectedObj].frame == 199 then
  1393.               site[selected][selectedObj].frame = 100
  1394.             end
  1395.           elseif y == 8 then
  1396.             betterRead(13,y,true,"x",x)
  1397.           elseif y == 10 then
  1398.             betterRead(13,y,true,"y",x)
  1399.           end
  1400.         end
  1401.       else        -- CREATE
  1402.         if y == 6 then
  1403.           site[selected][selectedObj] = {type="text",text="UNOBTANIUM",x=1,y=1,text_color=1}
  1404.         elseif y == 7 then
  1405.           site[selected][selectedObj] = {type="box",x=1,y=1,w=10,h=10,inner_color=1,inner_transparency=0.4,border_color=15,border_transparency=1}
  1406.         elseif y == 8 then
  1407.           site[selected][selectedObj] = {type="number",x=1,y=1,text="UNOBTANIUM",unit="NONE",method="NONE",maxNumber=1337,text_standardColor=1,text_maxNumberColor=14,arguments={}}
  1408.         elseif y == 9 then
  1409.           site[selected][selectedObj] = {type="bar",x=1,y=1,w=40,h=15,color=1,transparency=1,color2=2,transparency2=1,color3=3,transparency3=1,color4=4,transparency4=1,unit="NONE",method="NONE",maxNumber=1337, arguments={}}
  1410.         elseif y == 10 then
  1411.           site[selected][selectedObj] = {type="graphPillar",x=1,y=1,w=100,h=40,minNumber=0,maxNumber=1337,color=1,transparency=1,fadeout=false,unit="NONE",method="NONE",arguments={}}
  1412.         elseif y == 11 then
  1413.           site[selected][selectedObj] = {type="graphPoint",x=1,y=1,w=100,h=40,minNumber=0,maxNumber=1337,color=1,transparency=1,fadeout=false,unit="NONE",method="NONE",arguments={}}
  1414.         elseif y == 12 then
  1415.           site[selected][selectedObj] = {type="tank",x=1,y=1,w=15,h=40,cBorder=1,tBorder=1,cBack=2,tBack=1,unit="NONE",method="NONE",maxNumber=1337, liquid="water", arguments={}}
  1416.         elseif y == 13 and mode == "site" then
  1417.           site[selected][selectedObj] = {type="frame",frame=100,x=0,y=0}
  1418.         end
  1419.       end
  1420.     end
  1421.  
  1422.     -- BACK TO MENU
  1423.     if not (mode == "site" or mode == "frame") then
  1424.       break
  1425.     end
  1426.   end
  1427. end
  1428.  
  1429.  
  1430.  
  1431. function menuAlarm() -- DONE 1
  1432.   mode = "alarm"
  1433.   local previousSelected = selected
  1434.   selected = 199
  1435.   selectedObj = 1
  1436.   while true do
  1437.     local obj = site[199][selectedObj]
  1438.     -- DRAW
  1439.     clear()
  1440.     b.clear()
  1441.     centered("ALARM'N'ACTION", 1)
  1442.     fill("-",2)
  1443.     if type(site[199][selectedObj]) == "table" then
  1444.       centered(selectedObj .. " - " .. obj.type, 3)
  1445.     else
  1446.       centered(selectedObj, 3)
  1447.     end
  1448.     drawArrows(3)
  1449.     fill("-",4)
  1450.     write("BACK", 48, 1)
  1451.     local relY = 0
  1452.     if type(obj) == "table" and obj.type == "ALARM" then
  1453.       write("DELETE", 1, 1)
  1454.       write("UNIT:      "..obj.unit, 10, 6)
  1455.       write("METHOD:    "..obj.method, 10, 7)
  1456.       write("NUMBER:    "..obj.operator .. " " .. obj.number, 10, 8)
  1457.       write("ACTION:    "..obj.action_type, 10, 9)
  1458.       relY = 2
  1459.     elseif type(obj) == "table" and obj.type == "CHAT" then
  1460.       write("DELETE", 1, 1)
  1461.       write("COMMAND: $$"..obj.text, 10, 6)
  1462.       write("ACTION:    "..obj.action_type, 10, 7)
  1463.     elseif type(obj) == "table" and obj.type == "REDNET" then
  1464.       write("DELETE", 1, 1)
  1465.       write("MESSAGE:   "..obj.text, 10, 6)
  1466.       write("ACTION:    "..obj.action_type, 10, 7)
  1467.     else
  1468.       write("ALARM", 10, 9)
  1469.       write("CHAT", 10, 10)
  1470.       write("REDNET", 10 , 11)
  1471.     end
  1472.  
  1473.     if type(obj) == "table" then
  1474.       if obj.action_type == "TEXT" then
  1475.         write("| X:       "..obj.action_x, 10, 8+relY)
  1476.         write("| Y:       "..obj.action_y, 10, 9+relY)
  1477.         write("| TEXT:    "..obj.action_text, 10, 10+relY)
  1478.         drawColor(obj.action_text_color, 11+relY)
  1479.       elseif obj.action_type == "ACTIVATION" then
  1480.         write("| UNIT:    "..obj.action_unit, 10, 8+relY)
  1481.         write("| METHOD:  "..obj.action_method, 10, 9+relY)
  1482.       elseif obj.action_type == "REDNET" then
  1483.         write("| MESSAGE: "..obj.action_text, 10, 8+relY)
  1484.       end
  1485.     end
  1486.  
  1487.     -- EVENT
  1488.     local event = { os.pullEvent() }
  1489.     if checkEvent(event) then
  1490.       x, y = event[3], event[4]
  1491.       if y == 1 and x <= 6 and type(site[199][selectedObj]) == "table" then
  1492.         site[199][selectedObj] = nil
  1493.         if selectedObj >= 2 then
  1494.           selectedObj = selectedObj - 1
  1495.         end
  1496.       elseif y == 1 and x >= 48 then
  1497.         save()
  1498.         selected = previousSelected
  1499.         selectedObj = 1
  1500.         mode = "mainmenu"
  1501.       elseif y == 3 or y == 4 then
  1502.         if x > 25 then
  1503.           selectedObj = selectedObj + 1
  1504.         elseif selectedObj > 1 then
  1505.           selectedObj = selectedObj - 1
  1506.         end
  1507.       elseif type(site[199][selectedObj]) == "table" and site[199][selectedObj].type == "ALARM" then -- ALARM
  1508.         if y == 6 then
  1509.           menuUnit("unit","method","arguments")
  1510.         elseif y == 7 then
  1511.           if x < 20 then
  1512.             menuMethod("method", "unit","arguments",true)
  1513.           else
  1514.             menuMethod("method", "unit","arguments",false)
  1515.           end
  1516.         elseif y == 8 and x >=19 and x <= 21 then
  1517.           if site[199][selectedObj].operator == "=" then
  1518.             site[199][selectedObj].operator = ">"
  1519.           elseif site[199][selectedObj].operator == ">" then
  1520.             site[199][selectedObj].operator = "<"
  1521.           elseif site[199][selectedObj].operator == "<" then
  1522.             site[199][selectedObj].operator = "="
  1523.           end
  1524.         elseif y == 8 then
  1525.           betterRead(23,y,true,"number",x)
  1526.         elseif y == 9 then
  1527.           setAction()
  1528.         elseif site[199][selectedObj].action_type == "TEXT" then -- ALARM: TEXT
  1529.           if y == 10 then
  1530.             betterRead(21,y,true,"action_x",x)
  1531.           elseif y == 11 then
  1532.             betterRead(21,y,true,"action_y",x)
  1533.           elseif y == 12 then
  1534.             betterRead(21,y,false,"action_text",x)
  1535.           elseif y == 13 then
  1536.             changeColor(x,"action_text_color")
  1537.           end
  1538.         elseif site[199][selectedObj].action_type == "ACTIVATION" then -- ALARM: ACTIVATION
  1539.           if y == 10 then
  1540.             menuUnit("action_unit","action_method","action_arguments")
  1541.           elseif y == 11 then
  1542.             if x < 20 then
  1543.               menuMethod("action_method", "action_unit", "action_arguments", true)
  1544.             else
  1545.               menuMethod("action_method", "action_unit", "action_arguments",false)
  1546.             end
  1547.           end
  1548.         elseif site[199][selectedObj].action_type == "REDNET" then -- ALARM: REDNET
  1549.           if y == 10 then
  1550.             betterRead(21,y,false,"action_text",x)
  1551.           end
  1552.         end
  1553.  
  1554.       elseif type(site[199][selectedObj]) == "table" and ( site[199][selectedObj].type == "CHAT" or site[199][selectedObj].type == "REDNET") then -- CHAT AND REDNET
  1555.         if y == 6 then
  1556.           betterRead(21,y,false,"text",x)
  1557.         elseif y == 7 then
  1558.           setAction()
  1559.         elseif site[199][selectedObj].action_type == "TEXT" then -- ALARM: TEXT
  1560.           if y == 8 then
  1561.             betterRead(21,y,true,"action_x",x)
  1562.           elseif y == 9 then
  1563.             betterRead(21,y,true,"action_y",x)
  1564.           elseif y == 10 then
  1565.             betterRead(21,y,false,"action_text",x)
  1566.           elseif y == 11 then
  1567.             changeColor(x,"action_text_color")
  1568.           end
  1569.         elseif site[199][selectedObj].action_type == "ACTIVATION" then -- ALARM: ACTIVATION
  1570.           if y == 8 then
  1571.             menuUnit("action_unit","action_method","action_arguments")
  1572.           elseif y == 9 then
  1573.             if x < 20 then
  1574.               menuMethod("action_method", "action_unit","action_arguments",true)
  1575.             else
  1576.               menuMethod("action_method", "action_unit", "action_arguments",false)
  1577.             end
  1578.           end
  1579.         elseif site[199][selectedObj].action_type == "REDNET" then -- ALARM: REDNET
  1580.           if y == 8 then
  1581.             betterRead(21,y,false,"action_text",x)
  1582.           end
  1583.         end
  1584.  
  1585.       else -- CREATE NEW
  1586.         site[199][selectedObj] = {}
  1587.         if y == 9 then
  1588.           site[199][selectedObj] = {type="ALARM" ,unit="NONE", method="NONE", arguments={}, operator="=", number=42, action_type="NONE"}
  1589.         elseif y == 10 then
  1590.           site[199][selectedObj] = {type="CHAT",text="NONE",action_type="NONE"}
  1591.         elseif y == 11 then
  1592.           site[199][selectedObj] = {type="REDNET",text="NONE",action_type="NONE"}
  1593.         end
  1594.       end
  1595.     end
  1596.  
  1597.     -- BACK TO MENU
  1598.     if not (mode == "alarm") then
  1599.       selected = previousSelected
  1600.       break
  1601.     end
  1602.   end
  1603. end
  1604.  
  1605. function setAction() -- DONE 1
  1606.   if site[199][selectedObj].action_type == "NONE" then
  1607.     site[199][selectedObj].action_type = "TEXT"
  1608.     site[199][selectedObj].action_x = 1
  1609.     site[199][selectedObj].action_y = 1
  1610.     site[199][selectedObj].action_text = "UNOBTANIUM"
  1611.     site[199][selectedObj].action_text_color = 1
  1612.   elseif site[199][selectedObj].action_type == "TEXT" then
  1613.     site[199][selectedObj].action_type = "ACTIVATION"
  1614.     site[199][selectedObj].action_unit = "NONE"
  1615.     site[199][selectedObj].action_method = "NONE"
  1616.     site[199][selectedObj].action_arguments = {}
  1617.     site[199][selectedObj].action_text_color = nil
  1618.     site[199][selectedObj].action_text = nil
  1619.     site[199][selectedObj].action_x = nil
  1620.     site[199][selectedObj].action_y = nil
  1621.   elseif site[199][selectedObj].action_type == "ACTIVATION" then
  1622.     site[199][selectedObj].action_type = "REDNET"
  1623.     site[199][selectedObj].action_text = "UNOBTANIUM"
  1624.     site[199][selectedObj].action_unit = nil
  1625.     site[199][selectedObj].action_method = nil
  1626.     site[199][selectedObj].action_arguments = nil
  1627.   elseif site[199][selectedObj].action_type == "REDNET" then
  1628.     site[199][selectedObj].action_type = "NONE"
  1629.     site[199][selectedObj].action_text = nil
  1630.   end
  1631. end
  1632.  
  1633.  
  1634.  
  1635. -- PRIMARY MENUS
  1636.  
  1637. function mainMenu() -- DONE 1
  1638.   mode = "mainmenu"
  1639.   while true do
  1640.     for _, side in pairs(rednetSide) do
  1641.       if peripheral.getType(side) == "modem" then
  1642.         rednet.open(side)
  1643.       end
  1644.     end
  1645.    
  1646.     -- DRAW
  1647.     clear()
  1648.     centered("CLIENT FOR OPENPERIPERAL'S GLASSES", 1)
  1649.     fill("-", 2)
  1650.     write("by UNOBTANIUM", w-13, h)
  1651.     write("Site",20,6)
  1652.     write("Frame",20,8)
  1653.     write("Alarm'n'Action",20,10)
  1654.     write("Quit",20,13)
  1655.     write("<   " .. updateInterval .. "   >",2, h)
  1656.  
  1657.     -- EVENT
  1658.     local event = { os.pullEvent() }
  1659.     if checkEvent(event) then
  1660.       x, y = event[3], event[4]
  1661.       if y == 6 then
  1662.         menuSiteOrFrame("site")
  1663.       elseif y == 8 then
  1664.         menuSiteOrFrame("frame")
  1665.       elseif y == 10 then
  1666.         menuAlarm()
  1667.       elseif y == 13 then
  1668.         save()
  1669.         b.clear()
  1670.         mode = "quit"
  1671.       elseif y == h then
  1672.         if x <= 3 then
  1673.           updateInterval = updateInterval / 2
  1674.         elseif x >=10 and x <= 12 and updateInterval < 16 then
  1675.           updateInterval = updateInterval * 2
  1676.         end
  1677.         if updateInterval < 0.5 then
  1678.           updateInterval = 0.5
  1679.         end
  1680.       end
  1681.     end
  1682.  
  1683.     if mode == "quit" then
  1684.       break
  1685.     end
  1686.   end
  1687. end
  1688.  
  1689.  
  1690.  
  1691. -- EVENT HANDLING
  1692.  
  1693. function checkEvent(event, justUpdate, charAndKeyEvent)
  1694.   charAndKeyEvent = charAndKeyEvent or false
  1695.   justUpdate = justUpdate or false
  1696.   if event[1] == "timer" and event[2] == delay then
  1697.     if justUpdate then
  1698.       update()
  1699.     else
  1700.       drawSite()
  1701.     end
  1702.     delay = os.startTimer(updateInterval)
  1703.  
  1704.   elseif event[1] == "mouse_click" or (charAndKeyEvent and ( event[1] == "char" or event[1] == "key" )) then
  1705.     return true
  1706.  
  1707.   elseif event[1] == "glasses_chat_command" then
  1708.     mode = "mainmenu"
  1709.     checkAlarm(event[5])
  1710.     if event[5] == "clear" or event[5] == "" then
  1711.       b.clear()
  1712.       b.sync()
  1713.       selected = 0
  1714.     elseif event[5] == "sync" then
  1715.       b.clear()
  1716.       local var = b.addText(10, 10, "Sync!", colorHex[14])
  1717.       setZDimension(var)
  1718.       b.sync()
  1719.       sleep(updateInterval)
  1720.       delay = os.startTimer(0.2)
  1721.  
  1722.     else
  1723.       for i=1,99 do
  1724.         if event[5] == "site"..i then
  1725.           selected = i
  1726.           drawSite(false)
  1727.           break
  1728.         end
  1729.       end
  1730.     end
  1731.  
  1732.   elseif event[1] == "rednet_message" then
  1733.     checkAlarm("", tostring(event[3]))
  1734.   end
  1735.  
  1736.   return false
  1737. end
  1738.  
  1739.  
  1740. -- START
  1741.  
  1742. load()
  1743. mainMenu()
  1744. clear()
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!