From d532e646f61986494f6de879d46b023368832b5f Mon Sep 17 00:00:00 2001 From: Novatux Date: Sun, 29 Jun 2014 12:36:22 +0200 Subject: Fix problems with incorrectly destructed teleport tubes. --- teleport_tube.lua | 67 +++++++++++++++++++++++++++++++++++++------------------ 1 file changed, 45 insertions(+), 22 deletions(-) diff --git a/teleport_tube.lua b/teleport_tube.lua index f57f55a..1bd62d3 100644 --- a/teleport_tube.lua +++ b/teleport_tube.lua @@ -3,10 +3,10 @@ local filename=minetest.get_worldpath() .. "/teleport_tubes" local function read_file() local f = io.open(filename, "r") - if f==nil then return {} end + if f == nil then return {} end local t = f:read("*all") f:close() - if t=="" or t==nil then return {} end + if t == "" or t == nil then return {} end return minetest.deserialize(t) end @@ -18,8 +18,8 @@ end local function update_pos_in_file(pos) local tbl=read_file() - for _,val in ipairs(tbl) do - if val.x==pos.x and val.y==pos.y and val.z==pos.z then + for _, val in ipairs(tbl) do + if val.x == pos.x and val.y == pos.y and val.z == pos.z then local meta = minetest.get_meta(val) val.channel = meta:get_string("channel") val.cr = meta:get_int("can_receive") @@ -40,34 +40,56 @@ local function add_tube_in_file(pos,channel, cr) end local function remove_tube_in_file(pos) - local tbl=read_file() - local newtbl={} - for _,val in ipairs(tbl) do - if val.x~=pos.x or val.y~=pos.y or val.z~=pos.z then - table.insert(newtbl,val) + local tbl = read_file() + local newtbl = {} + for _, val in ipairs(tbl) do + if val.x ~= pos.x or val.y ~= pos.y or val.z ~= pos.z then + table.insert(newtbl, val) end end write_file(newtbl) end +local function read_node_with_vm(pos) + local vm = VoxelManip() + local MinEdge, MaxEdge = vm:read_from_map(pos, pos) + local data = vm:get_data() + local area = VoxelArea:new({MinEdge = MinEdge, MaxEdge = MaxEdge}) + return minetest.get_name_from_content_id(data[area:index(pos.x, pos.y, pos.z)]) +end + local function get_tubes_in_file(pos,channel) - local tbl=read_file() - local newtbl={} - local changed=false - for _,val in ipairs(tbl) do - local node = minetest.get_node(val) + local tbl = read_file() + local newtbl = {} + local changed = false + for _, val in ipairs(tbl) do local meta = minetest.get_meta(val) - -- That shouldn't be needed anymore since the mvps callback, but we leave it nevertheless - if node.name~="ignore" and (val.channel~=meta:get_string("channel") or val.cr~=meta:get_int("can_receive")) then - val.channel=meta:get_string("channel") - val.cr=meta:get_int("can_receive") - changed=true + local name = read_node_with_vm(val) + local is_loaded = (minetest.get_node_or_nil(val) ~= nil) + local is_teleport_tube = minetest.registered_nodes[name] and minetest.registered_nodes[name].is_teleport_tube + if is_teleport_tube then + if is_loaded and (val.channel ~= meta:get_string("channel") or val.cr ~= meta:get_int("can_receive")) then + val.channel = meta:get_string("channel") + val.cr = meta:get_int("can_receive") + changed = true + end + if val.cr == 1 and val.channel == channel and (val.x ~= pos.x or val.y ~= pos.y or val.z ~= pos.z) then + table.insert(newtbl, val) + end + else + val.to_remove = true + changed = true end - if val.cr==1 and val.channel==channel and (val.x~=pos.x or val.y~=pos.y or val.z~=pos.z) then - table.insert(newtbl,val) + end + if changed then + local updated = {} + for _, val in ipairs(tbl) do + if not val.to_remove then + table.insert(updated, val) + end end + write_file(updated) end - if changed then write_file(tbl) end return newtbl end @@ -82,6 +104,7 @@ local teleport_inv_texture="pipeworks_teleport_tube_inv.png" pipeworks.register_tube("pipeworks:teleport_tube","Teleporter pneumatic tube segment",teleport_plain_textures, teleport_noctr_textures,teleport_end_textures,teleport_short_texture,teleport_inv_texture, { + is_teleport_tube = true, tube = { can_go = function(pos,node,velocity,stack) velocity.x = 0 -- cgit v1.2.3