Many changes including, the addition of formspecs for wild and artificial beehives, the usage of frames that get filled when artificial hive is near flowers, flowers get polinated and thus reproduce and grafting tools allows for extraction of the queen bee from wild bee hives

init.lua

@@ -1,47 +1,64 @@
---Bees mod by bas080
+--Bees
+------
+--Author	Bas080
+--Version	2.0
+--License	WTFPL
+
 --[[TODO
-Smoker
-Grafting Tool
+  smoker 	maybe
   Spreading bee colonies
-Make flowers reproduce when near a hive
-Add formspec to twild hive when using grafting tool
-Make hive drop to ground
+  x Grafting Tool - to remove queen bees from wild hives
+  x Make flowers reproduce when near a hive
+  x Add formspec to twild hive when using grafting tool
 ]]
+--VARIABLES
   local sound = {}
   local particles = {}
   local bees = {}
   local formspecs = {}
 
 --FUNCTIONS
-function formspecs.hive_wild(pos)
-  local spos = pos.x .. "," .. pos.y .. "," ..pos.z
+  function formspecs.hive_wild(pos, grafting)
+    local spos = pos.x .. ',' .. pos.y .. ',' ..pos.z
     local formspec =
-    "size[8,9]"..
-    "list[nodemeta:".. spos .. ";main;0,0;8,4;]"..
-    "list[current_player;main;0,5;8,4;]"
+      'size[8,9]'..
+      'list[nodemeta:'.. spos .. ';combs;1.5,3;5,1;]'..
+      'list[current_player;main;0,5;8,4;]'
+    if grafting then
+      formspec = formspec..'list[nodemeta:'.. spos .. ';queen;3.5,1;1,1;]'
+    end
     return formspec
   end
 
   function formspecs.hive_artificial(pos)
-  local spos = pos.x..","..pos.y..","..pos.z
+    local spos = pos.x..','..pos.y..','..pos.z
     local formspec =
-    "size[8,9]"..
-    "list[nodemeta:"..spos..";queen;0,0;1,1;]"..
-    "list[nodemeta:"..spos..";frame;0,1;1,8;]"..
-    "list[current_player;main;0,5;8,4;]"
-  print(formspec)
+      'size[8,9]'..
+      'list[nodemeta:'..spos..';queen;3.5,1;1,1;]'..
+      'list[nodemeta:'..spos..';frames;0,3;8,1;]'..
+      'list[current_player;main;0,5;8,4;]'
     return formspec
   end
 
+  function bees.polinate_flower(pos, flower)
+    local spawn_pos = { x=pos.x+math.random(-3,3) , y=pos.y+math.random(-3,3) , z=pos.z+math.random(-3,3) }
+    local floor_pos = { x=spawn_pos.x , y=spawn_pos.y-1 , z=spawn_pos.z }
+    local spawn = minetest.get_node(spawn_pos).name
+    local floor = minetest.get_node(floor_pos).name
+    if floor == 'default:dirt_with_grass' and spawn == 'air' then
+      minetest.set_node(spawn_pos, {name=flower})
+    end
+  end
+
 --NODES
