epic/blocks/call.lua

99 lines
2.7 KiB
Lua

local update_formspec = function(meta)
local pos = meta:get_string("pos")
meta:set_string("infotext", "Call block: function=" .. pos)
meta:set_string("formspec", "size[8,1;]" ..
-- col 2
"button_exit[0.1,0.5;4,1;setfn;Set function]" ..
"button_exit[4.1,0.5;4,1;showpos;Show]" ..
"")
end
minetest.register_node("epic:call", {
description = "Epic Call block: executes another function",
tiles = epic.create_texture("action", "epic_call.png"),
paramtype2 = "facedir",
groups = {cracky=3,oddly_breakable_by_hand=3,epic=1},
on_rotate = epic.on_rotate,
on_construct = function(pos)
local meta = minetest.get_meta(pos)
meta:set_string("pos", minetest.pos_to_string({x=0, y=0, z=0}))
update_formspec(meta, pos)
end,
on_receive_fields = function(pos, _, fields, sender)
if not sender or minetest.is_protected(pos, sender:get_player_name()) then
-- not allowed
return
end
if fields.setfn then
local playername = sender:get_player_name()
minetest.chat_send_player(playername, "[epic] Please punch the desired target function or epic")
epic.punchnode_callback(sender, {
nodes = {"epic:function", "epic:epic"},
timeout = 300,
check_protection = true,
callback = function(punch_pos)
local meta = minetest.get_meta(pos)
local pos_str = minetest.pos_to_string(epic.to_relative_pos(pos, punch_pos))
meta:set_string("pos", pos_str)
minetest.chat_send_player(playername, "[epic] target function successfully set to " .. pos_str)
update_formspec(meta)
end
})
end
if fields.showpos then
local meta = minetest.get_meta(pos)
local target_pos = minetest.string_to_pos(meta:get_string("pos"))
if target_pos then
epic.show_waypoint(
sender:get_player_name(),
epic.to_absolute_pos(pos, target_pos),
"Target position",
2
)
end
end
end,
epic = {
on_enter = function(pos, meta, player, ctx)
local target_pos_str = meta:get_string("pos")
local here_pos_str = minetest.pos_to_string({x=0, y=0, z=0})
if here_pos_str ~= target_pos_str then
-- position of configured node
local target_pos = epic.to_absolute_pos(pos, minetest.string_to_pos(target_pos_str))
local target_node = epic.get_node(target_pos)
if not target_node then
-- invalid target, proceed
ctx.next()
return
end
if target_node.name == "epic:function" then
-- plain function call
ctx.call(target_pos)
elseif target_node.name == "epic:epic" then
-- next epic
local playername = player:get_player_name()
minetest.after(1, function()
epic.start(playername, target_pos)
end)
end
else
-- recursion detected, proceed to next
ctx.next()
end
end
}
})