warpdrive stand

if warpdriveCommons then os.unloadAPI("warpdriveCommons") end
if not os.loadAPI("warpdrive/warpdriveCommons") then error("missing warpdriveCommons") end
local w = warpdriveCommons.w

local data

----------- Ship support

local ship
local ship_front = 0
local ship_right = 0
local ship_up = 0
local ship_back = 0
local ship_left = 0
local ship_down = 0
local ship_isInHyper = false
local ship_x, ship_y, ship_z = 0, 0, 0
local ship_xTarget, ship_yTarget, ship_zTarget = 0, 0, 0
local ship_actualDistance = 0
local ship_energyRequired = 0
local ship_shipSize = 0
local ship_movement = { 0, 0, 0 }
local ship_rotationSteps = 0
local ship_indexPlayer = 0
local ship_arrayPlayers = { }
local ship_indexTarget = 0

function ship_read(parData)
  data = parData
  if data.ship_summon == nil then data.ship_summon = false end
end

function ship_boot()
  if ship == nil then
    return
  end

  w.setColorNormal()
  w.writeLn("Booting Ship")

  if data.ship_summon then
    ship.targetName("")
    ship.command("SUMMON")
    ship.enable(true)
  end

  w.write("- internal parameters: ")
  ship_front, ship_right, ship_up = ship.dim_positive()
  ship_back, ship_left, ship_down = ship.dim_negative()
  ship_isInHyper = ship.isInHyperspace()
  ship_movement = { ship.movement() }
  ship_rotationSteps = ship.rotationSteps()
  w.setColorSuccess()
  w.writeLn("ok")

  w.setColorNormal()
  w.write("- detecting Ship Core: ")
  local timeout = 10
  local isValid, message
  repeat
    isValid, message = ship.isAssemblyValid()
    w.sleep(0.05)
    timeout = timeout - 1
  until isValid == true or timeout < 0
  if timeout < 0 then
    w.setColorWarning()
    w.writeLn("failed (" .. message .. ")")
    w.writeLn("")
    w.writeLn("Ship Core shall be attached horizontally")
    w.writeLn("with Ship Controller!")
    w.setColorNormal()
    w.sleep(6)
    w.reboot()
  else
    w.setColorSuccess()
    w.writeLn("linked")
  end
  w.sleep(0.2)

  w.setColorNormal()
  w.write("- global position    : ")
  timeout = 10
  local pos
  repeat
    pos = ship.position()
    w.sleep(0.05)
    timeout = timeout - 1
  until pos ~= nil or timeout < 0
  if timeout < 0 then
    w.setColorWarning()
    w.writeLn("failed")
    w.writeLn("")
    w.writeLn("Something is wrong here, rebooting...")
    w.setColorNormal()
    w.sleep(2)
    w.reboot()
  else
    w.setColorSuccess()
    w.writeLn("triangulated")
  end
  ship_updateMovementStats()
  w.sleep(0.2)

  w.setColorNormal()
  w.write("- integrity check    : ")
  timeout = 10
  repeat
    ship_shipSize = ship.getShipSize()
    w.sleep(0.05)
    timeout = timeout - 1
  until ship_shipSize ~= nil or timeout < 0
  if timeout < 0 then
    w.setColorWarning()
    w.writeLn("failed")
    w.writeLn("")
    w.writeLn("Ship is too big? ignoring for now...")
    w.setColorNormal()
    w.sleep(1)
  else
    w.setColorSuccess()
    w.writeLn("passed")
  end

  ship.command("IDLE")
  w.sleep(0.3)
end

