Crisenpuer Info Panel

// !runscript 9umWS0cJ

CIPtoggle on.

if not (defined CIPpaneloffset) {set CIPpaneloffset to 0.}

set terminal:width to 45.

declare function recalc_cap {
    set CIPlfcap to -1.
    set CIPoxcap to -1.
    set CIPeccap to -1.
    set CIPmpcap to -1.
    set CIPxgcap to -1.
    set CIPorcap to -1.

    set CIPresoff to 0.

    print "Recalculating resources capacity..".
    for rr in ship:resources if rr:name = "LiquidFuel" set CIPlfcap to rr:capacity.
    for rr in ship:resources if rr:name = "Oxidizer" set CIPoxcap to rr:capacity.
    for rr in ship:resources if rr:name = "ElectricCharge" set CIPeccap to rr:capacity.
    for rr in ship:resources if rr:name = "MonoPropellant" set CIPmpcap to rr:capacity.
    for rr in ship:resources if rr:name = "XenonGas" set CIPeccap to rr:capacity.
    for rr in ship:resources if rr:name = "Ore" set CIPorcap to rr:capacity.

    if not (CIPlfcap = -1) {set CIPlffnd to True. set CIPlfoff to 0.} else {set CIPlffnd to false. set CIPresoff to CIPresoff-1. set CIPlfoff to -1.}.
    if not (CIPoxcap = -1) {set CIPoxfnd to True. set CIPoxoff to 0.} else {set CIPoxfnd to false. set CIPresoff to CIPresoff-1. set CIPoxoff to -1.}.
    if not (CIPeccap = -1) {set CIPecfnd to True. set CIPecoff to 0.} else {set CIPoxfnd to false. set CIPresoff to CIPresoff-1. set CIPecoff to -1.}.
    if not (CIPmpcap = -1) {set CIPmpfnd to True. set CIPmpoff to 0.} else {set CIPmpfnd to false. set CIPresoff to CIPresoff-1. set CIPmpoff to -1.}.
    if not (CIPxgcap = -1) {set CIPxgfnd to True. set CIPxgoff to 0.} else {set CIPxgfnd to false. set CIPresoff to CIPresoff-1. set CIPxgoff to -1.}.
    if not (CIPxgcap = -1) {set CIPorfnd to True. set CIPoroff to 0.} else {set CIPorfnd to false. set CIPresoff to CIPresoff-1. set CIPoroff to -1.}.

    set terminaldiff to terminal:height - (CIPpaneloffset+17+CIPresoff+5).
    if terminaldiff < 0 set terminal:height to terminal:height-terminaldiff.
}

declare function get_perc {
    parameter capacity, amount.
    set rat to amount/capacity.
    if rat=1 {
        set CIPpercent to "FULL".
    } else if rat=0 {
        set CIPpercent to "NONE".
    } else {
        set CIPpercent to round(100*rat,1) + "%".
    }
    return CIPpercent.
}

declare function calc_alt_units {
    parameter alt, unt.

    if unt = "m" {
        return round(alt, 1) + " m".
    } else if unt = "km" {
        return round(alt/1000, 1) + " km".
    } else if unt = "Mm" {
        return round(alt/1000^2, 1) + " Mm".
    } else if unt = "Gm" {
        return round(alt/1000^3, 1) + " Gm".
    } else if unt = "Tm" {
        return round(alt/1000^4, 1) + " Tm".
    } else if unt = "Pm" {
        return round(alt/1000^5, 1) + " Pm".
    } else if unt = "Em"{
        return round(alt/1000^6, 1) + " Em".
    } else {
        return "INVALID_UNIT [m/km/Mm/Gm/Tm/Pm/Em]".
    }
}

set lightspeed to 299792458.

declare function calc_spd_units {
    parameter spd, unt.

    if unt = "m" {
        return round(spd, 1) + " m/s".
    } else if unt = "km" {
        return round(spd/1000, 1) + " km/s".
    } else if unt = "Mm" {
        return round(spd/1000^2, 1) + " Mm/s".
    } else if unt = "Gm" {
        return round(spd/1000^3, 1) + " Gm/s".
    } else if unt = "Tm" {
        return round(spd/1000^4, 1) + " Tm/s".
    } else if unt = "Pm" {
        return round(spd/1000^5, 1) + " Pm/s".
    } else if unt = "Em"{
        return round(spd/1000^6, 1) + " Em/s".
    } else if unt = "c" {
        return round(spd/lightspeed, 3) + " c".
    } else {
        return "INVALID_UNIT [m/km/Mm/Gm/Tm/Pm/Em/c]".
    }
}

