local backpack = { something = { yeah = 200, they = function() print("hello") return yor_feet("small") end, pretty = hair, gold = hmm }, yow = 1000, eat = goo, yeah = dudd } local start = { something = "cold" } local bathe = { on = "fire" } local another = { [4] = 232, ["good food"] = "is the best" } local fwip = { something = hello("what"), number = 2323, what = yo("momma", "yeah"), fruit = basket, nuts = day } local frick = { hello = "world" } local frack, best = { hello = "world", rice = 3434 }, "what" local ya = { 1, 2, 3, key = 100, 343, "hello", umm = 232 } local x = { 1, 2, 4343, 343, 343 } local g, p = { 1, 2, nowy = "yes", 3, 4, hey = 232, another = "day" }, 234 local annother = { 1, 2, 3, 3, 4, 5, 6, 7, 8 } local yeah = { [232] = 3434, "helo", ice = "cake" } local whatabout = { hello(world, another), what, about, now, hello("world"), yeah, hello("world", yeah) } x = { something = function(self) return "hello" end, cool = { bed = { 2323, 2323 }, red = 2343 }, name = function(self, node) return self:value(node) end } x = { something = something, something = something } local y = { hi = hi, there = there, how = how, you = you, thing = thing } call_me("hello", { x = x, y = y, z = z }) local t = { a = 'a', [b] = 'b' } local xam = { hello = 1234, ["hello"] = 12354, [ [[hello]]] = 12354, ["hello"] = 12354, [ [[hello]]] = 12354 } local kam = { hello = 12, goodcheese = "mmm", yeah = 12 + 232, lets = keepit({ going = true, okay = "yeah" }), more = { 1, (function() local _accum_0 = { } local _len_0 = 1 for x = 1, 10 do _accum_0[_len_0] = x _len_0 = _len_0 + 1 end return _accum_0 end)() }, [{ "one", "two" }] = one_thing(function(self) end) } keepit({ going = true, okay = "yeah", workd = "okay" }) thing({ what = "great", no = "more", okay = 123 }) thing({ what = "great", no = "more" }) local _ = { okay = 123 } local k = { ["hello"] = "world" } k = { ['hello'] = 'world' } k = { ["hello"] = 'world', ["hat"] = "zat" } please({ ["hello"] = "world" }) k = { ["hello"] = "world", ["one"] = "zone" } local f = "one", { ["two"] = three }, "four" f = { ["two"] = three }, "four" f = { "one", ["two"] = three, "four" } local j = "one", { ["two"] = three, ["four"] = five }, 6, 7 local heroine = { name = "Christina", age = 18, job = "Princess", likes = { { name = "kittens", img = "/image/kittens.png" }, { name = "flower", img = "/image/flower.png" } }, items = { { name = "ring", amount = 2 }, { name = "necklace", amount = 1 } }, status = { desc = "weak", { attribute = "health", value = 50 }, { attribute = "mana", value = 100 } } } local inventory = { equipment = { "sword", "shield" }, items = { { name = "potion", count = 10 }, { name = "bread", count = 3 } } } local items = { func(), (function() local _with_0 = tb _with_0.abc = 123 return _with_0 end)(), { 1, 2, 3 }, f({ 1, 2, 3 }), f({ 1, 2, 3 }), (function() local _accum_0 = { } local _len_0 = 1 for i = 1, 3 do _accum_0[_len_0] = i _len_0 = _len_0 + 1 end return _accum_0 end)(), tostring((function() if a then return b end end)()) } local pairs = { { "king", "queen" }, { "hero", "princess" } } items = { { name = "ring", amount = 2 }, { name = "necklace", amount = 1 } } local menus = { { text = "Save", sub = { { text = "Slot 1: " .. (slots[1].name or "None"), click = function() end }, { text = { "Slot 2" }, click = function() end }, { text = [[Slot 3]], click = function() end }, { text = ("Slot 4"):name(), click = function() end }, { text = ({ { "slot5" } })[1]:name(), click = function() end }, [6] = { text = ("Slot 6"), click = function() end } } } } local tb do local _tab_0 = { } local _idx_0 = 1 for _key_0, _value_0 in pairs(other) do if _idx_0 == _key_0 then _tab_0[#_tab_0 + 1] = _value_0 _idx_0 = _idx_0 + 1 else _tab_0[_key_0] = _value_0 end end tb = _tab_0 end local tbMix do local _tab_0 = { 1, 2, 3 } local _obj_0 do local _with_0 = item _with_0.x = 1 _with_0:func() _obj_0 = _with_0 end local _idx_0 = 1 for _key_0, _value_0 in pairs(_obj_0) do if _idx_0 == _key_0 then _tab_0[#_tab_0 + 1] = _value_0 _idx_0 = _idx_0 + 1 else _tab_0[_key_0] = _value_0 end end _tab_0[#_tab_0 + 1] = "a" _tab_0[#_tab_0 + 1] = "b" _tab_0[#_tab_0 + 1] = "c" local _obj_1 do local _obj_2 = func if _obj_2 ~= nil then _obj_1 = _obj_2() end end local _idx_1 = 1 for _key_0, _value_0 in pairs(_obj_1) do if _idx_1 == _key_0 then _tab_0[#_tab_0 + 1] = _value_0 _idx_1 = _idx_1 + 1 else _tab_0[_key_0] = _value_0 end end _tab_0.key = "value" for _index_0 = 1, select('#', ...) do _tab_0[#_tab_0 + 1] = select(_index_0, ...) end tbMix = _tab_0 end local tbMixA do local _tab_0 = { } local _obj_0 do local _accum_0 = { } local _len_0 = 1 for i = 1, 10 do _accum_0[_len_0] = i _len_0 = _len_0 + 1 end _obj_0 = _accum_0 end local _idx_0 = 1 for _key_0, _value_0 in pairs(_obj_0) do if _idx_0 == _key_0 then _tab_0[#_tab_0 + 1] = _value_0 _idx_0 = _idx_0 + 1 else _tab_0[_key_0] = _value_0 end end _tab_0[#_tab_0 + 1] = 11 tbMixA = _tab_0 end local tbMixB do local _tab_0 = { } local _obj_0 = ... local _idx_0 = 1 for _key_0, _value_0 in pairs(_obj_0) do if _idx_0 == _key_0 then _tab_0[#_tab_0 + 1] = _value_0 _idx_0 = _idx_0 + 1 else _tab_0[_key_0] = _value_0 end end local _obj_1 = { ... } local _idx_1 = 1 for _key_0, _value_0 in pairs(_obj_1) do if _idx_1 == _key_0 then _tab_0[#_tab_0 + 1] = _value_0 _idx_1 = _idx_1 + 1 else _tab_0[_key_0] = _value_0 end end local _obj_2 do local _tab_1 = { } local _obj_3 = ... local _idx_2 = 1 for _key_0, _value_0 in pairs(_obj_3) do if _idx_2 == _key_0 then _tab_1[#_tab_1 + 1] = _value_0 _idx_2 = _idx_2 + 1 else _tab_1[_key_0] = _value_0 end end _obj_2 = _tab_1 end local _idx_2 = 1 for _key_0, _value_0 in pairs(_obj_2) do if _idx_2 == _key_0 then _tab_0[#_tab_0 + 1] = _value_0 _idx_2 = _idx_2 + 1 else _tab_0[_key_0] = _value_0 end end _tab_0[#_tab_0 + 1] = 1 _tab_0[#_tab_0 + 1] = 2 _tab_0[#_tab_0 + 1] = 3 tbMixB = _tab_0 end local template = { foo = "Hello", bar = "World", baz = "!" } local specialized = (function() local _tab_0 = { } local _idx_0 = 1 for _key_0, _value_0 in pairs(template) do if _idx_0 == _key_0 then _tab_0[#_tab_0 + 1] = _value_0 _idx_0 = _idx_0 + 1 else _tab_0[_key_0] = _value_0 end end _tab_0.bar = "Bob" return _tab_0 end)() local specializedB do local _tab_0 = { ["function"] = function() end } local _idx_0 = 1 for _key_0, _value_0 in pairs(template) do if _idx_0 == _key_0 then _tab_0[#_tab_0 + 1] = _value_0 _idx_0 = _idx_0 + 1 else _tab_0[_key_0] = _value_0 end end _tab_0["end"] = function() end _tab_0["if"] = true _tab_0["else"] = false specializedB = _tab_0 end local parts = { "shoulders", "knees" } local lyrics do local _tab_0 = { "head" } local _idx_0 = 1 for _key_0, _value_0 in pairs(parts) do if _idx_0 == _key_0 then _tab_0[#_tab_0 + 1] = _value_0 _idx_0 = _idx_0 + 1 else _tab_0[_key_0] = _value_0 end end _tab_0[#_tab_0 + 1] = "and" _tab_0[#_tab_0 + 1] = "toes" lyrics = _tab_0 end local tbBlock = { sub = (function(...) local _tab_0 = { value = value } local _idx_0 = 1 for _key_0, _value_0 in pairs(items) do if _idx_0 == _key_0 then _tab_0[#_tab_0 + 1] = _value_0 _idx_0 = _idx_0 + 1 else _tab_0[_key_0] = _value_0 end end for _index_0 = 1, select('#', ...) do _tab_0[#_tab_0 + 1] = select(_index_0, ...) end return _tab_0 end)(...) } func((function(...) local _tab_0 = { } local _idx_0 = 1 for _key_0, _value_0 in pairs(items) do if _idx_0 == _key_0 then _tab_0[#_tab_0 + 1] = _value_0 _idx_0 = _idx_0 + 1 else _tab_0[_key_0] = _value_0 end end _tab_0.value = value _tab_0[#_tab_0 + 1] = ... _tab_0.k = v for _index_0 = 1, select('#', ...) do _tab_0[#_tab_0 + 1] = select(_index_0, ...) end return _tab_0 end)(...)) return nil