projects/init.lua

840 lines
21 KiB
Lua

-- projects 0.1.8 by paramat
-- For Minetest
-- Depends default
-- License: code WTFPL
-- Parameters
-- Stuff
projects = {}
-- Nodes
minetest.register_node("projects:flatn", {
description = "Spawn Flat North",
drawtype = "airlike",
paramtype = "light",
sunlight_propagates = true,
})
minetest.register_node("projects:flats", {
description = "Spawn Flat South",
drawtype = "airlike",
paramtype = "light",
sunlight_propagates = true,
})
minetest.register_node("projects:flate", {
description = "Spawn Flat East",
drawtype = "airlike",
paramtype = "light",
sunlight_propagates = true,
})
minetest.register_node("projects:flatw", {
description = "Spawn Flat West",
drawtype = "airlike",
paramtype = "light",
sunlight_propagates = true,
})
minetest.register_node("projects:horin", {
description = "Spawn Horizontal North",
drawtype = "airlike",
paramtype = "light",
sunlight_propagates = true,
})
minetest.register_node("projects:horis", {
description = "Spawn Horizontal South",
drawtype = "airlike",
paramtype = "light",
sunlight_propagates = true,
})
minetest.register_node("projects:horie", {
description = "Spawn Horizontal East",
drawtype = "airlike",
paramtype = "light",
sunlight_propagates = true,
})
minetest.register_node("projects:horiw", {
description = "Spawn Horizontal West",
drawtype = "airlike",
paramtype = "light",
sunlight_propagates = true,
})
minetest.register_node("projects:verta", {
description = "Spawn Vertical Above",
tiles = {"default_sandstone_brick.png"},
groups = {cracky=2},
sounds = default.node_sound_stone_defaults(),
})
minetest.register_node("projects:vertopa", {
description = "Spawn Vertical Top Above",
tiles = {"default_sandstone_brick.png"},
groups = {cracky=2},
sounds = default.node_sound_stone_defaults(),
})
minetest.register_node("projects:vertenta", {
description = "Spawn Vertical Entrance Above",
tiles = {"default_sandstone_brick.png"},
groups = {cracky=2},
sounds = default.node_sound_stone_defaults(),
})
-- ABM
-- flat north
minetest.register_abm({
nodenames = {"projects:flatn"},
interval = 7,
chance = 1,
action = function(pos, node)
local x = pos.x
local y = pos.y
local z = pos.z
local c_air = minetest.get_content_id("air")
local c_ignore = minetest.get_content_id("ignore")
local c_brick = minetest.get_content_id("default:sandstonebrick")
local vm = minetest.get_voxel_manip()
local pos1 = {x=x-6, y=y-1, z=z}
local pos2 = {x=x+1, y=y+3, z=z+8}
local emin, emax = vm:read_from_map(pos1, pos2)
local area = VoxelArea:new({MinEdge=emin, MaxEdge=emax})
local data = vm:get_data()
for i = -6, 1 do -- check volume is clear
for j = -1, 3 do
for k = 1, 8 do
local vi = area:index(x + i, y + j, z + k)
local nodid = data[vi]
if nodid ~= c_air and nodid ~= c_ignore then -- if volume obstructed then seal up doorway, replace spawner
local vi = area:index(x, y, z)
data[vi] = c_brick
local via = area:index(x, y+1, z)
data[via] = c_brick
vm:set_data(data)
vm:write_to_map()
vm:update_map()
return
end
end
end
end
local vi = area:index(x, y, z) -- volume checked so replace spawner with air
data[vi] = c_air
vm:set_data(data)
vm:write_to_map()
vm:update_map()
local path = minetest.get_modpath("projects") .. "/schems/flat.mts" -- spawn flat
minetest.place_schematic({x=x-6, y=y-1, z=z+1}, path, 90, nil, true)
end,
})
-- flat south
minetest.register_abm({
nodenames = {"projects:flats"},
interval = 11,
chance = 1,
action = function(pos, node)
local x = pos.x
local y = pos.y
local z = pos.z
local c_air = minetest.get_content_id("air")
local c_ignore = minetest.get_content_id("ignore")
local c_brick = minetest.get_content_id("default:sandstonebrick")
local vm = minetest.get_voxel_manip()
local pos1 = {x=x-1, y=y-1, z=z-8}
local pos2 = {x=x+6, y=y+3, z=z}
local emin, emax = vm:read_from_map(pos1, pos2)
local area = VoxelArea:new({MinEdge=emin, MaxEdge=emax})
local data = vm:get_data()
for i = -1, 6 do -- check volume is clear
for j = -1, 3 do
for k = -8, -1 do
local vi = area:index(x + i, y + j, z + k)
local nodid = data[vi]
if nodid ~= c_air and nodid ~= c_ignore then -- if volume obstructed then seal up doorway, replace spawner
local vi = area:index(x, y, z)
data[vi] = c_brick
local via = area:index(x, y+1, z)
data[via] = c_brick
vm:set_data(data)
vm:write_to_map()
vm:update_map()
return
end
end
end
end
local vi = area:index(x, y, z) -- volume checked so replace spawner with air
data[vi] = c_air
vm:set_data(data)
vm:write_to_map()
vm:update_map()
local path = minetest.get_modpath("projects") .. "/schems/flat.mts"
minetest.place_schematic({x=pos.x-1, y=pos.y-1, z=pos.z-8}, path, 270, nil, true)
end,
})
-- flat east
minetest.register_abm({
nodenames = {"projects:flate"},
interval = 13,
chance = 1,
action = function(pos, node)
local x = pos.x
local y = pos.y
local z = pos.z
local c_air = minetest.get_content_id("air")
local c_ignore = minetest.get_content_id("ignore")
local c_brick = minetest.get_content_id("default:sandstonebrick")
local vm = minetest.get_voxel_manip()
local pos1 = {x=x, y=y-1, z=z-1}
local pos2 = {x=x+8, y=y+3, z=z+6}
local emin, emax = vm:read_from_map(pos1, pos2)
local area = VoxelArea:new({MinEdge=emin, MaxEdge=emax})
local data = vm:get_data()
for i = 1, 8 do -- check volume is clear
for j = -1, 3 do
for k = -1, 6 do
local vi = area:index(x + i, y + j, z + k)
local nodid = data[vi]
if nodid ~= c_air and nodid ~= c_ignore then -- if volume obstructed then seal up doorway, replace spawner
local vi = area:index(x, y, z)
data[vi] = c_brick
local via = area:index(x, y+1, z)
data[via] = c_brick
vm:set_data(data)
vm:write_to_map()
vm:update_map()
return
end
end
end
end
local vi = area:index(x, y, z) -- volume checked so replace spawner with air
data[vi] = c_air
vm:set_data(data)
vm:write_to_map()
vm:update_map()
local path = minetest.get_modpath("projects") .. "/schems/flat.mts"
minetest.place_schematic({x=pos.x+1, y=pos.y-1, z=pos.z-1}, path, 180, nil, true)
end,
})
-- flat west
minetest.register_abm({
nodenames = {"projects:flatw"},
interval = 17,
chance = 1,
action = function(pos, node)
local x = pos.x
local y = pos.y
local z = pos.z
local c_air = minetest.get_content_id("air")
local c_ignore = minetest.get_content_id("ignore")
local c_brick = minetest.get_content_id("default:sandstonebrick")
local vm = minetest.get_voxel_manip()
local pos1 = {x=x-8, y=y-1, z=z-6}
local pos2 = {x=x, y=y+3, z=z+1}
local emin, emax = vm:read_from_map(pos1, pos2)
local area = VoxelArea:new({MinEdge=emin, MaxEdge=emax})
local data = vm:get_data()
for i = -8, -1 do -- check volume is clear
for j = -1, 3 do
for k = -6, 1 do
local vi = area:index(x + i, y + j, z + k)
local nodid = data[vi]
if nodid ~= c_air and nodid ~= c_ignore then -- if volume obstructed then seal up doorway, replace spawner
local vi = area:index(x, y, z)
data[vi] = c_brick
local via = area:index(x, y+1, z)
data[via] = c_brick
vm:set_data(data)
vm:write_to_map()
vm:update_map()
return
end
end
end
end
local vi = area:index(x, y, z) -- volume checked so replace spawner with air
data[vi] = c_air
vm:set_data(data)
vm:write_to_map()
vm:update_map()
local path = minetest.get_modpath("projects") .. "/schems/flat.mts"
minetest.place_schematic({x=pos.x-8, y=pos.y-1, z=pos.z-6}, path, 0, nil, true)
end,
})
-- horizontal space north. spawn node is at west end of 4 wide doorway
minetest.register_abm({
nodenames = {"projects:horin"},
interval = 19,
chance = 1,
action = function(pos, node)
local x = pos.x
local y = pos.y
local z = pos.z
local c_air = minetest.get_content_id("air")
local c_ignore = minetest.get_content_id("ignore")
local c_brick = minetest.get_content_id("default:sandstonebrick")
local c_glass = minetest.get_content_id("default:obsidian_glass")
local c_flate = minetest.get_content_id("projects:flate")
local c_flatw = minetest.get_content_id("projects:flatw")
local len = math.random(16, 64)
local vm = minetest.get_voxel_manip()
local pos1 = {x=x-1, y=y-1, z=z}
local pos2 = {x=x+4, y=y+3, z=z+len}
local emin, emax = vm:read_from_map(pos1, pos2)
local area = VoxelArea:new({MinEdge=emin, MaxEdge=emax})
local data = vm:get_data()
for i = -1, 4 do -- check volume is clear
for j = -1, 3 do
for k = 1, len do
local vi = area:index(x + i, y + j, z + k)
local nodid = data[vi]
if nodid ~= c_air and nodid ~= c_ignore then -- if volume obstructed then seal up doorway, replace spawner
for i = 0, 3 do
for j = 0, 2 do
local vi = area:index(x+i, y+j, z)
data[vi] = c_brick
end
end
vm:set_data(data)
vm:write_to_map()
vm:update_map()
return
end
end
end
end
for i = -1, 4 do
for j = -1, 3 do
for k = 1, len do
local vi = area:index(x + i, y + j, z + k)
if i == -1 or i == 4 or j == -1 or (j == 3 and (i <= 0 or i >= 3)) then
data[vi] = c_brick
elseif j == 3 or k == len then
data[vi] = c_glass
end
end
end
end
for k = 1, len do
if k < len and math.random() < 0.1 then
local vi = area:index(x - 1, y, z + k)
data[vi] = c_flatw
local vi = area:index(x - 1, y + 1, z + k)
data[vi] = c_air
end
if k < len and math.random() < 0.1 then
local vi = area:index(x + 4, y, z + k)
data[vi] = c_flate
local vi = area:index(x + 4, y + 1, z + k)
data[vi] = c_air
end
end
local vi = area:index(x, y, z) -- volume checked so replace spawner with air
data[vi] = c_air
vm:set_data(data)
vm:write_to_map()
vm:update_map()
end,
})
-- horizontal space south. spawn node is at west end of 4 wide doorway
minetest.register_abm({
nodenames = {"projects:horis"},
interval = 23,
chance = 1,
action = function(pos, node)
local x = pos.x
local y = pos.y
local z = pos.z
local c_air = minetest.get_content_id("air")
local c_ignore = minetest.get_content_id("ignore")
local c_brick = minetest.get_content_id("default:sandstonebrick")
local c_glass = minetest.get_content_id("default:obsidian_glass")
local c_flate = minetest.get_content_id("projects:flate")
local c_flatw = minetest.get_content_id("projects:flatw")
local len = math.random(16, 64)
local vm = minetest.get_voxel_manip()
local pos1 = {x=x-1, y=y-1, z=z-len}
local pos2 = {x=x+4, y=y+3, z=z-1}
local emin, emax = vm:read_from_map(pos1, pos2)
local area = VoxelArea:new({MinEdge=emin, MaxEdge=emax})
local data = vm:get_data()
for vi in area:iterp(pos1, pos2) do
local nodid = data[vi]
if nodid ~= c_air and nodid ~= c_ignore then
for i = 0, 3 do
for j = 0, 2 do
minetest.add_node({x=x+i, y=y+j, z=z}, {name="default:sandstonebrick"})
end
end
return
end
end
for i = -1, 4 do
for j = -1, 3 do
for k = 1,len do
local vi = area:index(x + i, y + j, z - k)
if i == -1 or i == 4 or j == -1 or (j == 3 and (i <= 0 or i >= 3)) then
data[vi] = c_brick
elseif j == 3 or k == len then
data[vi] = c_glass
end
end
end
end
for k = 1, len do
if k < len and math.random() < 0.1 then
local vi = area:index(x - 1, y, z - k)
data[vi] = c_flatw
local vi = area:index(x - 1, y + 1, z - k)
data[vi] = c_air
end
if k < len and math.random() < 0.1 then
local vi = area:index(x + 4, y, z - k)
data[vi] = c_flate
local vi = area:index(x + 4, y + 1, z - k)
data[vi] = c_air
end
end
vm:set_data(data)
vm:write_to_map()
vm:update_map()
minetest.add_node(pos, {name="air"})
end,
})
-- horizontal space east. spawn node is at south end of 4 wide doorway
minetest.register_abm({
nodenames = {"projects:horie"},
interval = 29,
chance = 1,
action = function(pos, node)
local x = pos.x
local y = pos.y
local z = pos.z
local c_air = minetest.get_content_id("air")
local c_ignore = minetest.get_content_id("ignore")
local c_brick = minetest.get_content_id("default:sandstonebrick")
local c_glass = minetest.get_content_id("default:obsidian_glass")
local c_flatn = minetest.get_content_id("projects:flatn")
local c_flats = minetest.get_content_id("projects:flats")
local len = math.random(16, 64)
local vm = minetest.get_voxel_manip()
local pos1 = {x=x+1, y=y-1, z=z-1}
local pos2 = {x=x+len, y=y+3, z=z+4}
local emin, emax = vm:read_from_map(pos1, pos2)
local area = VoxelArea:new({MinEdge=emin, MaxEdge=emax})
local data = vm:get_data()
for vi in area:iterp(pos1, pos2) do
local nodid = data[vi]
if nodid ~= c_air and nodid ~= c_ignore then
for k = 0, 3 do
for j = 0, 2 do
minetest.add_node({x=x, y=y+j, z=z+k}, {name="default:sandstonebrick"})
end
end
return
end
end
for i = 1, len do
for j = -1, 3 do
for k = -1, 4 do
local vi = area:index(x + i, y + j, z + k)
if k == -1 or k == 4 or j == -1 or (j == 3 and (k <= 0 or k >= 3)) then
data[vi] = c_brick
elseif j == 3 or i == len then
data[vi] = c_glass
end
end
end
end
for i = 1, len do
if i < len and math.random() < 0.1 then
local vi = area:index(x + i, y, z - 1)
data[vi] = c_flats
local vi = area:index(x + i, y + 1, z - 1)
data[vi] = c_air
end
if i < len and math.random() < 0.1 then
local vi = area:index(x + i, y, z + 4)
data[vi] = c_flatn
local vi = area:index(x + i, y + 1, z + 4)
data[vi] = c_air
end
end
vm:set_data(data)
vm:write_to_map()
vm:update_map()
minetest.add_node(pos, {name="air"})
end,
})
-- horizontal space west. spawn node is at south end of 4 wide doorway
minetest.register_abm({
nodenames = {"projects:horiw"},
interval = 31,
chance = 1,
action = function(pos, node)
local x = pos.x
local y = pos.y
local z = pos.z
local c_air = minetest.get_content_id("air")
local c_ignore = minetest.get_content_id("ignore")
local c_brick = minetest.get_content_id("default:sandstonebrick")
local c_glass = minetest.get_content_id("default:obsidian_glass")
local c_flatn = minetest.get_content_id("projects:flatn")
local c_flats = minetest.get_content_id("projects:flats")
local len = math.random(16, 64)
local vm = minetest.get_voxel_manip()
local pos1 = {x=x-len, y=y-1, z=z-1}
local pos2 = {x=x-1, y=y+3, z=z+4}
local emin, emax = vm:read_from_map(pos1, pos2)
local area = VoxelArea:new({MinEdge=emin, MaxEdge=emax})
local data = vm:get_data()
for vi in area:iterp(pos1, pos2) do
local nodid = data[vi]
if nodid ~= c_air and nodid ~= c_ignore then
for k = 0, 3 do
for j = 0, 2 do
minetest.add_node({x=x, y=y+j, z=z+k}, {name="default:sandstonebrick"})
end
end
return
end
end
for i = 1, len do
for j = -1, 3 do
for k = -1, 4 do
local vi = area:index(x - i, y + j, z + k)
if k == -1 or k == 4 or j == -1 or (j == 3 and (k <= 0 or k >= 3)) then
data[vi] = c_brick
elseif j == 3 or i == len then
data[vi] = c_glass
end
end
end
end
for i = 1, len do
if i < len and math.random() < 0.1 then
local vi = area:index(x - i, y, z - 1)
data[vi] = c_flats
local vi = area:index(x - i, y + 1, z - 1)
data[vi] = c_air
end
if i < len and math.random() < 0.1 then
local vi = area:index(x - i, y, z + 4)
data[vi] = c_flatn
local vi = area:index(x - i, y + 1, z + 4)
data[vi] = c_air
end
end
vm:set_data(data)
vm:write_to_map()
vm:update_map()
minetest.add_node(pos, {name="air"})
end,
})
-- vertical space above. spawn node is below minimum point
minetest.register_abm({
nodenames = {"projects:verta"},
interval = 37,
chance = 1,
action = function(pos, node)
local x = pos.x
local y = pos.y
local z = pos.z
local c_air = minetest.get_content_id("air")
local c_brick = minetest.get_content_id("default:sandstonebrick")
local c_slab = minetest.get_content_id("stairs:slab_stonebrick")
local c_glass = minetest.get_content_id("default:obsidian_glass")
local c_horin = minetest.get_content_id("projects:horin")
local c_horis = minetest.get_content_id("projects:horis")
local c_verta = minetest.get_content_id("projects:verta")
local c_vertopa = minetest.get_content_id("projects:vertopa")
local vm = minetest.get_voxel_manip()
local pos1 = {x=x, y=y+1, z=z}
local pos2 = {x=x+19, y=y+6, z=z+29}
local emin, emax = vm:read_from_map(pos1, pos2)
local area = VoxelArea:new({MinEdge=emin, MaxEdge=emax})
local data = vm:get_data()
for i = 0, 19 do
for j = 1, 5 do
for k = 0, 29 do
local vi = area:index(x + i, y + j, z + k)
if k == 0 or k == 29
or ((j == 1 or j == 5) and (k <= 9 or k >= 20))
or ((i == 9 or i == 10) and (k >= 9 and k <= 20)) then
data[vi] = c_brick
elseif i == 0 or i == 19 then
data[vi] = c_glass
end
end
end
end
for ramp = 0, 4 do
for ii = 1, 8 do
for jj = 1, 2 do
for kk = 0, 1 do
local vi = area:index(x + ii, y + ramp + jj, z + 10 + ramp * 2 + kk)
local vie = area:index(x + 19 - ii, y + ramp + jj, z + 19 - ramp * 2 - kk)
if jj == 1 then
data[vi] = c_brick
data[vie] = c_brick
elseif (jj == 2 and kk == 1) then
data[vi] = c_slab
data[vie] = c_slab
end
end
end
end
end
local horini = math.random(1, 15)
for i = horini, horini + 3 do
for j = 2, 4 do
local vi = area:index(x + i, y + j, z + 29)
if i == horini and j == 2 then
data[vi] = c_horin
else
data[vi] = c_air
end
end
end
local horisi = math.random(1, 15)
for i = horisi, horisi + 3 do
for j = 2, 4 do
local vi = area:index(x + i, y + j, z)
if i == horisi and j == 2 then
data[vi] = c_horis
else
data[vi] = c_air
end
end
end
local vi = area:index(x, y + 5, z)
if math.random() < 0.9 then
data[vi] = c_verta
else
data[vi] = c_vertopa
end
vm:set_data(data)
vm:write_to_map()
vm:update_map()
minetest.add_node(pos, {name="default:sandstonebrick"})
end,
})
-- vertical space entrance above. spawn node is below minimum point
minetest.register_abm({
nodenames = {"projects:vertenta"},
interval = 43,
chance = 1,
action = function(pos, node)
local x = pos.x
local y = pos.y
local z = pos.z
local c_brick = minetest.get_content_id("default:sandstonebrick")
local c_slab = minetest.get_content_id("stairs:slab_stonebrick")
local c_glass = minetest.get_content_id("default:obsidian_glass")
local c_verta = minetest.get_content_id("projects:verta")
local vm = minetest.get_voxel_manip()
local pos1 = {x=x, y=y+1, z=z}
local pos2 = {x=x+19, y=y+6, z=z+29}
local emin, emax = vm:read_from_map(pos1, pos2)
local area = VoxelArea:new({MinEdge=emin, MaxEdge=emax})
local data = vm:get_data()
for i = 0, 19 do
for j = 1, 5 do
for k = 0, 29 do
local vi = area:index(x + i, y + j, z + k)
if j == 1 or i == 0 or i == 19
or (j == 5 and (k <= 9 or k >= 20))
or ((i == 9 or i == 10) and (k >= 9 and k <= 20)) then
data[vi] = c_brick
end
end
end
end
for ramp = 0, 4 do
for ii = 1, 8 do
for jj = 1, 2 do
for kk = 0, 1 do
local vi = area:index(x + ii, y + ramp + jj, z + 10 + ramp * 2 + kk)
local vie = area:index(x + 19 - ii, y + ramp + jj, z + 19 - ramp * 2 - kk)
if jj == 1 then
data[vi] = c_brick
data[vie] = c_brick
elseif (jj == 2 and kk == 1) then
data[vi] = c_slab
data[vie] = c_slab
end
end
end
end
end
local vi = area:index(x, y + 5, z)
data[vi] = c_verta
vm:set_data(data)
vm:write_to_map()
vm:update_map()
minetest.add_node(pos, {name="default:sandstonebrick"})
end,
})
-- vertical space roof above. spawn node is below minimum point
minetest.register_abm({
nodenames = {"projects:vertopa"},
interval = 41,
chance = 1,
action = function(pos, node)
local x = pos.x
local y = pos.y
local z = pos.z
local c_air = minetest.get_content_id("air")
local c_brick = minetest.get_content_id("default:sandstonebrick")
local c_glass = minetest.get_content_id("default:obsidian_glass")
local c_horin = minetest.get_content_id("projects:horin")
local c_horis = minetest.get_content_id("projects:horis")
local vm = minetest.get_voxel_manip()
local pos1 = {x=x, y=y+1, z=z}
local pos2 = {x=x+19, y=y+5, z=z+29}
local emin, emax = vm:read_from_map(pos1, pos2)
local area = VoxelArea:new({MinEdge=emin, MaxEdge=emax})
local data = vm:get_data()
for i = 0, 19 do
for j = 1, 5 do
for k = 0, 29 do
local vi = area:index(x + i, y + j, z + k)
if k == 0 or k == 29
or ((j == 1 or j == 5) and (k <= 9 or k >= 20))
or ((i == 9 or i == 10) and (k >= 9 and k <= 20)) then
data[vi] = c_brick
elseif i == 0 or i == 19 or j == 5
or (j == 2 and ((k == 9 and i <= 8) or (k == 20 and i >= 11))) then
data[vi] = c_glass
end
end
end
end
local horini = math.random(1, 15)
for i = horini, horini + 3 do
for j = 2, 4 do
local vi = area:index(x + i, y + j, z + 29)
if i == horini and j == 2 then
data[vi] = c_horin
else
data[vi] = c_air
end
end
end
local horisi = math.random(1, 15)
for i = horisi, horisi + 3 do
for j = 2, 4 do
local vi = area:index(x + i, y + j, z)
if i == horisi and j == 2 then
data[vi] = c_horis
else
data[vi] = c_air
end
end
end
vm:set_data(data)
vm:write_to_map()
vm:update_map()
minetest.add_node(pos, {name="default:sandstonebrick"})
end,
})