Maciej Kasatkin
2012-09-02 02a9acdc3c3a0b107b348441e68b9bb942a99258
commit | author | age
167434 1 minetest.register_craftitem( "technic:coal_dust", {
MK 2     description = "Coal Dust",
3     inventory_image = "technic_coal_dust.png",
4     on_place_on_ground = minetest.craftitem_place_item,
5     })
6
7 minetest.register_craftitem( "technic:iron_dust", {
8     description = "Iron Dust",
9     inventory_image = "technic_iron_dust.png",
10     on_place_on_ground = minetest.craftitem_place_item,
11     })
12
13 minetest.register_craft({
14     type = "cooking",
15     output = "default:steel_ingot",
16     recipe = "technic:iron_dust",
17 }) 
18
19 minetest.register_craftitem( "technic:copper_dust", {
20     description = "Copper Dust",
21     inventory_image = "technic_copper_dust.png",
22     on_place_on_ground = minetest.craftitem_place_item,
23     })
24 minetest.register_craft({
25     type = "cooking",
26     output = "moreores:copper_ingot",
27     recipe = "technic:copper_dust",
28 }) 
29
30 minetest.register_craftitem( "technic:tin_dust", {
31     description = "Tin Dust",
32     inventory_image = "technic_tin_dust.png",
33     on_place_on_ground = minetest.craftitem_place_item,
34     })
35 minetest.register_craft({
36     type = "cooking",
37     output = "moreores:tin_ingot",
38     recipe = "technic:tin_dust",
39 }) 
40
41 minetest.register_craftitem( "technic:silver_dust", {
42     description = "Silver Dust",
43     inventory_image = "technic_silver_dust.png",
44     on_place_on_ground = minetest.craftitem_place_item,
45     })
46 minetest.register_craft({
47     type = "cooking",
48     output = "moreores:silver_ingot",
49     recipe = "technic:silver_dust",
50 }) 
51
52 minetest.register_craftitem( "technic:gold_dust", {
53     description = "Gold Dust",
54     inventory_image = "technic_gold_dust.png",
55     on_place_on_ground = minetest.craftitem_place_item,
56     })
57 minetest.register_craft({
58     type = "cooking",
59     output = "moreores:gold_ingot",
60     recipe = "technic:gold_dust",
61 }) 
62
63 minetest.register_craftitem( "technic:mithril_dust", {
64     description = "Mithril Dust",
65     inventory_image = "technic_mithril_dust.png",
66     on_place_on_ground = minetest.craftitem_place_item,
67     })
68 minetest.register_craft({
69     type = "cooking",
70     output = "moreores:mithril_ingot",
71     recipe = "technic:mithril_dust",
72 }) 
73
74 minetest.register_alias("grinder", "technic:grinder")
75 minetest.register_craft({
76     output = 'technic:grinder',
77     recipe = {
78         {'default:desert_stone', 'default:desert_stone', 'default:desert_stone'},
79         {'default:desert_stone', 'technic:diamond', 'default:desert_stone'},
80         {'default:stone', 'moreores:copper_ingot', 'default:stone'},
81     }
82 })
83
84 minetest.register_craftitem("technic:grinder", {
85     description = "Grinder",
86     stack_max = 99,
87 }) 
88
89 grinder_formspec =
90     "invsize[8,9;]"..
91     "image[1,1;1,2;technic_power_meter_bg.png]"..
92     "label[0,0;Grinder]"..
93     "label[1,3;Power level]"..
94     "list[current_name;src;3,1;1,1;]"..
95     "list[current_name;dst;5,1;2,2;]"..
96     "list[current_player;main;0,5;8,4;]"
97     
98
99 minetest.register_node("technic:grinder", {
100     description = "Grinder",
101     tiles = {"technic_grinder_top.png", "technic_machine_bottom.png", "technic_grinder_side.png",
102         "technic_grinder_side.png", "technic_grinder_side.png", "technic_grinder_front.png"},
103     paramtype2 = "facedir",
104     groups = {snappy=2,choppy=2,oddly_breakable_by_hand=2},
105     legacy_facedir_simple = true,
106     sounds = default.node_sound_wood_defaults(),
107     technic_power_machine=1,
108     internal_EU_buffer=0;
109     internal_EU_buffer_size=5000;
110     grind_time=0;
111     grinded = nil;
112     src_time = 0;
113     on_construct = function(pos)
114         local meta = minetest.env:get_meta(pos)
115         meta:set_string("infotext", "Grinder")
116         meta:set_float("technic_power_machine", 1)
117         meta:set_float("internal_EU_buffer", 0)
118         meta:set_float("internal_EU_buffer_size", 5000)
119         meta:set_string("formspec", grinder_formspec)
120         meta:set_float("grind_time", 0)
121         
122         local inv = meta:get_inventory()
123         inv:set_size("src", 1)
124         inv:set_size("dst", 4)
125         
126         end,    
127     can_dig = function(pos,player)
128         local meta = minetest.env:get_meta(pos);
129         local inv = meta:get_inventory()
130         if not inv:is_empty("src") then
131             return false
132         end
133         if not inv:is_empty("dst") then
134             return false
135         end
136
137         return true
138         end,
139
140 })
141
142 minetest.register_abm({
143     nodenames = {"technic:grinder"},
144     interval = 1,
145     chance = 1,
146     action = function(pos, node, active_object_count, active_object_count_wider)
147
148     local meta = minetest.env:get_meta(pos)
149     local charge= meta:get_float("internal_EU_buffer")
150     local max_charge= meta:get_float("internal_EU_buffer_size")
151     local grind_cost=200
152
153     local load = math.floor((charge/max_charge)*100)
154     meta:set_string("formspec",
155                 "invsize[8,9;]"..
156                 "image[1,1;1,2;technic_power_meter_bg.png^[lowpart:"..
157                         (load)..":technic_power_meter_fg.png]"..
158                 "label[0,0;Grinder]"..
159                 "label[1,3;Power level]"..
160                 "list[current_name;src;3,1;1,1;]"..
161                 "list[current_name;dst;5,1;2,2;]"..
162                 "list[current_player;main;0,5;8,4;]"
163                 )
164                 
165         
166
167         local inv = meta:get_inventory()
168         
169 --        local grinder_on = meta:get_float("grinder_on")
170         
171         
172         local srclist = inv:get_list("src")
173         if inv:is_empty("src") then meta:set_float("grinder_on",0) end 
174     
175         
176         if (meta:get_float("grinder_on") == 1) then
177             if charge>=grind_cost then
178             charge=charge-grind_cost;
179             meta:set_float("internal_EU_buffer",charge)
180             meta:set_float("src_time", meta:get_float("src_time") + 1)
181             if meta:get_float("src_time") >= meta:get_float("grind_time") then
182                 -- check if there's room for output in "dst" list
183                 grinded = get_grinded_item (inv:get_stack("src", 1))        
184                 if inv:room_for_item("dst",grinded) then
185                     -- Put result in "dst" list
186                     inv:add_item("dst", grinded)
187                     -- take stuff from "src" list
188                     srcstack = inv:get_stack("src", 1)
189                     srcstack:take_item()
190                     inv:set_stack("src", 1, srcstack)
191                     if inv:is_empty("src") then meta:set_float("grinder_on",0) end 
192
193
194
195                 else
196                     print("Grinder inventory full!")
197                 end
198                 meta:set_float("src_time", 0)
199             end
200             end        
201         end
202         
203         if (meta:get_float("grinder_on")==0) then
204         local grinded=nil 
205         if not inv:is_empty("src") then
206          grinded = get_grinded_item (inv:get_stack("src", 1))
207          if grinded then meta:set_float("grinder_on",1) end
208          grind_time=4
209          meta:set_float("grind_time",grind_time)
210          meta:set_float("src_time", 0)
211         end
212         end
213         
214     
215     end
216 }) 
217
218 function get_grinded_item (items)
219 new_item =nil
220 src_item=items:to_table()
221 item_name=src_item["name"]
222         
223 if item_name=="default:stone" then new_item=ItemStack("default:sand") return new_item end
224 if item_name=="default:cobble" then new_item=ItemStack("default:gravel") return new_item end
225 if item_name=="default:gravel" then new_item=ItemStack("default:dirt") return new_item end
226 if item_name=="default:desert_stone" then new_item=ItemStack("default:desert_sand") return new_item end
227 if item_name=="default:iron_lump" then new_item=ItemStack("technic:iron_dust 2") return new_item end
228 if item_name=="default:coal_lump" then new_item=ItemStack("technic:coal_dust 2") return new_item end
229 if item_name=="moreores:copper_lump" then new_item=ItemStack("technic:copper_dust 2") return new_item end
230 if item_name=="moreores:tin_lump" then new_item=ItemStack("technic:tin_dust 2") return new_item end
231 if item_name=="moreores:silver_lump" then new_item=ItemStack("technic:silver_dust 2") return new_item end
232 if item_name=="moreores:gold_lump" then new_item=ItemStack("technic:gold_dust 2") return new_item end
233 if item_name=="moreores:mithril_lump" then new_item=ItemStack("technic:mithril_dust 2") return new_item end
234
235 return nil
236 end