mods/creative/init.lua

   1 -- minetest/creative/init.lua
   2
   3 creative = {}
   4 local player_inventory = {}
   5
   6 -- Create detached creative inventory after loading all mods
   7 creative.init_creative_inventory = function(player)
   8         local player_name = player:get_player_name()
   9
  10         player_inventory[player_name] = {}
  11         player_inventory[player_name].size = 0
  12         player_inventory[player_name].filter = nil
  13         player_inventory[player_name].start_i = 1
  14
  15         local inv = minetest.create_detached_inventory("creative_" .. player_name, {
  16                 allow_move = function(inv, from_list, from_index, to_list, to_index, count, player)
  17                         if minetest.setting_getbool("creative_mode") then
  18                                 return count
  19                         else
  20                                 return 0
  21                         end
  22                 end,
  23                 allow_put = function(inv, listname, index, stack, player)
  24                         return 0
  25                 end,
  26                 allow_take = function(inv, listname, index, stack, player)
  27                         if minetest.setting_getbool("creative_mode") then
  28                                 return -1
  29                         else
  30                                 return 0
  31                         end
  32                 end,
  33                 on_move = function(inv, from_list, from_index, to_list, to_index, count, player)
  34                 end,
  35                 on_put = function(inv, listname, index, stack, player)
  36                 end,
  37                 on_take = function(inv, listname, index, stack, player)
  38                         --print(player:get_player_name().." takes item from creative inventory; listname="..dump(listname)..", index="..dump(index)..", stack="..dump(stack))
  39                         if stack then
  40                                 minetest.log("action", player:get_player_name().." takes "..dump(stack:get_name()).." from creative inventory")
  41                                 --print("stack:get_name()="..dump(stack:get_name())..", stack:get_count()="..dump(stack:get_count()))
  42                         end
  43                 end,
  44         })
  45
  46         creative.update_creative_inventory(player_name, nil, 2)
  47         --print("creative inventory size: "..dump(player_inventory[player_name].size))
  48 end
  49
  50 local function tab_category(tab_id)
  51         local id_category = {
  52                 nil, -- Reserved for crafting tab.
  53                 minetest.registered_items,
  54                 minetest.registered_nodes,
  55                 minetest.registered_tools,
  56                 minetest.registered_craftitems
  57         }
  58
  59         -- If index out of range, show default ("All") page.
  60         return id_category[tab_id] or id_category[2]
  61 end
  62
  63 function creative.update_creative_inventory(player_name, filter, tab_id)
  64         local creative_list = {}
  65         local inv = minetest.get_inventory({type = "detached", name = "creative_" .. player_name})
  66
  67         for name, def in pairs(tab_category(tab_id)) do
  68                 if not (def.groups.not_in_creative_inventory == 1) and
  69                                 def.description and def.description ~= "" and
  70                                 (not filter or def.name:find(filter, 1, true) or
  71                                         def.description:lower():find(filter, 1, true)) then
  72                         creative_list[#creative_list+1] = name
  73                 end
  74         end
  75
  76         table.sort(creative_list)
  77         inv:set_size("main", #creative_list)
  78         inv:set_list("main", creative_list)
  79         player_inventory[player_name].size = #creative_list
  80 end
  81
  82 -- Create the trash field
  83 local trash = minetest.create_detached_inventory("creative_trash", {
  84         -- Allow the stack to be placed and remove it in on_put()
  85         -- This allows the creative inventory to restore the stack
  86         allow_put = function(inv, listname, index, stack, player)
  87                 if minetest.setting_getbool("creative_mode") then
  88                         return stack:get_count()
  89                 else
  90                         return 0
  91                 end
  92         end,
  93         on_put = function(inv, listname, index, stack, player)
  94                 inv:set_stack(listname, index, "")
  95         end,
  96 })
  97 trash:set_size("main", 1)
  98
  99 creative.set_creative_formspec = function(player, start_i, pagenum, tab_id)
 100         local player_name = player:get_player_name()
 101         local filter = player_inventory[player_name].filter or ""
 102         pagenum = math.floor(pagenum)
 103         local pagemax = math.floor((player_inventory[player_name].size - 1) / (3*8) + 1)
 104         tab_id = tab_id or 2
 105
 106         player:set_inventory_formspec([[
 107                 size[8,8.6]
 108                 image[4.06,3.4;0.8,0.8;creative_trash_icon.png]
 109                 list[current_player;main;0,4.7;8,1;]
 110                 list[current_player;main;0,5.85;8,3;8]
 111                 list[detached:creative_trash;main;4,3.3;1,1;]
 112                 tablecolumns[color;text;color;text]
 113                 tableoptions[background=#00000000;highlight=#00000000;border=false]
 114                 button[5.4,3.2;0.8,0.9;creative_prev;<]
 115                 button[7.25,3.2;0.8,0.9;creative_next;>]
 116                 button[2.1,3.4;0.8,0.5;creative_search;?]
 117                 button[2.75,3.4;0.8,0.5;creative_clear;X]
 118                 tooltip[creative_search;Search]
 119                 tooltip[creative_clear;Reset]
 120                 listring[current_player;main]
 121                 ]] ..
 122                 "field[0.3,3.5;2.2,1;creative_filter;;".. filter .."]"..
 123                 "listring[detached:creative_".. player_name ..";main]"..
 124                 "tabheader[0,0;creative_tabs;Crafting,All,Nodes,Tools,Items;".. tostring(tab_id) ..";true;false]"..
 125                 "list[detached:creative_".. player_name ..";main;0,0;8,3;".. tostring(start_i) .."]"..
 126                 "table[6.05,3.35;1.15,0.5;pagenum;#FFFF00,".. tostring(pagenum) ..",#FFFFFF,/ ".. tostring(pagemax) .."]"..
 127                 default.get_hotbar_bg(0,4.7)..
 128                 default.gui_bg .. default.gui_bg_img .. default.gui_slots
 129         )
 130 end
 131
 132 creative.set_crafting_formspec = function(player)
 133         player:set_inventory_formspec([[
 134                 size[8,8.6]
 135                 list[current_player;craft;2,0.75;3,3;]
 136                 list[current_player;craftpreview;6,1.75;1,1;]
 137                 list[current_player;main;0,4.7;8,1;]
 138                 list[current_player;main;0,5.85;8,3;8]
 139                 list[detached:creative_trash;main;0,2.75;1,1;]
 140                 image[0.06,2.85;0.8,0.8;creative_trash_icon.png]
 141                 image[5,1.75;1,1;gui_furnace_arrow_bg.png^[transformR270]
 142                 tabheader[0,0;creative_tabs;Crafting,All,Nodes,Tools,Items;1;true;false]
 143                 listring[current_player;main]
 144                 listring[current_player;craft]
 145                 ]] ..
 146                 default.get_hotbar_bg(0,4.7)..
 147                 default.gui_bg .. default.gui_bg_img .. default.gui_slots
 148         )
 149 end
 150
 151 minetest.register_on_joinplayer(function(player)
 152         -- If in creative mode, modify player's inventory forms
 153         if not minetest.setting_getbool("creative_mode") then
 154                 return
 155         end
 156         creative.init_creative_inventory(player)
 157         creative.set_creative_formspec(player, 0, 1, 2)
 158 end)
 159
 160 minetest.register_on_player_receive_fields(function(player, formname, fields)
 161         if formname ~= "" or not minetest.setting_getbool("creative_mode") then
 162                 return
 163         end
 164
 165         local player_name = player:get_player_name()
 166         local formspec = player:get_inventory_formspec()
 167         local filter = formspec:match("creative_filter;;([%w_:]+)") or ""
 168         local start_i = formspec:match("list%[.-".. player_name ..";.-;(%d+)%]")
 169         local tab_id = tonumber(formspec:match("tabheader%[.-;(%d+)%;"))
 170         local inv_size = player_inventory[player_name].size
 171         start_i = tonumber(start_i) or 0
 172
 173         if fields.quit then
 174                 if tab_id == 1 then
 175                         creative.set_crafting_formspec(player)
 176                 end
 177         elseif fields.creative_tabs then
 178                 local tab = tonumber(fields.creative_tabs)
 179                 if tab == 1 then
 180                         creative.set_crafting_formspec(player)
 181                 else
 182                         creative.update_creative_inventory(player_name, filter, tab)
 183                         creative.set_creative_formspec(player, 0, 1, tab)
 184                 end
 185         elseif fields.creative_clear then
 186                 player_inventory[player_name].filter = ""
 187                 creative.update_creative_inventory(player_name, nil, tab_id)
 188                 creative.set_creative_formspec(player, 0, 1, tab_id)
 189         elseif fields.creative_search then
 190                 local lowstr = fields.creative_filter:lower()
 191                 player_inventory[player_name].filter = lowstr
 192                 creative.update_creative_inventory(player_name, lowstr, tab_id)
 193                 creative.set_creative_formspec(player, 0, 1, tab_id)
 194         else
 195                 if fields.creative_prev then
 196                         start_i = start_i - 3*8
 197                         if start_i < 0 then
 198                                 start_i = inv_size - (inv_size % (3*8))
 199                                 if inv_size == start_i then
 200                                         start_i = math.max(0, inv_size - (3*8))
 201                                 end
 202                         end
 203                 elseif fields.creative_next then
 204                         start_i = start_i + 3*8
 205                         if start_i >= inv_size then
 206                                 start_i = 0
 207                         end
 208                 end
 209
 210                 creative.set_creative_formspec(player, start_i, start_i / (3*8) + 1, tab_id)
 211         end
 212 end)
 213
 214 if minetest.setting_getbool("creative_mode") then
 215         local digtime = 0.5
 216         minetest.register_item(":", {
 217                 type = "none",
 218                 wield_image = "wieldhand.png",
 219                 wield_scale = {x=1, y=1, z=2.5},
 220                 range = 10,
 221                 tool_capabilities = {
 222                         full_punch_interval = 0.5,
 223                         max_drop_level = 3,
 224                         groupcaps = {
 225                                 crumbly = {times={[1]=digtime, [2]=digtime, [3]=digtime}, uses=0, maxlevel=3},
 226                                 cracky = {times={[1]=digtime, [2]=digtime, [3]=digtime}, uses=0, maxlevel=3},
 227                                 snappy = {times={[1]=digtime, [2]=digtime, [3]=digtime}, uses=0, maxlevel=3},
 228                                 choppy = {times={[1]=digtime, [2]=digtime, [3]=digtime}, uses=0, maxlevel=3},
 229                                 oddly_breakable_by_hand = {times={[1]=digtime, [2]=digtime, [3]=digtime}, uses=0, maxlevel=3},
 230                         },
 231                         damage_groups = {fleshy = 10},
 232                 }
 233         })
 234
 235         minetest.register_on_placenode(function(pos, newnode, placer, oldnode, itemstack)
 236                 return true
 237         end)
 238
 239         function minetest.handle_node_drops(pos, drops, digger)
 240                 if not digger or not digger:is_player() then
 241                         return
 242                 end
 243                 local inv = digger:get_inventory()
 244                 if inv then
 245                         for _, item in ipairs(drops) do
 246                                 item = ItemStack(item):get_name()
 247                                 if not inv:contains_item("main", item) then
 248                                         inv:add_item("main", item)
 249                                 end
 250                         end
 251                 end
 252         end
 253 end