Guest User

Untitled

a guest
Jun 29th, 2012
36
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. default.furnace_inactive_formspec =
  2.     "invsize[8,9;]"..
  3.     "image[2,2;1,1;default_furnace_fire_bg.png]"..
  4.     "list[current_name;fuel;2,3;1,1;]"..
  5.     "list[current_name;src;2,1;1,1;]"..
  6.     "list[current_name;dst;5,1;2,2;]"..
  7.     "list[current_player;main;0,5;8,4;]"
  8.  
  9. minetest.register_node("default:furnace", {
  10.     description = "Furnace",
  11.     tiles = {"default_furnace_top.png", "default_furnace_bottom.png", "default_furnace_side.png",
  12.         "default_furnace_side.png", "default_furnace_side.png", "default_furnace_front.png"},
  13.     paramtype2 = "facedir",
  14.     groups = {cracky=2},
  15.     legacy_facedir_simple = true,
  16.     sounds = default.node_sound_stone_defaults(),
  17.     on_construct = function(pos)
  18.         local meta = minetest.env:get_meta(pos)
  19.         meta:set_string("formspec", default.furnace_inactive_formspec)
  20.         meta:set_string("infotext", "Furnace")
  21.         local inv = meta:get_inventory()
  22.         inv:set_size("fuel", 1)
  23.         inv:set_size("src", 1)
  24.         inv:set_size("dst", 4)
  25.     end,
  26.     can_dig = function(pos,player)
  27.         local meta = minetest.env:get_meta(pos);
  28.         local inv = meta:get_inventory()
  29.         if not inv:is_empty("fuel") then
  30.             return false
  31.         elseif not inv:is_empty("dst") then
  32.             return false
  33.         elseif not inv:is_empty("src") then
  34.             return false
  35.         end
  36.         return true
  37.     end,
  38. })
  39.  
  40. minetest.register_node("default:furnace_active", {
  41.     description = "Furnace",
  42.     tiles = {"default_furnace_top.png", "default_furnace_bottom.png", "default_furnace_side.png",
  43.         "default_furnace_side.png", "default_furnace_side.png", "default_furnace_front_active.png"},
  44.     paramtype2 = "facedir",
  45.     light_source = 8,
  46.     drop = "default:furnace",
  47.     groups = {cracky=2},
  48.     legacy_facedir_simple = true,
  49.     sounds = default.node_sound_stone_defaults(),
  50.     on_construct = function(pos)
  51.         local meta = minetest.env:get_meta(pos)
  52.         meta:set_string("formspec", default.furnace_inactive_formspec)
  53.         meta:set_string("infotext", "Furnace");
  54.         local inv = meta:get_inventory()
  55.         inv:set_size("fuel", 1)
  56.         inv:set_size("src", 1)
  57.         inv:set_size("dst", 4)
  58.     end,
  59.     can_dig = function(pos,player)
  60.         local meta = minetest.env:get_meta(pos);
  61.         local inv = meta:get_inventory()
  62.         if not inv:is_empty("fuel") then
  63.             return false
  64.         elseif not inv:is_empty("dst") then
  65.             return false
  66.         elseif not inv:is_empty("src") then
  67.             return false
  68.         end
  69.         return true
  70.     end,
  71. })
  72.  
  73. function hacky_swap_node(pos,name)
  74.     local node = minetest.env:get_node(pos)
  75.     local meta = minetest.env:get_meta(pos)
  76.     local meta0 = meta:to_table()
  77.     if node.name == name then
  78.         return
  79.     end
  80.     node.name = name
  81.     local meta0 = meta:to_table()
  82.     minetest.env:set_node(pos,node)
  83.     meta = minetest.env:get_meta(pos)
  84.     meta:from_table(meta0)
  85. end
  86.  
  87. minetest.register_abm({
  88.     nodenames = {"default:furnace","default:furnace_active"},
  89.     interval = 1.0,
  90.     chance = 1,
  91.     action = function(pos, node, active_object_count, active_object_count_wider)
  92.         local meta = minetest.env:get_meta(pos)
  93.         for i, name in ipairs({
  94.                 "fuel_totaltime",
  95.                 "fuel_time",
  96.                 "src_totaltime",
  97.                 "src_time"
  98.         }) do
  99.             if meta:get_string(name) == "" then
  100.                 meta:set_float(name, 0.0)
  101.             end
  102.         end
  103.  
  104.         local inv = meta:get_inventory()
  105.  
  106.         local srclist = inv:get_list("src")
  107.         local cooked = nil
  108.        
  109.         if srclist then
  110.             cooked = minetest.get_craft_result({method = "cooking", width = 1, items = srclist})
  111.         end
  112.        
  113.         local was_active = false
  114.        
  115.         if meta:get_float("fuel_time") < meta:get_float("fuel_totaltime") then
  116.             was_active = true
  117.             meta:set_float("fuel_time", meta:get_float("fuel_time") + 1)
  118.             meta:set_float("src_time", meta:get_float("src_time") + 1)
  119.             if cooked and cooked.item and meta:get_float("src_time") >= cooked.time then
  120.                 -- check if there's room for output in "dst" list
  121.                 if inv:room_for_item("dst",cooked.item) then
  122.                     -- Put result in "dst" list
  123.                     inv:add_item("dst", cooked.item)
  124.                     -- take stuff from "src" list
  125.                     srcstack = inv:get_stack("src", 1)
  126.                     srcstack:take_item()
  127.                     inv:set_stack("src", 1, srcstack)
  128.                 else
  129.                     print("Could not insert '"..cooked.item.."'")
  130.                 end
  131.                 meta:set_string("src_time", 0)
  132.             end
  133.         end
  134.        
  135.         if meta:get_float("fuel_time") < meta:get_float("fuel_totaltime") then
  136.             local percent = math.floor(meta:get_float("fuel_time") /
  137.                     meta:get_float("fuel_totaltime") * 100)
  138.             meta:set_string("infotext","Furnace active: "..percent.."%")
  139.             hacky_swap_node(pos,"default:furnace_active")
  140.             meta:set_string("formspec",
  141.                 "invsize[8,9;]"..
  142.                 "image[2,2;1,1;default_furnace_fire_bg.png^[lowpart:"..
  143.                         (100-percent)..":default_furnace_fire_fg.png]"..
  144.                 "list[current_name;fuel;2,3;1,1;]"..
  145.                 "list[current_name;src;2,1;1,1;]"..
  146.                 "list[current_name;dst;5,1;2,2;]"..
  147.                 "list[current_player;main;0,5;8,4;]")
  148.             return
  149.         end
  150.  
  151.         local fuel = nil
  152.         local cooked = nil
  153.         local fuellist = inv:get_list("fuel")
  154.         local srclist = inv:get_list("src")
  155.        
  156.         if srclist then
  157.             cooked = minetest.get_craft_result({method = "cooking", width = 1, items = srclist})
  158.         end
  159.         if fuellist then
  160.             fuel = minetest.get_craft_result({method = "fuel", width = 1, items = fuellist})
  161.         end
  162.  
  163.         if fuel.time <= 0 then
  164.             meta:set_string("infotext","Furnace out of fuel")
  165.             hacky_swap_node(pos,"default:furnace")
  166.             meta:set_string("formspec", default.furnace_inactive_formspec)
  167.             return
  168.         end
  169.  
  170.         if cooked.item:is_empty() then
  171.             if was_active then
  172.                 meta:set_string("infotext","Furnace is empty")
  173.                 hacky_swap_node(pos,"default:furnace")
  174.                 meta:set_string("formspec", default.furnace_inactive_formspec)
  175.             end
  176.             return
  177.         end
  178.  
  179.         meta:set_string("fuel_totaltime", fuel.time)
  180.         meta:set_string("fuel_time", 0)
  181.        
  182.         local stack = inv:get_stack("fuel", 1)
  183.         stack:take_item()
  184.         inv:set_stack("fuel", 1, stack)
  185.     end,
  186. })
RAW Paste Data