function ship_writeMovement(prefix)
  local message = prefix
  local count = 0
  if ship_movement[1] > 0 then
    message = message .. ship_movement[1] .. " front"
    count = count + 1
  elseif ship_movement[1] < 0 then
    message = message .. (- ship_movement[1]) .. " back"
    count = count + 1
  end
  if ship_movement[2] > 0 then
    if count > 0 then message = message .. ", " end
    message = message .. ship_movement[2] .. " up"
    count = count + 1
  elseif ship_movement[2] < 0 then
    if count > 0 then message = message .. ", " end
    message = message .. (- ship_movement[2]) .. " down"
    count = count + 1
  end
  if ship_movement[3] > 0 then
    if count > 0 then message = message .. ", " end
    message = message .. ship_movement[3] .. " right"
    count = count + 1
  elseif ship_movement[3] < 0 then
    if count > 0 then message = message .. ", " end
    message = message .. (- ship_movement[3]) .. " left"
    count = count + 1
  end

  if ship_rotationSteps == 1 then
    if count > 0 then message = message .. ", " end
    message = message .. "Turn right"
    count = count + 1
  elseif ship_rotationSteps == 2 then
    if count > 0 then message = message .. ", " end
    message = message .. "Turn back"
    count = count + 1
  elseif ship_rotationSteps == 3 then
    if count > 0 then message = message .. ", " end
    message = message .. "Turn left"
    count = count + 1
  end

  if count == 0 then
    message = message .. "(none)"
  end
  w.writeLn(message)
end

function ship_writeRotation()
  if ship_rotationSteps == 0 then
    w.writeLn(" Rotation         = Front    ")
  elseif ship_rotationSteps == 1 then
    w.writeLn(" Rotation         = Right +90")
  elseif ship_rotationSteps == 2 then
    w.writeLn(" Rotation         = Back 180 ")
  elseif ship_rotationSteps == 3 then
    w.writeLn(" Rotation         = Left -90 ")
  end
end

function ship_updateMovementStats()
  -- get current position
  ship_x, ship_y, ship_z = ship.position()
  if ship_x == nil then
    ship_x, ship_y, ship_z = 0, 0, 0
  end

  -- compute movement
  local dx, dy, dz = ship.getOrientation()
  if dx == nil then
    dx, dy, dz = 0, 0, 0
  end
  local worldMovement = { x = 0, y = 0, z = 0 }
  worldMovement.x = dx * ship_movement[1] - dz * ship_movement[3]
  worldMovement.y = ship_movement[2]
  worldMovement.z = dz * ship_movement[1] + dx * ship_movement[3]
  ship_actualDistance = math.ceil(math.sqrt(worldMovement.x * worldMovement.x + worldMovement.y * worldMovement.y + worldMovement.z * worldMovement.z))
  ship_xTarget = ship_x + worldMovement.x
  ship_yTarget = ship_y + worldMovement.y
  ship_zTarget = ship_z + worldMovement.z

  -- update energy requirement
  local success, result = ship.getEnergyRequired()
  if success then
    ship_energyRequired = result
  else
    w.status_showWarning(result)
  end
end

function ship_warp()
  -- rs.setOutput(alarm_side, true)
  if w.input_readConfirmation("Engage jump drive? (Y/n)") then
    -- rs.setOutput(alarm_side, false)
    ship.command("MANUAL")
    ship.movement(ship_movement[1], ship_movement[2], ship_movement[3])
    ship.rotationSteps(ship_rotationSteps)
    ship.enable(true)
    -- ship = nil
  end
  -- rs.setOutput(alarm_side, false)
end

function ship_page_setMovement()
  w.page_begin("<==== Set ship movement ====>")
  w.setCursorPos(1, 14)
  w.setColorControl()
  w.writeFullLine(" Enter jump distance on each axis (0-9)")
  w.writeFullLine(" Enter 0 to keep position on that axis")
  w.writeFullLine(" Use - or n keys to move in opposite direction")
  w.writeFullLine(" Press Enter to save your selection")
  w.setColorNormal()
  w.setCursorPos(1, 3)
  ship_writeMovement("Current movement is ")
  w.setCursorPos(1, 5)

  ship_movement[1] = ship_page_setDistanceAxis(4, "Forward" , "Front", "Back", ship_movement[1], math.abs(ship_front + ship_back + 1))
  ship_movement[2] = ship_page_setDistanceAxis(6, "Vertical", "Up"   , "Down", ship_movement[2], math.abs(ship_up + ship_down + 1))
  ship_movement[3] = ship_page_setDistanceAxis(8, "Lateral" , "Right", "Left", ship_movement[3], math.abs(ship_left + ship_right + 1))
  ship_movement = { ship.movement(ship_movement[1], ship_movement[2], ship_movement[3]) }
  ship_updateMovementStats()