declare global CIPrecalc to false.
declare global CIPaltunit to "m".
declare global CIPspdunit to "m".
recalc_cap().

when CIPrecalc then {
    set CIPrecalc to false.
    recalc_cap().
}

on round(kuniverse:realtime * 12) {
    print("============================================="):padright(terminal:width) at(0,CIPpaneloffset).
    print("            CRISENPUER INFO PANEL            "):padright(terminal:width) at(0,CIPpaneloffset+1).
    print("============================================="):padright(terminal:width) at(0,CIPpaneloffset+2).
    print("------------------RESOURCES------------------"):padright(terminal:width) at(0,CIPpaneloffset+3).
    if not (CIPlfcap = -1) {print("    LiquidFuel: [ " + get_perc(CIPlfcap, ship:liquidfuel) + " ]  " + round(ship:liquidfuel) + " / " + round(CIPlfcap)):padright(terminal:width) at(0,CIPpaneloffset+4+CIPlfoff).}.
    if not (CIPoxcap = -1) {print("      Oxidizer: [ " + get_perc(CIPoxcap, ship:oxidizer) + " ]  " + round(ship:oxidizer) + " / " + round(CIPoxcap)):padright(terminal:width) at(0,CIPpaneloffset+5+CIPoxoff).}.
    if not (CIPeccap = -1) {print("ElectricCharge: [ " + get_perc(CIPeccap, ship:electriccharge) + " ]  " + round(ship:electriccharge) + " / " + round(CIPeccap)):padright(terminal:width) at(0,CIPpaneloffset+6+CIPecoff).}.
    if not (CIPmpcap = -1) {print("MonoPropellant: [ " + get_perc(CIPmpcap, ship:monopropellant) + " ]  " + round(ship:monopropellant) + " / " + round(CIPmpcap)):padright(terminal:width) at(0,CIPpaneloffset+7+CIPmpoff).}.
    if not (CIPxgcap = -1) {print("      XenonGas: [ " + get_perc(CIPxgcap, ship:xenongas) + " ]  " + round(ship:xenongas) + " / " + round(CIPxgcap)):padright(terminal:width) at(0,CIPpaneloffset+8+CIPxgoff).}.
    if not (CIPorcap = -1) {print("           Ore: [ " + get_perc(CIPorcap, ship:ore) + " ]  " + round(ship:ore) + " / " + round(CIPorcap)):padright(terminal:width) at(0,CIPpaneloffset+9+CIPoroff).}.
    print("-----------------FLIGHT-INFO-----------------"):padright(terminal:width) at(0,CIPpaneloffset+10+CIPresoff).
    print("   GroundSpeed:   " + calc_spd_units(ship:groundspeed, CIPspdunit)):padright(terminal:width+11) at(0,CIPpaneloffset+11+CIPresoff).
    print("      AirSpeed:   " + calc_spd_units(ship:airspeed, CIPspdunit)):padright(terminal:width) at(0,CIPpaneloffset+12+CIPresoff).
    print("    OrbitSpeed:   " + calc_spd_units(ship:velocity:orbit:mag, CIPspdunit)):padright(terminal:width) at(0,CIPpaneloffset+13+CIPresoff).
    print("      Altitude:   " + calc_alt_units(ship:altitude, CIPaltunit)):padright(terminal:width) at(0,CIPpaneloffset+14+CIPresoff).
    print("      Apoapsis:   " + calc_alt_units(ship:apoapsis, CIPaltunit)):padright(terminal:width) at(0,CIPpaneloffset+15+CIPresoff).
    print("     Periapsis:   " + calc_alt_units(ship:periapsis, CIPaltunit)):padright(terminal:width) at(0,CIPpaneloffset+16+CIPresoff).
    print("============================================="):padright(terminal:width) at(0,CIPpaneloffset+17+CIPresoff).

    return CIPtoggle.
}

set CIPpanelsize to CIPpaneloffset+18.