Remplissage du dépôt.

This commit is contained in:
sys4-fr 2018-09-06 21:02:43 +02:00
commit b6ecf0fea6
4 changed files with 427 additions and 0 deletions

2
depends.txt Executable file
View File

@ -0,0 +1,2 @@
default
bucket

176
func.lua Executable file
View File

@ -0,0 +1,176 @@
function spawn_falling_node(p, node, owners)
local obj = minetest.add_entity(p, "__builtin:falling_node")
obj:get_luaentity():set_node(node)
obj:get_luaentity():set_owner(owners)
end
function drop_attached_node(p)
local nn = minetest.get_node(p).name
minetest.remove_node(p)
for _,item in ipairs(minetest.get_node_drops(nn, "")) do
local pos = {
x = p.x + math.random()/2 - 0.25,
y = p.y + math.random()/2 - 0.25,
z = p.z + math.random()/2 - 0.25,
}
minetest.add_item(pos, item)
end
end
function check_attached_node(p, n)
local def = minetest.registered_nodes[n.name]
local d = {x=0, y=0, z=0}
if def.paramtype2 == "wallmounted" then
if n.param2 == 0 then
d.y = 1
elseif n.param2 == 1 then
d.y = -1
elseif n.param2 == 2 then
d.x = 1
elseif n.param2 == 3 then
d.x = -1
elseif n.param2 == 4 then
d.z = 1
elseif n.param2 == 5 then
d.z = -1
end
else
d.y = -1
end
local p2 = {x=p.x+d.x, y=p.y+d.y, z=p.z+d.z}
local nn = minetest.get_node(p2).name
local def2 = minetest.registered_nodes[nn]
if def2 and not def2.walkable then
return false
end
return true
end
--
-- Some common functions
--
function nodeupdate_single(p, delay)
local n = minetest.get_node(p)
if minetest.get_item_group(n.name, "falling_node") ~= 0 then
local p_bottom = {x=p.x, y=p.y-1, z=p.z}
local n_bottom = minetest.get_node(p_bottom)
-- Note: walkable is in the node definition, not in item groups
if minetest.registered_nodes[n_bottom.name] and
(minetest.get_item_group(n.name, "float") == 0 or
minetest.registered_nodes[n_bottom.name].liquidtype == "none") and
(n.name ~= n_bottom.name or (minetest.registered_nodes[n_bottom.name].leveled and
minetest.get_node_level(p_bottom) < minetest.get_node_max_level(p_bottom))) and
(not minetest.registered_nodes[n_bottom.name].walkable or
minetest.registered_nodes[n_bottom.name].buildable_to) then
if delay then
minetest.after(0.1, nodeupdate_single, {x=p.x, y=p.y, z=p.z}, false)
else
n.level = minetest.get_node_level(p)
local meta = minetest.get_meta(p)
--print('get owner '.. meta:get_string("owner"))
spawn_falling_node(p, n, meta:get_string("owner"))
minetest.remove_node(p)
nodeupdate(p)
end
end
end
if minetest.get_item_group(n.name, "attached_node") ~= 0 then
if not check_attached_node(p, n) then
drop_attached_node(p)
nodeupdate(p)
end
end
end
function nodeupdate(p, delay)
-- Round p to prevent falling entities to get stuck
p.x = math.floor(p.x+0.5)
p.y = math.floor(p.y+0.5)
p.z = math.floor(p.z+0.5)
for x = -1,1 do
for y = -1,1 do
for z = -1,1 do
nodeupdate_single({x=p.x+x, y=p.y+y, z=p.z+z}, delay or not (x==0 and y==0 and z==0))
end
end
end
end
--
-- Global callbacks
--
function on_placenode(p, node)
nodeupdate(p)
end
minetest.register_on_placenode(on_placenode)
function on_dignode(p, node)
nodeupdate(p)
end
minetest.register_on_dignode(on_dignode)
--
-- Protected Area
--
function is_protected_area(p, zone, name)
for x= -zone, zone do
for y= -zone, zone do
for z= -zone, zone do
local pos = {x=p.x+x,y=p.y+y,z=p.z+z}
if minetest.is_protected(pos,name) then
return true
end
end
end
end
return false
end
--
-- rewrite of bucket
--
function add_protected_bukket_liquid(nameofbukket,liquidsourcename)
minetest.override_item(nameofbukket, {
on_place = function(itemstack, user, pointed_thing)
-- Must be pointing to node
if pointed_thing.type ~= "node" then
return
end
-- Check if pointing to a buildable node
local n = minetest.get_node(pointed_thing.under)
if is_protected_area(pointed_thing.under, 4 ,user:get_player_name()) then
minetest.chat_send_player(user:get_player_name(),"You can't place here - Too short of a protected area. (less than or equal to 4 blocks)")
if minetest.is_protected(pointed_thing.under,user:get_player_name()) then
minetest.log("action", user:get_player_name().. " try use "..nameofbukket.." at protected pos ".. minetest.pos_to_string(pointed_thing.under))
end
return itemstack
end
if minetest.registered_nodes[n.name].buildable_to then
-- buildable; replace the node
minetest.log("action", user:get_player_name().. " use "..nameofbukket.." at ".. minetest.pos_to_string(pointed_thing.under))
minetest.add_node(pointed_thing.under, {name=liquidsourcename})
else
-- not buildable to; place the liquid above
-- check if the node above can be replaced
n = minetest.get_node(pointed_thing.above)
if minetest.registered_nodes[n.name].buildable_to then
minetest.log("action", user:get_player_name().. " use "..nameofbukket.." at ".. minetest.pos_to_string(pointed_thing.above))
minetest.add_node(pointed_thing.above, {name=liquidsourcename})
else
-- do not remove the bucket with the liquid
return
end
end
return {name="bucket:bucket_empty"}
end
})
end

