PRYGEE 1.6.4

print("loading...")

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

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()
        warp.set_direction(SData.Direction)
    if IsInHyper then
        warp.set_mode(2)
    else
        warp.set_mode(1)
    end
    sleep(1)
    warp.do_jump()
    sleep(30)
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...")
    SData.ndf = GFront
    SData.ndr = GRight
    SData.ndu = GUp
    SData.ndb = GBack
    SData.ndl = GLeft
    SData.ndd = GDown
    SaveData()
    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 = "",
        --normal ship dimensions
        ndf = 1,
        ndr = 1,
        ndu = 1,
        ndb = 1,
        ndl = 1,
        ndd = 1
    }
end

warpCoreOn = false

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")
    return
end

--setting proper dimensions
warp.dim_setp(SData.ndf, SData.ndr, SData.ndu)
warp.dim_setn(SData.ndb, SData.ndl, SData.ndd)

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

Title = "<Jump-S 1.6.4 \""..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)
sleep(1)
warp.set_mode(0)

mainloop = true
while(mainloop) do

    if warpCoreOn == true then
        warp.set_mode(1)
    else
        warp.set_mode(0)
    end
    GFront, GRight, GUp = warp.dim_getp()
    GBack, GLeft, GDown = warp.dim_getn()
    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, Q - On/Off")
    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
            warp.set_mode(5)
            sleep(15)
            warp.do_jump()
            sleep(15)
        end
        rs.setOutput(Alarm, false)
    elseif keycode == 20 then
        Turn()
    elseif keycode == 45 then
        mainloop = false
    elseif keycode == 49 then
        SetShipName()
    elseif keycode == 16 then
        warpCoreOn = not warpCoreOn
    end
end

if SData.Summon then
    SData.Summon = false
    SaveData()
end
Clear()
print("have a nice day")
warp.set_mode(0)
sleep(0.5)
os.shutdown()