technic_cnc_improve/cnc.lua
2020-08-16 18:39:32 +08:00

264 lines
10 KiB
Lua

-- Technic CNC v1.0 by kpoppel
-- Based on the NonCubic Blocks MOD v1.4 by yves_de_beck
-- Idea:
-- Somehow have a tabbed/paged panel if the number of shapes should expand
-- beyond what is available in the panel today.
-- I could imagine some form of API allowing modders to come with their own node
-- box definitions and easily stuff it in the this machine for production.
local S = technic.getter
local shape = {}
local onesize_products = {
slope = 2,
slope_edge = 1,
slope_inner_edge = 1,
pyramid = 2,
spike = 1,
cylinder = 2,
cylinder_fluted = 2,
oblate_spheroid = 1,
sphere = 1,
sphere_half = 2,
sphere_quarter = 4,
stick = 8,
slope_upsdown = 2,
slope_edge_upsdown = 1,
slope_inner_edge_upsdown = 1,
cylinder_horizontal = 2,
slope_lying = 2,
onecurvededge = 1,
twocurvededge = 1,
innercurvededge = 1,
opposedcurvededge = 1,
block_fluted = 1,
tile_beveled = 9,
arch216 = 1,
arch216_flange = 1,
cylinder_half = 4,
cylinder_half_corner = 4,
beam216 = 8,
beam216_cross = 2,
beam216_tee = 2,
beam216_cross_column = 1,
diagonal_truss = 6,
diagonal_truss_cross = 4,
onecurvededge_lr = 1,
twocurvededge_lr = 1,
d45_slope_216 = 1,
-- d45_beam_216 = 4,
}
local twosize_products = {
element_straight = 4,
element_end = 2,
element_cross = 1,
element_t = 1,
element_edge = 2,
}
local cnc_formspec =
"size[11,11;]"..
"label[0,0;"..S("Choose Milling Program:").."]"..
"image_button[0,0.5;1,1;technic_cnc_slope.png;slope; ]"..
"image_button[1,0.5;1,1;technic_cnc_slope_edge.png;slope_edge; ]"..
"image_button[2,0.5;1,1;technic_cnc_slope_inner_edge.png;slope_inner_edge; ]"..
"image_button[3,0.5;1,1;technic_cnc_pyramid.png;pyramid; ]"..
"image_button[4,0.5;1,1;technic_cnc_spike.png;spike; ]"..
"image_button[5,0.5;1,1;technic_cnc_tile_beveled.png;tile_beveled; ]"..
"image_button[6,0.5;1,1;technic_cnc_stick.png;stick; ]"..
"image_button[7,0.5;1,1;technic_cnc_beam216.png;beam216; ]"..
"image_button[8,0.5;1,1;technic_cnc_beam216_cross.png;beam216_cross; ]"..
"image_button[9,0.5;1,1;technic_cnc_beam216_tee.png;beam216_tee; ]"..
"image_button[10,0.5;1,1;technic_cnc_beam216_cross_column.png;beam216_cross_column; ]"..
"image_button[0,1.5;1,1;technic_cnc_slope_upsdwn.png;slope_upsdown; ]"..
"image_button[1,1.5;1,1;technic_cnc_slope_edge_upsdwn.png;slope_edge_upsdown; ]"..
"image_button[2,1.5;1,1;technic_cnc_slope_inner_edge_upsdwn.png;slope_inner_edge_upsdown; ]"..
"image_button[3,1.5;1,1;technic_cnc_cylinder.png;cylinder; ]"..
"image_button[4,1.5;1,1;technic_cnc_cylinder_horizontal.png;cylinder_horizontal; ]"..
"image_button[5,1.5;1,1;technic_cnc_cylinder_half.png;cylinder_half; ]"..
"image_button[6,1.5;1,1;technic_cnc_cylinder_half_corner.png;cylinder_half_corner; ]"..
"image_button[7,1.5;1,1;technic_cnc_oblate_spheroid.png;oblate_spheroid; ]"..
"image_button[8,1.5;1,1;technic_cnc_sphere.png;sphere; ]"..
"image_button[9,1.5;1,1;technic_cnc_sphere_half.png;sphere_half; ]"..
"image_button[10,1.5;1,1;technic_cnc_sphere_quarter.png;sphere_quarter; ]"..
"image_button[0,2.5;1,1;technic_cnc_slope_lying.png;slope_lying; ]"..
"image_button[1,2.5;1,1;technic_cnc_onecurvededge.png;onecurvededge; ]"..
"image_button[2,2.5;1,1;technic_cnc_twocurvededge.png;twocurvededge; ]"..
"image_button[3,2.5;1,1;technic_cnc_innercurvededge.png;innercurvededge; ]"..
"image_button[4,2.5;1,1;technic_cnc_opposedcurvededge.png;opposedcurvededge; ]"..
"image_button[5,2.5;1,1;technic_cnc_block_fluted.png;block_fluted; ]"..
"image_button[6,2.5;1,1;technic_cnc_cylinder_fluted.png;cylinder_fluted; ]"..
"image_button[7,2.5;1,1;technic_cnc_diagonal_truss.png;diagonal_truss; ]"..
"image_button[8,2.5;1,1;technic_cnc_diagonal_truss_cross.png;diagonal_truss_cross; ]"..
"image_button[9,2.5;1,1;technic_cnc_arch216.png;arch216; ]"..
"image_button[10,2.5;1,1;technic_cnc_arch216_flange.png;arch216_flange; ]"..
-- "image_button[7,3.5;1,1;technic_cnc_45_beam_216.png;d45_beam_216; ]"..
"image_button[8,3.5;1,1;technic_cnc_45_slope_216.png;d45_slope_216; ]"..
"image_button[9,3.5;1,1;technic_cnc_twocurvededge_lr.png;twocurvededge_lr; ]"..
"image_button[10,3.5;1,1;technic_cnc_onecurvededge_lr.png;onecurvededge_lr; ]"..
"label[0,3.5;"..S("Slim Elements half / normal height:").."]"..
"image_button[0,4;1,0.5;technic_cnc_full.png;full; ]"..
"image_button[0,4.5;1,0.5;technic_cnc_half.png;half; ]"..
"image_button[1,4;1,1;technic_cnc_element_straight.png;element_straight; ]"..
"image_button[2,4;1,1;technic_cnc_element_end.png;element_end; ]"..
"image_button[3,4;1,1;technic_cnc_element_cross.png;element_cross; ]"..
"image_button[4,4;1,1;technic_cnc_element_t.png;element_t; ]"..
"image_button[5,4;1,1;technic_cnc_element_edge.png;element_edge; ]"..
"label[1, 5.5;"..S("In:").."]"..
"list[current_name;src;1.5,5.5;1,1;]"..
"label[4.5, 5.5;"..S("Out:").."]"..
"list[current_name;dst;5.5,5.5;4,1;]"..
"list[current_player;main;1.5,7;8,4;]"..
"listring[current_name;dst]"..
"listring[current_player;main]"..
"listring[current_name;src]"..
"listring[current_player;main]"
local size = 1;
-- The form handler is declared here because we need it in both the inactive and active modes
-- in order to be able to change programs wile it is running.
local function form_handler(pos, formname, fields, sender)
-- REGISTER MILLING PROGRAMS AND OUTPUTS:
------------------------------------------
-- Program for half/full size
if fields["full"] then
size = 1
return
end
if fields["half"] then
size = 2
return
end
-- Resolve the node name and the number of items to make
local meta = minetest.get_meta(pos)
local inv = meta:get_inventory()
local inputstack = inv:get_stack("src", 1)
local inputname = inputstack:get_name()
local multiplier = 0
for k, _ in pairs(fields) do
-- Set a multipier for the half/full size capable blocks
if twosize_products[k] ~= nil then
multiplier = size * twosize_products[k]
else
multiplier = onesize_products[k]
end
if onesize_products[k] ~= nil or twosize_products[k] ~= nil then
meta:set_float( "cnc_multiplier", multiplier)
meta:set_string("cnc_user", sender:get_player_name())
end
if onesize_products[k] ~= nil or (twosize_products[k] ~= nil and size==2) then
meta:set_string("cnc_product", inputname .. "_technic_cnc_" .. k)
--print(inputname .. "_technic_cnc_" .. k)
break
end
if twosize_products[k] ~= nil and size==1 then
meta:set_string("cnc_product", inputname .. "_technic_cnc_" .. k .. "_double")
--print(inputname .. "_technic_cnc_" .. k .. "_double")
break
end
end
return
end
-- Action code performing the transformation
local run = function(pos, node)
local meta = minetest.get_meta(pos)
local inv = meta:get_inventory()
local eu_input = meta:get_int("LV_EU_input")
local machine_name = S("%s CNC Machine"):format("LV")
local machine_node = "technic:cnc"
local demand = 450
local result = meta:get_string("cnc_product")
if inv:is_empty("src") or
(not minetest.registered_nodes[result]) or
(not inv:room_for_item("dst", result)) then
technic.swap_node(pos, machine_node)
meta:set_string("infotext", S("%s Idle"):format(machine_name))
meta:set_string("cnc_product", "")
meta:set_int("LV_EU_demand", 0)
return
end
if eu_input < demand then
technic.swap_node(pos, machine_node)
meta:set_string("infotext", S("%s Unpowered"):format(machine_name))
elseif eu_input >= demand then
technic.swap_node(pos, machine_node.."_active")
meta:set_string("infotext", S("%s Active"):format(machine_name))
meta:set_int("src_time", meta:get_int("src_time") + 1)
if meta:get_int("src_time") >= 3 then -- 3 ticks per output
meta:set_int("src_time", 0)
local srcstack = inv:get_stack("src", 1)
srcstack:take_item()
inv:set_stack("src", 1, srcstack)
inv:add_item("dst", result.." "..meta:get_int("cnc_multiplier"))
end
end
meta:set_int("LV_EU_demand", demand)
end
-- The actual block inactive state
minetest.override_item("technic:cnc", {
description = S("%s CNC Machine"):format("LV"),
tiles = {"technic_cnc_top.png", "technic_cnc_bottom.png", "technic_cnc_side.png",
"technic_cnc_side.png", "technic_cnc_side.png", "technic_cnc_front.png"},
groups = {cracky=2, technic_machine=1, technic_lv=1},
connect_sides = {"bottom", "back", "left", "right"},
paramtype2 = "facedir",
legacy_facedir_simple = true,
on_construct = function(pos)
local meta = minetest.get_meta(pos)
meta:set_string("infotext", S("%s CNC Machine"):format("LV"))
meta:set_float("technic_power_machine", 1)
meta:set_string("formspec", cnc_formspec)
local inv = meta:get_inventory()
inv:set_size("src", 1)
inv:set_size("dst", 4)
end,
can_dig = technic.machine_can_dig,
allow_metadata_inventory_put = technic.machine_inventory_put,
allow_metadata_inventory_take = technic.machine_inventory_take,
allow_metadata_inventory_move = technic.machine_inventory_move,
on_receive_fields = form_handler,
technic_run = run,
})
-- Active state block
minetest.override_item("technic:cnc_active", {
description = S("%s CNC Machine"):format("LV"),
tiles = {"technic_cnc_top_active.png", "technic_cnc_bottom.png", "technic_cnc_side.png",
"technic_cnc_side.png", "technic_cnc_side.png", "technic_cnc_front_active.png"},
groups = {cracky=2, technic_machine=1, technic_lv=1, not_in_creative_inventory=1},
connect_sides = {"bottom", "back", "left", "right"},
paramtype2 = "facedir",
drop = "technic:cnc",
legacy_facedir_simple = true,
can_dig = technic.machine_can_dig,
allow_metadata_inventory_put = technic.machine_inventory_put,
allow_metadata_inventory_take = technic.machine_inventory_take,
allow_metadata_inventory_move = technic.machine_inventory_move,
on_receive_fields = form_handler,
technic_run = run,
technic_disabled_machine_name = "technic:cnc",
})
technic.register_machine("LV", "technic:cnc", technic.receiver)
technic.register_machine("LV", "technic:cnc_active", technic.receiver)