15
init.lua Executable file
View File

@ -0,0 +1,15 @@
dofile(minetest.get_modpath("builtin_falling") .. "/func.lua") -- Not EDIT THAT
--
-- Config
--
-- Protect in realtime the lava flowing (can be slow)
PROTECT_LAVA_REALTIME = 0 -- 0 for OFF , 1 for ON
-- Protect in realtime the water flowing (can be very slow, because some water in this world :p)
PROTECT_WATER_REALTIME = 0 -- 0 for OFF , 1 for ON
add_protected_bukket_liquid("bucket:bucket_lava","default:lava_source") -- lava bukket
add_protected_bukket_liquid("bucket:bucket_water","default:water_source") -- water bukket
-- Not EDIT AFTER
dofile(minetest.get_modpath("builtin_falling") .. "/rewirting.lua") -- Not EDIT THAT

234
rewirting.lua Executable file
View File

@ -0,0 +1,234 @@
--
-- Falling stuff custom for protected area
--
minetest.register_entity(":__builtin:falling_node", {
initial_properties = {
physical = true,
collide_with_objects = false,
collisionbox = {-0.5,-0.5,-0.5, 0.5,0.5,0.5},
visual = "wielditem",
textures = {},
visual_size = {x=0.667, y=0.667},
owner = "falling",
},
node = {},
set_node = function(self, node)
self.node = node
local stack = ItemStack(node.name)
local itemtable = stack:to_table()
local itemname = nil
if itemtable then
itemname = stack:to_table().name
end
local item_texture = nil
local item_type = ""
if minetest.registered_items[itemname] then
item_texture = minetest.registered_items[itemname].inventory_image
item_type = minetest.registered_items[itemname].type
end
local prop = {
is_visible = true,
textures = {node.name},
}
self.object:set_properties(prop)
end,
set_owner = function(self, owner)
if owner ~= nil then
self.owner = "falling"
else
self.owner = owner
end
end,
get_staticdata = function(self)
return self.node.name
end,
on_activate = function(self, staticdata)
self.object:set_armor_groups({immortal=1})
self:set_node({name=staticdata})
end,
on_step = function(self, dtime)
-- Set gravity
self.object:setacceleration({x=0, y=-10, z=0})
-- Turn to actual sand when collides to ground or just move
local pos = self.object:getpos()
local bcp = {x=pos.x, y=pos.y-0.7, z=pos.z} -- Position of bottom center point
local bcn = minetest.get_node(bcp)
local bcd = minetest.registered_nodes[bcn.name]
-- Note: walkable is in the node definition, not in item groups
if not bcd or
(bcd.walkable or
(minetest.get_item_group(self.node.name, "float") ~= 0 and
bcd.liquidtype ~= "none")) then
if bcd and bcd.leveled and
bcn.name == self.node.name then
local addlevel = self.node.level
if addlevel == nil or addlevel <= 0 then
addlevel = bcd.leveled
end
if minetest.add_node_level(bcp, addlevel) == 0 then
self.object:remove()
return
end
elseif bcd and bcd.buildable_to and
(minetest.get_item_group(self.node.name, "float") == 0 or
bcd.liquidtype == "none") then
minetest.remove_node(bcp)
return
end
local np = {x=bcp.x, y=bcp.y+1, z=bcp.z}
-- Check what's here
local n2 = minetest.get_node(np)
-- If it's not air or liquid, remove node and replace it with
-- it's drops
if n2.name ~= "air" and (not minetest.registered_nodes[n2.name] or
minetest.registered_nodes[n2.name].liquidtype == "none") then
minetest.remove_node(np)
if minetest.registered_nodes[n2.name].buildable_to == false then
-- Add dropped items
local drops = minetest.get_node_drops(n2.name, "")
local _, dropped_item
for _, dropped_item in ipairs(drops) do
minetest.add_item(np, dropped_item)
end
end
-- Run script hook
local _, callback
for _, callback in ipairs(minetest.registered_on_dignodes) do
callback(np, n2, nil)
end
end
-- Create node and remove entity
if self.owner == nil or self.owner == "falling" and not minetest.is_protected(pos,"") then
minetest.add_node(np, self.node)
else
if not minetest.is_protected(pos,self.owner) then
minetest.log("action", self.owner
.. " falling node " .. self.node.name
.. " at"
.. minetest.pos_to_string(pos))
minetest.add_node(np, self.node)
else
minetest.log("action", self.owner
.. " try to falling node " .. self.node.name
.. " at protected position "
.. minetest.pos_to_string(pos))
minetest.add_item(np, self.node)
end
end
self.object:remove()
nodeupdate(np)
return
end
local vel = self.object:getvelocity()
if vector.equals(vel, {x=0,y=0,z=0}) then
local npos = self.object:getpos()
self.object:setpos(vector.round(npos))
end
end
})
minetest.override_item("default:lava_source", {
on_place = function(itemstack, placer, pointed_thing)
if not pointed_thing.type == "node" then
return itemstack
end
local pn = placer:get_player_name()
if minetest.is_protected(pointed_thing.above, pn) then
return itemstack
end
minetest.add_node(pointed_thing.above, {name=itemstack:get_name()})
local meta = minetest.get_meta(pointed_thing.above)
meta:set_string("owner", pn)
nodeupdate(pointed_thing.above)
if not minetest.setting_getbool("creative_mode") then
itemstack:take_item()
end
return itemstack
end,
})
minetest.override_item("default:lava_flowing", {
on_place = function(itemstack, placer, pointed_thing)
if not pointed_thing.type == "node" then
return itemstack
end
local pn = placer:get_player_name()
if minetest.is_protected(pointed_thing.above, pn) then
return itemstack
end
minetest.add_node(pointed_thing.above, {name=itemstack:get_name()})
local meta = minetest.get_meta(pointed_thing.above)
meta:set_string("owner", pn)
nodeupdate(pointed_thing.above)
if not minetest.setting_getbool("creative_mode") then
itemstack:take_item()
end
return itemstack
end,
})
if PROTECT_LAVA_REALTIME == 1 then
minetest.register_abm({
nodenames = {"default:lava_source","default:lava_flowing"},
neighbors = {"air"},
interval = 1,
chance = 1,
action = function(pos, node, active_object_count, active_object_count_wider)
local meta = minetest.get_meta(pos)
if meta:get_string("owner") ~= nil and minetest.is_protected(pos, meta:get_string("owner")) then
minetest.add_node(pos,{name="air"})
end
end
})
end
if PROTECT_WATER_REALTIME == 1 then
minetest.register_abm({
nodenames = {"default:water_source","default:water_flowing"},
neighbors = {"air"},
interval = 1,
chance = 1,
action = function(pos, node, active_object_count, active_object_count_wider)
local meta = minetest.get_meta(pos)
if meta:get_string("owner") ~= nil and minetest.is_protected(pos, meta:get_string("owner")) then
minetest.add_node(pos,{name="air"})
end
end
})
end
-- More slow >.<
--local c_air = minetest.get_content_id("air")
--minetest.register_abm({
-- nodenames = {"default:lava_source","default:lava_flowing"},
-- neighbors = {"air"},
-- interval = 2,
-- chance = 1,
-- action = function(pos, node, active_object_count, active_object_count_wider)
-- local vm = minetest.get_voxel_manip()
-- local minp, maxp = vm:read_from_map({x = pos.x, y = pos.y , z = pos.z },
-- {x = pos.x , y = pos.y , z = pos.z })
-- local area = VoxelArea:new{MinEdge=minp, MaxEdge=maxp}
-- local data = vm:get_data()
-- local p_pos = area:index(pos.x, pos.y , pos.z)
-- print ("pos: , name :"..minetest.get_name_from_content_id(data[p_pos]))
-- local meta = minetest.get_meta(area:position(p_pos))
-- if minetest.get_name_from_content_id(data[p_pos])== "default:lava_source" and meta:get_string("owner") ~= nil and minetest.is_protected(area:position(p_pos), meta:get_string("owner")) then
-- data[p_pos] = c_air
-- end
-- vm:set_data(data)
-- vm:write_to_map()
-- vm:update_map()
-- end
--})