end

function ship_page_setDistanceAxis(line, axis, positive, negative, userEntry, shipLength)
  local success, maxJumpDistance = ship.getMaxJumpDistance()
  if success ~= true then
    w.status_showSuccess("" .. maxJumpDistance)
    maxJumpDistance = 0
  end
  local maximumDistance = shipLength + maxJumpDistance
  w.setColorDisabled()
  w.setCursorPos(3, line + 1)
  w.write(positive .. " is " .. ( shipLength + 1) .. " to " ..  maximumDistance .. " blocks      ")
  w.setCursorPos(3, line + 2)
  w.write(negative .. " is " .. (-shipLength - 1) .. " to " .. -maximumDistance .. " blocks      ")

  w.setColorNormal()
  repeat
    w.setCursorPos(1, line)
    w.write(axis .. " movement: ")
    userEntry = w.input_readNumber(userEntry)
    if userEntry ~= 0 and (math.abs(userEntry) <= shipLength or math.abs(userEntry) > maximumDistance) then
      w.status_showWarning("Wrong distance. Try again.")
    end
  until userEntry == 0 or (math.abs(userEntry) > shipLength and math.abs(userEntry) <= maximumDistance)
  w.setCursorPos(1, line + 1)
  w.clearLine()
  w.setCursorPos(1, line + 2)
  w.clearLine()

  return userEntry
end

function ship_page_setRotation()
  local inputAbort = false
  local drun = true
  w.page_begin("<==== Set ship rotation ====>")
  w.setCursorPos(1, 15)
  w.setColorControl()
  w.writeFullLine(" Select ship rotation (Up, Down, Left, Right)")
  w.writeFullLine(" Select Front to keep current orientation")
  w.writeFullLine(" Press Enter to save your selection")
  repeat
    w.setCursorPos(1, 3)
    w.setColorNormal()
    ship_writeRotation()
    local params = { os.pullEventRaw() }
    local eventName = params[1]
    local address = params[2]
    if address == nil then address = "none" end
    if eventName == "key" then
      local keycode = params[2]
      if keycode == 200 then
        ship_rotationSteps = 0
      elseif keycode == 203 then
        ship_rotationSteps = 3
      elseif keycode == 205 then
        ship_rotationSteps = 1
      elseif keycode == 208 then
        ship_rotationSteps = 2
      elseif keycode == 28 then
        inputAbort = true
      else
        w.status_showWarning("Key " .. keycode .. " is invalid")
      end
    elseif eventName == "terminate" then
      inputAbort = true
    elseif not w.event_handler(eventName, params[2]) then
      w.status_showWarning("Event '" .. eventName .. "', " .. address .. " is unsupported")
    end
  until inputAbort
  ship_rotationSteps = ship.rotationSteps(ship_rotationSteps)
end

function ship_page_setDimensions()
  w.page_begin("<==== Set ship dimensions ====>")
  w.setCursorPos(1, 14)
  w.setColorControl()
  w.writeFullLine(" Enter ship size in blocks (0-9)")
  w.writeFullLine(" First block next to Ship counts as 1")
  w.writeFullLine(" Ship controller counts as 'Front = 1'")
  w.writeFullLine(" Press Enter to save your selection")

  w.setCursorPos(1, 3)
  w.setColorNormal()
  w.write(" Front (".. ship_front ..") : ")
  ship_front = w.input_readNumber(ship_front)
  w.write(" Right (".. ship_right ..") : ")
  ship_right = w.input_readNumber(ship_right)
  w.write(" Up    (".. ship_up ..") : ")
  ship_up = w.input_readNumber(ship_up)
  w.write(" Back  (".. ship_back ..") : ")
  ship_back = w.input_readNumber(ship_back)
  w.write(" Left  (".. ship_left ..") : ")
  ship_left = w.input_readNumber(ship_left)
  w.write(" Down  (".. ship_down ..") : ")
  ship_down = w.input_readNumber(ship_down)
  w.write("Setting dimensions...")
  ship_front, ship_right, ship_up = ship.dim_positive(ship_front, ship_right, ship_up)
  ship_back, ship_left, ship_down = ship.dim_negative(ship_back, ship_left, ship_down)
  ship_shipSize = ship.getShipSize()
  if ship_shipSize == nil then ship_shipSize = 0 end
