elepower/elepower_wireless/machines/station.lua

214 lines
6.6 KiB
Lua
Raw Normal View History

-- see elepower_papi >> external_nodes_items.lua for explanation
-- shorten table ref
local epr = ele.external.ref
elewi.node_handlers = {}
local desc_cache = {}
local function default_on_receive_fields(name)
local rcv = minetest.registered_nodes[name].on_receive_fields
if not rcv then return function ( ... ) end end
return function (pos, fields, sender)
return rcv(pos, name, fields, sender)
end
end
function elewi.register_handler(name, def)
assert(minetest.registered_nodes[name])
assert(def.get_formspec)
if not def.on_receive_fields then
def.on_receive_fields = default_on_receive_fields(name)
end
elewi.node_handlers[name] = def
end
local function get_desc(node)
if desc_cache[node] then return desc_cache[node] end
local n = minetest.registered_nodes[node]
if not n then return "" end
desc_cache[node] = ele.helpers.get_first_line(n.description)
return desc_cache[node]
end
local function get_formspec(power)
return "size[8,8.5]"..
epr.gui_bg..
epr.gui_bg_img..
epr.gui_slots..
ele.formspec.power_meter(power)..
"list[context;card;3.5,1;1,1;]"..
"list[current_player;main;0,4.25;8,1;]"..
"list[current_player;main;0,5.5;8,3;8]"..
"listring[current_player;main]"..
"listring[context;card]"..
"listring[current_player;main]"..
epr.get_hotbar_bg(0, 4.25)
end
local function data_from_card(card)
if card:is_empty() then return nil end
local meta = card:get_meta()
local pstr = meta:get_string("pos")
local rpos = minetest.string_to_pos(pstr)
local node = meta:get_string("node")
if not rpos or node == "" then return nil end
-- Check validity
local nodeat = minetest.get_node_or_nil(rpos)
if not nodeat or nodeat.name ~= node then return nil end
return elewi.node_handlers[node], { pos = rpos, pos_str = pstr, node = node }
end
local function station_timer(pos, elapsed)
local meta = minetest.get_meta(pos)
local inv = meta:get_inventory()
local card = inv:get_stack("card", 1)
local fns, info = data_from_card(card)
local capacity = ele.helpers.get_node_property(meta, pos, "capacity")
local storage = ele.helpers.get_node_property(meta, pos, "storage")
local usage = ele.helpers.get_node_property(meta, pos, "usage")
local pow_buffer = {capacity = capacity, storage = storage, usage = usage}
local status = "Idle"
if not fns then
pow_buffer.usage = 0
meta:set_string("formspec", get_formspec(pow_buffer))
meta:set_string("infotext", "Wireless Control Station Idle")
return false
end
status = ("Monitoring %s at %s"):format(get_desc(info.node), info.pos_str)
if storage < usage then
pow_buffer.usage = 0
status = status .. "\nOut of Power!"
meta:set_string("formspec", get_formspec(pow_buffer))
else
storage = storage - usage
meta:set_int("storage", storage)
meta:set_string("formspec", fns.get_formspec(info.pos, pow_buffer, pos, meta))
end
meta:set_string("infotext", "Wireless Control Station\n"..status)
return true
end
local function allow_metadata_inventory_put(pos, listname, index, stack, player)
if minetest.is_protected(pos, player:get_player_name()) then
return 0
end
if listname == "card" and stack:get_name() ~= "elepower_wireless:card" then
return 0
end
return stack:get_count()
end
local function allow_metadata_inventory_move(pos, from_list, from_index, to_list, to_index, count, player)
local meta = minetest.get_meta(pos)
local inv = meta:get_inventory()
local stack = inv:get_stack(from_list, from_index)
return allow_metadata_inventory_put(pos, to_list, to_index, stack, player)
end
local function set_card(itemstack, placer, pointed_thing)
local meta = itemstack:get_meta()
if not placer or placer:get_player_name() == "" then return itemstack end
local player = placer:get_player_name()
if placer:get_player_control().sneak and pointed_thing.type == "nothing" then
meta:set_string("node", "")
meta:set_string("pos", "")
meta:set_string("description",
"Wireless Control Station Card\nSneak-Right-Click on a node to bind it")
minetest.chat_send_player(player, "Cleared card.")
return itemstack
end
if pointed_thing.type == "nothing" then return itemstack end
if minetest.is_protected(pointed_thing.under, player) then
minetest.chat_send_player(player, "You do not have permission to remotely control this node!")
return itemstack
end
local node = minetest.get_node_or_nil(pointed_thing.under)
if not node or elewi.node_handlers[node.name] == nil then return end
local pstr = minetest.pos_to_string(pointed_thing.under)
local ndesc = minetest.registered_nodes[node.name]
local str = ("Bound to %s at %s"):format(ele.helpers.get_first_line(ndesc.description), pstr)
meta:set_string("node", node.name)
meta:set_string("pos", pstr)
meta:set_string("description", "Wireless Control Station Card\n"..str)
minetest.chat_send_player(player, str)
return itemstack
end
minetest.register_craftitem("elepower_wireless:card", {
description = "Wireless Control Station Card\nSneak-Right-Click on a node to bind it",
inventory_image = "elewireless_station_card.png",
wield_image = "elewireless_station_card.png",
on_place = set_card,
on_secondary_use = set_card,
stack_max = 1,
})
ele.register_machine("elepower_wireless:station", {
description = "Wireless Control Station",
groups = {cracky = 1, ele_user = 1},
tiles = {
"elepower_machine_top.png", "elepower_machine_base.png", "elepower_machine_side.png",
"elepower_machine_side.png", "elepower_machine_side.png", "elepower_machine_side.png^elewireless_station.png",
},
ele_capacity = 8000,
ele_usage = 8,
ele_no_automatic_ports = true,
on_timer = station_timer,
on_construct = function (pos)
local meta = minetest.get_meta(pos)
local inv = meta:get_inventory()
inv:set_size("card", 1)
meta:set_string("formspec", get_formspec())
end,
on_receive_fields = function (pos, formname, fields, sender)
if sender and sender ~= "" and minetest.is_protected(pos, sender:get_player_name()) then
return
end
local meta = minetest.get_meta(pos)
local storage = ele.helpers.get_node_property(meta, pos, "storage")
local usage = ele.helpers.get_node_property(meta, pos, "usage")
if storage < usage then return end
local inv = meta:get_inventory()
local card = inv:get_stack("card", 1)
local fns, info = data_from_card(card)
if not fns then return end
return fns.on_receive_fields(info.pos, fields, sender, pos, meta)
end,
allow_metadata_inventory_put = allow_metadata_inventory_put,
allow_metadata_inventory_move = allow_metadata_inventory_move,
ele_upgrades = {
wireless_chip = {"usage"},
}
})
-- Include individual node support
local mp = minetest.get_modpath("elepower_wireless") .. "/machines/station/"
if minetest.get_modpath("elepower_nuclear") ~= nil then
dofile(mp .. "fission_reactor.lua")
end