ShadowNinja
2013-10-03 90208930e533379acbc1636e09f85d5f9b6493ca
commit | author | age
82cba9 1 local chest_mark_colors = {
3a3700 2     {'_black','Black'},
R 3     {'_blue','Blue'}, 
4     {'_brown','Brown'},
5     {'_cyan','Cyan'},
6     {'_dark_green','Dark Green'},
7     {'_dark_grey','Dark Grey'},
8     {'_green','Green'},
9     {'_grey','Grey'},
10     {'_magenta','Magenta'},
11     {'_orange','Orange'},
12     {'_pink','Pink'},
13     {'_red','Red'},
14     {'_violet','Violet'},
15     {'_white','White'},
16     {'_yellow','Yellow'},
17     {'','None'}
82cba9 18 }
R 19
20 minetest.register_craft({
3a3700 21     output = 'technic:gold_chest',
82cba9 22     recipe = {
3a3700 23         {'default:gold_ingot','default:gold_ingot','default:gold_ingot'},
R 24         {'default:gold_ingot','technic:silver_chest','default:gold_ingot'},
25         {'default:gold_ingot','default:gold_ingot','default:gold_ingot'},
82cba9 26     }
R 27 })
28
29 minetest.register_craft({
3a3700 30     output = 'technic:gold_locked_chest',
82cba9 31     recipe = {
3a3700 32         {'default:gold_ingot','default:gold_ingot','default:gold_ingot'},
R 33         {'default:gold_ingot','technic:silver_locked_chest','default:gold_ingot'},
34         {'default:gold_ingot','default:gold_ingot','default:gold_ingot'},
82cba9 35     }
R 36 })
37
38 minetest.register_craft({
3a3700 39     output = 'technic:gold_locked_chest',
82cba9 40     recipe = {
R 41         {'default:steel_ingot'},
42         {'technic:gold_chest'},
43     }
44 })
45
fd3f25 46 minetest.register_craftitem(":technic:gold_chest", {
82cba9 47     description = "Gold Chest",
R 48     stack_max = 99,
49 })
fd3f25 50 minetest.register_craftitem(":technic:gold_locked_chest", {
82cba9 51     description = "Gold Locked Chest",
R 52     stack_max = 99,
53 })
54
3a3700 55 function get_pallette_buttons ()
R 56 local buttons_string=""
57     for y=0,3,1 do
58         for x=0,3,1 do
59             local file_name="ui_colorbutton"..(y*4+x)..".png"
60             buttons_string=buttons_string.."image_button["..(9.2+x*.7)..","..(6+y*.7)..";.81,.81;"..file_name..";color_button"..(y*4+x)..";]"
61         end
62     end    
63 return buttons_string
64 end
65
66 gold_chest_formspec    =    "invsize[12,10;]"..
67                         "list[current_name;main;0,1;12,4;]"..
68                         "list[current_player;main;0,6;8,4;]"..
69                         "background[-0.19,-0.25;12.4,10.75;ui_form_bg.png]"..
70                         "background[0,1;12,4;ui_gold_chest_inventory.png]"..
71                         "background[0,6;8,4;ui_main_inventory.png]"..
72                         get_pallette_buttons ()
82cba9 73
R 74 gold_chest_inv_size = 12*4
75
fd3f25 76 minetest.register_node(":technic:gold_chest", {
82cba9 77     description = "Gold Chest",
R 78     tiles = {"technic_gold_chest_top.png", "technic_gold_chest_top.png", "technic_gold_chest_side.png",
79         "technic_gold_chest_side.png", "technic_gold_chest_side.png", "technic_gold_chest_front.png"},
80     paramtype2 = "facedir",
81     groups = chest_groups1,
82     tube = tubes_properties,
83     legacy_facedir_simple = true,
84     sounds = default.node_sound_wood_defaults(),
85
86     on_construct = function(pos)
87         local meta = minetest.env:get_meta(pos)
3a3700 88         meta:set_string("formspec",gold_chest_formspec..
R 89             "label[0,0;Gold Chest]"..
90             "image_button[3.5,.1;.6,.6;pencil_icon.png;edit_infotext;]"..        
91             "label[9.2,9;Color Filter: None")
82cba9 92         meta:set_string("infotext", "Gold Chest")
R 93         local inv = meta:get_inventory()
94         inv:set_size("main", gold_chest_inv_size)
95     end,
96
97     can_dig = chest_can_dig,
98
99     on_receive_fields = function(pos, formname, fields, sender)
3a3700 100         local meta = minetest.env:get_meta(pos)
R 101           local page="main"
102           if fields.edit_infotext then 
103             page="edit_infotext"
104           end
105           if fields.save_infotext then 
106             meta:set_string("infotext",fields.infotext_box)
107           end
108         local formspec = gold_chest_formspec.."label[0,0;Gold Chest]"
109         if page=="main" then
110             formspec = formspec.."image_button[3.5,.1;.6,.6;pencil_icon.png;edit_infotext;]"
111             formspec = formspec.."label[4,0;"..meta:get_string("infotext").."]"
112         end
113         if page=="edit_infotext" then
114             formspec = formspec.."image_button[3.5,.1;.6,.6;ok_icon.png;save_infotext;]"
115             formspec = formspec.."field[4.3,.2;6,1;infotext_box;Edit chest description:;"..meta:get_string("infotext").."]"
116         end            
117         formspec = formspec .. "label[9.2,9;Color Filter: "..chest_mark_colors[check_color_buttons (pos,"technic:gold_chest",fields)][2].."]"        
118         meta:set_string("formspec",formspec)
82cba9 119     end,
R 120
121     on_metadata_inventory_move = def_on_metadata_inventory_move,
122     on_metadata_inventory_put = def_on_metadata_inventory_put,
123     on_metadata_inventory_take = def_on_metadata_inventory_take 
124 })
125
3a3700 126 for i=1,15,1 do
R 127 minetest.register_node(":technic:gold_chest".. chest_mark_colors[i][1], {
82cba9 128     description = "Gold Chest",
R 129     tiles = {"technic_gold_chest_top.png", "technic_gold_chest_top.png", "technic_gold_chest_side.png",
3a3700 130         "technic_gold_chest_side.png", "technic_gold_chest_side.png", "technic_gold_chest_front"..chest_mark_colors[i][1]..".png"},
82cba9 131     paramtype2 = "facedir",
R 132     groups = chest_groups2,
133     tube = tubes_properties,
134     legacy_facedir_simple = true,
135     sounds = default.node_sound_wood_defaults(),
136     drop = "technic:gold_chest",
137     can_dig =chest_can_dig,
138     
139     on_receive_fields = function(pos, formname, fields, sender)
3a3700 140         local meta = minetest.env:get_meta(pos)
R 141         local page="main"
142           if fields.edit_infotext then 
143             page="edit_infotext"
144           end
145           if fields.save_infotext then 
146             meta:set_string("infotext",fields.infotext_box)
147           end
148         local formspec = gold_chest_formspec.."label[0,0;Gold Chest]"
149         if page=="main" then
150             formspec = formspec.."image_button[3.5,.1;.6,.6;pencil_icon.png;edit_infotext;]"
151             formspec = formspec.."label[4,0;"..meta:get_string("infotext").."]"
152         end
153         if page=="edit_infotext" then
154             formspec = formspec.."image_button[3.5,.1;.6,.6;ok_icon.png;save_infotext;]"
155             formspec = formspec.."field[4.3,.2;6,1;infotext_box;Edit chest description:;"..meta:get_string("infotext").."]"
156         end            
157         formspec = formspec .. "label[9.2,9;Color Filter: "..chest_mark_colors[check_color_buttons (pos,"technic:gold_chest",fields)][2].."]"        
158         meta:set_string("formspec",formspec)
82cba9 159     end,
R 160
161     on_metadata_inventory_move = def_on_metadata_inventory_move,
162     on_metadata_inventory_put = def_on_metadata_inventory_put,
163     on_metadata_inventory_take = def_on_metadata_inventory_take 
164 })
165 end
166
fd3f25 167 minetest.register_node(":technic:gold_locked_chest", {
82cba9 168     description = "Gold Locked Chest",
R 169     tiles = {"technic_gold_chest_top.png", "technic_gold_chest_top.png", "technic_gold_chest_side.png",
170         "technic_gold_chest_side.png", "technic_gold_chest_side.png", "technic_gold_chest_locked.png"},
171     paramtype2 = "facedir",
172     drop = "technic:gold_locked_chest",
173     groups = chest_groups1,
174     tube = tubes_properties,
175     legacy_facedir_simple = true,
176     sounds = default.node_sound_wood_defaults(),
177     after_place_node = function(pos, placer)
178         local meta = minetest.env:get_meta(pos)
179         meta:set_string("owner", placer:get_player_name() or "")
180         meta:set_string("infotext", "Gold Locked Chest (owned by "..
181                 meta:get_string("owner")..")")
182     end,
183     on_construct = function(pos)
184         local meta = minetest.env:get_meta(pos)
3a3700 185         meta:set_string("formspec",
R 186                 gold_chest_formspec..
187                 "label[0,0;Gold Locked Chest]"..
188                 "image_button[3.5,.1;.6,.6;pencil_icon.png;edit_infotext;]"..
189                 "label[9.2,9;Color Filter: None")
82cba9 190         meta:set_string("owner", "")
R 191         local inv = meta:get_inventory()
192         inv:set_size("main", gold_chest_inv_size)
193     end,
194
195     can_dig =chest_can_dig,
196
197     on_receive_fields = function(pos, formname, fields, sender)
3a3700 198         local meta = minetest.env:get_meta(pos)
R 199           local formspec = gold_chest_formspec..
200             "label[0,0;Gold Locked Chest]"
201         local page="main"
202           if fields.edit_infotext then 
203             page="edit_infotext"
204           end
205           if fields.save_infotext then 
206             meta:set_string("infotext",fields.infotext_box)
207           end
208         if page=="main" then
209             formspec = formspec.."image_button[3.5,.1;.6,.6;pencil_icon.png;edit_infotext;]"
210             formspec = formspec.."label[4,0;"..meta:get_string("infotext").."]"
211         end
212         if page=="edit_infotext" then
213             formspec = formspec.."image_button[3.5,.1;.6,.6;ok_icon.png;save_infotext;]"
214             formspec = formspec.."field[4.3,.2;6,1;infotext_box;Edit chest description:;"..meta:get_string("infotext").."]"
215         end    
216         formspec = formspec .. "label[9.2,9;Color Filter: "..chest_mark_colors[check_color_buttons (pos,"technic:gold_locked_chest",fields)][2].."]"        
217         meta:set_string("formspec",formspec)
82cba9 218     end,
R 219
220     allow_metadata_inventory_move = def_allow_metadata_inventory_move,
221     allow_metadata_inventory_put = def_allow_metadata_inventory_put,
222     allow_metadata_inventory_take = def_allow_metadata_inventory_take,
223     on_metadata_inventory_move = def_on_metadata_inventory_move,
224     on_metadata_inventory_put = def_on_metadata_inventory_put,
225     on_metadata_inventory_take = def_on_metadata_inventory_take 
226 })
227
3a3700 228 for i=1,15,1 do
R 229 minetest.register_node(":technic:gold_locked_chest".. chest_mark_colors[i][1], {
82cba9 230     description = "Gold Locked Chest",
R 231     tiles = {"technic_gold_chest_top.png", "technic_gold_chest_top.png", "technic_gold_chest_side.png",
3a3700 232         "technic_gold_chest_side.png", "technic_gold_chest_side.png", "technic_gold_chest_locked"..chest_mark_colors[i][1]..".png"},
82cba9 233     paramtype2 = "facedir",
R 234     drop = "technic:gold_locked_chest",
235     groups = chest_groups2,
236     tube = tubes_properties,
237     legacy_facedir_simple = true,
238     sounds = default.node_sound_wood_defaults(),
239     can_dig = chest_can_dig,
240
241     on_receive_fields = function(pos, formname, fields, sender)
3a3700 242         local meta = minetest.env:get_meta(pos)
R 243           local formspec = gold_chest_formspec..
244                 "label[0,0;Gold Locked Chest]"
245           local page="main"
246           if fields.edit_infotext then 
247             page="edit_infotext"
248           end
249           if fields.save_infotext then 
250             meta:set_string("infotext",fields.infotext_box)
251           end
252         if page=="main" then
253             formspec = formspec.."image_button[3.5,.1;.6,.6;pencil_icon.png;edit_infotext;]"
254             formspec = formspec.."label[4,0;"..meta:get_string("infotext").."]"
255         end
256         if page=="edit_infotext" then
257             formspec = formspec.."image_button[3.5,.1;.6,.6;ok_icon.png;save_infotext;]"
258             formspec = formspec.."field[4.3,.2;6,1;infotext_box;Edit chest description:;"..meta:get_string("infotext").."]"
259         end            
260         formspec = formspec .. "label[9.2,9;Color Filter: "..chest_mark_colors[check_color_buttons (pos,"technic:gold_locked_chest",fields)][2].."]"        
261         meta:set_string("formspec",formspec)
82cba9 262     end,
R 263
264     allow_metadata_inventory_move = def_allow_metadata_inventory_move,
265     allow_metadata_inventory_put = def_allow_metadata_inventory_put,
266     allow_metadata_inventory_take = def_allow_metadata_inventory_take,
267     on_metadata_inventory_move = def_on_metadata_inventory_move,
268     on_metadata_inventory_put = def_on_metadata_inventory_put,
269     on_metadata_inventory_take = def_on_metadata_inventory_take 
270 })
271 end
272
3a3700 273 function check_color_buttons (pos,chest_name,fields)
R 274     if fields.color_button15 then
275         hacky_swap_node(pos,chest_name)
276         return 16
82cba9 277     end
3a3700 278     for i=0,14,1 do
R 279         local button="color_button"..i
280         if fields[button] then
281             hacky_swap_node(pos,chest_name..chest_mark_colors[i+1][1])
282             return i+1
82cba9 283         end
R 284     end
3a3700 285     return 16
R 286 end    
82cba9 287