Add dispenser

mesecons/init.lua

@@ -49,10 +49,6 @@ mesecon.receptors={} --  saves all information about receptors  | DEPRECATED
 mesecon.effectors={} --  saves all information about effectors  | DEPRECATED
 mesecon.conductors={} -- saves all information about conductors | DEPRECATED
 
-
-mesecon.to_update = {}
-mesecon.r_to_update = {}
-
 -- Settings
 dofile(minetest.get_modpath("mesecons").."/settings.lua")
 
@@ -80,7 +76,7 @@ dofile(minetest.get_modpath("mesecons").."/legacy.lua");
 -- API
 -- these are the only functions you need to remember
 
-function mesecon:receptor_on_i(pos, rules)
+function mesecon:receptor_on(pos, rules)
 	rules = rules or mesecon.rules.default
 
 	for _, rule in ipairs(rules) do
@@ -92,12 +88,7 @@ function mesecon:receptor_on_i(pos, rules)
 	end
 end
 
-function mesecon:receptor_on(pos, rules)
+function mesecon:receptor_off(pos, rules)
-	rules = rules or mesecon.rules.default
-	mesecon.r_to_update[#mesecon.r_to_update+1]={pos=pos, rules=rules, action="on"}
-end
-
-function mesecon:receptor_off_i(pos, rules)
 	rules = rules or mesecon.rules.default
 
 	for _, rule in ipairs(rules) do
@@ -113,11 +104,6 @@ function mesecon:receptor_off_i(pos, rules)
 	end
 end
 
-function mesecon:receptor_off(pos, rules)
-	rules = rules or mesecon.rules.default
-	mesecon.r_to_update[#mesecon.r_to_update+1]={pos=pos, rules=rules, action="off"}
-end
-
 
 print("[OK] Mesecons")
 

mesecons/internal.lua

@@ -180,111 +180,24 @@ end
 --Signals
 
 function mesecon:activate(pos, node, rulename)
-	if rulename == nil then
+	local effector = mesecon:get_effector(node.name)
-		for _,rule in ipairs(mesecon:effector_get_rules(node)) do
+	if effector and effector.action_on then
-			mesecon:activate(pos, node, rule)
+		effector.action_on (pos, node, rulename)
-		end
-		return
-	end
-	if MESECONS_GLOBALSTEP then
-		add_action(pos, "on", rulename)
-	else
-		local effector = mesecon:get_effector(node.name)
-		if effector and effector.action_on then
-			effector.action_on (pos, node, rulename)
-		end
 	end
 end
 
 function mesecon:deactivate(pos, node, rulename)
-	if rulename == nil then
+	local effector = mesecon:get_effector(node.name)
-		for _,rule in ipairs(mesecon:effector_get_rules(node)) do
+	if effector and effector.action_off then
-			mesecon:deactivate(pos, node, rule)
+		effector.action_off (pos, node, rulename)
-		end
-		return
-	end
-	if MESECONS_GLOBALSTEP then
-		add_action(pos, "off", rulename)
-	else
-		local effector = mesecon:get_effector(node.name)
-		if effector and effector.action_off then
-			effector.action_off (pos, node, rulename)
-		end
 	end
 end
 
 function mesecon:changesignal(pos, node, rulename, newstate)
-	
+	local effector = mesecon:get_effector(node.name)
-	newstate = newstate or "on"
+	if effector and effector.action_change then
-	--rulename = rulename or mesecon.rules.default
+		effector.action_change (pos, node, rulename, newstate)
-	if rulename == nil then
-		for _,rule in ipairs(mesecon:effector_get_rules(node)) do
-			mesecon:changesignal(pos, node, rule, newstate)
-		end
-		return
 	end
-	if MESECONS_GLOBALSTEP then
-		add_action(pos, "c"..newstate, rulename)
-	else
-		local effector = mesecon:get_effector(node.name)
-		if effector and effector.action_change then
-			effector.action_change (pos, node, rulename, newstate)
-		end
-	end
-end
-
-function execute_actions(dtime)
-	local nactions = mesecon.to_update
-	mesecon.to_update = {}
-	for _,i in ipairs(nactions) do
-		node = minetest.env:get_node(i.pos)
-		effector = mesecon:get_effector(node.name)
-		if i.action == "on" then
-			if effector and effector.action_on then
-				effector.action_on(i.pos, node, i.rname)
-			end
-		elseif i.action == "off" then
-			if effector and effector.action_off then
-				effector.action_off(i.pos, node, i.rname)
-			end
-		elseif i.action == "con" then
-			if effector and effector.action_change then
-				effector.action_change(i.pos, node, i.rname, "on")
-			end
-		elseif i.action == "coff" then
-			if effector and effector.action_change then
-				effector.action_change(i.pos, node, i.rname, "off")
-			end
-		end
-	end
-	local nactions = mesecon.r_to_update
-	mesecon.r_to_update = {}
-	for _,i in ipairs(nactions) do
-		if i.action == "on" then
-			mesecon:receptor_on_i(i.pos, i.rules)
-		else
-			mesecon:receptor_off_i(i.pos,i.rules)
-		end
-	end
-end
-
-minetest.register_globalstep(execute_actions)
-
-function add_action(pos, action, rname)
-	for _,i in ipairs(mesecon.to_update) do
-		if i.pos.x == pos.x and i.pos.y == pos.y and i.pos.z == pos.z and i.rname.x == rname.x and i.rname.y == rname.y and i.rname.z == rname.z then
-			if (i.action == "on" and action == "on") or (i.action == "off" and action == "off") then
-				--nothing
-			elseif i.action == "coff" and action == "on" then i.action = "on"
-			elseif i.action == "con" and action == "off" then i.action = "off"
-			else
-				if action == "on" or action == "con" then i.action = "con" end
-				if action == "off" or action == "coff" then i.action = "coff" end
-			end
-			break
-		end
-	end
-	mesecon.to_update[#mesecon.to_update+1] = {pos = pos, action = action, rname = rname}
 end
 
 --Rules

mesecons/services.lua

@@ -1,4 +1,5 @@
-mesecon.on_placenode = function (pos, node)
+mesecon.on_placenode = function (pos)
+	local node = minetest.env:get_node(pos)
 	if mesecon:is_receptor_on(node.name) then
 		mesecon:receptor_on(pos, mesecon:receptor_get_rules(node))
 	elseif mesecon:is_powered(pos) then
@@ -6,7 +7,7 @@ mesecon.on_placenode = function (pos, node)
 			mesecon:turnon (pos)
 			mesecon:receptor_on (pos, mesecon:conductor_get_rules(node))
 		else
-			mesecon:changesignal(pos, node, mesecon:effector_get_rules(node), "on")
+			mesecon:changesignal(pos, node)
 			mesecon:activate(pos, node)
 		end
 	elseif mesecon:is_conductor_on(node.name) then

mesecons/settings.lua

@@ -5,5 +5,3 @@ PRESSURE_PLATE_INTERVAL = 0.1
 OBJECT_DETECTOR_RADIUS = 6
 PISTON_MAXIMUM_PUSH = 15
 MOVESTONE_MAXIMUM_PUSH = 100
-MESECONS_GLOBALSTEP = true	-- true = receptors/effectors won't be updated
-				-- until next globalstep, decreases server load

mesecons_dispenser/depends.txt

@@ -0,0 +1 @@
+default

mesecons_dispenser/init.lua

@@ -0,0 +1,57 @@
+minetest.register_node("mesecons_dispenser:dispenser", {
+	description = "Dispenser",
+	tiles = {"mesecons_dispenser_top.png" , "mesecons_dispenser_bottom.png",
+		 "mesecons_dispenser_side.png", "mesecons_dispenser_side.png"   ,
+		 "mesecons_dispenser_side.png", "mesecons_dispenser_front.png"},
+	paramtype2 = "facedir",
+	groups = {cracky=2},
+	sounds = default.node_sound_stone_defaults(),
+	on_construct = function(pos)
+		local meta = minetest.env:get_meta(pos)
+		meta:set_string("formspec",
+				"size[8,7]"..
+				"list[current_name;main;2.5,0;3,3;]"..
+				"list[current_player;main;0,3;8,4;]")
+		local inv = meta:get_inventory()
+		inv:set_size("main", 3*3)
+	end,
+	mesecons = {effector={
+		action_on = function (pos, node)
+			local dir = {{x=1, y=0, z=0}}
+			for _ = 0, node.param2 do
+				dir = mesecon:rotate_rules_left(dir)
+			end
+			dir = dir[1]
+			local objpos = mesecon:addPosRule(pos, {x=dir.x/2, y=dir.y/2, z=dir.z/2})
+			--minetest.env:add_node(mesecon:addPosRule(pos, dir[1]), {name="default:wood"})
+			local inv = minetest.env:get_meta(pos):get_inventory()
+			local stacks = {}
+			for j = 1, 9 do
+				local ts = inv:get_stack("main", j)
+				if not ts:is_empty() then
+					table.insert(stacks, {stack = ts, id = j})
+				end
+			end
+			print(dump(stacks))
+			if #stacks > 0 then
+				local sn = math.random(1, #stacks)
+				local takenitem = stacks[sn].stack:take_item()
+				inv:set_stack("main", stacks[sn].id, stacks[sn].stack)
+				print(dump(takenitem:to_table()))
+				local obj = minetest.env:add_item(objpos, takenitem:to_table())
+				obj:setvelocity({	x=dir.x*5+math.random(1, 100)/50-0.5,
+							y=dir.y*5+math.random(1, 100)/50-0.5,
+							z=dir.z*5+math.random(1, 100)/50-0.5})
+			end
+		end
+	}},
+})
+
+minetest.register_craft({
+	output = 'mesecons_dispenser:dispenser',
+	recipe = {
+		{"default:cobble", "default:cobble", "default:cobble"},
+		{"default:cobble", "mesecons_materials:fiber", "default:cobble"},
+		{"default:cobble", "group:mesecon_conductor_craftable", "default:cobble"},
+	}
+})

mesecons_mvps/init.lua

@@ -93,6 +93,11 @@ function mesecon:mvps_push(pos, dir, maximum) -- pos: pos of mvps; dir: directio
 	for i in ipairs(nodes) do
 		nodes[i].pos = mesecon:addPosRule(nodes[i].pos, dir)
 	end
+	
+	for _, n in ipairs(nodes) do
+		mesecon.on_placenode(n.pos, n.node)
+		mesecon:update_autoconnect(n.pos)
+	end
 
 	return true, nodes, oldstack
 end
@@ -112,6 +117,8 @@ function mesecon:mvps_pull_single(pos, dir) -- pos: pos of mvps; direction: dire
 		nodeupdate(pos)
 		mesecon.on_dignode(np, nn)
 		mesecon:update_autoconnect(np)
+		mesecon:update_autoconnect(pos)
+		mesecon.on_placenode(pos, nn)
 	end
 	return {{pos = np, node = {param2 = 0, name = "air"}}, {pos = pos, node = nn}}
 end