Jump-S 1.6.2

print("loading...")

-- set alarm side if you need this
Alarm = "top"

Style = {
 CDeflt = colors.white,
 BGDeflt = colors.blue,
 CTitle = colors.black,
 BGTitle = colors.cyan,
 CWarn = colors.white,
 BGWarn = colors.red
}

function SetColorDeflt()
 term.setBackgroundColor(Style.BGDeflt)
 term.setTextColor(Style.CDeflt)
end

function SetColorTitle()
 term.setBackgroundColor(Style.BGTitle)
 term.setTextColor(Style.CTitle)
end

function SetColorWarn()
 term.setBackgroundColor(Style.BGWarn)
 term.setTextColor(Style.CWarn)
end

function Clear()
 term.clear()
 term.setCursorPos(1,1)
end

function Show(Text)
 term.write(Text)
 local xt,yt = term.getCursorPos()
 term.setCursorPos(1, yt+1)
end

function ShowTitle(Text)
 SetColorTitle()
 term.setCursorPos(12, 1)
 Show(Text)
 SetColorDeflt()
end

function ShowMenu(Text)
 term.write(Text)
 local xt, yt = term.getCursorPos()
 for i = xt, 51 do
  term.write(" ")
 end
 term.setCursorPos(1, yt+1)
end

function ShowWarning(Text)
  SetColorWarn()
  term.setCursorPos(10, 19)
  term.write(" "..Text.." ")
  SetColorDeflt()
end

function SaveData()
 local file = fs.open("shipdata.txt", "w")
 file.writeLine(textutils.serialize(SData))
 file.close()
end

function ReadData()
 local file = fs.open("shipdata.txt", "r")
 SData = textutils.unserialize(file.readAll())
 file.close()
end

