Zefram
2014-05-16 68b7bcc28e39bdf0926072b834eeeeec0ee6c721
technic/tools/cans.lua
@@ -1,12 +1,14 @@
local water_can_max_load = 16
local lava_can_max_load = 8
local S = technic.getter
minetest.register_craft({
   output = 'technic:water_can 1',
   recipe = {
      {'technic:zinc_ingot', 'technic:rubber','technic:zinc_ingot'},
      {'default:steel_ingot', '', 'default:steel_ingot'},
      {'technic:zinc_ingot', 'default:steel_ingot', 'technic:zinc_ingot'},
      {'technic:carbon_steel_ingot', '', 'technic:carbon_steel_ingot'},
      {'technic:zinc_ingot', 'technic:carbon_steel_ingot', 'technic:zinc_ingot'},
   }
})
@@ -19,102 +21,125 @@
   }
})
local function set_can_wear(itemstack, level, max_level)
   local temp
   if level == 0 then
      temp = 0
   else
      temp = 65536 - math.floor(level / max_level * 65535)
      if temp > 65535 then temp = 65535 end
      if temp < 1 then temp = 1 end
   end
   itemstack:set_wear(temp)
end
minetest.register_tool("technic:water_can", {
   description = "Water Can",
   description = S("Water Can"),
   inventory_image = "technic_water_can.png",
   stack_max = 1,
   wear_represents = "content_level",
   liquids_pointable = true,
   on_use = function(itemstack, user, pointed_thing)
      if pointed_thing.type ~= "node" then
               return end
      n = minetest.env:get_node(pointed_thing.under)
      item=itemstack:to_table()
      local load=nil
      if item["metadata"]=="" then load=0
      else load=tonumber(item["metadata"])
         return
      end
      if n.name == "default:water_source" then
         if load+1<17 then
         minetest.env:add_node(pointed_thing.under, {name="air"})
          load=load+1;
         item["metadata"]=tostring(load)
         technic.set_RE_wear(item,load,water_can_max_load)
         itemstack:replace(item)
         end
         return itemstack
      end
      item=itemstack:to_table()
      if load==0 then return end
      if n.name == "default:water_flowing" then
         minetest.env:add_node(pointed_thing.under, {name="default:water_source"})
         load=load-1;
         item["metadata"]=tostring(load)
         technic.set_RE_wear(item,load,water_can_max_load)
         itemstack:replace(item)
         return itemstack
         end
      node = minetest.get_node(pointed_thing.under)
      n = minetest.env:get_node(pointed_thing.above)
      if n.name == "air" then
         minetest.env:add_node(pointed_thing.above, {name="default:water_source"})
         load=load-1;
         item["metadata"]=tostring(load)
         technic.set_RE_wear(item,load,water_can_max_load)
         itemstack:replace(item)
      local charge = nil
      if itemstack:get_metadata() == "" then
         charge = 0
      else
         charge = tonumber(itemstack:get_metadata())
      end
      if node.name == "default:water_source" then
         if charge < water_can_max_load then
            minetest.remove_node(pointed_thing.under)
            charge = charge + 1
            itemstack:set_metadata(tostring(charge))
            set_can_wear(itemstack, charge, water_can_max_load)
         end
         return itemstack
         end
      end
      if charge == 0 then
         return
      end
      if node.name == "default:water_flowing" then
         minetest.set_node(pointed_thing.under, {name="default:water_source"})
         charge = charge - 1
         itemstack:set_metadata(tostring(charge))
         set_can_wear(itemstack, charge, water_can_max_load)
         return itemstack
      end
      node = minetest.get_node(pointed_thing.above)
      if node.name == "air" then
         minetest.set_node(pointed_thing.above, {name="default:water_source"})
         charge = charge - 1;
         itemstack:set_metadata(tostring(charge))
         set_can_wear(itemstack, charge, water_can_max_load)
         return itemstack
      end
   end,
   on_refill = function(stack)
      stack:set_metadata(tostring(water_can_max_load))
      set_can_wear(stack, water_can_max_load, water_can_max_load)
      return stack
   end,
})
minetest.register_tool("technic:lava_can", {
   description = "Lava Can",
   description = S("Lava Can"),
   inventory_image = "technic_lava_can.png",
   stack_max = 1,
   wear_represents = "content_level",
   liquids_pointable = true,
   on_use = function(itemstack, user, pointed_thing)
      if pointed_thing.type ~= "node" then return end
      n = minetest.env:get_node(pointed_thing.under)
      item=itemstack:to_table()
      local load=nil
      if item["metadata"]=="" then load=0
      else load=tonumber(item["metadata"])
      if pointed_thing.type ~= "node" then
         return
      end
      if n.name == "default:lava_source" then
         if load+1<17 then
         minetest.env:add_node(pointed_thing.under, {name="air"})
          load=load+1;
         item["metadata"]=tostring(load)
         technic.set_RE_wear(item,load,lava_can_max_load)
         itemstack:replace(item)
         end
         return itemstack
      node = minetest.get_node(pointed_thing.under)
      local charge = 0
      if itemstack:get_metadata() == "" then
         charge = 0
      else
         charge = tonumber(itemstack:get_metadata())
      end
      item=itemstack:to_table()
      if load==0 then return end
      if n.name == "default:lava_flowing" then
         minetest.env:add_node(pointed_thing.under, {name="default:lava_source"})
         load=load-1;
         item["metadata"]=tostring(load)
         technic.set_RE_wear(item,load,lava_can_max_load)
         itemstack:replace(item)
         return itemstack
         end
      n = minetest.env:get_node(pointed_thing.above)
      if n.name == "air" then
         minetest.env:add_node(pointed_thing.above, {name="default:lava_source"})
         load=load-1;
         item["metadata"]=tostring(load)
         technic.set_RE_wear(item,load,lava_can_max_load)
         itemstack:replace(item)
      if node.name == "default:lava_source" then
         if charge < lava_can_max_load then
            minetest.remove_node(pointed_thing.under)
            charge = charge + 1
            itemstack:set_metadata(tostring(charge))
            set_can_wear(itemstack, charge, lava_can_max_load)
         end
         return itemstack
         end
      end
      if charge == 0 then
         return
      end
      if node.name == "default:lava_flowing" then
         minetest.set_node(pointed_thing.under, {name="default:lava_source"})
         charge = charge - 1
         itemstack:set_metadata(tostring(charge))
         set_can_wear(itemstack, charge, lava_can_max_load)
         return itemstack
      end
      node = minetest.get_node(pointed_thing.above)
      if node.name == "air" then
         minetest.set_node(pointed_thing.above, {name="default:lava_source"})
         charge = charge - 1
         itemstack:set_metadata(tostring(charge))
         set_can_wear(itemstack, charge, lava_can_max_load)
         return itemstack
      end
   end,
   on_refill = function(stack)
      stack:set_metadata(tostring(lava_can_max_load))
      set_can_wear(stack, lava_can_max_load, lava_can_max_load)
      return stack
   end,
})