mymillwork/machines.lua
2015-03-14 21:39:43 -07:00

452 lines
10 KiB
Lua

local material = {}
local shape = {}
local make_ok = {}
local anzahl = {}
--function mymillwork.register_all(mat, desc, image, groups, craft)
minetest.register_node("mymillwork:machine", {
description = "Millwork Machine",
tiles = {"mymillwork_machine_top.png",
"mymillwork_machine_top.png",
"mymillwork_machine_side.png",
"mymillwork_machine_side.png",
"mymillwork_machine_back.png",
"mymillwork_machine_front.png",
},
drawtype = "normal",
paramtype = "light",
paramtype2 = "facedir",
groups = {oddly_breakable_by_hand=2, cracky=3, dig_immediate=1},
-- Set owner of Millwork Machine
after_place_node = function(pos, placer)
local meta = minetest.env:get_meta(pos);
meta:set_string("owner", (placer:get_player_name() or ""));
meta:set_string("infotext", "Millwork Machine is empty (owned by " .. (placer:get_player_name() or "") .. ")");
end,
can_dig = function(pos,player)
local meta = minetest.env:get_meta(pos);
local inv = meta:get_inventory()
if not inv:is_empty("ingot") then
return false
elseif not inv:is_empty("res") then
return false
end
return true
end,
on_construct = function(pos)
local meta = minetest.env:get_meta(pos)
meta:set_string("formspec", "invsize[10,11;]"..
"background[-0.15,-0.25;10.40,11.75;mymillwork_background.png]"..
"list[current_name;ingot;8.5,7.5;1,1;]"..
"list[current_name;res;8.5,10;1,1;]"..
"label[8.5,7;Input:]"..
"label[8.5,9.5;Output:]"..
"label[0,0;Choose Millwork:]"..
"label[0.5,0.5;Crown Mould]"..
"image_button[1,1;1,1;mymillwork_mach1.png;crownmould; ]"..
"image_button[2,1;1,1;mymillwork_mach2.png;crownmould_ic; ]"..
"image_button[3,1;1,1;mymillwork_mach3.png;crownmould_oc; ]"..
"image_button[4,1;1,1;mymillwork_mach4.png;crownmould_beam; ]"..
"label[0.5,2;Columns]"..
"image_button[1,2.5;1,1;mymillwork_mach5.png;column; ]"..
"image_button[2,2.5;1,1;mymillwork_mach6.png;column_base; ]"..
"image_button[3,2.5;1,1;mymillwork_mach7.png;column_half; ]"..
"image_button[4,2.5;1,1;mymillwork_mach8.png;column_half_base; ]"..
"image_button[5,2.5;1,1;mymillwork_mach9.png;column_half_wbeam; ]"..
"image_button[6,2.5;1,1;mymillwork_mach10.png;column_quarter; ]"..
"image_button[7,2.5;1,1;mymillwork_mach11.png;column_quarter_base; ]"..
"image_button[8,2.5;1,1;mymillwork_mach12.png;column_quarter_wbase; ]"..
"image_button[9,2.5;1,1;mymillwork_mach13.png;column_quarter_fancybase; ]"..
"label[0.5,3.5;Ceiling and Beams]"..
"image_button[1,4;1,1;mymillwork_mach14.png;ceiling; ]"..
"image_button[2,4;1,1;mymillwork_mach15.png;ceiling_post; ]"..
"image_button[3,4;1,1;mymillwork_mach16.png;beam; ]"..
"image_button[4,4;1,1;mymillwork_mach17.png;beam_t; ]"..
"image_button[5,4;1,1;mymillwork_mach18.png;beam_ceiling_t; ]"..
"label[0.5,5;Base]"..
"image_button[1,5.5;1,1;mymillwork_mach19.png;base; ]"..
"image_button[2,5.5;1,1;mymillwork_mach20.png;base_ic; ]"..
"image_button[3,5.5;1,1;mymillwork_mach21.png;base_oc; ]"..
"image_button[4,5.5;1,1;mymillwork_mach22.png;base_fancy; ]"..
"image_button[5,5.5;1,1;mymillwork_mach23.png;base_fancy_ic; ]"..
"image_button[6,5.5;1,1;mymillwork_mach24.png;base_fancy_oc; ]"..
"list[current_player;main;0,7;8,4;]")
meta:set_string("infotext", "Millwork Machine")
local inv = meta:get_inventory()
inv:set_size("ingot", 1)
inv:set_size("res", 1)
end,
on_receive_fields = function(pos, formname, fields, sender)
local meta = minetest.env:get_meta(pos)
local inv = meta:get_inventory()
-- REGISTER MILLING PROGRAMMS
-----------------------------
if fields["crownmould"]
or fields["crownmould_ic"]
or fields["crownmould_oc"]
or fields["crownmould_beam"]
or fields["column"]
or fields["column_base"]
or fields["column_half"]
or fields["column_half_base"]
or fields["column_half_wbeam"]
or fields["column_quarter"]
or fields["column_quarter_base"]
or fields["column_quarter_wbase"]
or fields["column_quarter_fancybase"]
or fields["ceiling"]
or fields["ceiling_post"]
or fields["beam"]
or fields["beam_t"]
or fields["beam_ceiling_t"]
or fields["base"]
or fields["base_ic"]
or fields["base_oc"]
or fields["base_fancy"]
or fields["base_fancy_ic"]
or fields["base_fancy_oc"]
then
--Crown Mould-----------------------------------------
if fields["crownmould"] then
make_ok = "0"
anzahl = "1"
shape = "mymillwork:crownmould_"
if inv:is_empty("ingot") then
return
end
end
if fields["crownmould_ic"] then
make_ok = "0"
anzahl = "1"
shape = "mymillwork:crownmould_ic_"
if inv:is_empty("ingot") then
return
end
end
if fields["crownmould_oc"] then
make_ok = "0"
anzahl = "1"
shape = "mymillwork:crownmould_oc_"
if inv:is_empty("ingot") then
return
end
end
if fields["crownmould_beam"] then
make_ok = "0"
anzahl = "1"
shape = "mymillwork:crownmould_beam_"
if inv:is_empty("ingot") then
return
end
end
--Columns----------------------------------------------
if fields["column"] then
make_ok = "0"
anzahl = "1"
shape = "mymillwork:column_"
if inv:is_empty("ingot") then
return
end
end
if fields["column_base"] then
make_ok = "0"
anzahl = "1"
shape = "mymillwork:column_base_"
if inv:is_empty("ingot") then
return
end
end
if fields["column_half"] then
make_ok = "0"
anzahl = "2"
shape = "mymillwork:column_half_"
if inv:is_empty("ingot") then
return
end
end
if fields["column_half_base"] then
make_ok = "0"
anzahl = "2"
shape = "mymillwork:column_half_base_"
if inv:is_empty("ingot") then
return
end
end
if fields["column_half_wbeam"] then
make_ok = "0"
anzahl = "1"
shape = "mymillwork:column_half_wbeam_"
if inv:is_empty("ingot") then
return
end
end
if fields["column_quarter"] then
make_ok = "0"
anzahl = "4"
shape = "mymillwork:column_quarter_"
if inv:is_empty("ingot") then
return
end
end
if fields["column_quarter_base"] then
make_ok = "0"
anzahl = "4"
shape = "mymillwork:column_quarter_base_"
if inv:is_empty("ingot") then
return
end
end
if fields["column_quarter_wbase"] then
make_ok = "0"
anzahl = "2"
shape = "mymillwork:column_quarter_wbase_"
if inv:is_empty("ingot") then
return
end
end
if fields["column_quarter_fancybase"] then
make_ok = "0"
anzahl = "2"
shape = "mymillwork:column_quarter_fancybase_"
if inv:is_empty("ingot") then
return
end
end
--Ceiling--------------------------------------------------
if fields["ceiling"] then
make_ok = "0"
anzahl = "6"
shape = "mymillwork:ceiling_"
if inv:is_empty("ingot") then
return
end
end
if fields["ceiling_post"] then
make_ok = "0"
anzahl = "4"
shape = "mymillwork:ceiling_post_"
if inv:is_empty("ingot") then
return
end
end
--Beam----------------------------------------------
if fields["beam"] then
make_ok = "0"
anzahl = "2"
shape = "mymillwork:beam_"
if inv:is_empty("ingot") then
return
end
end
if fields["beam_t"] then
make_ok = "0"
anzahl = "2"
shape = "mymillwork:beam_t_"
if inv:is_empty("ingot") then
return
end
end
if fields["beam_ceiling_t"] then
make_ok = "0"
anzahl = "2"
shape = "mymillwork:beam_ceiling_t_"
if inv:is_empty("ingot") then
return
end
end
--Base----------------------------------------------
if fields["base"] then
make_ok = "0"
anzahl = "8"
shape = "mymillwork:base_"
if inv:is_empty("ingot") then
return
end
end
if fields["base_ic"] then
make_ok = "0"
anzahl = "4"
shape = "mymillwork:base_ic_"
if inv:is_empty("ingot") then
return
end
end
if fields["base_oc"] then
make_ok = "0"
anzahl = "10"
shape = "mymillwork:base_oc_"
if inv:is_empty("ingot") then
return
end
end
if fields["base_fancy"] then
make_ok = "0"
anzahl = "6"
shape = "mymillwork:base_fancy_"
if inv:is_empty("ingot") then
return
end
end
if fields["base_fancy_ic"] then
make_ok = "0"
anzahl = "3"
shape = "mymillwork:base_fancy_ic_"
if inv:is_empty("ingot") then
return
end
end
if fields["base_fancy_oc"] then
make_ok = "0"
anzahl = "8"
shape = "mymillwork:base_fancy_oc_"
if inv:is_empty("ingot") then
return
end
end
local ingotstack = inv:get_stack("ingot", 1)
local resstack = inv:get_stack("res", 1)
----------------------------------------------------------------------
if ingotstack:get_name()=="default:sandstone" then
material = "default_sandstone"
make_ok = "1"
end
if ingotstack:get_name()=="default:desert_sand" then
material = "default_desert_sand"
make_ok = "1"
end
if ingotstack:get_name()=="default:clay" then
material = "default_clay"
make_ok = "1"
end
if ingotstack:get_name()=="wool:white" then
material = "millwork_white"
make_ok = "1"
end
if ingotstack:get_name()=="default:desert_stone" then
material = "default_desert_stone"
make_ok = "1"
end
if ingotstack:get_name()=="default:cobble" then
material = "default_cobble"
make_ok = "1"
end
if ingotstack:get_name()=="default:stone" then
material = "default_stone"
make_ok = "1"
end
if ingotstack:get_name()=="default:cactus" then
material = "default_cactus"
make_ok = "1"
end
if ingotstack:get_name()=="wool:white" then
material = "millwork_white"
make_ok = "1"
end
if ingotstack:get_name()=="default:sand" then
material = "default_sand"
make_ok = "1"
end
if ingotstack:get_name()=="default:wood" then
material = "default_wood"
make_ok = "1"
end
if ingotstack:get_name()=="default:pinewood" then
material = "default_pinewood"
make_ok = "1"
end
if ingotstack:get_name()=="default:dirt" then
material = "default_dirt"
make_ok = "1"
end
----------------------------------------------------------------------
if make_ok == "1" then
local give = {}
for i = 0, anzahl-1 do
give[i+1]=inv:add_item("res",shape..material)
end
ingotstack:take_item()
inv:set_stack("ingot",1,ingotstack)
end
end
end
})
--Craft
minetest.register_craft({
output = 'mymillwork:machine',
recipe = {
{'default:steelblock', 'default:steelblock', 'default:steelblock'},
{'default:steelblock', 'default:steel_ingot', 'default:steelblock'},
{'default:steelblock', "default:steelblock", 'default:steelblock'},
},
})