local lib = starsoul.mod.lib
function starsoul.ui.setupForUser(user)
local function cmode(mode)
if user.actMode == mode then return {hue = 150, sat = 0, lum = .3} end
end
user.entity:set_inventory_formspec(starsoul.ui.build {
kind = 'vert', mode = 'sw';
padding = .5, spacing = 0.1;
{kind = 'hztl';
{kind = 'contact', w=1.5,h=1.5, id = 'mode_nano',
img='starsoul-ui-icon-nano.png', close=true, color = cmode'nano'};
{kind = 'contact', w=1.5,h=1.5, id = 'mode_weapon',
img='starsoul-ui-icon-weapon.png', close=true, color = cmode'weapon'};
{kind = 'contact', w=1.5,h=1.5, id = 'mode_psi',
img='starsoul-ui-icon-psi.png', close=true, color = cmode'psi'};
};
{kind = 'hztl';
{kind = 'contact', w=1.5,h=1.5, id = 'open_elements',
img='starsoul-ui-icon-element.png'};
{kind = 'contact', w=1.5,h=1.5, id = 'open_suit',
img='starsoul-item-suit.png^[hsl:200:-.7:0'};
{kind = 'contact', w=1.5,h=1.5, id = 'open_psi',
img='starsoul-ui-icon-psi-cfg.png'};
{kind = 'contact', w=1.5,h=1.5, id = 'open_body',
img='starsoul-ui-icon-self.png'};
};
{kind = 'list';
target = 'current_player', inv = 'main';
w = 6, h = 1, spacing = 0.1;
};
})
end
function starsoul.ui.userMenuDispatch(user, fields)
local function setSuitMode(mode)
if user.actMode == mode then
user:actModeSet 'off'
else
user:actModeSet(mode)
end
end
local modes = { nano = true, psi = false, weapon = true }
for e,s in pairs(modes) do
if fields['mode_' .. e] then
if s and (user:naked() or user:getSuit():powerState() == 'off') then
user:suitSound 'starsoul-error'
else
setSuitMode(e)
end
return true
end
end
if fields.open_elements then
user:openUI('starsoul:user-menu', 'compiler')
return true
elseif fields.open_psi then
user:openUI('starsoul:user-menu', 'psi')
return true
elseif fields.open_suit then
if not user:naked() then
user:openUI('starsoul:user-menu', 'suit')
end
return true
elseif fields.open_body then
user:openUI('starsoul:user-menu', 'body')
end
return false
end
local function listWrap(n, max)
local h = math.ceil(n / max)
local w = math.min(max, n)
return w, h
end
local function wrapMenu(w, h, rh, max, l)
local root = {kind = 'vert', w=w, h=h}
local bar
local function flush()
if bar and bar[1] then table.insert(root, bar) end
bar = {kind = 'hztl'}
end
flush()
for _, i in ipairs(l) do
local bw = w/max
if i.cfg then w = w - rh end
table.insert(bar, {
kind = 'button', close = i.close;
color = i.color;
fg = i.fg;
label = i.label;
icon = i.img;
id = i.id;
w = bw, h = rh;
})
if i.cfg then
table.insert(bar, {
kind = 'button';
color = i.color;
fg = i.fg;
label = "CFG";
icon = i.img;
id = i.id .. '_cfg';
w = rh, h = rh;
})
end
if bar[max] then flush() end
end
flush()
return root
end
local function abilityMenu(a)
-- select primary/secondary abilities or activate ritual abilities
local p = {kind = 'vert'}
for _, o in ipairs(a.order) do
local m = a.menu[o]
table.insert(p, {kind='label', text=m.label, w=a.w, h = .5})
table.insert(p, wrapMenu(a.w, a.h, 1.2, 2, m.opts))
end
return p
end
local function pptrMatch(a,b)
if a == nil or b == nil then return false end
return a.chipID == b.chipID and a.pgmIndex == b.pgmIndex
end
starsoul.interface.install(starsoul.type.ui {
id = 'starsoul:user-menu';
pages = {
compiler = {
setupState = function(state, user)
-- nanotech/suit software menu
local chips = user.entity:get_inventory():get_list 'starsoul_suit_chips' -- FIXME need better subinv api
local sw = starsoul.mod.electronics.chip.usableSoftware(chips)
state.suitSW = {}
local dedup = {}
for i, r in ipairs(sw) do if
r.sw.kind == 'suitPower'
then
if not dedup[r.sw] then
dedup[r.sw] = true
table.insert(state.suitSW, r)
end
end end
end;
handle = function(state, user, act)
if user:getSuit():powerState() == 'off' then return false end
local pgm, cfg
for k in next, act do
local id, mode = k:match('^suit_pgm_([0-9]+)_(.*)$')
if id then
id = tonumber(id)
if state.suitSW[id] then
pgm = state.suitSW[id]
cfg = mode == '_cfg'
break
end
end
end
if not pgm then return false end -- HAX
-- kind=active programs must be assigned to a command slot
-- kind=direct programs must open their UI
-- kind=passive programs must toggle on and off
if pgm.sw.powerKind == 'active' then
if cfg then
user:openUI(pgm.sw.ui, 'index', {
context = 'suit';
program = pgm;
})
return false
end
local ptr = {chipID = starsoul.mod.electronics.chip.read(pgm.chip).uuid, pgmIndex = pgm.fd.inode}
local pnan = user.power.nano
if pnan.primary == nil then
pnan.primary = ptr
elseif pptrMatch(ptr, pnan.primary) then
pnan.primary = nil
elseif pptrMatch(ptr, pnan.secondary) then
pnan.secondary = nil
else
pnan.secondary = ptr
end
user:suitSound 'starsoul-configure'
elseif pgm.sw.powerKind == 'direct' then
local ctx = {
context = 'suit';
program = pgm;
}
if pgm.sw.ui then
user:openUI(pgm.sw.ui, 'index', ctx)
return false
else
pgm.sw.run(user, ctx)
end
elseif pgm.sw.powerKind == 'passive' then
if cfg then
user:openUI(pgm.sw.ui, 'index', {
context = 'suit';
program = pgm;
})
return false
end
local addDisableRec = true
for i, e in ipairs(pgm.file.body.conf) do
if e.key == 'disable' and e.value == 'yes' then
addDisableRec = false
table.remove(pgm.file.body.conf, i)
break
elseif e.key == 'disable' and e.value == 'no' then
e.value = 'yes'
addDisableRec = false
break
end
end
if addDisableRec then
table.insert(pgm.file.body.conf, {key='disable',value='yes'})
end
-- update the chip *wince*
pgm.fd:write(pgm.file)
user.entity:get_inventory():set_stack('starsoul_suit_chips',
pgm.chipSlot, pgm.chip)
user:reconfigureSuit()
user:suitSound('starsoul-configure')
end
return true, true
end;
render = function(state, user)
local suit = user:getSuit()
local swm
if user:getSuit():powerState() ~= 'off' then
swm = {
w = 8, h = 3;
order = {'active','ritual','pasv'};
menu = {
active = {
label = 'Nanoware';
opts = {};
};
ritual = {
label = 'Programs';
opts = {};
};
pasv = {
label = 'Passive';
opts = {};
};
};
}
for id, r in pairs(state.suitSW) do
local color = {hue=300,sat=0,lum=0}
local fg = nil
local close = nil
local tbl, cfg if r.sw.powerKind == 'active' then
tbl = swm.menu.active.opts
if r.sw.ui then cfg = true end
local pnan = user.power.nano
if pnan then
local ptr = {chipID = starsoul.mod.electronics.chip.read(r.chip).uuid, pgmIndex = r.fd.inode}
if pptrMatch(ptr, pnan.primary) then
color.lum = 1
elseif pptrMatch(ptr, pnan.secondary) then
color.lum = 0.8
end
end
elseif r.sw.powerKind == 'direct' then
tbl = swm.menu.ritual.opts
if not r.sw.ui then
close = true
end
elseif r.sw.powerKind == 'passive' then
tbl = swm.menu.pasv.opts
if r.sw.ui then cfg = true end
for i, e in ipairs(r.file.body.conf) do
if e.key == 'disable' and e.value == 'yes' then
color.lum = -.2
fg = lib.color {hue=color.hue,sat=0.7,lum=0.7}
break
end
end
end
if tbl then table.insert(tbl, {
color = color, fg = fg;
label = r.sw.label or r.sw.name;
id = string.format('suit_pgm_%s_', id);
cfg = cfg, close = close;
}) end
end
end
local menu = { kind = 'vert', mode = 'sw', padding = 0.5 }
if swm then table.insert(menu, abilityMenu(swm)) end
local inv = user.entity:get_inventory()
local cans = inv:get_list 'starsoul_suit_canisters'
if cans and next(cans) then for i, st in ipairs(cans) do
local id = string.format('starsoul_canister_%u_elem', i)
local esz = inv:get_size(id)
if esz > 0 then
local eltW, eltH = listWrap(esz, 5)
table.insert(menu, {kind = 'hztl',
{kind = 'img', desc='Elements', img = 'starsoul-ui-icon-element.png', w=1,h=1};
{kind = 'list', target = 'current_player', inv = id,
listContent = 'element', w = eltW, h = eltH, spacing = 0.1};
})
end
end end
if #menu == 0 then
table.insert(menu, {
kind = 'img';
img = 'starsoul-ui-alert.png';
w=2, h=2;
})
menu.padding = 1;
end
return starsoul.ui.build(menu)
end;
};
compilerListRecipes = {
};
psi = {
render = function(state, user)
return starsoul.ui.build {
kind = 'vert', mode = 'sw';
padding = 0.5;
}
end;
};
body = {
render = function(state, user)
local barh = .75
local tb = {
kind = 'vert', mode = 'sw';
padding = 0.5,
{kind = 'hztl', padding = 0.25;
{kind = 'label', text = 'Name', w = 2, h = barh};
{kind = 'label', text = user.persona.name, w = 4, h = barh}};
}
local statBars = {'hunger', 'thirst', 'fatigue', 'morale'}
for idx, id in ipairs(statBars) do
local s = starsoul.world.stats[id]
local amt, sv = user:effectiveStat(id)
local min, max = starsoul.world.species.statRange(user.persona.species, user.persona.speciesVariant, id)
local st = string.format('%s / %s', s.desc(amt, true), s.desc(max))
table.insert(tb, {kind = 'hztl', padding = 0.25;
{kind = 'label', w=2, h=barh, text = s.name};
{kind = 'hbar', w=4, h=barh, fac = sv, text = st, color=s.color};
})
end
local abilities = {
{id = 'abl_sprint', label = 'Sprint', img = 'starsoul-ui-icon-ability-sprint.png'};
}
table.insert(tb, wrapMenu(6.25,4, 1,2, abilities))
return starsoul.ui.build(tb)
end;
};
suit = {
render = function(state, user)
local suit = user:getSuit()
local suitDef = suit:def()
local chipW, chipH = listWrap(suitDef.slots.chips, 5)
local batW, batH = listWrap(suitDef.slots.batteries, 5)
local canW, canH = listWrap(suitDef.slots.canisters, 5)
local suitMode = suit:powerState()
local function modeColor(mode)
if mode == suitMode then return {hue = 180, sat = 0, lum = .5} end
end
return starsoul.ui.build {
kind = 'vert', mode = 'sw';
padding = 0.5, spacing = 0.1;
{kind = 'hztl',
{kind = 'img', desc='Batteries', img = 'starsoul-item-battery.png', w=1,h=1};
{kind = 'list', target = 'current_player', inv = 'starsoul_suit_bat',
listContent = 'power', w = batW, h = batH, spacing = 0.1};
};
{kind = 'hztl',
{kind = 'img', desc='Chips', img = 'starsoul-item-chip.png', w=1,h=1};
{kind = 'list', target = 'current_player', inv = 'starsoul_suit_chips',
listContent = 'chip', w = chipW, h = chipH, spacing = 0.1};
};
{kind = 'hztl',
{kind = 'img', desc='Canisters', img = 'starsoul-item-element-canister.png', w=1,h=1};
{kind = 'list', target = 'current_player', inv = 'starsoul_suit_canisters',
listContent = nil, w = canW, h = canH, spacing = 0.1};
};
{kind = 'hztl';
{kind = 'img', w=1,h=1, item = suit.item:get_name(),
desc = suit.item:get_definition().short_description};
{kind = 'button', w=1.5,h=1, id = 'powerMode_off', label = 'Off';
color=modeColor'off'};
{kind = 'button', w=2.5,h=1, id = 'powerMode_save', label = 'Power Save';
color=modeColor'powerSave'};
{kind = 'button', w=1.5,h=1, id = 'powerMode_on', label = 'On';
color=modeColor'on'};
};
{kind = 'list', target = 'current_player', inv = 'main', w = 6, h = 1, spacing = 0.1};
}
end;
handle = function(state, user, q)
local suitMode
if q.powerMode_off then suitMode = 'off'
elseif q.powerMode_save then suitMode = 'powerSave'
elseif q.powerMode_on then suitMode = 'on' end
if suitMode then
user:suitPowerStateSet(suitMode)
return true
end
end;
};
};
})
starsoul.interface.install(starsoul.type.ui {
id = 'starsoul:compile-matter-component';
pages = {
index = {
setupState = function(state, user, ctx)
if ctx.context == 'suit' then
end
state.pgm = ctx.program
end;
render = function(state, user)
return starsoul.ui.build {
kind = 'vert', padding = 0.5; w = 5, h = 5, mode = 'sw';
{kind = 'label', w = 4, h = 1, text = 'hello'};
}
end;
};
};
})