Pressure plates check for entity contact

This commit is contained in:
Johannes Fritz 2022-12-01 13:02:30 -06:00
parent 055a93843f
commit ba292aeb5d

View file

@ -37,19 +37,54 @@ local function pp_on_timer(pos, elapsed)
end end
end end
local objs = minetest.get_objects_inside_radius(pos, .99) local function obj_touching_plate_pos(obj_ref, plate_pos)
local obj_pos = obj_ref:get_pos()
local props = obj_ref:get_properties()
local parent = obj_ref:get_attach()
if props and obj_pos and not parent then
local collisionbox = props.collisionbox
local physical = props.physical
local is_player = obj_ref:is_player()
local luaentity = obj_ref:get_luaentity()
local is_item = luaentity and luaentity.name == "__builtin:item"
if collisionbox and physical or is_player or is_item then
local plate_x_min = plate_pos.x - 7 / 16
local plate_x_max = plate_pos.x + 7 / 16
local plate_z_min = plate_pos.z - 7 / 16
local plate_z_max = plate_pos.z + 7 / 16
local plate_y_max = plate_pos.y - 7 / 16
local obj_x_min = obj_pos.x + collisionbox[1]
local obj_x_max = obj_pos.x + collisionbox[4]
local obj_z_min = obj_pos.z + collisionbox[3]
local obj_z_max = obj_pos.z + collisionbox[6]
local obj_y_min = obj_pos.y + collisionbox[2]
if
obj_y_min <= plate_y_max and
not (obj_x_min >= plate_x_max) and
not (obj_x_max <= plate_x_min) and
not (obj_z_min >= plate_z_max) and
not (obj_z_max <= plate_z_min)
then
return true
end
end
end
return false
end
local objs = minetest.get_objects_inside_radius(pos, 1)
if node.name == basename .. "_on" then if node.name == basename .. "_on" then
local disable local disable = true
if #objs == 0 then for k, obj in pairs(objs) do
disable = true if
elseif not activated_by.any then obj_does_activate(obj, activated_by) and
disable = true obj_touching_plate_pos(obj, pos)
for k, obj in pairs(objs) do then
if obj_does_activate(obj, activated_by) then disable = false
disable = false break
break
end
end end
end end
if disable then if disable then
@ -58,13 +93,13 @@ local function pp_on_timer(pos, elapsed)
end end
elseif node.name == basename .. "_off" then elseif node.name == basename .. "_off" then
for k, obj in pairs(objs) do for k, obj in pairs(objs) do
local objpos = obj:get_pos() if
if obj_does_activate(obj, activated_by) then obj_does_activate(obj, activated_by) and
if objpos.y > pos.y-1 and objpos.y < pos.y then obj_touching_plate_pos(obj, pos)
minetest.set_node(pos, {name = basename .. "_on"}) then
mesecon.receptor_on(pos, mesecon.rules.pplate) minetest.set_node(pos, {name = basename .. "_on"})
break mesecon.receptor_on(pos, mesecon.rules.pplate)
end break
end end
end end
end end