assert(item == nil); local v = (item == nil) if f1() then print("OK") end if (f1() and f2() and f3()) then print("OK") end local item do local _src_, _dst_ do _dst_ = { pos = { }, flags = flags:tonumber() } do _src_ = self _dst_.id = _src_.id _dst_.connections = _src_.connections _dst_.pos.x = _src_.pos.x _dst_.pos.y = _src_.pos.y _dst_.pos.z = _src_.pos.z end item = _dst_ end end if (x == "Apple" or x == "Pig" or x == "Dog") then print("exist") end local _list_0 = (function() local _accum_0 = { } local _len_0 = 1 local _list_0 = (function() local _accum_1 = { } local _len_1 = 1 local _list_0 = { 1, 2, 3 } for _index_0 = 1, #_list_0 do local _ = _list_0[_index_0] _accum_1[_len_1] = _ * 2 _len_1 = _len_1 + 1 end return _accum_1 end)() for _index_0 = 1, #_list_0 do local _ = _list_0[_index_0] if _ > 4 then _accum_0[_len_0] = _ _len_0 = _len_0 + 1 end end return _accum_0 end)() for _index_0 = 1, #_list_0 do local _ = _list_0[_index_0] print(_) end local _list_1 = (function() local _accum_0 = { } local _len_0 = 1 local _list_1 = (function() local _accum_1 = { } local _len_1 = 1 local _list_1 = { 1, 2, 3 } for _index_0 = 1, #_list_1 do local _ = _list_1[_index_0] _accum_1[_len_1] = _ * 2 _len_1 = _len_1 + 1 end return _accum_1 end)() for _index_0 = 1, #_list_1 do local _ = _list_1[_index_0] if _ > 4 then _accum_0[_len_0] = _ _len_0 = _len_0 + 1 end end return _accum_0 end)() for _index_0 = 1, #_list_1 do local _ = _list_1[_index_0] print(_) end local val do local _2 do local _accum_0 = { } local _len_0 = 1 local _list_2 = { 1, 2, 3 } for _index_0 = 1, #_list_2 do local _ = _list_2[_index_0] _accum_0[_len_0] = _ * 2 _len_0 = _len_0 + 1 end _2 = _accum_0 end local _3 do local _accum_0 = { } local _len_0 = 1 for _index_0 = 1, #_2 do local _ = _2[_index_0] if _ > 4 then _accum_0[_len_0] = _ _len_0 = _len_0 + 1 end end _3 = _accum_0 end local _4 if #_3 == 0 then _4 = 0 else local _1 = 0 for _index_0 = 1, #_3 do local _2 = _3[_index_0] _1 = _1 + _2 end _4 = _1 end val = _4 end (1 + 2):call(123) local res = (1 + 2) local f f = function(x) return function(y) return function(z) return print(x, y, z) end end end do local a = 8 do a = 1 a = a + 1 end a = a + (function() a = 1 return a + 1 end)() print(a) end do local a = 8 a = (function() local a a = 1 return a + 1 end)() a = a + (function() local a a = 1 return a + 1 end)() print(a) end local x = 0; local function f(a) return a + 1 end x = x + f(3); function tb:func() print(123) end print(x) local sel sel = function(a, b, c) if a then return b else return c end end local function sel(a, b, c) if a then return b else return c end end local function dummy() end -- a comment here local _ = require('underscore') local a = ((((_({ 1, 2, 3, 4, -2, 3 })):chain()):map(function(self) return self * 2 end)):filter(function(self) return self > 3 end)):value(); ((((_({ 1, 2, 3, 4, -2, 3 })):chain()):map(function(self) return self * 2 end)):filter(function(self) return self > 3 end)):each(function(self) return print(self) end) local result = ((((((origin.transform.root.gameObject:Parents()):Descendants()):SelectEnable()):SelectVisible()):TagEqual("fx")):Where(function(x) return x.name:EndsWith("(Clone)") end)):Destroy() do local _1 _1 = origin.transform.root.gameObject:Parents() local _2 _2 = _1:Descendants() local _3 _3 = _2:SelectEnable() local _4 _4 = _3:SelectVisible() local _5 _5 = _4:TagEqual("fx") local _6 _6 = _5:Where(function(x) return x.name:EndsWith("(Clone)") end) _6:Destroy() end origin.transform.root.gameObject:Parents():Descendants():SelectEnable():SelectVisible():TagEqual("fx"):Where(function(x) return x.name:EndsWith("(Clone)") end):Destroy() print((setmetatable({ 'abc', a = 123, }, { __call = function(self) return 998 end }))[1], (setmetatable({ 'abc', a = 123, }, { __call = function(self) return 998 end })).a, (setmetatable({ 'abc', a = 123, }, { __call = function(self) return 998 end }))(), setmetatable({ 'abc', a = 123, }, { __call = function(self) return 998 end })) print("current line: " .. tostring(268)); -- TODO do print(1) end _ = function() print(1) local _accum_0 = { } local _len_0 = 1 while false do break _len_0 = _len_0 + 1 end return _accum_0 end print('abc') return 123