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