| commit | author | age | ||
| b001a6 | 1 | local S = technic.getter |
| Z | 2 | |
| 3 | local desc = S("Administrative World Anchor") | |
| 4 | ||
| 5 | local function compute_forceload_positions(pos, meta) | |
| 6 | local radius = meta:get_int("radius") | |
| 7 | local minpos = vector.subtract(pos, vector.new(radius, radius, radius)) | |
| 8 | local maxpos = vector.add(pos, vector.new(radius, radius, radius)) | |
| 9 | local minbpos = {} | |
| 10 | local maxbpos = {} | |
| 11 | for _, coord in ipairs({"x","y","z"}) do | |
| 12 | minbpos[coord] = math.floor(minpos[coord] / 16) * 16 | |
| 13 | maxbpos[coord] = math.floor(maxpos[coord] / 16) * 16 | |
| 14 | end | |
| 15 | local flposes = {} | |
| 16 | for x = minbpos.x, maxbpos.x, 16 do | |
| 17 | for y = minbpos.y, maxbpos.y, 16 do | |
| 18 | for z = minbpos.z, maxbpos.z, 16 do | |
| 19 | table.insert(flposes, vector.new(x, y, z)) | |
| 20 | end | |
| 21 | end | |
| 22 | end | |
| 23 | return flposes | |
| 24 | end | |
| 25 | ||
| 26 | local function currently_forceloaded_positions(meta) | |
| 27 | local ser = meta:get_string("forceloaded") | |
| 28 | return ser == "" and {} or minetest.deserialize(ser) | |
| 29 | end | |
| 30 | ||
| 31 | local function forceload_off(meta) | |
| 32 | local flposes = currently_forceloaded_positions(meta) | |
| 33 | meta:set_string("forceloaded", "") | |
| 34 | for _, p in ipairs(flposes) do | |
| 35 | minetest.forceload_free_block(p) | |
| 36 | end | |
| 37 | end | |
| 38 | ||
| 39 | local function forceload_on(pos, meta) | |
| 40 | local want_flposes = compute_forceload_positions(pos, meta) | |
| 41 | local have_flposes = {} | |
| 42 | for _, p in ipairs(want_flposes) do | |
| 43 | if minetest.forceload_block(p) then | |
| 44 | table.insert(have_flposes, p) | |
| 45 | end | |
| 46 | end | |
| 47 | meta:set_string("forceloaded", #have_flposes == 0 and "" or minetest.serialize(have_flposes)) | |
| 48 | end | |
| 49 | ||
| 50 | local function set_display(pos, meta) | |
| 51 | meta:set_string("infotext", S(meta:get_int("enabled") ~= 0 and "%s Enabled" or "%s Disabled"):format(desc)) | |
| 52 | meta:set_string("formspec", | |
| 53 | "size[5,3.5]".. | |
| 54 | "item_image[0,0;1,1;technic:admin_anchor]".. | |
| 55 | "label[1,0;"..minetest.formspec_escape(desc).."]".. | |
| 56 | "label[0,1;"..minetest.formspec_escape(S("Owner:").." "..meta:get_string("owner")).."]".. | |
| 57 | (meta:get_int("locked") == 0 and | |
| 58 | "button[3,1;2,1;lock;"..minetest.formspec_escape(S("Unlocked")).."]" or | |
| 59 | "button[3,1;2,1;unlock;"..minetest.formspec_escape(S("Locked")).."]").. | |
| 60 | "field[0.25,2.3;1,1;radius;"..minetest.formspec_escape(S("Radius:"))..";"..meta:get_int("radius").."]".. | |
| 61 | (meta:get_int("enabled") == 0 and | |
| 62 | "button[3,2;2,1;enable;"..minetest.formspec_escape(S("Disabled")).."]" or | |
| 63 | "button[3,2;2,1;disable;"..minetest.formspec_escape(S("Enabled")).."]").. | |
| 64 | "label[0,3;"..minetest.formspec_escape(S("Keeping %d/%d map blocks loaded"):format(#currently_forceloaded_positions(meta), #compute_forceload_positions(pos, meta))).."]") | |
| 65 | end | |
| 66 | ||
| 67 | minetest.register_node("technic:admin_anchor", { | |
| 68 | description = desc, | |
| 69 | drawtype = "normal", | |
| 70 | tiles = {"technic_admin_anchor.png"}, | |
| 71 | is_ground_content = true, | |
| 772c21 | 72 | groups = {cracky=3, not_in_creative_inventory=1}, |
| b001a6 | 73 | sounds = default.node_sound_stone_defaults(), |
| Z | 74 | after_place_node = function (pos, placer) |
| 75 | local meta = minetest.get_meta(pos) | |
| 76 | if placer and placer:is_player() then | |
| 77 | meta:set_string("owner", placer:get_player_name()) | |
| 78 | end | |
| 79 | set_display(pos, meta) | |
| 80 | end, | |
| 81 | can_dig = function (pos, player) | |
| 82 | local meta = minetest.get_meta(pos) | |
| 83 | return meta:get_int("locked") == 0 or (player and player:is_player() and player:get_player_name() == meta:get_string("owner")) | |
| 84 | end, | |
| 85 | on_destruct = function (pos) | |
| 86 | local meta = minetest.get_meta(pos) | |
| 87 | forceload_off(meta) | |
| 88 | end, | |
| 89 | on_receive_fields = function (pos, formname, fields, sender) | |
| 90 | local meta = minetest.get_meta(pos) | |
| 91 | if (meta:get_int("locked") ~= 0 or fields.lock) and | |
| 92 | not (sender and sender:is_player() and | |
| 93 | sender:get_player_name() == meta:get_string("owner")) then | |
| 94 | return | |
| 95 | end | |
| 96 | if fields.unlock then meta:set_int("locked", 0) end | |
| 97 | if fields.lock then meta:set_int("locked", 1) end | |
| 98 | if fields.disable or fields.enable or fields.radius then | |
| 99 | forceload_off(meta) | |
| 100 | if fields.disable then meta:set_int("enabled", 0) end | |
| 101 | if fields.enable then meta:set_int("enabled", 1) end | |
| 102 | if fields.radius and string.find(fields.radius, "^[0-9]+$") and tonumber(fields.radius) < 256 then meta:set_int("radius", fields.radius) end | |
| 103 | if meta:get_int("enabled") ~= 0 then | |
| 104 | forceload_on(pos, meta) | |
| 105 | end | |
| 106 | end | |
| 107 | set_display(pos, meta) | |
| 108 | end, | |
| 109 | }) | |
