mods/too_many_items/init.lua

   1 local minetest,pairs = minetest,pairs
   2
   3 local tmi_master_inventory = {}
   4 local pool = {}
   5 local max = 7*7
   6 --2x2 formspec
   7 local base_inv =
   8 "size[17.2,8.75]"..
   9 "background[-0.19,-0.25;9.41,9.49;main_inventory.png]"..
  10 "listcolors[#8b8a89;#c9c3c6;#3e3d3e;#000000;#FFFFFF]"..
  11 "list[current_player;main;0,4.5;9,1;]".. --hot bar
  12 "list[current_player;main;0,6;9,3;9]".. --big part
  13 "list[current_player;craft;2.5,1;2,2;]"..
  14 --armor slots
  15 "list[current_player;armor_head;0.25,0;1,1;]"..
  16 "list[current_player;armor_torso;0.25,1;1,1;]"..
  17 "list[current_player;armor_legs;0.25,2;1,1;]"..
  18 "list[current_player;armor_feet;0.25,3;1,1;]"..
  19 --craft preview with ring
  20 "list[current_player;craftpreview;6.1,1.5;1,1;]"..
  21 "listring[current_player;main]"..
  22 "listring[current_player;craft]"
  23 --this is the 3x3 crafting table formspec
  24 local crafting_table_inv =
  25 "size[17.2,8.75]"..
  26 "background[-0.19,-0.25;9.41,9.49;crafting_inventory_workbench.png]"..
  27 "listcolors[#8b8a89;#c9c3c6;#3e3d3e;#000000;#FFFFFF]"..
  28 "list[current_player;main;0,4.5;9,1;]".. --hot bar
  29 "list[current_player;main;0,6;9,3;9]".. --big part
  30 "list[current_player;craft;1.75,0.5;3,3;]"..
  31 --armor slots
  32 "list[current_player;armor_head;0.25,0;1,1;]"..
  33 "list[current_player;armor_torso;0.25,1;1,1;]"..
  34 "list[current_player;armor_legs;0.25,2;1,1;]"..
  35 "list[current_player;armor_feet;0.25,3;1,1;]"..
  36 --craft preview with ring
  37 "list[current_player;craftpreview;6.1,1.5;1,1;]"..
  38 "listring[current_player;main]"..
  39 "listring[current_player;craft]"
  40 --this is from Linuxdirk, thank you AspireMint for showing me this
  41 local recipe_converter = function (items, width)
  42     local usable_recipe = { {}, {}, {} }
  43
  44     -- The recipe is a shapeless recipe so all items are in one table
  45     if width == 0 then
  46         usable_recipe = items
  47     end
  48
  49     -- x _ _
  50     -- x _ _
  51     -- x _ _
  52     if width == 1 then
  53         usable_recipe[1][1] = items[1] or ''
  54         usable_recipe[2][1] = items[2] or ''
  55         usable_recipe[3][1] = items[3] or ''
  56     end
  57
  58     -- x x _
  59     -- x x _
  60     -- x x _
  61     if width == 2 then
  62         usable_recipe[1][1] = items[1] or ''
  63         usable_recipe[1][2] = items[2] or ''
  64         usable_recipe[2][1] = items[3] or ''
  65         usable_recipe[2][2] = items[4] or ''
  66         usable_recipe[3][1] = items[5] or ''
  67         usable_recipe[3][2] = items[6] or ''
  68     end
  69
  70     -- x x x
  71     -- x x x
  72     -- x x x
  73     if width == 3 then
  74         usable_recipe[1][1] = items[1] or ''
  75         usable_recipe[1][2] = items[2] or ''
  76         usable_recipe[1][3] = items[3] or ''
  77         usable_recipe[2][1] = items[4] or ''
  78         usable_recipe[2][2] = items[5] or ''
  79         usable_recipe[2][3] = items[6] or ''
  80         usable_recipe[3][1] = items[7] or ''
  81         usable_recipe[3][2] = items[8] or ''
  82         usable_recipe[3][3] = items[9] or ''
  83     end
  84     return(usable_recipe)
  85 end
  86
  87 local map_group_to_item = {
  88         ["coal"]  = "main:coal",
  89         ["glass"] = "main:glass",
  90         ["sand"]  = "main:sand",
  91         ["stick"] = "main:stick",
  92         ["stone"] = "main:cobble",
  93         ["tree"]  = "main:tree",
  94         ["wood"]  = "main:wood"
  95 }
  96
  97 local get_if_group = function(item)
  98         if item ~= nil and item:sub(1,6) == "group:" then
  99                 local group_name = item:sub(7, item:len())
 100                 local mapped_item = map_group_to_item[group_name]
 101                 if mapped_item ~= nil then
 102                         return(mapped_item)
 103                 end
 104         end
 105         return(item)
 106 end
 107
 108
 109 local base_x = 0.75
 110 local base_y = -0.5
 111 local output =
 112 "listcolors[#8b8a89;#c9c3c6;#3e3d3e;#000000;#FFFFFF]"..
 113 "list[current_player;main;0,4.5;9,1;]"..   --hot bar
 114 "list[current_player;main;0,6;9,3;9]"..    --main inventory
 115 "button[5,3.5;1,1;toomanyitems.back;back]" --back button
 116 local recipe
 117 local usable_recipe
 118 local function create_craft_formspec(item)
 119         --don't do air
 120         if item == "" then
 121                 return("")
 122         end
 123
 124         recipe = minetest.get_craft_recipe(item)
 125
 126         usable_table = recipe_converter(recipe.items, recipe.width)
 127
 128         if recipe.method == "normal" then
 129                 if usable_table then
 130                         --shaped (regular)
 131                         if recipe.width > 0 then
 132                                 for x = 1,3 do
 133                                         for y = 1,3 do
 134                                                 item = get_if_group(usable_table[x][y])
 135                                                 if item then
 136                                                         output = output.."item_image_button["..base_x+y..","..base_y+x..";1,1;"..item..";"..item..";]"
 137                                                 else
 138                                                         output = output.."item_image_button["..base_x+y..","..base_y+x..";1,1;;;]"
 139                                                 end
 140                                         end
 141                                 end
 142                         --shapeless
 143                         else
 144                                 local i = 1
 145                                 for x = 1,3 do
 146                                         for y = 1,3 do
 147                                                 item = get_if_group(usable_table[i])
 148                                                 if item then
 149                                                         output = output.."item_image_button["..base_x+y..","..base_y+x..";1,1;"..item..";"..item..";]"
 150                                                 else
 151                                                         output = output.."item_image_button["..base_x+y..","..base_y+x..";1,1;;;]"
 152                                                 end
 153                                                 i = i + 1
 154                                         end
 155                                 end
 156                         end
 157                 end
 158         elseif recipe.method == "cooking" then
 159                 item = recipe.items[1]
 160                 output = output.."item_image_button["..(base_x+2)..","..(base_y+1)..";1,1;"..item..";"..item..";]"
 161                 output = output.."image[2.75,1.5;1,1;default_furnace_fire_fg.png]"
 162         end
 163         return(output)
 164 end
 165
 166 local function cheat_button(name)
 167         if pool[name] and pool[name].cheating then
 168                 return("button[11.5,7.6;2,2;toomanyitems.cheat;cheat:on]")
 169         else
 170                 return("button[11.5,7.6;2,2;toomanyitems.cheat;cheat:off]")
 171         end
 172 end
 173
 174
 175 local form
 176 local id
 177 local inv
 178 local item
 179 local stack
 180 local craft_inv
 181 local name
 182 local temp_pool
 183 minetest.register_on_player_receive_fields(function(player, formname, fields)
 184         name = player:get_player_name()
 185         temp_pool = pool[name]
 186
 187         if formname == "" then
 188                 form = base_inv
 189                 id = ""
 190         elseif formname == "crafting" then
 191                 form = crafting_table_inv
 192                 id = "crafting"
 193         end
 194
 195         --"next" button
 196         if fields["toomanyitems.next"] then
 197                 temp_pool.page = temp_pool.page + 1
 198                 --page loops back to first
 199                 if temp_pool.page > tmi_master_inventory.page_limit then
 200                         temp_pool.page = 1
 201                 end
 202                 minetest.show_formspec(name,id, form..tmi_master_inventory["page_"..temp_pool.page]..cheat_button(name))
 203                 minetest.sound_play("lever", {to_player = name,gain=0.7})
 204                 player:set_inventory_formspec(base_inv..tmi_master_inventory["page_"..temp_pool.page]..cheat_button(name))
 205         --"prev" button
 206         elseif fields["toomanyitems.prev"] then
 207                 temp_pool.page = temp_pool.page - 1
 208                 --page loops back to end
 209                 if temp_pool.page < 1 then
 210                         temp_pool.page = tmi_master_inventory.page_limit
 211                 end
 212
 213                 minetest.show_formspec(name,id, form..tmi_master_inventory["page_"..temp_pool.page]..cheat_button(name))
 214                 minetest.sound_play("lever", {to_player = name,gain=0.7})
 215                 player:set_inventory_formspec(base_inv..tmi_master_inventory["page_"..temp_pool.page]..cheat_button(name))
 216         elseif fields["toomanyitems.back"] then
 217
 218                 minetest.show_formspec(name,id, form..tmi_master_inventory["page_"..temp_pool.page]..cheat_button(name))
 219                 minetest.sound_play("lever", {to_player = name,gain=0.7})
 220         --this resets the craft table
 221         elseif fields.quit then
 222                 inv = player:get_inventory()
 223                 dump_craft(player)
 224                 inv:set_width("craft", 2)
 225                 inv:set_size("craft", 4)
 226                 --reset the player inv
 227                 --minetest.show_formspec(name,id, form..tmi_master_inventory["page_"..temp_pool.page]..cheat_button(name))
 228         elseif fields["toomanyitems.cheat"] then
 229                 --check if the player has the give priv
 230                 if (not temp_pool.cheating and minetest.get_player_privs(name).give == true) or temp_pool.cheating == true then
 231                         temp_pool.cheating = not temp_pool.cheating
 232
 233                         minetest.show_formspec(name,id, form..tmi_master_inventory["page_"..temp_pool.page]..cheat_button(name))
 234                         minetest.sound_play("lever", {to_player = name,gain=0.7})
 235                         player:set_inventory_formspec(base_inv..tmi_master_inventory["page_"..temp_pool.page]..cheat_button(name))
 236                 else
 237                         minetest.chat_send_player(name, "Sorry m8, server says I can't let you do that :(")
 238                         minetest.sound_play("lever", {to_player = name,gain=0.7,pitch=0.7})
 239                 end
 240         --this is the "cheating" aka giveme function and craft recipe
 241         elseif fields and type(fields) == "table" and string.match(next(fields),"toomanyitems.") then
 242
 243                 item = string.gsub(next(fields), "toomanyitems.", "")
 244                 stack = ItemStack(item.." 64")
 245                 inv = player:get_inventory()
 246                 if temp_pool.cheating and minetest.get_player_privs(name).give then
 247
 248                         --room for item
 249                         if inv and inv:room_for_item("main",stack) then
 250                                 inv:add_item("main", stack)
 251                                 minetest.sound_play("pickup", {to_player = name,gain=0.7,pitch = math.random(60,100)/100})
 252                         --no room for item
 253                         else
 254                                 minetest.chat_send_player(name, "Might want to clear your inventory")
 255                                 minetest.sound_play("lever", {to_player = name,gain=0.7,pitch=0.7})
 256                         end
 257
 258                 --this is to get the craft recipe
 259                 else
 260                         craft_inv = create_craft_formspec(item)
 261                         if craft_inv and craft_inv ~= "" then
 262                                 minetest.show_formspec(name, id, tmi_master_inventory["page_"..temp_pool.page]..craft_inv..cheat_button(name))
 263                                 minetest.sound_play("lever", {to_player = name,gain=0.7})
 264                         end
 265                 end
 266
 267         end
 268 end)
 269
 270
 271 --run through the items and then set the pages
 272 local item_counter = 0
 273 local page = 1
 274 local x = 0
 275 local y = 0
 276
 277 minetest.register_on_mods_loaded(function()
 278
 279 --sort all items (There is definitely a better way to do this)
 280
 281 --get all craftable items
 282 local all_items_table = {}
 283 for index,data in pairs(minetest.registered_items) do
 284         if data.name ~= "" then
 285                 local recipe = minetest.get_craft_recipe(data.name)
 286                 --only put in craftable items
 287                 if recipe.method then
 288                         table.insert(all_items_table,data.name)
 289                 end
 290         end
 291 end
 292
 293 table.sort(all_items_table)
 294
 295 --dump all the items in
 296
 297 tmi_master_inventory["page_"..page] = "size[17.2,8.75]background[-0.19,-0.25;9.41,9.49;crafting_inventory_workbench.png]"
 298
 299 for _,item in pairs(all_items_table) do
 300         tmi_master_inventory["page_"..page] = tmi_master_inventory["page_"..page].."item_image_button["..(9.25+x)..","..y..";1,1;"..item..";toomanyitems."..item..";]"
 301         x = x + 1
 302         if x > 7 then
 303                 x = 0
 304                 y = y + 1
 305         end
 306         if y > 7 then
 307                 y = 0
 308                 page = page + 1
 309                 tmi_master_inventory["page_"..page] = "size[17.2,8.75]background[-0.19,-0.25;9.41,9.49;crafting_inventory_workbench.png]"
 310         end
 311 end
 312
 313 --add buttons and labels
 314 for i = 1,page do
 315         --set the last page
 316         tmi_master_inventory["page_"..i] = tmi_master_inventory["page_"..i].."button[9.25,7.6;2,2;toomanyitems.prev;prev]"..
 317         "button[15.25,7.6;2,2;toomanyitems.next;next]"..
 318         --this is +1 so it makes more sense
 319         "label[13.75,8.25;page "..i.."/"..page.."]"
 320 end
 321
 322 tmi_master_inventory.page_limit = page
 323
 324 --override crafting table
 325 local name
 326 local temp_pool
 327
 328 minetest.override_item("craftingtable:craftingtable", {
 329          on_rightclick = function(pos, node, player, itemstack)
 330                 name = player:get_player_name()
 331                 temp_pool = pool[name]
 332                 player:get_inventory():set_width("craft", 3)
 333                 player:get_inventory():set_size("craft", 9)
 334                 minetest.show_formspec(name, "crafting", crafting_table_inv..tmi_master_inventory["page_"..temp_pool.page]..cheat_button(name))
 335         end
 336 })
 337 end)
 338
 339
 340 --set new players inventory up
 341 local name
 342 local temp_pool
 343 local inv
 344 minetest.register_on_joinplayer(function(player)
 345         name = player:get_player_name()
 346         pool[name] = {}
 347         temp_pool = pool[name]
 348
 349         temp_pool.page = 1
 350         temp_pool.cheating = false
 351
 352         inv = player:get_inventory()
 353         inv:set_width("craft", 2)
 354         inv:set_width("main", 9)
 355         inv:set_size("main", 9*4)
 356         inv:set_size("craft", 4)
 357
 358         player:set_inventory_formspec(base_inv..tmi_master_inventory["page_1"]..cheat_button(name))
 359
 360         player:hud_set_hotbar_itemcount(9)
 361         player:hud_set_hotbar_image("inventory_hotbar.png")
 362         player:hud_set_hotbar_selected_image("hotbar_selected.png")
 363 end)
 364
 365 local name
 366 minetest.register_on_leaveplayer(function(player)
 367         name = player:get_player_name()
 368         pool[name] = nil
 369 end)