end

function ship_page_summon() -- no longer used
  w.page_begin("<==== Summon players ====>")
  local stringPlayers = ship.getAttachedPlayers()
  if stringPlayers == "" then
    w.writeLn("~ no players registered ~")
    w.writeLn("")
    w.setColorControl()
    w.writeFullLine("Press enter to exit")
    w.setColorNormal()
    w.input_readNumber("")
    return
  end
  local arrayPlayers = w.data_splitString(stringPlayers, ",")
  for i = 1, #arrayPlayers do
    w.writeLn(i .. ". " .. arrayPlayers[i])
  end
  w.setColorControl()
  w.writeFullLine("Enter player number")
  w.writeFullLine("or press enter to summon everyone")
  w.setColorNormal()

  w.write(":")
  local input = w.input_readNumber("")
  if input == "" then
    ship.targetName("")
  else
    input = tonumber(input)
    ship.targetName(arrayPlayers[input - 1])
  end
  ship.command("SUMMON")
  ship.enable(true)
end

function ship_page_jumpToGate()
  w.page_begin("<==== Jump through Jumpgate ====>")
  w.writeLn("")
  w.writeLn("Your ship should be already inside a jumpgate")

  w.setCursorPos(1, 16)
  w.setColorControl()
  w.writeFullLine("Enter target jumpgate name (a-z, 0-9)")
  w.writeFullLine("Press enter to save jumpgate name")

  w.setCursorPos(1, 5)
  w.setColorNormal()
  w.write("Target jumpgate name: ")
  local targetName = w.input_readText("")
  -- rs.setOutput(alarm_side, true)
  if w.input_readConfirmation("Engage gate jumping? (Y/n)") then
    -- rs.setOutput(alarm_side, false)
    ship.command("GATE")
    ship.targetName(targetName)
    ship.enable(true)
    -- ship = nil
  end
  -- rs.setOutput(alarm_side, false)
end

function ship_page_controls()
  w.page_begin(w.data_getName() .. " - Ship controls")
  if ship == nil then
    w.status_showWarning("No ship controller detected")
  else
    local isValid, message = ship.isAssemblyValid()
    if isValid ~= true then
      w.status_showWarning(message)
    else
      local command = ship.command()
      if command ~= "MANUAL" and command ~= "HYPERDRIVE" then
        ship.command("MANUAL")
        ship_updateMovementStats()
      end
      -- w.writeLn("")
      w.writeLn("Ship:")
      w.writeLn(" Current position = " .. ship_x .. ", " .. ship_y .. ", " .. ship_z)
      local energy, energyMax = ship.energy()
      if energy == nil then energy = 0 end
      if energyMax == nil or energyMax == 0 then energyMax = 1 end
      w.writeLn(" Energy           = " .. math.floor(energy / energyMax * 100) .. " % (" .. energy .. " EU)")

      w.writeLn("")
      -- w.writeLn("")
      w.writeLn("Dimensions:")
      w.writeLn(" Front, Right, Up = " .. w.format_integer(ship_front) .. ", " .. w.format_integer(ship_right) .. ", " .. w.format_integer(ship_up) .. " blocks")
      w.writeLn(" Back, Left, Down = " .. w.format_integer(ship_back) .. ", " .. w.format_integer(ship_left) .. ", " .. w.format_integer(ship_down) .. " blocks")
      w.writeLn(" Size             = " .. ship_shipSize .. " blocks")
      w.writeLn("")
      w.writeLn("Warp data:")
      ship_writeMovement(" Movement         = ")
      w.writeLn(" Distance         = " .. ship_actualDistance .. " m (" .. ship_energyRequired .. " EU, " .. math.floor(energy / ship_energyRequired) .. " jumps)")
      w.writeLn(" Target position  = " .. w.format_integer(ship_xTarget) .. ", " .. w.format_integer(ship_yTarget) .. ", " .. w.format_integer(ship_zTarget))
    end
  end

  w.setCursorPos(1, 16)
  w.setColorControl()
  w.writeFullLine(" set ship Name (N), Dimensions (D), Movement (M)")
  if ship_isInHyper then
    w.writeFullLine(" Jump to move ship (M/J), exit Hyperspace (H)")
  else
    w.writeFullLine(" Jump to move ship (M/J), enter Hyperspace (H)")
  end
