Overhaul kelp interactions.

Highlights:
- Added locking system to drops. Will be removed after testing.
- Expose more variables and functions. Will be finalized soon.
- Implement MC-like age and natural growth mechanics.
- Implement correct piston interactions with kelp and its surface.
- Implement correct falling node interactions for its surface.
- ABMs are now nonfunction. Will be fixed.
- Various optimizations and fixes.
This commit is contained in:
iliekprogrammar 2021-03-29 14:09:09 +08:00
parent 24da94ec3b
commit ecdbc30b63
2 changed files with 320 additions and 166 deletions

View File

@ -1,3 +1,5 @@
mcl_ocean = {}
-- Prismarine (includes sea lantern) -- Prismarine (includes sea lantern)
dofile(minetest.get_modpath(minetest.get_current_modname()).."/prismarine.lua") dofile(minetest.get_modpath(minetest.get_current_modname()).."/prismarine.lua")

View File

@ -3,9 +3,6 @@
-- --
-- TODO: In MC, you can't actually destroy kelp by bucket'ing water in the middle. -- TODO: In MC, you can't actually destroy kelp by bucket'ing water in the middle.
-- However, because of the plantlike_rooted hack, we'll just allow it for now. -- However, because of the plantlike_rooted hack, we'll just allow it for now.
--
-- TODO: Currently, you lose kelp if the kelp is placed on a block and then falls.
-- This is most relevant for (red)sand and gravel.
local S = minetest.get_translator("mcl_ocean") local S = minetest.get_translator("mcl_ocean")
local mod_doc = minetest.get_modpath("doc") ~= nil local mod_doc = minetest.get_modpath("doc") ~= nil
@ -14,19 +11,28 @@ local mod_doc = minetest.get_modpath("doc") ~= nil
-- local-ify runtime functions -- local-ify runtime functions
-------------------------------------------------------------------------------- --------------------------------------------------------------------------------
-- objects -- objects
local registered_items = minetest.registered_items local mt_registered_items = minetest.registered_items
local registered_nodes = minetest.registered_nodes local mt_registered_nodes = minetest.registered_nodes
-- functions -- functions
local mt_add_item = minetest.add_item
local mt_get_item_group = minetest.get_item_group local mt_get_item_group = minetest.get_item_group
local mt_get_node = minetest.get_node local mt_get_node = minetest.get_node
local mt_set_node = minetest.set_node local mt_get_node_level = minetest.get_node_level
local mt_add_item = minetest.add_item local mt_get_node_max_level = minetest.get_node_max_level
local mt_sound_play = minetest.sound_play local mt_get_node_or_nil = minetest.get_node_or_nil
local mt_is_creative_enabled = minetest.is_creative_enabled
local mt_is_protected = minetest.is_protected
local mt_hash_node_position = minetest.hash_node_position
local mt_get_node_timer = minetest.get_node_timer local mt_get_node_timer = minetest.get_node_timer
local mt_hash_node_position = minetest.hash_node_position
local mt_is_protected = minetest.is_protected
local mt_set_node = minetest.set_node
local mt_get_meta = minetest.get_meta
local mt_is_creative_enabled = minetest.is_creative_enabled
local mt_sound_play = minetest.sound_play
local math_floor = math.floor
local math_random = math.random
local string_format = string.format
-- DEBUG: functions -- DEBUG: functions
local log = minetest.log local log = minetest.log
@ -36,109 +42,218 @@ local chatlog = minetest.chat_send_all
-- Kelp API -- Kelp API
-------------------------------------------------------------------------------- --------------------------------------------------------------------------------
kelp = {} local kelp = {}
mcl_ocean.kelp = kelp
kelp.MAX_AGE = 25
kelp.TIMER_INTERVAL = 0.2
-- The average amount of growth for kelp in a day is 2.16 (https://youtu.be/5Bp4lAjAk3I)
-- Normally, a day lasts 20 minutes, meaning this nodetimer is executed 24000 times.
-- Calculate probability via 2.16/24000 and we get the probability 9/100'000 or 9.0e-5
-- NOTE: currently, we can't exactly use the same type of randomness MC does,
-- because it has multiple complicated sets of PRNGs.
-- kelp.RANDOM_NUMERATOR = 9
kelp.RANDOM_NUMERATOR = 100
kelp.RANDOM_DENOMINATOR = 100000
kelp.leaf_sounds = mcl_sounds.node_sound_leaves_defaults()
-- TODO: is this really necessary
-- Lock drops to avoid duplicate drops, set after dropping detached kelp.
kelp.lock_drop = 0
-- Registrar of nodetimers, indexed by pos_hash.
kelp.registered_nodetimers = {}
-- Pool storing age, indexed by pos_hash.
kelp.age_pool = {}
-- is age in the growable range?
function kelp.is_age_growable(age)
return age >= 0 and age < kelp.MAX_AGE
end
-- Is this water? -- Is this water?
-- Returns the liquidtype, if indeed water. -- Returns the liquidtype, if indeed water.
local function is_submerged(node, nodedef) function kelp.is_submerged(node, def)
if mt_get_item_group(node.name, "water") ~= 0 then if mt_get_item_group(node.name, "water") ~= 0 then
return nodedef.liquidtype -- Expected only "source" and "flowing" from water liquids return def.liquidtype -- Expected only "source" and "flowing" from water liquids
end end
return false return false
end end
kelp.is_submerged = is_submerged
-- Is the water downward flowing? -- Is the water downward flowing?
-- (kelp can grow/be placed inside downward flowing water) -- (kelp can grow/be placed inside downward flowing water)
local function is_downward_flowing(pos, node, nodedef, is_above) function kelp.is_downward_flowing(pos, node, def, is_above)
local result = (math.floor(node.param2 / 8) % 2) == 1 local result = (math_floor(node.param2 / 8) % 2) == 1
if not (result or is_above) then if not (result or is_above) then
-- If not, also check node above. -- If not, also check node above.
-- (this is needed due a weird quirk in the definition of "downwards flowing" -- (this is needed due a weird quirk in the definition of "downwards flowing"
-- liquids in Minetest) -- liquids in Minetest)
local node_above = mt_get_node({x=pos.x,y=pos.y+1,z=pos.z}) local node_above = mt_get_node({x=pos.x,y=pos.y+1,z=pos.z})
local nodedef_above = registered_nodes[node_above.name] local def_above = mt_registered_nodes[node_above.name]
result = is_submerged(node_above, nodedef_above) result = kelp.is_submerged(node_above, def_above)
or is_downward_flowing(pos, node_above, nodedef_above, true) or kelp.is_downward_flowing(pos, node_above, def_above, true)
end end
return result return result
end end
kelp.is_downward_flowing = is_downward_flowing
-- Will node fall at that position?
-- This only checks if a node would fall, meaning that node need not be at pos.
function kelp.is_falling(pos, node)
-- NOTE: Modified from check_single_for_falling in builtin.
-- Please update as necessary.
local nodename = node.name
if mt_get_item_group(nodename, "falling_node") == 0 then
return false
end
local pos_bottom = {x = pos.x, y = pos.y - 1, z = pos.z}
-- get_node_or_nil: Only fall if node below is loaded
local node_bottom = mt_get_node_or_nil(pos_bottom)
local nodename_bottom = node_bottom.name
local def_bottom = node_bottom and mt_registered_nodes[nodename_bottom]
if not def_bottom then
return false
end
local same = nodename == nodename_bottom
-- Let leveled nodes fall if it can merge with the bottom node
if same and def_bottom.paramtype2 == "leveled" and
mt_get_node_level(pos_bottom) <
mt_get_node_max_level(pos_bottom) then
return true
end
-- Otherwise only if the bottom node is considered "fall through"
if not same and
(not def_bottom.walkable or def_bottom.buildable_to) and
(mt_get_item_group(nodename, "float") == 0 or
def_bottom.liquidtype == "none") then
return true
end
return false
end
-- Converts param2 to kelp height. -- Converts param2 to kelp height.
local function get_height(param2) function kelp.get_height(param2)
return math.floor(param2 / 16) return math_floor(param2 / 16)
end end
kelp.get_height = get_height
-- Obtain pos and node of the top of kelp. -- Obtain pos and node of the tip of kelp.
local function get_tip(pos, node) function kelp.get_tip(pos, node)
local size = math.ceil(node.param2 / 16) local size = math.ceil(node.param2 / 16)
local pos_top = table.copy(pos) local pos_tip = table.copy(pos)
pos_top.y = pos_top.y + size pos_tip.y = pos_tip.y + size
return pos_top, mt_get_node(pos_top) return pos_tip, mt_get_node(pos_tip)
end end
kelp.get_tip = get_tip
-- Obtain position of the first kelp unsubmerged. -- Obtain position of the first kelp unsubmerged.
local function find_unsubmerged(pos, node) function kelp.find_unsubmerged(pos, node)
local x,y,z = pos.x, pos.y, pos.z local x,y,z = pos.x, pos.y, pos.z
local height = get_height(node.param2) local height = kelp.get_height(node.param2)
local walk_pos = {x=x, z=z}
for i=1,height do for i=1,height do
local walk_pos = {x=x, y=y + i, z=z} walk_pos.y = y + i
if mt_get_item_group(mt_get_node(walk_pos).name, "water") == 0 then local walk_node = mt_get_node(walk_pos)
return walk_pos if mt_get_item_group(walk_node.name, "water") == 0 then
return walk_pos, walk_node
end end
end end
return nil return nil
end end
kelp.find_unsubmerged = find_unsubmerged
-- Obtain next param2. -- Obtain next param2.
local function next_param2(param2) function kelp.next_param2(param2)
local old_param2 = param2 return param2+16 - param2 % 16
param2 = param2+16 - param2 % 16
return param2, param2 ~= old_param2
end end
kelp.next_param2 = next_param2
-- Grow next kelp. -- Grow next kelp.
local function next_grow(pos, node, pos_top, def_top, is_downward_flowing) function kelp.next_grow(pos, node, pos_tip, def_tip, downward_flowing)
-- Optional parameters
local pos_tip, def_tip = pos_tip, def_tip
local downward_flowing = downward_flowing
if pos_tip == nil and def_tip == nil then
local node_tip
pos_tip, node_tip = kelp.get_tip(pos, node)
def_tip = mt_registered_nodes[node_tip.name]
downward_flowing = kelp.is_submerged(pos_tip, node_tip)
and kelp.is_downward_flowing(pos_tip, node_tip, def_tip)
end
-- Liquid source: Grow normally. -- Liquid source: Grow normally.
local node = table.copy(node)
node.param2 = kelp.next_param2(node.param2)
mt_set_node(pos, node) mt_set_node(pos, node)
-- Flowing liquid: Grow 1 step, but also turn the top node into a liquid source. -- Flowing liquid: Grow 1 step, but also turn the tip node into a liquid source.
if is_downward_flowing then if downward_flowing then
local alt_liq = def_top.liquid_alternative_source local alt_liq = def_tip.liquid_alternative_source
if alt_liq then if alt_liq then
mt_set_node(pos_top, {name=alt_liq}) mt_set_node(pos_tip, {name=alt_liq})
end end
end end
end end
kelp.next_grow = next_grow
-- Naturally grow next kelp.
function kelp.natural_grow(pos, node, age, pos_hash, meta)
-- Must grow first, then get the new meta
kelp.next_grow(pos, node)
-- Optional params
local meta = meta or mt_get_meta(pos)
local pos_hash = pos_hash or mt_hash_node_position(pos)
local age = age + 1
kelp.age_pool[pos_hash] = age
meta:set_int("mcl_ocean:kelp_age", age)
end
-- Drops the items for detached kelps. -- Drops the items for detached kelps.
local function detach_drop(pos, height) function kelp.detach_drop(pos, height, pos_hash)
local pos_hash = pos_hash or mt_hash_node_position(pos) -- Optional params
if kelp.lock_drop > 0 then
minetest.log("error",
string_format("Duplicate drop prevented at (%d, %d, %d) with lock level %d! Please report this.",
pos.x, pos.y, pos.z, kelp.lock_drop))
return
end
local x,y,z = pos.x,pos.y,pos.z local x,y,z = pos.x,pos.y,pos.z
for i=1,height do for i=1,height do
mt_add_item({x=x, y=y+i, z=z}, "mcl_ocean:kelp") mt_add_item({x=x, y=y+i, z=z}, "mcl_ocean:kelp")
end end
-- Locks drop.
kelp.lock_drop = kelp.lock_drop + 1
return true
end end
kelp.detach_drop = detach_drop
-- Detach the kelp at dig_pos, and drop their items. -- Detach the kelp at dig_pos, and drop their items.
-- Synonymous to digging the kelp. -- Synonymous to digging the kelp.
-- NOTE: this is intended for whenever kelp truly becomes segmented plants -- NOTE: this is intended for whenever kelp truly becomes segmented plants
-- instead of rooted to the floor. Don't try to remove dig_pos. -- instead of rooted to the floor. Don't try to remove dig_pos.
local function detach_dig(dig_pos, pos, node, is_drop) function kelp.detach_dig(dig_pos, pos, node, is_drop, pos_hash)
local pos_hash = pos_hash or mt_hash_node_position(pos)
local param2 = node.param2 local param2 = node.param2
-- pos.y points to the surface, offset needed to point to the first kelp. -- pos.y points to the surface, offset needed to point to the first kelp.
local new_height = dig_pos.y - (pos.y+1) local new_height = dig_pos.y - (pos.y+1)
@ -146,52 +261,77 @@ local function detach_dig(dig_pos, pos, node, is_drop)
-- Digs the entire kelp: invoke after_dig_node to mt_set_node. -- Digs the entire kelp: invoke after_dig_node to mt_set_node.
if new_height <= 0 then if new_height <= 0 then
if is_drop then if is_drop then
detach_drop(dig_pos, get_height(param2)) kelp.detach_drop(dig_pos, kelp.get_height(param2), pos_hash)
end end
mt_set_node(pos, { mt_set_node(pos, {
name=registered_nodes[node.name].node_dig_prediction, name=mt_registered_nodes[node.name].node_dig_prediction,
param=node.param, param2=0 }) param=node.param, param2=0 })
-- Digs the kelp beginning at a height -- Digs the kelp beginning at a height
else else
if is_drop then if is_drop then
detach_drop(dig_pos, get_height(param2) - new_height) kelp.detach_drop(dig_pos, kelp.get_height(param2) - new_height, pos_hash)
end end
mt_set_node(pos, {name=node.name, param=node.param, param2=16*new_height}) mt_set_node(pos, {name=node.name, param=node.param, param2=16*new_height})
end end
end end
kelp.detach_dig = detach_dig
-------------------------------------------------------------------------------- --------------------------------------------------------------------------------
-- Kelp callback functions -- Kelp callback functions
-------------------------------------------------------------------------------- --------------------------------------------------------------------------------
local function surface_on_dig(pos, node, digger) -- Set this to drop kelps when
-- NOTE: if instead, kelp shouldn't drop in creative: use this instead function kelp.surface_on_dig(pos, node, digger)
-- detach_dig(pos, pos, node, kelp.detach_dig(pos, pos, node, true)
-- not (digger and mt_is_creative_enabled(digger:get_player_name())))
detach_dig(pos, pos, node, true)
end end
kelp.surface_on_dig = surface_on_dig
local function surface_after_dig_node(pos, node) function kelp.surface_after_dig_node(pos, node)
return mt_set_node(pos, {name=registred_nodes[node.name].node_dig_prediction}) return mt_set_node(pos, {name=registred_nodes[node.name].node_dig_prediction})
end end
kelp.surface_after_dig_node = surface_after_dig_node
local kelp_timers = {} function kelp.surface_on_timer(pos, elapsed)
local kelp_timers_counter = 0
local function surface_on_timer(pos, elapsed)
local node = mt_get_node(pos) local node = mt_get_node(pos)
local dig_pos = find_unsubmerged(pos, node) local dig_pos = kelp.find_unsubmerged(pos, node)
local pos_hash = mt_hash_node_position(pos)
if dig_pos then if dig_pos then
detach_dig(dig_pos, pos, node, true) kelp.detach_dig(dig_pos, pos, node, true, pos_hash)
end end
-- Grow kelp on chance
if math_random(kelp.RANDOM_DENOMINATOR) - kelp.RANDOM_NUMERATOR < 0 then
local age = kelp.age_pool[pos_hash]
if kelp.is_age_growable(age) then
kelp.natural_grow(pos, node, age, pos_hash)
end
end
return true return true
end end
function kelp.surface_on_destruct(pos)
local node = mt_get_node(pos)
local pos_hash = mt_hash_node_position(pos)
-- on_falling callback. Activated by pistons for falling nodes too.
if kelp.is_falling(pos, node) then
kelp.detach_drop(pos, kelp.get_height(node.param2), pos_hash)
end
-- Unlocks drops.
if kelp.lock_drop > 0 then
kelp.lock_drop = kelp.lock_drop - 1
end
end
function kelp.surface_on_mvps_move(pos, node, oldpos, nodemeta)
-- Pistons moving falling nodes will have already activated on_falling callback.
kelp.detach_dig(pos, pos, node, mt_get_item_group(node.name, "falling_node") ~= 1)
end
-- NOTE: Uncomment this to use ABMs -- NOTE: Uncomment this to use ABMs
-- local function surface_unsubmerged_abm(pos, node) -- local function surface_unsubmerged_abm(pos, node)
@ -204,35 +344,52 @@ end
-- NOTE: Uncomment this to use nodetimers -- NOTE: Uncomment this to use nodetimers
local function surface_register_nodetimer(pos, node) function kelp.surface_register_nodetimer(pos, node, pos_hash, meta, age)
local pos_hash = mt_hash_node_position(pos) -- Optional params
if kelp_timers[pos_hash] then local pos_hash,meta,age = pos_hash,meta,age
return local timer = kelp.registered_nodetimers[pos_hash]
if not timer then
pos_hash = pos_hash or mt_hash_node_position(pos)
timer = mt_get_node_timer(pos)
kelp.registered_nodetimers[pos_hash] = timer
-- Pool age to avoid meta:get* operations
meta = meta or mt_get_meta(pos)
if not age then
if not meta:contains("mcl_ocean:kelp_age") then
age = math_random(0, kelp.MAX_AGE-1)
else
age = meta:get_int("mcl_ocean:kelp_age")
end end
local timer = mt_get_node_timer(pos)
kelp_timers[pos_hash] = timer
timer:start(0.5)
kelp_timers_counter = kelp_timers_counter + 1
chatlog("added a timer. Currently " ..tostring(kelp_timers_counter) .." timers")
end
kelp.surface_register_nodetiemr = surface_register_nodetimer
local function grow_kelp(pos, node)
local grow
-- Grow kelp by 1 node length if it would grow inside water
node.param2, grow = next_param2(node.param2)
local pos_top, node_top = get_tip(pos, node)
local def_top = registered_nodes[node_top.name]
if grow and is_submerged(node_top, def_top) then
next_grow(pos, node, pos_top, def_top,
is_downward_flowing(pos_top, node_top, def_top))
end end
kelp.age_pool[pos_hash] = age
meta:set_int("mcl_ocean:kelp_age", age)
end
if not timer:is_started() then
timer:start(kelp.TIMER_INTERVAL)
end
return pos_hash, meta, age
end end
kelp.grow_kelp = grow_kelp
local function kelp_on_place(itemstack, placer, pointed_thing) -- NOTE: Uncomment this to use ABMs
-- function kelp.grow_abm(pos, node)
-- -- Grow kelp by 1 node length if it would grow inside water
-- node.param2 = next_param2(node.param2)
-- local pos_tip, node_tip = get_tip(pos, node)
-- local def_tip = mt_registered_nodes[node_tip.name]
-- if is_submerged(node_tip, def_tip) then
-- kelp.next_grow(pos, node, pos_tip, def_tip,
-- is_downward_flowing(pos_tip, node_tip, def_tip))
-- end
-- end
function kelp.kelp_on_place(itemstack, placer, pointed_thing)
if pointed_thing.type ~= "node" or not placer then if pointed_thing.type ~= "node" or not placer then
return itemstack return itemstack
end end
@ -242,14 +399,15 @@ local function kelp_on_place(itemstack, placer, pointed_thing)
local pos_above = pointed_thing.above local pos_above = pointed_thing.above
local node_under = mt_get_node(pos_under) local node_under = mt_get_node(pos_under)
local nu_name = node_under.name local nu_name = node_under.name
local def_under = registered_nodes[nu_name] local def_under = mt_registered_nodes[nu_name]
-- Allow rightclick override. -- Allow rightclick to override place.
if def_under and def_under.on_rightclick and not placer:get_player_control().sneak then if def_under and def_under.on_rightclick and not placer:get_player_control().sneak then
return def_under.on_rightclick(pos_under, node_under, return def_under.on_rightclick(pos_under, node_under,
placer, itemstack, pointed_thing) or itemstack placer, itemstack, pointed_thing) or itemstack
end end
-- Protection
if mt_is_protected(pos_under, player_name) or if mt_is_protected(pos_under, player_name) or
mt_is_protected(pos_above, player_name) then mt_is_protected(pos_above, player_name) then
minetest.log("action", player_name minetest.log("action", player_name
@ -260,86 +418,89 @@ local function kelp_on_place(itemstack, placer, pointed_thing)
return itemstack return itemstack
end end
local new_kelp = false
local downward_flowing = false local pos_tip, node_tip, def_tip
local pos_top, node_top, def_top local pos_hash, meta
-- Kelp must also be placed on the top/tip side of the surface/kelp
if pos_under.y >= pos_above.y then
return itemstack
end
-- When placed on kelp. -- When placed on kelp.
if mt_get_item_group(nu_name, "kelp") == 1 then if mt_get_item_group(nu_name, "kelp") == 1 then
node_under.param2, new_kelp = next_param2(node_under.param2) pos_tip, node_tip = kelp.get_tip(pos_under, node_under)
-- Kelp must not reach the height limit. def_tip = mt_registered_nodes[node_tip.name]
-- Kelp must also be placed on top of kelp to add kelp.
if not new_kelp or pos_under.y >= pos_above.y then pos_hash = mt_hash_node_position(pos_under)
return itemstack meta = mt_get_meta(pos_under)
end
pos_top, node_top = get_tip(pos_under, node_under)
def_top = registered_nodes[node_top.name]
-- When placed on surface. -- When placed on surface.
else else
local surfaces = kelp.surfaces or surfaces local new_kelp = false
for _,surface in pairs(surfaces) do for _,surface in pairs(kelp.surfaces) do
-- Surface must support kelp
if nu_name == surface.nodename then if nu_name == surface.nodename then
node_under.name = "mcl_ocean:kelp_" ..surface.name node_under.name = "mcl_ocean:kelp_" ..surface.name
node_under.param2 = registered_items[nu_name].place_param2 or 16 node_under.param2 = 0
new_kelp = true new_kelp = true
break break
end end
end end
-- Surface must support kelp
-- Kelp must also be placed on top of surface to add new kelp. if not new_kelp then
if not new_kelp or pos_under.y >= pos_above.y then
return itemstack return itemstack
end end
pos_top = pos_above
node_top = mt_get_node(pos_above)
def_top = registered_nodes[node_top.name]
-- NOTE: Uncomment this to use nodetimers -- NOTE: Uncomment this to use nodetimers
-- Register nodetimer -- Register nodetimer
surface_register_nodetimer(pos_under, node_under) pos_hash, meta = kelp.surface_register_nodetimer(pos_under)
pos_tip = pos_above
node_tip = mt_get_node(pos_above)
def_tip = mt_registered_nodes[node_tip.name]
end end
-- New kelp must also be submerged in water. -- New kelp must also be submerged in water.
downward_flowing = is_downward_flowing(pos_top, node_top, def_top) local downward_flowing = kelp.is_downward_flowing(pos_tip, node_tip, def_tip)
if not (is_submerged(node_top, def_top) or downward_flowing) then if not (kelp.is_submerged(node_tip, def_tip) or downward_flowing) then
return itemstack return itemstack
end end
-- Play sound, place surface/kelp and take away an item -- Play sound, place surface/kelp and take away an item
local def_node = registered_items[nu_name] local def_node = mt_registered_items[nu_name]
if def_node.sounds then if def_node.sounds then
mt_sound_play(def_node.sounds.place, { gain = 0.5, pos = pos_under }, true) mt_sound_play(def_node.sounds.place, { gain = 0.5, pos = pos_under }, true)
end end
next_grow(pos_under, node_under, pos_top, def_top, downward_flowing) kelp.next_grow(pos_under, node_under, pos_tip, def_tip, downward_flowing)
if not mt_is_creative_enabled(player_name) then if not mt_is_creative_enabled(player_name) then
itemstack:take_item() itemstack:take_item()
end end
-- Reroll age
local age = math_random(0, kelp.MAX_AGE-1)
meta:set_int("mcl_ocean:kelp_age", age)
kelp.age_pool[pos_hash] = age
return itemstack return itemstack
end end
kelp.kelp_on_place = kelp_on_place
-------------------------------------------------------------------------------- --------------------------------------------------------------------------------
-- Kelp registration API -- Kelp registration API
-------------------------------------------------------------------------------- --------------------------------------------------------------------------------
-- List of supported surfaces for seagrass and kelp. -- List of supported surfaces for seagrass and kelp.
local surfaces = { kelp.surfaces = {
{ name="dirt", nodename="mcl_core:dirt", }, { name="dirt", nodename="mcl_core:dirt", },
{ name="sand", nodename="mcl_core:sand", }, { name="sand", nodename="mcl_core:sand", },
{ name="redsand", nodename="mcl_core:redsand", }, { name="redsand", nodename="mcl_core:redsand", },
{ name="gravel", nodename="mcl_core:gravel", }, { name="gravel", nodename="mcl_core:gravel", },
} }
kelp.surfaces = surfaces kelp.registered_surfaces = {}
local registered_surfaces = {}
kelp.registered_surfaces = registered_surfaces
-- Commented properties are the ones obtained using register_kelp_surface. -- Commented properties are the ones obtained using register_kelp_surface.
-- If you define your own properties, it overrides the default ones. -- If you define your own properties, it overrides the default ones.
local surface_deftemplate = { kelp.surface_deftemplate = {
drawtype = "plantlike_rooted", drawtype = "plantlike_rooted",
paramtype = "light", paramtype = "light",
paramtype2 = "leveled", paramtype2 = "leveled",
@ -365,55 +526,46 @@ local surface_deftemplate = {
groups = { dig_immediate = 3, deco_block = 1, plant = 1, kelp = 1, }, groups = { dig_immediate = 3, deco_block = 1, plant = 1, kelp = 1, },
--sounds = sounds, --sounds = sounds,
--node_dig_prediction = nodename, --node_dig_prediction = nodename,
after_dig_node = surface_after_dig_node, after_dig_node = kelp.surface_after_dig_node,
on_dig = surface_on_dig, on_destruct = kelp.surface_on_destruct,
on_timer = surface_on_timer, on_dig = kelp.surface_on_dig,
on_timer = kelp.surface_on_timer,
mesecon = { on_mvps_move = kelp.surface_on_mvps_move, },
drop = "", -- drops are handled in on_dig drop = "", -- drops are handled in on_dig
--_mcl_falling_node_alternative = is_falling and nodename or nil, --_mcl_falling_node_alternative = is_falling and nodename or nil,
_mcl_hardness = 0, _mcl_hardness = 0,
_mcl_blast_resistance = 0, _mcl_blast_resistance = 0,
} }
kelp.surface_deftemplate = surface_deftemplate
-- Commented properties are the ones obtained using register_kelp_surface. -- Commented properties are the ones obtained using register_kelp_surface.
local surface_docs = { kelp.surface_docs = {
-- entry_id_orig = nodename, -- entry_id_orig = nodename,
_doc_items_entry_name = S("Kelp"), _doc_items_entry_name = S("Kelp"),
_doc_items_longdesc = S("Kelp grows inside water on top of dirt, sand or gravel."), _doc_items_longdesc = S("Kelp grows inside water on top of dirt, sand or gravel."),
--_doc_items_create_entry = doc_create, --_doc_items_create_entry = doc_create,
_doc_items_image = "mcl_ocean_kelp_item.png", _doc_items_image = "mcl_ocean_kelp_item.png",
} }
kelp.surface_docs = surface_docs
--[==[-- -- Creates new surfaces.
register_kelp_surface(surface[, surface_deftemplate[, surface_docs]]) -- NOTE: surface_deftemplate will be modified in-place.
function kelp.register_kelp_surface(surface, surface_deftemplate, surface_docs)
surface: table with its specific properties. See also kelp.surface.
surface_deftemplate: modifiable nodedef template. See also kelp.surface_deftempate.
DO NOT RE-USE THE SAME DEFTEMPLATE. create copies.
surface_docs: table with properties related to docs. See also kelp.surface_docs.
--]==]--
local leaf_sounds = mcl_sounds.node_sound_leaves_defaults()
local function register_kelp_surface(surface, surface_deftemplate, surface_docs)
local name = surface.name local name = surface.name
local nodename = surface.nodename local nodename = surface.nodename
local def = registered_nodes[nodename] local def = mt_registered_nodes[nodename]
local def_tiles = def.tiles local def_tiles = def.tiles
local surfacename = "mcl_ocean:kelp_"..name local surfacename = "mcl_ocean:kelp_"..name
local surface_deftemplate = surface_deftemplate or kelp.surface_deftemplate -- optional param local surface_deftemplate = surface_deftemplate or kelp.surface_deftemplate -- Optional param
local doc_create = surface.doc_create or false local doc_create = surface.doc_create or false
local surface_docs = surface_docs or kelp.surface_docs local surface_docs = surface_docs or kelp.surface_docs -- Optional param
if doc_create then if doc_create then
surface_deftemplate._doc_items_entry_name = surface_docs._doc_items_entry_name surface_deftemplate._doc_items_entry_name = surface_docs._doc_items_entry_name
surface_deftemplate._doc_items_longdesc = surface_docs._doc_items_longdesc surface_deftemplate._doc_items_longdesc = surface_docs._doc_items_longdesc
surface_deftemplate._doc_items_create_entry = true surface_deftemplate._doc_items_create_entry = true
surface_deftemplate._doc_items_image = surface_docs._doc_items_image surface_deftemplate._doc_items_image = surface_docs._doc_items_image
-- Takes the first surface with docs -- Sets the first surface as the docs' entry ID
if not surface_docs.entry_id_orig then if not surface_docs.entry_id_orig then
surface_docs.entry_id_orig = nodename surface_docs.entry_id_orig = nodename
end end
@ -422,9 +574,9 @@ local function register_kelp_surface(surface, surface_deftemplate, surface_docs)
end end
local sounds = table.copy(def.sounds) local sounds = table.copy(def.sounds)
sounds.dig = leaf_sounds.dig sounds.dig = kelp.leaf_sounds.dig
sounds.dug = leaf_sounds.dug sounds.dug = kelp.leaf_sounds.dug
sounds.place = leaf_sounds.place sounds.place = kelp.leaf_sounds.place
surface_deftemplate.tiles = surface_deftemplate.tiles or def_tiles surface_deftemplate.tiles = surface_deftemplate.tiles or def_tiles
surface_deftemplate.inventory_image = surface_deftemplate.inventory_image or "("..def_tiles[1]..")^mcl_ocean_kelp_item.png" surface_deftemplate.inventory_image = surface_deftemplate.inventory_image or "("..def_tiles[1]..")^mcl_ocean_kelp_item.png"
@ -440,9 +592,9 @@ end
-- Kelp surfaces nodes --------------------------------------------------------- -- Kelp surfaces nodes ---------------------------------------------------------
-- Dirt must be registered first, for the docs -- Dirt must be registered first, for the docs
register_kelp_surface(surfaces[1], table.copy(surface_deftemplate), surface_docs) kelp.register_kelp_surface(kelp.surfaces[1], table.copy(kelp.surface_deftemplate), kelp.surface_docs)
for i=2, #surfaces do for i=2, #kelp.surfaces do
register_kelp_surface(surfaces[i], table.copy(surface_deftemplate), surface_docs) kelp.register_kelp_surface(kelp.surfaces[i], table.copy(kelp.surface_deftemplate), kelp.surface_docs)
end end
-- Kelp item ------------------------------------------------------------------- -- Kelp item -------------------------------------------------------------------
@ -453,12 +605,12 @@ minetest.register_craftitem("mcl_ocean:kelp", {
_doc_items_create_entry = false, _doc_items_create_entry = false,
inventory_image = "mcl_ocean_kelp_item.png", inventory_image = "mcl_ocean_kelp_item.png",
wield_image = "mcl_ocean_kelp_item.png", wield_image = "mcl_ocean_kelp_item.png",
on_place = kelp_on_place, on_place = kelp.kelp_on_place,
groups = { deco_block = 1 }, groups = { deco_block = 1 },
}) })
if mod_doc then if mod_doc then
doc.add_entry_alias("nodes", surface_docs.entry_id_orig, "craftitems", "mcl_ocean:kelp") doc.add_entry_alias("nodes", kelp.surface_docs.entry_id_orig, "craftitems", "mcl_ocean:kelp")
end end
-- Dried kelp ------------------------------------------------------------------ -- Dried kelp ------------------------------------------------------------------
@ -523,26 +675,17 @@ minetest.register_craft({
}) })
-- ABMs ------------------------------------------------------------------------ -- ABMs ------------------------------------------------------------------------
minetest.register_abm({
label = "Kelp growth",
nodenames = { "group:kelp" },
interval = 45,
chance = 12,
catch_up = false,
action = grow_kelp,
})
-- NOTE: Uncomment this to use nodetimers -- NOTE: Uncomment this to use nodetimers
minetest.register_lbm({ minetest.register_lbm({
label = "Kelp timer registration", label = "Kelp timer registration",
name = "mcl_ocean:kelp_timer_registration", name = "mcl_ocean:kelp_timer_registration",
nodenames = { "group:kelp" }, nodenames = { "group:kelp" },
run_at_every_load = false, run_at_every_load = true, -- so old kelps are also registered
action = surface_register_nodetimer, action = kelp.surface_register_nodetimer,
}) })
-- NOTE: Uncomment this to use ABMs -- NOTE: Uncomment this to use ABMs
-- Break kelp not underwater.
-- minetest.register_abm({ -- minetest.register_abm({
-- label = "Kelp drops", -- label = "Kelp drops",
-- nodenames = { "group:kelp" }, -- nodenames = { "group:kelp" },
@ -551,3 +694,12 @@ minetest.register_lbm({
-- catch_up = false, -- catch_up = false,
-- action = surface_unsubmerged_abm, -- action = surface_unsubmerged_abm,
-- }) -- })
--
-- minetest.register_abm({
-- label = "Kelp growth",
-- nodenames = { "group:kelp" },
-- interval = 45,
-- chance = 12,
-- catch_up = false,
-- action = grow_abm,
-- })