1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
|
do
local print = print
local math = math
print("hello")
math.random(10)
end
do
local print = print
local value = 1
value = value + 2
print(value)
end
do
local print
print = function(msg)
return msg
end
do
local math = math
print("local")
math.random(1)
end
end
do
local print = print
local tostring
tostring = function(v)
return "local"
end
tostring("value")
print(tostring(123))
end
do
local func
func = function(x, y)
local type = type
local tostring = tostring
local print = print
return type(x, tostring(y, print))
end
func(1, 2)
end
do
local func = func
local xpcall = xpcall
local world = world
local tostring = tostring
local print = print
xpcall(function()
return func("hello " .. tostring(world))
end, function(err)
return print(err)
end)
end
do
local print = print
print(FLAG)
FLAG = 123
end
do
local print = print
Foo = 10
print(Foo)
Foo = Foo + 2
end
do
local print = print
Bar = 1
Baz = 2
print(Bar, Baz)
end
do
local y = y
x = 3434
if y then
x = 10
end
end
do
local lowercase = lowercase
local tostring = tostring
local Uppercase = Uppercase
local foobar = "all " .. tostring(lowercase)
FooBar = "pascal case"
FOOBAR = "all " .. tostring(Uppercase)
end
do
local setmetatable = setmetatable
local print = print
do
local _class_0
local _base_0 = { }
if _base_0.__index == nil then
_base_0.__index = _base_0
end
_class_0 = setmetatable({
__init = function() end,
__base = _base_0,
__name = "A"
}, {
__index = _base_0,
__call = function(cls, ...)
local _self_0 = setmetatable({ }, _base_0)
cls.__init(_self_0, ...)
return _self_0
end
})
_base_0.__class = _class_0
A = _class_0
end
Flag = 1
const, x, y = "const", 1, 2
print(math, table)
end
do
local X = X
X:func(1, 2, 3)
X.tag = "abc"
end
local _anon_func_0 = function(func)
return func
end
do
local func = func
local pcall = pcall
local f
f = function()
func()
return pcall(_anon_func_0, func)
end
end
do
local func = func
local pcall = pcall
local print = print
local Item = Item
local f
f = function()
local result
local _ok_0, _ret_0 = pcall(func)
if _ok_0 then
result = _ret_0
end
if result then
return print(result)
end
end
if 1 == Item then
print("one")
elseif 2 == Item then
print("two")
end
end
local b = b
local a = a
local c = c
local print = print
local _anon_func_1 = function()
local _cond_0 = b()
if not (a() < _cond_0) then
return false
else
return _cond_0 < c()
end
end
local f
f = function()
if _anon_func_1() then
return print("OK")
end
end
|