end

function ship_key_controls(character, keycode)
  if character == 'm' or character == 'M' then -- M
    ship_page_setMovement()
    ship_page_setRotation()
    ship_warp()
    return true
  elseif character == 'd' or character == 'D' then -- D
    ship_page_setDimensions()
    return true
  elseif character == 'j' or character == 'J' then -- J
    ship_warp()
    return true
  elseif character == 'h' or character == 'H' then -- H
    -- rs.setOutput(alarm_side, true)
    local isConfirmed
    if ship_isInHyper then
      isConfirmed = w.input_readConfirmation("Disengage hyperdrive? (Y/n)")
    else
      isConfirmed = w.input_readConfirmation("Engage hyperdrive? (Y/n)")
    end
    if isConfirmed then
      -- rs.setOutput(alarm_side, false)
      ship.command("HYPERDRIVE")
      ship.enable(true)
      ship_updateMovementStats()
      -- ship = nil
    end
    -- rs.setOutput(alarm_side, false)
    return true
  elseif character == 'n' or character == 'N' then
    w.data_setName()
    return true
  end
  return false
end

function ship_writeArray(arrayValues, indexSelected)
  if indexSelected then
    indexSelected = (indexSelected + #arrayValues) % #arrayValues
  end

  local indexSplit = math.ceil(#arrayValues / 2)
  for i = 1, indexSplit do
    if indexSelected and i == indexSelected + 1 then
      w.setColorSelected()
      w.write(">" .. string.sub(arrayValues[i] .. "                        ", 1, 24))
      w.setColorNormal()
    else
      w.write(" " .. string.sub(arrayValues[i] .. "                        ", 1, 24))
    end
    if arrayValues[i + indexSplit] ~= nil then
      if indexSelected and i + indexSplit == indexSelected + 1 then
        w.setColorSelected()
        w.writeLn(">" .. string.sub(arrayValues[i + indexSplit] .. "                        ", 1, 24))
        w.setColorNormal()
      else
        w.writeLn(" " .. arrayValues[i + indexSplit])
      end
    else
      w.writeLn("")
    end
  end
  return indexSelected
end

function ship_page_crew()
  w.page_begin(w.data_getName() .. " - Ship crew")
  if ship == nil then
    w.status_showWarning("No ship controller detected")
  else
    local isValid, message = ship.isAssemblyValid()
    if isValid ~= true then
      w.status_showWarning(message)
    else
      w.writeLn("Attached players:")
      local stringPlayers, _ = ship.getAttachedPlayers()
      if stringPlayers == nil or stringPlayers == "" then
        stringPlayers = "~ no registered player ~"
      end
      ship_arrayPlayers = w.data_splitString(stringPlayers, ",")
      ship_indexPlayer = ship_writeArray(ship_arrayPlayers, ship_indexPlayer)
      w.writeLn("")
      w.writeLn("Summon crew after short jump = " .. w.format_boolean(data.ship_summon, "YES", "no"))
    end
  end

  w.setCursorPos(1, 16)
  w.setColorControl()
  w.writeFullLine(" Summon all crew (S), Toggle summon after jump (T)")
  w.writeFullLine(" select crew (arrows), summon selected crew (enter)")
end

function ship_key_crew(character, keycode)
  if character == 't' or character == 'T' then -- T
    if data.ship_summon then
      data.ship_summon = false
    else
      data.ship_summon = true
    end
    w.data_save()
    return true
  elseif character == 's' or character == 'S' then -- S
    ship.targetName("")
    ship.command("SUMMON")
    ship.enable(true)
    return true
  elseif keycode == 28 then -- Enter
    local namePlayer = ship_arrayPlayers[ship_indexPlayer + 1]
    ship.targetName(namePlayer)
    ship.command("SUMMON")
    ship.enable(true)
    w.status_showSuccess("Engaging teleportation for " .. namePlayer .. "...")
    return true
  elseif keycode == 200 or keycode == 203 or character == '-' then -- Up or Left or -
    ship_indexPlayer = ship_indexPlayer - 1
    return true
  elseif keycode == 208 or keycode == 205 or character == '+' then -- Down or Right or +
    ship_indexPlayer = ship_indexPlayer + 1
    return true
  end
  return false
end

function ship_page_navigation()
  w.page_begin(w.data_getName() .. " - Ship navigation")
  if ship == nil then
    w.status_showWarning("No ship controller detected")
  else
    local isValid, message = ship.isAssemblyValid()
    if isValid ~= true then
      w.status_showWarning(message)
    else
      local locationCurrent = "somewhere..."  -- @TODO ship.getLocation()
      w.writeLn("Current ship location        : " .. locationCurrent)
      w.writeLn("Jumpgates or beacons in range:")
      local stringTargets, _ = "not implemented", nil -- ship.getTargets()
      if stringTargets == nil or stringTargets == "" then
        stringTargets = "~ no beacon nor jumpgate in range ~"
      end
      local arrayTargets = w.data_splitString(stringTargets, ",")
      ship_indexTarget = ship_writeArray(arrayTargets, ship_indexTarget)
    end
  end

  w.setCursorPos(1, 16)
  w.setColorControl()
  w.writeFullLine(" select target (arrows), register target (enter)")
  w.writeFullLine(" jump through Gate (G)")
end

function ship_key_navigation(character, keycode)
  if keycode == 28 then -- Enter
--    local success, xxx = ship.xxx(ship_indexTarget)
--    if success then
--      w.status_showSuccess("Engaging jumpgate jump to " .. xxx .. "...")
--    else
--      w.status_showWarning("Failed to summon crew member")
--    end
    return true
--  elseif character == 'b' or character == 'B' then -- B
--    ship_page_jumpToBeacon()
--    return true
  elseif character == 'g' or character == 'G' then -- G
    ship_page_jumpToGate()
    return true
  elseif keycode == 200 or keycode == 203 or character == '-' then -- Up or Left or -
    ship_indexTarget = ship_indexTarget - 1
    return true
  elseif keycode == 208 or keycode == 205 or character == '+' then -- Down or Right or +
    ship_indexTarget = ship_indexTarget + 1
    return true
  end
  return false
end

function ship_register()
  w.device_register("warpdriveShipController",
      function(deviceType, address, wrap) ship = wrap end,
      function() end)
  w.event_register("shipCoreCooldownDone"  , function() w.status_showWarning("Ship core cooldown done")   return false end )
  w.data_register("ship", ship_read, 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 ship == nil then
    w.setColorDisabled()
    w.writeLn("No ship controller detected")
  else
    w.setColorSuccess()
    w.writeLn("Ship controller detected")
    if isBooting then
      ship_boot()
    end
  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 Ship controls.")
end

----------- Boot sequence

w.page_setEndText(" Home (0), Controls (1), Crew (2), Navigation (3)")
w.page_register('0', connections_page, nil)
w.page_register('1', ship_page_controls, ship_key_controls)
w.page_register('2', ship_page_crew, ship_key_crew)
w.page_register('3', ship_page_navigation, ship_key_navigation)
ship_register()

w.boot()
w.run()

if data.ship_summon then
  data.ship_summon = false
  w.data_save()
end

if ship ~= nil then
  ship.command("OFFLINE")
  ship.enable(false)
end

w.close()