VoxeLibre/mods/craftingpack/crafting/creative.lua

crafting = {}
crafting.creative_inventory_size = 0

function init()
 local inv = minetest.create_detached_inventory("creative", {
		allow_move = function(inv, from_list, from_index, to_list, to_index, count, player)
			if minetest.setting_getbool("creative_mode") then
				return count
			else
				return 0
			end
		end,
		allow_put = function(inv, listname, index, stack, player)
			return 0
		end,
		allow_take = function(inv, listname, index, stack, player)
			if minetest.setting_getbool("creative_mode") then
				return -1
			else
				return 0
			end
		end,
		on_move = function(inv, from_list, from_index, to_list, to_index, count, player)
		end,
		on_put = function(inv, listname, index, stack, player)
		end,
		on_take = function(inv, listname, index, stack, player)
			print(player:get_player_name().." takes item from creative inventory; listname="..dump(listname)..", index="..dump(index)..", stack="..dump(stack))
			if stack then
				print("stack:get_name()="..dump(stack:get_name())..", stack:get_count()="..dump(stack:get_count()))
			end
		end,
	})
 set_inv("all")
end

function set_inv(filter, player)
	local inv = minetest.get_inventory({type="detached", name="creative"})
	inv:set_size("main", 0)
	local creative_list = {}
	for name,def in pairs(minetest.registered_items) do
		if (not def.groups.not_in_creative_inventory or def.groups.not_in_creative_inventory == 0) and def.description and def.description ~= "" then
			if filter ~= "" then
				local is_redstone = function(def)
					return def.mesecons or def.groups.mesecon or def.groups.mesecon_conductor_craftable or def.groups.mesecon_effecor_off
				end
				local is_tool = function(def)
					return def.groups.tool or (def.tool_capabilities ~= nil and def.tool_capabilities.damage_groups == nil)
				end
				local is_weapon = function(def)
					return def.groups.weapon or def.groups.weapon_ranged or def.groups.ammo or def.groups.armor_head or def.groups.armor_torso or def.groups.armor_legs or def.groups.armor_feet
				end
				if filter == "#blocks" then
					if def.groups.building_block then
						table.insert(creative_list, name)
					end
				elseif filter == "#deco" then
					if def.groups.deco_block then
						table.insert(creative_list, name)
					end
				elseif filter == "#redstone" then
					if is_redstone(def) then
						table.insert(creative_list, name)
					end
				elseif filter == "#rail" then
					if def.groups.transport then
						table.insert(creative_list, name)
					end
				elseif filter == "#food" then
					if def.groups.food or def.groups.eatable then
						table.insert(creative_list, name)
					end
				elseif filter == "#tools" then
					if is_tool(def) then
						table.insert(creative_list, name)
					end
				elseif filter == "#combat" then
					if is_weapon(def) then
						table.insert(creative_list, name)
					end
				elseif filter == "#matr" then
					-- TODO: Add separate brewing category
					if def.groups.craftitem or def.groups.brewitem then
						table.insert(creative_list, name)
					end
				elseif filter == "#misc" then
					if not def.groups.building_block and not def.groups.deco_block and not is_redstone(def) and not def.groups.transport and not def.groups.food and not def.groups.eatable and not is_tool(def) and not is_weapon(def) and not def.groups.craftitem and not def.groups.brewitem then

						table.insert(creative_list, name)
					end
				elseif filter == "all" then
					table.insert(creative_list, name)
				else --for all other
					if string.find(string.lower(def.name), filter) or string.find(string.lower(def.description), filter) then
						table.insert(creative_list, name)
					end
				end
			end
		end
	end
	table.sort(creative_list)
	inv:set_size("main", #creative_list)
	for _,itemstring in ipairs(creative_list) do
		inv:add_item("main", ItemStack(itemstring))
	end
	crafting.creative_inventory_size = #creative_list
	--print("creative inventory size: "..dump(crafting.creative_inventory_size))
end

-- Create the trash field
local trash = minetest.create_detached_inventory("creative_trash", {
	allow_put = function(inv, listname, index, stack, player)
		if minetest.setting_getbool("creative_mode") then
			return stack:get_count()
		else
			return 0
		end
	end,
	on_put = function(inv, listname, index, stack, player)
		inv:set_stack(listname, index, "")
	end,
})
trash:set_size("main", 1)


-- Create detached creative inventory after loading all mods
minetest.after(0, init)

local offset = {}
local hoch = {}
local bg = {}
-- TODO: Investigate what is going on with this weird variable
local start_i
offset["blocks"] = "-0.29,-0.25"
offset["deco"] = "0.98,-0.25"
offset["redstone"] = "2.23,-0.25"
offset["rail"] = "3.495,-0.25"
offset["misc"] = "4.75,-0.25"
offset["nix"] = "8.99,-0.25"
offset["food"] = "-0.29,8.12"
offset["tools"] = "0.98,8.12"
offset["combat"] = "2.23,8.12"
offset["brew"] = "3.495,8.12"
offset["matr"] = offset["brew"]--"4.74,8.12"
offset["inv"] = "8.99,8.12"

hoch["blocks"] = ""
hoch["deco"] = ""
hoch["redstone"] = ""
hoch["rail"] = ""
hoch["misc"] = ""
hoch["nix"] = ""
hoch["food"] = "^[transformfy"
hoch["tools"] = "^[transformfy"
hoch["combat"] = "^[transformfy"
hoch["brew"] = "^[transformfy"
hoch["matr"] = "^[transformfy"
hoch["inv"] = "^[transformfy"

local dark_bg = "crafting_creative_bg_dark.png"

local function reset_menu_item_bg()
	bg["blocks"] = dark_bg 
	bg["deco"] = dark_bg 
	bg["redstone"] = dark_bg 
	bg["rail"] = dark_bg 
	bg["misc"] = dark_bg 
	bg["nix"] = dark_bg 
	bg["food"] = dark_bg 
	bg["tools"] = dark_bg 
	bg["combat"] = dark_bg 
	bg["brew"] = dark_bg 
	bg["matr"] = dark_bg 
	bg["inv"] = dark_bg 
end


crafting.set_creative_formspec = function(player, start_i, pagenum, show, page)
	reset_menu_item_bg()
	pagenum = math.floor(pagenum) or 1
	local pagemax = math.floor((crafting.creative_inventory_size-1) / (9*5) + 1)
	local slider_height = 4/pagemax
	local slider_pos = slider_height*(pagenum-1)+2.25
	local name = "nix"
	local formspec = ""
	local main_list = "list[detached:creative;main;0,1.75;9,5;"..tostring(start_i).."]"
	local listrings = "listring[detached:creative;main]"..
		"listring[current_player;main]"..
		"listring[detached:creative_trash;main]"

	if page ~= nil then name = page end
	bg[name] = "crafting_creative_bg.png"
		if name == "inv" then
			main_list = "image[-0.2,1.7;11.35,2.33;crafting_creative_bg.png]"..
				"list[current_player;main;0,3.75;9,3;9]"
		end
		formspec = "size[10,9.3]"..
			default.inventory_header..
			"background[-0.19,-0.25;10.5,9.87;crafting_inventory_creative.png]"..
			"label[-5,-5;"..name.."]"..
			"image[" .. offset[name] .. ";1.5,1.44;crafting_creative_active.png"..hoch[name].."]"..
			"image_button[-0.1,0;1,1;"..bg["blocks"].."^default_brick.png;build;]"..	--build blocks
			"image_button[1.15,0;1,1;"..bg["deco"].."^flower_peony.png;deco;]"..	--decoration blocks
			"image_button[2.415,0;1,1;"..bg["redstone"].."^mesecons_redstone_dust.png;redstone;]"..	--redstone
			"image_button[3.693,0;1,1;"..bg["rail"].."^carts_rail_pwr.png;rail;]"..	--transportation
			"image_button[4.93,0;1,1;"..bg["misc"].."^bucket_lava.png;misc;]"..	--miscellaneous
			"image_button[9.19,0;1,1;"..bg["nix"].."^default_sign.png;default;]"..	--search
			"image[0,1;5,0.75;fnt_"..name..".png]"..
			"list[current_player;main;0,7;9,1;]"..
			main_list..
			"image_button[9.03,1.74;0.85,0.6;crafting_creative_up.png;creative_prev;]"..
			"image[9.04," .. tostring(slider_pos) .. ";0.75,"..tostring(slider_height) .. ";crafting_slider.png]"..
			"image_button[9.03,6.15;0.85,0.6;crafting_creative_down.png;creative_next;]"..
			"image_button[-0.1,8.28;1,1;"..bg["food"].."^default_apple.png;food;]"..	--foodstuff
			"image_button[1.15,8.28;1,1;"..bg["tools"].."^default_tool_steelaxe.png;tools;]"..	--tools
			"image_button[2.415,8.28;1,1;"..bg["combat"].."^default_tool_goldsword.png;combat;]"..	--combat
			"image_button[3.693,8.28;1,1;"..bg["matr"].."^default_stick.png;matr;]"..	--brewing
			"image_button[9.19,8.28;1,1;"..bg["inv"].."^default_chest_front.png;inv;]"..			--inventory
			"list[detached:creative_trash;main;9,7;1,1;]"..
			"image[9,7;1,1;crafting_creative_trash.png]"..
			listrings

			if name == "nix" then formspec = formspec .. "field[5.3,1.3;4,0.75;suche;;]" end
			if pagenum ~= nil then formspec = formspec .. "p"..tostring(pagenum) end
			
	player:set_inventory_formspec(formspec)
end

minetest.register_on_player_receive_fields(function(player, formname, fields)
	local page = nil
	if not minetest.setting_getbool("creative_mode") then
		return
	end
	
	if fields.bgcolor then
		minetest.chat_send_all("jupp")
	end
	if fields.suche ~= nil and fields.suche ~= "" then
		set_inv(string.lower(fields.suche))
		minetest.show_formspec(player:get_player_name(), "detached:creative",  player:get_inventory_formspec())
	end

	if fields.build then		
		set_inv("#blocks",player)
		page = "blocks"		
	end
	if fields.deco then		
		set_inv("#deco",player)
		page = "deco"
	end
	if fields.redstone then		
		set_inv("#redstone",player)
		page = "redstone"
	end
	if fields.rail then		
		set_inv("#rail",player)
		page = "rail"
	end
	if fields.misc then		
		set_inv("#misc",player)
		page = "misc"
	end
	if fields.default then		
		set_inv("all")
		page = nil
	end
	if fields.food then		
		set_inv("#food")
		page = "food"
	end
	if fields.tools then		
		set_inv("#tools")
		page = "tools"
	end
	if fields.combat then
		set_inv("#combat")
		page = "combat"
	end
	if fields.matr then
		set_inv("#matr")
		page = "matr"
	end
	if fields.inv then
		page = "inv"
	end
	-- Figure out current page from formspec
	local current_page = 0
	local formspec = player:get_inventory_formspec()

	local size = string.len(formspec)
	local marker = string.sub(formspec,size-2)
	marker = string.sub(marker,1)
	if marker ~= nil and marker == "p" then
		local page = string.sub(formspec,size-1)
		--minetest.chat_send_all(page)
		start_i = page
	end
	start_i = tonumber(start_i) or 0
	if fields.creative_prev then
		start_i = start_i - 9*5
	end
	if fields.creative_next then
		start_i = start_i + 9*5
	end
	if start_i < 0 then
		start_i = start_i + 9*5
	end
	if start_i >= crafting.creative_inventory_size then
		start_i = start_i - 9*5
	end		
	if start_i < 0 or start_i >= crafting.creative_inventory_size then
		start_i = 0
	end
	crafting.set_creative_formspec(player, start_i, start_i / (9*5) + 1, false, page)
end)


if minetest.setting_getbool("creative_mode") then
	minetest.register_on_placenode(function(pos, newnode, placer, oldnode, itemstack)
		return true
	end)
	
	function minetest.handle_node_drops(pos, drops, digger)
		if not digger or not digger:is_player() then
			return
		end
		local inv = digger:get_inventory()
		if inv then
			for _,item in ipairs(drops) do
				item = ItemStack(item):get_name()
				if not inv:contains_item("main", item) then
					inv:add_item("main", item)
				end
			end
		end
	end
	
end