View difference between Paste ID: JK334Xmq and nh9XfpLX

 if warpdriveCommons then os.unloadAPI("warpdriveCommons") end
 if not os.loadAPI("warpdrive/warpdriveCommons") then error("missing warpdriveCommons") end
 local w = warpdriveCommons.w
 
 local data
 
 ----------- Force field support
 
 local ffield_projectorAddresses = {}
 local ffield_projectors = {}
 local ffield_projector_indexSelected = 1
 local ffield_projector_indexFirstLine = 1
 local ffield_projector_lines = 10
 
 local ffield_relayAddresses = {}
 local ffield_relays = {}
 local ffield_relay_indexSelected = 1
 local ffield_relay_indexFirstLine = 1
 local ffield_relay_lines = 10
 
 function ffield_boot(isDetailed)
   if #ffield_projectorAddresses == 0 and #ffield_relayAddresses == 0 then
     return
   end
 
   if isDetailed == nil then
     isDetailed = true
   end
 
   if isDetailed then
     w.write("Booting Force field projectors and relays")
 
     w.writeLn("...")
     w.sleep(0.1)
   end
 
   -- getting projectors parameters
   ffield_projectors = {}
   for key, address in pairs(ffield_projectorAddresses) do
     local device = w.device_get(address)
     local x, y, z = device.getLocalPosition()
     local name = device.name()
     if name == "" then name = "-not defined-" end
     local beamFrequency = device.beamFrequency()
     -- local isEnabled = device.enable()
     local status, isEnabled, isConnected, isPowered, shape, energy = device.state()
     -- @TODO add tier reporting
     local projector = {
       address = address,
       device = device,
       position = { x = x, y = y, z = z },
       name = name,
       beamFrequency = beamFrequency,
       shape = shape,
       isEnabled = isEnabled }
     if isDetailed then
       w.writeLn(ffield_projector_getDescription(projector))
     end
     table.insert(ffield_projectors, projector)
   end
 
   -- getting relays parameters
   ffield_relays = {}
   for key, address in pairs(ffield_relayAddresses) do
     local device = w.device_get(address)
     local x, y, z = device.getLocalPosition()
     local name = device.name()
     if name == "" then name = "-not defined-" end
     local beamFrequency = device.beamFrequency()
     local isEnabled = device.enable()
     local relay = {
       address = address,
       device = device,
       position = { x = x, y = y, z = z },
       name = name,
       beamFrequency = beamFrequency,
       isEnabled = isEnabled }
     if isDetailed then
       w.writeLn(ffield_relay_getDescription(relay))
     end
     table.insert(ffield_relays, relay)
   end
 end
 
 function ffield_save()
   -- nothing
 end
 
 function ffield_read(parData)
   data = parData
 end
 
 function ffield_projector_getDescription(projector)
   if projector == nil or projector.device == nil then
     return "~invalid~"
   end
   local description = "#" .. w.format_integer(projector.beamFrequency, 5)
           .. " @ (" .. w.format_integer(projector.position.x, 7) .. " " .. w.format_integer(projector.position.y, 3) .. " " .. w.format_integer(projector.position.z, 7) .. ") "
           .. w.format_string(projector.shape, 10)
           .. " "
   if projector.isEnabled then
     description = description .. "Enabled"
   else
     description = description .. "Disabled"
   end
   return description
 end
 
 function ffield_projector_getIndexes()
   if ffield_projectors ~= nil then
     if ffield_projector_indexSelected > #ffield_projectors then
       ffield_projector_indexSelected = 1
     elseif ffield_projector_indexSelected < 1 then
       ffield_projector_indexSelected = #ffield_projectors
     end
     if ffield_projector_indexFirstLine > ffield_projector_indexSelected then
       ffield_projector_indexFirstLine = ffield_projector_indexSelected
     elseif ffield_projector_indexFirstLine + ffield_projector_lines < ffield_projector_indexSelected then
       ffield_projector_indexFirstLine = ffield_projector_indexSelected - ffield_projector_lines
     end
     return ffield_projector_indexFirstLine, ffield_projector_indexSelected
   else
     return 1, 1
   end
 end
 
 function ffield_projector_get(index)
   local indexToUse = index
   local projector
 
   if ffield_projectors ~= nil then
     if indexToUse > #ffield_projectors then
       indexToUse = 1
     elseif indexToUse < 1 then
       indexToUse = #ffield_projectors
     end
     projector = ffield_projectors[indexToUse]
   end
 
   if projector == nil then
     ffield_boot(false)
     w.status_showWarning("Invalid projector index " .. index)
     projector = {
       address = "-",
       device = nil,
       position = { x = 0, y = 0, z = 0 },
       name = "-",
       beamFrequency = -1,
       shape = "NONE",
       isEnabled = false }
   end
 
   return projector
 end
 
 function ffield_projector_getSelected()
   return ffield_projector_get(ffield_projector_indexSelected)
 end
 
 function ffield_enable(projectorOrRelay, enable)
   if projectorOrRelay == nil or projectorOrRelay.device == nil then
     return
   end
   local enableToApply = enable
   if enableToApply == nil then
     enableToApply = not projectorOrRelay.device.enable()
   end
   projectorOrRelay.isEnabled = projectorOrRelay.device.enable(enableToApply)
   return projectorOrRelay.isEnabled
 end
 
 function ffield_projector_key(character, keycode)
   if character == 's' or character == 'S' then
     for key, projector in pairs(ffield_projectors) do
       ffield_enable(projector, true)
     end
     return true
   elseif character == 'p' or character == 'P' then
     for key, projector in pairs(ffield_projectors) do
       ffield_enable(projector, false)
     end
     return true
   elseif character == 'e' or character == 'E' then
     local projector = ffield_projector_getSelected()
     if projector ~= nil and projector.device ~= nil then
       ffield_enable(projector)
     end
     return true
   elseif character == 'c' or character == 'C' then -- C or keycode == 46
     ffield_projector_config()
     w.data_save()
     return true
   elseif keycode == 200 or keycode == 203 or character == '-' then -- Up or Left or -
     ffield_projector_indexSelected = ffield_projector_indexSelected - 1
     return true
   elseif keycode == 208 or keycode == 205 or character == '+' then -- Down or Right or +
     ffield_projector_indexSelected = ffield_projector_indexSelected + 1
     return true
   end
   return false
 end
 
 function ffield_projector_page()
   w.page_begin(w.data_getName() .. " - Force field projectors")
 
   -- w.setCursorPos(1, 2)
   if #ffield_projectors == 0 then
     w.setColorDisabled()
     w.writeCentered(2, "No force field projector defined, connect one and reboot!")
   else
     w.setColorNormal()
     local indexFirstLine, indexSelected = ffield_projector_getIndexes()
     w.writeCentered(2, "Force field projector " .. indexSelected .. " of " .. #ffield_projectors .. " is selected")
     local indexLastLine = math.min(indexFirstLine + ffield_projector_lines, #ffield_projectors)
     for indexCurrent = indexFirstLine, indexLastLine do
       if indexCurrent == indexSelected then
         w.setColorSelected()
         w.clearLine()
         w.write(">")
       else
         w.setColorNormal()
         w.write(" ")
       end
       local projector = ffield_projector_get(indexCurrent)
       local description = ffield_projector_getDescription(projector)
       w.write(description)
       w.writeLn("")
     end
   end
 
   w.setCursorPos(1, 14)
   w.setColorNormal()
   w.write("  -----------------------------------------------")
 
   w.setCursorPos(1, 15)
   w.setColorControl()
   w.writeFullLine(" Start/stoP all force field projectors (S/P)")
   w.writeFullLine(" Configure (C) or togglE (E) selected projector")
   w.writeFullLine(" select force field projector (Up, Down)")
 end
 
 function ffield_projector_config()
   local projector = ffield_projector_getSelected()
   if projector == nil then
     return
   end
   w.page_begin(w.data_getName() .. " - Projector configuration")
 
   w.setCursorPos(1, 2)
   w.setColorNormal()
   projector.position.x, projector.position.y, projector.position.z = projector.device.getLocalPosition()
   w.write("Projector @ " .. w.format_integer(projector.position.x, 7) .. " " .. w.format_integer(projector.position.y, 3) .. " " .. w.format_integer(projector.position.z, 7))
 
   -- name
   w.setCursorPos(1, 16)
   w.setColorHelp()
   w.writeFullLine(" Press enter to validate.")
   w.setCursorPos(1, 3)
   w.setColorNormal()
   w.writeLn("Name (" .. projector.name .. "):")
   local nameOriginal = projector.name
   projector.name = w.input_readText(projector.name)
   w.setCursorPos(1, 3)
   w.setColorNormal()
   w.clearLine()
   if nameOriginal ~= projector.name then
     w.setColorSuccess()
   else
     w.setColorNormal()
   end
   projector.name = projector.device.name(projector.name)
   w.writeLn("Name set to " .. projector.name)
   w.setColorNormal()
   w.clearLine()
 
   -- beam frequency
   projector.beamFrequency = projector.device.beamFrequency()
   w.setCursorPos(1, 16)
   w.setColorHelp()
   w.writeFullLine(" Enter a number between 0 and 65000.")
   local frequency
   repeat
     w.setCursorPos(1, 5)
     w.setColorNormal()
     w.clearLine()
     w.write("Beam frequency (" .. w.format_integer(projector.beamFrequency, 5) .. "): ")
     frequency = w.input_readInteger(projector.beamFrequency)
     if frequency ~= 0 and (frequency < 0 or frequency > 65000) then
       w.status_showWarning("This is not a valid beam frequency. Try again.")
     end
   until frequency > 0 and frequency <= 65000
   w.setCursorPos(1, 4)
   w.clearLine()
   if frequency ~= projector.beamFrequency then
     w.setColorSuccess()
   else
     w.setColorNormal()
   end
   projector.beamFrequency = projector.device.beamFrequency(frequency)
   w.write("Beam frequency set to " .. projector.beamFrequency)
   w.setColorNormal()
   w.setCursorPos(1, 5)
   w.clearLine()
   w.setCursorPos(1, 16)
   w.clearLine()
 
   -- translation
   ffield_config_xyz(5, "Translation", "%", "translation where 0 is centered", projector.device.translation, 100)
 
   -- rotation
   ffield_config_xyz(6, "Rotation", "", "rotation in deg where 0 is centered", projector.device.rotation, 1)
 
   -- scale
   ffield_config_xyz(7, "Min scale", "%", "min scale where -100 is full scale", projector.device.min, 100)
   ffield_config_xyz(8, "Max scale", "%", "max scale where 100 is full scale", projector.device.max, 100)
 
   w.sleep(0.5)
 end
 
 function ffield_config_xyz(yCursor, title, unit, help, method, factor)
   local xOriginal, yOriginal, zOriginal = method()
   local x = factor * xOriginal
   local y = factor * yOriginal
   local z = factor * zOriginal
   w.setCursorPos(1, yCursor + 1)
   w.setColorNormal()
   w.write(title .. " is currently set to " .. w.format_integer(x, 4) .. " "  .. unit .. " " .. w.format_integer(y, 4) .. " "  .. unit .. " " .. w.format_integer(z, 4) .. " "  .. unit)
 
   w.setCursorPos(1, 16)
   w.setColorHelp()
   w.writeFullLine(" Enter X " .. help)
 
   w.setCursorPos(1, yCursor + 3)
   w.setColorNormal()
   w.write(title .. " along X axis (" .. w.format_integer(x, 4) .. "): ")
   x = w.input_readInteger(x)
 
   w.setCursorPos(1, 16)
   w.setColorHelp()
   w.writeFullLine(" Enter Y " .. help)
 
   w.setCursorPos(1, yCursor + 4)
   w.setColorNormal()
   w.write(title .. " along Y axis (" .. w.format_integer(y, 4) .. "): ")
   y = w.input_readInteger(y)
 
   w.setCursorPos(1, 16)
   w.setColorHelp()
   w.writeFullLine(" Enter Z " .. help)
 
   w.setCursorPos(1, yCursor + 5)
   w.setColorNormal()
   w.write(title .. " along Z axis (" .. w.format_integer(z, 4) .. "): ")
   z = w.input_readInteger(z)
 
   w.setCursorPos(1, 16)
   w.clearLine()
 
   local xSet = x / factor
   local ySet = y / factor
   local zSet = z / factor
   local message
   x, y, z, message = method(xSet, ySet, zSet)
   x = factor * x
   y = factor * y
   z = factor * z
   w.setCursorPos(1, yCursor)
   if message ~= nil then
     w.setColorWarning()
     w.write(title .. " error: " .. message)
     w.status_showWarning(message)
   else
     if xOriginal ~= xSet or yOriginal ~= ySet or zOriginal ~= zSet then
       w.setColorSuccess()
     else
       w.setColorNormal()
     end
     w.write(title .. " set to " .. w.format_integer(x, 4) .. " "  .. unit .. " " .. w.format_integer(y, 4) .. " "  .. unit .. " " .. w.format_integer(z, 4) .. " "  .. unit)
   end
   w.setColorNormal()
   w.setCursorPos(1, yCursor + 1)
   w.clearLine()
   w.setCursorPos(1, yCursor + 3)
   w.clearLine()
   w.setCursorPos(1, yCursor + 4)
   w.clearLine()
   w.setCursorPos(1, yCursor + 5)
   w.clearLine()
 end
 
 function ffield_relay_getDescription(relay)
   if relay == nil or relay.device == nil then
     return "~invalid~"
   end
   local description = "#" .. w.format_integer(relay.beamFrequency, 5)
           .. " @ (" .. w.format_integer(relay.position.x, 7) .. " " .. w.format_integer(relay.position.y, 3) .. " " .. w.format_integer(relay.position.z, 7) .. ") "
   if relay.isEnabled then
     description = description .. "Enabled"
   else
     description = description .. "Disabled"
   end
   return description
 end
 
 function ffield_relay_getIndexes()
   if ffield_relays ~= nil then
     if ffield_relay_indexSelected > #ffield_relays then
       ffield_relay_indexSelected = 1
     elseif ffield_relay_indexSelected < 1 then
       ffield_relay_indexSelected = #ffield_relays
     end
     if ffield_relay_indexFirstLine > ffield_relay_indexSelected then
       ffield_relay_indexFirstLine = ffield_relay_indexSelected
     elseif ffield_relay_indexFirstLine + ffield_relay_lines < ffield_relay_indexSelected then
       ffield_relay_indexFirstLine = ffield_relay_indexSelected - ffield_relay_lines
     end
     return ffield_relay_indexFirstLine, ffield_relay_indexSelected
   else
     return 1, 1
   end
 end
 
 function ffield_relay_get(index)
   local indexToUse = index
   local relay
 
   if ffield_relays ~= nil then
     if indexToUse > #ffield_relays then
       indexToUse = 1
     elseif indexToUse < 1 then
       indexToUse = #ffield_relays
     end
     relay = ffield_relays[indexToUse]
   end
 
   if relay == nil then
     ffield_boot(false)
     w.status_showWarning("Invalid relay index " .. index)
     relay = {
       address = "-",
       device = nil,
       position = { x = 0, y = 0, z = 0 },
       name = "-",
       beamFrequency = -1,
       isEnabled = false }
   end
 
   return relay
 end
 
 function ffield_relay_getSelected()
   return ffield_relay_get(ffield_relay_indexSelected)
 end
 
 function ffield_relay_key(character, keycode)
   if character == 's' or character == 'S' then
     for key, relay in pairs(ffield_relays) do
       ffield_enable(relay, true)
     end
     return true
   elseif character == 'p' or character == 'P' then
     for key, relay in pairs(ffield_relays) do
       ffield_enable(relay, false)
     end
     return true
   elseif character == 'e' or character == 'E' then
     local relay = ffield_relay_getSelected()
     ffield_enable(relay)
     return true
   elseif character == 'c' or character == 'C' then -- C or keycode == 46
     ffield_relay_config()
     w.data_save()
     return true
   elseif keycode == 200 or keycode == 203 or character == '-' then -- Up or Left or -
     ffield_relay_indexSelected = ffield_relay_indexSelected - 1
     return true
   elseif keycode == 208 or keycode == 205 or character == '+' then -- Down or Right or +
     ffield_relay_indexSelected = ffield_relay_indexSelected + 1
     return true
   end
   return false
 end
 
 function ffield_relay_page()
   w.page_begin(w.data_getName() .. " - Force field relays")
 
   -- w.setCursorPos(1, 2)
   if #ffield_relays == 0 then
     w.setColorDisabled()
     w.writeCentered(2, "No force field relay defined, connect one and reboot!")
   else
     w.setColorNormal()
     local indexFirstLine, indexSelected = ffield_relay_getIndexes()
     w.writeCentered(2, "Force field relay " .. indexSelected .. " of " .. #ffield_relays .. " is selected")
     local indexLastLine = math.min(indexFirstLine + ffield_relay_lines, #ffield_relays)
     for indexCurrent = indexFirstLine, indexLastLine do
       if indexCurrent == indexSelected then
         w.setColorSelected()
         w.clearLine()
         w.write(">")
       else
         w.setColorNormal()
         w.write(" ")
       end
       local relay = ffield_relay_get(indexCurrent)
       local description = ffield_relay_getDescription(relay)
       w.write(description)
       w.writeLn("")
     end
   end
 
   w.setCursorPos(1, 14)
   w.setColorNormal()
   w.write("  -----------------------------------------------")
 
   w.setCursorPos(1, 15)
   w.setColorControl()
   w.writeFullLine(" Start/stoP all force field relays (S/P)")
   w.writeFullLine(" Configure (C) or togglE (E) selected relay")
   w.writeFullLine(" select force field relay (Up, Down)")
 end
 
 function ffield_relay_config()
   local relay = ffield_relay_getSelected()
   if relay == nil then
     return
   end
   w.page_begin(w.data_getName() .. " - Relay configuration")
 
   w.setCursorPos(1, 2)
   w.setColorNormal()
   relay.position.x, relay.position.y, relay.position.z = relay.device.getLocalPosition()
   w.write("Relay @ " .. w.format_integer(relay.position.x, 7) .. " " .. w.format_integer(relay.position.y, 3) .. " " .. w.format_integer(relay.position.z, 7))
 
   -- name
   w.setCursorPos(1, 16)
   w.setColorHelp()
   w.writeFullLine(" Press enter to validate.")
   w.setCursorPos(1, 3)
   w.setColorNormal()
   w.writeLn("Name (" .. relay.name .. "):")
   local nameOriginal = relay.name
   relay.name = w.input_readText(relay.name)
   w.setCursorPos(1, 3)
   w.setColorNormal()
   w.clearLine()
   if nameOriginal ~= relay.name then
     w.setColorSuccess()
   else
     w.setColorNormal()
   end
   relay.name = relay.device.name(relay.name)
   w.writeLn("Name set to " .. relay.name)
   w.setColorNormal()
   w.clearLine()
 
   -- beam frequency
   relay.beamFrequency = relay.device.beamFrequency()
   w.setCursorPos(1, 16)
   w.setColorHelp()
   w.writeFullLine(" Enter a number between 0 and 65000.")
   local frequency
   repeat
     w.setCursorPos(1, 5)
     w.setColorNormal()
     w.clearLine()
     w.write("Beam frequency (" .. w.format_integer(relay.beamFrequency, 5) .. "): ")
     frequency = w.input_readInteger(relay.beamFrequency)
     if frequency ~= 0 and (frequency < 0 or frequency > 65000) then
       w.status_showWarning("This is not a valid beam frequency. Try again.")
     end
   until frequency > 0 and frequency <= 65000
   w.setCursorPos(1, 4)
   w.clearLine()
   if frequency ~= relay.beamFrequency then
     w.setColorSuccess()
   else
     w.setColorNormal()
   end
   relay.beamFrequency = relay.device.beamFrequency(frequency)
   w.write("Beam frequency set to " .. relay.beamFrequency)
   w.setColorNormal()
   w.setCursorPos(1, 5)
   w.clearLine()
   w.setCursorPos(1, 6)
   w.clearLine()
 end
 
 function ffield_register()
   w.device_register("warpdriveForceFieldProjector",
       function(deviceType, address, wrap) table.insert(ffield_projectorAddresses, address) end,
       function() end)
   w.device_register("warpdriveForceFieldRelay",
       function(deviceType, address, wrap) table.insert(ffield_relayAddresses, address) end,
       function() end)
   w.data_register("ffield", ffield_read, ffield_save, nil)
 end
 
 ----------- connections status
 
 function connections_page(isBooting)
   w.page_begin(w.data_getName() .. " - Connections")
 
   w.writeLn("")
 
   local monitors = w.device_getMonitors()
   if #monitors == 0 then
     w.setColorDisabled()
     w.writeLn("No Monitor detected")
   elseif #monitors == 1 then
     w.setColorSuccess()
     w.writeLn("1 monitor detected")
   else
     w.setColorSuccess()
     w.writeLn(#monitors .. " Monitors detected")
   end
 
   if #ffield_projectorAddresses == 0 then
     w.setColorDisabled()
     w.writeLn("No force field projector detected")
   elseif #ffield_projectorAddresses == 1 then
     w.setColorSuccess()
     w.writeLn("1 force field projector detected")
   else
     w.setColorSuccess()
     w.writeLn(#ffield_projectorAddresses .. " force field projectors detected")
   end
 
   if #ffield_relayAddresses == 0 then
     w.setColorDisabled()
     w.writeLn("No force field relay detected")
   elseif #ffield_relayAddresses == 1 then
     w.setColorSuccess()
     w.writeLn("1 force field relay detected")
   else
     w.setColorSuccess()
     w.writeLn(#ffield_relayAddresses .. " force field relays detected")
   end
 
   if isBooting then
     ffield_boot()
   end
 
   w.writeLn("")
   w.setColorNormal()
   w.writeLn("This is a keyboard controlled user interface.")
   w.write("Key controls are written like so: ")
   w.setColorControl()
   w.write("Action (key)")
   w.setColorNormal()
   w.writeLn(".")
   w.write("For example, typing ")
   w.setColorControl()
   w.write(" 1 ")
   w.setColorNormal()
   w.writeLn(" will open Force field projectors.")
 end
 
 ----------- Boot sequence
 
 w.page_setEndText(" Home (0), Projectors (1), Relays (2)")
 w.page_register('0', connections_page, nil)
 w.page_register('1', ffield_projector_page, ffield_projector_key)
 w.page_register('2', ffield_relay_page, ffield_relay_key)
 ffield_register()
 
 w.boot()
 w.run()
 w.close()