mods/creative/init.lua

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