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 <const> = {
foo = "Hello",
bar = "World",
baz = "!"
}
local specialized <const> = (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