-- Decompiler will be improved soon!
-- Decompiled with Konstant V2.1, a fast Luau decompiler made in Luau by plusgiant5 (https://discord.gg/wyButjTMhM)
-- Decompiled on 2025-01-24 06:36:15
-- Luau version 6, Types version 3
-- Time taken: 0.016482 seconds

return (function(arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8, arg9, arg10, arg11, arg12, arg13, arg14, arg15, arg16, arg17, arg18, arg19, arg20, arg21, arg22, arg23, arg24, arg25, arg26, arg27, arg28, arg29, arg30, arg31, arg32, arg33, arg34, arg35) -- Line 3
	-- KONSTANTERROR: [0] 1. Error Block 1 start (CF ANALYSIS FAILED)
	local const_number_3 = 70
	-- KONSTANTERROR: [0] 1. Error Block 1 end (CF ANALYSIS FAILED)
	-- KONSTANTERROR: [181] 160. Error Block 48 start (CF ANALYSIS FAILED)
	-- KONSTANTERROR: [181] 160. Error Block 48 end (CF ANALYSIS FAILED)
	-- KONSTANTERROR: [7] 7. Error Block 630 start (CF ANALYSIS FAILED)
	-- KONSTANTWARNING: Failed to evaluate expression, replaced with nil [181.10438]
	-- KONSTANTWARNING: Failed to evaluate expression, replaced with nil [181.40]
	if const_number_3 <= nil then
		-- KONSTANTERROR: Expression was reused, decompilation is incorrect
		if const_number_3 <= nil then
			-- KONSTANTWARNING: GOTO [185] #164
		end
		-- KONSTANTWARNING: GOTO [14] #12
	end
	-- KONSTANTERROR: [7] 7. Error Block 630 end (CF ANALYSIS FAILED)
end)(2, bit32.lrotate, 15, string.pack, setfenv, string, bit32.band, 14, bit32.bor, 4165, 1, {
	w = bit32.band;
	i = string.sub;
	B = bit32.rshift;
	_ = bit32.bxor;
	t = bit32.bor;
	f = bit32.bnot;
	J = bit32.lshift;
	m = table.move;
	s = bit32.countlz;
	E = string.match;
	o = table.create;
	q = bit32.countrz;
	Z = bit32.rrotate;
	b = bit32.lrotate;
}, getfenv, bit32.rshift, nil, bit32, coroutine, 3, string.gsub, string.char, bit32.bxor, select, bit32.bnot, 5, 6, setmetatable, 4, string.unpack, 3, 1, next, tostring, function(...) -- Line 3
	...[...] = nil
end, {function() -- Line 3
	return function(arg1, arg2, arg3) -- Line 3
		if not arg3 then
			local var10 = #arg1 + 1
			arg1[var10] = arg2
		else
			for i_12 = #arg1, var10, -1 do
				arg1[i_12 + 1] = arg1[i_12]
			end
			-- KONSTANTERROR: Expression was reused, decompilation is incorrect
			arg1[var10] = arg2
		end
	end
end, function() -- Line 3
	return function(arg1, arg2) -- Line 3
		for _, v in arg1 do
			if v == arg2 then
				return true
			end
		end
	end
end, function() -- Line 3
	return function(arg1) -- Line 3
		return arg1 - arg1 % 1
	end
end, function(arg1) -- Line 3
	local _0_upvr_3 = arg1[0]
	return function(arg1_2) -- Line 3
		--[[ Upvalues[1]:
			[1]: _0_upvr_3 (readonly)
		]]
		local var21_upvw = arg1_2 % 2147483647
		return function(arg1_3, arg2) -- Line 3
			--[[ Upvalues[2]:
				[1]: var21_upvw (read and write)
				[2]: _0_upvr_3 (copied, readonly)
			]]
			var21_upvw = (16807 * var21_upvw + 0) % 2147483647
			if not arg1_3 then
				return var21_upvw / 2147483647
			end
			if not arg2 then
				if arg1_3 == 0 then
					return var21_upvw
				end
				return _0_upvr_3(1 + var21_upvw % arg1_3)
			end
			return _0_upvr_3(arg1_3 + var21_upvw % (arg2 - arg1_3 + 1))
		end
	end
end, function(arg1) -- Line 3
	local _0_upvr_21 = arg1[0]
	return function(arg1_4, arg2) -- Line 3
		--[[ Upvalues[1]:
			[1]: _0_upvr_21 (readonly)
		]]
		local var25 = arg2 or 1
		if not arg1_4[var25] then return end
		return arg1_4[var25], _0_upvr_21[1][_0_upvr_21[3]](arg1_4, var25 + 1)
	end
end, function() -- Line 3
	return function(arg1, arg2) -- Line 3
		-- KONSTANTWARNING: Variable analysis failed. Output will have some incorrect variable assignments
		local var32
		if var32 == 0 then
			var32 = ""
			return var32
		end
		var32 = arg1[1]
		for i_2 = 2, #arg1 do
			var32 = var32..(arg2 or "")..arg1[i_2]
		end
		return var32
	end
end, function(arg1) -- Line 3
	local _0_upvr_12 = arg1[0]
	local _1_upvr_10 = arg1[1]
	return function(...) -- Line 3
		--[[ Upvalues[2]:
			[1]: _0_upvr_12 (readonly)
			[2]: _1_upvr_10 (readonly)
		]]
		local args_list = {...}
		local module_3 = {}
		for i_3 = 1, #args_list do
			module_3[i_3] = _0_upvr_12[args_list[i_3]]
		end
		return _1_upvr_10(module_3)
	end
end, function(arg1) -- Line 3
	local _0_upvr_22 = arg1[0]
	local _1_upvr_6 = arg1[1]
	local _2_upvr_8 = arg1[2]
	local _3_upvr_4 = arg1[3]
	return function(arg1_5, arg2, arg3, arg4) -- Line 3
		--[[ Upvalues[4]:
			[1]: _0_upvr_22 (readonly)
			[2]: _1_upvr_6 (readonly)
			[3]: _2_upvr_8 (readonly)
			[4]: _3_upvr_4 (readonly)
		]]
		-- KONSTANTWARNING: Variable analysis failed. Output will have some incorrect variable assignments
		-- KONSTANTERROR: [0] 1. Error Block 32 start (CF ANALYSIS FAILED)
		local var63 = arg2 or 1
		local var64 = arg3 or var63
		local var65
		if _0_upvr_22[arg1_5] then
			for i_4 = var63, var64 do
				var65 = #{}
				var65 = _0_upvr_22[arg1_5][i_4]
				;({})[var65 + 1] = var65
				local var67
			end
			return _1_upvr_6[1][_1_upvr_6[3]](var67)
		end
		local tbl_10 = {}
		local tbl_4 = {}
		local const_number_2 = 1
		-- KONSTANTERROR: [0] 1. Error Block 32 end (CF ANALYSIS FAILED)
		-- KONSTANTERROR: [64] 59. Error Block 28 start (CF ANALYSIS FAILED)
		if not var65 then
			tbl_10[#tbl_10 + 1] = 255
			if var63 <= const_number_2 and const_number_2 <= var64 then
				tbl_4[#tbl_4 + 1] = 255
			end
		end
		-- KONSTANTERROR: [64] 59. Error Block 28 end (CF ANALYSIS FAILED)
		-- KONSTANTERROR: [35] 33. Error Block 6 start (CF ANALYSIS FAILED)
		-- KONSTANTERROR: [35] 33. Error Block 6 end (CF ANALYSIS FAILED)
	end
end, function(arg1) -- Line 3
	local _0_upvr_5 = arg1[0]
	local _1_upvr_16 = arg1[1]
	local _2_upvr_9 = arg1[2]
	local _3_upvr_5 = arg1[3]
	return function(arg1_6, arg2, arg3, arg4) -- Line 3
		--[[ Upvalues[4]:
			[1]: _0_upvr_5 (readonly)
			[2]: _1_upvr_16 (readonly)
			[3]: _2_upvr_9 (readonly)
			[4]: _3_upvr_5 (readonly)
		]]
		-- KONSTANTWARNING: Variable analysis failed. Output will have some incorrect variable assignments
		-- KONSTANTERROR: [0] 1. Error Block 35 start (CF ANALYSIS FAILED)
		local var93 = arg2 or 1
		local var94 = arg3
		if not var94 then
			var94 = #arg1_6
		end
		local var95 = var94
		if _0_upvr_5[arg1_6] then
			local tbl_8 = {}
			for i_5 = var93, var95 do
				tbl_8[#tbl_8 + 1] = _1_upvr_16[_0_upvr_5[arg1_6][i_5]]
				local var97
			end
			return _2_upvr_9(var97)
		end
		local tbl = {}
		local tbl_7 = {}
		local const_number = 1
		-- KONSTANTERROR: [0] 1. Error Block 35 end (CF ANALYSIS FAILED)
		-- KONSTANTERROR: [67] 62. Error Block 30 start (CF ANALYSIS FAILED)
		-- KONSTANTERROR: Expression was reused, decompilation is incorrect
		if not _1_upvr_16[_0_upvr_5[arg1_6][i_5]] then
			tbl[#tbl + 1] = 255
			if var93 <= const_number and const_number <= var95 then
				tbl_7[#tbl_7 + 1] = _1_upvr_16[255]
			end
		end
		-- KONSTANTERROR: [67] 62. Error Block 30 end (CF ANALYSIS FAILED)
		-- KONSTANTERROR: [36] 34. Error Block 8 start (CF ANALYSIS FAILED)
		-- KONSTANTERROR: [36] 34. Error Block 8 end (CF ANALYSIS FAILED)
	end
end, function(arg1) -- Line 3
	local _0_upvr_20 = arg1[0]
	local _1_upvr_15 = arg1[1]
	return function(arg1_7, arg2) -- Line 3
		--[[ Upvalues[2]:
			[1]: _0_upvr_20 (readonly)
			[2]: _1_upvr_15 (readonly)
		]]
		local var105 = arg2 or ','
		local module = {}
		local len_2 = #var105
		local len = #arg1_7
		local const_number_7 = 1
		local var110
		while const_number_7 <= len do
			if const_number_7 + len_2 - 1 <= len and _0_upvr_20(arg1_7, const_number_7, const_number_7 + len_2 - 1) == var105 then
				_1_upvr_15(module, _0_upvr_20(arg1_7, var110, const_number_7 - 1))
				var110 = const_number_7 + len_2
			else
			end
		end
		if var110 <= len then
			_1_upvr_15(module, _0_upvr_20(arg1_7, var110, len))
		end
		return module
	end
end, function(arg1) -- Line 3
	local _0_upvr_19 = arg1[0]
	local _1_upvr_11 = arg1[1]
	return function(arg1_8) -- Line 3
		--[[ Upvalues[2]:
			[1]: _0_upvr_19 (readonly)
			[2]: _1_upvr_11 (readonly)
		]]
		local var119 = 0
		for i_6, v_2 in pairs({_0_upvr_19(arg1_8, 1, #arg1_8, true)}) do
			var119 += _1_upvr_11[v_2] * 16 ^ (#arg1_8 - i_6)
		end
		return var119
	end
end, function(arg1) -- Line 3
	local _0_upvr_10 = arg1[0]
	local _1_upvr = arg1[1]
	local _2_upvr_7 = arg1[2]
	local _3_upvr = arg1[3]
	local _4_upvr_3 = arg1[4]
	return function(arg1_9, arg2) -- Line 3
		--[[ Upvalues[5]:
			[1]: _0_upvr_10 (readonly)
			[2]: _1_upvr (readonly)
			[3]: _2_upvr_7 (readonly)
			[4]: _3_upvr (readonly)
			[5]: _4_upvr_3 (readonly)
		]]
		arg1_9 = _0_upvr_10(arg1_9)
		local var131
		if not arg2 or arg2 == 10 then
			return var131..""
		end
		local module_2 = {}
		local var133 = ""
		if var131 < 0 then
			var133 = '-'
			var131 = -var131
		end
		repeat
			local var134 = var131 % arg2 + 1
			var131 = _0_upvr_10(var131 / arg2)
			_1_upvr(module_2, 1, _2_upvr_7(_3_upvr, var134, var134))
		until var131 == 0
		return var133.._4_upvr_3(module_2)
	end
end, function(arg1) -- Line 3
	local _0_upvr_18 = arg1[0]
	local _1_upvr_3 = arg1[1]
	return function(arg1_10) -- Line 3
		--[[ Upvalues[2]:
			[1]: _0_upvr_18 (readonly)
			[2]: _1_upvr_3 (readonly)
		]]
		local var141 = ""
		for i_7 = 1, #arg1_10 do
			local _0_upvr_18_result1 = _0_upvr_18(_1_upvr_3(arg1_10, i_7), 36)
			var141 = var141..(#_0_upvr_18_result1).._0_upvr_18_result1
		end
		return var141
	end
end, function(arg1) -- Line 3
	local _0_upvr = arg1[0]
	local _1_upvr_14 = arg1[1]
	return function(arg1_11) -- Line 3
		--[[ Upvalues[2]:
			[1]: _0_upvr (readonly)
			[2]: _1_upvr_14 (readonly)
		]]
		local const_number_4 = 1
		local var148
		while const_number_4 <= #arg1_11 do
			var148 = var148.._1_upvr_14(tonumber(_0_upvr(arg1_11, const_number_4 + 1, const_number_4 + _0_upvr(arg1_11, const_number_4, const_number_4)), 36))
		end
		return var148
	end
end, function(arg1) -- Line 3
	local _0_upvr_17 = arg1[0]
	local _1_upvr_7 = arg1[1]
	local _2_upvr_5 = arg1[2]
	local _3_upvr_3 = arg1[3]
	local _4_upvr_2 = arg1[4]
	return function() -- Line 3
		--[[ Upvalues[5]:
			[1]: _0_upvr_17 (readonly)
			[2]: _1_upvr_7 (readonly)
			[3]: _2_upvr_5 (readonly)
			[4]: _3_upvr_3 (readonly)
			[5]: _4_upvr_2 (readonly)
		]]
		_0_upvr_17(_1_upvr_7[_2_upvr_5[1][_2_upvr_5[3]]("$ENC_26622W26F22T26Y")], function(arg1_12, arg2, arg3) -- Line 3
			--[[ Upvalues[2]:
				[1]: _3_upvr_3 (copied, readonly)
				[2]: _4_upvr_2 (copied, readonly)
			]]
			if arg1_12 == _3_upvr_3 and not arg3 then
				_4_upvr_2()
			end
		end)
	end
end, function(arg1) -- Line 3
	local _0_upvr_23 = arg1[0]
	return function() -- Line 3
		--[[ Upvalues[1]:
			[1]: _0_upvr_23 (readonly)
		]]
		return {function() -- Line 3
			--[[ Upvalues[1]:
				[1]: _0_upvr_23 (copied, readonly)
			]]
			return _0_upvr_23[{}]
		end, function() -- Line 3
			--[[ Upvalues[1]:
				[1]: _0_upvr_23 (copied, readonly)
			]]
			return _0_upvr_23:___()
		end, function() -- Line 3
			--[[ Upvalues[1]:
				[1]: _0_upvr_23 (copied, readonly)
			]]
			_0_upvr_23[""] = ""
		end}
	end
end, function(arg1) -- Line 3
	local _0_upvr_15 = arg1[0]
	local _1_upvr_13 = arg1[1]
	local _2_upvr_4 = arg1[2]
	return function() -- Line 3
		--[[ Upvalues[3]:
			[1]: _0_upvr_15 (readonly)
			[2]: _1_upvr_13 (readonly)
			[3]: _2_upvr_4 (readonly)
		]]
		for _, v_3 in _0_upvr_15[1][_0_upvr_15[3]] do
			_1_upvr_13(_2_upvr_4, ({xpcall(v_3, function() -- Line 3
				return debug.info(2, 'f')
			end)})[2])
		end
	end
end, function(arg1) -- Line 3
	local _0_upvr_14 = arg1[0]
	local _1_upvr_18 = arg1[1]
	local _2_upvr_3 = arg1[2]
	return function() -- Line 3
		--[[ Upvalues[3]:
			[1]: _0_upvr_14 (readonly)
			[2]: _1_upvr_18 (readonly)
			[3]: _2_upvr_3 (readonly)
		]]
		_0_upvr_14[1][_0_upvr_14[3]] = _1_upvr_18:Invoke(_2_upvr_3)
	end
end, function(arg1) -- Line 3
	local _0_upvr_13 = arg1[0]
	local _1_upvr_17 = arg1[1]
	local _2_upvr_6 = arg1[2]
	return function() -- Line 3
		--[[ Upvalues[3]:
			[1]: _0_upvr_13 (readonly)
			[2]: _1_upvr_17 (readonly)
			[3]: _2_upvr_6 (readonly)
		]]
		xpcall(function() -- Line 3
			--[[ Upvalues[1]:
				[1]: _0_upvr_13 (copied, readonly)
			]]
			return _0_upvr_13[{}]
		end, function() -- Line 3
			--[[ Upvalues[2]:
				[1]: _1_upvr_17 (copied, readonly)
				[2]: _2_upvr_6 (copied, readonly)
			]]
			if pcall(getfenv, _1_upvr_17) then
				_2_upvr_6[1][_2_upvr_6[3]] = true
			end
		end)
	end
end, function(arg1) -- Line 3
	local _0_upvr_2 = arg1[0]
	return function() -- Line 3
		--[[ Upvalues[1]:
			[1]: _0_upvr_2 (readonly)
		]]
		return ({xpcall(_0_upvr_2, function() -- Line 3
			return debug.info(2, 'f')
		end)})[2]
	end
end, function(arg1) -- Line 3
	local _0_upvr_11 = arg1[0]
	local _1_upvr_8 = arg1[1]
	local _2_upvr_2 = arg1[2]
	return function() -- Line 3
		--[[ Upvalues[3]:
			[1]: _0_upvr_11 (readonly)
			[2]: _1_upvr_8 (readonly)
			[3]: _2_upvr_2 (readonly)
		]]
		xpcall(function() -- Line 3
			--[[ Upvalues[1]:
				[1]: _0_upvr_11 (copied, readonly)
			]]
			return getfenv()[_0_upvr_11[1][_0_upvr_11[3]]("$ENC_27023F26W233")]:SendMessage("sam i am, green eggs and ham.")
		end, function() -- Line 3
			--[[ Upvalues[2]:
				[1]: _1_upvr_8 (copied, readonly)
				[2]: _2_upvr_2 (copied, readonly)
			]]
			if pcall(getfenv, _1_upvr_8) then
				_2_upvr_2[1][_2_upvr_2[3]] = true
			end
		end)
	end
end, function(arg1) -- Line 3
	local _0_upvr_4 = arg1[0]
	return function() -- Line 3
		--[[ Upvalues[1]:
			[1]: _0_upvr_4 (readonly)
		]]
		_0_upvr_4:getmemoryUsageMbForTag(Enum.DeveloperMemoryTag.LuaHeap)
	end
end, function(arg1) -- Line 3
	local _0_upvr_9 = arg1[0]
	local _1_upvr_12 = arg1[1]
	return function() -- Line 3
		--[[ Upvalues[2]:
			[1]: _0_upvr_9 (readonly)
			[2]: _1_upvr_12 (readonly)
		]]
		_0_upvr_9:FireServer(_1_upvr_12)
	end
end, function(arg1) -- Line 3
	local _0_upvr_8 = arg1[0]
	local _1_upvr_5 = arg1[1]
	return function() -- Line 3
		--[[ Upvalues[2]:
			[1]: _0_upvr_8 (readonly)
			[2]: _1_upvr_5 (readonly)
		]]
		for i_9 = 9, 25 do
			if not pcall(getfenv, i_9) then
				_0_upvr_8[1][_0_upvr_8[3]] = i_9
				return
			end
			local func = debug.info(i_9 + 1, 'f')
			if type(func) == "function" then
				_1_upvr_5(func)
			end
		end
	end
end, function(arg1) -- Line 3
	local _0_upvr_7 = arg1[0]
	local _1_upvr_2 = arg1[1]
	return function() -- Line 3
		--[[ Upvalues[2]:
			[1]: _0_upvr_7 (readonly)
			[2]: _1_upvr_2 (readonly)
		]]
		for i_10 = 2, 15 do
			local pcall_result1, pcall_result2_2 = pcall(getfenv, i_10)
			if pcall_result1 and pcall_result2_2.hookfunction then
				_0_upvr_7[1][_0_upvr_7[3]] = true
				return
			end
			if i_10 % 5 == 0 then
				_1_upvr_2()
			end
		end
	end
end, function(arg1) -- Line 3
	local _0_upvr_16 = arg1[0]
	local _1_upvr_9 = arg1[1]
	return function() -- Line 3
		--[[ Upvalues[2]:
			[1]: _0_upvr_16 (readonly)
			[2]: _1_upvr_9 (readonly)
		]]
		for i_11 = 2, 15 do
			local pcall_result1_2, pcall_result2 = pcall(getfenv, i_11)
			if pcall_result1_2 and pcall_result2.hookfunction then
				_0_upvr_16[1][_0_upvr_16[3]] = true
				return
			end
			if i_11 % 5 == 0 then
				_1_upvr_9()
			end
		end
	end
end, function(arg1) -- Line 3
	local _0_upvr_6 = arg1[0]
	local _1_upvr_4 = arg1[1]
	local _2_upvr = arg1[2]
	local _3_upvr_2 = arg1[3]
	local _4_upvr = arg1[4]
	return function() -- Line 3
		--[[ Upvalues[5]:
			[1]: _0_upvr_6 (readonly)
			[2]: _1_upvr_4 (readonly)
			[3]: _2_upvr (readonly)
			[4]: _3_upvr_2 (readonly)
			[5]: _4_upvr (readonly)
		]]
		local var227_result1 = _0_upvr_6({getfenv()[_1_upvr_4[1][_1_upvr_4[3]]("$ENC_26T23J26A23E26Y2501324L")](), _2_upvr(getfenv()[_1_upvr_4[1][_1_upvr_4[3]]("$ENC_27023F26W233")], _1_upvr_4[1][_1_upvr_4[3]]("$ENC_26023926F23325R24U1I"))}, {
			[_1_upvr_4[1][_1_upvr_4[3]]("$ENC_25G21X26W22T26K25A")] = _1_upvr_4[1][_1_upvr_4[3]]("$ENC_26O230");
		})
		repeat
		until not _3_upvr_2() and not var227_result1[1]
		if not var227_result1[1] and var227_result1[2] then
			_4_upvr[1][_4_upvr[3]] = true
		end
	end
end}, {28338, 3201080028, 1817441295, 1690759789, 3228668456, 2979517230, 2427030534, 31392141, 1230513798})(...)