-minetest.register_node("bees:bees", {
-  description = "Flying Bees",
-  drawtype = "plantlike",
-  paramtype = "light",
+  minetest.register_node('bees:bees', {
+    description = 'Flying Bees',
+    drawtype = 'plantlike',
+    paramtype = 'light',
     tiles = {
       {
-      name="bees_strip.png", 
-      animation={type="vertical_frames", aspect_w=16,aspect_h=16, length=2.0}
+        name='bees_strip.png', 
+        animation={type='vertical_frames', aspect_w=16,aspect_h=16, length=2.0}
       }
     },
     damage_per_second = 1,
@@ -52,32 +69,23 @@ minetest.register_node("bees:bees", {
       local health = puncher:get_hp()
       puncher:set_hp(health-2)
     end,
-  on_construct = function(pos)
-    spawn_bees(pos)
-  end,
-  on_destruct = function(pos)
-    remove_bees(pos)
-  end,
   })
 
-minetest.register_node("bees:hive_wild", {
-  description = "Wild Bee Hive",
-  tile_images = {"bees_hive_wild.png","bees_hive_wild.png","bees_hive_wild.png", "bees_hive_wild.png", "bees_hive_wild_bottom.png"}, --Neuromancer's base texture
-  drawtype = "nodebox",
-  paramtype = "light",
+  minetest.register_node('bees:hive_wild', {
+    description = 'wild bee hive',
+    tile_images = {'bees_hive_wild.png','bees_hive_wild.png','bees_hive_wild.png', 'bees_hive_wild.png', 'bees_hive_wild_bottom.png'}, --Neuromancer's base texture
+    drawtype = 'nodebox',
+    paramtype = 'light',
     paramtype2 = 'wallmounted',
     drop = {
       max_items = 6,
       items = {
-      { items = {'bees:honey_comb'} },
-      { items = {'bees:honey_comb'}, rarity = 2},
-      { items = {'bees:honey_comb'}, rarity = 5},
-      { items = {'bees:queen'}, rarity = 10 }
+        { items = {'bees:honey_comb'}, rarity = 5}
       }
     },
     groups = {choppy=2,oddly_breakable_by_hand=2,flammable=3,attached_node=1},
     node_box = { --VanessaE's wild hive nodebox contribution
-    type = "fixed",
+      type = 'fixed',
       fixed = {
         {-0.250000,-0.500000,-0.250000,0.250000,0.375000,0.250000}, --NodeBox 2
         {-0.312500,-0.375000,-0.312500,0.312500,0.250000,0.312500}, --NodeBox 4
@@ -85,42 +93,113 @@ minetest.register_node("bees:hive_wild", {
         {-0.062500,-0.500000,-0.062500,0.062500,0.500000,0.062500}, --NodeBox 6
       }
     },
+    on_timer = function(pos)
+      local meta = minetest.get_meta(pos)
+      local inv  = meta:get_inventory()
+      local timer= minetest.get_node_timer(pos)
+      local rad  = 10
+      local minp = {x=pos.x-rad, y=pos.y-rad, z=pos.z-rad}
+      local maxp = {x=pos.x+rad, y=pos.y+rad, z=pos.z+rad}
+      local flowers = minetest.find_nodes_in_area(minp, maxp, 'group:flower')
+      if #flowers == 0 then 
+        inv:set_stack('queen', 1, '')
+        meta:set_string('infotext', 'this colony died, not enough flowers in area')
+        return 
+      end --not any flowers nearby The queen dies!
+      if #flowers < 3 then return end --requires 2 or more flowers before can make honey
+      local flower = flowers[math.random(#flowers)] 
+      bees.polinate_flower(flower, minetest.get_node(flower).name)
+      local stacks = inv:get_list('combs')
+      for k, v in pairs(stacks) do
+        if inv:get_stack('combs', k):is_empty() then --then replace that with a full one and reset pro..
+          inv:set_stack('combs',k,'bees:honey_comb')
+          timer:start(1000/#flowers)
+          return
+        end
+      end
+      --what to do if all combs are filled
+    end,
     on_construct = function(pos)
-    spawn_bees(pos)
       minetest.get_node(pos).param2 = 0
+      local meta = minetest.get_meta(pos)
+      local inv  = meta:get_inventory()
+      local timer = minetest.get_node_timer(pos)
+      timer:start(100+math.random(100))
+      inv:set_size('queen', 1)
+      inv:set_size('combs', 5)
+      inv:set_stack('queen', 1, 'bees:queen')
+      for i=1,math.random(3) do
+        inv:set_stack('combs', i, 'bees:honey_comb')
+      end
     end,
     on_punch = function(pos, node, puncher)
+      local meta = minetest.get_meta(pos)
+      local inv = meta:get_inventory()
+      if inv:contains_item('queen','bees:queen') then
         local health = puncher:get_hp()
-    puncher:set_hp(health-2)
+        puncher:set_hp(health-4)
+      end
     end,
-  on_rightclick = function(pos, node, clicker, itemstack)
+    on_metadata_inventory_take = function(pos, listname, index, stack, taker)
+      local meta = minetest.get_meta(pos)
+      local inv  = meta:get_inventory()
+      local timer= minetest.get_node_timer(pos)
+      if listname == 'combs' and inv:contains_item('queen', 'bees:queen') then
+        local health = taker:get_hp()
+        timer:start(10)
+        taker:set_hp(health-2)
+      end
+    end,
+    on_metadata_inventory_put = function(pos, listname, index, stack, taker) --restart the colony by adding a queen
+      local timer = minetest.get_node_timer(pos)
+      if not timer:is_started() then
+        timer:start(10)
+      end
+    end,
+    allow_metadata_inventory_put = function(pos, listname, index, stack, player)
+      if listname == 'queen' and stack:get_name() == 'bees:queen' then
+        return 1
+      else
+        return 0
+      end
+    end,
+    on_rightclick = function(pos, node, clicker, itemstack, pointed_thing)
       minetest.show_formspec(
         clicker:get_player_name(),
-      "bees:hive_artificial",
-      formspecs.hive_artificial(pos)
+        'bees:hive_artificial',
+        formspecs.hive_wild(pos, (itemstack:get_name() == 'bees:grafting_tool'))
       )
     end,
+    can_dig = function(pos,player)
+      local meta = minetest.get_meta(pos)
+      local inv  = meta:get_inventory()
+      if inv:is_empty('queen') and inv:is_empty('combs') then
+        return true
+      else
+        return false
+      end
+    end,
     after_dig_node = function(pos, oldnode, oldmetadata, user)
       local wielded if user:get_wielded_item() ~= nil then wielded = user:get_wielded_item() else return end
       if 'bees:grafting_tool' == wielded:get_name() then 
         local inv = user:get_inventory()
         if inv then
-        inv:add_item("main", ItemStack("bees:queen"))
+          inv:add_item('main', ItemStack('bees:queen'))
         end
       end
     end
   })
 
-minetest.register_node("bees:hive_artificial", {
-  description = "Bee Hive",
-  tiles = {"default_wood.png","default_wood.png","default_wood.png", "default_wood.png","default_wood.png","bees_hive_artificial.png"},
-  drawtype = "nodebox",
-  paramtype = "light",
-  paramtype2 = "facedir",
+  minetest.register_node('bees:hive_artificial', {
+    description = 'Bee Hive',
+    tiles = {'default_wood.png','default_wood.png','default_wood.png', 'default_wood.png','default_wood.png','bees_hive_artificial.png'},
+    drawtype = 'nodebox',
+    paramtype = 'light',
+    paramtype2 = 'facedir',
     groups = {snappy=1,choppy=2,oddly_breakable_by_hand=2,flammable=3,wood=1},
     sounds = default.node_sound_wood_defaults(),
     node_box = {
-    type = "fixed",
+      type = 'fixed',
       fixed = {
         {-4/8, 2/8, -4/8, 4/8, 3/8, 4/8},
         {-3/8, -4/8, -2/8, 3/8, 2/8, 3/8},
@@ -133,200 +212,164 @@ minetest.register_node("bees:hive_artificial", {
     on_construct = function(pos)
       local timer = minetest.get_node_timer(pos)
       local meta = minetest.get_meta(pos)
-    meta:set_string('infotext','Requires the Queen bee')
-    meta:set_string('queen', 'love it!')
+      local inv = meta:get_inventory()
+      inv:set_size('queen', 1)
+      inv:set_size('frames', 8)
+      meta:set_string('infotext','requires queen bee to function')
     end,
     on_rightclick = function(pos, node, clicker, itemstack)
       minetest.show_formspec(
         clicker:get_player_name(),
-      "bees:hive_artificial",
+        'bees:hive_artificial',
         formspecs.hive_artificial(pos)
       )
     end,
     on_timer = function(pos,elapsed)
       local meta = minetest.get_meta(pos)
-    local queen = meta:get_meta('queen')
-    if queen == 'none' then
-      return
-    else
-      --if has queen
-    end
+      local inv = meta:get_inventory()
+      local timer = minetest.get_node_timer(pos)
+      if inv:contains_item('queen', 'bees:queen') then
+        if inv:contains_item('frames', 'bees:frame_empty') then
+          timer:start(30)
           local rad  = 10
           local minp = {x=pos.x-rad, y=pos.y-rad, z=pos.z-rad}
           local maxp = {x=pos.x+rad, y=pos.y+rad, z=pos.z+rad}
-    local flower_in_area = minetest.find_nodes_in_area(minp, maxp, "group:flower")
-    local flower_number = 0
-    for i in ipairs(flower_in_area) do
-      flower_number = flower_number + 1
+          local flowers = minetest.find_nodes_in_area(minp, maxp, 'group:flower')
+          local progress = meta:get_int('progress')
+          progress = progress + #flowers
+          meta:set_int('progress', progress)
+          if progress > 1000 then
+            local flower = flowers[math.random(#flowers)] 
+            bees.polinate_flower(flower, minetest.get_node(flower).name)
+            local stacks = inv:get_list('frames')
+            for k, v in pairs(stacks) do
+              if inv:get_stack('frames', k):get_name() == 'bees:frame_empty' then --then replace that with a full one and reset pro..
+                meta:set_int('progress', 0)
+                inv:set_stack('frames',k,'bees:frame_full')
+                return
+              end
             end
-    local honey = meta:get_int("honey")
-    honey = honey + flower_number/10
-    
-    if honey < 100 then
-      meta:set_string('infotext',honey.."%");
-      meta:set_int("honey", honey)
-      local tmr = minetest.get_node_timer(pos)
-      tmr:start(60)
           else
-      meta:set_string('infotext',"100% - Time to harvest");
-      meta:set_int("honey", 100)
+            meta:set_string('infotext', 'progress: '..progress..'+'..#flowers..'/1000')
+          end
+        else
+          meta:set_string('infotext', 'does not have empty frame(s)')
+          timer:stop()
+        end
+      end
+    end,
+    on_metadata_inventory_take = function(pos, listname, index, stack, player)
+      if listname == 'queen' then
+        local timer = minetest.get_node_timer(pos)
+        local meta = minetest.get_meta(pos)
+        meta:set_string('infotext','requires queen bee to function')
+        timer:stop()
+      end
+    end,
+    allow_metadata_inventory_move = function(pos, from_list, from_index, to_list, to_index, count, player)
+      if from_list ~= to_list then 
+        return 1 
+      else
+        return 0
       end
     end,
     on_metadata_inventory_put = function(pos, listname, index, stack, player)
       local meta = minetest.get_meta(pos)
       local inv = meta:get_inventory()
-    local queen = meta:get_string('queen')
-    meta:set_string(stack:get_name())
-    if listname == "queen" then
-      meta:set_string('queen', stack)
-      inv:remove_item("drop", stack)
-      inv:add_item("main", stack)
+      local timer = minetest.get_node_timer(pos)
+      if listname == 'queen' or listname == 'frames' then
+        meta:set_string('queen', stack:get_name())
+        meta:set_string('infotext','queen is inserted, now for the empty frames');
+        if inv:contains_item('frames', 'bees:frame_empty') then
+          timer:start(30)
+          meta:set_string('infotext','bees are aclimating');
+        end
       end
     end,
     allow_metadata_inventory_put = function(pos, listname, index, stack, player)
-    return true
+      if listname == 'queen' then
+        if stack:get_name():match('bees:queen*') then
+          return 1
+        end
+      elseif listname == 'frames' then
+        if stack:get_name() == ('bees:frame_empty') then
+          return 1
+        end
+      end
+      return 0
     end,
   })
 
---abms
-minetest.register_abm({
-  nodenames = {'bees:hive_wild'},
-  interval = 200,
-  chance = 10,
-  action = function(pos, node)
-    print(pos)
-    local leaves = minetest.find_node_near(p, 5, "group:leaves")
-    --itterate over leaves
-    --check if bottom node is air and check if not to near other bee hives/
-
-  end
-})
---[[
-  minetest.register_abm({ --for particles and sounds
-    nodenames = {"bees:hive", "bees:bees", "bees:hive_artificial_inhabited"},
-    interval = 1,
-    chance = 6,
-    action = function(pos, node, _, _)
-      if math.random()<0.5 then
-        local img = "bees_particle_bee.png"
-      else
-        local img = "bees_particle_bee_r.png"
-      end
-      sound["x"..pos.x.."y"..pos.y.."z"..pos.z] = minetest.sound_play({name="bees"},{pos=pos, max_hear_distance=8, gain=0.6})
-      local p = {x=pos.x, y=pos.y+math.random()-0.5, z=pos.z}
-      
-    end,
-  })
-  minetest.add_particle(
-    p,
-    {x=(math.random()-0.5)*5,y=(math.random()-0.5)*5,z=(math.random()-0.5)*5},
-    {x=math.random()-0.5,y=math.random()-0.5,z=math.random()-0.5}, 
-    math.random(2,5), 
-    math.random(3), 
-    true, 
-    "bees_particle_bee.png"
-  )
-  minetest.add_particle(
-    pos, 
-    velocity, 
-    acceleration, 
-    expirationtime,
-    size, 
-    collisiondetection, 
-    texture, 
-    playername
-  )
-]]
-function spawn_bees(pos)
-  --[[local id = minetest.pos_to_string(pos)
-  if particles[id] ~= nil then return end
-  particles[id] = minetest.add_particlespawner(
-    2,
-    0,
-    {x=pos.x-0.5,y=pos.y-0.5,z=pos.z-0.5}, {x=pos.x+0.5,y=pos.y+0.5,z=pos.z+0.5},
-    {x=-2.5,y=-2.5,z=-2.5}, {x=2.5,y=2.5,z=2.5},
-    {x=-0.5,y=-0.5,z=-0.5}, {x=0.5,y=0.5,z=0.5},
-    2, 5,
-    1, 3,
-    true, 
-    "bees_particle_bee.png"
-  )
-  ]]
-end
-
-function remove_bees(pos)
-  --[[local id = particles[minetest.pos_to_string(pos)]
-  if id == nil then return end
-  minetest.delete_particlespawner(id)
-  ]]
-end
-
-minetest.register_abm({ --spawn abm
-  nodenames = {"bees:hive_wild"},
-  neighbors = {""},
-  interval = 1800,
-  chance = 500,
+--ABMS
+  minetest.register_abm({ --spawn abm. This should be changed to a more realistic type of spawning
+    nodenames = {'group:leaves'},
+    neighbors = {''},
+    interval = 1600,
+    chance = 20,
     action = function(pos, node, _, _)
       local p = {x=pos.x, y=pos.y-1, z=pos.z}
       if minetest.get_node(p).walkable == false then return end
-    if (minetest.find_node_near(p, 5, "group:flora") ~= nil and minetest.find_node_near(p, 20, "bees:hive") == nil) then
-      minetest.add_node(p, {name="bees:hive"})
+      if (minetest.find_node_near(p, 5, 'group:flora') ~= nil and minetest.find_node_near(p, 40, 'bees:hive_wild') == nil) then
+        minetest.add_node(p, {name='bees:hive_wild'})
       end
     end,
   })
 
   minetest.register_abm({ --spawning bees around bee hive
-  nodenames = {"bees:hive"},
-  interval = 10,
-  chance = 2,
+    nodenames = {'bees:hive_wild', 'bees:hive_artificial'},
+    neighbors = {'group:flowers', 'group:leaves'},
+    interval = 30,
+    chance = 4,
     action = function(pos, node, _, _)
       local p = {x=pos.x+math.random(-5,5), y=pos.y-math.random(0,3), z=pos.z+math.random(-5,5)}
-    if minetest.get_node(p).name == "air" then
-      minetest.add_node(p, {name="bees:bees"})
+      if minetest.get_node(p).name == 'air' then
+        minetest.add_node(p, {name='bees:bees'})
       end
     end,
   })
 
   minetest.register_abm({ --remove bees
-  nodenames = {"bees:bees"},
-  interval = 60,
-  chance = 4,
+    nodenames = {'bees:bees'},
+    interval = 30,
+    chance = 5,
     action = function(pos, node, _, _)
       minetest.remove_node(pos)
     end,
   })
 
---items
-minetest.register_craftitem("bees:honey_comb", {
-  description = "Honey Comb",
-  inventory_image = "bees_comb.png",
-  on_use = minetest.item_eat(3),
+--ITEMS
+  minetest.register_craftitem('bees:frame_empty', {
+    description = 'empty hive frame',
+    inventory_image = 'bees_frame_empty.png',
+    stack_max = 20,
   })
 
-minetest.register_craftitem("bees:honey_bottle", {
-  description = "Honey Bottle",
-  inventory_image = "bees_honey_bottle.png",
+  minetest.register_craftitem('bees:frame_full', {
+    description = 'filled hive frame',
+    inventory_image = 'bees_frame_full.png',
+    stack_max = 4,
+  })
+
+  minetest.register_craftitem('bees:honey_comb', {
+    description = 'Honey Comb',
+    inventory_image = 'bees_comb.png',
+    on_use = minetest.item_eat(2),
+    stack_max = 8,
+  })
+
+  minetest.register_craftitem('bees:honey_bottle', {
+    description = 'Honey Bottle',
+    inventory_image = 'bees_honey_bottle.png',
     on_use = minetest.item_eat(6),
   })
 
-minetest.register_craftitem("bees:queen", {
-  description = "Queen Bee",
-  inventory_image = "bees_particle_bee.png",
-  on_use = function(itemstack, user, pointed_thing)
-    if pointed_thing.under == nil then return end
-    local node = minetest.get_node(pointed_thing.under)
-    local name = minetest.get_node(pointed_thing.under).name
-    
-    if name == "bees:hive_artificial" then
-      local facing = node.param2
-      minetest.set_node(pointed_thing.under, {name = "bees:hive_artificial_inhabited", param2=facing})
-      itemstack:take_item()
-      return itemstack
-    end
-  end,
+  minetest.register_craftitem('bees:queen', {
+    description = 'Queen Bee',
+    inventory_image = 'bees_particle_bee.png',
+    stack_max = 1,
   })
 
---crafts
+--CRAFTS
   minetest.register_craft({
     output = 'bees:honey_bottle',
     recipe = {
@@ -344,9 +387,28 @@ minetest.register_craft({
     }
   })
 
-minetest.register_tool("bees:grafting_tool", {
-  description = "Grafting Tool",
-  inventory_image = "bees_grafting_tool.png",
+  minetest.register_craft({
+    output = 'bees:grafting_tool',
+    recipe = {
+      {'', '', 'default:steel_ingot'},
+      {'', 'default:stick', ''},
+      {'', '', ''},
+    }
+  })
+  
+  minetest.register_craft({
+    output = 'bees:frame_empty',
+    recipe = {
+      {'default:wood',  'default:wood',  'default:wood'},
+      {'default:stick', 'default:stick', 'default:stick'},
+      {'default:stick', 'default:stick', 'default:stick'},
+    }
+  })
+
+--TOOLS
+  minetest.register_tool('bees:grafting_tool', {
+    description = 'Grafting Tool',
+    inventory_image = 'bees_grafting_tool.png',
     tool_capabilities = {
       full_punch_interval = 3.0,
       max_drop_level=0,
@@ -357,13 +419,6 @@ minetest.register_tool("bees:grafting_tool", {
     },
   })
 
-minetest.register_craft({
-  output = 'bees:grafting_tool',
-  recipe = {
-    {'', '', 'default:steel_ingot'},
-    {'', 'default:stick', ''},
-    {'', '', ''},
-  }
-})
-
-print("[Mod]Bees Loaded!")
+--ALIASES
+  minetest.register_alias('bees:hive', 'bees:hive_wild')
+print('[Mod]Bees Loaded!')