minetest-mods/myholeinthewall
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
myholeinthewall/machine.lua
DonBatman 0e5e3a6d1c Added sound
2015-05-14 15:21:54 -07:00

685 lines
17 KiB
Lua
Raw Blame History

local material = {}
local shape = {}
local make_ok = {}
local anzahl = {}
function minetest.get_mydrillpress_formspec(pos)
local spos = pos.x .. "," .. pos.y .. "," ..pos.z
local formspec =
"size[9,6]"..
"list[nodemeta:".. spos .. ";main;1.5,0.5;6,1;]"..
"list[current_player;main;0.5,2;8,4;]"
return formspec
end
local function has_mydrillpress_privilege(meta, player)
if player:get_player_name() ~= meta:get_string("owner") then
return false
end
return true
end
minetest.register_node("myholeinthewall:machine", {
description = "Hole Machine",
inventory_image = "myholeinthewall_inventory_image.png",
tiles = {
"myholeinthewall_machine_top.png",
"myholeinthewall_machine_bottom.png",
"myholeinthewall_machine_side.png",
"myholeinthewall_machine_side.png",
"myholeinthewall_machine_side.png",
"myholeinthewall_machine_front.png"
},
drawtype = "nodebox",
paramtype = "light",
paramtype2 = "facedir",
groups = {cracky=2},
node_box = {
type = "fixed",
fixed = {
{-0.375, -0.375, -0.375, 0.375, 0.375, 0.375},
{-0.5, 0.375, -0.5, 0.5, 0.5, 0.5},
{0.1875, -0.5, -0.375, 0.375, -0.375, -0.1875},
{0.1875, -0.5, 0.1875, 0.375, -0.375, 0.375},
{-0.375, -0.5, -0.375, -0.1875, -0.375, -0.1875},
{-0.375, -0.5, 0.1875, -0.1875, -0.375, 0.375},
}
},
selection_box = {
type = "fixed",
fixed = {
{-0.375, -0.5, -0.375, 0.375, 0.5, 0.375},
}
},
on_place = function(itemstack, placer, pointed_thing)
local pos = pointed_thing.above
if minetest.get_node({x=pos.x, y=pos.y+1, z=pos.z}).name ~= "air" then
minetest.chat_send_player( placer:get_player_name(), "Not enough space to place this!" )
return
end
return minetest.item_place(itemstack, placer, pointed_thing)
end,
after_destruct = function(pos, oldnode)
minetest.set_node({x = pos.x, y = pos.y + 1, z = pos.z},{name = "air"})
end,
after_place_node = function(pos, placer)
minetest.set_node({x = pos.x, y = pos.y + 1, z = pos.z},{name = "myholeinthewall:machine_top", param2=minetest.dir_to_facedir(placer:get_look_dir())});
local meta = minetest.get_meta(pos)
meta:set_string("owner", placer:get_player_name() or "")
meta:set_string("infotext", "Drill Press (owned by "..
meta:get_string("owner")..")")
end,
on_construct = function(pos)
local meta = minetest.get_meta(pos)
meta:set_string("infotext", "Drill Press")
meta:set_string("owner", "")
local inv = meta:get_inventory()
inv:set_size("main", 9*6)
end,
can_dig = function(pos,player)
local meta = minetest.env:get_meta({x=pos.x,y=pos.y+1,z=pos.z});
local inv = meta:get_inventory()
if not inv:is_empty("ingot") then
return false
elseif not inv:is_empty("res") then
return false
end
local meta = minetest.get_meta(pos);
local inv = meta:get_inventory()
return inv:is_empty("main") and has_mydrillpress_privilege(meta, player)
end,
allow_metadata_inventory_move = function(pos, from_list, from_index, to_list, to_index, count, player)
local meta = minetest.get_meta(pos)
if not has_mydrillpress_privilege(meta, player) then
minetest.log("action", player:get_player_name()..
" tried to access a drill press belonging to "..
meta:get_string("owner").." at "..
minetest.pos_to_string(pos))
return 0
end
return count
end,
allow_metadata_inventory_put = function(pos, listname, index, stack, player)
local meta = minetest.get_meta(pos)
if not has_mydrillpress_privilege(meta, player) then
minetest.log("action", player:get_player_name()..
" tried to access a drill press belonging to "..
meta:get_string("owner").." at "..
minetest.pos_to_string(pos))
return 0
end
return stack:get_count()
end,
allow_metadata_inventory_take = function(pos, listname, index, stack, player)
local meta = minetest.get_meta(pos)
if not has_mydrillpress_privilege(meta, player) then
minetest.log("action", player:get_player_name()..
" tried to access a drill press belonging to "..
meta:get_string("owner").." at "..
minetest.pos_to_string(pos))
return 0
end
return stack:get_count()
end,
on_metadata_inventory_move = function(pos, from_list, from_index, to_list, to_index, count, player)
minetest.log("action", player:get_player_name()..
" moves stuff into drill press at "..minetest.pos_to_string(pos))
end,
on_metadata_inventory_put = function(pos, listname, index, stack, player)
minetest.log("action", player:get_player_name()..
" moves stuff into drill press at "..minetest.pos_to_string(pos))
end,
on_metadata_inventory_take = function(pos, listname, index, stack, player)
minetest.log("action", player:get_player_name()..
" takes stuff from drill press at "..minetest.pos_to_string(pos))
end,
on_rightclick = function(pos, node, clicker)
local meta = minetest.get_meta(pos)
if has_mydrillpress_privilege(meta, clicker) then
minetest.show_formspec(
clicker:get_player_name(),
"myholeinthewall:machine",
minetest.get_mydrillpress_formspec(pos)
)
end
end,
})
minetest.register_node("myholeinthewall:machine_top", {
description = "Hole Machine",
tiles = {
"myholeinthewall_machinetop_top.png",
"myholeinthewall_machinetop_bottom.png^[transformR180",
"myholeinthewall_machinetop_rside.png",
"myholeinthewall_machinetop_lside.png",
"myholeinthewall_machinetop_back.png",
"myholeinthewall_machinetop_front.png"
},
drawtype = "nodebox",
paramtype = "light",
paramtype2 = "facedir",
drop = "myholeinthewall:machine",
groups = {cracky=2, not_in_creative_inventory=1},
node_box = {
type = "fixed",
fixed = {
{-0.1875, 0.0625, -0.125, 0.1875, 0.5, 0.3125},
{-0.1875, 0.125, -0.1875, 0.1875, 0.4375, 0.375},
{-0.1875, -0.5, 0.375, -0.0625, 0.3125, 0.5},
{0.0625, -0.5, 0.375, 0.1875, 0.3125, 0.5},
{-0.0625, -0.25, -0.0625, 0, 0.5, 0},
{-0.1875, 0.3125, 0.375, 0.1875, 0.375, 0.4375},
{0.1875, 0.1875, -0.0625, 0.25, 0.375, 0.125},
{0.1875, 0.25, -0.5, 0.25, 0.3125, 0},
}
},
-- on_place = minetest.rotate_node,
after_destruct = function(pos, oldnode)
minetest.set_node({x = pos.x, y = pos.y - 1, z = pos.z},{name = "air"})
end,
-- local meta = minetest.env:get_meta(pos);
-- meta:set_string("owner", (placer:get_player_name() or ""));
-- meta:set_string("infotext", "Hole Machine (owned by " .. (placer:get_player_name() or "") .. ")");
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
local meta = minetest.get_meta({x=pos.x,y=pos.y-1,z=pos.z});
local inv = meta:get_inventory()
return inv:is_empty("main") and has_mydrillpress_privilege(meta, player)
end,
on_construct = function(pos)
local meta = minetest.env:get_meta(pos)
meta:set_string("formspec", "invsize[8,9;]"..
"background[-0.15,-0.25;8.40,9.75;myholeinthewall_background.png]"..
"list[current_name;ingot;5.5,1;1,1;]"..
"list[current_name;res;5.5,3;1,1;]"..
"label[5.5,0.5;Input:]"..
"label[5.5,2.5;Output:]"..
"label[0,0;Choose Hole:]"..
-- Column 1
"image_button[0.5,1;1,1;myholeinthewall_mach1.png;diamond; ]"..
"image_button[0.5,2;1,1;myholeinthewall_mach2.png;diamondr; ]"..
"image_button[0.5,3;1,1;myholeinthewall_mach3.png;x; ]"..
-- Column 2
"image_button[1.5,1;1,1;myholeinthewall_mach7.png;diamondh; ]"..
"image_button[1.5,2;1,1;myholeinthewall_mach8.png;diamondrh; ]"..
"image_button[1.5,3;1,1;myholeinthewall_mach9.png;xh; ]"..
-- Column 3
"image_button[2.5,1;1,1;myholeinthewall_mach4.png;cross; ]"..
"image_button[2.5,2;1,1;myholeinthewall_mach5.png;crossi; ]"..
"image_button[2.5,3;1,1;myholeinthewall_mach6.png;o; ]"..
-- Column 4
"image_button[3.5,1;1,1;myholeinthewall_mach10.png;crossh; ]"..
"image_button[3.5,2;1,1;myholeinthewall_mach11.png;crossih; ]"..
"image_button[3.5,3;1,1;myholeinthewall_mach12.png;oh; ]"..
"list[current_player;main;0,5;8,4;]")
meta:set_string("infotext", "Brick 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()
if fields["diamond"]
or fields["diamondr"]
or fields["x"]
or fields["cross"]
or fields["crossi"]
or fields["o"]
or fields["diamondh"]
or fields["diamondrh"]
or fields["xh"]
or fields["crossh"]
or fields["crossih"]
or fields["oh"]
then
if fields["diamond"] then
make_ok = "0"
anzahl = "1"
shape = "myholeinthewall:diamond_"
if inv:is_empty("ingot") then
return
end
end
if fields["diamondr"] then
make_ok = "0"
anzahl = "1"
shape = "myholeinthewall:diamond_rough_"
if inv:is_empty("ingot") then
return
end
end
if fields["x"] then
make_ok = "0"
anzahl = "1"
shape = "myholeinthewall:x_"
if inv:is_empty("ingot") then
return
end
end
if fields["cross"] then
make_ok = "0"
anzahl = "1"
shape = "myholeinthewall:cross_"
if inv:is_empty("ingot") then
return
end
end
if fields["crossi"] then
make_ok = "0"
anzahl = "1"
shape = "myholeinthewall:cross_iron_"
if inv:is_empty("ingot") then
return
end
end
if fields["o"] then
make_ok = "0"
anzahl = "1"
shape = "myholeinthewall:o_"
if inv:is_empty("ingot") then
return
end
end
----------------------------------------------------------
if fields["diamondh"] then
make_ok = "0"
anzahl = "2"
shape = "myholeinthewall:diamond_half_"
if inv:is_empty("ingot") then
return
end
end
if fields["diamondrh"] then
make_ok = "0"
anzahl = "2"
shape = "myholeinthewall:diamond_rough_half_"
if inv:is_empty("ingot") then
return
end
end
if fields["xh"] then
make_ok = "0"
anzahl = "1"
shape = "myholeinthewall:x_half_"
if inv:is_empty("ingot") then
return
end
end
if fields["crossh"] then
make_ok = "0"
anzahl = "2"
shape = "myholeinthewall:cross_half_"
if inv:is_empty("ingot") then
return
end
end
if fields["crossih"] then
make_ok = "0"
anzahl = "2"
shape = "myholeinthewall:cross_iron_half_"
if inv:is_empty("ingot") then
return
end
end
if fields["oh"] then
make_ok = "0"
anzahl = "2"
shape = "myholeinthewall:o_half_"
if inv:is_empty("ingot") then
return
end
end
local ingotstack = inv:get_stack("ingot", 1)
local resstack = inv:get_stack("res", 1)
----------------------------------------------------------------------------------
--register nodes
----------------------------------------------------------------------------------
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 ingotstack:get_name()=="default:brick" then
material = "default_brick"
make_ok = "1"
end
if ingotstack:get_name()=="default:bronzeblock" then
material = "default_bronze_block"
make_ok = "1"
end
if ingotstack:get_name()=="default:coalblock" then
material = "default_coal_block"
make_ok = "1"
end
if ingotstack:get_name()=="default:copperblock" then
material = "default_copper_block"
make_ok = "1"
end
if ingotstack:get_name()=="default:desert_cobble" then
material = "default_desert_cobble"
make_ok = "1"
end
if ingotstack:get_name()=="default:diamondblock" then
material = "default_diamond_block"
make_ok = "1"
end
if ingotstack:get_name()=="default:glass" then
material = "default_glass"
make_ok = "1"
end
if ingotstack:get_name()=="default:goldblock" then
material = "default_gold_block"
make_ok = "1"
end
if ingotstack:get_name()=="default:gravel" then
material = "default_gravel"
make_ok = "1"
end
if ingotstack:get_name()=="default:ice" then
material = "default_ice"
make_ok = "1"
end
if ingotstack:get_name()=="default:jungletree" then
material = "default_jungletree"
make_ok = "1"
end
if ingotstack:get_name()=="default:junglewood" then
material = "default_junglewood"
make_ok = "1"
end
if ingotstack:get_name()=="default:lava_source" then
material = "default_lava"
make_ok = "1"
end
if ingotstack:get_name()=="default:mese" then
material = "default_mese"
make_ok = "1"
end
if ingotstack:get_name()=="default:mossycobble" then
material = "default_mossycobble"
make_ok = "1"
end
if ingotstack:get_name()=="default:obsidian" then
material = "default_obsidian"
make_ok = "1"
end
if ingotstack:get_name()=="default:obsidian_glass" then
material = "default_obsidian_glass"
make_ok = "1"
end
if ingotstack:get_name()=="default:obsidianbrick" then
material = "default_obsidian_brick"
make_ok = "1"
end
if ingotstack:get_name()=="default:pinetree" then
material = "default_pinetree"
make_ok = "1"
end
if ingotstack:get_name()=="default:sanddstonebrick" then
material = "default_sandstone_brick"
make_ok = "1"
end
if ingotstack:get_name()=="default:snowblock" then
material = "default_snow"
make_ok = "1"
end
if ingotstack:get_name()=="default:steelblock" then
material = "default_steel_block"
make_ok = "1"
end
if ingotstack:get_name()=="default:stonebrick" then
material = "default_stone_brick"
make_ok = "1"
end
if ingotstack:get_name()=="default:tree" then
material = "default_tree"
make_ok = "1"
end
if ingotstack:get_name()=="default:water_source" then
material = "default_water"
make_ok = "1"
end
if ingotstack:get_name()=="farming:straw" then
material = "farming_straw"
make_ok = "1"
end
----------------------------------------------------------------------------
--wool
if ingotstack:get_name()=="wool:white" then
material = "wool_white"
make_ok = "1"
end
if ingotstack:get_name()=="wool:black" then
material = "wool_black"
make_ok = "1"
end
if ingotstack:get_name()=="wool:blue" then
material = "wool_blue"
make_ok = "1"
end
if ingotstack:get_name()=="wool:brown" then
material = "wool_brown"
make_ok = "1"
end
if ingotstack:get_name()=="wool:cyan" then
material = "wool_cyan"
make_ok = "1"
end
if ingotstack:get_name()=="wool:dark_green" then
material = "wool_dark_green"
make_ok = "1"
end
if ingotstack:get_name()=="wool:dark_grey" then
material = "wool_dark_grey"
make_ok = "1"
end
if ingotstack:get_name()=="wool:green" then
material = "wool_green"
make_ok = "1"
end
if ingotstack:get_name()=="wool:grey" then
material = "wool_grey"
make_ok = "1"
end
if ingotstack:get_name()=="wool:magenta" then
material = "wool_magenta"
make_ok = "1"
end
if ingotstack:get_name()=="wool:orange" then
material = "wool_orange"
make_ok = "1"
end
if ingotstack:get_name()=="wool:pink" then
material = "wool_pink"
make_ok = "1"
end
if ingotstack:get_name()=="wool:red" then
material = "wool_red"
make_ok = "1"
end
if ingotstack:get_name()=="wool:violet" then
material = "wool_violet"
make_ok = "1"
end
if ingotstack:get_name()=="wool:yellow" then
material = "wool_yellow"
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 = 'myholeinthewall:machine',
recipe = {
{'default:coalblock', 'default:coalblock', 'default:coalblock'},
{'default:coalblock', 'default:diamond', 'default:coalblock'},
{'default:coalblock', "default:coalblock", 'default:coalblock'},
},
})
Reference in New Issue View Git Blame Copy Permalink