Localize most variables

ShadowNinja

2013-12-17 5cf765b2f19ef9bf443178e26787fe16233b3f4c

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
119
 
local S = technic.getter
 
minetest.register_craft({
    output = 'technic:injector 1',
    recipe = {
        {'', 'technic:control_logic_unit',''},
        {'', 'default:chest',''},
        {'', 'pipeworks:tube_000000',''},
    }
})
 
minetest.register_node("technic:injector", {
    description = S("Injector"),
    tiles = {"technic_injector_top.png", "technic_injector_bottom.png", "technic_injector_side.png",
        "technic_injector_side.png", "technic_injector_side.png", "technic_injector_side.png"},
    groups = chest_groups1,
    tube = tubes_properties,
    sounds = default.node_sound_wood_defaults(),
    on_construct = function(pos)
        local meta = minetest.env:get_meta(pos)
        meta:set_string("formspec",
                "invsize[8,9;]"..
                "label[0,0;"..S("Injector").."]"..
                "button[0,1;.8,.8;mode;]"..
                "label[.8,1;Mode: single items]"..
                "list[current_name;main;0,2;8,2;]"..
                "list[current_player;main;0,5;8,4;]")
        meta:set_string("infotext", S("Injector"))
        local inv = meta:get_inventory()
        inv:set_size("main", 8*4)
        meta:set_string("mode","single items")
    end,
    can_dig = function(pos,player)
        local meta = minetest.env:get_meta(pos);
        local inv = meta:get_inventory()
        return inv:is_empty("main")
    end,
    on_receive_fields = function(pos, formanme, fields, sender)
        local meta = minetest.env:get_meta(pos)
        local mode=meta:get_string("mode")
        if fields.mode then 
            if mode == "single items" then
                mode = "whole stacks" 
            else
                mode = "single items"
            end
            meta:set_string("mode", mode)
        end
        meta:set_string("formspec",
                "invsize[8,9;]"..
                "label[0,0;"..S("Injector").."]"..
                "button[0,1;.8,.8;mode;]"..
                "label[.8,1;Mode: "..mode.."]"..
                "list[current_name;main;0,2;8,2;]"..
                "list[current_player;main;0,5;8,4;]")
    end,
    allow_metadata_inventory_put = technic.machine_inventory_put,
    allow_metadata_inventory_take = technic.machine_inventory_take,
    allow_metadata_inventory_move = technic.machine_inventory_move,
})
 
minetest.register_abm({
    nodenames = {"technic:injector"},
    interval = 1,
    chance = 1,
    action = function(pos, node, active_object_count, active_object_count_wider)
    local pos1={}
    pos1.x = pos.x
    pos1.y = pos.y-1
    pos1.z = pos.z
    local meta=minetest.env:get_meta(pos1) 
        if meta:get_int("tubelike")==1 then inject_items (pos) end
    end,
})
 
local function inject_items (pos)
        local meta=minetest.env:get_meta(pos) 
        local inv = meta:get_inventory()
        local mode=meta:get_string("mode")
        if mode=="single items" then
            local i=0
            for _,stack in ipairs(inv:get_list("main")) do
            i=i+1
                if stack then
                local item0=stack:to_table()
                if item0 then 
                    item0["count"]="1"
                    local item1=pipeworks.tube_item({x=pos.x,y=pos.y,z=pos.z},item0)
                    item1:get_luaentity().start_pos = {x=pos.x,y=pos.y,z=pos.z}
                    item1:setvelocity({x=0, y=-1, z=0})
                    item1:setacceleration({x=0, y=0, z=0})
                    stack:take_item(1);
                    inv:set_stack("main", i, stack)
                    return
                    end
                end
            end
        end
        if mode=="whole stacks" then
            local i=0
            for _,stack in ipairs(inv:get_list("main")) do
            i=i+1
                if stack then
                local item0=stack:to_table()
                if item0 then 
                    local item1=pipeworks.tube_item({x=pos.x,y=pos.y,z=pos.z},item0)
                    item1:get_luaentity().start_pos = {x=pos.x,y=pos.y,z=pos.z}
                    item1:setvelocity({x=0, y=-1, z=0})
                    item1:setacceleration({x=0, y=0, z=0})
                    stack:clear()
                    inv:set_stack("main", i, stack)
                    return
                    end
                end
            end
        end
        
end