Bump version

Allow bags via item groups

.editorconfig

@@ -0,0 +1,9 @@
+[*]
+end_of_line = lf
+
+[*.{lua,txt,md,json}]
+charset = utf8
+indent_size = 8
+indent_style = tab
+insert_final_newline = true
+trim_trailing_whitespace = true

.github/ISSUE_TEMPLATE/bug_report.md

@@ -0,0 +1,24 @@
+---
+name: Bug report
+about: Create a report to help us improve
+title: ''
+labels: ''
+assignees: ''
+
+---
+
+**Describe the bug**
+A clear and concise description of what the bug is.
+
+**To Reproduce**
+Steps to reproduce the behavior.
+
+**Screenshots**
+If applicable, add screenshots to help explain your problem.
+
+**Additional context**
+- Mod version? Release or git?
+- Engine version?
+- LuaJIT enabled?
+- Operating system?
+- Did you try to disable other mods except i3?

.github/workflows/luacheck.yml

@@ -0,0 +1,21 @@
+name: Luacheck
+
+on: [push, pull_request]
+
+jobs:
+
+  luacheck:
+    runs-on: ubuntu-20.04
+    steps:
+    - name: Checkout
+      uses: actions/checkout@v2
+    - name: Setup ‘lua’
+      uses: leafo/gh-actions-lua@v8
+      with:
+        luaVersion: 5.1
+    - name: Setup ‘luarocks’
+      uses: leafo/gh-actions-luarocks@v4
+    - name: Setup ‘luacheck’
+      run: luarocks install luacheck
+    - name: Run ‘luacheck’ linter
+      run: cd util; lua luacheck.lua

.luacheckrc

@@ -1,22 +1,38 @@
 allow_defined_top = true
 
 ignore = {
+	"631", -- Line is too long.
 	"get_debug_grid",
 }
 
 read_globals = {
 	"minetest",
-	"default",
 	"armor",
 	"skins",
 	"awards",
+	"hb",
 	"vector",
 	"string",
 	"table",
 	"ItemStack",
+	"VoxelArea",
+	"VoxelManip",
 }
 
 globals = {
 	"i3",
 	"core",
+	"sfinv",
+	"unified_inventory",
+}
+
+exclude_files = {
+	"tests/test_compression.lua",
+	"tests/test_custom_recipes.lua",
+	"tests/test_operators.lua",
+	"tests/test_tabs.lua",
+	"tests/test_waypoints.lua",
+
+	".install",
+	".luarocks",
 }

API.md

@@ -1,77 +1,104 @@
-## API
+# API :screwdriver:
 
