collect rubber and cut tree

Cristiano Magro

2020-10-11 0fb44d5afe49e31ce7f3d521e5440d17982bf263

 technic_chests/gold_chest.lua

@@ -1,287 +1,58 @@
local chest_mark_colors = {
    {'_black','Black'},
    {'_blue','Blue'}, 
    {'_brown','Brown'},
    {'_cyan','Cyan'},
    {'_dark_green','Dark Green'},
    {'_dark_grey','Dark Grey'},
    {'_green','Green'},
    {'_grey','Grey'},
    {'_magenta','Magenta'},
    {'_orange','Orange'},
    {'_pink','Pink'},
    {'_red','Red'},
    {'_violet','Violet'},
    {'_white','White'},
    {'_yellow','Yellow'},
    {'','None'}
}

minetest.register_craft({
   output = 'technic:gold_chest',
   recipe = {
      {'default:gold_ingot','default:gold_ingot','default:gold_ingot'},
      {'default:gold_ingot','technic:silver_chest','default:gold_ingot'},
      {'default:gold_ingot','default:gold_ingot','default:gold_ingot'},
   }
})
local material_list
if minetest.get_modpath("moreores") then
   material_list = { 'silver' }
else
   -- Make the gold chest obtainable for mere mortals (the silver chest is not obtainable)
   material_list = { 'copper', 'silver' }
end

for _, material in ipairs(material_list) do
   minetest.register_craft({
      output = 'technic:gold_chest',
      recipe = {
         {'default:gold_ingot','default:gold_ingot','default:gold_ingot'},
         {'default:gold_ingot',"technic:"..material.."_chest",'default:gold_ingot'},
         {'default:gold_ingot','default:gold_ingot','default:gold_ingot'},
      }
   })

   minetest.register_craft({
      output = 'technic:gold_locked_chest',
      recipe = {
         {'default:gold_ingot','default:gold_ingot','default:gold_ingot'},
         {'default:gold_ingot',"technic:"..material.."_locked_chest",'default:gold_ingot'},
         {'default:gold_ingot','default:gold_ingot','default:gold_ingot'},
      }
   })
end

minetest.register_craft({
   output = 'technic:gold_locked_chest',
   type = "shapeless",
   recipe = {
      {'default:gold_ingot','default:gold_ingot','default:gold_ingot'},
      {'default:gold_ingot','technic:silver_locked_chest','default:gold_ingot'},
      {'default:gold_ingot','default:gold_ingot','default:gold_ingot'},
      'basic_materials:padlock',
      'technic:gold_chest',
   }
})

