realtest_mt5/mods/joiner_table/init.lua

243 lines
8.4 KiB
Lua

joiner_table = {}
realtest.registered_joiner_table_recipes = {}
local F = minetest.formspec_escape
function realtest.register_joiner_table_recipe(RecipeDef)
local recipe = {
item1 = RecipeDef.item1 or "",
item2 = RecipeDef.item2 or "",
rmitem1 = RecipeDef.rmitem1,
rmitem2 = RecipeDef.rmitem2,
output = RecipeDef.output or "",
instrument = RecipeDef.instrument or "saw",
}
if recipe.rmitem1 == nil then
recipe.rmitem1 = true
end
if recipe.rmitem2 == nil then
recipe.rmitem2 = true
end
if recipe.output ~= "" and recipe.item1 ~= "" then
table.insert(realtest.registered_joiner_table_recipes, recipe)
end
end
for _, tree in pairs(realtest.registered_trees_list) do
realtest.register_joiner_table_recipe({
item1 = tree.."_log",
output = tree.."_plank 4"
})
realtest.register_joiner_table_recipe({
item1 = tree.."_plank",
output = tree.."_stick 4"
})
end
for _, tree in pairs(realtest.registered_trees) do
local planks = tree.textures.planks
minetest.register_node("joiner_table:joiner_table_"..tree.name:remove_modname_prefix(), {
description = tree.description .. " Joiner Table",
tiles = {planks.."^joiner_table_top.png", planks, planks.."^joiner_table_side.png",
planks.."^joiner_table_side2.png", planks.."^joiner_table_side3.png", planks.."^joiner_table_face.png"},
groups = {oddly_breakable_by_hand=3, dig_immediate=2},
sounds = default.node_sound_wood_defaults(),
paramtype = "light",
paramtype2 = "facedir",
can_dig = function(pos,player)
local meta = minetest.get_meta(pos);
local inv = meta:get_inventory()
return inv:is_empty("src1") and inv:is_empty("src2") and inv:is_empty("instruments") and inv:is_empty("output")
end,
on_construct = function(pos)
local meta = minetest.get_meta(pos)
meta:set_string("formspec", "size[8,8]"..
-- add a link to the joiner table's craft guide
"button[2.8,2.25;1,0.5;guide;Guide]"..
"button_exit[6.3,2.25;1,0.5;quit;Exit]"..
"button[0.5,0.25;1.35,1;buttonCraft;Craft]"..
"button[1.6,0.25;0.9,1;buttonCraft10;x10]"..
"label[3.9,0.3;Input 1:]"..
"list[current_name;src1;3.9,0.75;1,1;]"..
"image[4.69,0.72;0.54,1.5;anvil_arrow.png]"..
"label[5.1,0.3;Input 2:]"..
"list[current_name;src2;5.1,0.75;1,1;]"..
"label[0.5,1.1;Instruments:]"..
"list[current_name;instruments;0.5,1.5;2,2;]"..
"label[4.5,2.85;Output]"..
"list[current_name;output;4.5,2;1,1;]"..
"list[current_player;main;0,4;8,4;]"..
"listring[current_player;main]"..
"listring[current_name;src1]"..
"listring[current_player;main]"..
"listring[current_name;src2]"..
"listring[current_player;main]"..
"listring[current_name;instruments]"..
"listring[current_player;main]"..
"listring[current_name;output]")
meta:set_string("infotext", "Joiner Table")
local inv = meta:get_inventory()
inv:set_size("src1", 1)
inv:set_size("src2", 1)
inv:set_size("instruments", 4)
inv:set_size("output", 1)
end,
on_receive_fields = function(pos, formname, fields, sender)
if( fields and fields.guide and sender ) then
realtest.show_craft_guide_joiner_table( sender, "realtest:craft_guide_joiner_table", fields);
return;
end
local meta = minetest.get_meta(pos)
local inv = meta:get_inventory()
local src1, src2 = inv:get_stack("src1", 1), inv:get_stack("src2", 1)
local output = inv:get_stack("output", 1)
local find_instrument = function(instrument)
for i = 1, 4 do
local istack = inv:get_stack("instruments", i)
if minetest.get_item_group(istack:get_name(), instrument) == 1 then
return i
end
end
return nil
end
local craft = function()
for _, recipe in ipairs(realtest.registered_joiner_table_recipes) do
local instr = find_instrument(recipe.instrument)
local instr_stack = nil
if instr then
instr_stack = inv:get_stack("instruments", instr)
end
if instr_stack and recipe.item1 == src1:get_name() and recipe.item2 == src2:get_name() then
if inv:room_for_item("output", recipe.output) then
if recipe.rmitem1 then
src1:take_item()
inv:set_stack("src1", 1, src1)
end
if recipe.item2 ~= "" and recipe.rmitem2 then
src2:take_item()
inv:set_stack("src2", 1, src2)
end
output:add_item(recipe.output)
inv:set_stack("output", 1, output)
instr_stack:add_wear(65535/minetest.get_item_group(instr_stack:get_name(), "durability")/4)
inv:set_stack("instruments", instr, instr_stack)
end
return
end
end
end
if fields["buttonCraft"] then
craft()
elseif fields["buttonCraft10"] then
for i = 0, 9 do
craft()
end
end
end,
})
minetest.register_craft({
output = "joiner_table:joiner_table_"..tree.name:remove_modname_prefix(),
recipe = {
{tree.name.."_planks", tree.name.."_planks"},
{tree.name.."_planks", tree.name.."_planks"}
}
})
end
realtest.show_craft_guide_joiner_table = function( player, formname, fields)
if( formname ~= "realtest:craft_guide_joiner_table" or not( player ) or fields.quit) then
return;
end
-- select the plan that is to be shown
local nr = 1;
for i, v in ipairs(realtest.registered_joiner_table_recipes ) do
if( v and v.output and fields[ v.output ]) then
nr = i;
end
end
local plan = realtest.registered_joiner_table_recipes[ nr ];
-- abort if no plan can be found
if( not( plan )) then
return;
end
local stack = ItemStack( plan.output );
local def = stack:get_definition();
local name = "";
if( def ) then
name = def.description;
end
if( not( name )) then
name = plan.output;
end
local item_output = ItemStack(plan.output):get_name()
local f_output = "item_image[4.5,2;1,1;"..plan.output.."]"..
"tooltip[4.5,2;0.8,0.9;"..F(minetest.registered_items[item_output].description).."]"
local formspec =
"size[8,9]"..
"label[0,0;Create "..tostring(stack:get_count()).."x "..name.." this way:]"..
-- extra exit button for those tablet users
"button_exit[6.3,2.25;1,0.5;quit;Exit]"..
-- labels that describe the general usage of a slot
"label[3.9,0.3;Input 1:]"..
"label[5.1,0.3;Input 2:]"..
"label[0.5,1.1;Instruments:]"..
"label[4.5,2.85;Output]"..
-- the buttons serve only decorative purposes here
"button[0.5,0.25;1.35,1;nothing;Craft]"..
"button[1.6,0.25;0.9,1;nothing;x10]"..
"image[4.69,0.72;0.54,1.5;anvil_arrow.png]"..
-- background for the inventory slots
"box[3.9,0.75;0.8,0.9;#BBBBBB]"..
"box[5.1,0.75;0.8,0.9;#BBBBBB]"..
"box[4.5,1.98;0.8,0.9;#BBBBBB]"..
f_output..
-- the 4 simulated slots for the instruments
"box[0.5,1.5;0.8,0.9;#BBBBBB]"..
"box[0.5,2.5;0.8,0.9;#BBBBBB]"..
"box[1.5,1.5;0.8,0.9;#BBBBBB]"..
"box[1.5,2.5;0.8,0.9;#BBBBBB]"..
"label[0,3.5;Select receipe to show:]";
-- show the indigrents
if( plan.item1 and plan.item1 ~= "" and minetest.registered_items[ plan.item1 ]) then
formspec = formspec.."item_image[3.9,0.75;1,1;"..plan.item1.."]"..
"tooltip[3.9,0.75;0.8,0.9;"..F(minetest.registered_items[plan.item1].description).."]"
end
-- the second slot usually takes a plan
if( plan.item2 and plan.item2 ~= "" and minetest.registered_items[ plan.item2 ]) then
formspec = formspec.."item_image[5.1,0.75;1,1;"..plan.item2.."]"..
"tooltip[5.1,0.75;0.8,0.9;"..F(minetest.registered_items[plan.item2].description).."]"
end
-- show the instrument needed
if( plan.instrument and plan.instrument ~= "" and minetest.registered_items[ "instruments:"..plan.instrument.."_copper" ]) then
formspec = formspec.."item_image[1.5,1.5;1,1;instruments:"..plan.instrument.."_copper]"..
"tooltip[1.5,1.5;0.8,0.9;"..F(minetest.registered_items["instruments:"..plan.instrument.."_copper"].description).."]"
-- show error message for unkown tools
elseif( plan.instrument and plan.instrument ~= "" ) then
formspec = formspec.."label[0.5,2.5;ERROR]";
end
-- show a list of all receipes to select from
for i, v in ipairs(realtest.registered_joiner_table_recipes) do
formspec = formspec..
"item_image_button["..tostring((i-1)%8)..","..
tostring(4+math.floor((i-1)/8))..";1,1;"..
v.output..";"..v.output..";"..
minetest.formspec_escape(v.output).."]";
end
minetest.show_formspec( player:get_player_name(), "realtest:craft_guide_joiner_table", formspec );
end
-- make sure we receive player input; needed for showing formspecs directly
minetest.register_on_player_receive_fields( realtest.show_craft_guide_joiner_table );