function Explode(d, p)
 local t, ll
 t = {}
 ll = 0
 if(#p == 1) then return {p} end
 while true do
  l = string.find(p ,d, ll, true)
  if l ~= nil then
   table.insert(t, string.sub(p, ll, l-1))
   ll = l+1
  else
   table.insert(t, string.sub(p, ll))
   break
  end
 end
 return t
end

function ShowDirection()
 if SData.Direction == 1 then
  Show(" Direction        = Up")
 elseif SData.Direction == 2 then
  Show(" Direction        = Down")
 elseif SData.Direction == 0 then
  Show(" Direction        = Front")
 elseif SData.Direction == 180 then
  Show(" Direction        = Back")
 elseif SData.Direction == 90 then
  Show(" Direction        = Left")
 elseif SData.Direction == 255 then
  Show(" Direction        = Right")
 end
end

function CalcRealDistance()
 if IsInHyper then
  RealDistance = SData.Distance * 100
  MinimumDistance = 1
  JumpCost = (1000 * Weight) + (1000 * SData.Distance)
 else
  if SData.Direction == 1 or SData.Direction == 2 then
   MinimumDistance = GUp + GDown
   RealDistance = SData.Distance + MinimumDistance
  elseif SData.Direction == 0 or SData.Direction == 180 then
   MinimumDistance = GFront + GBack
   RealDistance = SData.Distance + MinimumDistance
  elseif SData.Direction == 90 or SData.Direction == 255 then
   MinimumDistance = GLeft + GRight
   RealDistance = SData.Distance + MinimumDistance
  end
  MinimumDistance = MinimumDistance + 1
  JumpCost = (10 * Weight) + (100 * SData.Distance)
 end
end

function CalcNewCoords(cx, cy, cz)
 local res = {x=cx, y=cy, z=cz}
 if SData.Direction == 1 then
  res.y = res.y + RealDistance
 elseif SData.Direction == 2 then
  res.y = res.y - RealDistance
 end
 local dx = warp.get_dx()
 local dz = warp.get_dz()
 if dx ~= 0 then
  if SData.Direction == 0 then
   res.x = res.x + (RealDistance * dx)
  elseif SData.Direction == 180 then
   res.x = res.x - (RealDistance * dx)
  elseif SData.Direction == 90 then
   res.z = res.z + (RealDistance * dx)
  elseif SData.Direction == 255 then
   res.z = res.z - (RealDistance * dx)
  end
 else
  if SData.Direction == 0 then
   res.z = res.z + (RealDistance * dz)
  elseif SData.Direction == 180 then
   res.z = res.z - (RealDistance * dz)
  elseif SData.Direction == 90 then
   res.x = res.x + (RealDistance * dz)
  elseif SData.Direction == 255 then
   res.x = res.x - (RealDistance * dz)
  end
 end
 return res
end

function ShowInfo()
 ShowTitle(Title)
 Show("Core:")
 Show(" x, y, z          = "..X..", "..Y..", "..Z)
 local energy = warp.get_energy_level()
 Show(" Energy           = "..math.floor(energy / 1000000).." % ("..energy.."EU)")
 Show(" Attached players = "..warp.get_attached_players())
 Show("Dimensions:")
 Show(" Front, Right, Up = "..GFront..", "..GRight..", "..GUp)
 Show(" Back, Left, Down = "..GBack..", "..GLeft..", "..GDown)
 Show(" Size             = "..Weight.." blocks")
 Show("Warp data:")
 ShowDirection()
 local dest = CalcNewCoords(X, Y, Z)
 Show(" Distance         = "..RealDistance.." ("..JumpCost.."EU, "..math.floor(energy/JumpCost).." jumps)")
 Show(" Dest.coordinates = "..dest.x..", "..dest.y..", "..dest.z)
 if SData.Summon then
  Show(" Summon after     = Yes")
 else
  Show(" Summon after     = No")
 end
end

function Confirm()
 ShowWarning("Are you sure? (y/n)")
 local event, keycode = os.pullEvent("key")
 if keycode == 21 then
  return true
 else
  return false
 end
end

function Warp()
 rs.setOutput(Alarm, false)
 sleep(1)
 warp.set_direction(SData.Direction)
 if IsInHyper then
  warp.set_mode(2)
 else
  warp.set_mode(1)
 end
 warp.do_jump()
end

function SetDistance()
 Clear()
 ShowTitle("<====  Set distance  ====>")
 SData.Distance = 0
 CalcRealDistance()
 MaximumDistance = MinimumDistance + 127
 if IsInHyper then
  term.write("Distance * 100 (min "..MinimumDistance..", max "..MaximumDistance.."): ")
 else
  term.write("Distance (min "..MinimumDistance..", max "..MaximumDistance.."): ")
 end
 sleep(0.3)
 SData.Distance = tonumber(read())
 if SData.Distance == nil then SData.Distance = 1 end
 if SData.Distance < MinimumDistance or SData.Distance > MaximumDistance then
  SData.Distance = 1
  ShowWarning("Wrong distance. Try again.")
  os.pullEvent("key")
  CalcRealDistance()
 else
  if not IsInHyper then
   SData.Distance = SData.Distance - RealDistance
  end
  warp.set_distance(SData.Distance)
  CalcRealDistance()
 end
end

function SetDirection()
 local drun = true
 while(drun) do
  Clear()
  ShowTitle("<==== Set direction ====>")
  ShowDirection()
  term.setCursorPos(1, 16)
  SetColorTitle()
  ShowMenu("Use directional keys")
  ShowMenu("W/S keys for Up/Down")
  ShowMenu("Enter - confirm")
  SetColorDeflt()
  local event, keycode = os.pullEvent("key")
  if keycode == 200 then
   SData.Direction = 0
  elseif keycode == 17 then
   SData.Direction = 1
  elseif keycode == 203 then
   SData.Direction = 90
  elseif keycode == 205 then
   SData.Direction = 255
  elseif keycode == 208 then
   SData.Direction = 180
  elseif keycode == 31 then
   SData.Direction = 2
  elseif keycode == 28 then
   drun = false
  end
 end
end

function SetDimensions()
 Clear()
 sleep(0.3)
 ShowTitle("<==== Set dimensions ====>")
 term.write(" Front ("..GFront..") : ")
 GFront = tonumber(read())
 term.write(" Right ("..GRight..") : ")
 GRight = tonumber(read())
 term.write(" Up    ("..GUp..") : ")
 GUp = tonumber(read())
 term.write(" Back  ("..GBack..") : ")
 GBack = tonumber(read())
 term.write(" Left  ("..GLeft..") : ")
 GLeft = tonumber(read())
 term.write(" Down  ("..GDown..") : ")
 GDown = tonumber(read())
 term.write("Setting dimensions...")
 warp.dim_setp(GFront, GRight, GUp)
 warp.dim_setn(GBack, GLeft, GDown)
end

function Summon()
 Clear()
 ShowTitle("<==== Summon players ====>")
 local players = Explode(",", warp.get_attached_players())
 for i = 1, #players do
  Show(i..". "..players[i])
 end
 SetColorTitle()
 ShowMenu("Enter player number")
 ShowMenu("or press enter to summon everyone")
 SetColorDeflt()
 sleep(0.3)
 term.write(":")
 local input = read()
 if input == "" then
  warp.summon_all()
 else
  input = tonumber(input)
  warp.summon(input - 1)
 end
end

function JumpToBeacon()
 Clear()
 ShowTitle("<==== Jump to beacon ====>")
 sleep(0.3)
 term.write("Enter beacon frequency: ")
 local freq = tostring(read())
 rs.setOutput(Alarm, true)
 if Confirm() then
  rs.setOutput(Alarm, false)
  warp.set_mode(4)
  warp.set_beacon_frequency(freq)
  warp.do_jump()
 end
 rs.setOutput(Alarm, false)
end

function JumpToGate()
 Clear()
 ShowTitle("<==== Jump to JumpGate ====>")
 sleep(0.3)
 term.write("Enter jumpgate name: ")
 local name = tostring(read())
 rs.setOutput(Alarm, true)
 if Confirm() then
  rs.setOutput(Alarm, false)
  warp.set_mode(6)
  warp.set_target_jumpgate(name)
  warp.do_jump()
 end
 rs.setOutput(Alarm, false)
end

function Turn()
 SetDirection()
 warp.set_direction(SData.Direction)
 if SData.Direction ~= 180 then
  local OldDir = SData.Direction
  SData.Direction = OldDir + 90
  CalcRealDistance()
  SData.Direction = OldDir
 else
  CalcRealDistance()
 end
 rs.setOutput(Alarm, true)
 if Confirm() then
  rs.setOutput(Alarm, false)
  warp.set_mode(1)
  warp.set_distance(MinimumDistance + 1)
  warp.do_jump(1)
 end
 rs.setOutput(Alarm, false)
end

function SetShipName()
 Clear()
 ShowTitle("<==== Set ship name ====>")
 sleep(0.3)
 term.write("Enter ship name: ")
 SData.Shipname = tostring(read())
 os.setComputerLabel(SData.Shipname)
 warp.set_core_frequency(SData.Shipname)
 SaveData()
 os.reboot()
end

if fs.exists("shipdata.txt") then
 ReadData()
else
 SData = {
  Summon = false,
  Distance = 1,
  Direction = 0,
  Shipname = ""
 }
end

SetColorDeflt()

Side = { "bottom", "top", "back", "left", "right" }
for i = 1,5 do
 if peripheral.getType(Side[i]) == "warpcore" then
  warp = peripheral.wrap(Side[i])
  break
 end
end

if type(warp) ~= "table" then
 ShowWarning("No warpcore controller detected")
 os.pullEvent("key")
 os.shutdown()
end

if SData.Shipname == "" then
 SetShipName()
end

Title = "<Jump-S 1.6.2 \""..SData.Shipname.."\">"

if SData.Summon then
 warp.summon_all()
end

GFront, GRight, GUp = warp.dim_getp()
GBack, GLeft, GDown = warp.dim_getn()
IsInHyper = warp.is_in_hyperspace()
repeat
 X = warp.get_x()
 sleep(0.3)
until X ~= nil
Y = warp.get_y()
Z = warp.get_z()
Weight = warp.get_ship_size()

CalcRealDistance()

warp.set_mode(1)

mainloop = true
while(mainloop) do
 Clear()
 ShowInfo()
 term.setCursorPos(1, 15)
 SetColorTitle()
 ShowMenu("D - Dimensions, M - Toggle summon, N - Ship name")
 ShowMenu("S - Set Warp Data, J - Jump, G - Jump to JumpGate")
 ShowMenu("B - Jump to Beacon, H -Jump to Hyperspace")
 ShowMenu("C - Summon, T - Turn, X - Shutdown")
 SetColorDeflt()
 local event, keycode = os.pullEvent("key")
 if keycode == 31 then
  SetDirection()
  SetDistance()
  SaveData()
 elseif keycode == 50 then
  if SData.Summon then
   SData.Summon = false
  else
   SData.Summon = true
  end
  SaveData()
 elseif keycode == 32 then
  SetDimensions()
  SaveData()
 elseif keycode == 36 then
  rs.setOutput(Alarm, true)
  if Confirm() then
   Warp()
  end
  rs.setOutput(Alarm, false)
 elseif keycode == 46 then
  Summon()
 elseif keycode == 48 then
  JumpToBeacon()
 elseif keycode == 34 then
  JumpToGate()
 elseif keycode == 35 then
  rs.setOutput(Alarm, true)
  if Confirm() then
   rs.setOutput(Alarm, false)
   warp.set_mode(5)
   warp.do_jump()
  end
  rs.setOutput(Alarm, false)
 elseif keycode == 20 then
  Turn()
 elseif keycode == 45 then
  mainloop = false
 elseif keycode == 49 then
  SetShipName()
 end
end

if SData.Summon then
 SData.Summon = false
 SaveData()
end
Clear()
print("wish you good")
warp.set_mode(0)
sleep(0.5)
os.shutdown()