nalc
/
replacer
forked from mtcontrib/replacer
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity
replacer/inspect.lua

218 lines
7.9 KiB
Lua
Raw Blame History

minetest.register_tool( "replacer:inspect",
{
description = "Node inspection tool",
groups = {},
inventory_image = "replacer_inspect.png",
wield_image = "",
wield_scale = {x=1,y=1,z=1},
liquids_pointable = true, -- it is ok to request information about liquids
-- the tool_capabilities are of no intrest here; it is not for digging
tool_capabilities = {
full_punch_interval = 1.0,
max_drop_level=0,
groupcaps={
fleshy={times={[2]=0.80, [3]=0.40}, maxwear=0.05, maxlevel=1},
snappy={times={[2]=0.80, [3]=0.40}, maxwear=0.05, maxlevel=1},
choppy={times={[3]=0.90}, maxwear=0.05, maxlevel=0}
}
},
node_placement_prediction = nil,
on_use = function(itemstack, user, pointed_thing)
return replacer.inspect( itemstack, user, pointed_thing, above, false );
end,
on_place = function(itemstack, placer, pointed_thing)
return replacer.inspect( itemstack, placer, pointed_thing, above, true );
end,
})
replacer.inspect = function( itemstack, user, pointed_thing, mode, show_receipe )
if( user == nil or pointed_thing == nil) then
return nil;
end
local name = user:get_player_name();
if( pointed_thing.type == 'object' ) then
local text = 'This is ';
local ref = pointed_thing.ref;
if( not( ref )) then
text = text..'a borken object. We have no further information about it. It is located';
elseif( ref:is_player()) then
text = text..'your fellow player \"'..tostring( ref:get_player_name() )..'\"';
else
local luaob = ref:get_luaentity();
if( luaob ) then
text = text..'entity \"'..tostring( luaob.name )..'\"';
local sdata = luaob:get_staticdata();
if( sdata ) then
sdata = minetest.deserialize( sdata );
if( sdata.itemstring ) then
text = text..' ['..tostring( sdata.itemstring )..']';
end
if( sdata.age ) then
text = text..', dropped '..tostring( math.floor( sdata.age/60 ))..' minutes ago';
end
end
else
text = text..'object \"'..tostring( ref:get_entity_name() )..'\"';
end
end
text = text..' at '..minetest.pos_to_string( ref:getpos() );
minetest.chat_send_player( name, text );
return nil;
elseif( pointed_thing.type ~= 'node' ) then
minetest.chat_send_player( name, 'Sorry. This is an unkown something of type \"'..tostring( pointed_thing.type )..'\". No information available.');
return nil;
end
local pos = minetest.get_pointed_thing_position( pointed_thing, mode );
local node = minetest.env:get_node_or_nil( pos );
if( node == nil ) then
minetest.chat_send_player( name, "Error: Target node not yet loaded. Please wait a moment for the server to catch up.");
return nil;
end
local text = ' ['..tostring( node.name )..'] with param2='..tostring( node.param2 )..' at '..minetest.pos_to_string( pos )..'.';
if( not( minetest.registered_nodes[ node.name ] )) then
text = 'This node is an UNKOWN block'..text;
else
text = 'This is a \"'..tostring( minetest.registered_nodes[ node.name ].description or ' - no description provided -')..'\" block'..text;
end
if( minetest.is_protected( pos, name )) then
text = text..' You can\'t dig this node. It is protected.';
elseif( minetest.is_protected( pos, '_THIS_NAME_DOES_NOT_EXIST_' )) then
text = text..' You can dig this node, but others can\'t.';
end
minetest.chat_send_player( name, text );
if( show_receipe ) then
replacer.inspect_show_crafting( name, node.name, nil );
end
return nil; -- no item shall be removed from inventory
end
replacer.image_button_link = function( stack_string )
local stack = ItemStack( stack_string );
local new_node_name = stack_string;
if( stack and stack:get_name()) then
new_node_name = stack:get_name();
end
return tostring( stack_string )..';'..tostring( new_node_name );
end
replacer.inspect_show_crafting = function( name, node_name, fields )
if( not( name )) then
return;
end
local receipe_nr = 1;
if( not( node_name )) then
node_name = fields.node_name;
receipe_nr = tonumber(fields.receipe_nr);
end
local res = minetest.get_all_craft_recipes( node_name );
-- offer all alternate creafting receipes thrugh prev/next buttons
if( fields and fields.prev_receipe and res and receipe_nr > 1 ) then
receipe_nr = receipe_nr - 1;
elseif( fields and fields.next_receipe and res and receipe_nr < #res ) then
receipe_nr = receipe_nr + 1;
end
-- the player may ask for receipes of indigrents to the current receipe
if( fields ) then
for k,v in pairs( fields ) do
if( v and v=="" and (minetest.registered_items[ k ]
or minetest.registered_nodes[ k ]
or minetest.registered_craftitems[ k ]
or minetest.registered_tools[ k ] )) then
node_name = k;
receipe_nr = 1;
end
end
end
local formspec = "size[6,6]"..
"field[20,20;0.1,0.1;node_name;node_name;"..node_name.."]".. -- invisible field for passing on information
"field[21,21;0.1,0.1;receipe_nr;receipe_nr;"..tostring( receipe_nr ).."]".. -- another invisible field
"label[1,0;"..tostring( node_name ).."]"..
"item_image_button[5,2;1.0,1.0;"..tostring( node_name )..";normal;]";
if( not( res ) or receipe_nr > #res or receipe_nr < 1 ) then
receipe_nr = 1;
end
if( res and receipe_nr > 1 ) then
formspec = formspec.."button[3.8,5;1,0.5;prev_receipe;prev]";
end
if( res and receipe_nr < #res ) then
formspec = formspec.."button[5.0,5;1,0.5;next_receipe;next]";
end
if( not( res ) or #res<1) then
formspec = formspec..'label[3,1;No receipes.]';
if( minetest.registered_nodes[ node_name ]
and minetest.registered_nodes[ node_name ].drop ) then
local drop = minetest.registered_nodes[ node_name ].drop;
if( drop and type( drop )=='string' and drop ~= node_name ) then
formspec = formspec.."label[2,1.6;Drops on dig:]"..
"item_image_button[2,2;1.0,1.0;"..replacer.image_button_link( drop )..";]";
end
end
else
formspec = formspec.."label[1,5;Alternate "..tostring( receipe_nr ).."/"..tostring( #res ).."]";
-- TODO: handle groups
-- TODO: add support for saw
-- TODO: add support for colormachine
-- reverse order; default receipes (and thus the most intresting ones) are usually the oldest
local receipe = res[ #res+1-receipe_nr ];
if( receipe.type=='normal' and receipe.items and #receipe.items>0) then
for i=1,9 do
if( receipe.items[i] ) then
formspec = formspec.."item_image_button["..(((i-1)%3)+1)..','..(math.floor((i-1)/3)+1)..";1.0,1.0;"..
replacer.image_button_link( receipe.items[i] )..";]";
end
end
elseif( receipe.type=='cooking' and receipe.items and #receipe.items==1 ) then
formspec = formspec.."image[1,1;3.4,3.4;default_furnace_front.png]"..
"item_image_button[2,2;1.0,1.0;"..replacer.image_button_link( receipe.items[1] )..";]";
else
formspec = formspec..'label[3,1;Error: Unkown receipe.]';
end
-- show how many of the items the receipe will yield
local outstack = ItemStack( receipe.output );
if( outstack and outstack:get_count() and outstack:get_count()>1 ) then
formspec = formspec..'label[5.5,2.5;'..tostring( outstack:get_count() )..']';
end
end
minetest.show_formspec( name, "replacer:crafting", formspec );
end
-- translate general formspec calls back to specific calls
replacer.form_input_handler = function( player, formname, fields)
if( formname and formname == "replacer:crafting" and player and not( fields.quit )) then
replacer.inspect_show_crafting( player:get_player_name(), nil, fields );
return;
end
end
-- establish a callback so that input from the player-specific formspec gets handled
minetest.register_on_player_receive_fields( replacer.form_input_handler );
minetest.register_craft({
output = 'replacer:inspect',
recipe = {
{ '', 'default:mese_crystal', '' },
{ '', 'default:sign_wall', '' },
{ '', '', '' },
}
})
Reference in New Issue View Git Blame Copy Permalink