exot/minetest-mods
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
minetest-mods/circularsaw/init.lua
Daniel Borchmann e6ccb17320
Adding packages
2017-04-23 16:02:15 +02:00

559 lines
22 KiB
Lua
Raw Blame History

--[[
Circular saw for easy crafting of stairplus-nodes (includes glue for recycling) by Sokomine
Copyright (C) 2013 Sokomine
This program is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation, either version 3 of the License, or
(at your option) any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program. If not, see <http://www.gnu.org/licenses/>.
--]]
-- Version 0.2
-- Changelog:
-- 25.09.13 Fixed a bug that led to item multiplication
circularsaw = {};
-- TODO: make it usable for non-stairplus: stairs
circularsaw.known_stairs = {}
-- register known stairsplus:-stairs
for i,v in ipairs( {"wood","stone","cobble","mossycobble","brick","sandstone","steelblock","desert_stone","glass"} ) do
table.insert( circularsaw.known_stairs, "default:"..v );
end
if( minetest.get_modpath("technic") ~= nil ) then
-- technic has its own stairs
for i,v in ipairs( {"concrete", "marble", "marble_bricks", "granite", "obsidian"} ) do
table.insert( circularsaw.known_stairs, "technic:"..v );
end
else
-- add a copy of the screwdriver from RealBadAngels technic mod
dofile(minetest.get_modpath("circularsaw").."/technic_screwdriver.lua");
end
-- how many microblocks does this shape at the output inventory cost?
circularsaw.cost_in_microblocks = { 6, 4, 7, 2, 1, 3, 3,
6, 4, 7, 2, 1, 3, 3,
6, 2, 7, 2, 6, 3, 0,
4, 2, 7, 0, 6, 3, 0 };
-- anz: amount of input material in microblocks
circularsaw.get_stair_output_inv = function( modname, material, anz, max )
local max_offered = 99;
if( not( max ) or (max == nil) or tonumber(max)>99 or tonumber(max)<1) then
max_offered = 99;
else
max_offered = tonumber( max );
end
-- if there is nothing inside display empty inventory
if( anz < 1 ) then
return { "", "", "", "", "", "", "",
"", "", "", "", "", "", "",
"", "", "", "", "", "", "",
"", "", "", "", "", "", ""};
end
return {
modname.. ":stair_" .. material .. " " ..math.min( math.floor( anz/6 ), max_offered ),
modname.. ":slab_" .. material .. " " ..math.min( math.floor( anz/4 ), max_offered ),
modname.. ":stair_" .. material .. "_inner " ..math.min( math.floor( anz/7 ), max_offered ),
modname.. ":panel_" .. material .. "_bottom " ..math.min( math.floor( anz/2 ), max_offered ),
modname.. ":micro_" .. material .. "_bottom " ..math.min( math.floor( anz/1 ), max_offered ),
modname.. ":stair_" .. material .. "_half " ..math.min( math.floor( anz/3 ), max_offered ),
modname.. ":stair_" .. material .. "_wall_half " ..math.min( math.floor( anz/3 ), max_offered ),
modname.. ":stair_" .. material .. "_inverted " ..math.min( math.floor( anz/6 ), max_offered ),
modname.. ":slab_" .. material .. "_inverted " ..math.min( math.floor( anz/4 ), max_offered ),
modname.. ":stair_" .. material .. "_inner_inverted " ..math.min( math.floor( anz/7 ), max_offered ),
modname.. ":panel_" .. material .. "_top " ..math.min( math.floor( anz/2 ), max_offered ),
modname.. ":micro_" .. material .. "_top " ..math.min( math.floor( anz/1 ), max_offered ),
modname.. ":stair_" .. material .. "_half_inverted " ..math.min( math.floor( anz/3 ), max_offered ),
modname.. ":stair_" .. material .. "_wall_half_inverted " ..math.min( math.floor( anz/3 ), max_offered ),
modname.. ":stair_" .. material .. "_wall " ..math.min( math.floor( anz/6 ), max_offered ),
modname.. ":slab_" .. material .. "_quarter " ..math.min( math.floor( anz/2 ), max_offered ),
modname.. ":stair_" .. material .. "_outer " ..math.min( math.floor( anz/7 ), max_offered ),
modname.. ":panel_" .. material .. "_vertical " ..math.min( math.floor( anz/2 ), max_offered ),
modname.. ":slab_" .. material .. "_three_quarter " ..math.min( math.floor( anz/6 ), max_offered ),
modname.. ":stair_" .. material .. "_right_half " ..math.min( math.floor( anz/3 ), max_offered ),
"",
modname.. ":slab_" .. material .. "_wall " ..math.min( math.floor( anz/4 ), max_offered ),
modname.. ":slab_" .. material .. "_quarter_inverted " ..math.min( math.floor( anz/2 ), max_offered ),
modname.. ":stair_" .. material .. "_outer_inverted " ..math.min( math.floor( anz/7 ), max_offered ),
"",
modname.. ":slab_" .. material .. "_three_quarter_inverted "..math.min( math.floor( anz/6 ), max_offered ),
modname.. ":stair_" .. material .. "_right_half_inverted " ..math.min( math.floor( anz/3 ), max_offered ),
"",
}
end
-- reset empty circularsaw after last full block has been taken out (or the circularsaw has been placed the first tiem); note: max_offered is not reset
circularsaw.reset_circularsaw = function( pos )
local meta = minetest.env:get_meta(pos);
local inv = meta:get_inventory();
inv:set_list("input", { "" } );
inv:set_list("micro", { "" } );
inv:set_list("output", circularsaw.get_stair_output_inv( "", "", 0, meta:get_string("max_offered")));
meta:set_int("anz", 0 );
meta:set_string("infotext", "Circular saw, empty (owned by "..( meta:get_string("owner") or "" )..")");
end
-- player has taken something out of the box or placed something inside; that amounts to count microblocks
circularsaw.update_inventory = function( pos, amount )
local meta = minetest.env:get_meta(pos);
local inv = meta:get_inventory();
local akt = meta:get_int( "anz" );
-- the material is receicled automaticly
inv:set_list("recycle", { "" } );
if( akt + amount < 1 ) then -- if the last block is taken out
circularsaw.reset_circularsaw( pos );
return;
end
local stack = inv:get_stack( "input", 1 );
-- at least one "normal" block is necessary to see what kind of stairs are requested
if( stack:is_empty()) then
-- any microblocks not taken out yet are now lost (covers material loss in the machine)
circularsaw.reset_circularsaw( pos );
return;
end
local node_name = stack:get_name();
local liste = node_name:split( ":");
local modname = liste[1];
local material = liste[2];
-- display as many full blocks as possible
inv:set_list("input", { modname.. ":" .. material .. " "..math.floor( (akt + amount) / 8 ) });
-- the stairnodes themshelves come frome stairsplus - regardless of their original full blocks
modname = "stairsplus";
--print("circularsaw set to "..modname.." : "..material.." with "..(akt+amount).." microblocks.");
-- 0-7 microblocs may remain as a rest
inv:set_list("micro", { modname.. ":micro_" .. material .. "_bottom ".. ((akt + amount) % 8 ) });
-- display
inv:set_list("output", circularsaw.get_stair_output_inv( modname, material, (akt + amount), meta:get_string("max_offered")));
-- store how many microblocks are available
meta:set_int("anz", (akt+amount) );
meta:set_string("infotext", "Circular saw, working with "..material.." (owned by "..( meta:get_string("owner") or "" )..")");
end
-- the amount of items offered per shape can be configured
circularsaw.on_receive_fields = function(pos, formname, fields, sender)
local meta = minetest.env:get_meta(pos);
if( fields.max_offered and tonumber( fields.max_offered) > 0 and tonumber(fields.max_offered) < 99 ) then
meta:set_string( "max_offered", fields.max_offered );
circularsaw.update_inventory( pos, 0 ); -- update to show the correct number of items
end
end
-- moving the inventory of the circularsaw around is not allowed because it is a fictional inventory
circularsaw.allow_metadata_inventory_move = function(pos, from_list, from_index, to_list, to_index, count, player)
-- moving inventory around would be rather immpractical and make things more difficult to calculate
return 0;
end
-- only input- and recycle-slot are intended as input slots
circularsaw.allow_metadata_inventory_put = function(pos, listname, index, stack, player)
-- the player is not allowed to put something in there
if( listname == "output" or listname == "micro" ) then
return 0;
end
local meta = minetest.env:get_meta(pos);
local inv = meta:get_inventory();
-- only alow those items that are offered in the output inventory to be recycled
if( listname == "recycle" and not( inv:contains_item("output", stack:get_name() ))) then
return 0;
end
-- only accept certain blocks as input which are known to be craftable into stairs
if( listname == "input" ) then
if( not( inv:is_empty("input"))) then
local old_stack = inv:get_stack("input", 1 );
if( old_stack:get_name() ~= stack:get_name() ) then
return 0;
end
end
for i,v in ipairs( circularsaw.known_stairs ) do
if( circularsaw.known_stairs[ i ] == stack:get_name()) then
return stack:get_count();
end
end
return 0;
end
return stack:get_count()
end
-- taking is allowed from all slots (even the internal microblock slot)
-- putting something in is slightly more complicated than taking anything because we have to make sure it is of a suitable material
circularsaw.on_metadata_inventory_put = function(pos, listname, index, stack, player)
-- we need to find out if the circularsaw is already set to a specific material or not
local meta = minetest.env:get_meta(pos);
local inv = meta:get_inventory();
-- putting something into the input slot is only possible if that had been empty before or did contain something of the same material
if( listname=="input" ) then
-- each new block is worth 8 microblocks
circularsaw.update_inventory( pos, 8 * stack:get_count() );
elseif( listname=="recycle" ) then
-- lets look which shape this represents
for i,v in ipairs( inv:get_list( "output" ) ) do
if( v:get_name() == stack:get_name() ) then
local value = circularsaw.cost_in_microblocks[ i ] * stack:get_count();
--print("\nRecycling "..( v:get_name() ).." into "..value.." microblocks.");
-- we get value microblocks back
circularsaw.update_inventory( pos, value);
end
end
end
end
-- the player takes something
circularsaw.on_metadata_inventory_take = function(pos, listname, index, stack, player)
-- if it is one of the offered stairs: find out how many microblocks have to be substracted
if( listname=="output" ) then
-- we do know how much each block at each position costs
local cost = circularsaw.cost_in_microblocks[ index ] * stack:get_count();
circularsaw.update_inventory( pos, -1 * cost );
elseif( listname=="mikro" ) then
-- each microblock costs 1 microblock
circularsaw.update_inventory( pos, -1 * 1 * stack:get_count());
elseif( listname=="input" ) then
-- each normal (=full) block taken costs 8 microblocks
circularsaw.update_inventory( pos, -1 * 8 * stack:get_count() );
end
-- the recycle field plays no role here since it is processed immediately
end
circularsaw.on_construct_init = function( pos, formspec )
local meta = minetest.env:get_meta(pos)
meta:set_string("formspec", formspec );
meta:set_int( "anz", 0 ); -- no microblocks inside yet
meta:set_string( "max_offered", 10 ); -- how many items of this kind are offered by default?
meta:set_string( "infotext", "Circular saw, empty")
local inv = meta:get_inventory()
inv:set_size("input", 1) -- input slot for full blocks of material x
inv:set_size("micro", 1) -- storage for 1-7 surplus microblocks
inv:set_size("recycle", 1) -- surplus partial blocks can be placed here
inv:set_size("output", 28) -- 4x7 versions of stair-parts of material x
circularsaw.reset_circularsaw( pos );
end
circularsaw.can_dig = function(pos,player)
local meta = minetest.env:get_meta(pos);
local inv = meta:get_inventory()
if not inv:is_empty("input") then
return false
elseif not inv:is_empty("micro") then
return false
elseif not inv:is_empty("recycle") then
return false
end
-- can be digged by anyone when empty (not only by the owner)
return true
end,
minetest.register_node("circularsaw:circularsaw", {
description = "circular saw",
drawtype = "nodebox",
node_box = {
type = "fixed",
fixed = {
{-0.4, -0.5, -0.4, -0.25, 0.25, -0.25}, --leg
{0.25, -0.5, 0.25, 0.4, 0.25, 0.4}, --leg
{-0.4, -0.5, 0.25, -0.25, 0.25, 0.4}, --leg
{0.25, -0.5, -0.4, 0.4, 0.25, -0.25}, --leg
{-0.5, 0.25, -0.5, 0.5, 0.375, 0.5}, --table top
{-0.01, 0.4375, -0.125, 0.01, 0.5, 0.125}, --saw blade (top)
{-0.01, 0.375, -0.1875, 0.01, 0.4375, 0.1875}, --saw blade (bottom)
{-0.25, -0.0625, -0.25, 0.25, 0.25, 0.25}, --motor case
},
},
selection_box = {
type = "regular",
},
inventory_image = "circularsaw.png",
tiles = {"circularsaw_top.png", "circularsaw_bottom.png", "circularsaw_side.png"},
paramtype = "light",
is_ground_content = true,
paramtype2 = "facedir",
groups = {cracky=2},
legacy_facedir_simple = true,
on_construct = function(pos)
return circularsaw.on_construct_init( pos,
"size[10,9]"..
"list[current_name;input;0,0;1,1;]"..
"label[0,0;Input material]"..
"list[current_name;micro;0,1;1,1;]"..
"label[0,1;Rest/microblocks]"..
"field[0.3,2.5;1,1;max_offered;Max:;${max_offered}]"..
"button[1,2;1,1;Set;Set]"..
"list[current_name;recycle;0,3;1,1;]"..
"label[0,3;Recycle output]"..
"list[current_name;output;2,0;7,4;]"..
"list[current_player;main;1,5;8,4;]");
end,
can_dig = function(pos,player)
return circularsaw.can_dig( pos, player );
end,
-- set owner of this circularsaw
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", "Circular saw, empty (owned by "..( placer:get_player_name() or "" )..")");
end,
-- the amount of items offered per shape can be configured
on_receive_fields = function(pos, formname, fields, sender)
return circularsaw.on_receive_fields( pos, formname, fields, sender );
end,
allow_metadata_inventory_move = function(pos, from_list, from_index, to_list, to_index, count, player)
return circularsaw.allow_metadata_inventory_move( pos, from_list, from_index, to_list, to_index, count, player );
end,
-- only input- and recycle-slot are intended as input slots
allow_metadata_inventory_put = function(pos, listname, index, stack, player)
return circularsaw.allow_metadata_inventory_put( pos, listname, index, stack, player );
end,
-- taking is allowed from all slots (even the internal microblock slot); moving is forbidden
-- putting something in is slightly more complicated than taking anything because we have to make sure it is of a suitable material
on_metadata_inventory_put = function(pos, listname, index, stack, player)
return circularsaw.on_metadata_inventory_put( pos, listname, index, stack, player );
end,
on_metadata_inventory_take = function(pos, listname, index, stack, player)
return circularsaw.on_metadata_inventory_take( pos, listname, index, stack, player );
end
})
local STAIR = 'stairsplus:stair_cobble';
-- crafting: 8 cobble stairs arranged like cobble/wood for furnace/chest
minetest.register_craft({
output = 'circularsaw:circularsaw',
recipe = {
{ STAIR, STAIR, STAIR },
{ STAIR, "", STAIR },
{ STAIR, STAIR, STAIR },
}
})
-- and now the same, but as a shared locked object
if( minetest.get_modpath("locks") ~= nil ) then
minetest.register_craft({
output = 'circularsaw:circularsaw_shared',
recipe = {
{ "circularsaw:circularsaw", "locks:lock" },
}
});
minetest.register_node("circularsaw:circularsaw_shared", {
description = "shared locked circular saw",
drawtype = "nodebox",
node_box = {
type = "fixed",
fixed = {
{-0.4, -0.5, -0.4, -0.25, 0.25, -0.25}, --leg
{0.25, -0.5, 0.25, 0.4, 0.25, 0.4}, --leg
{-0.4, -0.5, 0.25, -0.25, 0.25, 0.4}, --leg
{0.25, -0.5, -0.4, 0.4, 0.25, -0.25}, --leg
{-0.5, 0.25, -0.5, 0.5, 0.375, 0.5}, --table top
{-0.01, 0.4375, -0.125, 0.01, 0.5, 0.125}, --saw blade (top)
{-0.01, 0.375, -0.1875, 0.01, 0.4375, 0.1875}, --saw blade (bottom)
{-0.25, -0.0625, -0.25, 0.25, 0.25, 0.25}, --motor case
},
},
selection_box = {
type = "regular",
},
inventory_image = "circularsaw.png",
tiles = {"circularsaw_top.png", "circularsaw_bottom.png", "circularsaw_side.png"},
paramtype = "light",
is_ground_content = true,
paramtype2 = "facedir",
groups = {cracky=2},
legacy_facedir_simple = true,
on_construct = function(pos)
locks:lock_init( pos,
"size[10,9]"..
"list[current_name;input;0,0;1,1;]"..
"label[0,0;Input material]"..
"list[current_name;micro;0,1;1,1;]"..
"label[0,1;Rest/microblocks]"..
"field[0.3,2.5;1,1;max_offered;Max:;${max_offered}]"..
"button[1,2;1,1;Set;Set]"..
"list[current_name;recycle;0,3;1,1;]"..
"label[0,3;Recycle output]"..
"list[current_name;output;2,0;7,4;]"..
"list[current_player;main;1,5;8,4;]"..
"field[1.3,4.6;6,0.7;locks_sent_lock_command;Locked saw. Type /help for help:;]"..
"button_exit[7.3,4.2;1.7,0.7;locks_sent_input;Proceed]" );
local meta = minetest.env:get_meta(pos);
return circularsaw.on_construct_init( pos, meta:get_string( "formspec" ));
end,
can_dig = function(pos,player)
-- instead of empty/not empty we go by privs (diglock priv)
if( not(locks:lock_allow_dig( pos, player ))) then
return false;
end
return circularsaw.can_dig( pos, player );
end,
-- set owner of this circularsaw
after_place_node = function(pos, placer)
locks:lock_set_owner( pos, placer, "Shared locked circular saw, empty" );
end,
-- the amount of items offered per shape can be configured
on_receive_fields = function(pos, formname, fields, sender)
-- if the user already has the right to use this and did input text
if( fields.max_offered and not(fields.locks_sent_lock_command) and locks:lock_allow_use( pos, sender )) then
circularsaw.on_receive_fields( pos, formname, fields, sender );
-- a command for the lock?
else
locks:lock_handle_input( pos, formname, fields, sender );
end
end,
allow_metadata_inventory_move = function(pos, from_list, from_index, to_list, to_index, count, player)
if( not( locks:lock_allow_use( pos, player ))) then
return 0;
end
return circularsaw.allow_metadata_inventory_move( pos, from_list, from_index, to_list, to_index, count, player );
end,
-- only input- and recycle-slot are intended as input slots
allow_metadata_inventory_put = function(pos, listname, index, stack, player)
if( not( locks:lock_allow_use( pos, player ))) then
return 0;
end
return circularsaw.allow_metadata_inventory_put( pos, listname, index, stack, player );
end,
-- taking is allowed from all slots (even the internal microblock slot); moving is forbidden
allow_metadata_inventory_take = function( pos, listname, index, stack, player)
if( not( locks:lock_allow_use( pos, player ))) then
return 0;
end
return stack:get_count();
end,
-- putting something in is slightly more complicated than taking anything because we have to make sure it is of a suitable material
on_metadata_inventory_put = function(pos, listname, index, stack, player)
return circularsaw.on_metadata_inventory_put( pos, listname, index, stack, player );
end,
on_metadata_inventory_take = function(pos, listname, index, stack, player)
return circularsaw.on_metadata_inventory_take( pos, listname, index, stack, player );
end
})
end
Reference in New Issue View Git Blame Copy Permalink