1-- minetest/creative/init.lua
2
3creative_inventory = {}
4creative_inventory.creative_inventory_size = 0
5
6-- Create detached creative inventory after loading all mods
7minetest.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))
52end)
53
54-- Create the trash field
55local 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})
69trash:set_size("main", 1)
70
71
72creative_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			"list[detached:creative;main;0.3,0.5;4,6;"..tostring(start_i).."]"..
86			"label[2.0,6.55;"..tostring(pagenum).."/"..tostring(pagemax).."]"..
87			"button[0.3,6.5;1.6,1;creative_prev;<<]"..
88			"button[2.7,6.5;1.6,1;creative_next;>>]"..
89			"label[5,1.5;Trash:]"..
90			"list[detached:creative_trash;main;5,2;1,1;]"..
91			default.get_hotbar_bg(5,3.5)
92	)
93end
94minetest.register_on_joinplayer(function(player)
95	-- If in creative mode, modify player's inventory forms
96	if not minetest.setting_getbool("creative_mode") then
97		return
98	end
99	creative_inventory.set_creative_formspec(player, 0, 1)
100end)
101minetest.register_on_player_receive_fields(function(player, formname, fields)
102	if not minetest.setting_getbool("creative_mode") then
103		return
104	end
105	-- Figure out current page from formspec
106	local current_page = 0
107	local formspec = player:get_inventory_formspec()
108	local start_i = string.match(formspec, "list%[detached:creative;main;[%d.]+,[%d.]+;[%d.]+,[%d.]+;(%d+)%]")
109	start_i = tonumber(start_i) or 0
110
111	if fields.creative_prev then
112		start_i = start_i - 4*6
113	end
114	if fields.creative_next then
115		start_i = start_i + 4*6
116	end
117
118	if start_i < 0 then
119		start_i = start_i + 4*6
120	end
121	if start_i >= creative_inventory.creative_inventory_size then
122		start_i = start_i - 4*6
123	end
124
125	if start_i < 0 or start_i >= creative_inventory.creative_inventory_size then
126		start_i = 0
127	end
128
129	creative_inventory.set_creative_formspec(player, start_i, start_i / (6*4) + 1)
130end)
131
132if minetest.setting_getbool("creative_mode") then
133	local digtime = 0.5
134	minetest.register_item(":", {
135		type = "none",
136		wield_image = "wieldhand.png",
137		wield_scale = {x=1,y=1,z=2.5},
138		range = 10,
139		tool_capabilities = {
140			full_punch_interval = 0.5,
141			max_drop_level = 3,
142			groupcaps = {
143				crumbly = {times={[1]=digtime, [2]=digtime, [3]=digtime}, uses=0, maxlevel=3},
144				cracky = {times={[1]=digtime, [2]=digtime, [3]=digtime}, uses=0, maxlevel=3},
145				snappy = {times={[1]=digtime, [2]=digtime, [3]=digtime}, uses=0, maxlevel=3},
146				choppy = {times={[1]=digtime, [2]=digtime, [3]=digtime}, uses=0, maxlevel=3},
147				oddly_breakable_by_hand = {times={[1]=digtime, [2]=digtime, [3]=digtime}, uses=0, maxlevel=3},
148			},
149			damage_groups = {fleshy = 10},
150		}
151	})
152
153	minetest.register_on_placenode(function(pos, newnode, placer, oldnode, itemstack)
154		return true
155	end)
156
157	function minetest.handle_node_drops(pos, drops, digger)
158		if not digger or not digger:is_player() then
159			return
160		end
161		local inv = digger:get_inventory()
162		if inv then
163			for _,item in ipairs(drops) do
164				item = ItemStack(item):get_name()
165				if not inv:contains_item("main", item) then
166					inv:add_item("main", item)
167				end
168			end
169		end
170	end
171
172end
173