Add a remote crafting terminal.

modules/storage/init.lua

@@ -16,6 +16,7 @@ dofile(module_path.."/terminal.lua")
 dofile(module_path.."/cterminal.lua")
 dofile(module_path.."/cmonitor.lua")
 dofile(module_path.."/interface.lua")
+
 local drawers_enabled = minetest.get_modpath("drawers") and true or false
 if drawers_enabled then
   dofile(module_path.."/drawer-api.lua") -- Extra Drawer api
@@ -23,6 +24,7 @@ if drawers_enabled then
 end
 local technic_enabled = minetest.get_modpath("technic") and true or false
 if technic_enabled then
+  dofile(module_path.."/remote.lua")
   dofile(module_path.."/technic-interop.lua")
 end
 local pipeworks_enabled = minetest.get_modpath("pipeworks") and true or false

modules/storage/remote.lua

@@ -0,0 +1,277 @@
+local me = microexpansion
+
+technic = rawget(_G, "technic") or {}
+
+--local S = technic.getter
+
+local S = function(t)
+  return t
+end
+
+
+-- technic.register_power_tool("microexpansion:remote", 300000)
+
+local function get_metadata(toolstack)
+  local m = minetest.deserialize(toolstack:get_metadata())
+  if not m then m = {} end
+  if not m.charge then m.charge = 100 end
+  if not m.page then m.page = 1 end
+  if not m.query then m.query = "" end
+  if not m.crafts then m.crafts = "false" end
+  if not m.inv_name then m.inv_name = "main" end
+  if not m.query then m.query = "" end
+  return m
+end
+
+local function chest_formspec(pos, start_id, listname, page_max, q, c)
+  local list
+  local page_number = ""
+  local buttons = ""
+  local query = q or ""
+  local crafts = (c and "true") or "false"
+  local net,cpos = me.get_connected_network(pos)
+
+  if cpos then
+    local inv = net:get_inventory()
+    if listname and (inv:get_size(listname) > 0 or net:get_item_capacity() > 0) then
+      local ctrlinvname = net:get_inventory_name()
+      if listname == "main" then
+	list = "list[detached:"..ctrlinvname..";"
+	  .. listname .. ";0,0.3;8,4;" .. (start_id - 1) .. "]"
+      else
+	list = "list[context;" .. listname .. ";0,0.3;8,4;" .. (start_id - 1) .. "]"
+      end
+      if minetest.get_modpath("i3") then
+	list = list .. [[
+	  list[current_player;main;0,8.5;9,4;]
+	]]
+      else
+	list = list .. [[
+	  list[current_player;main;0,8.5;8,1;]
+	  list[current_player;main;0,9.73;8,3;8]
+	]]
+      end
+      list = list .. [[
+	list[context;recipe;0.22,5.22;3,3;]
+	list[context;output;4,6.22;1,1;]
+      ]]
+      list = list .. [[
+	listring[current_player;main]
+	listring[detached:]]..ctrlinvname..[[;main]
+	listring[current_player;main]
+	listring[context;recipe]
+	listring[current_player;main]
+	listring[context;output]
+	listring[current_player;main]
+      ]]
+      buttons = [[
+	button[3.56,4.35;1.8,0.9;tochest;To Drive]
+	tooltip[tochest;Move everything from your inventory to the ME network.]
+	button[5.4,4.35;0.8,0.9;prev;<]
+	button[7.25,4.35;0.8,0.9;next;>]
+	tooltip[prev;Previous]
+	tooltip[next;Next]
+	field[0.29,4.6;2.2,1;filter;;]]..query..[[]
+	button[2.1,4.5;0.8,0.5;search;?]
+	button[2.75,4.5;0.8,0.5;clear;X]
+	tooltip[search;Search]
+	tooltip[clear;Reset]
+	field[6,5.42;2,1;autocraft;;1]
+	tooltip[autocraft;Number of items to Craft]
+	checkbox[6,6.45;crafts;crafts;]]..crafts..[[]
+	tooltip[crafts;Show only craftable items]
+      ]]
+    else
+      list = "label[3,2;" .. minetest.colorize("red", "No connected storage!") .. "]"
+    end
+  else
+    list = "label[3,2;" .. minetest.colorize("red", "No connected network!") .. "]"
+  end
+  if page_max then
+    page_number = "label[6.15,4.5;" .. math.floor((start_id / 32)) + 1 ..
+      "/" .. page_max .."]"
+  end
+
+  return [[
+    size[9,12.5]
+  ]]..
+    microexpansion.gui_bg ..
+    microexpansion.gui_slots ..
+    list ..
+  [[
+    label[0,-0.23;ME Remote Crafting Terminal]
+    field_close_on_enter[filter;false]
+    field_close_on_enter[autocraft;false]
+  ]]..
+    page_number ..
+    buttons
+end
+
+minetest.register_tool("microexpansion:remote", {
+  description = S("Microexpansion Remote"),
+  inventory_image = "technic_prospector.png",
+  wear_represents = "technic_RE_charge",
+  -- on_refill = technic.refill_RE_charge,
+  on_use = function(toolstack, user, pointed_thing)
+    if not user or not user:is_player() or user.is_fake_player then return end
+    local toolmeta = get_metadata(toolstack)
+    local net = nil
+    if pointed_thing.type == "node" then
+      local pos = pointed_thing.under
+      pos.z = pos.z - 1
+      local net,cpos = me.get_connected_network(pos)
+      -- TODO: ensure that pos is a crafting terminal
+      if net then
+        me.log("REMOTE: is now bound", "error")
+	toolmeta.terminal = pos
+	toolmeta.controller = cpos
+	toolstack:set_metadata(minetest.serialize(toolmeta))
+	user:set_wielded_item(toolstack)
+      else
+        me.log("REMOTE: is not bound", "error")
+      end
+    end
+    if not net then
+      net = me.get_connected_network(toolmeta.controller)
+    end
+    local pos = toolmeta.terminal
+  end,
+  on_secondary_use = function(toolstack, user, pointed_thing)
+    if not user or not user:is_player() or user.is_fake_player then return end
+    local toolmeta = get_metadata(toolstack)
+    local net = nil
+    if not net then
+      net = me.get_connected_network(toolmeta.terminal)
+    end
+    local pos = toolmeta.terminal
+    local cpos = toolmeta.controller
+    -- if not net then return end
+
+    local charge_to_take = 1
+
+    -- if toolmeta.charge < charge_to_take then return end
+
+    if false and not technic.creative_mode then
+      toolmeta.charge = toolmeta.charge - charge_to_take
+      toolstack:set_metadata(minetest.serialize(toolmeta))
+      -- technic.set_RE_wear(toolstack, toolmeta.charge, technic.power_tools[toolstack:get_name()])
+    end
+
+    local page = toolmeta.page
+    local inv_name = toolmeta.inv_name
+    local query = toolmeta.query
+    local crafts = toolmeta.crafts == "true"
+
+    local page_max
+    local inv
+    local meta
+    local own_inv
+    local ctrl_inv
+    if cpos then
+      ctrl_inv = net:get_inventory()
+      meta = minetest.get_meta(pos)
+      own_inv = meta:get_inventory()
+      me.log("REMOTE: invname "..inv_name.." page "..page.." query "..query.." crafts "..((crafts and "true") or "false"), "error")
+    end
+    if inv_name == "main" then
+      inv = ctrl_inv
+    else
+      inv = own_inv
+    end
+    if net then
+      page_max = math.floor(inv:get_size(inv_name) / 32) + 1
+    end
+
+    minetest.show_formspec(user:get_player_name(), "microexpansion:remote_control",
+      chest_formspec(pos, page, inv_name, page_max, query, crafts))
+
+    return toolstack
+  end,
+})
+
+minetest.register_on_player_receive_fields(function(user, formname, fields)
+  if formname ~= "microexpansion:remote_control" then return false end
+  if not user or not user:is_player() or user.is_fake_player then return end
+  local toolstack = user:get_wielded_item()
+  if toolstack:get_name() ~= "microexpansion:remote" then return true end
+
+  local toolmeta = get_metadata(toolstack)
+
+  local pos = toolmeta.terminal
+  local cpos = toolmeta.controller
+  local net
+  if toolmeta.terminal then
+    net = me.get_connected_network(toolmeta.terminal)
+  end
+
+  local page_max
+  local inv
+  local meta
+  local own_inv
+  local ctrl_inv
+  if cpos then
+    ctrl_inv = net:get_inventory()
+    meta = minetest.get_meta(pos)
+    own_inv = meta:get_inventory()
+  end
+  if inv_name == "main" then
+    inv = ctrl_inv
+  else
+    inv = own_inv
+  end
+
+  local page = toolmeta.page
+  local crafts = (toolmeta.crafts == "true" and true) or false
+  local inv_name = toolmeta.inv_name
+  for field, value in pairs(fields) do
+    me.log("REMOTE: form "..field.." value "..value, "error")
+    if field == "next" then
+      if page + 32 <= inv:get_size(inv_name) then
+        page = page + 32
+        toolmeta.page = page
+        --meta:set_string("formspec", chest_formspec(pos, page, inv_name, page_max, fields.filter, crafts))
+      end        
+    elseif field == "prev" then
+      if page - 32 >= 1 then
+        page = page - 32
+        toolmeta.page = page
+        --meta:set_string("formspec", chest_formspec(pos, page, inv_name, page_max, fields.filter, crafts))
+      end
+    elseif field == "crafts" then
+      toolmeta.crafts = value
+    elseif field == "filter" then
+      toolmeta.filter = value
+    elseif field == "search" then
+    elseif field == "clear" then
+      own_inv:set_size("search", 0)
+      own_inv:set_size("crafts", 0)
+      toolmeta.page = 1
+      toolmeta.inv_name = "main"
+      toolmeta.crafts = "false"
+      toolmeta.page_max = math.floor(ctrl_inv:get_size(inv_name) / 32) + 1
+      --meta:set_string("formspec", chest_formspec(pos, 1, inv_name, page_max))
+    elseif field == "tochest" then
+    elseif field == "autocraft" then
+      if tonumber(value) ~= nil then
+        toolmeta.autocraft = value
+      end
+    elseif field == "key_enter_field" and value == "autocraft" then
+      local count = tonumber(toolmeta.autocraft)
+      if not own_inv:get_stack("output", 1):is_empty() and count < math.pos(2,16) then
+        me.autocraft(me.autocrafterCache, pos, net, own_inv, ctrl_inv, count)
+      end
+    end
+  end
+  toolstack:set_metadata(minetest.serialize(toolmeta))
+  user:set_wielded_item(toolstack)
+  return true
+end)
+
+minetest.register_craft({
+  output = "microexpansion:remote",
+  recipe = {
+    {"basic_materials:brass_ingot", "", "pipeworks:teleport_tube_1"},
+    {"", "technic:control_logic_unit", "basic_materials:brass_ingot"},
+    {"", "", ""},
+  }
+})