Fix generator nodemane

ShadowNinja

2013-10-28 9aee83f92149ce2a52d8c09faa78e0e8315105e7

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
 
function technic.register_generator(data) 
    local tier = data.tier
    local ltier = string.lower(tier)
 
    local generator_formspec =
        "invsize[8,9;]"..
        "label[0,0;Generator]"..
        "list[current_name;src;3,1;1,1;]"..
        "image[4,1;1,1;default_furnace_fire_bg.png]"..
        "list[current_player;main;0,5;8,4;]"
    
    local desc = tier.." Generator"
    minetest.register_node("technic:"..ltier.."_generator", {
        description = desc,
        tiles = {"technic_"..ltier.."_generator_top.png", "technic_machine_bottom.png",
                 "technic_"..ltier.."_generator_side.png", "technic_"..ltier.."_generator_side.png",
                 "technic_"..ltier.."_generator_side.png", "technic_"..ltier.."_generator_front.png"}, 
        paramtype2 = "facedir",
        groups = {snappy=2, choppy=2, oddly_breakable_by_hand=2},
        legacy_facedir_simple = true,
        sounds = default.node_sound_wood_defaults(),
        on_construct = function(pos)
            local meta = minetest.get_meta(pos)
            meta:set_string("infotext", desc)
            meta:set_int(data.tier.."_EU_supply", 0)
            meta:set_int("burn_time", 0)
            meta:set_string("formspec", generator_formspec)
            local inv = meta:get_inventory()
            inv:set_size("src", 1)
        end,
        can_dig = function(pos, player)
            local meta = minetest.get_meta(pos)
            local inv = meta:get_inventory()
            if not inv:is_empty("src") then
                minetest.chat_send_player(player:get_player_name(),
                    "Machine cannot be removed because it is not empty")
                return false
            else
                return true
            end
        end,
    })
    minetest.register_node("technic:"..ltier.."_generator_active", {
        description = desc,
        tiles = {"technic_"..ltier.."_generator_top.png", "technic_machine_bottom.png",
                 "technic_"..ltier.."_generator_side.png", "technic_"..ltier.."_generator_side.png",
                 "technic_"..ltier.."_generator_side.png", "technic_"..ltier.."_generator_front_active.png"},
        paramtype2 = "facedir",
        groups = {snappy=2, choppy=2, oddly_breakable_by_hand=2,
            not_in_creative_inventory=1},
        legacy_facedir_simple = true,
        sounds = default.node_sound_wood_defaults(),
        drop = "technic:"..ltier.."_generator",
        can_dig = function(pos, player)
            local meta = minetest.get_meta(pos)
            local inv = meta:get_inventory()
            if not inv:is_empty("src") then
                minetest.chat_send_player(player:get_player_name(),
                    "Machine cannot be removed because it is not empty")
                return false
            else
                return true
            end
        end,
    })
    minetest.register_abm({
        nodenames = {"technic:"..ltier.."_generator", "technic:"..ltier.."_generator_active"},
        interval = 1,
        chance = 1,
        action = function(pos, node, active_object_count, active_object_count_wider)
            local meta = minetest.get_meta(pos)
            local burn_time = meta:get_int("burn_time")
            local burn_totaltime = meta:get_int("burn_totaltime")
            -- If more to burn and the energy produced was used: produce some more
            if burn_time > 0 then
                meta:set_int(data.tier.."_EU_supply", data.supply)
                burn_time = burn_time - 1
                meta:set_int("burn_time", burn_time)
            end
            -- Burn another piece of fuel
            if burn_time == 0 then
                local inv = meta:get_inventory()
                if not inv:is_empty("src") then 
                    local fuellist = inv:get_list("src")
                    fuel = minetest.get_craft_result({method = "fuel", width = 1, items = fuellist})
                    if not fuel or fuel.time == 0 then
                        meta:set_string("infotext", "Generator out of fuel")
                        hacky_swap_node(pos, "technic:"..ltier.."_generator")
                        return
                    end
                    meta:set_int("burn_time", fuel.time)
                    meta:set_int("burn_totaltime", fuel.time)
                    local stack = inv:get_stack("src", 1)
                    stack:take_item()
                    inv:set_stack("src", 1, stack)
                    hacky_swap_node(pos, "technic:"..ltier.."_generator_active")
                    meta:set_int(data.tier.."_EU_supply", data.supply)
                else
                    hacky_swap_node(pos, "technic:"..ltier.."_generator")
                    meta:set_int(data.tier.."_EU_supply", 0)
                end
            end
            if burn_totaltime == 0 then burn_totaltime = 1 end
            local percent = math.floor((burn_time / burn_totaltime) * 100)
            meta:set_string("infotext", desc.." ("..percent.."%)")
                meta:set_string("formspec", 
                    "size[8, 9]"..
                    "label[0, 0;Generator]"..
                    "list[current_name;src;3, 1;1, 1;]"..
                    "image[4, 1;1, 1;default_furnace_fire_bg.png^[lowpart:"..
                    (percent)..":default_furnace_fire_fg.png]"..
                    "list[current_player;main;0, 5;8, 4;]")
        end
    })
    technic.register_machine(data.tier, "technic:"..ltier.."_generator", technic.producer)
    technic.register_machine(data.tier, "technic:"..ltier.."_generator", technic.producer)
end