forestry/forestry_bees/apiary.lua

305 lines
9.8 KiB
Lua
Raw Normal View History

--
-- Formspecs
--
function forestry_bees.get_apiary_active_formspec(queen_percent)
return "size[8,8.5]"..
"list[context;monarch;2.75,0.5;1,1;]"..
"list[context;drone;2.75,2.5;1,1;]"..
"image[3.75,1.5;1,1;gui_furnace_arrow_bg.png^[lowpart:"..
(queen_percent)..":gui_furnace_arrow_fg.png^[transformR270]"..
"list[context;dst;4.75,0.96;3,3;]"..
"list[current_player;main;0,4.25;8,1;]"..
"list[current_player;main;0,5.5;8,3;8]"..
"listring[context;dst]"..
"listring[current_player;main]"..
"listring[context;src]"..
"listring[current_player;main]"..
"listring[context;fuel]"..
"listring[current_player;main]"..
default.get_hotbar_bg(0, 4.25)
end
function forestry_bees.get_apiary_inactive_formspec()
return "size[8,8.5]"..
"list[context;monarch;2.75,0.5;1,1;]"..
"list[context;drone;2.75,2.5;1,1;]"..
"image[3.75,1.5;1,1;gui_furnace_arrow_bg.png^[transformR270]"..
"list[context;dst;4.75,0.96;3,3;]"..
"list[current_player;main;0,4.25;8,1;]"..
"list[current_player;main;0,5.5;8,3;8]"..
"listring[context;dst]"..
"listring[current_player;main]"..
"listring[context;src]"..
"listring[current_player;main]"..
"listring[context;fuel]"..
"listring[current_player;main]"..
default.get_hotbar_bg(0, 4.25)
end
--
-- Node callback functions that are the same for active and inactive furnace
--
local function can_dig(pos, player)
local meta = minetest.get_meta(pos);
local inv = meta:get_inventory()
return inv:is_empty("monarch") and inv:is_empty("drone") and inv:is_empty("dst")
end
local function allow_metadata_inventory_put(pos, listname, index, stack, player)
if minetest.is_protected(pos, player:get_player_name()) then
return 0
end
local meta = minetest.get_meta(pos)
local inv = meta:get_inventory()
if listname == "drone" then
if minetest.get_item_group(stack:get_name(),"bee_drone") == 1 then
return stack:get_count()
else
return 0
end
elseif listname == "monarch" then
if minetest.get_item_group(stack:get_name(),"bee_monarch") == 1 then
return stack:get_count()
else
return 0
end
elseif listname == "dst" then
return 0
end
end
local function allow_metadata_inventory_move(pos, from_list, from_index, to_list, to_index, count, player)
local meta = minetest.get_meta(pos)
local inv = meta:get_inventory()
local stack = inv:get_stack(from_list, from_index)
return allow_metadata_inventory_put(pos, to_list, to_index, stack, player)
end
local function allow_metadata_inventory_take(pos, listname, index, stack, player)
if minetest.is_protected(pos, player:get_player_name()) then
return 0
end
return stack:get_count()
end
local function swap_node(pos, name)
local node = minetest.get_node(pos)
if node.name == name then
return
end
node.name = name
minetest.swap_node(pos, node)
end
local function apiary_node_timer(pos,elapsed)
local meta = minetest.get_meta(pos)
2024-10-05 23:19:24 +02:00
local src_time = meta:get_float("src_time") or 0 --how much time has passed since src started actioning
local inv = meta:get_inventory()
local monarchlist, dronelist
local timer_elapsed = meta:get_int("timer_elapsed") or 0
meta:set_int("timer_elapsed", timer_elapsed + 1)
local update = true
local is_queen, is_princess, is_drone
2024-10-05 23:19:24 +02:00
local can_breed, can_live
local actionable
local changed_queen = false
2024-10-05 23:19:24 +02:00
2024-10-09 14:26:31 +02:00
local breedtime = 1
local needed_time = 1 --just so that the formspecs doesnt make an error
local queentime = 0
2024-10-05 23:19:24 +02:00
while elapsed > 0 and update do
update = false
monarchlist = inv:get_list("monarch")
dronelist = inv:get_list("drone")
is_queen = minetest.get_item_group(monarchlist[1]:get_name(),"bee_queen") == 1
2024-10-05 23:19:24 +02:00
is_princess = minetest.get_item_group(monarchlist[1]:get_name(),"bee_princess") == 1
is_drone = minetest.get_item_group(dronelist[1]:get_name(),"bee_drone") == 1
--------------------fix for bees taken from creative (where the genes are not created by default)
if (is_princess or is_queen) and (monarchlist[1]:get_meta():get_string("genes") == "") then
inv:set_stack("monarch",1,forestry_bees.format_bee(monarchlist[1]))
end
if is_drone and (dronelist[1]:get_meta():get_string("genes") == "") then
local count = dronelist[1]:get_count()
local bee = forestry_bees.format_bee(dronelist[1])
bee:set_count(count)
inv:set_stack("drone",1,bee)
end
---------------------
2024-10-05 23:19:24 +02:00
can_breed = is_princess and is_drone
can_live = is_queen and forestry_bees.can_queen_work(monarchlist[1], pos) --these two event are disjoint (there are no queen & princess)
2024-10-05 23:19:24 +02:00
actionable = can_breed or can_live
if is_queen then
queentime = monarchlist[1]:get_meta():get_float("queentime") or 0
src_time = queentime
end
local el = elapsed
2024-10-05 23:19:24 +02:00
--if actionable check if things are ready
if actionable then
--ternary expression if can_breed it evals to breedtime else lifetime
2024-10-09 14:26:31 +02:00
needed_time = (can_breed and {breedtime} or { tonumber(forestry_bees.settings:get("lifespan_multiplier")) * minetest.deserialize(monarchlist[1]:get_meta():get_string("genes"))["lifespan"][1]})[1]
el = math.min(el, needed_time - src_time)
2024-10-05 23:19:24 +02:00
src_time = src_time + el
if can_live then --chance to drop honeycomb
local drops = forestry_bees.calculate_drop(monarchlist[1])
if (not (next(drops) == nil)) and inv:get_size("dst") - forestry_bees.stacks_in_inv(inv,"dst") >= #drops then
for _,drop in pairs(drops) do
inv:add_item("dst",drop)
end
end
end
if src_time >= needed_time then
2024-10-05 23:19:24 +02:00
--if possible act accordingly to breed or live
if can_breed then
2024-10-07 19:52:09 +02:00
local queen = forestry_bees.breed_princess_drone(monarchlist[1],dronelist[1])
local drone_count = dronelist[1]:get_count()
local final_drone
if drone_count == 1 then
final_drone = ItemStack()
else
dronelist[1]:set_count(drone_count - 1)
final_drone = dronelist[1]
end
inv:set_stack("monarch",1,queen)
inv:set_stack("drone",1,final_drone)
src_time = src_time - needed_time
2024-10-07 19:52:09 +02:00
else --if actionable but not can_breed we have can_live
local queen = monarchlist[1]
local princess, dronelistout = forestry_bees.apiary_result(queen, pos)
2024-10-07 19:52:09 +02:00
if inv:get_size("dst")-forestry_bees.stacks_in_inv(inv,"dst") >= 1 + #dronelistout then
inv:add_item("dst",princess)
for _,drone in pairs(dronelistout) do
inv:add_item("dst",drone)
end
inv:set_stack("monarch",1,ItemStack())
src_time = src_time - needed_time
2024-10-07 19:52:09 +02:00
update = true
changed_queen = true
2024-10-07 19:52:09 +02:00
else
dst_full = true
end
2024-10-05 23:19:24 +02:00
end
end
end
elapsed = elapsed - el
2024-10-07 14:31:20 +02:00
end
if monarchlist and monarchlist[1]:is_empty() then
src_time = 0
end
--
-- Update formspec, infotext and node
--
local formspec
local item_state
local percent = 0
--by default timer doesnt restart
local result = false
2024-10-07 14:31:20 +02:00
if actionable then
percent = math.floor(src_time / needed_time * 100)
2024-10-07 14:31:20 +02:00
if dst_full then
item_state = "100% (output full)"
else
item_state = tostring(percent).."%"
2024-10-07 14:31:20 +02:00
end
--make sure timer restarts
result = true
2024-10-07 14:31:20 +02:00
else
if (monarchlist and not monarchlist[1]:is_empty()) or (dronelist and not dronelist[1]:is_empty()) then
item_state = "Cannot breed"
else
item_state = "Empty"
end
end
formspec = forestry_bees.get_apiary_active_formspec(percent)
if is_queen and (not changed_queen) then
monarchlist[1]:get_meta():set_float("queentime", src_time)
inv:set_stack("monarch",1,monarchlist[1])
end
meta:set_float("src_time", src_time)
meta:set_string("formspec", formspec)
minetest.chat_send_all(tostring(math.random()))
return result
2024-10-07 14:31:20 +02:00
end
--
-- Node definitions
--
local function apply_logger(def)
default.set_inventory_action_loggers(def, "apiary")
return def
end
minetest.register_node("forestry_bees:apiary", apply_logger({
2024-10-07 14:31:20 +02:00
description = "Apiary",
tiles = {
2024-10-07 14:31:20 +02:00
"forestry_bees_apiary_y.png", "forestry_bees_apiary_y.png",
"forestry_bees_apiary_front.png", "forestry_bees_apiary_front.png",
"forestry_bees_apiary_side.png", "forestry_bees_apiary_side.png"
},
paramtype2 = "facedir",
groups = {choppy=2},
legacy_facedir_simple = true,
is_ground_content = false,
sounds = default.node_sound_wood_defaults(),
can_dig = can_dig,
on_timer = apiary_node_timer,
on_construct = function(pos)
local meta = minetest.get_meta(pos)
local inv = meta:get_inventory()
inv:set_size('monarch', 1)
inv:set_size('drone', 1)
inv:set_size('dst', 9)
apiary_node_timer(pos, 0)
end,
on_metadata_inventory_move = function(pos)
minetest.get_node_timer(pos):start(1.0)
end,
on_metadata_inventory_put = function(pos)
-- start timer function, it will sort out whether apiary can work or not.
minetest.get_node_timer(pos):start(1.0)
end,
on_metadata_inventory_take = function(pos)
-- check whether the apiary is empty or not.
minetest.get_node_timer(pos):start(1.0)
end,
on_blast = function(pos)
local drops = {}
default.get_inventory_drops(pos, "monarch", drops)
default.get_inventory_drops(pos, "drone", drops)
default.get_inventory_drops(pos, "dst", drops)
drops[#drops+1] = "forestry_bees:apiary"
minetest.remove_node(pos)
return drops
end,
allow_metadata_inventory_put = allow_metadata_inventory_put,
allow_metadata_inventory_move = allow_metadata_inventory_move,
allow_metadata_inventory_take = allow_metadata_inventory_take,
}))
minetest.register_craft({
output = "forestry_bees:apiary",
recipe = {
2024-10-07 14:31:20 +02:00
{"group:choppy,slab", "group:choppy,slab", "group:choppy,slab"},
{"group:wood", "group:comb", "group:wood"},
{"group:wood", "group:wood", "group:wood"},
}
2024-10-05 23:19:24 +02:00
})