minetest-mm/mods/mycorners/machine_light.lua

235 lines
7.2 KiB
Lua

local material = {}
local matr = {}
local matr2 = {}
local shape = {}
local shape2 = {}
local make_ok = 0
local anzahl = {}
local anzahlz = {}
local dye_colors = {
{"dye:black","black"},
{"dye:brown","brown"},
{"dye:dark_green","dark_green"},
{"dye:grey","grey"},
}
local corner_items = {
{"_wood_black"},
{"_wood_brown"},
{"_wood_dark_green"},
{"_wood_grey"},
{"_stone_black"},
{"_stone_brown"},
{"_stone_dark_green"},
{"_stone_grey"},
{"_stonebrick_black"},
{"_stonebrick_brown"},
{"_stonebrick_dark_green"},
{"_stonebrick_grey"},
}
local nodes_of_corners = {
{"default:brick","default_brick"},
{"default:cobble","default_cobble"},
{"default:desert_stone","default_desert_stone"},
{"default:junglewood","default_junglewood"},
{"default:pine_tree","default_pine_tree"},
{"default:pine_wood","default_pine_wood"},
{"default:acacia_tree","default_acacia_tree"},
{"default:acacia_wood","default_acacia_wood"},
{"default:sandstone","default_sandstone"},
{"default:stone","default_stone"},
{"default:wood","default_wood"},
}
minetest.register_alias("mycorners:machine_installer", "mycorners:machine_corner")
minetest.register_node("mycorners:machine_corner", {
description = "Corner Machine",
tiles = {
"mycorners_machine_top.png",
"mycorners_machine_bottom.png",
"mycorners_machine_sider.png",
"mycorners_machine_sidel.png",
"mycorners_machine_back.png",
"mycorners_machine_front.png"
},
drawtype = "nodebox",
paramtype = "light",
paramtype2 = "facedir",
groups = {cracky=2},
node_box = {
type = "fixed",
fixed = {
{0.3125, -0.5, -0.5, 0.5, -0.1875, -0.3125},
{0.3125, -0.5, 0.3125, 0.5, -0.1875, 0.5},
{-0.5, -0.5, 0.3125, -0.3125, -0.1875, 0.5},
{-0.5, -0.5, -0.5, -0.3125, -0.1875, -0.3125},
{-0.5, -0.1875, -0.5, 0.5, -0.0625, 0.5},
{-0.0625, -0.0625, -0.25, 0, 0.0625, -0.1875},
{-0.1875, -0.4375, -0.3125, 0.125, -0.1875, -0.125},
{-0.125, -0.4375, -0.375, 0.0625, -0.1875, -0.0625},
{-0.25, -0.0625, -0.1875, 0.1875, 0.125, 0.0625},
{-0.4375, -0.0625, 0.125, 0.4375, 0.0625, 0.25},
{-0.4375, -0.0625, -0, 0.4375, 0.1875, 0.125},
{-0.1875, -0.25, -0.375, 0.125, -0.1875, -0.0625},
}
},
after_place_node = function(pos, placer)
local meta = minetest.get_meta(pos);
meta:set_string("owner", (placer:get_player_name() or ""));
meta:set_string("infotext", "Corner Machine (owned by " .. (placer:get_player_name() or "") .. ")");
end,
can_dig = function(pos,player)
local meta = minetest.get_meta(pos);
local inv = meta:get_inventory()
if not inv:is_empty("matblock") then
return false
elseif not inv:is_empty("dye") then
return false
elseif not inv:is_empty("res") then
return false
end
return true
end,
on_construct = function(pos)
local meta = minetest.get_meta(pos)
meta:set_string("formspec", "invsize[10,11;]"..
"background[-0.15,-0.25;10.40,11.75;mycorners_background.png]"..
"label[0,0;Corner Machine]"..
"label[1.5,0.5;Material:]"..
"list[current_name;matblock;1.5,1;1,1;]"..
"label[3,0.5;Dye:]"..
"list[current_name;dye;3,1;1,1;]"..
"button[4.5,1;1,1;make;Make]"..
"label[6,0.5;Output:]"..
"list[current_name;res;6,1;1,1;]"..
"label[1,2;Material can only be wood, stone or stone brick]"..
"label[7,1;Black, Brown, Dark Green]"..
"label[7.5,1.5;and Grey Dyes Only]"..
"label[1.5,3;Material]"..
"list[current_name;mat;1.5,3.5;1,1; ]"..
"list[current_name;corner1;1.5,4.5;1,1; ]"..
"list[current_name;corner2;2.5,3.5;1,1; ]"..
"button[4.5,3.5;1,1;make2;Make]"..
"label[6,3;Output:]"..
"list[current_name;res2;6,3.5;1,1;]"..
"label[1,5.5;Add a block to the top left and corner items in the other 2]"..
"list[current_player;main;1,7;8,4;]")
meta:set_string("infotext", "Corner Machine")
local inv = meta:get_inventory()
inv:set_size("matblock", 1)
inv:set_size("dye", 1)
inv:set_size("res", 1)
inv:set_size("mat", 1)
inv:set_size("corner1", 1)
inv:set_size("corner2", 1)
inv:set_size("res2", 1)
end,
on_receive_fields = function(pos, formname, fields, sender)
local meta = minetest.get_meta(pos)
local inv = meta:get_inventory()
if fields["make"]
then
make_ok = 0
anzahl = 4
shape = "mycorners:corner_"
if inv:is_empty("matblock") or
inv:is_empty("dye") then
return
end
local ingotstack1 = inv:get_stack("matblock", 1)
local ingotstack2 = inv:get_stack("dye", 1)
local resstack = inv:get_stack("res", 1)
----------------------------------------------------------------------------------
--register nodes
----------------------------------------------------------------------------------
for i in ipairs (dye_colors) do
local dyecol = dye_colors[i][1]
local color = dye_colors[i][2]
if ingotstack1:get_name()=="default:wood" and
ingotstack2:get_name()==dyecol then
material = "wood_"..color
make_ok = 1
end
if ingotstack1:get_name()=="default:stone" and
ingotstack2:get_name()==dyecol then
material = "stone_"..color
make_ok = 1
end
if ingotstack1:get_name()=="default:stonebrick" and
ingotstack2:get_name()==dyecol then
material = "stonebrick_"..color
make_ok = 1
end
end
----------------------------------------------------------------------
if make_ok == 1 then
local give = {}
for i = 0, anzahl-1 do
give[i+1]=inv:add_item("res",shape..material)
end
ingotstack1:take_item()
inv:set_stack("matblock",1,ingotstack1)
ingotstack2:take_item()
inv:set_stack("dye",1,ingotstack2)
end
end
------------------------------------------------------------------------
------------------------------------------------------------------------
if fields["make2"]
then
make_ok = 0
anzahlz = 1
shape2 = "mycorners:cornerblock_"
if inv:is_empty("mat") or
inv:is_empty("corner1") or
inv:is_empty("corner2") then
return
end
local ingotstack4 = inv:get_stack("mat", 1)
local ingotstack5 = inv:get_stack("corner1", 1)
local ingotstack6 = inv:get_stack("corner2", 1)
local resstack2 = inv:get_stack("res2", 1)
----------------------------------------------------------------------------------
--register nodes
----------------------------------------------------------------------------------
for i in ipairs (nodes_of_corners) do
local nodeitem = nodes_of_corners[i][1]
local nodedesc = nodes_of_corners[i][2]
for i in ipairs (corner_items) do
local ctype = corner_items[i][1]
if ingotstack4:get_name()== nodeitem and
ingotstack5:get_name()=="mycorners:corner"..ctype and
ingotstack6:get_name()=="mycorners:corner"..ctype then
matr = nodedesc..ctype
make_ok = 1
end
end
end
----------------------------------------------------------------------
if make_ok == 1 then
local give = {}
for i = 0, anzahlz-1 do
give[i+1]=inv:add_item("res2",shape2..matr)
end
ingotstack4:take_item()
inv:set_stack("mat",1,ingotstack4)
ingotstack5:take_item()
inv:set_stack("corner1",1,ingotstack5)
ingotstack6:take_item()
inv:set_stack("corner2",1,ingotstack6)
end
end
end
})
--Craft
minetest.register_craft({
output = 'mycorners:machine_corner',
recipe = {
{'', '', ''},
{'group:wood', 'default:steel_ingot', 'group:wood'},
{'default:steelblock', "default:steelblock", 'default:steelblock"'},
},
})