waxtatect/basic_machines-cd2025
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
basic_machines-cd2025/mover.lua
rnd1 e56ece2b1a interface fixes
2016-04-02 09:38:14 +02:00

1783 lines
72 KiB
Lua
Raw Blame History

------------------------------------------------------------------------------------------------------------------------------------
-- BASIC MACHINES MOD by rnd
-- mod with basic simple automatization for minetest. No background processing, just one abm with 5s timer (detector), no other lag causing background processing.
------------------------------------------------------------------------------------------------------------------------------------
-- *** SETTINGS *** --
local max_range = 10; -- machines normal range of operation
local machines_operations = 10; -- 1 coal will provide 10 mover basic operations ( moving dirt 1 block distance)
local machines_timer = 5 -- main timestep
local machines_TTL = 16; -- time to live for signals
-- how hard it is to move blocks, default factor 1, note fuel cost is this multiplied by distance and divided by machine_operations..
basic_machines.hardness = {
["default:stone"]=4,["default:tree"]=2,["default:jungletree"]=2,["default:pinetree"]=2,["default:acacia_tree"]=2,
["default:lava_source"]=21890,["default:water_source"]=11000,["default:obsidian"]=20,["bedrock2:bedrock"]=999999};
basic_machines.hardness["basic_machines:mover"]=0.;
basic_machines.hardness["es:toxic_water_source"]=21890.;basic_machines.hardness["es:toxic_water_flowing"]=11000;
basic_machines.hardness["default:river_water_source"]=21890.;
-- farming operations are much cheaper
basic_machines.hardness["farming:wheat_8"]=1;basic_machines.hardness["farming:cotton_8"]=1;
basic_machines.hardness["farming:seed_wheat"]=0.5;basic_machines.hardness["farming:seed_cotton"]=0.5;
-- define which nodes are dug up completely, like a tree
basic_machines.dig_up_table = {["default:cactus"]=true,["default:tree"]=true,["default:jungletree"]=true,["default:pinetree"]=true,
["default:acacia_tree"]=true,["default:papyrus"]=true};
-- set up nodes for harvest when digging: [nodename] = {what remains after harvest, harvest result}
basic_machines.harvest_table = {["mese_crystals:mese_crystal_ore4"] = {"mese_crystals:mese_crystal_ore1", "es:mesecook_crystal 4"}};
-- set up nodes for plant when placing from chest in digmode(for example seeds -> plant) : [nodename] = plant_name
basic_machines.plant_table = {["farming:seed_barley"]="farming:barley_1",["farming:beans"]="farming:beanpole_1",
["farming:blueberries"]="farming:blueberry_1",["farming:carrot"]="farming:carrot_1",["farming:cocoa_beans"]="farming:cocoa_1",
["farming:coffee_beans"]="farming:coffee_1",["farming:corn"]="farming:corn_1",["farming:blueberries"]="farming:blueberry_1",
["farming:seed_cotton"]="farming:cotton_1",["farming:cucumber"]="farming:cucumber_1",["farming:grapes"]="farming:grapes_1",
["farming:melon_slice"]="farming:melon_1",["farming:potato"]="farming:potato_1",["farming:pumpkin_slice"]="farming:pumpkin_1",
["farming:raspberries"]="farming:raspberry_1",["farming:rhubarb"]="farming:rhubarb_1",["farming:tomato"]="farming:tomato_1",
["farming:seed_wheat"]="farming:wheat_1"}
--DEPRECATED: fuels used to power mover, now battery is used
basic_machines.fuels = {["default:coal_lump"]=30,["default:cactus"]=5,["default:tree"]=10,["default:jungletree"]=12,["default:pinetree"]=12,["default:acacia_tree"]=10,["default:coalblock"]=500,["default:lava_source"]=5000,["basic_machines:charcoal"]=20}
-- *** END OF SETTINGS *** --
local punchset = {};
minetest.register_on_joinplayer(function(player)
local name = player:get_player_name(); if name == nil then return end
punchset[name] = {};
punchset[name].state = 0;
end
)
-- MOVER --
minetest.register_node("basic_machines:mover", {
description = "Mover - universal digging/harvesting/teleporting/transporting machine, its upgradeable.",
tiles = {"compass_top.png","default_furnace_top.png", "basic_machine_side.png","basic_machine_side.png","basic_machine_side.png","basic_machine_side.png"},
groups = {oddly_breakable_by_hand=2,mesecon_effector_on = 1},
sounds = default.node_sound_wood_defaults(),
after_place_node = function(pos, placer)
local meta = minetest.env:get_meta(pos)
meta:set_string("infotext", "Mover block. Set it up by punching or right click. Activate it by keypad signal.")
meta:set_string("owner", placer:get_player_name()); meta:set_int("public",0);
meta:set_int("x0",0);meta:set_int("y0",-1);meta:set_int("z0",0); -- source1
meta:set_int("x1",0);meta:set_int("y1",-1);meta:set_int("z1",0); -- source2: defines cube
meta:set_int("pc",0); meta:set_int("dim",1);-- current cube position and dimensions
meta:set_int("x2",0);meta:set_int("y2",1);meta:set_int("z2",0);
meta:set_float("fuel",0)
meta:set_string("prefer", "");
meta:set_string("mode", "normal");
meta:set_float("upgrade", 1);
local inv = meta:get_inventory();inv:set_size("upgrade", 1*1);inv:set_size("filter", 1*1)
local name = placer:get_player_name(); punchset[name].state = 0
end,
can_dig = function(pos, player) -- dont dig if upgrades inside, cause they will be destroyed
local meta = minetest.get_meta(pos);
local inv = meta:get_inventory();
return not(inv:contains_item("upgrade", ItemStack({name="default:mese"})));
end,
on_rightclick = function(pos, node, player, itemstack, pointed_thing)
local meta = minetest.get_meta(pos);
local privs = minetest.get_player_privs(player:get_player_name());
local cant_build = minetest.is_protected(pos,player:get_player_name());
if not privs.privs and cant_build then
return
end -- only ppl sharing protection can setup
local x0,y0,z0,x1,y1,z1,x2,y2,z2,prefer,mode,mreverse;
x0=meta:get_int("x0");y0=meta:get_int("y0");z0=meta:get_int("z0");x1=meta:get_int("x1");y1=meta:get_int("y1");z1=meta:get_int("z1");x2=meta:get_int("x2");y2=meta:get_int("y2");z2=meta:get_int("z2");
machines.pos1[player:get_player_name()] = {x=pos.x+x0,y=pos.y+y0,z=pos.z+z0};machines.mark_pos1(player:get_player_name()) -- mark pos1
machines.pos11[player:get_player_name()] = {x=pos.x+x1,y=pos.y+y1,z=pos.z+z1};machines.mark_pos11(player:get_player_name()) -- mark pos11
machines.pos2[player:get_player_name()] = {x=pos.x+x2,y=pos.y+y2,z=pos.z+z2};machines.mark_pos2(player:get_player_name()) -- mark pos2
prefer = meta:get_string("prefer");
local mreverse = meta:get_int("reverse");
local list_name = "nodemeta:"..pos.x..','..pos.y..','..pos.z
local mode_list = {["normal"]=1,["dig"]=2, ["drop"]=3, ["object"]=4, ["inventory"]=5, ["transport"]=6};
local mode = mode_list[meta:get_string("mode")] or "";
local meta1 = minetest.get_meta({x=pos.x+x0,y=pos.y+y0,z=pos.z+z0}); -- source meta
local meta2 = minetest.get_meta({x=pos.x+x2,y=pos.y+y2,z=pos.z+z2}); -- target meta
local inv1=1; local inv2=1;
local inv1m = meta:get_string("inv1");local inv2m = meta:get_string("inv2");
local list1 = meta1:get_inventory():get_lists(); local inv_list1 = ""; local j;
j=1; -- stupid dropdown requires item index but returns string on receive so we have to find index.. grrr, one other solution: invert the table: key <-> value
for i in pairs( list1) do
inv_list1 = inv_list1 .. i .. ",";
if i == inv1m then inv1=j end; j=j+1;
end
local list2 = meta2:get_inventory():get_lists(); local inv_list2 = "";
j=1;
for i in pairs( list2) do
inv_list2 = inv_list2 .. i .. ",";
if i == inv2m then inv2=j; end; j=j+1;
end
local upgrade = meta:get_float("upgrade"); if upgrade>0 then upgrade = upgrade - 1 end
local form =
"size[8,9.5]" .. -- width, height
--"size[6,10]" .. -- width, height
"field[0.25,0.5;1,1;x0;source1;"..x0.."] field[1.25,0.5;1,1;y0;;"..y0.."] field[2.25,0.5;1,1;z0;;"..z0.."]"..
"dropdown[3,0.25;1.5,1;inv1;".. inv_list1 ..";" .. inv1 .."]"..
"field[0.25,1.5;1,1;x1;source2;"..x1.."] field[1.25,1.5;1,1;y1;;"..y1.."] field[2.25,1.5;1,1;z1;;"..z1.."]"..
"field[0.25,2.5;1,1;x2;Target;"..x2.."] field[1.25,2.5;1,1;y2;;"..y2.."] field[2.25,2.5;1,1;z2;;"..z2.."]"..
"dropdown[3,2.25;1.5,1;inv2;".. inv_list2 .. ";" .. inv2 .."]"..
"button_exit[4,3.25;1,1;OK;OK] field[0.25,4.5;3,1;prefer;filter;"..prefer.."]"..
"button[3,3.25;1,1;help;help]"..
"label[0.,3.0;MODE selection]"..
"dropdown[0.,3.35;3,1;mode;normal,dig,drop,object,inventory,transport;".. mode .."]"..
"list[nodemeta:"..pos.x..','..pos.y..','..pos.z ..";filter;3,4.4;1,1;]"..
"list[nodemeta:"..pos.x..','..pos.y..','..pos.z ..";upgrade;4,4.4;1,1;]".."label[4,4;upgrade .. ".. upgrade .."]" ..
"field[3.25,1.5;1.,1;reverse;reverse;"..mreverse.."]" .. "list[current_player;main;0,5.5;8,4;]";
-- if meta:get_string("owner")==player:get_player_name() then
minetest.show_formspec(player:get_player_name(), "basic_machines:mover_"..minetest.pos_to_string(pos), form)
-- else
-- minetest.show_formspec(player:get_player_name(), "view_only_basic_machines_mover", form)
-- end
end,
allow_metadata_inventory_put = function(pos, listname, index, stack, player)
if listname == "filter" then
local meta = minetest.get_meta(pos);
local itemname = stack:get_name() or "";
meta:set_string("prefer",itemname);
-- local inv = meta:get_inventory();
-- inv:set_stack("filter",1, ItemStack({name=itemname}))
return 1;
end
return stack:get_count();
end,
allow_metadata_inventory_take = function(pos, listname, index, stack, player)
local meta = minetest.get_meta(pos);
meta:set_float("upgrade",1); -- reset upgrade
return stack:get_count();
end,
mesecons = {effector = {
action_on = function (pos, node,ttl)
if type(ttl)~="number" then ttl = 1 end
local meta = minetest.get_meta(pos);
local fuel = meta:get_float("fuel");
local x0=meta:get_int("x0"); local y0=meta:get_int("y0"); local z0=meta:get_int("z0");
local mode = meta:get_string("mode");
local mreverse = meta:get_int("reverse")
local pos1 = {x=x0+pos.x,y=y0+pos.y,z=z0+pos.z}; -- where to take from
local pos2 = {x=meta:get_int("x2")+pos.x,y=meta:get_int("y2")+pos.y,z=meta:get_int("z2")+pos.z}; -- where to put
local pc = meta:get_int("pc"); local dim = meta:get_int("dim"); pc = (pc+1) % dim;meta:set_int("pc",pc) -- cycle position
local x1=meta:get_int("x1")-x0+1;local y1=meta:get_int("y1")-y0+1;local z1=meta:get_int("z1")-z0+1; -- get dimensions
--pc = z*a*b+x*b+y, from x,y,z to pc
-- set current input position
pos1.y = y0 + (pc % y1); pc = (pc - (pc % y1))/y1;
pos1.x = x0 + (pc % x1); pc = (pc - (pc % x1))/x1;
pos1.z = z0 + pc;
pos1.x = pos.x+pos1.x;pos1.y = pos.y+pos1.y;pos1.z = pos.z+pos1.z;
-- special modes that use its own source/target positions:
if mode == "transport" then
pos2 = {x=meta:get_int("x2")-x0+pos1.x,y=meta:get_int("y2")-y0+pos1.y,z=meta:get_int("z2")-z0+pos1.z}; -- translation from pos1
end
if mreverse ~= 0 then -- reverse pos1, pos2
local post = {x=pos1.x,y=pos1.y,z=pos1.z};
pos1 = {x=pos2.x,y=pos2.y,z=pos2.z};
pos2 = {x=post.x,y=post.y,z=post.z};
end
-- PROTECTION CHECK
local owner = meta:get_string("owner");
if minetest.is_protected(pos1, owner) or minetest.is_protected(pos2, owner) then
meta:set_float("fuel", -1);
meta:set_string("infotext", "Mover block. Protection fail. Deactivated.")
return end
local node1 = minetest.get_node(pos1);local node2 = minetest.get_node(pos2);
local prefer = meta:get_string("prefer");
--minetest.chat_send_all(" pos1 " .. pos1.x .. " " .. pos1.y .. " " .. pos1.z .. " pos2 " .. pos2.x .. " " .. pos2.y .. " " .. pos2.z );
-- FUEL COST: calculate
local dist = math.abs(pos2.x-pos1.x)+math.abs(pos2.y-pos1.y)+math.abs(pos2.z-pos1.z);
local fuel_cost = (basic_machines.hardness[node1.name] or 1);
if node1.name == "default:chest_locked" or mode == "inventory" then fuel_cost = basic_machines.hardness[prefer] or 1 end;
fuel_cost=fuel_cost*dist/machines_operations; -- machines_operations=10 by default, so 10 basic operations possible with 1 coal
if mode == "object"
then fuel_cost=fuel_cost*0.1;
elseif mode == "inventory" then fuel_cost=fuel_cost*0.1;
end
local upgrade = meta:get_float("upgrade") or 1;fuel_cost = fuel_cost/upgrade; -- upgrade decreases fuel cost
-- FUEL OPERATIONS
if fuel<fuel_cost then -- needs fuel to operate, find nearby open chest with fuel within radius 1
local found_fuel = 0;
local r = 1;local positions = minetest.find_nodes_in_area( --find battery
{x=pos.x-r, y=pos.y-r, z=pos.z-r},
{x=pos.x+r, y=pos.y+r, z=pos.z+r},
"basic_machines:battery")
local fpos = nil;
if #positions>0 then fpos = positions[1] end -- pick first battery we found
--minetest.chat_send_all(" mover checking for power, found " .. #positions .. " nearby batteries");
if fpos then -- check battery for power
local power_draw = fuel_cost;
if power_draw<1 then power_draw = 1 end -- at least 10 one block operations with 1 refuel
local supply = basic_machines.check_power(fpos, power_draw) or 0;
if supply>0 then
found_fuel=supply;
end
end
if found_fuel~=0 then
fuel = fuel+found_fuel;
meta:set_float("fuel", fuel);
meta:set_string("infotext", "Mover block refueled. Fuel ".. fuel);
end
end
if fuel < fuel_cost then meta:set_string("infotext", "Mover block. Energy ".. fuel ..", needed energy " .. fuel_cost .. ". Put nonempty battery next to mover."); return end
if mode == "object" then -- teleport objects and return
-- if target is chest put items in it
local target_chest = false
if node2.name == "default:chest" or node2.name == "default:chest_locked" then
target_chest = true
end
local r = math.max(math.abs(x1),math.abs(y1),math.abs(z1)); r = math.min(r,10);
local teleport_any = false;
if target_chest then -- put objects in target chest
local cmeta = minetest.get_meta(pos2);
local inv = cmeta:get_inventory();
for _,obj in pairs(minetest.get_objects_inside_radius({x=x0+pos.x,y=y0+pos.y,z=z0+pos.z}, r)) do
local lua_entity = obj:get_luaentity()
if not obj:is_player() and lua_entity and lua_entity.itemstring ~= "" then
-- put item in chest
local stack = ItemStack(lua_entity.itemstring)
if inv:room_for_item("main", stack) then
teleport_any = true;
inv:add_item("main", stack);
end
obj:remove();
end
end
if teleport_any then
fuel = fuel - fuel_cost; meta:set_float("fuel",fuel);
meta:set_string("infotext", "Mover block. Fuel "..fuel);
minetest.sound_play("tng_transporter1", {pos=pos2,gain=1.0,max_hear_distance = 8,})
end
return
end
-- move objects to another location
for _,obj in pairs(minetest.get_objects_inside_radius({x=x0+pos.x,y=y0+pos.y,z=z0+pos.z}, r)) do
if obj:is_player() then
if not minetest.is_protected(obj:getpos(), owner) then -- move player only from owners land
obj:moveto(pos2, false)
teleport_any = true;
end
else
obj:moveto(pos2, false)
teleport_any = true;
end
end
if teleport_any then
fuel = fuel - fuel_cost; meta:set_float("fuel",fuel);
meta:set_string("infotext", "Mover block. Fuel "..fuel);
minetest.sound_play("tng_transporter1", {pos=pos2,gain=1.0,max_hear_distance = 8,})
end
return
end
local dig=false; if mode == "dig" then dig = true; end -- digs at target location
local drop = false; if mode == "drop" then drop = true; end -- drops node instead of placing it
local harvest = false; -- harvest mode for special nodes: mese crystals
-- decide what to do if source or target are chests
local source_chest=false; if string.find(node1.name,"default:chest") then source_chest=true end
if node1.name == "air" then return end -- nothing to move
local target_chest = false
if node2.name == "default:chest" or node2.name == "default:chest_locked" then
target_chest = true
end
if not(target_chest) and not(mode=="inventory") and minetest.get_node(pos2).name ~= "air" and not(mode=="transport") then return end -- do nothing if target nonempty and not chest
local invName1="";local invName2="";
if mode == "inventory" then
invName1 = meta:get_string("inv1");invName2 = meta:get_string("inv2");
end
-- inventory mode
if mode == "inventory" then
if prefer == "" then meta:set_string("infotext", "Mover block. must set nodes to move (filter) in inventory mode."); return; end
local meta1 = minetest.get_meta(pos1); local inv1 = meta1:get_inventory();
local stack = ItemStack(prefer);
if inv1:contains_item(invName1, stack) then
inv1:remove_item(invName1, stack);
else
return
end
local meta2 = minetest.get_meta(pos2); local inv2 = meta2:get_inventory();
if inv2:room_for_item(invName2, stack) then
inv2:add_item(invName2, stack);
else
return
end
minetest.sound_play("chest_inventory_move", {pos=pos2,gain=1.0,max_hear_distance = 8,})
fuel = fuel - fuel_cost; meta:set_float("fuel",fuel);
meta:set_string("infotext", "Mover block. Fuel "..fuel);
return
end
-- filtering
if prefer~="" then -- prefered node set
if prefer~=node1.name and not source_chest and mode ~= "inventory" then return end -- only take prefered node or from chests/inventories
if source_chest then -- take stuff from chest
local cmeta = minetest.get_meta(pos1);
local inv = cmeta:get_inventory();
local stack = ItemStack(prefer);
if inv:contains_item("main", stack) then
inv:remove_item("main", stack);
else return -- item not found in chest
end
if mreverse ~= 0 then -- planting mode: check if transform seed->plant is needed
if basic_machines.plant_table[prefer]~=nil then
prefer = basic_machines.plant_table[prefer];
end
end
end
node1 = {}; node1.name = prefer;
end
if (prefer == "" and source_chest) then return end -- doesnt know what to take out of chest/inventory
-- if target chest put in chest
if target_chest then
local cmeta = minetest.get_meta(pos2);
local inv = cmeta:get_inventory();
-- dig tree or cactus
local count = 0;-- check for cactus or tree
local dig_up = false; -- digs up node as a tree
if dig then
if not source_chest and basic_machines.dig_up_table[node1.name] then dig_up = true end
-- do we harvest the node?
if not source_chest then
if basic_machines.harvest_table[node1.name]~=nil then
harvest = true
local remains = basic_machines.harvest_table[node1.name][1];
local result = basic_machines.harvest_table[node1.name][2];
minetest.set_node(pos1,{name=remains});
inv:add_item("main",result);
end
end
if dig_up == true then -- dig up to 16 nodes
local r = 1; if node1.name == "default:cactus" or node1.name == "default:papyrus" then r = 0 end
local positions = minetest.find_nodes_in_area( --
{x=pos1.x-r, y=pos1.y, z=pos1.z-r},
{x=pos1.x+r, y=pos1.y+16, z=pos1.z+r},
node1.name)
for _, pos3 in ipairs(positions) do
-- dont take coal from source or target location to avoid chest/fuel confusion isssues
if count>16 then break end
minetest.set_node(pos3,{name="air"}); count = count+1;
end
inv:add_item("main", node1.name .. " " .. count-1);-- if tree or cactus was digged up
end
-- minetest drop code emulation
if not harvest then
local table = minetest.registered_items[node1.name];
if table~=nil then --put in chest
if table.drop~= nil then -- drop handling
if table.drop.items then
--handle drops better, emulation of drop code
local max_items = table.drop.max_items or 0;
if max_items==0 then -- just drop all the items (taking the rarity into consideration)
max_items = #table.drop.items or 0;
end
local drop = table.drop;
local i = 0;
for k,v in pairs(drop.items) do
if i > max_items then break end; i=i+1;
local rare = v.rarity or 1;
if math.random(1, rare)==1 then
node1={};node1.name = v.items[math.random(1,#v.items)]; -- pick item randomly from list
inv:add_item("main",node1.name);
end
end
else
inv:add_item("main",table.drop);
end
else
inv:add_item("main",node1.name);
end
end
end
else -- if not dig just put it in
inv:add_item("main",node1.name);
end
end
minetest.sound_play("transporter", {pos=pos2,gain=1.0,max_hear_distance = 8,})
if target_chest and source_chest then -- chest to chest transport has lower cost, *0.1
fuel_cost=fuel_cost*0.1;
end
fuel = fuel - fuel_cost; meta:set_float("fuel",fuel);
meta:set_string("infotext", "Mover block. Fuel "..fuel);
if mode == "transport" then -- transport nodes parallel as defined by source1 and target, clone with complete metadata
local meta1 = minetest.get_meta(pos1):to_table();
minetest.set_node(pos2, minetest.get_node(pos1));
minetest.get_meta(pos2):from_table(meta1);
minetest.set_node(pos1,{name="air"});minetest.get_meta(pos1):from_table(nil)
return;
end
-- REMOVE DIGGED NODE
if not(target_chest) then
if not drop then minetest.set_node(pos2, {name = node1.name}); end
if drop then
local stack = ItemStack(node1.name);minetest.add_item(pos2,stack) -- drops it
end
end
if not(source_chest) and not(harvest) then
if dig then nodeupdate(pos1) end
minetest.set_node(pos1, {name = "air"});
end
end,
action_off = function (pos, node,ttl) -- this toggles reverse option of mover
if type(ttl)~="number" then ttl = 1 end
local meta = minetest.get_meta(pos);
local mreverse = meta:get_int("reverse");
if mreverse ~= 0 then mreverse = 0 else mreverse = 1 end
meta:set_int("reverse",mreverse);
end
}
}
})
-- KEYPAD --
local function use_keypad(pos,ttl) -- position, time to live ( how many times can signal travel before vanishing to prevent infinite recursion )
if ttl<0 then return end;
local meta = minetest.get_meta(pos);
local name = meta:get_string("owner");
if minetest.is_protected(pos,name) then meta:set_string("infotext", "Protection fail. reset."); meta:set_int("count",0) end
local count = meta:get_int("count") or 0; -- counts how many repeats left
local active_repeats = meta:get_int("active_repeats") or 0;
if count < 0 then return end
count = count - 1; meta:set_int("count",count);
if count>=0 then
meta:set_string("infotext", "Keypad operation: ".. count .." cycles left")
else
meta:set_string("infotext", "Keypad operation: activation ".. -count)
end
if count>0 then -- only trigger repeat if count on
if active_repeats == 0 then -- cant add new repeats quickly to prevent abuse
meta:set_int("active_repeats",1);
minetest.after(machines_timer, function()
meta:set_int("active_repeats",0);
use_keypad(pos,machines_TTL)
end ) -- repeat operation as many times as set with "iter"
end
end
local x0,y0,z0,mode;
x0=meta:get_int("x0");y0=meta:get_int("y0");z0=meta:get_int("z0");
x0=pos.x+x0;y0=pos.y+y0;z0=pos.z+z0;
mode = meta:get_int("mode");
-- pass the signal on to target, depending on mode
local tpos = {x=x0,y=y0,z=z0};
local node = minetest.get_node(tpos);if not node.name then return end -- error
local table = minetest.registered_nodes[node.name];
if not table then return end -- error
if not table.mesecons then return end -- error
if not table.mesecons.effector then return end -- error
local effector=table.mesecons.effector;
if mode == 3 then -- keypad in toggle mode
local state = meta:get_int("state") or 0;state = 1-state; meta:set_int("state",state);
if state == 0 then mode = 1 else mode = 2 end
end
-- pass the signal on to target
if mode == 2 then -- on
if not effector.action_on then return end
effector.action_on(tpos,node,ttl); -- run
elseif mode == 1 then -- off
if not effector.action_off then return end
effector.action_off(tpos,node,ttl); -- run
end
end
local function check_keypad(pos,name,ttl) -- called only when manually activated via punch
local meta = minetest.get_meta(pos);
local pass = meta:get_string("pass");
if pass == "" then
local iter = meta:get_int("iter");
local count = meta:get_int("count");
if count<iter-1 or iter<2 then meta:set_int("active_repeats",0) end -- so that keypad can work again, at least one operation must have occured though
meta:set_int("count",iter); use_keypad(pos,machines_TTL) -- time to live set when punched
return
end
if name == "" then return end
pass = ""
local form =
"size[3,1]" .. -- width, height
"button_exit[0.,0.5;1,1;OK;OK] field[0.25,0.25;3,1;pass;Enter Password: ;".."".."]";
minetest.show_formspec(name, "basic_machines:check_keypad_"..minetest.pos_to_string(pos), form)
end
minetest.register_node("basic_machines:keypad", {
description = "Keypad - basic way to activated machines by signal it sends",
tiles = {"keypad.png"},
groups = {oddly_breakable_by_hand=2},
sounds = default.node_sound_wood_defaults(),
after_place_node = function(pos, placer)
local meta = minetest.env:get_meta(pos)
meta:set_string("infotext", "Keypad. Right click to set it up or punch it.")
meta:set_string("owner", placer:get_player_name()); meta:set_int("public",1);
meta:set_int("x0",0);meta:set_int("y0",0);meta:set_int("z0",0); -- target
meta:set_string("pass", "");meta:set_int("mode",2); -- pasword, mode of operation
meta:set_int("iter",1);meta:set_int("count",0); -- how many repeats to do, current repeat count
local name = placer:get_player_name();punchset[name] = {};punchset[name].state = 0
end,
mesecons = {effector = {
action_on = function (pos, node,ttl)
if type(ttl)~="number" then ttl = 1 end
if ttl<0 then return end -- machines_TTL prevents infinite recursion
use_keypad(pos,ttl-1)
end
}
},
on_rightclick = function(pos, node, player, itemstack, pointed_thing)
local meta = minetest.get_meta(pos);
local privs = minetest.get_player_privs(player:get_player_name());
local cant_build = minetest.is_protected(pos,player:get_player_name());
--meta:get_string("owner")~=player:get_player_name() and
if not privs.privs and cant_build then
return
end -- only ppl sharing protection can set up keypad
local x0,y0,z0,x1,y1,z1,pass,iter,mode;
x0=meta:get_int("x0");y0=meta:get_int("y0");z0=meta:get_int("z0");iter=meta:get_int("iter") or 1;
mode = meta:get_int("mode") or 1;
machines.pos1[player:get_player_name()] = {x=pos.x+x0,y=pos.y+y0,z=pos.z+z0};machines.mark_pos1(player:get_player_name()) -- mark pos1
pass = meta:get_string("pass");
local form =
"size[4.25,3.75]" .. -- width, height
"field[0.25,0.5;1,1;x0;target;"..x0.."] field[1.25,0.5;1,1;y0;;"..y0.."] field[2.25,0.5;1,1;z0;;"..z0.."]"..
"button_exit[3.25,3.25;1,1;OK;OK] field[0.25,1.5;3.25,1;pass;Password: ;"..pass.."]" .. "field[0.25,2.5;3.25,1;iter;Repeat how many times;".. iter .."]"..
"field[0.25,3.5;3.25,1;mode;1=OFF/2=ON/3=TOGGLE;"..mode.."]";
-- if meta:get_string("owner")==player:get_player_name() then
minetest.show_formspec(player:get_player_name(), "basic_machines:keypad_"..minetest.pos_to_string(pos), form)
-- else
-- minetest.show_formspec(player:get_player_name(), "view_only_basic_machines_keypad", form)
-- end
end
})
-- DETECTOR --
minetest.register_node("basic_machines:detector", {
description = "Detector - can detect blocks/players/objects and activate machines",
tiles = {"detector.png"},
groups = {oddly_breakable_by_hand=2},
sounds = default.node_sound_wood_defaults(),
after_place_node = function(pos, placer)
local meta = minetest.env:get_meta(pos)
meta:set_string("infotext", "Detector. Right click/punch to set it up.")
meta:set_string("owner", placer:get_player_name()); meta:set_int("public",0);
meta:set_int("x1",0);meta:set_int("y1",0);meta:set_int("z0",0); -- source: read
meta:set_int("x2",0);meta:set_int("y2",0);meta:set_int("z2",0); -- target: activate
meta:set_int("r",0)
meta:set_string("node","");meta:set_int("NOT",0);meta:set_string("mode","node");
meta:set_string("mode","node");
meta:set_int("public",0);
local inv = meta:get_inventory();inv:set_size("mode_select", 3*1)
inv:set_stack("mode_select", 1, ItemStack("default:coal_lump"))
local name = placer:get_player_name();punchset[name] = {}; punchset[name].node = ""; punchset[name].state = 0
end,
mesecons = {effector = {
action_on = function (pos, node,ttl)
if type(ttl)~="number" then ttl = 1 end
if ttl<0 then return end -- prevent infinite recursion
local meta = minetest.get_meta(pos);
local state = meta:get_int("state") or 0;
state = state + 1;
meta:set_int("state",state);
end,
action_off = function (pos, node,ttl)
if type(ttl)~="number" then ttl = 1 end
if ttl<0 then return end -- prevent infinite recursion
local meta = minetest.get_meta(pos);
local state = meta:get_int("state") or 0;
state = state - 1;
meta:set_int("state",state);
end
}
},
on_rightclick = function(pos, node, player, itemstack, pointed_thing)
local meta = minetest.get_meta(pos);
local privs = minetest.get_player_privs(player:get_player_name());
local cant_build = minetest.is_protected(pos,player:get_player_name());
--meta:get_string("owner")~=player:get_player_name() and
if not privs.privs and cant_build then
return
end
local x0,y0,z0,x1,y1,z1,x2,y2,z2,r,node,NOT,mode,op;
x0=meta:get_int("x0");y0=meta:get_int("y0");z0=meta:get_int("z0");
x1=meta:get_int("x1");y1=meta:get_int("y1");z1=meta:get_int("z1");
x2=meta:get_int("x2");y2=meta:get_int("y2");z2=meta:get_int("z2");r=meta:get_int("r");
mode=meta:get_string("mode"); op = meta:get_string("op");
local mode_list = {["node"]=1,["player"]=2,["object"]=3,["inventory"]=4};
mode = mode_list[mode] or 1;
local op_list = {[""]=1,["AND"]=2,["OR"]=3};
op = op_list[op] or 1;
machines.pos1[player:get_player_name()] = {x=pos.x+x0,y=pos.y+y0,z=pos.z+z0};machines.mark_pos1(player:get_player_name()) -- mark pos1
machines.pos11[player:get_player_name()] = {x=pos.x+x1,y=pos.y+y1,z=pos.z+z1};machines.mark_pos11(player:get_player_name()) -- mark pos11
machines.pos2[player:get_player_name()] = {x=pos.x+x2,y=pos.y+y2,z=pos.z+z2};machines.mark_pos2(player:get_player_name()) -- mark pos2
local inv1=1;
local inv1m = meta:get_string("inv1");
local meta1=minetest.get_meta({x=pos.x+x0,y=pos.y+y0,z=pos.z+z0});
local list1 = meta1:get_inventory():get_lists(); local inv_list1 = ""; local j;
j=1; -- stupid dropdown requires item index but returns string on receive so we have to find index.. grrr, one other solution: invert the table: key <-> value
for i in pairs( list1) do
inv_list1 = inv_list1 .. i .. ",";
if i == inv1m then inv1=j end; j=j+1;
end
node=meta:get_string("node") or "";
NOT=meta:get_int("NOT");
local list_name = "nodemeta:"..pos.x..','..pos.y..','..pos.z
local form =
"size[4,6.25]" .. -- width, height
"field[0.25,0.5;1,1;x0;source1;"..x0.."] field[1.25,0.5;1,1;y0;;"..y0.."] field[2.25,0.5;1,1;z0;;"..z0.."]"..
"dropdown[3,0.25;1,1;op; ,AND,OR;".. op .."]"..
"field[0.25,1.5;1,1;x1;source2;"..x1.."] field[1.25,1.5;1,1;y1;;"..y1.."] field[2.25,1.5;1,1;z1;;"..z1.."]"..
"field[0.25,2.5;1,1;x2;target;"..x2.."] field[1.25,2.5;1,1;y2;;"..y2.."] field[2.25,2.5;1,1;z2;;"..z2.."]"..
"field[0.25,3.5;2,1;node;Node/player/object: ;"..node.."]".."field[3.25,2.5;1,1;r;radius;"..r.."]"..
"dropdown[0,4.5;3,1;mode;node,player,object,inventory;".. mode .."]"..
"dropdown[0,5.5;3,1;inv1;"..inv_list1..";".. inv1 .."]"..
"label[0.,4.0;MODE selection]"..
"label[0.,5.2;inventory selection]"..
"field[3.25,3.5;1,1;NOT;NOT 0/1;"..NOT.."]"..
"button[3.,4.4;1,1;help;help] button_exit[3.,5.4;1,1;OK;OK] "
--if meta:get_string("owner")==player:get_player_name() then
minetest.show_formspec(player:get_player_name(), "basic_machines:detector_"..minetest.pos_to_string(pos), form)
-- else
-- minetest.show_formspec(player:get_player_name(), "view_only_basic_machines_detector", form)
-- end
end,
allow_metadata_inventory_put = function(pos, listname, index, stack, player)
return 0
end,
allow_metadata_inventory_take = function(pos, listname, index, stack, player)
return 0
end,
allow_metadata_inventory_move = function(pos, from_list, from_index, to_list, to_index, count, player)
local meta = minetest.get_meta(pos);
local mode = "node";
if to_index == 2 then
mode = "player";
meta:set_int("r",math.max(meta:get_int("r"),1))
end
if to_index == 3 then
mode = "object";
meta:set_int("r",math.max(meta:get_int("r"),1))
end
meta:set_string("mode",mode)
minetest.chat_send_player(player:get_player_name(), "DETECTOR: Mode of operation set to: "..mode)
return count
end,
})
minetest.register_abm({
nodenames = {"basic_machines:detector"},
neighbors = {""},
interval = machines_timer,
chance = 1,
action = function(pos, node, active_object_count, active_object_count_wider)
local meta = minetest.get_meta(pos);
local x0,y0,z0,x1,y1,z1,x2,y2,z2,r,node,NOT,mode,op;
x0=meta:get_int("x0")+pos.x;y0=meta:get_int("y0")+pos.y;z0=meta:get_int("z0")+pos.z;
x2=meta:get_int("x2")+pos.x;y2=meta:get_int("y2")+pos.y;z2=meta:get_int("z2")+pos.z;
r = meta:get_int("r") or 0; NOT = meta:get_int("NOT")
node=meta:get_string("node") or ""; mode=meta:get_string("mode") or ""; op = meta:get_string("op") or "";
local trigger = false
if mode == "node" then
local tnode = minetest.get_node({x=x0,y=y0,z=z0}).name; -- read node at source position
if node~="" and string.find(tnode,"default:chest") then -- it source is chest, look inside chest for items
local cmeta = minetest.get_meta({x=x0,y=y0,z=z0});
local inv = cmeta:get_inventory();
local stack = ItemStack(node)
if inv:contains_item("main", stack) then trigger = true end
else -- source not a chest
if (node=="" and tnode~="air") or node == tnode then trigger = true end
if r>0 and node~="" then
local found_node = minetest.find_node_near({x=x0, y=y0, z=z0}, r, {node})
if node ~= "" and found_node then trigger = true end
end
end
-- operation: AND, OR... look at other source position too
if op~= "" then
local trigger1 = false;
x1=meta:get_int("x1")+pos.x;y1=meta:get_int("y1")+pos.y;z1=meta:get_int("z1")+pos.z;
tnode = minetest.get_node({x=x1,y=y1,z=z1}).name; -- read node at source position
if node~="" and string.find(tnode,"default:chest") then -- it source is chest, look inside chest for items
local cmeta = minetest.get_meta({x=x1,y=y1,z=z1});
local inv = cmeta:get_inventory();
local stack = ItemStack(node)
if inv:contains_item("main", stack) then trigger1 = true end
else -- source not a chest
if (node=="" and tnode~="air") or node == tnode then trigger1 = true end
if r>0 and node~="" then
local found_node = minetest.find_node_near({x=x0, y=y0, z=z0}, r, {node})
if node ~= "" and found_node then trigger1 = true end
end
end
if op == "AND" then
trigger = trigger and trigger1;
elseif "op" == "OR" then
trigger = trigger or trigger1;
end
end
if NOT == 1 then trigger = not trigger end
elseif mode=="inventory" then
local cmeta = minetest.get_meta({x=x0,y=y0,z=z0});
local inv = cmeta:get_inventory();
local stack = ItemStack(node);
local inv1m =meta:get_string("inv1");
if inv:contains_item(inv1m, stack) then trigger = true end
else
local objects = minetest.get_objects_inside_radius({x=x0,y=y0,z=z0}, r)
local player_near=false;
for _,obj in pairs(objects) do
if mode == "player" then
if obj:is_player() then
player_near = true
if (node=="" or obj:get_player_name()==node) then
trigger = true break
end
end;
elseif mode == "object" and not obj:is_player() then
if node=="" then trigger = true break end
if obj:get_luaentity() then
if obj:get_luaentity().name==node then trigger=true break end
end
end
end
-- negation
if node~="" and NOT==1 and not(trigger) and not(player_near) and mode == "player" then trigger = false -- name specified, but noone around and negation -> 0
else if NOT == 1 then trigger = not trigger end
end
end
local node = minetest.get_node({x=x2,y=y2,z=z2});if not node.name then return end -- error
local table = minetest.registered_nodes[node.name];
if not table then return end -- error
if not table.mesecons then return end -- error
if not table.mesecons.effector then return end -- error
local effector=table.mesecons.effector;
if trigger then -- activate target node if succesful
meta:set_string("infotext", "detector: on");
if not effector.action_on then return end
effector.action_on({x=x2,y=y2,z=z2},node,machines_TTL); -- run
else
meta:set_string("infotext", "detector: idle");
-- if not effector.action_off then return end
-- effector.action_off({x=x1,y=y1,z=z1},node,machines_TTL); -- run
end
end,
})
-- DISTRIBUTOR --
minetest.register_node("basic_machines:distributor", {
description = "Distributor - can forward signal up to 16 different targets",
tiles = {"distributor.png"},
groups = {oddly_breakable_by_hand=2},
sounds = default.node_sound_wood_defaults(),
after_place_node = function(pos, placer)
local meta = minetest.env:get_meta(pos)
meta:set_string("infotext", "Distributor. Right click/punch to set it up.")
meta:set_string("owner", placer:get_player_name()); meta:set_int("public",0);
for i=1,10 do
meta:set_int("x"..i,0);meta:set_int("y"..i,1);meta:set_int("z"..i,0);meta:set_int("active"..i,1) -- target i
end
meta:set_int("n",2); -- how many targets initially
meta:set_float("delay",0); -- delay when transmitting signal
meta:set_int("public",0); -- can other ppl set it up?
local name = placer:get_player_name();punchset[name] = {}; punchset[name].node = ""; punchset[name].state = 0
end,
mesecons = {effector = {
action_on = function (pos, node,ttl)
if type(ttl)~="number" then ttl = 1 end
if not(ttl>0) then return end
local meta = minetest.get_meta(pos);
local t0 = meta:get_int("t");
local t1 = minetest.get_gametime();
if t1<=t0 then
local delay = machines_timer+1;
minetest.sound_play("default_cool_lava",{pos = pos, max_hear_distance = 16, gain = 0.25})
meta:set_string("infotext","DISTRIBUTOR: burned out due to too fast activation. Wait "..delay.."s for cooldown."); meta:set_int("t",t1+delay); return
elseif meta:get_string("infotext")~="" then
meta:set_string("infotext","")
end
meta:set_int("t",t1); -- update last activation time
local posf = {}; local active = {};
local n = meta:get_int("n");local delay = meta:get_float("delay");
for i =1,n do
posf[i]={x=meta:get_int("x"..i)+pos.x,y=meta:get_int("y"..i)+pos.y,z=meta:get_int("z"..i)+pos.z};
active[i]=meta:get_int("active"..i);
end
local table,node;
for i=1,n do
if active[i]~=0 then
node = minetest.get_node(posf[i]);if not node.name then return end -- error
table = minetest.registered_nodes[node.name];
if table and table.mesecons and table.mesecons.effector then -- check if all elements exist, safe cause it checks from left to right
-- alternative way: overkill
--ret = pcall(function() if not table.mesecons.effector then end end); -- exception handling to determine if structure exists
local effector=table.mesecons.effector;
local delay = minetest.get_meta(pos):get_float("delay");
if (active[i] == 1 or active[i] == 2) and effector.action_on then -- normal OR only forward input ON
if delay>0 then
minetest.after(delay, function() effector.action_on(posf[i],node,ttl-1) end);
else
effector.action_on(posf[i],node,ttl-1);
end
elseif active[i] == -1 and effector.action_off then
if delay>0 then
minetest.after(delay, function() effector.action_off(posf[i],node,ttl-1) end);
else
effector.action_off(posf[i],node,ttl-1)
end
end
end
end
end
end,
action_off = function (pos, node,ttl)
if type(ttl)~="number" then ttl = 1 end
if not(ttl>0) then return end
local meta = minetest.get_meta(pos);
local t0 = meta:get_int("t");
local t1 = minetest.get_gametime();
if t1<=t0 then
local delay = machines_timer+1;
minetest.sound_play("default_cool_lava",{pos = pos, max_hear_distance = 16, gain = 0.25})
meta:set_string("infotext","DISTRIBUTOR: burned out due to too fast activation. Wait "..delay.."s for cooldown."); meta:set_int("t",t1+delay); return
elseif meta:get_string("infotext")~="" then
meta:set_string("infotext","")
end
meta:set_int("t",t1); -- update last activation time
local posf = {}; local active = {};
local n = meta:get_int("n");
for i =1,n do
posf[i]={x=meta:get_int("x"..i)+pos.x,y=meta:get_int("y"..i)+pos.y,z=meta:get_int("z"..i)+pos.z};
active[i]=meta:get_int("active"..i);
end
local node, table
for i=1,n do
if active[i]~=0 then
node = minetest.get_node(posf[i]);if not node.name then return end -- error
table = minetest.registered_nodes[node.name];
if table and table.mesecons and table.mesecons.effector then
local effector=table.mesecons.effector;
local delay = minetest.get_meta(pos):get_float("delay");
if (active[i] == 1 or active[i]==-2) and effector.action_off then -- normal OR only forward input OFF
if delay>0 then
minetest.after(delay, function() effector.action_off(posf[i],node,ttl-1) end);
else
effector.action_off(posf[i],node,ttl-1);
end
elseif (active[i] == -1) and effector.action_on then
if delay>0 then
minetest.after(delay, function() effector.action_on(posf[i],node,ttl-1) end);
else
effector.action_on(posf[i],node,ttl-1);
end
end
end
end
end
end
}
},
on_rightclick = function(pos, node, player, itemstack, pointed_thing)
local meta = minetest.get_meta(pos);
local privs = minetest.get_player_privs(player:get_player_name());
local cant_build = minetest.is_protected(pos,player:get_player_name());
--meta:get_string("owner")~=player:get_player_name() and
if not privs.privs and cant_build then
return
end
local p = {}; local active = {};
local n = meta:get_int("n");
local delay = meta:get_float("delay");
for i =1,n do
p[i]={x=meta:get_int("x"..i),y=meta:get_int("y"..i),z=meta:get_int("z"..i)};
active[i]=meta:get_int("active"..i);
end
-- machines.pos1[player:get_player_name()] = {x=pos.x+x1,y=pos.y+y1,z=pos.z+z1};machines.mark_pos1(player:get_player_name()) -- mark pos1
-- machines.pos2[player:get_player_name()] = {x=pos.x+x2,y=pos.y+y2,z=pos.z+z2};machines.mark_pos2(player:get_player_name()) -- mark pos2
local list_name = "nodemeta:"..pos.x..','..pos.y..','..pos.z
local form =
"size[7,"..(0.75+(n)*0.75).."]" .. -- width, height
"label[0,-0.25;target: x y z, MODE -2=only OFF, -1=NOT input/0/1=input, 2 = only ON]";
for i =1,n do
form = form.."field[0.25,"..(0.5+(i-1)*0.75)..";1,1;x"..i..";;"..p[i].x.."] field[1.25,"..(0.5+(i-1)*0.75)..";1,1;y"..i..";;"..p[i].y.."] field[2.25,"..(0.5+(i-1)*0.75)..";1,1;z"..i..";;"..p[i].z.."] field [ 3.25,"..(0.5+(i-1)*0.75)..";1,1;active"..i..";;" .. active[i] .. "]"
form = form .. "button[4.,"..(0.25+(i-1)*0.75)..";1.5,1;SHOW"..i..";SHOW "..i.."]".."button_exit[5.25,"..(0.25+(i-1)*0.75)..";1,1;SET"..i..";SET]".."button_exit[6.25,"..(0.25+(i-1)*0.75)..";1,1;X"..i..";X]"
end
form=form.."button_exit[4.25,"..(0.25+(n)*0.75)..";1,1;ADD;ADD]".."button_exit[3.,"..(0.25+(n)*0.75)..";1,1;OK;OK]".."field[0.25,"..(0.5+(n)*0.75)..";1,1;delay;delay;"..delay .. "]";
--if meta:get_string("owner")==player:get_player_name() then
minetest.show_formspec(player:get_player_name(), "basic_machines:distributor_"..minetest.pos_to_string(pos), form)
-- else
-- minetest.show_formspec(player:get_player_name(), "view_only_basic_machines_distributor", form)
--end
end,
}
)
-- LIGHT --
minetest.register_node("basic_machines:light_off", {
description = "Light off",
tiles = {"light_off.png"},
groups = {oddly_breakable_by_hand=2},
mesecons = {effector = {
action_on = function (pos, node,ttl)
minetest.swap_node(pos,{name = "basic_machines:light_on"});
local meta = minetest.get_meta(pos);
local deactivate = meta:get_int("deactivate");
--minetest.chat_send_all("deactivate ".. deactivate)
if deactivate > 0 then
meta:set_int("active",0);
minetest.after(deactivate,
function()
if meta:get_int("active") ~= 1 then -- was not activated again, so turn it off
minetest.swap_node(pos,{name = "basic_machines:light_off"}); -- turn off again
meta:set_int("active",0);
end
end
)
end
end
}
},
})
minetest.register_node("basic_machines:light_on", {
description = "Light on",
tiles = {"light.png"},
groups = {oddly_breakable_by_hand=2},
light_source = LIGHT_MAX,
after_place_node = function(pos, placer)
local meta = minetest.get_meta(pos);
local list_name = "nodemeta:"..pos.x..','..pos.y..','..pos.z
local deactivate = meta:get_int("deactivate");
local form = "size[2,2] field[0.25,0.5;2,1;deactivate;deactivate after ;"..deactivate.."]".."button_exit[0.,1;1,1;OK;OK]";
meta:set_string("formspec", form);
end,
on_receive_fields = function(pos, formname, fields, player)
if minetest.is_protected(pos, player:get_player_name()) then return end
if fields.deactivate then
local meta = minetest.get_meta(pos);
local deactivate = tonumber(fields.deactivate) or 0;
if deactivate <0 or deactivate > 600 then deactivate = 0 end
meta:set_int("deactivate",deactivate);
local form = "size[2,2] field[0.25,0.5;2,1;deactivate;deactivate after ;"..deactivate.."]".."button_exit[0.,1;1,1;OK;OK]";
meta:set_string("formspec", form);
end
end,
mesecons = {effector = {
action_off = function (pos, node,ttl)
minetest.swap_node(pos,{name = "basic_machines:light_off"});
end,
action_on = function (pos, node,ttl)
local meta = minetest.get_meta(pos);
meta:set_int("active",1); -- remember being activated
end
}
},
})
punchset.known_nodes = {["basic_machines:mover"]=true,["basic_machines:keypad"]=true,["basic_machines:detector"]=true};
-- SETUP BY PUNCHING
minetest.register_on_punchnode(function(pos, node, puncher, pointed_thing)
local name = puncher:get_player_name(); if name==nil then return end
if punchset[name]== nil then -- set up punchstate
punchset[name] = {}
punchset[name].node = ""
punchset[name].pos1 = {x=0,y=0,z=0};punchset[name].pos2 = {x=0,y=0,z=0};punchset[name].pos = {x=0,y=0,z=0};
punchset[name].state = 0; -- 0 ready for punch, 1 ready for start position, 2 ready for end position
return
end
-- check for known node names in case of first punch
if punchset[name].state == 0 and not punchset.known_nodes[node.name] then return end
-- from now on only punches with mover/keypad/... or setup punches
if punchset.known_nodes[node.name] then -- check if owner of machine is punching or if machine public
if minetest.is_protected(pos, name) then return end
-- local meta = minetest.get_meta(pos);
-- if not (meta:get_int("public") == 1) then
-- if meta:get_string("owner")~= name then return end
-- end
end
if node.name == "basic_machines:mover" then -- mover init code
if punchset[name].state == 0 then
-- if not puncher:get_player_control().sneak then
-- return
-- end
minetest.chat_send_player(name, "MOVER: Now punch source1, source2, end position to set up mover.")
punchset[name].node = node.name;punchset[name].pos = {x=pos.x,y=pos.y,z=pos.z};
punchset[name].state = 1
return
end
end
if punchset[name].node == "basic_machines:mover" then -- mover code
if minetest.is_protected(pos,name) then
minetest.chat_send_player(name, "MOVER: Punched position is protected. aborting.")
punchset[name].node = "";
punchset[name].state = 0; return
end
local meta = minetest.get_meta(punchset[name].pos); if not meta then return end;
local range = meta:get_float("upgrade") or 1; range = range*max_range;
if punchset[name].state == 1 then
local privs = minetest.get_player_privs(puncher:get_player_name());
if not privs.privs and (math.abs(punchset[name].pos.x - pos.x)>range or math.abs(punchset[name].pos.y - pos.y)>range or math.abs(punchset[name].pos.z - pos.z)>range) then
minetest.chat_send_player(name, "MOVER: Punch closer to mover. reseting.")
punchset[name].state = 0; return
end
if punchset[name].pos.x==pos.x and punchset[name].pos.y==pos.y and punchset[name].pos.z==pos.z then
minetest.chat_send_player(name, "MOVER: Punch something else. aborting.")
punchset[name].state = 0;
return
end
punchset[name].pos1 = {x=pos.x,y=pos.y,z=pos.z};punchset[name].state = 2;
machines.pos1[name] = punchset[name].pos1;machines.mark_pos1(name) -- mark position
minetest.chat_send_player(name, "MOVER: Source1 position for mover set. Punch again to set source2 position.")
return
end
if punchset[name].state == 2 then
local privs = minetest.get_player_privs(puncher:get_player_name());
if not privs.privs and (math.abs(punchset[name].pos.x - pos.x)>range or math.abs(punchset[name].pos.y - pos.y)>range or math.abs(punchset[name].pos.z - pos.z)>range) then
minetest.chat_send_player(name, "MOVER: Punch closer to mover. reseting.")
punchset[name].state = 0; return
end
if punchset[name].pos.x==pos.x and punchset[name].pos.y==pos.y and punchset[name].pos.z==pos.z then
minetest.chat_send_player(name, "MOVER: Punch something else. aborting.")
punchset[name].state = 0;
return
end
punchset[name].pos11 = {x=pos.x,y=pos.y,z=pos.z};punchset[name].state = 3;
machines.pos11[name] = {x=pos.x,y=pos.y,z=pos.z};
machines.mark_pos11(name) -- mark pos11
minetest.chat_send_player(name, "MOVER: Source2 position for mover set. Punch again to set target position.")
return
end
if punchset[name].state == 3 then
if punchset[name].node~="basic_machines:mover" then punchset[name].state = 0 return end
local privs = minetest.get_player_privs(puncher:get_player_name());
if not privs.privs and (math.abs(punchset[name].pos.x - pos.x)>range or math.abs(punchset[name].pos.y - pos.y)>range or math.abs(punchset[name].pos.z - pos.z)>range) then
minetest.chat_send_player(name, "MOVER: Punch closer to mover. aborting.")
punchset[name].state = 0; return
end
punchset[name].pos2 = {x=pos.x,y=pos.y,z=pos.z}; punchset[name].state = 0;
machines.pos2[name] = punchset[name].pos2;machines.mark_pos2(name) -- mark pos2
minetest.chat_send_player(name, "MOVER: End position for mover set.")
local x = punchset[name].pos1.x-punchset[name].pos.x;
local y = punchset[name].pos1.y-punchset[name].pos.y;
local z = punchset[name].pos1.z-punchset[name].pos.z;
local meta = minetest.get_meta(punchset[name].pos);
meta:set_int("x0",x);meta:set_int("y0",y);meta:set_int("z0",z);
x = punchset[name].pos11.x-punchset[name].pos.x;
y = punchset[name].pos11.y-punchset[name].pos.y;
z = punchset[name].pos11.z-punchset[name].pos.z;
meta:set_int("x1",x);meta:set_int("y1",y);meta:set_int("z1",z);
x = punchset[name].pos2.x-punchset[name].pos.x;
y = punchset[name].pos2.y-punchset[name].pos.y;
z = punchset[name].pos2.z-punchset[name].pos.z;
meta:set_int("x2",x);meta:set_int("y2",y);meta:set_int("z2",z);
local x0,y0,z0,x1,y1,z1;
x0 = meta:get_int("x0");y0 = meta:get_int("y0");z0 = meta:get_int("z0");
x1 = meta:get_int("x1");y1 = meta:get_int("y1");z1 = meta:get_int("z1");
meta:set_int("pc",0); meta:set_int("dim",(x1-x0+1)*(y1-y0+1)*(z1-z0+1))
return
end
end
-- KEYPAD
if node.name == "basic_machines:keypad" then -- keypad init/usage code
local meta = minetest.get_meta(pos);
if not (meta:get_int("x0")==0 and meta:get_int("y0")==0 and meta:get_int("z0")==0) then -- already configured
check_keypad(pos,name)-- not setup, just standard operation
else
if minetest.is_protected(pos, name) then return minetest.chat_send_player(name, "KEYPAD: You must be able to build to set up keypad.") end
--if meta:get_string("owner")~= name then minetest.chat_send_player(name, "KEYPAD: Only owner can set up keypad.") return end
if punchset[name].state == 0 then
minetest.chat_send_player(name, "KEYPAD: Now punch the target block.")
punchset[name].node = node.name;punchset[name].pos = {x=pos.x,y=pos.y,z=pos.z};
punchset[name].state = 1
return
end
end
end
if punchset[name].node=="basic_machines:keypad" then -- keypad setup code
if minetest.is_protected(pos,name) then
minetest.chat_send_player(name, "KEYPAD: Punched position is protected. aborting.")
punchset[name].node = "";
punchset[name].state = 0; return
end
if punchset[name].state == 1 then
local meta = minetest.get_meta(punchset[name].pos);
local x = pos.x-punchset[name].pos.x;
local y = pos.y-punchset[name].pos.y;
local z = pos.z-punchset[name].pos.z;
if math.abs(x)>max_range or math.abs(y)>max_range or math.abs(z)>max_range then
minetest.chat_send_player(name, "KEYPAD: Punch closer to keypad. reseting.")
punchset[name].state = 0; return
end
machines.pos1[name] = pos;
machines.mark_pos1(name) -- mark pos1
meta:set_int("x0",x);meta:set_int("y0",y);meta:set_int("z0",z);
punchset[name].state = 0
minetest.chat_send_player(name, "KEYPAD: Keypad target set with coordinates " .. x .. " " .. y .. " " .. z)
meta:set_string("infotext", "Punch keypad to use it.");
return
end
end
-- DETECTOR "basic_machines:detector"
if node.name == "basic_machines:detector" then -- detector init code
local meta = minetest.get_meta(pos);
--meta:get_string("owner")~= name
if minetest.is_protected(pos,name) then minetest.chat_send_player(name, "DETECTOR: You must be able to build to set up detector.") return end
if punchset[name].state == 0 then
minetest.chat_send_player(name, "DETECTOR: Now punch the source block.")
punchset[name].node = node.name;
punchset[name].pos = {x=pos.x,y=pos.y,z=pos.z};
punchset[name].state = 1
return
end
end
if punchset[name].node == "basic_machines:detector" then
if minetest.is_protected(pos,name) then
minetest.chat_send_player(name, "DETECTOR: Punched position is protected. aborting.")
punchset[name].node = "";
punchset[name].state = 0; return
end
if punchset[name].state == 1 then
if math.abs(punchset[name].pos.x - pos.x)>max_range or math.abs(punchset[name].pos.y - pos.y)>max_range or math.abs(punchset[name].pos.z - pos.z)>max_range then
minetest.chat_send_player(name, "DETECTOR: Punch closer to detector. aborting.")
punchset[name].state = 0; return
end
minetest.chat_send_player(name, "DETECTOR: Now punch the target machine.")
punchset[name].pos1 = {x=pos.x,y=pos.y,z=pos.z};
machines.pos1[name] = pos;machines.mark_pos1(name) -- mark pos1
punchset[name].state = 2
return
end
if punchset[name].state == 2 then
if math.abs(punchset[name].pos.x - pos.x)>max_range or math.abs(punchset[name].pos.y - pos.y)>max_range or math.abs(punchset[name].pos.z - pos.z)>max_range then
minetest.chat_send_player(name, "DETECTOR: Punch closer to detector. aborting.")
punchset[name].state = 0; return
end
minetest.chat_send_player(name, "DETECTOR: Setup complete.")
machines.pos2[name] = pos;machines.mark_pos2(name) -- mark pos2
local x = punchset[name].pos1.x-punchset[name].pos.x;
local y = punchset[name].pos1.y-punchset[name].pos.y;
local z = punchset[name].pos1.z-punchset[name].pos.z;
local meta = minetest.get_meta(punchset[name].pos);
meta:set_int("x0",x);meta:set_int("y0",y);meta:set_int("z0",z);
x=pos.x-punchset[name].pos.x;y=pos.y-punchset[name].pos.y;z=pos.z-punchset[name].pos.z;
meta:set_int("x2",x);meta:set_int("y2",y);meta:set_int("z2",z);
punchset[name].state = 0
return
end
end
if punchset[name].node == "basic_machines:distributor" then
if minetest.is_protected(pos,name) then
minetest.chat_send_player(name, "DISTRIBUTOR: Punched position is protected. aborting.")
punchset[name].node = "";
punchset[name].state = 0; return
end
if punchset[name].state > 0 then
if math.abs(punchset[name].pos.x - pos.x)>max_range or math.abs(punchset[name].pos.y - pos.y)>max_range or math.abs(punchset[name].pos.z - pos.z)>max_range then
minetest.chat_send_player(name, "DISTRIBUTOR: Punch closer to distributor. aborting.")
punchset[name].state = 0; return
end
minetest.chat_send_player(name, "DISTRIBUTOR: target set.")
local meta = minetest.get_meta(punchset[name].pos);
local x = pos.x-punchset[name].pos.x;
local y = pos.y-punchset[name].pos.y;
local z = pos.z-punchset[name].pos.z;
local j = punchset[name].state;
meta:set_int("x"..j,x);meta:set_int("y"..j,y);meta:set_int("z"..j,z);
if x==0 and y==0 and z==0 then meta:set_int("active"..j,0) end
machines.pos1[name] = pos;machines.mark_pos1(name) -- mark pos1
punchset[name].state = 0;
return
end
end
end)
-- FORM PROCESSING for all machines
minetest.register_on_player_receive_fields(function(player,formname,fields)
-- MOVER
local fname = "basic_machines:mover_"
if string.sub(formname,0,string.len(fname)) == fname then
local pos_s = string.sub(formname,string.len(fname)+1); local pos = minetest.string_to_pos(pos_s)
local name = player:get_player_name(); if name==nil then return end
local meta = minetest.get_meta(pos)
local privs = minetest.get_player_privs(name);
if (minetest.is_protected(pos,name) and not privs.privs) or not fields then return end -- only builder can interact
if fields.help == "help" then
local text = "SETUP: For interactive setup "..
"punch the mover and then punch source1, source2, target node (follow instructions). Put charged battery within distance 1 from mover. For advanced setup right click mover. Positions are defined by x y z coordinates (see top of mover for orientation). Mover itself is at coordinates 0 0 0. "..
"\n\nMODES of operation: normal (just teleport block), dig (digs and gives you resulted node - good for harvesting farms), drop "..
"(drops node on ground), object (teleportation of player and objects. distance between source1/2 defines teleport radius). "..
"By setting 'filter' only selected nodes are moved.\nInventory mode can exchange items between node inventories. You need to select inventory name for source/target from the dropdown list on the right and enter node to be moved into filter."..
"\n*advanced* You can reverse start/end position by setting reverse nonzero. This is useful for placing stuff at many locations-planting. If you activate mover with OFF signal it will toggle reverse." ..
"\n\n FUEL CONSUMPTION depends on blocks to be moved and distance. For example, stone or tree is harder to move than dirt, harvesting wheat is very cheap and and moving lava is very hard."..
"\n\n UPGRADE mover by moving mese blocks in upgrade inventory. Each mese block increases mover range by 10, fuel consumption is divided by (number of mese blocks)+1 in upgrade. Max 10 blocks are used for upgrade. Dont forget to click OK to refresh after upgrade. "..
"\n\n Activate mover by keypad/detector signal or mese signal (if mesecons mod) .";
local form = "size [6,7] textarea[0,0;6.5,8.5;help;MOVER HELP;".. text.."]"
minetest.show_formspec(name, "basic_machines:help_mover", form)
end
if fields.OK == "OK" then
local x0,y0,z0,x1,y1,z1,x2,y2,z2;
x0=tonumber(fields.x0) or 0;y0=tonumber(fields.y0) or -1;z0=tonumber(fields.z0) or 0
x1=tonumber(fields.x1) or 0;y1=tonumber(fields.y1) or -1;z1=tonumber(fields.z1) or 0
x2=tonumber(fields.x2) or 0;y2=tonumber(fields.y2) or 1;z2=tonumber(fields.z2) or 0;
local range = meta:get_float("upgrade") or 1; range = range * max_range;
-- did the numbers change from last time?
if meta:get_int("x0")~=x0 or meta:get_int("y0")~=y0 or meta:get_int("z0")~=z0 or
meta:get_int("x1")~=x1 or meta:get_int("y1")~=y1 or meta:get_int("z1")~=z1 or
meta:get_int("x2")~=x2 or meta:get_int("y2")~=y2 or meta:get_int("z2")~=z2 then
-- are new numbers inside bounds?
if not privs.privs and (math.abs(x1)>max_range or math.abs(y1)>max_range or math.abs(z1)>max_range or math.abs(x2)>max_range or math.abs(y2)>max_range or math.abs(z2)>max_range) then
minetest.chat_send_player(name,"#mover: all coordinates must be between ".. -max_range .. " and " .. max_range .. ". For increased range set up positions by punching"); return
end
end
if fields.mode then
meta:set_string("mode",fields.mode);
end
if fields.reverse then
meta:set_string("reverse",fields.reverse);
end
if fields.inv1 then
meta:set_string("inv1",fields.inv1);
end
if fields.inv2 then
meta:set_string("inv2",fields.inv2);
end
-- update upgrades
local upgrade = 0;
local inv = meta:get_inventory();
if inv:contains_item("upgrade", ItemStack({name="default:mese"})) then
upgrade = (inv:get_stack("upgrade", 1):get_count()) or 0;
if upgrade > 10 then upgrade = 10 end -- not more than 10
meta:set_float("upgrade",upgrade+1);
end
local x = x0; x0 = math.min(x,x1); x1 = math.max(x,x1);
local y = y0; y0 = math.min(y,y1); y1 = math.max(y,y1);
local z = z0; z0 = math.min(z,z1); z1 = math.max(z,z1);
if minetest.is_protected({x=pos.x+x0,y=pos.y+y0,z=pos.z+z0},name) then
minetest.chat_send_player(name, "MOVER: position is protected. aborting.")
return
end
if minetest.is_protected({x=pos.x+x1,y=pos.y+y1,z=pos.z+z1},name) then
minetest.chat_send_player(name, "MOVER: position is protected. aborting.")
return
end
meta:set_int("x0",x0);meta:set_int("y0",y0);meta:set_int("z0",z0);
meta:set_int("x1",x1);meta:set_int("y1",y1);meta:set_int("z1",z1);
meta:set_int("dim",(x1-x0+1)*(y1-y0+1)*(z1-z0+1))
meta:set_int("x2",x2);meta:set_int("y2",y2);meta:set_int("z2",z2);
meta:set_string("prefer",fields.prefer or "");
meta:set_string("infotext", "Mover block. Set up with source coordinates ".. x0 ..","..y0..","..z0.. " -> ".. x1 ..","..y1..","..z1.. " and target coord ".. x2 ..","..y2..",".. z2 .. ". Put charged battery next to it and start it with keypad/mese signal.");
if meta:get_float("fuel")<0 then meta:set_float("fuel",0) end -- reset block
end
return
end
-- KEYPAD
fname = "basic_machines:keypad_"
if string.sub(formname,0,string.len(fname)) == fname then
local pos_s = string.sub(formname,string.len(fname)+1); local pos = minetest.string_to_pos(pos_s)
local name = player:get_player_name(); if name==nil then return end
local meta = minetest.get_meta(pos)
local privs = minetest.get_player_privs(player:get_player_name());
if (minetest.is_protected(pos,name) and not privs.privs) or not fields then return end -- only builder can interact
if fields.OK == "OK" then
local x0,y0,z0,pass,mode;
x0=tonumber(fields.x0) or 0;y0=tonumber(fields.y0) or 1;z0=tonumber(fields.z0) or 0
pass = fields.pass or ""; mode = fields.mode or 1;
if minetest.is_protected({x=pos.x+x0,y=pos.y+y0,z=pos.z+z0},name) then
minetest.chat_send_player(name, "KEYPAD: position is protected. aborting.")
return
end
if not privs.privs and (math.abs(x0)>max_range or math.abs(y0)>max_range or math.abs(z0)>max_range) then
minetest.chat_send_player(name,"#keypad: all coordinates must be between ".. -max_range .. " and " .. max_range); return
end
meta:set_int("x0",x0);meta:set_int("y0",y0);meta:set_int("z0",z0);
if fields.pass then
if fields.pass~="" and string.len(fields.pass)<=16 then -- dont replace password with hash which is longer - 27 chars
pass=minetest.get_password_hash(pos.x, pass..pos.y);pass=minetest.get_password_hash(pos.y, pass..pos.z);
meta:set_string("pass",pass);
end
end
meta:set_int("iter",math.min(tonumber(fields.iter) or 1,500));meta:set_int("mode",mode);
meta:set_string("infotext", "Punch keypad to use it.");
if pass~="" then meta:set_string("infotext",meta:get_string("infotext").. ". Password protected."); end
end
return
end
fname = "basic_machines:check_keypad_"
if string.sub(formname,0,string.len(fname)) == fname then
local pos_s = string.sub(formname,string.len(fname)+1); local pos = minetest.string_to_pos(pos_s)
local name = player:get_player_name(); if name==nil then return end
local meta = minetest.get_meta(pos)
if fields.OK == "OK" then
local pass;
pass = fields.pass or "";
pass=minetest.get_password_hash(pos.x, pass..pos.y);pass=minetest.get_password_hash(pos.y, pass..pos.z);
if pass~=meta:get_string("pass") then
minetest.chat_send_player(name,"ACCESS DENIED. WRONG PASSWORD.")
return
end
minetest.chat_send_player(name,"ACCESS GRANTED.")
if meta:get_int("count")<=0 then -- only accept new operation requests if idle
meta:set_int("count",meta:get_int("iter"));
meta:set_int("active_repeats",0);
use_keypad(pos,machines_TTL)
else meta:set_int("count",0); meta:set_string("infotext","operation aborted by user. punch to activate.") -- reset
end
return
end
end
-- DETECTOR
local fname = "basic_machines:detector_"
if string.sub(formname,0,string.len(fname)) == fname then
local pos_s = string.sub(formname,string.len(fname)+1); local pos = minetest.string_to_pos(pos_s)
local name = player:get_player_name(); if name==nil then return end
local meta = minetest.get_meta(pos)
local privs = minetest.get_player_privs(player:get_player_name());
if (minetest.is_protected(pos,name) and not privs.privs) or not fields then return end -- only builder
--minetest.chat_send_all("formname " .. formname .. " fields " .. dump(fields))
if fields.help == "help" then
local text = "SETUP: right click or punch and follow chat instructions. With detector you can detect nodes, objects, players, or items inside inventories."..
"If detector activates it will trigger machine at target position.\n\nThere are 4 modes of operation - node/player/object/inventory detection. Inside node/player/object "..
"write node/player/object name. If you detect players/objects you can specify range of detection. If you want detector to activate target precisely when its not triggered set NOT to 1\n\n"..
"For example, to detect empty space write air, to detect tree write default:tree, to detect ripe wheat write farming:wheat_8, for flowing water write default:water_flowing ... "..
"If source position is chest it will look into it and check if there are items inside. If mode is inventory it will check for items in specified inventory of source node."..
"\n\nADVANCED: you can select second source and then select AND/OR from the right top dropdown list to do logical operations"
local form = "size [5,5] textarea[0,0;5.5,6.5;help;DETECTOR HELP;".. text.."]"
minetest.show_formspec(name, "basic_machines:help_detector", form)
end
if fields.OK == "OK" then
local x0,y0,z0,x1,y1,z1,x2,y2,z2,r,node,NOT;
x0=tonumber(fields.x0) or 0;y0=tonumber(fields.y0) or 0;z0=tonumber(fields.z0) or 0
x1=tonumber(fields.x1) or 0;y1=tonumber(fields.y1) or 0;z1=tonumber(fields.z1) or 0
x2=tonumber(fields.x2) or 0;y2=tonumber(fields.y2) or 0;z2=tonumber(fields.z2) or 0
r=tonumber(fields.r) or 1;
NOT = tonumber(fields.NOT)
if minetest.is_protected({x=pos.x+x0,y=pos.y+y0,z=pos.z+z0},name) then
minetest.chat_send_player(name, "DETECTOR: position is protected. aborting.")
return
end
if minetest.is_protected({x=pos.x+x2,y=pos.y+y2,z=pos.z+z2},name) then
minetest.chat_send_player(name, "DETECTOR: position is protected. aborting.")
return
end
if not privs.privs and (math.abs(x0)>max_range or math.abs(y0)>max_range or math.abs(z0)>max_range or math.abs(x1)>max_range or math.abs(y1)>max_range or math.abs(z1)>max_range) then
minetest.chat_send_player(name,"#detector: all coordinates must be between ".. -max_range .. " and " .. max_range); return
end
if fields.inv1 then
meta:set_string("inv1",fields.inv1);
end
meta:set_int("x0",x0);meta:set_int("y0",y0);meta:set_int("z0",z0);
meta:set_int("x1",x1);meta:set_int("y1",y1);meta:set_int("z1",z1);
meta:set_int("x2",x2);meta:set_int("y2",y2);meta:set_int("z2",z2);
meta:set_int("r",math.min(r,10));
meta:set_int("NOT",NOT);
meta:set_string("node",fields.node or "");
local mode = fields.mode or "node";
meta:set_string("mode",mode);
local op = fields.op or "";
meta:set_string("op",op);
end
return
end
-- DISTRIBUTOR
local fname = "basic_machines:distributor_"
if string.sub(formname,0,string.len(fname)) == fname then
local pos_s = string.sub(formname,string.len(fname)+1); local pos = minetest.string_to_pos(pos_s)
local name = player:get_player_name(); if name==nil then return end
local meta = minetest.get_meta(pos)
local privs = minetest.get_player_privs(player:get_player_name());
if (minetest.is_protected(pos,name) and not privs.privs) or not fields then return end -- only builder
--minetest.chat_send_all("formname " .. formname .. " fields " .. dump(fields))
if fields.OK == "OK" then
local posf = {}; local active = {};
local n = meta:get_int("n");
for i = 1,n do
posf[i]={x=tonumber(fields["x"..i]) or 0,y=tonumber(fields["y"..i]) or 0,z=tonumber(fields["z"..i]) or 0};
active[i]=tonumber(fields["active"..i]) or 0;
if (not (privs.privs) and math.abs(posf[i].x)>max_range or math.abs(posf[i].y)>max_range or math.abs(posf[i].z)>max_range) then
minetest.chat_send_player(name,"#distributor: all coordinates must be between ".. -max_range .. " and " .. max_range);
return
end
meta:set_int("x"..i,posf[i].x);meta:set_int("y"..i,posf[i].y);meta:set_int("z"..i,posf[i].z);
if posf[i].x==0 and posf[i].y==0 and posf[i].z==0 then
meta:set_int("active"..i,0); -- no point in activating itself
else
meta:set_int("active"..i,active[i]);
end
if fields.delay then
meta:set_float("delay", fields.delay);
end
end
end
if fields["ADD"] then
local n = meta:get_int("n");
if n<16 then meta:set_int("n",n+1); end -- max 16 outputs
return
end
-- SHOWING TARGET
local j=-1;local n = meta:get_int("n");
for i = 1,n do if fields["SHOW"..i] then j = i end end
--show j-th point
if j>0 then
local posf={x=tonumber(fields["x"..j]) or 0,y=tonumber(fields["y"..j]) or 0,z=tonumber(fields["z"..j]) or 0};
machines.pos1[player:get_player_name()] = {x=posf.x+pos.x,y=posf.y+pos.y,z=posf.z+pos.z};
machines.mark_pos1(player:get_player_name())
return;
end
--SETUP TARGET
j=-1;
for i = 1,n do if fields["SET"..i] then j = i end end
-- set up j-th point
if j>0 then
punchset[name].node = "basic_machines:distributor";
punchset[name].state = j
punchset[name].pos = pos;
minetest.chat_send_player(name,"[DISTRIBUTOR] punch the position to set target "..j);
return;
end
-- REMOVE TARGET
if n>0 then
j=-1;
for i = 1,n do if fields["X"..i] then j = i end end
-- remove j-th point
if j>0 then
for i=j,n-1 do
meta:set_int("x"..i, meta:get_int("x"..(i+1)))
meta:set_int("y"..i, meta:get_int("y"..(i+1)))
meta:set_int("z"..i, meta:get_int("z"..(i+1)))
meta:set_int("active"..i, meta:get_int("active"..(i+1)))
end
meta:set_int("n",n-1);
return;
end
end
end
end)
-- CRAFTS --
minetest.register_craft({
output = "basic_machines:mover",
recipe = {
{"default:mese_crystal", "default:mese_crystal","default:mese_crystal"},
{"default:mese_crystal", "default:mese_crystal","default:mese_crystal"},
{"default:stone", "default:wood", "default:stone"}
}
})
minetest.register_craft({
output = "basic_machines:detector",
recipe = {
{"default:mese_crystal", "default:mese_crystal"},
{"default:mese_crystal", "default:mese_crystal"}
}
})
minetest.register_craft({
output = "basic_machines:light_on",
recipe = {
{"default:torch", "default:torch"},
{"default:torch", "default:torch"}
}
})
minetest.register_craft({
output = "basic_machines:keypad",
recipe = {
{"default:stick"},
{"default:wood"},
}
})
minetest.register_craft({
output = "basic_machines:distributor",
recipe = {
{"default:steel_ingot"},
{"default:mese_crystal"},
}
})
Reference in New Issue View Git Blame Copy Permalink