-### Custom tabs
+### Table of Contents
+1. [**Tabs**](https://github.com/minetest-mods/i3/blob/main/API.md#tabs)
+2. [**Recipes**](https://github.com/minetest-mods/i3/blob/main/API.md#recipes)
+3. [**Minitabs**](https://github.com/minetest-mods/i3/blob/main/API.md#minitabs)
+4. [**Recipe filters**](https://github.com/minetest-mods/i3/blob/main/API.md#recipe-filters)
+5. [**Search filters**](https://github.com/minetest-mods/i3/blob/main/API.md#search-filters)
+6. [**Sorting methods**](https://github.com/minetest-mods/i3/blob/main/API.md#sorting-methods)
+7. [**Item list compression**](https://github.com/minetest-mods/i3/blob/main/API.md#item-list-compression)
+8. [**Waypoints**](https://github.com/minetest-mods/i3/blob/main/API.md#waypoints)
+9. [**Miscellaneous**](https://github.com/minetest-mods/i3/blob/main/API.md#miscellaneous)
 
-#### `i3.new_tab(def)`
+---
+
+### Tabs
+
+#### `i3.new_tab(name, def)`
+
+- `name` is the tab name.
+- `def` is the tab definition.
 
 Custom tabs can be added to the `i3` inventory as follow (example):
 
 ```Lua
-i3.new_tab {
-	name = "stuff",
+i3.new_tab("stuff", {
 	description = "Stuff",
-	image = "image.png", -- Optional, adds an image next to the tab description
+	image = "image.png", -- Optional, add an image next to the tab description
+	slots = true -- Optional, whether the inventory slots are shown or not. Disabled by default.
 
-	-- Determine if the tab is visible by a player, `false` or `nil` hide the tab
+	--
+	-- The functions below are all optional
+	--
+
+	-- Determine if the tab is visible by a player, return false to hide the tab
 	access = function(player, data)
 		local name = player:get_player_name()
-		if name == "singleplayer" then
-			return false
-		end
+		return name == "singleplayer"
 	end,
 
+	-- Build the formspec
 	formspec = function(player, data, fs)
-		fs("label[3,1;This is just a test]")
+		fs("label", 3, 1, "Just a test")
+		fs"label[3,2;Lorem Ipsum]"
+		-- No need to return anything
 	end,
 
+	-- Events handling happens here
 	fields = function(player, data, fields)
-		
-	end,
+		if fields.mybutton then
+			-- Do things
+		end
 
-	-- Determine if the recipe panels must be hidden or not (must return a boolean)
-	hide_panels = function(player, data)
-		local name = player:get_player_name()
-		return core.is_creative_enabled(name)
+		-- To prevent a formspec update, return false.
+		-- Otherwise: no need to return anything, it's automatic.
 	end,
-}
+})
 ```
 
 - `player` is an `ObjectRef` to the user.
 - `data` are the user data.
-- `fs` is the formspec table which is callable with a metamethod. Each call adds a new entry.
+- `fs` is the formspec table which is callable with a metamethod. Every call adds a new entry.
 
-#### `i3.set_fs(player[, extra_formspec])`
+#### `i3.set_fs(player)`
 
-Updates the current formspec. `extra_formspec` adds an additional formspec string.
+Update the current formspec.
 
-#### `i3.delete_tab(tabname)`
+#### `i3.remove_tab(tabname)`
 
-Deletes a tab by name.
+Delete a tab by name.
+
+#### `i3.get_current_tab(player)`
+
+Return the current player tab. `player` is an `ObjectRef` to the user.
 
 #### `i3.set_tab(player[, tabname])`
 
-Sets the current tab by name. `player` is an `ObjectRef` to the user.
+Set the current tab by name. `player` is an `ObjectRef` to the user.
 `tabname` can be omitted to get an empty tab.
 
 #### `i3.override_tab(tabname, def)`
 
-Overrides a tab by name. `def` is the tab definition like seen in `i3.set_tab`.
+Override a tab by name. `def` is the tab definition like seen in `i3.set_tab`
 
-#### `i3.get_tabs()`
+#### `i3.tabs`
 
-Returns the list of registered tabs.
+A list of registered tabs.
 
 ---
 
-### Custom recipes
+### Recipes
 
 Custom recipes are nonconventional crafts outside the main crafting grid.
 They can be registered in-game dynamically and have a size beyond 3x3 items.
 
 **Note:** the registration format differs from the default registration format in everything.
-The width is automatically calculated depending where you place the commas. Look at the examples attentively.
+The width is automatically calculated depending where you place the commas.
 
-#### Registering a custom crafting type (example)
+Examples:
+
+#### Registering a custom crafting type
 
 ```Lua
 i3.register_craft_type("digging", {
@@ -80,31 +107,31 @@ i3.register_craft_type("digging", {
 })
 ```
 
-#### Registering a custom crafting recipe (examples)
+#### Registering a custom crafting recipe
 
 ```Lua
-i3.register_craft({
+i3.register_craft {
 	type   = "digging",
 	result = "default:cobble 2",
 	items  = {"default:stone"},
-})
+}
 ```
 
 ```Lua
-i3.register_craft({
+i3.register_craft {
 	result = "default:cobble 16",
 	items = {
 		"default:stone, default:stone, default:stone",
 		"default:stone,              , default:stone",
 		"default:stone, default:stone, default:stone",
 	}
-})
+}
 ```
 
 Recipes can be registered in a Minecraft-like way:
 
 ```Lua
-i3.register_craft({
+i3.register_craft {
 	grid = {
 		"X  #",
 		" ## ",
@@ -116,13 +143,13 @@ i3.register_craft({
 		['X'] = "default:glass",
 	},
 	result = "default:mese 3",
-})
+}
 ```
 
-Multiples recipes can also be registered:
+Multiple recipes can also be registered at once:
 
 ```Lua
-i3.register_craft({
+i3.register_craft {
 	{
 		result = "default:mese",
 		items = {
@@ -140,19 +167,66 @@ i3.register_craft({
 			"default:mese_crystal, default:mese_crystal",
 		}
 	},
-})
+}
 ```
 
 Recipes can be registered from a given URL containing a JSON file (HTTP support is required¹):
 
 ```Lua
-i3.register_craft({
-	url = "https://raw.githubusercontent.com/minetest-mods/i3/main/test_online_recipe.json"
-})
+i3.register_craft {
+	url = "https://raw.githubusercontent.com/minetest-mods/i3/main/tests/test_online_recipe.json"
+}
 ```
 
 ---
 
+### Minitabs
+
+Manage the tabs on the right panel of the inventory.
+Allow to make a sensible list sorted by specific groups of items.
+
+#### `i3.new_minitab(name, def)`
+
+Add a new minitab (limited to 6).
+
+- `name` is the tab name.
+- `def` is the definition table.
+
+Example:
+
+```Lua
+i3.new_minitab("test", {
+	description = "Test",
+
+	-- Whether this tab is visible or not. Optional.
+	access = function(player, data)
+		return player:get_player_name() == "singleplayer"
+	end,
+
+	-- Whether a specific item is shown in the list or not.
+	sorter = function(item, data)
+		return item:find"wood"
+	end
+})
+
+```
+
+- `player` is an `ObjectRef` to the user.
+- `data` are the user data.
+- `item` is an item name string.
+
+#### `i3.remove_minitab(name)`
+
+Remove a minitab by name.
+
+- `name` is the name of the tab to remove.
+
+#### `i3.minitabs`
+
+A list of registered minitabs.
+
+---
+
 ### Recipe filters
 
 Recipe filters can be used to filter the recipes shown to players. Progressive
@@ -160,7 +234,7 @@ mode is implemented as a recipe filter.
 
 #### `i3.add_recipe_filter(name, function(recipes, player))`
 
-Adds a recipe filter with the given `name`. The filter function returns the
+Add a recipe filter with the given `name`. The filter function returns the
 recipes to be displayed, given the available recipes and an `ObjectRef` to the
 user. Each recipe is a table of the form returned by
 `minetest.get_craft_recipe`.
@@ -182,39 +256,38 @@ end)
 
 #### `i3.set_recipe_filter(name, function(recipe, player))`
 
-Removes all recipe filters and adds a new one.
+Remove all recipe filters and add a new one.
 
-#### `i3.delete_recipe_filter(name)`
+#### `i3.recipe_filters`
 
-Removes the recipe filter with the given `name`.
-
-#### `i3.get_recipe_filters()`
-
-Returns a map of recipe filters, indexed by name.
+A map of recipe filters, indexed by name.
 
 ---
 
 ### Search filters
 
-Search filters are used to perform specific searches inside the search field.
-These filters are cumulative to perform a specific search.
-They can be used like so: `<optional_name> +<filter name>=<value1>,<value2>,<...>`
+Search filters are used to perform specific searches from the search field.
+The filters can be cumulated to perform a specific search.
+They are used like so: `<optional_name> +<filter name>=<value1>,<value2>,<...>`
 
 Example usages:
 
-- `+groups=cracky,crumbly`: search for groups `cracky` and `crumbly` in all items.
-- `wood +groups=flammable +types=node`: search for group `flammable` amongst items which contain
-  `wood` in their names AND have a `node` drawtype.
+- `+groups=cracky,crumbly` -> search for groups `cracky` and `crumbly` in all items.
+- `wood +groups=flammable` -> search for group `flammable` amongst items which contain
+  `wood` in their names.
 
 Notes:
 - If `optional_name` is omitted, the search filter will apply to all items, without pre-filtering.
-- The `+groups` and `+types` filters are currently implemented by default.
+- The `+groups` filter is currently implemented by default.
 
 #### `i3.add_search_filter(name, function(item, values))`
 
-Adds a search filter with the given `name`. `values` is a table of all possible values.
+Add a search filter.
 The search function must return a boolean value (whether the given item should be listed or not).
 
+- `name` is the filter name.
+- `values` is a table of all possible values.
+
 Example function sorting items by drawtype:
 
 ```lua
@@ -231,32 +304,141 @@ i3.add_search_filter("types", function(item, drawtypes)
 end)
 ```
 
-#### `i3.remove_search_filter(name)`
+#### `i3.search_filters`
 
-Removes the search filter with the given `name`.
+A map of search filters, indexed by name.
 
-#### `i3.get_search_filters()`
+---
 
-Returns a map of search filters, indexed by name.
+### Sorting methods
+
+Sorting methods are used to filter the player's main inventory.
+
+#### `i3.add_sorting_method(name, def)`
+
+Add a player inventory sorting method.
+
+- `name` is the method name.
+- `def` is the method definition.
+
+Example:
+
+```Lua
+i3.add_sorting_method("test", {
+	description = "Cool sorting method",
+	func = function(list, data)
+		-- `list`: inventory list
+		-- `data`: player data
+
+		table.sort(list)
+
+		-- A list must be returned
+		return list
+	end,
+})
+
+```
+
+#### `i3.sorting_methods`
+
+A table containing all sorting methods.
+
+---
+
+### Item list compression
+
+`i3` can reduce the item list size by compressing a group of items.
+
+#### `i3.compress(item, def)`
+
+Add a new group of items to compress.
+
+- `item` is the item which represent the group of compressed items.
+- `def` is a table specifying the substring replace patterns to be used.
+
+Example:
+
+```Lua
+i3.compress("default:diamondblock", {
+	replace = "diamond",
+	by = {"bronze", "copper", "gold", "steel", "tin"}
+})
+
+```
+
+#### `i3.compress_groups`
+
+A map of all compressed item groups, indexed by stereotypes.
+
+---
+
+### Waypoints
+
+`i3` allows you to manage the waypoints of a specific player.
+
+#### `i3.add_waypoint(player_name, def)`
+
+Add a waypoint to specific player.
+
+- `player_name` is the player name.
+- `def` is the waypoint definition table.
+
+Example:
+
+```Lua
+i3.add_waypoint("Test", {
+	player = "singleplayer",
+	pos = {x = 0, y = 2, z = 0},
+	color = 0xffff00,
+--	image = "heart.png" (optional)
+})
+```
+
+#### `i3.remove_waypoint(player_name, waypoint_name)`
+
+Remove a waypoint for specific player.
+
+- `player_name` is the player name.
+- `waypoint_name` is the waypoint name.
+
+Example:
+
+```Lua
+i3.remove_waypoint("singleplayer", "Test")
+```
+
+#### `i3.get_waypoints(player_name)`
+
+Return a table of all waypoints of a specific player.
+
+- `player_name` is the player name.
 
 ---
 
 ### Miscellaneous
 
-#### `i3.group_stereotypes`
+#### `i3.hud_notif(name, msg[, img])`
 
-This is the table indexing the item groups by stereotypes.
-You can add a stereotype like so:
+Show a Steam-like HUD notification on the bottom-left corner of the screen.
 
-```Lua
-i3.group_stereotypes.radioactive = "mod:item"
-```
+- `name` is the player name.
+- `msg` is the HUD message to show.
+- `img` (optional) is the HUD image to show (preferably 16x16 px).
+
+#### `i3.get_recipes(item)`
+
+Return a table of recipes and usages of `item`.
 
 #### `i3.export_url`
 
 If set, the mod will export all the cached recipes and usages in a JSON format
 to the given URL (HTTP support is required¹).
 
+#### `groups = {bag = <1-4>}`
+
+The `bag` group in the item definition allows to extend the player inventory size
+given a number between 1 and 4.
+
 ---
 
-**¹** Add `i3` to the `secure.http_mods` or `secure.trusted_mods` setting in `minetest.conf`.
+**[1]** Add `i3` to the `secure.http_mods` or `secure.trusted_mods` setting in `minetest.conf`.

LICENSE

@@ -3,7 +3,7 @@ License of source code
 
 The MIT License (MIT)
 
-Copyright (c) 2020-2021 Jean-Patrick Guerrero and contributors.
+Copyright (c) 2020-2023 Jean-Patrick Guerrero and contributors.
 
 Permission is hereby granted, free of charge, to any person obtaining a copy
 of this software and associated documentation files (the "Software"), to deal
@@ -23,6 +23,16 @@ LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
 OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
 THE SOFTWARE.
 
+Licenses of media (sounds)
+--------------------------
+
+Lone_Wolf (CC0):
+  i3_tab.ogg
+  i3_click.ogg
+  i3_cannot.ogg
+
+MadPanCake (CC0):
+  i3_craft.ogg (https://freesound.org/people/MadPanCake/sounds/567849/)
 
 Licenses of media (textures)
 ----------------------------

README.md

@@ -1,28 +1,30 @@
-# i3
+![logo](https://user-images.githubusercontent.com/7883281/145490041-d91d6bd6-a654-438d-b208-4d5736845ab7.png)
 
-[![ContentDB](https://content.minetest.net/packages/jp/i3/shields/title/)](https://content.minetest.net/packages/jp/i3/) [![ContentDB](https://content.minetest.net/packages/jp/i3/shields/downloads/)](https://content.minetest.net/packages/jp/i3/)
+[![GitHub Release](https://img.shields.io/github/release/minetest-mods/i3.svg?style=flat)]() ![workflow](https://github.com/minetest-mods/i3/actions/workflows/luacheck.yml/badge.svg) [![ContentDB](https://content.minetest.net/packages/jp/i3/shields/downloads/)](https://content.minetest.net/packages/jp/i3/) [![PayPal](https://img.shields.io/badge/paypal-donate-yellow.svg)](https://www.paypal.me/jpg84240)
 
 #### **`i3`** is a next-generation inventory for Minetest.
 
-This inventory offers a slick, modern UI made with the latest technologies of the Minetest engine.
+This mod features a modern, powerful inventory menu with a good user experience.
 **`i3`** provides a rich [**API**](https://github.com/minetest-mods/i3/blob/master/API.md) for mod developers who want to extend it.
 
-This mod requires **Minetest 5.4+**
+This mod requires **Minetest 5.6+**
 
 #### List of features:
-   - Crafting Guide (only in survival mode)
+   - Crafting Guide (survival mode only)
    - Progressive Mode¹
    - Quick Crafting
-   - Backpacks
-   - 3D Player Model Preview
-   - Inventory Sorting (alphabetical + item stack compression)
+   - 3D Player Model Real-Time Preview
+   - Isometric Map Preview
+   - Inventory Sorting (+ options: compression, reverse mode, automation, etc.)
+   - Item List Compression (**`moreblocks`** is supported)
    - Item Bookmarks
    - Waypoints
+   - Bags
+   - Home
 
 **¹** *This mode is a Terraria-like system that shows recipes you can craft from items you ever had in your inventory.
 To enable it: `i3_progressive_mode = true` in `minetest.conf`.*
 
-
 #### This mod officially supports the following mods:
    - [**`3d_armor`**](https://content.minetest.net/packages/stu/3d_armor/)
    - [**`skinsdb`**](https://content.minetest.net/packages/bell07/skinsdb/)
@@ -30,22 +32,26 @@ To enable it: `i3_progressive_mode = true` in `minetest.conf`.*
 
 #### Recommendations
 
-To use this mod in the best conditions, it's recommended to follow these recommendations:
+To use this mod in the best conditions:
 
    - Use LuaJIT
-   - Use a HiDPI widescreen display
    - Use the default Freetype font style
 
+#### Troubleshooting
+
+If the inventory's font size is too big on certain setups (namely Windows 10/11 or 144 DPI display), you should lower the
+value of the setting `display_density_factor` in your `minetest.conf`. Note that the change is applied after restart.
+
+You can also use the font size slider in the inventory, settings window. 
+
 #### Notes
 
 `i3` uses a larger inventory than the usual inventories in Minetest games.
 Thus, most chests will be unadapted to this inventory size.
-The `i3`  inventory is 9 slots wide by default (without backpack), such as in Minecraft.
+The `i3`  inventory is 9 slots wide by default, such as Minecraft.
 
-Report any bug on the [**Bug Tracker**](https://github.com/minetest-mods/i3/issues).
+Report bugs on the [**Bug Tracker**](https://github.com/minetest-mods/i3/issues).
 
-Love this mod? Donations are appreciated: https://www.paypal.me/jpg84240
+**Video review on YouTube:** https://www.youtube.com/watch?v=Xd14BCdEZ3o
 
-Demo video (outdated): https://www.youtube.com/watch?v=25nCAaqeacU
-
-![Preview](https://user-images.githubusercontent.com/7883281/115294125-7827cb80-a158-11eb-89f1-1f533621a9fe.png)
+![Preview](https://user-images.githubusercontent.com/7883281/185755315-23c2fffa-203d-4115-9dc3-576c92615733.png)

mod.conf

@@ -1,3 +1,4 @@
 name = i3
-description = Tiling inventory for Minetest
+description = Next-generation inventory
 optional_depends = 3d_armor, skinsdb, awards
+min_minetest_version = 5.6

src/api.lua

@@ -0,0 +1,499 @@
+local http = ...
+local make_fs, get_inventory_fs = i3.files.gui()
+
+IMPORT("sorter", "sort_inventory", "play_sound")
+IMPORT("sort", "concat", "copy", "insert", "remove")
+IMPORT("get_player_by_name", "add_hud_waypoint", "init_hud_notif")
+IMPORT("gmatch", "split", "S", "err", "fmt", "reg_items", "pos_to_str")
+IMPORT("true_str", "true_table", "is_str", "is_func", "is_table", "clean_name")
+
+function i3.register_craft_type(name, def)
+	if not true_str(name) then
+		return err "i3.register_craft_type: name missing"
+	elseif not true_table(def) then
+		return err "i3.register_craft_type: definition missing"
+	elseif not is_str(def.description) then
+		def.description = ""
+	end
+
+	i3.craft_types[name] = def
+end
+
+function i3.register_craft(def)
+	local width, c = 0, 0
+
+	if http and true_str(def.url) then
+		http.fetch({url = def.url}, function(result)
+			if result.succeeded then
+				local t = core.parse_json(result.data)
+				if is_table(t) then
+					return i3.register_craft(t)
+				end
+			end
+		end)
+
+		return
+	end
+
+	if not true_table(def) then
+		return err "i3.register_craft: craft definition missing"
+	end
+
+	if #def > 1 then
+		for _, v in pairs(def) do
+			i3.register_craft(v)
+		end
+		return
+	end
+
+	if def.result then
+		def.output = def.result -- Backward compatibility
+		def.result = nil
+	end
+
+	if not true_str(def.output) and not def.url then
+		return err "i3.register_craft: output missing"
+	end
+
+	if not is_table(def.items) then
+		def.items = {}
+	end
+
+	if def.grid then
+		if not is_table(def.grid) then
+			def.grid = {}
+		end
+
+		if not is_table(def.key) then
+			def.key = {}
+		end
+
+		local cp = copy(def.grid)
+		sort(cp, function(a, b) return #a > #b end)
+
+		width = #cp[1]
+
+		for i = 1, #def.grid do
+			while #def.grid[i] < width do
+				def.grid[i] = def.grid[i] .. " "
+			end
+		end
+
+		for symbol in gmatch(concat(def.grid), ".") do
+			c++
+			def.items[c] = def.key[symbol]
+		end
+	else
+		local items = copy(def.items)
+		local lines = {}
+		def.items = {}
+
+		for i = 1, #items do
+			lines[i] = split(items[i], ",", true)
+
+			if #lines[i] > width then
+				width = #lines[i]
+			end
+		end
+
+		for i = 1, #items do
+			while #lines[i] < width do
+				insert(lines[i], items[i])
+			end
+		end
+
+		for _, line in ipairs(lines) do
+			for _, v in ipairs(line) do
+				c++
+				def.items[c] = clean_name(v)
+			end
+		end
+	end
+
+	local item = ItemStack(def.output):get_name()
+	i3.recipes_cache[item] = i3.recipes_cache[item] or {}
+
+	def.custom = true
+	def.width = width
+
+	insert(i3.recipes_cache[item], def)
+end
+
+function i3.add_recipe_filter(name, f)
+	if not true_str(name) then
+		return err "i3.add_recipe_filter: name missing"
+	elseif not is_func(f) then
+		return err "i3.add_recipe_filter: function missing"
+	end
+
+	i3.recipe_filters[name] = f
+end
+
+function i3.set_recipe_filter(name, f)
+	if not is_str(name) then
+		return err "i3.set_recipe_filter: name missing"
+	elseif not is_func(f) then
+		return err "i3.set_recipe_filter: function missing"
+	end
+
+	i3.recipe_filters = {[name] = f}
+end
+
+function i3.add_search_filter(name, f)
+	if not true_str(name) then
+		return err "i3.add_search_filter: name missing"
+	elseif not is_func(f) then
+		return err "i3.add_search_filter: function missing"
+	end
+
+	i3.search_filters[name] = f
+end
+
+function i3.get_recipes(item)
+	item = core.registered_aliases[item] or item
+	local recipes = i3.recipes_cache[item]
+	local usages = i3.usages_cache[item]
+
+	return {recipes = recipes, usages = usages}
+end
+
+function i3.set_fs(player)
+	if not player or player.is_fake_player then return end
+	local name = player:get_player_name()
+	local data = i3.data[name]
+	if not data then return end
+
+	if data.auto_sorting then
+		sort_inventory(player, data)
+	end
+
+	for i, tab in ipairs(i3.tabs) do
+		if data.tab == i and tab.access and not tab.access(player, data) then
+			data.tab = 1
+			break
+		end
+	end
+
+	local fs = make_fs(player, data)
+	player:set_inventory_formspec(fs)
+end
+
+function i3.new_tab(name, def)
+	if not true_str(name) then
+		return err "i3.new_tab: tab name missing"
+	elseif not true_table(def) then
+		return err "i3.new_tab: tab definition missing"
+	elseif not true_str(def.description) then
+		return err "i3.new_tab: description missing"
+	elseif #i3.tabs == 6 then
+		return err(fmt("i3.new_tab: cannot add '%s' tab. Limit reached (6).", def.name))
+	end
+
+	def.name = name
+	insert(i3.tabs, def)
+end
+
+i3.new_tab("inventory", {
+	description = S"Inventory",
+	formspec = get_inventory_fs,
+	slots = true,
+})
+
+function i3.remove_tab(name)
+	if not true_str(name) then
+		return err "i3.remove_tab: tab name missing"
+	end
+
+	for i = #i3.tabs, 2, -1 do
+		local def = i3.tabs[i]
+		if def and name == def.name then
+			remove(i3.tabs, i)
+		end
+	end
+end
+
+function i3.get_current_tab(player)
+	local name = player:get_player_name()
+	local data = i3.data[name]
+
+	return data.tab
+end
+
+function i3.set_tab(player, tabname)
+	local name = player:get_player_name()
+	local data = i3.data[name]
+
+	if not tabname or tabname == "" then
+		data.tab = 0
+		return
+	end
+
+	for i, tab in ipairs(i3.tabs) do
+		if tab.name == tabname then
+			data.tab = i
+			return
+		end
+	end
+
+	err(fmt("i3.set_tab: tab name '%s' does not exist", tabname))
+end
+
+function i3.override_tab(name, newdef)
+	if not true_str(name) then
+		return err "i3.override_tab: tab name missing"
+	elseif not true_table(newdef) then
+		return err "i3.override_tab: tab definition missing"
+	elseif not true_str(newdef.description) then
+		return err "i3.override_tab: description missing"
+	end
+
+	newdef.name = name
+
+	for i, def in ipairs(i3.tabs) do
+		if def.name == name then
+			i3.tabs[i] = newdef
+			break
+		end
+	end
+end
+
+i3.register_craft_type("digging", {
+	description = S"Digging",
+	icon = "i3_steelpick.png",
+})
+
+i3.register_craft_type("digging_chance", {
+	description = S"Digging (by chance)",
+	icon = "i3_mesepick.png",
+})
+
+i3.add_search_filter("groups", function(item, groups)
+	local def = reg_items[item]
+	local has_groups = true
+
+	for _, group in ipairs(groups) do
+		if not def.groups[group] then
+			has_groups = nil
+			break
+		end
+	end
+
+	return has_groups
+end)
+
+function i3.compress(item, def)
+	if not true_str(item) then
+		return err "i3.compress: item name missing"
+	elseif not true_table(def) then
+		return err "i3.compress: replace definition missing"
+	elseif not true_str(def.replace) then
+		return err "i3.compress: replace string missing"
+	elseif not is_table(def.by) then
+		return err "i3.compress: replace substrings missing"
+	elseif i3.compressed[item] then
+		return err(fmt("i3.compress: item '%s' is already compressed", item))
+	end
+
+	local t = {}
+	i3.compress_groups[item] = i3.compress_groups[item] or {}
+
+	for _, str in ipairs(def.by) do
+		local it = item:gsub(def.replace, str)
+
+		insert(t, it)
+		insert(i3.compress_groups[item], it)
+
+		i3.compressed[it] = true
+	end
+end
+
+function i3.hud_notif(name, msg, img)
+	if not true_str(name) then
+		return err "i3.hud_notif: player name missing"
+	elseif not true_str(msg) then
+		return err "i3.hud_notif: message missing"
+	end
+
+	local data = i3.data[name]
+	if not data then
+		return err "i3.hud_notif: no player data initialized"
+	end
+
+	local player = get_player_by_name(name)
+	if not player then return end
+	local max_y = -125
+
+	local def = {
+		show = true,
+		max = {x = -330, y = max_y},
+		hud_msg = msg,
+		hud_img = img and fmt("%s^[resize:64x64", img) or nil,
+		hud_timer = 0,
+		elems = init_hud_notif(player),
+	}
+
+	insert(data.hud.notifs, def)
+	play_sound(name, "i3_achievement", 1.0)
+
+	local nb_notifs = #data.hud.notifs
+	for i = 1, nb_notifs - 1 do
+		local notif = data.hud.notifs[i]
+		if notif then
+			notif.show = true
+			notif.max.y = ((nb_notifs - i) + 1) * max_y
+			notif.hud_timer = 0.5 * (nb_notifs - i)
+		end
+	end
+end
+
+function i3.add_sorting_method(name, def)
+	if not true_str(name) then
+		return err "i3.add_sorting_method: name missing"
+	elseif not true_table(def) then
+		return err "i3.add_sorting_method: definition missing"
+	elseif not is_func(def.func) then
+		return err "i3.add_sorting_method: function missing"
+	end
+
+	def.name = name
+	insert(i3.sorting_methods, def)
+end
+
+i3.add_sorting_method("alphabetical", {
+	description = S"Sort items by name (A-Z)",
+	func = function(list, data)
+		sorter(list, data, 1)
+		return list
+	end
+})
+
+i3.add_sorting_method("numerical", {
+	description = S"Sort items by number of items per stack",
+	func = function(list, data)
+		sorter(list, data, 2)
+		return list
+	end,
+})
+
+function i3.add_waypoint(name, def)
+	if not true_str(name) then
+		return err "i3.add_waypoint: name missing"
+	elseif not true_table(def) then
+		return err "i3.add_waypoint: definition missing"
+	elseif not true_str(def.player) then
+		return err "i3.add_waypoint: player name missing"
+	end
+
+	local data = i3.data[def.player]
+	if not data then
+		return err "i3.add_waypoint: no player data initialized"
+	end
+
+	local player = get_player_by_name(def.player)
+	local id = player and add_hud_waypoint(player, name, def.pos, def.color, def.image) or nil
+
+	insert(data.waypoints, {
+		name  = name,
+		pos   = pos_to_str(def.pos, 1),
+		color = def.color,
+		image = def.image,
+		id    = id,
+	})
+
+	if data.subcat == 5 then
+		data.scrbar_inv += 1000
+	end
+
+	i3.set_fs(player)
+end
+
+function i3.remove_waypoint(player_name, name)
+	if not true_str(player_name) then
+		return err "i3.remove_waypoint: player name missing"
+	elseif not true_str(name) then
+		return err "i3.remove_waypoint: waypoint name missing"
+	end
+
+	local data = i3.data[player_name]
+	if not data then
+		return err "i3.remove_waypoint: no player data initialized"
+	end
+
+	local player = get_player_by_name(player_name)
+
+	for i = #data.waypoints, 1, -1 do
+		local waypoint = data.waypoints[i]
+		if waypoint and name == waypoint.name then
+			if player then
+				player:hud_remove(waypoint.id)
+			end
+
+			remove(data.waypoints, i)
+		end
+	end
+
+	i3.set_fs(player)
+end
+
+function i3.get_waypoints(player_name)
+	if not true_str(player_name) then
+		return err "i3.get_waypoints: player name missing"
+	end
+
+	local data = i3.data[player_name]
+	if not data then
+		return err "i3.get_waypoints: no player data initialized"
+	end
+
+	return data.waypoints
+end
+
+function i3.new_minitab(name, def)
+	if #i3.minitabs == 6 then
+		return err "i3.new_minitab: limit reached (6)"
+	elseif not true_str(name) then
+		return err "i3.new_minitab: name missing"
+	elseif not true_table(def) then
+		return err "i3.new_minitab: definition missing"
+	end
+
+	def.name = name
+	insert(i3.minitabs, def)
+end
+
+function i3.remove_minitab(name)
+	if not true_str(name) then
+		return err "i3.remove_minitab: name missing"
+	end
+
+	for i = #i3.minitabs, 2, -1 do
+		local v = i3.minitabs[i]
+		if v and v.name == name then
+			remove(i3.minitabs, i)
+		end
+	end
+end
+
+i3.new_minitab("all", {
+	description = "All",
+
+	sorter = function()
+		return true
+	end
+})
+
+i3.new_minitab("nodes", {
+	description = "Nodes",
+
+	sorter = function(item)
+		return core.registered_nodes[item]
+	end
+})
+
+i3.new_minitab("items", {
+	description = "Items",
+
+	sorter = function(item)
+		return core.registered_craftitems[item] or core.registered_tools[item]
+	end
+})

src/bags.lua

@@ -0,0 +1,173 @@
+local set_fs = i3.set_fs
+
+IMPORT("get_bag_description", "ItemStack")
+IMPORT("S", "ES", "fmt", "msg", "slz", "dslz")
+IMPORT("get_group", "play_sound", "get_detached_inv", "create_inventory")
+
+local function get_content(content)
+	local t = {}
+
+	for i, v in pairs(content) do
+		t[i] = ItemStack(v)
+	end
+
+	return t
+end
+
+local function init_bags(player)
+	local name = player:get_player_name()
+	local data = i3.data[name]
+
+	local bag = create_inventory(fmt("i3_bag_%s", name), {
+		allow_put = function(inv, _, _, stack)
+			local empty = inv:is_empty"main"
+			local item_group = get_group(stack:get_name(), "bag")
+
+			if empty and item_group > 0 and item_group <= 4 then
+				return 1
+			end
+
+			if not empty then
+				msg(name, S"There is already a bag")
+			else
+				msg(name, S"This is not a bag")
+			end
+
+			return 0, play_sound(name, "i3_cannot", 0.8)
+		end,
+
+		on_put = function(_, _, _, stack)
+			data.bag = stack:to_string()
+
+			local meta = stack:get_meta()
+			local content = dslz(meta:get_string"content")
+
+			if content then
+				local inv = get_detached_inv("bag_content", name)
+				inv:set_list("main", get_content(content))
+			end
+
+			set_fs(player)
+		end,
+
+		on_take = function()
+			data.bag = nil
+			data.bag_rename = nil
+
+			local content = get_detached_inv("bag_content", name)
+			content:set_list("main", {})
+
+			set_fs(player)
+		end,
+	}, name)
+
+	bag:set_size("main", 1)
+
+	if data.bag then
+		bag:set_list("main", get_content{data.bag})
+	end
+
+	local function save_content(inv)
+		local bagstack = bag:get_stack("main", 1)
+		local meta = bagstack:get_meta()
+		local desc = get_bag_description(data, bagstack)
+
+		if inv:is_empty"main" then
+			meta:set_string("description", desc)
+			meta:set_string("content", "")
+		else
+			local list = inv:get_list"main"
+			local t, c = {}, 0
+
+			for i = 1, #list do
+				local stack = list[i]
+
+				if not stack:is_empty() then
+					c++
+					t[i] = stack:to_string()
+				end
+			end
+
+			local bag_size = get_group(bagstack:get_name(), "bag")
+			local percent = fmt("%d", (c * 100) / (bag_size * 4))
+
+			meta:set_string("description", ES("@1 (@2% full)", desc, percent))
+			meta:set_string("content", slz(t))
+		end
+
+		bag:set_stack("main", 1, bagstack)
+		data.bag = bagstack:to_string()
+
+		set_fs(player)
+	end
+
+	local bag_content = create_inventory(fmt("i3_bag_content_%s", name), {
+		on_move = save_content,
+		on_put = save_content,
+		on_take = save_content,
+
+		allow_put = function(_, _, _, stack)
+			local meta = stack:get_meta()
+			local content = dslz(meta:get_string"content")
+
+			if content then
+				msg(name, "You cannot put a bag in another bag")
+				return 0, play_sound(name, "i3_cannot", 0.8)
+			end
+
+			return stack:get_count()
+		end,
+	}, name)
+
+	bag_content:set_size("main", 4*4)
+
+	if data.bag then
+		local meta = bag:get_stack("main", 1):get_meta()
+		local content = dslz(meta:get_string"content")
+
+		if content then
+			bag_content:set_list("main", get_content(content))
+		end
+	end
+end
+
+local bag_recipes = {
+	small = {
+		rcp = {
+			{"", "farming:string", ""},
+			{"group:wool", "group:wool", "group:wool"},
+			{"group:wool", "group:wool", "group:wool"},
+		},
+		size = 2,
+	},
+	medium = {
+		rcp = {
+			{"farming:string", "i3:bag_small", "farming:string"},
+			{"farming:string", "i3:bag_small", "farming:string"},
+		},
+		size = 3,
+	},
+	large = {
+		rcp = {
+			{"farming:string", "i3:bag_medium", "farming:string"},
+			{"farming:string", "i3:bag_medium", "farming:string"},
+		},
+		size = 4,
+	},
+}
+
+for size, item in pairs(bag_recipes) do
+	local bagname = fmt("i3:bag_%s", size)
+
+	core.register_craftitem(bagname, {
+		description = fmt("%s Backpack", size:gsub("^%l", string.upper)),
+		inventory_image = fmt("i3_bag_%s.png", size),
+		groups = {bag = item.size},
+		stack_max = 1,
+	})
+
+	core.register_craft{output = bagname, recipe = item.rcp}
+	core.register_craft{type = "fuel", recipe = bagname, burntime = 3}
+end
+
+return init_bags

src/caches.lua

@@ -0,0 +1,339 @@
+local replacements = {fuel = {}}
+local http = ...
+
+IMPORT("copy", "insert", "sort", "match", "sub")
+IMPORT("true_str", "is_table", "valid_item", "table_merge", "table_replace", "table_eq")
+IMPORT("fmt", "reg_items", "reg_aliases", "reg_nodes", "is_cube", "get_cube", "ItemStack")
+IMPORT("is_group", "extract_groups", "item_has_groups", "groups_to_items", "get_group_stereotype")
+
+local function get_burntime(item)
+	return core.get_craft_result{method = "fuel", items = {item}}.time
+end
+
+local function cache_fuel(item)
+	local burntime = get_burntime(item)
+	if burntime > 0 then
+		i3.fuel_cache[item] = {
+			type = "fuel",
+			items = {item},
+			burntime = burntime,
+			replacements = replacements.fuel[item],
+		}
+	end
+end
+
+local function cache_groups(group, groups)
+	i3.groups[group] = {}
+	i3.groups[group].groups = groups
+	i3.groups[group].items = groups_to_items(groups)
+
+	if #groups == 1 then
+		i3.groups[group].stereotype = get_group_stereotype(groups[1])
+	end
+
+	local items = i3.groups[group].items
+	if #items <= 1 then return end
+
+	local px, lim, c = 64, 10, 0
+	local sprite = "[combine:WxH"
+
+	for _, item in ipairs(items) do
+		local def = reg_items[item]
+		local tiles = def.tiles or def.tile_images
+		local texture = true_str(def.inventory_image) and def.inventory_image --or tiles[1]
+
+		if def.drawtype and is_cube(def.drawtype) then
+			texture = get_cube(tiles)
+		end
+
+		if texture then
+			texture = texture:gsub("%^", "\\^"):gsub(":", "\\:") .. fmt("\\^[resize\\:%ux%u", px, px)
+			sprite = sprite .. fmt(":0,%u=%s", c * px, texture)
+			c++
+			if c == lim then break end
+		end
+	end
+
+	if c > 1 then
+		sprite = sprite:gsub("WxH", px .. "x" .. px * c)
+		i3.groups[group].sprite = sprite
+		i3.groups[group].count = c
+	end
+end
+
+local function get_item_usages(item, recipe, added)
+	if is_group(item) then
+		local group = item:sub(7)
+		local group_cache = i3.groups[group]
+		local groups = group_cache and group_cache.groups or extract_groups(item)
+
+		if not group_cache then
+			cache_groups(group, groups)
+		end
+
+		for name, def in pairs(reg_items) do
+			if not added[name] and valid_item(def) and item_has_groups(def.groups, groups) then
+				local usage = copy(recipe)
+				table_replace(usage.items, item, name)
+
+				i3.usages_cache[name] = i3.usages_cache[name] or {}
+				insert(i3.usages_cache[name], 1, usage)
+
+				added[name] = true
+			end
+		end
+	elseif valid_item(reg_items[item]) then
+		i3.usages_cache[item] = i3.usages_cache[item] or {}
+		insert(i3.usages_cache[item], 1, recipe)
+	end
+end
+
+local function get_usages(recipe)
+	local added = {}
+
+	for _, item in pairs(recipe.items) do
+		item = reg_aliases[item] or item
+
+		if not added[item] then
+			get_item_usages(item, recipe, added)
+			added[item] = true
+		end
+	end
+end
+
+local function cache_usages(item)
+	local recipes = i3.recipes_cache[item] or {}
+
+	for i = 1, #recipes do
+		get_usages(recipes[i])
+	end
+
+	if i3.fuel_cache[item] then
+		i3.usages_cache[item] = table_merge(i3.usages_cache[item] or {}, {i3.fuel_cache[item]})
+	end
+end
+
+local function drop_table(name, drop)
+	local count_sure = 0
+	local drop_items = drop.items or {}
+	local max_items = drop.max_items
+
+	for i = 1, #drop_items do
+		local di = drop_items[i]
+		local valid_rarity = di.rarity and di.rarity > 1
+
+		if di.rarity or not max_items or
+				(max_items and not di.rarity and count_sure < max_items) then
+			for j = 1, #di.items do
+				local dstack = ItemStack(di.items[j])
+				local dname  = dstack:get_name()
+				local dcount = dstack:get_count()
+				local empty  = dstack:is_empty()
+
+				if not empty and (dname ~= name or (dname == name and dcount > 1)) then
+					local rarity = valid_rarity and di.rarity
+
+					i3.register_craft {
+						type   = rarity and "digging_chance" or "digging",
+						items  = {name},
+						output = fmt("%s %u", dname, dcount),
+						rarity = rarity,
+						tools  = di.tools,
+					}
+				end
+			end
+		end
+
+		if not di.rarity then
+			count_sure++
+		end
+	end
+end
+
+local function cache_drops(name, drop)
+	if true_str(drop) then
+		local dstack = ItemStack(drop)
+		local dname  = dstack:get_name()
+		local empty  = dstack:is_empty()
+
+		if not empty and dname ~= name then
+			i3.register_craft {
+				type = "digging",
+				items = {name},
+				output = drop,
+			}
+		end
+	elseif is_table(drop) then
+		drop_table(name, drop)
+	end
+end
+
+local function cache_recipes(item)
+	local recipes = core.get_all_craft_recipes(item)
+
+	if replacements[item] then
+		local _recipes = {}
+
+		for k, v in ipairs(recipes or {}) do
+			_recipes[#recipes + 1 - k] = v
+		end
+
+		for k, v in pairs(replacements[item]) do
+			if _recipes[k] then
+				_recipes[k].replacements = v
+			end
+		end
+
+		recipes = _recipes
+	end
+
+	if recipes then
+		i3.recipes_cache[item] = table_merge(recipes, i3.recipes_cache[item] or {})
+	end
+end
+
+--[[	As `core.get_craft_recipe` and `core.get_all_craft_recipes` do not
+	return the fuel, replacements and toolrepair recipes, we have to
+	override `core.register_craft` and do some reverse engineering.
+	See engine's issues #4901, #5745 and #8920.	]]
+
+local old_register_craft = core.register_craft
+local rcp_num = {}
+
+core.register_craft = function(def)
+	old_register_craft(def)
+
+	if def.type == "toolrepair" then
+		i3.toolrepair = def.additional_wear * -100
+	end
+
+	local output = def.output or (true_str(def.recipe) and def.recipe) or nil
+	if not output then return end
+	output = {match(output, "%S+")}
+
+	local groups
+
+	if is_group(output[1]) then
+		groups = extract_groups(output[1])
+		output = groups_to_items(groups)
+	end
+
+	for i = 1, #output do
+		local item = output[i]
+		rcp_num[item] = (rcp_num[item] or 0) + 1
+
+		if def.replacements then
+			if def.type == "fuel" then
+				replacements.fuel[item] = def.replacements
+			else
+				replacements[item] = replacements[item] or {}
+				replacements[item][rcp_num[item]] = def.replacements
+			end
+		end
+	end
+end
+
+local old_clear_craft = core.clear_craft
+
+core.clear_craft = function(def)
+	old_clear_craft(def)
+
+	-- TODO: hide in crafting guide
+end
+
+local function resolve_aliases(hash)
+	for oldname, newname in pairs(reg_aliases) do
+		cache_recipes(oldname)
+		local recipes = i3.recipes_cache[oldname]
+
+		if recipes then
+			if not i3.recipes_cache[newname] then
+				i3.recipes_cache[newname] = {}
+			end
+
+			local similar
+
+			for i = 1, #i3.recipes_cache[oldname] do
+				local rcp_old = i3.recipes_cache[oldname][i]
+
+				for j = 1, #i3.recipes_cache[newname] do
+					local rcp_new = copy(i3.recipes_cache[newname][j])
+					      rcp_new.output = oldname
+
+					if table_eq(rcp_old, rcp_new) then
+						similar = true
+						break
+					end
+				end
+
+				if not similar then
+					insert(i3.recipes_cache[newname], rcp_old)
+				end
+			end
+		end
+
+		if newname ~= "" and i3.recipes_cache[oldname] and reg_items[newname] and not hash[newname] then
+			insert(i3.init_items, newname)
+		end
+	end
+end
+
+local function init_recipes()
+	local _select, _preselect = {}, {}
+
+	for name, def in pairs(reg_items) do
+		if name ~= "" and valid_item(def) then
+			cache_drops(name, def.drop)
+			cache_fuel(name)
+			cache_recipes(name)
+
+			_preselect[name] = true
+		end
+	end
+
+	for name in pairs(_preselect) do
+		cache_usages(name)
+
+		insert(i3.init_items, name)
+		_select[name] = true
+	end
+
+	resolve_aliases(_select)
+	sort(i3.init_items)
+
+	if http and true_str(i3.export_url) then
+		local post_data = {
+			recipes = i3.recipes_cache,
+			usages  = i3.usages_cache,
+		}
+
+		http.fetch_async {
+			url = i3.export_url,
+			post_data = core.write_json(post_data),
+		}
+	end
+end
+
+local function init_cubes()
+	for name, def in pairs(reg_nodes) do
+		if def then
+			local id = core.get_content_id(name)
+			local tiles = def.tiles or def.tile_images
+
+			if is_cube(def.drawtype) then
+				i3.cubes[id] = get_cube(tiles)
+			elseif sub(def.drawtype, 1, 9) == "plantlike" or sub(def.drawtype, 1, 8) == "firelike" then
+				local texture = true_str(def.inventory_image) and def.inventory_image or tiles[1]
+
+				if texture then
+					i3.plants[id] = texture
+				end
+			end
+		end
+	end
+end
+
+return function()
+	init_recipes()
+	init_cubes()
+end

src/callbacks.lua

@@ -0,0 +1,279 @@
+local http, storage = ...
+local init_bags = i3.files.bags()
+local fill_caches = i3.files.caches(http)
+local init_hud = i3.files.hud()
+local set_fs = i3.set_fs
+
+IMPORT("slz", "min", "insert", "copy", "ItemStack")
+IMPORT("spawn_item", "reset_data", "get_detached_inv", "play_sound", "update_inv_size")
+
+core.register_on_player_hpchange(function(player, hpchange)
+	local name = player:get_player_name()
+	local data = i3.data[name]
+	if not data then return end
+
+	local hp_max = player:get_properties().hp_max
+	data.hp = min(hp_max, player:get_hp() + hpchange)
+
+	set_fs(player)
+end)
+
+core.register_on_dieplayer(function(player)
+	local name = player:get_player_name()
+	local data = i3.data[name]
+	if not data then return end
+
+	if i3.settings.drop_bag_on_die then
+		local bagstack = ItemStack(data.bag)
+		spawn_item(player, bagstack)
+	end
+
+	data.bag = nil
+	local bag = get_detached_inv("bag", name)
+	local content = get_detached_inv("bag_content", name)
+
+	bag:set_list("main", {})
+	content:set_list("main", {})
+
+	set_fs(player)
+end)
+
+core.register_on_chatcommand(function(name)
+	local player = core.get_player_by_name(name)
+	core.after(0, set_fs, player)
+end)
+
+core.register_on_priv_grant(function(name, _, priv)
+	if priv == "creative" or priv == "all" then
+		local data = i3.data[name]
+		reset_data(data)
+		data.favs = {}
+
+		local player = core.get_player_by_name(name)
+		core.after(0, set_fs, player)
+	end
+end)
+
+core.register_on_player_inventory_action(function(player, _, _, info)
+	local name = player:get_player_name()
+
+	if not core.is_creative_enabled(name) and
+	  ((info.from_list == "main"  and info.to_list == "craft") or
+	   (info.from_list == "craft" and info.to_list == "main")  or
+	   (info.from_list == "craftresult" and info.to_list == "main")) then
+		set_fs(player)
+	end
+end)
+
+if core.global_exists"armor" then
+	i3.modules.armor = true
+
+	local group_indexes = {
+		{"armor_head",   "i3_heavy_helmet"},
+		{"armor_torso",  "i3_heavy_armor"},
+		{"armor_legs",   "i3_heavy_leggings"},
+		{"armor_feet",   "i3_heavy_boots"},
+		{"armor_shield", "i3_heavy_shield"},
+	}
+
+	local function check_group(def, group)
+		return def.groups[group] and def.groups[group] > 0
+	end
+
+	armor:register_on_equip(function(player, idx, stack)
+		local _, armor_inv = armor:get_valid_player(player, "3d_armor")
+		local def = stack:get_definition()
+		local name = player:get_player_name()
+		local data = i3.data[name]
+
+		for i, v in ipairs(group_indexes) do
+			local group, sound = unpack(v)
+			local stackname = stack:get_name()
+
+			if stackname:find"wood" or stackname:find"stone" or stackname:find"cactus" then
+				sound = sound:gsub("heavy", "light")
+			end
+
+			if i == idx and check_group(def, group) then
+				data.armor_allow = sound
+				return armor:register_on_update(set_fs)
+			end
+		end
+
+		data.armor_disallow = true
+		armor_inv:remove_item("armor", stack)
+	end)
+
+	armor:register_on_update(function(player)
+		local _, armor_inv = armor:get_valid_player(player, "3d_armor")
+		if not armor_inv then return end
+
+		for i = 1, 5 do
+			local stack = armor_inv:get_stack("armor", i)
+			local def = stack:get_definition()
+
+			for j, v in ipairs(group_indexes) do
+				local group = v[1]
+
+				if check_group(def, group) and i ~= j then
+					armor_inv:set_stack("armor", i, armor_inv:get_stack("armor", j))
+					armor_inv:set_stack("armor", j, stack)
+
+					return play_sound(player:get_player_name(), "i3_cannot", 0.8)
+				end
+			end
+		end
+	end)
+
+	core.register_on_player_inventory_action(function(player, action, _, info)
+		if action ~= "take" then return end
+		local name = player:get_player_name()
+		local data = i3.data[name]
+
+		if data.armor_disallow then
+			local inv = player:get_inventory()
+			inv:set_stack("main", info.index, info.stack)
+			data.armor_disallow = nil
+			play_sound(name, "i3_cannot", 0.8)
+
+		elseif data.armor_allow then
+			play_sound(name, data.armor_allow, 0.8)
+			data.armor_allow = nil
+		end
+	end)
+end
+
+if core.global_exists"skins" then
+	i3.modules.skins = true
+end
+
+if core.global_exists"awards" then
+	i3.modules.awards = true
+
+	core.register_on_craft(function(_, player)
+		set_fs(player)
+	end)
+
+	core.register_on_dignode(function(_, _, player)
+		set_fs(player)
+	end)
+
+	core.register_on_placenode(function(_, _, player)
+		set_fs(player)
+	end)
+
+	core.register_on_chat_message(function(name)
+		local player = core.get_player_by_name(name)
+		set_fs(player)
+	end)
+end
+
+local function disable_inventories()
+	if rawget(_G, "sfinv") then
+		function sfinv.set_player_inventory_formspec() return end
+		sfinv.enabled = false
+	end
+
+	if rawget(_G, "unified_inventory") then
+		function unified_inventory.set_inventory_formspec() return end
+	end
+end
+
+core.register_on_mods_loaded(function()
+	fill_caches()
+	disable_inventories()
+end)
+
+local function get_lang_code(info)
+	return info and info.lang_code
+end
+
+local function get_formspec_version(info)
+	return info and info.formspec_version or 1
+end
+
+local function outdated(name)
+	core.show_formspec(name, "i3_outdated",
+		("size[6.5,1.3]image[0,0;1,1;i3_book.png]label[1,0;%s]button_exit[2.6,0.8;1,1;;OK]"):format(
+		"Your Minetest client is outdated.\nGet the latest version on minetest.net to play the game."))
+end
+
+local function init_data(player, info)
+	local name = player:get_player_name()
+	i3.data[name] = i3.data[name] or {}
+	local data = i3.data[name]
+
+	for k, v in pairs(i3.default_data) do
+		local val = data[k]
+		if val == nil then
+			val = v
+		end
+
+		data[k] = val
+	end
+
+	data.player_name     = name
+	data.filter          = ""
+	data.pagenum         = 1
+	data.skin_pagenum    = 1
+	data.items           = i3.init_items
+	data.items_raw       = i3.init_items
+	data.favs            = {}
+	data.show_setting    = "home"
+	data.crafting_counts = {}
+	data.tab             = 1
+	data.itab            = 1
+	data.subcat          = 1
+	data.scrbar_inv      = 0
+	data.lang_code       = get_lang_code(info)
+	data.fs_version      = info.formspec_version
+
+	update_inv_size(player, data)
+
+	core.after(0, set_fs, player)
+end
+
+local function save_data(player_name)
+	local _data = copy(i3.data)
+
+	for name, v in pairs(_data) do
+	for dat in pairs(v) do
+		if not i3.saves[dat] then
+			_data[name][dat] = nil
+
+			if player_name and i3.data[player_name] then
+				i3.data[player_name][dat] = nil -- To free up some memory
+			end
+		end
+	end
+	end
+
+	storage:set_string("data", slz(_data))
+end
+
+insert(core.registered_on_joinplayers, 1, function(player)
+	local name = player:get_player_name()
+	local info = core.get_player_information and core.get_player_information(name)
+
+	if not info or get_formspec_version(info) < i3.settings.min_fs_version then
+		return outdated(name)
+	end
+
+	init_data(player, info)
+	init_bags(player)
+	init_hud(player)
+end)
+
+core.register_on_leaveplayer(function(player)
+	local name = player:get_player_name()
+	save_data(name)
+end)
+
+core.register_on_shutdown(save_data)
+
+local function routine()
+	save_data()
+	core.after(i3.settings.save_interval, routine)
+end
+
+core.after(i3.settings.save_interval, routine)

src/common.lua

@@ -0,0 +1,841 @@
+local vec = vector.new
+local ItemStack = ItemStack
+local loadstring = loadstring
+local reg_items = core.registered_items
+local translate = core.get_translated_string
+local sort, concat, insert = table.sort, table.concat, table.insert
+local min, floor, ceil = math.min, math.floor, math.ceil
+local fmt, find, match, gmatch, sub, split, lower, upper =
+	string.format, string.find, string.match, string.gmatch,
+	string.sub, string.split, string.lower, string.upper
+
+if not core.registered_privileges.creative then
+	core.register_privilege("creative", {
+		description = "Allow player to use creative inventory",
+		give_to_singleplayer = false,
+		give_to_admin = false,
+	})
+end
+
+local old_is_creative_enabled = core.is_creative_enabled
+
+function core.is_creative_enabled(name)
+	if name == "" then
+		return old_is_creative_enabled(name)
+	end
+
+	return core.check_player_privs(name, {creative = true}) or old_is_creative_enabled(name)
+end
+
+local S = core.get_translator"i3"
+local ES = function(...) return core.formspec_escape(S(...)) end
+
+local function is_num(x)
+	return type(x) == "number"
+end
+
+local function is_str(x)
+	return type(x) == "string"
+end
+
+local function is_table(x)
+	return type(x) == "table"
+end
+
+local function is_func(x)
+	return type(x) == "function"
+end
+
+local function true_str(str)
+	return is_str(str) and str ~= ""
+end
+
+local function true_table(x)
+	return is_table(x) and next(x)
+end
+
+local function reset_compression(data)
+	data.alt_items = nil
+	data.expand = ""
+end
+
+local function msg(name, str)
+	local prefix = "[i3]"
+	return core.chat_send_player(name, fmt("%s %s", core.colorize("#ff0", prefix), str))
+end
+
+local function err(str)
+	return core.log("error", str)
+end
+
+local function round(num, decimal)
+	local mul = 10 ^ decimal
+	return floor(num * mul + 0.5) / mul
+end
+
+local function toupper(str)
+	return str:gsub("%f[%w]%l", upper):gsub("_", " ")
+end
+
+local function utf8_len(str)
+	local c = 0
+
+	for _ in str:gmatch"[%z\1-\127\194-\244][\128-\191]*" do -- Arguably working duct-tape code
+		c++
+	end
+
+	return c
+end
+
+local function get_bag_description(data, stack)
+	local desc = translate(data.lang_code, stack:get_description())
+	      desc = split(desc, "(")[1] or desc
+	      desc = toupper(desc:trim())
+
+	return desc
+end
+
+local function search(data)
+	reset_compression(data)
+
+	local filter = data.filter
+	local opt = "^(.-)%+([%w_]+)=([%w_,]+)"
+	local search_filter = next(i3.search_filters) and match(filter, opt)
+	local filters = {}
+
+	if search_filter then
+		search_filter = search_filter:trim()
+
+		for filter_name, values in gmatch(filter, sub(opt, 6)) do
+			if i3.search_filters[filter_name] then
+				values = split(values, ",")
+				filters[filter_name] = values
+			end
+		end
+	end
+
+	local filtered_list, c = {}, 0
+
+	for i = 1, #data.items_raw do
+		local item = data.items_raw[i]
+		local def = reg_items[item]
+		local desc = lower(translate(data.lang_code, def.description)) or ""
+		local search_in = fmt("%s %s", item, desc)
+		local temp, j, to_add = {}, 1
+
+		if search_filter then
+			for filter_name, values in pairs(filters) do
+				if values then
+					local func = i3.search_filters[filter_name]
+					to_add = (j > 1 and temp[item] or j == 1) and
+						func(item, values) and (search_filter == "" or
+						find(search_in, search_filter, 1, true))
+
+					if to_add then
+						temp[item] = true
+					end
+
+					j++
+				end
+			end
+		else
+			local ok = true
+
+			for keyword in gmatch(filter, "%S+") do
+				if not find(search_in, keyword, 1, true) then
+					ok = nil
+					break
+				end
+			end
+
+			if ok then
+				to_add = true
+			end
+		end
+
+		if to_add then
+			c++
+			filtered_list[c] = item
+		end
+	end
+
+	data.items = filtered_list
+end
+
+local function table_replace(t, val, new)
+	for k, v in pairs(t) do
+		if v == val then
+			t[k] = new
+		end
+	end
+end
+
+local function table_merge(t1, t2, hash)
+	t1 = t1 or {}
+	t2 = t2 or {}
+
+	if hash then
+		for k, v in pairs(t2) do
+			t1[k] = v
+		end
+	else
+		local c = #t1
+
+		for i = 1, #t2 do
+			c++
+			t1[c] = t2[i]
+		end
+	end
+
+	return t1
+end
+
+local function array_diff(t1, t2)
+	local hash = {}
+
+	for i = 1, #t1 do
+		local v = t1[i]
+		hash[v] = true
+	end
+
+	for i = 1, #t2 do
+		local v = t2[i]
+		hash[v] = nil
+	end
+
+	local diff, c = {}, 0
+
+	for i = 1, #t1 do
+		local v = t1[i]
+		if hash[v] then
+			c++
+			diff[c] = v
+		end
+	end
+
+	return diff
+end
+
+local function table_eq(t1, t2)
+	local ty1, ty2 = type(t1), type(t2)
+	if ty1 ~= ty2 then return end
+
+	if ty1 ~= "table" and ty2 ~= "table" then
+		return t1 == t2
+	end
+
+	for k, v in pairs(t1) do
+		local v2 = t2[k]
+		if v2 == nil or not table_eq(v, v2) then return end
+	end
+
+	for k, v in pairs(t2) do
+		local v1 = t1[k]
+		if v1 == nil or not table_eq(v1, v) then return end
+	end
+
+	return true
+end
+
+local function clean_name(item)
+	if sub(item, 1, 1) == ":" or sub(item, 1, 1) == " " or sub(item, 1, 1) == "_" then
+		item = sub(item, 2)
+	end
+
+	return item
+end
+
+local function is_group(item)
+	return sub(item, 1, 6) == "group:"
+end
+
+local function extract_groups(str)
+	return split(sub(str, 7), ",")
+end
+
+local function item_has_groups(item_groups, groups)
+	for i = 1, #groups do
+		local group = groups[i]
+		if (item_groups[group] or 0) == 0 then return end
+	end
+
+	return true
+end
+
+local function valid_item(def)
+	return def and def.groups.not_in_creative_inventory ~= 1 and
+		def.description and def.description ~= ""
+end
+
+local function get_group_stereotype(group)
+	local stereotype = i3.group_stereotypes[group]
+	local def = reg_items[stereotype]
+
+	if valid_item(def) then
+		return stereotype
+	end
+end
+
+local function groups_to_items(groups)
+	local names = {}
+
+	for name, def in pairs(reg_items) do
+		if valid_item(def) and item_has_groups(def.groups, groups) then
+			insert(names, name)
+		end
+	end
+
+	sort(names)
+
+	return names
+end
+
+local function is_cube(drawtype)
+	return drawtype == "normal" or drawtype == "liquid" or
+		sub(drawtype, 1, 9) == "glasslike" or
+		sub(drawtype, 1, 8) == "allfaces"
+end
+
+local function get_cube(tiles)
+	if not true_table(tiles) then
+		return "i3_blank.png"
+	end
+
+	local top = tiles[1] or "i3_blank.png"
+	if is_table(top) then
+		top = top.name or top.image
+	end
+
+	local left = tiles[3] or top or "i3_blank.png"
+	if is_table(left) then
+		left = left.name or left.image
+	end
+
+	local right = tiles[5] or left or "i3_blank.png"
+	if is_table(right) then
+		right = right.name or right.image
+	end
+
+	return core.inventorycube(top, left, right)
+end
+
+local function apply_recipe_filters(recipes, player)
+	for _, filter in pairs(i3.recipe_filters) do
+		recipes = filter(recipes, player)
+	end
+
+	return recipes
+end
+
+local function recipe_filter_set()
+	return next(i3.recipe_filters)
+end
+
+local function compression_active(data)
+	return data.collapse and not recipe_filter_set() and data.filter == ""
+end
+
+local function compressible(item, data)
+	return compression_active(data) and i3.compress_groups[item]
+end
+
+local function is_fav(data)
+	for i = 1, #data.favs do
+		if data.favs[i] == data.query_item then
+			return i
+		end
+	end
+end
+
+local function sort_by_category(data)
+	reset_compression(data)
+	local items = data.items_raw
+
+	if data.filter ~= "" then
+		search(data)
+		items = data.items
+	end
+
+	local new = {}
+
+	for i = 1, #items do
+		local item = items[i]
+		local tab = i3.minitabs[data.itab]
+		local to_add = tab.sorter(item, data)
+
+		if to_add then
+			insert(new, item)
+		end
+	end
+
+	data.items = new
+end
+
+local function spawn_item(player, stack)
+	local dir     = player:get_look_dir()
+	local ppos    = player:get_pos()
+	      ppos.y  = ppos.y + player:get_properties().eye_height
+	local look_at = ppos + dir
+
+	core.add_item(look_at, stack)
+end
+
+local function get_recipes(player, item)
+	item = core.registered_aliases[item] or item
+	local recipes = i3.recipes_cache[item]
+	local usages = i3.usages_cache[item]
+
+	if recipes then
+		recipes = apply_recipe_filters(recipes, player)
+	end
+
+	local no_recipes = not recipes or #recipes == 0
+	if no_recipes and not usages then return end
+	usages = apply_recipe_filters(usages, player)
+	local no_usages = not usages or #usages == 0
+
+	return not no_recipes and recipes or nil,
+	       not no_usages  and usages  or nil
+end
+
+local function get_stack(player, stack)
+	local inv = player:get_inventory()
+
+	if inv:room_for_item("main", stack) then
+		inv:add_item("main", stack)
+	else
+		spawn_item(player, stack)
+	end
+end
+
+local function get_group_items(name)
+	local groups = extract_groups(name)
+	return i3.groups[name:sub(7)].items or groups_to_items(groups)
+end
+
+local function craft_stack(player, data, craft_rcp)
+	local inv = player:get_inventory()
+	local rcp_usg = craft_rcp and "recipe" or "usage"
+	local rcp_def = rcp_usg == "recipe" and data.recipes[data.rnum] or data.usages[data.unum]
+	local output = craft_rcp and data.recipes[data.rnum].output or data.usages[data.unum].output
+	      output = ItemStack(output)
+	local stackname, stackcount, stackmax = output:get_name(), output:get_count(), output:get_stack_max()
+	local scrbar_val = data[fmt("scrbar_%s", craft_rcp and "rcp" or "usg")] or 1
+
+	for name, count in pairs(data.crafting_counts[rcp_usg].rcp) do
+		local items = {[name] = count}
+
+		if is_group(name) then
+			items = {}
+			local item_groups = get_group_items(name)
+			local remaining = count
+
+			for _, item in ipairs(item_groups) do
+				for _name, _count in pairs(data.crafting_counts[rcp_usg].inv) do
+					if item == _name and remaining > 0 then
+						local c = min(remaining, _count)
+						items[item] = c
+						remaining -= c
+					end
+
+					if remaining == 0 then break end
+				end
+			end
+		end
+
+		for item, v in pairs(items) do
+			for _ = 1, v * scrbar_val do
+				inv:remove_item("main", item)
+
+				for _, pair in ipairs(rcp_def.replacements or {}) do
+					local old_name, new_name = unpack(pair)
+
+					if is_group(old_name) then
+						local item_groups = get_group_items(old_name)
+
+						for _, it in ipairs(item_groups) do
+							if item == it then
+								get_stack(player, ItemStack(new_name))
+							end
+						end
+					elseif item == old_name then
+						get_stack(player, ItemStack(new_name))
+					end
+				end
+			end
+		end
+	end
+
+	local count = stackcount * scrbar_val
+	local iter = ceil(count / stackmax)
+	local leftover = count
+
+	for _ = 1, iter do
+		local c = min(stackmax, leftover)
+		local stack = ItemStack(fmt("%s %s", stackname, c))
+		get_stack(player, stack)
+		leftover -= stackmax
+	end
+end
+
+local function play_sound(name, sound, volume)
+	core.sound_play(sound, {to_player = name, gain = volume}, true)
+end
+
+local function safe_teleport(player, pos)
+	local name = player:get_player_name()
+	play_sound(name, "i3_teleport", 0.8)
+
+	local vel = player:get_velocity()
+	player:add_velocity(-vel)
+
+	local p = vec(pos)
+	      p.y += 0.25
+
+	player:set_pos(p)
+end
+
+local function sorter(inv, data, mode)
+	sort(inv, function(a, b)
+		if mode == 1 then
+			a = translate(data.lang_code, a:get_short_description())
+			b = translate(data.lang_code, b:get_short_description())
+		else
+			a, b = a:get_count(), b:get_count()
+		end
+
+		if data.reverse_sorting then
+			return a > b
+		end
+
+		return a < b
+	end)
+end
+
+local function pre_sorting(list, start_i)
+	local new_inv, special = {}, {}
+
+	for i = start_i, #list do
+		local stack = list[i]
+		local empty = stack:is_empty()
+		local meta  = stack:get_meta():to_table()
+		local wear  = stack:get_wear() > 0
+
+		if not empty then
+			if next(meta.fields) or wear then
+				insert(special, stack)
+			else
+				insert(new_inv, stack)
+			end
+		end
+	end
+
+	new_inv = table_merge(new_inv, special)
+	return new_inv
+end
+
+local function compress_items(list, start_i)
+	local hash, new_inv, special = {}, {}, {}
+
+	for i = start_i, #list do
+		local stack    = list[i]
+		local name     = stack:get_name()
+		local count    = stack:get_count()
+		local stackmax = stack:get_stack_max()
+		local empty    = stack:is_empty()
+		local meta     = stack:get_meta():to_table()
+		local wear     = stack:get_wear() > 0
+
+		if not empty then
+			if next(meta.fields) or wear or count >= stackmax then
+				insert(special, stack)
+			else
+				hash[name] = hash[name] or 0
+				hash[name] += count
+			end
+		end
+	end
+
+	for name, count in pairs(hash) do
+		local stackmax = ItemStack(name):get_stack_max()
+		local iter = ceil(count / stackmax)
+		local leftover = count
+
+		for _ = 1, iter do
+			insert(new_inv, ItemStack(fmt("%s %u", name, min(stackmax, leftover))))
+			leftover -= stackmax
+		end
+	end
+
+	new_inv = table_merge(new_inv, special)
+	return new_inv
+end
+
+local function sort_inventory(player, data)
+	local inv = player:get_inventory()
+	local list = inv:get_list"main"
+	local size = inv:get_size"main"
+	local start_i = data.ignore_hotbar and (data.hotbar_len + 1) or 1
+
+	list = data.inv_compress and compress_items(list, start_i) or pre_sorting(list, start_i)
+
+	local new_inv = i3.sorting_methods[data.sort].func(list, data)
+	if not new_inv then return end
+
+	if not data.ignore_hotbar then
+		inv:set_list("main", new_inv)
+		return
+	end
+
+	for i = start_i, size do
+		local index = i - start_i + 1
+		inv:set_stack("main", i, new_inv[index] or "")
+	end
+end
+
+local function reset_data(data)
+	data.filter        = ""
+	data.expand        = ""
+	data.pagenum       = 1
+	data.rnum          = 1
+	data.unum          = 1
+	data.scrbar_rcp    = 1
+	data.scrbar_usg    = 1
+	data.query_item    = nil
+	data.enable_search = nil
+	data.goto_page     = nil
+	data.recipes       = nil
+	data.usages        = nil
+	data.crafting_rcp  = nil
+	data.crafting_usg  = nil
+	data.alt_items     = nil
+	data.confirm_trash = nil
+	data.show_settings = nil
+	data.show_setting  = "home"
+	data.items         = data.items_raw
+
+	if data.itab > 1 then
+		sort_by_category(data)
+	end
+end
+
+local function add_hud_waypoint(player, name, pos, color, image)
+	return player:hud_add {
+		hud_elem_type = image and "image_waypoint" or "waypoint",
+		name = name,
+		text = image or "m",
+		scale = {x = 5, y = 5},
+		world_pos = pos,
+		number = color,
+		image = image,
+		z_index = -300,
+	}
+end
+
+local function init_hud_notif(player)
+	return {
+		bg = player:hud_add {
+			hud_elem_type = "image",
+			position      = {x = 0,   y = 1},
+			offset        = {x = 10,  y = 0},
+			alignment     = {x = 1,   y = 1},
+			scale         = {x = 0.6, y = 0.6},
+			text          = "i3_bg_notif.png",
+			z_index       = 0xDEAD,
+		},
+
+		img = player:hud_add {
+			hud_elem_type = "image",
+			position      = {x = 0,  y = 1},
+			offset        = {x = 20, y = 20},
+			alignment     = {x = 1,  y = 1},
+			scale         = {x = 1,  y = 1},
+			text          = "",
+			z_index       = 0xDEAD,
+		},
+
+		text = player:hud_add {
+			hud_elem_type = "text",
+			position      = {x = 0,   y = 1},
+			offset        = {x = 100, y = 40},
+			alignment     = {x = 1,   y = 1},
+			number        = 0xffffff,
+			text          = "",
+			z_index       = 0xDEAD,
+			style         = 1,
+		}
+	}
+end
+
+local function get_detached_inv(name, player_name)
+	return core.get_inventory {
+		type = "detached",
+		name = fmt("i3_%s_%s", name, player_name)
+	}
+end
+
+local function update_inv_size(player, data)
+	data.hotbar_len = data.legacy_inventory and 8 or 9
+	data.inv_size = 4 * data.hotbar_len
+
+	local inv = player:get_inventory()
+	inv:set_size("main", data.inv_size)
+
+	player:hud_set_hotbar_itemcount(data.hotbar_len)
+
+	core.after(0, function()
+		player:hud_set_hotbar_image(data.legacy_inventory and "gui_hotbar.png" or "i3_hotbar.png")
+	end)
+end
+
+-- Much faster implementation of `unpack`
+local function createunpack(n)
+	local ret = {"local t = ... return "}
+
+	for k = 2, n do
+		ret[2 + (k - 2) * 4] = "t["
+		ret[3 + (k - 2) * 4] = k - 1
+		ret[4 + (k - 2) * 4] = "]"
+
+		if k ~= n then
+			ret[5 + (k - 2) * 4] = ","
+		end
+	end
+
+	return loadstring(concat(ret))
+end
+
+local newunpack = createunpack(33)
+
+-------------------------------------------------------------------------------
+
+local _ = {
+	-- Groups
+	is_group = is_group,
+	extract_groups = extract_groups,
+	item_has_groups = item_has_groups,
+	groups_to_items = groups_to_items,
+	get_group_stereotype = get_group_stereotype,
+
+	-- Compression
+	compressible = compressible,
+	compression_active = compression_active,
+
+	-- Sorting
+	search = search,
+	sorter = sorter,
+	get_recipes = get_recipes,
+	sort_inventory = sort_inventory,
+	sort_by_category = sort_by_category,
+	recipe_filter_set = recipe_filter_set,
+	apply_recipe_filters = apply_recipe_filters,
+
+	-- Type checks
+	is_fav = is_fav,
+	is_str = is_str,
+	is_num = is_num,
+	is_func = is_func,
+	true_str = true_str,
+	true_table = true_table,
+
+	-- Console
+	err = err,
+	msg = msg,
+
+	-- Misc. functions
+	is_cube = is_cube,
+	get_cube = get_cube,
+	ItemStack = ItemStack,
+	valid_item = valid_item,
+	spawn_item = spawn_item,
+	clean_name = clean_name,
+	play_sound = play_sound,
+	reset_data = reset_data,
+	safe_teleport = safe_teleport,
+	init_hud_notif = init_hud_notif,
+	add_hud_waypoint = add_hud_waypoint,
+
+	-- Core functions
+	clr = core.colorize,
+	slz = core.serialize,
+	dslz = core.deserialize,
+	ESC = core.formspec_escape,
+	draw_cube = core.inventorycube,
+	get_group = core.get_item_group,
+	pos_to_str = core.pos_to_string,
+	str_to_pos = core.string_to_pos,
+	check_privs = core.check_player_privs,
+	get_player_by_name = core.get_player_by_name,
+	get_connected_players = core.get_connected_players,
+
+	-- Inventory
+	get_stack = get_stack,
+	craft_stack = craft_stack,
+	update_inv_size = update_inv_size,
+	get_detached_inv = get_detached_inv,
+	get_bag_description = get_bag_description,
+	create_inventory = core.create_detached_inventory,
+
+	-- Registered items
+	reg_items = core.registered_items,
+	reg_nodes = core.registered_nodes,
+	reg_tools = core.registered_tools,
+	reg_aliases = core.registered_aliases,
+	reg_entities = core.registered_entities,
+	reg_craftitems = core.registered_craftitems,
+
+	-- i18n
+	S = S,
+	ES = ES,
+	translate = core.get_translated_string,
+
+	-- String
+	sub = string.sub,
+	find = string.find,
+	fmt = string.format,
+	upper = string.upper,
+	lower = string.lower,
+	split = string.split,
+	match = string.match,
+	gmatch = string.gmatch,
+	toupper = toupper,
+	utf8_len = utf8_len,
+
+	-- Table
+	maxn = table.maxn,
+	sort = table.sort,
+	copy = table.copy,
+	concat = table.concat,
+	insert = table.insert,
+	remove = table.remove,
+	indexof = table.indexof,
+	unpack = newunpack,
+	is_table = is_table,
+	table_merge = table_merge,
+	table_replace = table_replace,
+	table_eq = table_eq,
+	array_diff = array_diff,
+
+	-- Math
+	round = round,
+	abs = math.abs,
+	min = math.min,
+	max = math.max,
+	ceil = math.ceil,
+	floor = math.floor,
+	random = math.random,
+
+	-- Vectors
+	vec = vector.new,
+	vec_round = vector.round,
+}
+
+function i3.get(...)
+	local t = {}
+
+	for i, var in ipairs{...} do
+		t[i] = _[var]
+	end
+
+	return newunpack(t)
+end

src/compression.lua

@@ -0,0 +1,313 @@
+IMPORT("fmt", "copy", "insert")
+
+local wood_types = {
+	"acacia_wood", "aspen_wood", "junglewood", "pine_wood",
+}
+
+local material_tools = {
+	"bronze", "diamond", "mese", "stone", "wood",
+}
+
+local material_stairs = {
+	"acacia_wood", "aspen_wood", "brick", "bronzeblock", "cobble", "copperblock",
+	"desert_cobble", "desert_sandstone", "desert_sandstone_block", "desert_sandstone_brick",
+	"desert_stone", "desert_stone_block", "desert_stonebrick",
+	"glass", "goldblock", "ice", "junglewood", "mossycobble", "obsidian",
+	"obsidian_block", "obsidian_glass", "obsidianbrick", "pine_wood",
+	"sandstone", "sandstone_block", "sandstonebrick",
+	"silver_sandstone", "silver_sandstone_block", "silver_sandstone_brick",
+	"snowblock", "steelblock", "stone", "stone_block", "stonebrick",
+	"straw", "tinblock",
+}
+
+local colors = {
+	"black", "blue", "brown", "cyan", "dark_green", "dark_grey", "green",
+	"grey", "magenta", "orange", "pink", "red", "violet", "yellow",
+}
+
+local to_compress = {
+	["default:wood"] = {
+		replace = "wood",
+		by = wood_types,
+	},
+
+	["default:fence_wood"] = {
+		replace = "wood",
+		by = wood_types,
+	},
+
+	["default:fence_rail_wood"] = {
+		replace = "wood",
+		by = wood_types,
+	},
+
+	["default:mese_post_light"] = {
+		replace = "mese_post_light",
+		by = {
+			"mese_post_light_acacia_wood",
+			"mese_post_light_aspen_wood",
+			"mese_post_light_junglewood",
+			"mese_post_light_pine_wood",
+		}
+	},
+
+	["doors:gate_wood_closed"] = {
+		replace = "wood",
+		by = wood_types,
+	},
+
+	["wool:white"] = {
+		replace = "white",
+		by = colors
+	},
+
+	["dye:white"] = {
+		replace = "white",
+		by = colors
+	},
+
+	["default:axe_steel"] = {
+		replace = "steel",
+		by = material_tools
+	},
+
+	["default:pick_steel"] = {
+		replace = "steel",
+		by = material_tools
+	},
+
+	["default:shovel_steel"] = {
+		replace = "steel",
+		by = material_tools
+	},
+
+	["default:sword_steel"] = {
+		replace = "steel",
+		by = material_tools
+	},
+
+	["farming:hoe_steel"] = {
+		replace = "steel",
+		by = {"wood", "stone"}
+	},
+
+	["stairs:slab_wood"] = {
+		replace = "wood",
+		by = material_stairs
+	},
+
+	["stairs:stair_wood"] = {
+		replace = "wood",
+		by = material_stairs
+	},
+
+	["stairs:stair_inner_wood"] = {
+		replace = "wood",
+		by = material_stairs
+	},
+
+	["stairs:stair_outer_wood"] = {
+		replace = "wood",
+		by = material_stairs
+	},
+
+	["walls:cobble"] = {
+		replace = "cobble",
+		by = {"desertcobble", "mossycobble"}
+	},
+}
+
+local circular_saw_names = {
+	{"micro", "_1"},
+	{"panel", "_1"},
+	{"micro", "_2"},
+	{"panel", "_2"},
+	{"micro", "_4"},
+	{"panel", "_4"},
+	{"micro", ""},
+	{"panel", ""},
+
+	{"micro", "_12"},
+	{"panel", "_12"},
+	{"micro", "_14"},
+	{"panel", "_14"},
+	{"micro", "_15"},
+	{"panel", "_15"},
+	{"stair", "_outer"},
+	{"stair", ""},
+
+	{"stair", "_inner"},
+	{"slab", "_1"},
+	{"slab", "_2"},
+	{"slab", "_quarter"},
+	{"slab", ""},
+	{"slab", "_three_quarter"},
+	{"slab", "_14"},
+	{"slab", "_15"},
+
+	{"slab", "_two_sides"},
+	{"slab", "_three_sides"},
+	{"slab", "_three_sides_u"},
+	{"stair", "_half"},
+	{"stair", "_alt_1"},
+	{"stair", "_alt_2"},
+	{"stair", "_alt_4"},
+	{"stair", "_alt"},
+	{"stair", "_right_half"},
+
+	{"slope", ""},
+	{"slope", "_half"},
+	{"slope", "_half_raised"},
+	{"slope", "_inner"},
+	{"slope", "_inner_half"},
+	{"slope", "_inner_half_raised"},
+	{"slope", "_inner_cut"},
+	{"slope", "_inner_cut_half"},
+
+	{"slope", "_inner_cut_half_raised"},
+	{"slope", "_outer"},
+	{"slope", "_outer_half"},
+	{"slope", "_outer_half_raised"},
+	{"slope", "_outer_cut"},
+	{"slope", "_outer_cut_half"},
+	{"slope", "_outer_cut_half_raised"},
+	{"slope", "_cut"},
+}
+
+local moreblocks_nodes = {
+	"coal_stone",
+	"wood_tile",
+	"iron_checker",
+	"circle_stone_bricks",
+	"cobble_compressed",
+	"plankstone",
+	"clean_glass",
+	"split_stone_tile",
+	"all_faces_tree",
+	"dirt_compressed",
+	"coal_checker",
+	"clean_glow_glass",
+	"tar",
+	"clean_super_glow_glass",
+	"stone_tile",
+	"cactus_brick",
+	"super_glow_glass",
+	"desert_cobble_compressed",
+	"copperpatina",
+	"coal_stone_bricks",
+	"glow_glass",
+	"cactus_checker",
+	"all_faces_pine_tree",
+	"all_faces_aspen_tree",
+	"all_faces_acacia_tree",
+	"all_faces_jungle_tree",
+	"iron_stone",
+	"grey_bricks",
+	"wood_tile_left",
+	"wood_tile_down",
+	"wood_tile_center",
+	"wood_tile_right",
+	"wood_tile_full",
+	"checker_stone_tile",
+	"iron_glass",
+	"iron_stone_bricks",
+	"wood_tile_flipped",
+	"wood_tile_offset",
+	"coal_glass",
+
+	"straw",
+
+	"stone",
+	"stone_block",
+	"cobble",
+	"mossycobble",
+	"brick",
+	"sandstone",
+	"steelblock",
+	"goldblock",
+	"copperblock",
+	"bronzeblock",
+	"diamondblock",
+	"tinblock",
+	"desert_stone",
+	"desert_stone_block",
+	"desert_cobble",
+	"meselamp",
+	"glass",
+	"tree",
+	"wood",
+	"jungletree",
+	"junglewood",
+	"pine_tree",
+	"pine_wood",
+	"acacia_tree",
+	"acacia_wood",
+	"aspen_tree",
+	"aspen_wood",
+	"obsidian",
+	"obsidian_block",
+	"obsidianbrick",
+	"obsidian_glass",
+	"stonebrick",
+	"desert_stonebrick",
+	"sandstonebrick",
+	"silver_sandstone",
+	"silver_sandstone_brick",
+	"silver_sandstone_block",
+	"desert_sandstone",
+	"desert_sandstone_brick",
+	"desert_sandstone_block",
+	"sandstone_block",
+	"coral_skeleton",
+	"ice",
+}
+
+local colors_moreblocks = copy(colors)
+insert(colors_moreblocks, "white")
+
+local moreblocks_mods = {
+	wool = colors_moreblocks,
+	moreblocks = moreblocks_nodes,
+}
+
+local t = {}
+
+for mod, v in pairs(moreblocks_mods) do
+for _, nodename in ipairs(v) do
+	t[nodename] = {}
+
+	for _, shape in ipairs(circular_saw_names) do
+		if shape[1] ~= "slope" or shape[2] ~= "" then
+			insert(t[nodename], fmt("%s_%s%s", shape[1], nodename, shape[2]))
+		end
+	end
+
+	local slope_name = fmt("slope_%s", nodename)
+
+	to_compress[fmt("%s:%s", mod, slope_name)] = {
+		replace = slope_name,
+		by = t[nodename],
+	}
+end
+end
+
+local compressed = {}
+
+for k, v in pairs(to_compress) do
+	compressed[k] = compressed[k] or {}
+
+	for _, str in ipairs(v.by) do
+		local it = k:gsub(v.replace, str)
+		insert(compressed[k], it)
+	end
+end
+
+local _compressed = {}
+
+for _, v in pairs(compressed) do
+for _, v2 in ipairs(v) do
+	_compressed[v2] = true
+end
+end
+
+i3.compress_groups, i3.compressed = compressed, _compressed

src/detached_inv.lua

@@ -0,0 +1,24 @@
+local set_fs = i3.set_fs
+IMPORT("play_sound", "create_inventory")
+
+local trash = create_inventory("i3_trash", {
+	allow_put = function(_, _, _, stack)
+		return stack:get_count()
+	end,
+
+	on_put = function(inv, listname, _, _, player)
+		inv:set_list(listname, {})
+
+		local name = player:get_player_name()
+		local data = i3.data[name]
+		data.armor_allow = nil
+
+		play_sound(name, "i3_trash", 1.0)
+
+		if not core.is_creative_enabled(name) then
+			set_fs(player)
+		end
+	end,
+})
+
+trash:set_size("main", 1)

src/fields.lua

@@ -0,0 +1,476 @@
+local set_fs = i3.set_fs
+
+IMPORT("min", "max", "vec_round")
+IMPORT("reg_items", "reg_aliases")
+IMPORT("sort", "copy", "insert", "remove", "indexof")
+IMPORT("S", "random", "translate", "compressible", "ItemStack")
+IMPORT("fmt", "find", "match", "sub", "lower", "split", "toupper")
+IMPORT("valid_item", "get_stack", "craft_stack", "clean_name", "check_privs", "safe_teleport")
+IMPORT("msg", "is_fav", "pos_to_str", "str_to_pos", "add_hud_waypoint", "play_sound", "reset_data")
+IMPORT("search", "sort_inventory", "sort_by_category", "get_recipes", "get_detached_inv", "update_inv_size")
+
+local function inv_fields(player, data, fields)
+	local name = data.player_name
+	local inv = player:get_inventory()
+
+	if fields.dd_sorting_method then
+		data.sort = tonumber(fields.dd_sorting_method)
+	elseif fields.sb_font_size then
+		data.font_size = tonumber(fields.sb_font_size:match"-?%d+$")
+	end
+
+	for field in pairs(fields) do
+		if sub(field, 1, 4) == "btn_" then
+			data.subcat = indexof(i3.categories, sub(field, 5))
+			break
+
+		elseif sub(field, 1, 3) == "cb_" then
+			local str = sub(field, 4)
+			data[str] = false
+
+			if fields[field] == "true" then
+				data[str] = true
+			end
+
+			if str == "legacy_inventory" then
+				update_inv_size(player, data)
+			elseif str == "collapse" then
+				search(data)
+			end
+
+		elseif sub(field, 1, 8) == "setting_" then
+			data.show_setting = match(field, "_(%w+)$")
+
+		elseif sub(field, 1, 9) == "skin_btn_" then
+			local id = tonumber(field:match("%d+"))
+			local _skins = skins.get_skinlist_for_player(name)
+
+			play_sound(name, "i3_skin_change", 0.6)
+			skins.set_player_skin(player, _skins[id])
+
+		elseif find(field, "waypoint_%d+") then
+			local id, action = match(field, "_(%d+)_(%w+)$")
+			      id = tonumber(id)
+			local waypoint = data.waypoints[id]
+			if not waypoint then return end
+
+			if action == "see" then
+				if data.waypoint_see and data.waypoint_see == id then
+					data.waypoint_see = nil
+				else
+					data.waypoint_see = id
+				end
+
+			elseif action == "delete" then
+				player:hud_remove(waypoint.id)
+				remove(data.waypoints, id)
+
+			elseif action == "teleport" then
+				local pos = str_to_pos(waypoint.pos)
+				safe_teleport(player, pos)
+				msg(name, S("Teleported to: @1", waypoint.name))
+
+			elseif action == "refresh" then
+				local color = random(0xffffff)
+				waypoint.color = color
+				player:hud_change(waypoint.id, "number", color)
+
+			elseif action == "hide" then
+				if waypoint.hide then
+					local new_id = add_hud_waypoint(
+						player, waypoint.name, str_to_pos(waypoint.pos), waypoint.color)
+
+					waypoint.id = new_id
+					waypoint.hide = nil
+				else
+					player:hud_remove(waypoint.id)
+					waypoint.hide = true
+				end
+			end
+
+			break
+		end
+	end
+
+	if fields.quit then
+		data.confirm_trash = nil
+		data.show_settings = nil
+		data.waypoint_see = nil
+		data.bag_rename = nil
+		data.goto_page = nil
+
+		if data.filter == "" then
+			data.enable_search = nil
+		end
+
+	elseif fields.trash then
+		data.show_settings = nil
+		data.confirm_trash = true
+
+	elseif fields.settings then
+		if not data.show_settings then
+			data.confirm_trash = nil
+			data.show_settings = true
+		else
+			data.show_settings = nil
+		end
+
+	elseif fields.confirm_trash_yes or fields.confirm_trash_no then
+		if fields.confirm_trash_yes then
+			inv:set_list("main", {})
+			inv:set_list("craft", {})
+		end
+
+		data.confirm_trash = nil
+
+	elseif fields.close_settings then
+		data.show_settings = nil
+
+	elseif fields.close_preview then
+		data.waypoint_see = nil
+
+	elseif fields.sort then
+		sort_inventory(player, data)
+
+	elseif fields.home then
+		if not data.home then
+			return msg(name, "No home set")
+		elseif not check_privs(name, {home = true}) then
+			return msg(name, "'home' privilege missing")
+		end
+
+		safe_teleport(player, str_to_pos(data.home))
+		msg(name, S"Welcome back home!")
+
+	elseif fields.set_home then
+		data.home = pos_to_str(player:get_pos(), 1)
+
+	elseif fields.bag_rename then
+		data.bag_rename = true
+
+	elseif fields.confirm_rename then
+		local bag = get_detached_inv("bag", name)
+		local bagstack = bag:get_stack("main", 1)
+		local meta = bagstack:get_meta()
+		local desc = translate(data.lang_code, bagstack:get_description())
+		local fill = split(desc, "(")[2]
+		local newname = fields.bag_newname:gsub("([%(%)])", "")
+		      newname = toupper(newname:trim())
+
+		if fill then
+			newname = fmt("%s (%s", newname, fill)
+		end
+
+		meta:set_string("description", newname)
+		bag:set_stack("main", 1, bagstack)
+
+		data.bag = bagstack:to_string()
+		data.bag_rename = nil
+
+	elseif fields.waypoint_add then
+		local max_waypoints = i3.settings.max_waypoints
+
+		if #data.waypoints >= max_waypoints then
+			play_sound(name, "i3_cannot", 0.8)
+			return msg(name, fmt("Waypoints limit reached (%u)", max_waypoints))
+		end
+
+		local pos = player:get_pos()
+
+		for _, v in ipairs(data.waypoints) do
+			if vec_round(pos) == vec_round(str_to_pos(v.pos)) then
+				play_sound(name, "i3_cannot", 0.8)
+				return msg(name, S"You already have set a waypoint at this position")
+			end
+		end
+
+		local waypoint = fields.waypoint_name
+
+		if fields.waypoint_name == "" then
+			waypoint = "Waypoint"
+		end
+
+		local color = random(0xffffff)
+		local id = add_hud_waypoint(player, waypoint, pos, color)
+
+		insert(data.waypoints, {
+			name  = waypoint,
+			pos   = pos_to_str(pos, 1),
+			color = color,
+			id    = id,
+		})
+
+		data.scrbar_inv += 1000
+
+	elseif fields.hide_debug_grid then
+		data.hide_debug_grid = not data.hide_debug_grid
+	end
+end
+
+local function select_item(player, data, fields)
+	local item
+
+	for field in pairs(fields) do
+		if find(field, ":") then
+			item = field
+			break
+		end
+	end
+
+	if not item then return end
+
+	if compressible(item, data) then
+		local idx
+
+		for i = 1, #data.items do
+			local it = data.items[i]
+			if it == item then
+				idx = i
+				break
+			end
+		end
+
+		if data.expand ~= "" then
+			data.alt_items = nil
+
+			if item == data.expand then
+				data.expand = nil
+				return
+			end
+		end
+
+		if idx and item ~= data.expand then
+			data.alt_items = copy(data.items)
+			data.expand = item
+
+			if i3.compress_groups[item] then
+				local items = copy(i3.compress_groups[item])
+				insert(items, fmt("_%s", item))
+
+				sort(items, function(a, b)
+					if a:sub(1, 1) == "_" then
+						a = a:sub(2)
+					end
+
+					return a < b
+				end)
+
+				local i = 1
+
+				for _, v in ipairs(items) do
+					if valid_item(reg_items[clean_name(v)]) then
+						insert(data.alt_items, idx + i, v)
+						i++
+					end
+				end
+			end
+		end
+	else
+		if sub(item, 1, 1) == "_" then
+			item = sub(item, 2)
+		elseif sub(item, 1, 6) == "group!" then
+			item = match(item, "([%w:_]+)$")
+		end
+
+		item = reg_aliases[item] or item
+		if not reg_items[item] then return end
+
+		if core.is_creative_enabled(data.player_name) then
+			local stack = ItemStack(item)
+			local stackmax = stack:get_stack_max()
+			      stack = fmt("%s %s", item, stackmax)
+
+			return get_stack(player, stack)
+		end
+
+		if item == data.query_item then return end
+		local recipes, usages = get_recipes(player, item)
+
+		data.query_item   = item
+		data.recipes      = recipes
+		data.usages       = usages
+		data.rnum         = 1
+		data.unum         = 1
+		data.scrbar_rcp   = 1
+		data.scrbar_usg   = 1
+		data.crafting_rcp = nil
+		data.crafting_usg = nil
+	end
+end
+
+local function rcp_fields(player, data, fields)
+	local sb_rcp, sb_usg = fields.scrbar_rcp, fields.scrbar_usg
+
+	if not data.hide_tabs and fields.filter and fields.filter == "" then
+		data.enable_search = nil
+	end
+
+	if fields.cancel then
+		reset_data(data)
+
+	elseif fields.exit then
+		data.query_item = nil
+
+	elseif fields.enable_search then
+		if data.hide_tabs then
+			data.enable_search = not data.enable_search
+		else
+			data.enable_search = true
+		end
+
+	elseif fields.filter and (fields.key_enter_field == "filter" or fields.search) then
+		if fields.filter == "" then
+			reset_data(data)
+			return set_fs(player)
+		end
+
+		local str = lower(fields.filter)
+		if data.filter == str then return end
+
+		data.filter = str
+		data.pagenum = 1
+
+		search(data)
+
+		if data.itab > 1 then
+			sort_by_category(data)
+		end
+
+	elseif fields.pagenum then
+		data.goto_page = not data.goto_page
+
+	elseif fields.goto_page then
+		local pagenum = tonumber(fields.goto_page)
+		data.pagenum = max(1, min(data.pagemax, pagenum or data.pagenum))
+		data.goto_page = nil
+
+	elseif fields.prev_page or fields.next_page then
+		if data.pagemax == 1 then return end
+		data.pagenum -= (fields.prev_page and 1 or -1)
+
+		if data.pagenum > data.pagemax then
+			data.pagenum = 1
+		elseif data.pagenum == 0 then
+			data.pagenum = data.pagemax
+		end
+
+	elseif fields.prev_skin or fields.next_skin then
+		if data.skin_pagemax == 1 then return end
+		data.skin_pagenum -= (fields.prev_skin and 1 or -1)
+
+		if data.skin_pagenum > data.skin_pagemax then
+			data.skin_pagenum = 1
+		elseif data.skin_pagenum == 0 then
+			data.skin_pagenum = data.skin_pagemax
+		end
+
+	elseif fields.prev_recipe or fields.next_recipe then
+		local num = data.rnum + (fields.prev_recipe and -1 or 1)
+		data.rnum = data.recipes[num] and num or (fields.prev_recipe and #data.recipes or 1)
+		data.crafting_rcp = nil
+		data.scrbar_rcp = 1
+
+	elseif fields.prev_usage or fields.next_usage then
+		local num = data.unum + (fields.prev_usage and -1 or 1)
+		data.unum = data.usages[num] and num or (fields.prev_usage and #data.usages or 1)
+		data.crafting_usg = nil
+		data.scrbar_usg = 1
+
+	elseif fields.fav then
+		local fav = is_fav(data)
+
+		if #data.favs < i3.settings.max_favs and not fav then
+			insert(data.favs, data.query_item)
+		elseif fav then
+			remove(data.favs, fav)
+		end
+
+	elseif fields.crafting_rcp or fields.crafting_usg then
+		if fields.crafting_rcp then
+			data.crafting_rcp = not data.crafting_rcp
+
+			if not data.crafting_rcp then
+				data.scrbar_rcp = 1
+			end
+		else
+			data.crafting_usg = not data.crafting_usg
+
+			if not data.crafting_usg then
+				data.scrbar_usg = 1
+			end
+		end
+
+	elseif (sb_rcp and sub(sb_rcp, 1, 3) == "CHG") or (sb_usg and sub(sb_usg, 1, 3) == "CHG") then
+		data.scrbar_rcp = sb_rcp and tonumber(match(sb_rcp, "%d+"))
+		data.scrbar_usg = sb_usg and tonumber(match(sb_usg, "%d+"))
+
+	elseif fields.craft_rcp or fields.craft_usg then
+		craft_stack(player, data, fields.craft_rcp)
+
+		if fields.craft_rcp then
+			data.crafting_rcp = nil
+			data.scrbar_rcp = 1
+		else
+			data.crafting_usg = nil
+			data.scrbar_usg = 1
+		end
+	else
+		select_item(player, data, fields)
+	end
+end
+
+core.register_on_player_receive_fields(function(player, formname, fields)
+	local name = player:get_player_name()
+
+	if formname == "i3_outdated" then
+		return false, core.kick_player(name, S"Your Minetest client needs updating (www.minetest.net)")
+	elseif formname ~= "" then
+		return false
+	end
+
+--	No-op buttons
+	if fields.player_name or fields.awards or fields.home_pos or fields.no_item or
+	   fields.no_rcp or fields.select_sorting or fields.sort_method or fields.bg_content or
+	   fields.quick_crafting then
+		return false
+	end
+
+--	print(dump(fields))
+	local data = i3.data[name]
+	if not data then return end
+
+	local sb_inv = fields.scrbar_inv
+	if sb_inv and sub(sb_inv, 1, 3) == "CHG" then
+		data.scrbar_inv = tonumber(match(sb_inv, "%d+"))
+		return
+	end
+
+	for f in pairs(fields) do
+		if sub(f, 1, 4) == "tab_" then
+			local tabname = sub(f, 5)
+			i3.set_tab(player, tabname)
+			break
+		elseif sub(f, 1, 5) == "itab_" then
+			data.pagenum = 1
+			data.itab = tonumber(f:sub(-1))
+			sort_by_category(data)
+			break
+		end
+	end
+
+	rcp_fields(player, data, fields)
+
+	local tab = i3.tabs[data.tab]
+	if tab then
+		if tab.slots then
+			inv_fields(player, data, fields)
+		end
+
+		if tab.fields then
+			local ret = tab.fields(player, data, fields)
+			if ret == false then return end
+		end
+	end
+
+	return true, set_fs(player)
+end)

src/groups.lua

@@ -0,0 +1,62 @@
+IMPORT("S")
+
+i3.group_stereotypes = {
+	dye = "dye:white",
+	wool = "wool:white",
+	wood = "default:wood",
+	tree = "default:tree",
+	sand = "default:sand",
+	glass = "default:glass",
+	stick = "default:stick",
+	stone = "default:stone",
+	leaves = "default:leaves",
+	coal = "default:coal_lump",
+	fence = "default:fence_wood",
+	vessel = "vessels:glass_bottle",
+	flower = "flowers:dandelion_yellow",
+	water_bucket = "bucket:bucket_water",
+	mesecon_conductor_craftable = "mesecons:wire_00000000_off",
+}
+
+i3.group_names = {
+	dye = S"Any dye",
+	coal = S"Any coal",
+	sand = S"Any sand",
+	tree = S"Any tree",
+	wool = S"Any wool",
+	glass = S"Any glass",
+	stick = S"Any stick",
+	stone = S"Any stone",
+	fence = S"Any fence",
+	carpet = S"Any carpet",
+	flower = S"Any flower",
+	leaves = S"Any leaves",
+	vessel = S"Any vessel",
+	wood = S"Any wood planks",
+	mushroom = S"Any mushroom",
+
+	["color_red,flower"] = S"Any red flower",
+	["color_blue,flower"] = S"Any blue flower",
+	["color_black,flower"] = S"Any black flower",
+	["color_white,flower"] = S"Any white flower",
+	["color_green,flower"] = S"Any green flower",
+	["color_orange,flower"] = S"Any orange flower",
+	["color_yellow,flower"] = S"Any yellow flower",
+	["color_violet,flower"] = S"Any violet flower",
+
+	["color_red,dye"] = S"Any red dye",
+	["color_blue,dye"] = S"Any blue dye",
+	["color_grey,dye"] = S"Any grey dye",
+	["color_pink,dye"] = S"Any pink dye",
+	["color_cyan,dye"] = S"Any cyan dye",
+	["color_black,dye"] = S"Any black dye",
+	["color_white,dye"] = S"Any white dye",
+	["color_brown,dye"] = S"Any brown dye",
+	["color_green,dye"] = S"Any green dye",
+	["color_orange,dye"] = S"Any orange dye",
+	["color_yellow,dye"] = S"Any yellow dye",
+	["color_violet,dye"] = S"Any violet dye",
+	["color_magenta,dye"] = S"Any magenta dye",
+	["color_dark_grey,dye"] = S"Any dark grey dye",
+	["color_dark_green,dye"] = S"Any dark green dye",
+}

src/hud.lua

@@ -0,0 +1,147 @@
+IMPORT("max", "ceil", "remove", "str_to_pos")
+IMPORT("get_connected_players", "add_hud_waypoint")
+
+local function init_hud(player)
+	local name = player:get_player_name()
+	local data = i3.data[name]
+	local wdesc_y = -90
+
+	if core.global_exists"hb" then
+		wdesc_y -= ceil(hb.hudbars_count / 2) * 5
+	elseif not i3.settings.damage_enabled then
+		wdesc_y += 15
+	end
+
+	data.hud = {
+		notifs = {},
+
+		wielditem = player:hud_add {
+			hud_elem_type = "text",
+			position      = {x = 0.5, y = 1},
+			offset        = {x = 0,   y = wdesc_y},
+			alignment     = {x = 0,   y = -1},
+			number        = 0xffffff,
+			text          = "",
+			z_index       = 0xDEAD,
+			style         = 1,
+		}
+	}
+end
+
+local function get_progress(offset, max_val)
+	local progress = offset * (1 / (max_val - 5))
+	return 1 - (progress ^ 4)
+end
+
+local function show_hud(player, data, notif, idx, dt)
+	local hud_info_bg = player:hud_get(notif.elems.bg)
+	local offset = hud_info_bg.offset
+
+	if offset.y < notif.max.y then
+		notif.show = false
+		notif.hud_timer += dt
+	end
+
+	player:hud_change(notif.elems.text, "text", notif.hud_msg)
+
+	if notif.hud_img then
+		player:hud_change(notif.elems.img, "text", notif.hud_img)
+	end
+
+	if notif.show then
+		local speed = i3.settings.hud_speed * (100 * get_progress(offset.y, notif.max.y)) * dt
+
+		for _, def in pairs(notif.elems) do
+			local hud_info = player:hud_get(def)
+
+			player:hud_change(def, "offset", {
+				x = hud_info.offset.x,
+				y = hud_info.offset.y - (speed * max(1, (#data.hud.notifs - idx + 1) / 1.45))
+			})
+		end
+	elseif notif.show == false and notif.hud_timer >= i3.settings.hud_timer_max then
+		local speed = (i3.settings.hud_speed * 2.6) * (100 * get_progress(offset.x, notif.max.x)) * dt
+
+		for _, def in pairs(notif.elems) do
+			local hud_info = player:hud_get(def)
+
+			player:hud_change(def, "offset", {
+				x = hud_info.offset.x - speed,
+				y = hud_info.offset.y
+			})
+
+			if hud_info.offset.x < notif.max.x then
+				player:hud_remove(def)
+				remove(data.hud.notifs, idx)
+			end
+		end
+	end
+end
+
+core.register_globalstep(function(dt)
+	local players = get_connected_players()
+	players[0] = #players
+
+	for i = 1, players[0] do
+		local player = players[i]
+		local name = player:get_player_name()
+		local data = i3.data[name]
+		if not data then return end
+
+		for idx, notif in ipairs(data.hud.notifs) do
+			if notif.show ~= nil then
+				show_hud(player, data, notif, idx, dt)
+			end
+		end
+
+		local has_text = player:hud_get(data.hud.wielditem).text ~= ""
+
+		if not data.wielditem_hud then
+			if has_text then
+				player:hud_change(data.hud.wielditem, "text", "")
+			end
+			return
+		end
+
+		data.timer = (data.timer or 0) + dt
+		local wieldidx = player:get_wield_index()
+
+		if wieldidx == data.old_wieldidx then
+			if data.timer >= i3.settings.wielditem_fade_after and has_text then
+				player:hud_change(data.hud.wielditem, "text", "")
+			end
+			return
+		end
+
+		data.timer = 0
+		data.old_wieldidx = wieldidx
+
+		local wielditem = player:get_wielded_item()
+		local meta = wielditem:get_meta()
+
+		local meta_desc = meta:get_string"short_description"
+		      meta_desc = meta_desc:gsub("\27", "")
+		      meta_desc = core.strip_colors(meta_desc)
+
+		local desc = meta_desc ~= "" and meta_desc or wielditem:get_short_description()
+		player:hud_change(data.hud.wielditem, "text", desc:trim())
+	end
+end)
+
+local function init_waypoints(player)
+	local name = player:get_player_name()
+	local data = i3.data[name]
+	data.waypoints = data.waypoints or {}
+
+	for _, v in ipairs(data.waypoints) do
+		if not v.hide then
+			local id = add_hud_waypoint(player, v.name, str_to_pos(v.pos), v.color, v.image)
+			v.id = id
+		end
+	end
+end
+
+return function(player)
+	init_hud(player)
+	init_waypoints(player)
+end

src/model_aliases.lua

@@ -0,0 +1,11 @@
+return {
+	["boats:boat"] = {name = "boats:boat", drawtype = "entity"},
+	["carts:cart"] = {name = "carts:cart", drawtype = "entity", frames = "0,0"},
+	["default:chest"] = {name = "default:chest_open"},
+	["default:chest_locked"] = {name = "default:chest_locked_open"},
+	["doors:door_wood"] = {name = "doors:door_wood_a"},
+	["doors:door_glass"] = {name = "doors:door_glass_a"},
+	["doors:door_obsidian_glass"] = {name = "doors:door_obsidian_glass_a"},
+	["doors:door_steel"] = {name = "doors:door_steel_a"},
+	["xpanes:door_steel_bar"] = {name = "xpanes:door_steel_bar_a"},
+}

src/preprocessor.lua

@@ -0,0 +1,98 @@
+--[[    All source files have to be preprocessed before loading.
+	This allows implementing custom operators like bitwise ones.	]]
+
+local fmt, split = string.format, string.split
+local var = "[%w%.%[%]\"\'_]"
+local modpath = core.get_modpath"i3"
+local _,_, fs_elements = dofile(modpath .. "/src/styles.lua")
+
+local operators = {
+	["([%+%-%*%^/&|])="] = function(a, b, c)
+		return fmt("%s = %s %s %s", a, a, b, c)
+	end,
+
+	["+%+"] = function(a, b)
+		return fmt("%s = %s + 1\n%s", a, a, b)
+	end,
+
+	["&"] = function(a, b)
+		return fmt("bit.band(%s, %s)", a, b)
+	end,
+
+	["|"] = function(a, b)
+		return fmt("bit.bor(%s, %s)", a, b)
+	end,
+
+	["<<"] = function(a, b)
+		return fmt("bit.lshift(%s, %s)", a, b)
+	end,
+
+	[">>"] = function(a, b)
+		return fmt("bit.rshift(%s, %s)", a, b)
+	end,
+
+	["<<="] = function(a, b)
+		return fmt("%s = bit.lshift(%s, %s)", a, a, b)
+	end,
+
+	[">>="] = function(a, b)
+		return fmt("%s = bit.rshift(%s, %s)", a, a, b)
+	end,
+}
+
+local function compile(data)
+	data = data:gsub("IMPORT%((.-)%)", function(a)
+		return "local " .. a:gsub("\"", "") .. " = i3.get(" .. a .. ")"
+	end)
+
+	data = data:gsub("([%w_]+)%(", function(a)
+		if fs_elements[a] then
+			return fmt("fs('%s',", a)
+		end
+	end)
+
+	data = data:gsub("([%w_]+)-%-\n", function(a)
+		return fmt("%s = %s - 1", a, a)
+	end)
+
+	for op, func in pairs(operators) do
+		data = data:gsub("(" .. var .. "+)%s?" .. op .. "%s?(" .. var .. "*)", func)
+	end
+
+	return data
+end
+
+local function _load(path, line, data, t)
+	if line then
+		if not t then
+			t = split(data, "\n")
+		end
+		t[line] = t[line]:gsub("(" .. var .. "+)%s?=%s?(" .. var .. "*)", "%2")
+		data = table.concat(t, "\n")
+	else
+		local file = assert(io.open(path, "r"))
+		data = file:read"*a"
+		file:close()
+		data = compile(data)
+	end
+
+	local l, err = loadstring(data)
+
+	if not l then
+		local err_line = tonumber(err:match(":(%d+):"))
+
+		if t then
+			print("err_line", err_line, t[err_line])
+		end
+
+		if line ~= err_line then
+			return _load(path, err_line, data, t)
+		end
+	end
+
+	return l, err
+end
+
+return function(path)
+	return _load(path) or loadfile(path)
+end

src/progressive.lua

@@ -0,0 +1,178 @@
+local set_fs = i3.set_fs
+local hud_notif = i3.hud_notif
+local POLL_FREQ = 0.25
+
+IMPORT("reg_items", "reg_nodes", "fmt", "table_merge", "array_diff")
+IMPORT("is_group", "extract_groups", "item_has_groups", "apply_recipe_filters", "sort_by_category")
+
+i3.remove_minitab"nodes"
+i3.remove_minitab"items"
+
+i3.new_minitab("unlocked", {
+	description = "Unlocked",
+
+	sorter = function(item, data)
+		return data.items_progress[item]
+	end
+})
+
+local function get_filtered_items(player, data)
+	local items, known = {}, 0
+
+	for i = 1, #i3.init_items do
+		local item = i3.init_items[i]
+		local recipes = i3.recipes_cache[item]
+		local usages = i3.usages_cache[item]
+
+		recipes = #apply_recipe_filters(recipes or {}, player)
+		usages = #apply_recipe_filters(usages or {}, player)
+
+		if recipes > 0 or usages > 0 then
+			items[item] = true
+			known += recipes + usages
+		end
+	end
+
+	data.known_recipes = known
+
+	return items
+end
+
+local function item_in_inv(item, inv_items)
+	local inv_items_size = #inv_items
+
+	if is_group(item) then
+		local groupname = item:sub(7)
+		local group_cache = i3.groups[groupname]
+		local groups = group_cache and group_cache.groups or extract_groups(item)
+
+		for i = 1, inv_items_size do
+			local def = core.registered_items[inv_items[i]]
+
+			if def then
+				if item_has_groups(def.groups, groups) then
+					return true
+				end
+			end
+		end
+	else
+		for i = 1, inv_items_size do
+			if inv_items[i] == item then
+				return true
+			end
+		end
+	end
+end
+
+local function recipe_in_inv(rcp, inv_items)
+	for _, item in pairs(rcp.items) do
+		if not item_in_inv(item, inv_items) then return end
+	end
+
+	return true
+end
+
+local function progressive_filter(recipes, player)
+	if not recipes then
+		return {}
+	end
+
+	local name = player:get_player_name()
+	local data = i3.data[name]
+
+	if #data.inv_items == 0 then
+		return {}
+	end
+
+	local filtered, c = {}, 0
+
+	for i = 1, #recipes do
+		local recipe = recipes[i]
+		if recipe_in_inv(recipe, data.inv_items) then
+			c++
+			filtered[c] = recipe
+		end
+	end
+
+	return filtered
+end
+
+local item_lists = {"main", "craft", "craftpreview"}
+
+local function get_inv_items(player)
+	local inv = player:get_inventory()
+	if not inv then
+		return {}
+	end
+
+	local stacks = {}
+
+	for i = 1, #item_lists do
+		local list = inv:get_list(item_lists[i])
+		table_merge(stacks, list)
+	end
+
+	local inv_items, c = {}, 0
+
+	for i = 1, #stacks do
+		local stack = stacks[i]
+
+		if not stack:is_empty() then
+			local name = stack:get_name()
+			if core.registered_items[name] then
+				c++
+				inv_items[c] = name
+			end
+		end
+	end
+
+	return inv_items
+end
+
+-- Workaround. Need an engine call to detect when the contents of
+-- the player inventory changed, instead.
+local function poll_new_items(player, data, join)
+	local inv_items = get_inv_items(player)
+	local diff = array_diff(inv_items, data.inv_items)
+
+	if join or #diff > 0 then
+		data.inv_items = table_merge(diff, data.inv_items)
+		local oldknown = data.known_recipes or 0
+		local items = get_filtered_items(player, data)
+		data.discovered = data.known_recipes - oldknown
+
+		if data.discovered > 0 then
+			local msg = fmt("%u new recipe%s unlocked!", data.discovered, data.discovered > 1 and "s" or "")
+			local last_discovered = diff[1]
+			local img = reg_items[last_discovered].inventory_image
+
+			if reg_nodes[last_discovered] then
+				local id = core.get_content_id(last_discovered)
+				img = i3.cubes[id] or img
+			end
+
+			hud_notif(data.player_name, msg, img)
+		end
+
+		data.items_progress = items
+
+		sort_by_category(data)
+		set_fs(player)
+	end
+
+	core.after(POLL_FREQ, poll_new_items, player, data)
+end
+
+i3.add_recipe_filter("Default progressive filter", progressive_filter)
+
+core.register_on_joinplayer(function(player)
+	local name = player:get_player_name()
+	local data = i3.data[name]
+	if not data then return end
+
+	data.inv_items = data.inv_items or {}
+	data.known_recipes = data.known_recipes or 0
+	data.discovered = data.discovered or 0
+
+	poll_new_items(player, data, true)
+end)

src/styles.lua

@@ -0,0 +1,151 @@
+local fmt = string.format
+
+local PNG = {
+	blank = "i3_blank.png",
+	bg = "i3_bg.png",
+	bg_full = "i3_bg_full.png",
+	bg_goto = "i3_bg_goto.png",
+	bg_content = "i3_bg_content.png",
+	bar = "i3_bar.png",
+	hotbar = "i3_hotbar.png",
+	highlight = "i3_highlight.png",
+	search = "i3_search.png",
+	heart = "i3_heart.png",
+	heart_half = "i3_heart_half.png",
+	prev = "i3_next.png^\\[transformFX",
+	next = "i3_next.png",
+	arrow = "i3_arrow.png",
+	arrow_content = "i3_arrow_content.png",
+	trash = "i3_trash.png",
+	sort = "i3_sort.png",
+	settings = "i3_settings.png",
+	compress = "i3_compress.png",
+	fire = "i3_fire.png",
+	fire_anim = "i3_fire_anim.png",
+	book = "i3_book.png",
+	sign = "i3_sign.png",
+	cancel = "i3_cancel.png",
+	crafting = "i3_crafting.png",
+	slot = "i3_slot.png^\\[resize:128x128",
+	pagenum_hover = "i3_slot.png^\\[resize:128x128^\\[opacity:130",
+	tab = "i3_tab.png",
+	tab_small = "i3_tab_small.png",
+	tab_top = "i3_tab.png^\\[transformFY",
+	furnace_anim = "i3_furnace_anim.png",
+	shapeless = "i3_shapeless.png",
+	bag = "i3_bag.png",
+	armor = "i3_armor.png",
+	awards = "i3_award.png",
+	skins = "i3_skin.png",
+	waypoints = "i3_waypoint.png",
+	add = "i3_add.png",
+	refresh = "i3_refresh.png",
+	visible = "i3_visible.png^\\[brighten",
+	nonvisible = "i3_non_visible.png",
+	exit = "i3_exit.png",
+	home = "i3_home.png",
+	flag = "i3_flag_anim.png",
+	edit = "i3_edit.png",
+	no_result = "i3_no_result.png",
+	find_more = "i3_find_more.png",
+	search_outline = "i3_search_outline.png",
+	search_outline_trim = "i3_search_outline_trim.png",
+	all = "i3_all.png",
+	node = "i3_node.png",
+	item = "i3_item.png",
+	cube = "i3_cube.png",
+	home_px = "i3_home_px.png",
+	home_px_hover = "i3_home_px_hover.png",
+
+	cancel_hover = "i3_cancel.png^\\[brighten",
+	search_hover = "i3_search.png^\\[brighten",
+	crafting_hover = "i3_crafting.png^\\[brighten",
+	trash_hover = "i3_trash.png^\\[brighten^\\[colorize:#f00:100",
+	compress_hover = "i3_compress.png^\\[brighten",
+	sort_hover = "i3_sort.png^\\[brighten",
+	settings_hover = "i3_settings.png^\\[brighten",
+	prev_hover = "i3_next_hover.png^\\[transformFX",
+	next_hover = "i3_next_hover.png",
+	tab_hover = "i3_tab_hover.png",
+	tab_small_hover = "i3_tab_small_hover.png",
+	tab_hover_top = "i3_tab_hover.png^\\[transformFY",
+	bag_hover = "i3_bag_hover.png",
+	armor_hover = "i3_armor_hover.png",
+	awards_hover = "i3_award_hover.png",
+	skins_hover = "i3_skin_hover.png",
+	waypoints_hover = "i3_waypoint_hover.png",
+	add_hover = "i3_add.png^\\[brighten",
+	refresh_hover = "i3_refresh.png^\\[brighten",
+	exit_hover = "i3_exit.png^\\[brighten",
+	home_hover = "i3_home.png^\\[brighten",
+	edit_hover = "i3_edit.png^\\[brighten",
+	all_hover = "i3_all_on.png^\\[brighten",
+	node_hover = "i3_node_on.png^\\[brighten",
+	item_hover = "i3_item_on.png^\\[brighten",
+}
+
+local styles = string.format([[
+	listcolors[#bababa50;#bababa99]
+
+	style_type[list;size=1;spacing=0.15]
+	style_type[field;border=false;bgcolor=transparent]
+	style_type[label,field;font_size=16]
+	style_type[button;border=false;content_offset=0]
+	style_type[image_button,item_image_button,checkbox,dropdown;border=false;sound=i3_click]
+	style_type[item_image_button;bgimg_middle=9;padding=-9]
+	style_type[item_image_button:hovered;bgimg=%s]
+
+	style[;sound=]
+	style[nofav;sound=i3_cannot]
+	style[search;content_offset=0]
+	style[pagenum,no_item,no_rcp;font=bold;font_size=18]
+	style[enable_search:hovered;bgimg=%s]
+	style[exit;fgimg=%s;fgimg_hovered=%s;content_offset=0]
+	style[cancel;fgimg=%s;fgimg_hovered=%s;content_offset=0]
+	style[prev_page,prev_recipe,prev_usage,prev_sort,prev_skin;fgimg=%s;fgimg_hovered=%s]
+	style[next_page,next_recipe,next_usage,next_sort,next_skin;fgimg=%s;fgimg_hovered=%s]
+	style[waypoint_add;fgimg=%s;fgimg_hovered=%s;content_offset=0]
+	style[bag_rename;fgimg=%s;fgimg_hovered=%s;content_offset=0]
+	style[btn_bag,btn_armor,btn_skins;font=bold;font_size=18;content_offset=0;sound=i3_click]
+	style[craft_rcp,craft_usg;noclip=true;font_size=16;sound=i3_craft;
+	      bgimg=i3_btn9.png;bgimg_hovered=i3_btn9_hovered.png;
+	      bgimg_pressed=i3_btn9_pressed.png;bgimg_middle=4,6]
+	style[confirm_trash_yes,confirm_trash_no,set_home;noclip=true;font_size=16;
+	      bgimg=i3_btn9.png;bgimg_hovered=i3_btn9_hovered.png;
+	      bgimg_pressed=i3_btn9_pressed.png;bgimg_middle=4,6]
+	style[confirm_trash_yes;sound=i3_trash]
+]],
+PNG.slot,
+PNG.search_outline,
+PNG.exit,           PNG.exit_hover,
+PNG.cancel,         PNG.cancel_hover,
+PNG.prev,           PNG.prev_hover,
+PNG.next,           PNG.next_hover,
+PNG.add,            PNG.add_hover,
+PNG.edit,           PNG.edit_hover)
+
+local fs_elements = {
+	label = "label[%f,%f;%s]",
+	box = "box[%f,%f;%f,%f;%s]",
+	image = "image[%f,%f;%f,%f;%s]",
+	tooltip = "tooltip[%f,%f;%f,%f;%s;#32333899;#fff]",
+	button = "button[%f,%f;%f,%f;%s;%s]",
+	checkbox = "checkbox[%f,%f;%s;%s;%s]",
+	slot = "image[%f,%f;%f,%f;" .. fmt("%s;9]", PNG.slot),
+	item_image = "item_image[%f,%f;%f,%f;%s]",
+	hypertext = "hypertext[%f,%f;%f,%f;%s;%s]",
+	bg9 = "background9[%f,%f;%f,%f;%s;false;12]",
+	scrollbar = "scrollbar[%f,%f;%f,%f;%s;%s;%u]",
+	model = "model[%f,%f;%f,%f;%s;%s;%s;%s;%s;%s;%s]",
+	image_button = "image_button[%f,%f;%f,%f;%s;%s;%s]",
+	animated_image = "animated_image[%f,%f;%f,%f;;%s;%u;%u]",
+	item_image_button = "item_image_button[%f,%f;%f,%f;%s;%s;%s]",
+}
+
+local colors = {
+	yellow = "#ffd866",
+	black = "#2d2a2e",
+	blue = "#7bf",
+}
+
+return PNG, styles, fs_elements, colors

test_custom_recipes.lua

@@ -1,181 +0,0 @@
-local mt = ItemStack("default:wood")
-mt:get_meta():set_string("description", "test wood")
-mt:get_meta():set_string("color", "green")
-
-local mt2 = ItemStack("dye:red")
-mt2:get_meta():set_string("description", "test red")
-mt2:get_meta():set_string("color", "#ff0")
-
-minetest.register_craft({
-	output = mt:to_string(),
-	type = "shapeless",
-	recipe = {
-		"default:wood",
-		mt2:to_string(),
-	},
-})
-
-i3.register_craft({
-	result = "default:ladder_wood 2",
-	items = {"default:copper_ingot 7, default:tin_ingot, default:steel_ingot 2"},
-})
-
-i3.register_craft({
-	grid = {
-		"X  #",
-		" ## ",
-		"X#X#",
-		"X  X",
-	},
-	key = {
-		['#'] = "default:wood",
-		['X'] = "default:glass 2",
-	},
-	result = "default:mese 3",
-})
-
-i3.register_craft({
-	grid = {
-		"X  #",
-		" ## ",
-		"X#X#X",
-		"X  X",
-	},
-	key = {
-		['#'] = "default:wood",
-		['X'] = "default:glass",
-	},
-	result = "default:mese 3",
-})
-
-i3.register_craft({
-	grid = {
-		"X  #",
-		" ## ",
-		"X#X#",
-		"#X#X#",
-		"X  X",
-	},
-	key = {
-		['#'] = "default:wood",
-		['X'] = "default:glass",
-	},
-	result = "default:mese 3",
-})
-
-i3.register_craft({
-	grid = {
-		"X  #",
-		" ## ",
-		"X#X#",
-		"#X#X#",
-		"X  X##",
-	},
-	key = {
-		['#'] = "default:wood",
-		['X'] = "default:glass",
-	},
-	result = "default:mese 3",
-})
-
-
-i3.register_craft({
-	grid = {
-		"X  #",
-		" ## ",
-		"X#X#",
-		"#X#X#",
-		"X  X##",
-		" ## ",
-	},
-	key = {
-		['#'] = "default:wood",
-		['X'] = "default:glass",
-	},
-	result = "default:mese 3",
-})
-
-i3.register_craft({
-	grid = {
-		"X  #",
-		" ## ",
-		"X#X#",
-		"#X#X#",
-		"X  X##X",
-		" ## ",
-	},
-	key = {
-		['#'] = "default:wood",
-		['X'] = "default:glass",
-	},
-	result = "default:mese 3",
-})
-
-i3.register_craft({
-	grid = {
-		"X  #",
-		" ## ",
-		"X#X#",
-		"#X#X#",
-		"X  X##X#",
-		" ## ",
-	},
-	key = {
-		['#'] = "default:wood",
-		['X'] = "default:glass",
-	},
-	result = "default:mese 3",
-})
-
-i3.register_craft({
-	grid = {
-		"X  #",
-		" ## ",
-		"X#X#",
-		"#X#X#",
-		"X  X##X#X",
-		" ## ",
-	},
-	key = {
-		['#'] = "default:wood",
-		['X'] = "default:glass",
-	},
-	result = "default:mese 3",
-})
-
-i3.register_craft({
-	grid = {
-		"X  #",
-		" ## ",
-		"X#X#",
-		"#X#X#",
-		"X  X##X#X",
-		" ## ",
-		"#X#X#",
-		"#X#X#",
-	},
-	key = {
-		['#'] = "default:wood",
-		['X'] = "default:glass",
-	},
-	result = "default:mese 3",
-})
-
-i3.register_craft({
-	grid = {
-		"X  #",
-		" ## ",
-		"X#X#",
-		"#X#X#",
-		"X  X##X#X",
-		" ## ",
-		"#X#X#",
-		"#X#X#",
-		"X  #",
-	},
-	key = {
-		['#'] = "default:wood",
-		['X'] = "default:glass",
-	},
-	result = "default:mese 3",
-})

test_tabs.lua

@@ -1,49 +0,0 @@
-i3.new_tab {
-	name = "test1",
-	description = "Test 1 Test 1",
-	image = "i3_heart.png",
-
-	formspec = function(player, data, fs)
-		fs("label[3,1;Test 1]")
-	end,
-}
-
-i3.new_tab {
-	name = "test2",
-	description = "Test 2",
-	image = "i3_mesepick.png",
-
-	formspec = function(player, data, fs)
-		fs("label[3,1;Test 2]")
-	end,
-}
-
-i3.new_tab {
-	name = "test3",
-	description = "Test 3",
-
-	access = function(player, data)
-		local name = player:get_player_name()
-		if name == "singleplayer" then
-			return true
-		end
-	end,
-
-	formspec = function(player, data, fs)
-		fs("label[3,1;Test 3]")
-	end,
-
-	fields = function(player, data, fields)
-		i3.set_fs(player, "label[3,2;Test extra_fs]")
-	end,
-}
-
-i3.override_tab("test2", {
-	name = "test2",
-	description = "Test override",
-	image = "i3_mesepick.png",
-
-	formspec = function(player, data, fs)
-		fs("label[3,1;Override!]")
-	end,
-})

tests/test_compression.lua

@@ -0,0 +1,4 @@
+i3.compress("default:diamondblock", {
+	replace = "diamond",
+	by = {"bronze", "copper", "gold", "steel", "tin"}
+})

tests/test_custom_recipes.lua

@@ -0,0 +1,338 @@
+local mt = ItemStack("default:wood")
+mt:get_meta():set_string("description", "test wood")
+mt:get_meta():set_string("color", "green")
+
+local mt2 = ItemStack("dye:red")
+mt2:get_meta():set_string("description", "test red")
+mt2:get_meta():set_string("color", "#ff0")
+
+local mt3 = ItemStack("default:pick_diamond")
+mt3:get_meta():set_string("description", "Worn Pick")
+mt3:get_meta():set_string("color", "yellow")
+mt3:set_wear(10000)
+
+minetest.register_craft {
+	output = mt:to_string(),
+	type = "shapeless",
+	recipe = {
+		"default:wood",
+		mt2:to_string(),
+	},
+}
+
+minetest.register_craft {
+	output = mt3:to_string(),
+	type = "shapeless",
+	recipe = {
+		"default:pick_mese",
+		"default:diamond",
+	},
+}
+
+minetest.clear_craft {
+	recipe = {
+		{"default:sand", "default:sand"},
+		{"default:sand", "default:sand"},
+	},
+}
+
+i3.register_craft {
+	url = "https://raw.githubusercontent.com/minetest-mods/i3/main/tests/test_online_recipe.json"
+}
+
+i3.register_craft {
+	result = "default:ladder_wood 2",
+	items = {"default:copper_ingot 7, default:tin_ingot, default:steel_ingot 2"},
+}
+
+i3.register_craft {
+	result = "default:tree",
+	items = {
+		"default:wood",
+		"",
+		"default:wood"
+	},
+}
+
+i3.register_craft {
+	result = "default:cobble 16",
+	items = {
+		"default:stone, default:stone",
+		"default:stone,              , default:stone",
+		", default:stone, default:stone",
+	}
+}
+
+i3.register_craft {
+	grid = {
+		"X",
+		"#",
+		"X",
+		"X",
+	},
+	key = {
+		['#'] = "default:wood",
+		['X'] = "default:glass 2",
+	},
+	result = "default:mese 3",
+}
+
+i3.register_craft {
+	grid = {
+		"X",
+		"#X",
+		"X",
+		"X",
+	},
+	key = {
+		['#'] = "default:wood",
+		['X'] = "default:glass 2",
+	},
+	result = "default:mese 3",
+}
+
+i3.register_craft {
+	grid = {
+		"X",
+	},
+	key = {
+		['#'] = "default:wood",
+		['X'] = "default:glass 2",
+	},
+	result = "default:mese 3",
+}
+
+
+i3.register_craft {
+	grid = {
+		"X#",
+	},
+	key = {
+		['#'] = "default:wood",
+		['X'] = "default:glass 2",
+	},
+	result = "default:mese 3",
+}
+
+i3.register_craft {
+	grid = {
+		"X#X",
+	},
+	key = {
+		['#'] = "default:wood",
+		['X'] = "default:glass 2",
+	},
+	result = "default:mese 3",
+}
+
+i3.register_craft {
+	grid = {
+		"X#XX",
+	},
+	key = {
+		['#'] = "default:wood",
+		['X'] = "default:glass 2",
+	},
+	result = "default:mese 3",
+}
+
+i3.register_craft {
+	grid = {
+		"X#XX",
+		"X#X",
+	},
+	key = {
+		['#'] = "default:wood",
+		['X'] = "default:glass 2",
+	},
+	result = "default:mese 3",
+}
+
+i3.register_craft {
+	grid = {
+		"X#XX",
+		"X#X",
+		"#",
+	},
+	key = {
+		['#'] = "default:wood",
+		['X'] = "default:glass 2",
+	},
+	result = "default:mese 3",
+}
+
+i3.register_craft {
+	grid = {
+		"X##XX",
+	},
+	key = {
+		['#'] = "default:wood",
+		['X'] = "default:glass 2",
+	},
+	result = "default:mese 3",
+}
+
+i3.register_craft {
+	grid = {
+		"X##X#X",
+	},
+	key = {
+		['#'] = "default:wood",
+		['X'] = "default:glass 2",
+	},
+	result = "default:mese 3",
+}
+
+i3.register_craft {
+	grid = {
+		"X##X#X",
+		"",
+		"X",
+	},
+	key = {
+		['#'] = "default:wood",
+		['X'] = "default:glass 2",
+	},
+	result = "default:mese 3",
+}
+
+i3.register_craft {
+	grid = {
+		"X  #",
+		" ## ",
+		"X#X#",
+		"X  X",
+	},
+	key = {
+		['#'] = "default:wood",
+		['X'] = "default:glass 2",
+	},
+	result = "default:mese 3",
+}
+
+i3.register_craft {
+	grid = {
+		"X  #",
+		" ## ",
+		"X#X#X",
+		"X  X",
+	},
+	key = {
+		['#'] = "default:wood",
+		['X'] = "default:glass",
+	},
+	result = "default:mese 3",
+}
+
+i3.register_craft {
+	grid = {
+		"X  #",
+		" ## ",
+		"X#X#",
+		"#X#X#",
+		"X  X",
+	},
+	key = {
+		['#'] = "default:wood",
+		['X'] = "default:glass",
+	},
+	result = "default:mese 3",
+}
+
+i3.register_craft {
+	grid = {
+		"X  #",
+		" ## ",
+		"X#X#",
+		"#X#X#",
+		"X  X##",
+	},
+	key = {
+		['#'] = "default:wood",
+		['X'] = "default:glass",
+	},
+	result = "default:mese 3",
+}
+
+
+i3.register_craft {
+	grid = {
+		"X  #",
+		" ## ",
+		"X#X#",
+		"#X#X#",
+		"X  X##",
+		" ## ",
+	},
+	key = {
+		['#'] = "default:wood",
+		['X'] = "default:glass",
+	},
+	result = "default:mese 3",
+}
+
+i3.register_craft {
+	grid = {
+		"X  #",
+		" ## ",
+		"X#X#",
+		"#X#X#",
+		"X  X##X",
+		" ## ",
+	},
+	key = {
+		['#'] = "default:wood",
+		['X'] = "default:glass",
+	},
+	result = "default:mese 3",
+}
+
+i3.register_craft {
+	grid = {
+		"X  #",
+		" ## ",
+		"X#X#",
+		"#X#X#",
+		"X  X##X#",
+		" ## ",
+	},
+	key = {
+		['#'] = "default:wood",
+		['X'] = "default:glass",
+	},
+	result = "default:mese 3",
+}
+
+i3.register_craft {
+	grid = {
+		"X  #",
+		" ## ",
+		"X#X#",
+		"#X#X#",
+		"X  X##X#X",
+		" ## ",
+	},
+	key = {
+		['#'] = "default:wood",
+		['X'] = "default:glass",
+	},
+	result = "default:mese 3",
+}
+
+i3.register_craft {
+	grid = {
+		"X  #",
+		" ## ",
+		"X#X#",
+		"#X#X#",
+		"X  X##X#X",
+		" ## ",
+		"#X#X#",
+		"#X#X#",
+	},
+	key = {
+		['#'] = "default:wood",
+		['X'] = "default:glass",
+	},
+	result = "default:mese 3",
+}

tests/test_operators.lua

@@ -0,0 +1,26 @@
+local a, b, c = 0, 0, 0
+b+=1
+c++; local foo = "bar";
+local t = {
+	a = a++,
+	b = 2,
+	c = c+=2,
+	d = a&3,
+	e = 1,
+}
+t["b"] <<= 4
+t.b >>= 2
+assert(t.b == 8)
+--print(dump(t))
+--c += 1
+c*=2
+local i = 16
+i += i<<4
+assert(i == 272)
+assert((a+=2) == 2)
+assert(c++ == 3)
+assert((a-=1) == -1)
+assert((c^=4) == 16)
+assert((a&b) == 0)
+assert((c|=a) == 2)
+assert((1<<8) == 256)

tests/test_tabs.lua

@@ -0,0 +1,50 @@
+local SWITCH
+
+i3.new_tab("test1", {
+	description = "Test 1 Test 1",
+	image = "i3_heart.png",
+
+	formspec = function(player, data, fs)
+		fs("button", 3, 4, 3, 0.8, "test", "Click here")
+		fs("label", 3, 1, "Just a test")
+		
+
+		if SWITCH then
+			fs"label[3,2;Button clicked]"
+		else
+			fs"label[3,2;Lorem Ipsum]"
+		end
+	end,
+
+	fields = function(player, data, fields)
+		if fields.test then
+			SWITCH = true
+		end
+	end
+})
+
+i3.new_tab("test2", {
+	description = "Test 2",
+	image = "i3_mesepick.png",
+	slots = true,
+
+	formspec = function(player, data, fs)
+		fs("label[3,1;Test 2]")
+	end,
+})
+
+i3.new_tab("test_creative", {
+	description = "Test creative",
+
+	access = function(player, data)
+		local name = player:get_player_name()
+		return core.is_creative_enabled(name)
+	end,
+
+	formspec = function(player, data, fs)
+		fs("label[3,1;Creative enabled]")
+	end,
+
+	fields = i3.set_fs,
+})
+

tests/test_waypoints.lua

@@ -0,0 +1,12 @@
+core.after(5, function()
+	i3.add_waypoint("Test", {
+		player = "singleplayer",
+		pos = {x = 0, y = 2, z = 0},
+		color = 0xffff00,
+	--	image = "heart.png",
+	})
+
+	core.after(5, function()
+		i3.remove_waypoint("singleplayer", "Test")
+	end)
+end)

util/luacheck.lua

@@ -0,0 +1,141 @@
+local exec = os.execute
+local fmt, find, sub = string.format, string.find, string.sub
+local var = "[%w%.%[%]\"\'_]"
+local _,_, fs_elements = dofile("../src/styles.lua")
+
+exec "clear"
+
+local function split(str, delim, include_empty, max_splits, sep_is_pattern)
+	delim = delim or ","
+	max_splits = max_splits or -2
+	local items = {}
+	local pos, len = 1, #str
+	local plain = not sep_is_pattern
+	max_splits = max_splits + 1
+	repeat
+		local np, npe = find(str, delim, pos, plain)
+		np, npe = (np or (len+1)), (npe or (len+1))
+		if (not np) or (max_splits == 1) then
+			np = len + 1
+			npe = np
+		end
+		local s = sub(str, pos, np - 1)
+		if include_empty or (s ~= "") then
+			max_splits = max_splits - 1
+			items[#items + 1] = s
+		end
+		pos = npe + 1
+	until (max_splits == 0) or (pos > (len + 1))
+	return items
+end
+
+local files = {
+	"api",
+	"bags",
+	"caches",
+	"callbacks",
+	"common",
+	"compression",
+	"detached_inv",
+	"fields",
+	"groups",
+	"gui",
+	"hud",
+	"model_aliases",
+	"progressive",
+	"styles",
+}
+
+local operators = {
+	["([%+%-%*%^/&|])="] = function(a, b, c)
+		return fmt("%s = %s %s %s", a, a, b, c)
+	end,
+
+	["+%+"] = function(a, b)
+		return fmt("%s = %s + 1\n%s", a, a, b)
+	end,
+
+	["&"] = function(a, b)
+		return fmt("bit.band(%s, %s)", a, b)
+	end,
+
+	["|"] = function(a, b)
+		return fmt("bit.bor(%s, %s)", a, b)
+	end,
+
+	["<<"] = function(a, b)
+		return fmt("bit.lshift(%s, %s)", a, b)
+	end,
+
+	[">>"] = function(a, b)
+		return fmt("bit.rshift(%s, %s)", a, b)
+	end,
+
+	["<<="] = function(a, b)
+		return fmt("%s = bit.lshift(%s, %s)", a, a, b)
+	end,
+
+	[">>="] = function(a, b)
+		return fmt("%s = bit.rshift(%s, %s)", a, a, b)
+	end,
+}
+
+local function compile(data)
+	data = data:gsub("IMPORT%((.-)%)", function(a)
+		return "local " .. a:gsub("\"", "") .. " = i3.get(" .. a .. ")"
+	end)
+
+	data = data:gsub("([%w_]+)%(", function(a)
+		if fs_elements[a] then
+			return fmt("fs('%s',", a)
+		end
+	end)
+
+	data = data:gsub("([%w_]+)-%-\n", function(a)
+		return fmt("%s = %s - 1", a, a)
+	end)
+
+	for op, func in pairs(operators) do
+		data = data:gsub("(" .. var .. "+)%s?" .. op .. "%s?(" .. var .. "*)", func)
+	end
+
+	return data
+end
+
+for _, p in ipairs(files) do
+	local function _load(path, line, data, t)
+		if line then
+			if not t then
+				t = split(data, "\n")
+			end
+			t[line] = t[line]:gsub("(" .. var .. "+)%s?=%s?(" .. var .. "*)", "%2")
+			data = table.concat(t, "\n")
+		else
+			local file = assert(io.open(path, "r"))
+			data = file:read"*a"
+			file:close()
+			data = compile(data)
+		end
+
+		local l, err = loadstring(data)
+
+		if not l then
+			local err_line = tonumber(err:match(":(%d+):"))
+
+			if line ~= err_line then
+				return _load(path, err_line, data, t)
+			end
+		end
+
+		local _file = io.open(path:match("(.*)%.") .. ".lc", "w")
+		_file:write(data)
+		_file:close()
+	end
+
+	_load("../src/" .. p .. ".lua")
+end
+
+exec "luacheck ../init.lua"
+exec "luacheck ../src/preprocessor.lua"
+exec "luacheck ../src/*.lc"
+exec "rm ../src/*.lc"

util/optipng.sh

@@ -0,0 +1,7 @@
+#!/bin/bash
+
+# Colors with 0 alpha need to be preserved, because opaque leaves ignore alpha.
+# For that purpose, the use of indexed colors is disabled (-nc).
+
+cd ../textures
+find -name '*.png' -print0 | xargs -0 optipng -o7 -zm1-9 -nc -strip all -clobber

util/servers.lua

@@ -0,0 +1,23 @@
+local JSON = require"JSON" -- luarocks install json-lua
+os.execute "clear"
+
+local list = io.popen("curl -s -H 'Accept: text/html' http://servers.minetest.net/list"):read("*a")
+      list = JSON:decode(list).list
+
+local servers = {}
+
+for _, server in ipairs(list) do
+	if server.mods then
+		for _, mod in ipairs(server.mods) do
+			if mod == "i3" then
+				table.insert(servers, server.name)
+			end
+		end
+	end
+end
+
+if #servers > 0 then
+	print(("=> %u/%u servers using [i3]:\n\t• %s"):format(#servers, #list, table.concat(servers, "\n\t• ")))
+else
+	print"No server using [i3]"
+end