mods/creative/init.lua

   1 -- minetest/creative/init.lua
   2
   3 creative_inventory = {}
   4 creative_inventory.creative_inventory_size = 0
   5
   6 -- Create detached creative inventory after loading all mods
   7 minetest.after(0, function()
   8         local inv = minetest.create_detached_inventory("creative", {
   9                 allow_move = function(inv, from_list, from_index, to_list, to_index, count, player)
  10                         if minetest.setting_getbool("creative_mode") then
  11                                 return count
  12                         else
  13                                 return 0
  14                         end
  15                 end,
  16                 allow_put = function(inv, listname, index, stack, player)
  17                         return 0
  18                 end,
  19                 allow_take = function(inv, listname, index, stack, player)
  20                         if minetest.setting_getbool("creative_mode") then
  21                                 return -1
  22                         else
  23                                 return 0
  24                         end
  25                 end,
  26                 on_move = function(inv, from_list, from_index, to_list, to_index, count, player)
  27                 end,
  28                 on_put = function(inv, listname, index, stack, player)
  29                 end,
  30                 on_take = function(inv, listname, index, stack, player)
  31                         --print(player:get_player_name().." takes item from creative inventory; listname="..dump(listname)..", index="..dump(index)..", stack="..dump(stack))
  32                         if stack then
  33                                 minetest.log("action", player:get_player_name().." takes "..dump(stack:get_name()).." from creative inventory")
  34                                 --print("stack:get_name()="..dump(stack:get_name())..", stack:get_count()="..dump(stack:get_count()))
  35                         end
  36                 end,
  37         })
  38         local creative_list = {}
  39         for name,def in pairs(minetest.registered_items) do
  40                 if (not def.groups.not_in_creative_inventory or def.groups.not_in_creative_inventory == 0)
  41                                 and def.description and def.description ~= "" then
  42                         table.insert(creative_list, name)
  43                 end
  44         end
  45         table.sort(creative_list)
  46         inv:set_size("main", #creative_list)
  47         for _,itemstring in ipairs(creative_list) do
  48                 inv:add_item("main", ItemStack(itemstring))
  49         end
  50         creative_inventory.creative_inventory_size = #creative_list
  51         --print("creative inventory size: "..dump(creative_inventory.creative_inventory_size))
  52 end)
  53
  54 -- Create the trash field
  55 local trash = minetest.create_detached_inventory("creative_trash", {
  56         -- Allow the stack to be placed and remove it in on_put()
  57         -- This allows the creative inventory to restore the stack
  58         allow_put = function(inv, listname, index, stack, player)
  59                 if minetest.setting_getbool("creative_mode") then
  60                         return stack:get_count()
  61                 else
  62                         return 0
  63                 end
  64         end,
  65         on_put = function(inv, listname, index, stack, player)
  66                 inv:set_stack(listname, index, "")
  67         end,
  68 })
  69 trash:set_size("main", 1)
  70
  71
  72 creative_inventory.set_creative_formspec = function(player, start_i, pagenum)
  73         pagenum = math.floor(pagenum)
  74         local pagemax = math.floor((creative_inventory.creative_inventory_size-1) / (6*4) + 1)
  75         player:set_inventory_formspec(
  76                         "size[13,7.5]"..
  77                         --"image[6,0.6;1,2;player.png]"..
  78                         default.gui_bg..
  79                         default.gui_bg_img..
  80                         default.gui_slots..
  81                         "list[current_player;main;5,3.5;8,1;]"..
  82                         "list[current_player;main;5,4.75;8,3;8]"..
  83                         "list[current_player;craft;8,0;3,3;]"..
  84                         "list[current_player;craftpreview;12,1;1,1;]"..
  85                         "image[11,1;1,1;gui_furnace_arrow_bg.png^[transformR270]"..
  86                         "list[detached:creative;main;0.3,0.5;4,6;"..tostring(start_i).."]"..
  87                         "label[2.0,6.55;"..tostring(pagenum).."/"..tostring(pagemax).."]"..
  88                         "button[0.3,6.5;1.6,1;creative_prev;<<]"..
  89                         "button[2.7,6.5;1.6,1;creative_next;>>]"..
  90                         "listring[current_player;main]"..
  91                         "listring[current_player;craft]"..
  92                         "listring[current_player;main]"..
  93                         "listring[detached:creative;main]"..
  94                         "label[5,1.5;Trash:]"..
  95                         "list[detached:creative_trash;main;5,2;1,1;]"..
  96                         default.get_hotbar_bg(5,3.5)
  97         )
  98 end
  99 minetest.register_on_joinplayer(function(player)
 100         -- If in creative mode, modify player's inventory forms
 101         if not minetest.setting_getbool("creative_mode") then
 102                 return
 103         end
 104         creative_inventory.set_creative_formspec(player, 0, 1)
 105 end)
 106 minetest.register_on_player_receive_fields(function(player, formname, fields)
 107         if not minetest.setting_getbool("creative_mode") then
 108                 return
 109         end
 110         -- Figure out current page from formspec
 111         local current_page = 0
 112         local formspec = player:get_inventory_formspec()
 113         local start_i = string.match(formspec, "list%[detached:creative;main;[%d.]+,[%d.]+;[%d.]+,[%d.]+;(%d+)%]")
 114         start_i = tonumber(start_i) or 0
 115
 116         if fields.creative_prev then
 117                 start_i = start_i - 4*6
 118         end
 119         if fields.creative_next then
 120                 start_i = start_i + 4*6
 121         end
 122
 123         if start_i < 0 then
 124                 start_i = start_i + 4*6
 125         end
 126         if start_i >= creative_inventory.creative_inventory_size then
 127                 start_i = start_i - 4*6
 128         end
 129
 130         if start_i < 0 or start_i >= creative_inventory.creative_inventory_size then
 131                 start_i = 0
 132         end
 133
 134         creative_inventory.set_creative_formspec(player, start_i, start_i / (6*4) + 1)
 135 end)
 136
 137 if minetest.setting_getbool("creative_mode") then
 138         local digtime = 0.5
 139         minetest.register_item(":", {
 140                 type = "none",
 141                 wield_image = "wieldhand.png",
 142                 wield_scale = {x=1,y=1,z=2.5},
 143                 range = 10,
 144                 tool_capabilities = {
 145                         full_punch_interval = 0.5,
 146                         max_drop_level = 3,
 147                         groupcaps = {
 148                                 crumbly = {times={[1]=digtime, [2]=digtime, [3]=digtime}, uses=0, maxlevel=3},
 149                                 cracky = {times={[1]=digtime, [2]=digtime, [3]=digtime}, uses=0, maxlevel=3},
 150                                 snappy = {times={[1]=digtime, [2]=digtime, [3]=digtime}, uses=0, maxlevel=3},
 151                                 choppy = {times={[1]=digtime, [2]=digtime, [3]=digtime}, uses=0, maxlevel=3},
 152                                 oddly_breakable_by_hand = {times={[1]=digtime, [2]=digtime, [3]=digtime}, uses=0, maxlevel=3},
 153                         },
 154                         damage_groups = {fleshy = 10},
 155                 }
 156         })
 157
 158         minetest.register_on_placenode(function(pos, newnode, placer, oldnode, itemstack)
 159                 return true
 160         end)
 161
 162         function minetest.handle_node_drops(pos, drops, digger)
 163                 if not digger or not digger:is_player() then
 164                         return
 165                 end
 166                 local inv = digger:get_inventory()
 167                 if inv then
 168                         for _,item in ipairs(drops) do
 169                                 item = ItemStack(item):get_name()
 170                                 if not inv:contains_item("main", item) then
 171                                         inv:add_item("main", item)
 172                                 end
 173                         end
 174                 end
 175         end
 176
 177 end