minetest.register_craft({
   output = 'technic:gold_locked_chest',
   recipe = {
      {'default:steel_ingot'},
      {'technic:gold_chest'},
   }
technic.chests:register("Gold", {
   width = 15,
   height = 6,
   sort = true,
   autosort = true,
   infotext = true,
   color = true,
   locked = false,
})

minetest.register_craftitem(":technic:gold_chest", {
   description = "Gold Chest",
   stack_max = 99,
})
minetest.register_craftitem(":technic:gold_locked_chest", {
   description = "Gold Locked Chest",
   stack_max = 99,
technic.chests:register("Gold", {
   width = 15,
   height = 6,
   sort = true,
   autosort = true,
   infotext = true,
   color = true,
   locked = true,
})

function get_pallette_buttons ()
local buttons_string=""
   for y=0,3,1 do
      for x=0,3,1 do
         local file_name="ui_colorbutton"..(y*4+x)..".png"
         buttons_string=buttons_string.."image_button["..(9.2+x*.7)..","..(6+y*.7)..";.81,.81;"..file_name..";color_button"..(y*4+x)..";]"
      end
   end	
return buttons_string
end

gold_chest_formspec   =   "invsize[12,10;]"..
                  "list[current_name;main;0,1;12,4;]"..
                  "list[current_player;main;0,6;8,4;]"..
                  "background[-0.19,-0.25;12.4,10.75;ui_form_bg.png]"..
                  "background[0,1;12,4;ui_gold_chest_inventory.png]"..
                  "background[0,6;8,4;ui_main_inventory.png]"..
                  get_pallette_buttons ()

gold_chest_inv_size = 12*4

minetest.register_node(":technic:gold_chest", {
   description = "Gold Chest",
   tiles = {"technic_gold_chest_top.png", "technic_gold_chest_top.png", "technic_gold_chest_side.png",
      "technic_gold_chest_side.png", "technic_gold_chest_side.png", "technic_gold_chest_front.png"},
   paramtype2 = "facedir",
   groups = chest_groups1,
   tube = tubes_properties,
   legacy_facedir_simple = true,
   sounds = default.node_sound_wood_defaults(),

   on_construct = function(pos)
      local meta = minetest.env:get_meta(pos)
      meta:set_string("formspec",gold_chest_formspec..
         "label[0,0;Gold Chest]"..
         "image_button[3.5,.1;.6,.6;pencil_icon.png;edit_infotext;]"..		
         "label[9.2,9;Color Filter: None")
      meta:set_string("infotext", "Gold Chest")
      local inv = meta:get_inventory()
      inv:set_size("main", gold_chest_inv_size)
   end,

   can_dig = chest_can_dig,

   on_receive_fields = function(pos, formname, fields, sender)
        local meta = minetest.env:get_meta(pos)
         local page="main"
         if fields.edit_infotext then 
         page="edit_infotext"
         end
         if fields.save_infotext then 
         meta:set_string("infotext",fields.infotext_box)
         end
      local formspec = gold_chest_formspec.."label[0,0;Gold Chest]"
      if page=="main" then
         formspec = formspec.."image_button[3.5,.1;.6,.6;pencil_icon.png;edit_infotext;]"
         formspec = formspec.."label[4,0;"..meta:get_string("infotext").."]"
      end
      if page=="edit_infotext" then
         formspec = formspec.."image_button[3.5,.1;.6,.6;ok_icon.png;save_infotext;]"
         formspec = formspec.."field[4.3,.2;6,1;infotext_box;Edit chest description:;"..meta:get_string("infotext").."]"
      end			
      formspec = formspec .. "label[9.2,9;Color Filter: "..chest_mark_colors[check_color_buttons (pos,"technic:gold_chest",fields)][2].."]"		
      meta:set_string("formspec",formspec)
   end,

   on_metadata_inventory_move = def_on_metadata_inventory_move,
   on_metadata_inventory_put = def_on_metadata_inventory_put,
   on_metadata_inventory_take = def_on_metadata_inventory_take 
})

for i=1,15,1 do
minetest.register_node(":technic:gold_chest".. chest_mark_colors[i][1], {
   description = "Gold Chest",
   tiles = {"technic_gold_chest_top.png", "technic_gold_chest_top.png", "technic_gold_chest_side.png",
      "technic_gold_chest_side.png", "technic_gold_chest_side.png", "technic_gold_chest_front"..chest_mark_colors[i][1]..".png"},
   paramtype2 = "facedir",
   groups = chest_groups2,
   tube = tubes_properties,
   legacy_facedir_simple = true,
   sounds = default.node_sound_wood_defaults(),
   drop = "technic:gold_chest",
   can_dig =chest_can_dig,
	
   on_receive_fields = function(pos, formname, fields, sender)
        local meta = minetest.env:get_meta(pos)
        local page="main"
         if fields.edit_infotext then 
         page="edit_infotext"
         end
         if fields.save_infotext then 
         meta:set_string("infotext",fields.infotext_box)
         end
      local formspec = gold_chest_formspec.."label[0,0;Gold Chest]"
      if page=="main" then
         formspec = formspec.."image_button[3.5,.1;.6,.6;pencil_icon.png;edit_infotext;]"
         formspec = formspec.."label[4,0;"..meta:get_string("infotext").."]"
      end
      if page=="edit_infotext" then
         formspec = formspec.."image_button[3.5,.1;.6,.6;ok_icon.png;save_infotext;]"
         formspec = formspec.."field[4.3,.2;6,1;infotext_box;Edit chest description:;"..meta:get_string("infotext").."]"
      end			
      formspec = formspec .. "label[9.2,9;Color Filter: "..chest_mark_colors[check_color_buttons (pos,"technic:gold_chest",fields)][2].."]"		
      meta:set_string("formspec",formspec)
   end,

   on_metadata_inventory_move = def_on_metadata_inventory_move,
   on_metadata_inventory_put = def_on_metadata_inventory_put,
   on_metadata_inventory_take = def_on_metadata_inventory_take 
})
end

minetest.register_node(":technic:gold_locked_chest", {
   description = "Gold Locked Chest",
   tiles = {"technic_gold_chest_top.png", "technic_gold_chest_top.png", "technic_gold_chest_side.png",
      "technic_gold_chest_side.png", "technic_gold_chest_side.png", "technic_gold_chest_locked.png"},
   paramtype2 = "facedir",
   drop = "technic:gold_locked_chest",
   groups = chest_groups1,
   tube = tubes_properties,
   legacy_facedir_simple = true,
   sounds = default.node_sound_wood_defaults(),
   after_place_node = function(pos, placer)
      local meta = minetest.env:get_meta(pos)
      meta:set_string("owner", placer:get_player_name() or "")
      meta:set_string("infotext", "Gold Locked Chest (owned by "..
            meta:get_string("owner")..")")
   end,
   on_construct = function(pos)
      local meta = minetest.env:get_meta(pos)
      meta:set_string("formspec",
            gold_chest_formspec..
            "label[0,0;Gold Locked Chest]"..
            "image_button[3.5,.1;.6,.6;pencil_icon.png;edit_infotext;]"..
            "label[9.2,9;Color Filter: None")
      meta:set_string("owner", "")
      local inv = meta:get_inventory()
      inv:set_size("main", gold_chest_inv_size)
   end,

   can_dig =chest_can_dig,

   on_receive_fields = function(pos, formname, fields, sender)
        local meta = minetest.env:get_meta(pos)
         local formspec = gold_chest_formspec..
         "label[0,0;Gold Locked Chest]"
      local page="main"
         if fields.edit_infotext then 
         page="edit_infotext"
         end
         if fields.save_infotext then 
         meta:set_string("infotext",fields.infotext_box)
         end
      if page=="main" then
         formspec = formspec.."image_button[3.5,.1;.6,.6;pencil_icon.png;edit_infotext;]"
         formspec = formspec.."label[4,0;"..meta:get_string("infotext").."]"
      end
      if page=="edit_infotext" then
         formspec = formspec.."image_button[3.5,.1;.6,.6;ok_icon.png;save_infotext;]"
         formspec = formspec.."field[4.3,.2;6,1;infotext_box;Edit chest description:;"..meta:get_string("infotext").."]"
      end	
      formspec = formspec .. "label[9.2,9;Color Filter: "..chest_mark_colors[check_color_buttons (pos,"technic:gold_locked_chest",fields)][2].."]"		
      meta:set_string("formspec",formspec)
   end,

   allow_metadata_inventory_move = def_allow_metadata_inventory_move,
   allow_metadata_inventory_put = def_allow_metadata_inventory_put,
   allow_metadata_inventory_take = def_allow_metadata_inventory_take,
   on_metadata_inventory_move = def_on_metadata_inventory_move,
   on_metadata_inventory_put = def_on_metadata_inventory_put,
   on_metadata_inventory_take = def_on_metadata_inventory_take 
})

for i=1,15,1 do
minetest.register_node(":technic:gold_locked_chest".. chest_mark_colors[i][1], {
   description = "Gold Locked Chest",
   tiles = {"technic_gold_chest_top.png", "technic_gold_chest_top.png", "technic_gold_chest_side.png",
      "technic_gold_chest_side.png", "technic_gold_chest_side.png", "technic_gold_chest_locked"..chest_mark_colors[i][1]..".png"},
   paramtype2 = "facedir",
   drop = "technic:gold_locked_chest",
   groups = chest_groups2,
   tube = tubes_properties,
   legacy_facedir_simple = true,
   sounds = default.node_sound_wood_defaults(),
   can_dig = chest_can_dig,

   on_receive_fields = function(pos, formname, fields, sender)
        local meta = minetest.env:get_meta(pos)
         local formspec = gold_chest_formspec..
            "label[0,0;Gold Locked Chest]"
         local page="main"
         if fields.edit_infotext then 
         page="edit_infotext"
         end
         if fields.save_infotext then 
         meta:set_string("infotext",fields.infotext_box)
         end
      if page=="main" then
         formspec = formspec.."image_button[3.5,.1;.6,.6;pencil_icon.png;edit_infotext;]"
         formspec = formspec.."label[4,0;"..meta:get_string("infotext").."]"
      end
      if page=="edit_infotext" then
         formspec = formspec.."image_button[3.5,.1;.6,.6;ok_icon.png;save_infotext;]"
         formspec = formspec.."field[4.3,.2;6,1;infotext_box;Edit chest description:;"..meta:get_string("infotext").."]"
      end			
      formspec = formspec .. "label[9.2,9;Color Filter: "..chest_mark_colors[check_color_buttons (pos,"technic:gold_locked_chest",fields)][2].."]"		
      meta:set_string("formspec",formspec)
   end,

   allow_metadata_inventory_move = def_allow_metadata_inventory_move,
   allow_metadata_inventory_put = def_allow_metadata_inventory_put,
   allow_metadata_inventory_take = def_allow_metadata_inventory_take,
   on_metadata_inventory_move = def_on_metadata_inventory_move,
   on_metadata_inventory_put = def_on_metadata_inventory_put,
   on_metadata_inventory_take = def_on_metadata_inventory_take 
})
end

function check_color_buttons (pos,chest_name,fields)
   if fields.color_button15 then
      hacky_swap_node(pos,chest_name)
      return 16
   end
   for i=0,14,1 do
      local button="color_button"..i
      if fields[button] then
         hacky_swap_node(pos,chest_name..chest_mark_colors[i+1][1])
         return i+1
      end
   end
   return 16
end