cidades/property_builder.lua

123 lines
3.6 KiB
Lua

--[[
Mod Cidades for Minetest
Copyright (C) 2020 BrunoMine (https://github.com/BrunoMine)
You should have received a copy of the GNU General Public License
along with this program. If not, see <https://www.gnu.org/licenses/>.
Property Builder
]]
local S = cidades.S
-- Create property
local create_property = function(pos)
local meta = minetest.get_meta(pos)
local radius = meta:get_float("radius")
local height = meta:get_float("height")
local cost = meta:get_float("cost")
-- Adjust cost
do
local i = ""
if cost < 1000 then i = "0" end
if cost < 100 then i = "00" end
cost = i..tonumber(cost)
end
local cost10x = string.sub(cost, 3, 3)
local cost100x = string.sub(cost, 2, 2)
local cost1000x = string.sub(cost, 1, 1)
-- Set data nodes
minetest.set_node(cidades.property.get_data_pos(pos, "radius", 2), {name = "cidades:stone_"..cidades.property.radius_i[tostring(radius)]})
minetest.set_node(cidades.property.get_data_pos(pos, "height", 2), {name = "cidades:stone_"..cidades.property.height_i[tostring(height)]})
minetest.set_node(cidades.property.get_data_pos(pos, "cost10x", 2), {name = "cidades:stone_"..cost10x})
minetest.set_node(cidades.property.get_data_pos(pos, "cost100x", 2), {name = "cidades:stone_"..cost100x})
minetest.set_node(cidades.property.get_data_pos(pos, "cost1000x", 2), {name = "cidades:stone_"..cost1000x})
minetest.set_node(cidades.property.get_data_pos(pos, "core", 2), {name = "cidades:property_stone_for_sale"})
-- Set seller
minetest.set_node({x=pos.x, y=pos.y+1, z=pos.z}, {name = "cidades:seller"})
-- Place poles
cidades.place_poles({x=pos.x, y=pos.y-2, z=pos.z}, radius)
-- Remove property builder
minetest.remove_node(pos)
minetest.chat_send_all("Property created")
end
-- Update formspec
local update_formspec = function(pos)
local meta = minetest.get_meta(pos)
meta:set_string("formspec", "size[8,8]"
.."field[1,3;6.5,1;radius;"..S("Radius (3 - 12)")..";"..meta:get_float("radius").."]"
.."field[1,4.5;6.5,1;height;"..S("Height (3, 5, 8, 10, 12, 14, 16, 18, 20 or 25)")..";"..meta:get_float("height").."]"
.."field[1,6;6.5,1;cost;"..S("Cost (10 - 9990)")..";"..meta:get_float("cost").."]"
.."button_exit[1,7;6,1;create;"..S("Create").."]")
end
-- Property Builder node
minetest.register_node("cidades:property_builder", {
description = S("Property Builder"),
paramtype2 = "facedir",
place_param2 = 0,
tiles = {"cidades_property_builder.png"},
is_ground_content = false,
groups = {choppy = 2, oddly_breakable_by_hand = 2},
on_construct = function(pos)
local meta = minetest.get_meta(pos)
meta:set_string("infotext", S("Property Builder"))
meta:set_int("radius", 4)
meta:set_int("height", 5)
meta:set_string("cost", "100")
update_formspec(pos)
end,
on_receive_fields = function(pos, formname, fields, sender)
-- Check privs
if minetest.check_player_privs(sender:get_player_name(), {server = true}) ~= true then
return
end
-- Save settings
if fields.create then
local meta = minetest.get_meta(pos)
if cidades.property.radius_i[fields.radius] then
meta:set_float("radius", tonumber(fields.radius))
else
return minetest.chat_send_all(S("Invalid radius."))
end
if cidades.property.height_i[fields.height] then
meta:set_float("height", tonumber(fields.height))
else
return minetest.chat_send_all(S("Invalid height."))
end
if tonumber(fields.cost) <= 9990 and tonumber(fields.cost) >= 10 then
meta:set_float("cost", tonumber(fields.cost))
else
return minetest.chat_send_all(S("Invalid cost."))
end
update_formspec(pos)
end
-- Mark area
if fields.create then
create_property(pos)
end
end,
})