Epic/mods/mylandscaping/mixer.lua

minetest.register_node('mylandscaping:mixer', {
   description = 'Concrete Mixer',
   drawtype = 'mesh',
   mesh = 'mylandscaping_crusher.obj',
   tiles = {
      {name='mylandscaping_tex1.png'},{name='mylandscaping_supports.png'},
      {name='mylandscaping_base.png'},{name='mylandscaping_hopper.png'},
      {name='mylandscaping_crusher.png'}},
   groups = {oddly_breakable_by_hand=2},
   paramtype = 'light',
   paramtype2 = 'facedir',
   selection_box = {
      type = 'fixed',
      fixed = {
         {-0.5, -0.5, -0.5, 1.5, 1.5, 0.5},
      }
   },
   collision_box = {
      type = 'fixed',
      fixed = {
         {-0.5, -0.5, -0.5, 1.5, 1.5, 0.5},
      }
   },

   can_dig = function(pos,player)
      local meta = minetest.get_meta(pos);
      local inv = meta:get_inventory()
      if player:get_player_name() == meta:get_string('owner') and
         inv:is_empty('cobble') and
         inv:is_empty('gravel') and
         inv:is_empty('concrete') and
         inv:is_empty('sand') then
         return true
      else
         return false
      end
   end,

   after_place_node = function(pos, placer, itemstack)
      if not epic.space_to_side(pos) then
         minetest.remove_node(pos)
         return itemstack
      else
         local meta = minetest.get_meta(pos)
         local timer = minetest.get_node_timer(pos)
         meta:set_string('owner',placer:get_player_name())
         meta:set_string('infotext','Cement Mixer (owned by '..placer:get_player_name()..')')
         timer:start(10)
      end
   end,

   after_dig_node = function(pos, oldnode)
      epic.remove_side_node(pos, oldnode)
   end,

   on_construct = function(pos)
      local meta = minetest.get_meta(pos)
      meta:set_string('formspec', 'size[9,10;]'..
      'background[-0.15,-0.25;9.40,10.75;mylandscaping_madison_stone.png]'..
      --Gravel
      'label[0.5,1;Crush-o-matic]'..
      'label[2,2;Cobble or Gravel]'..
      'list[context;cobble;2.5,1;1,1;]'..
      'list[context;gravel;5.5,1;1,1;]'..
      'label[6.5,1;Gravel]'..
      --Concrete
      'label[5,0.5;Concrete Mixer]'..
      'list[context;sand;5.5,2.5;1,1;]'..
      'label[6.5,2.5;Sand]'..
      'list[context;concrete;5.5,4.5;1,1;]'..
      'label[6.5,4.5;Output]'..
      --Players Inven
      'list[current_player;main;0.5,6;8,4;]')
      meta:set_string('infotext', 'Concrete Mixer')
      local inv = meta:get_inventory()
      inv:set_size('cobble', 1)
      inv:set_size('gravel', 1)
      inv:set_size('concrete', 1)
      inv:set_size('sand', 1)
   end,

   allow_metadata_inventory_put = function(pos, listname, index, stack, player)
      local input = stack:get_name()
      if listname == 'cobble' then
         if input == 'default:cobble' or minetest.get_item_group(input, 'ml') > 0 or 'default:gravel' then
            return 99
         else
            return 0
         end
      elseif listname == 'gravel' then
         if input ~= 'default:gravel' then
            return 0
         else
            return 99
         end
      elseif listname == 'sand' then
         if minetest.get_item_group(input, 'sand') > 0 then
            return 99
         else
            return 0
         end
      elseif listname == 'concrete' then
         return 0
      end
   end,

   on_timer = function(pos)
      local timer = minetest.get_node_timer(pos)
      local meta = minetest.get_meta(pos)
      local inv = meta:get_inventory()
      local cobble = inv:get_stack('cobble', 1)
      local gravel = inv:get_stack('gravel', 1)
      local sand = inv:get_stack('sand', 1)
      local cobble_inv = cobble:get_name()
      local sand_inv = sand:get_name()
      if cobble:get_name() == 'default:cobble' or minetest.get_item_group(cobble_inv, 'ml') > 0 then
         inv:add_item('gravel','default:gravel')
         cobble:take_item()
         inv:set_stack('cobble',1,cobble)
      elseif cobble:get_name() == 'default:gravel' then
         inv:add_item('sand', 'default:sand')
         cobble:take_item()
         inv:set_stack('cobble',1,cobble)
      elseif gravel:get_name() == 'default:gravel' and minetest.get_item_group(sand_inv, 'sand') > 0 then
         inv:add_item('concrete','mylandscaping:concrete_bag')
         gravel:take_item()
         inv:set_stack('gravel',1,gravel)
         sand:take_item()
         inv:set_stack('sand',1,sand)
      end
      timer:start(10)
   end,
})