ORBITAL — Mine a Planet

-- ORBITAL - Mine a Planet [BETA 8]
if game.PlaceId ~= 121125129560252 then return end

local BOOTOK, BOOTERR = pcall(function()

local Players           = game:GetService("Players")
local TweenService      = game:GetService("TweenService")
local UserInputService  = game:GetService("UserInputService")
local RS                = game:GetService("ReplicatedStorage")
local LP                = Players.LocalPlayer
local Net               = RS:WaitForChild("Net")

local HOST = (gethui and gethui()) or game:GetService("CoreGui")
for _, root in ipairs({ HOST, LP:FindFirstChild("PlayerGui") }) do
	if root then for _, n in ipairs({ "Orbital", "OrbitalBoot" }) do
		local o = root:FindFirstChild(n); if o then pcall(function() o:Destroy() end) end
	end end
end

local DEF = { autoCollect=false, autoSell=false, autoUpgrade=false, autoEvent=false, autoRoll=false,
	rarities = { Divine=true, Exotic=true, Prismatic=true, Transcendent=true, Void=true },
	returnHome=true, notify=true, collectMs=140 }
local S = getgenv().OrbitalX
if not S then S = {}; getgenv().OrbitalX = S; for k,v in pairs(DEF) do S[k]=v end end
for k,v in pairs(DEF) do if S[k]==nil then S[k]=v end end
if S._cleanup then pcall(S._cleanup); task.wait(0.1) end
S.run = true
local GEN = (S._gen or 0)+1; S._gen = GEN
local function live() return S.run==true and S._gen==GEN end
-- stats can survive a hot reload from an older build, so backfill every field
local stats = S._stats or {}
stats.collected = stats.collected or 0
stats.upgrades  = stats.upgrades  or 0
stats.rolls     = stats.rolls     or 0
stats.errors    = stats.errors    or 0
S._stats = stats

local conns = {}
if getgenv()._OrbitalConns then for _,c in ipairs(getgenv()._OrbitalConns) do pcall(function() c:Disconnect() end) end end
getgenv()._OrbitalConns = {}
local function track(c) if c then conns[#conns+1]=c; table.insert(getgenv()._OrbitalConns,c) end return c end

-- theme
local C = { bg=Color3.fromRGB(12,14,20), surf=Color3.fromRGB(19,22,31), surf2=Color3.fromRGB(27,31,43),
	line=Color3.fromRGB(60,70,96), txt=Color3.fromRGB(236,240,250), sub=Color3.fromRGB(132,144,172),
	acc=Color3.fromRGB(96,170,255), good=Color3.fromRGB(80,214,140), bad=Color3.fromRGB(240,96,110) }
local FB,FM,FR = Enum.Font.GothamBold, Enum.Font.GothamMedium, Enum.Font.Gotham
local function mk(cls,p,k) local i=Instance.new(cls) for a,b in pairs(p) do i[a]=b end if k then for _,c in ipairs(k) do c.Parent=i end end return i end
local function corner(r) return mk("UICorner",{CornerRadius=UDim.new(0,r or 8)}) end
local function stroke(t,c) return mk("UIStroke",{Transparency=t or 0.8,Color=c or C.line,Thickness=1}) end
local function pad(n) return mk("UIPadding",{PaddingTop=UDim.new(0,n),PaddingBottom=UDim.new(0,n),PaddingLeft=UDim.new(0,n),PaddingRight=UDim.new(0,n)}) end
local function tw(o,p,t,st) TweenService:Create(o,TweenInfo.new(t or 0.18,st or Enum.EasingStyle.Quad,Enum.EasingDirection.Out),p):Play() end

-- ======================================================= root gui (hidden) =
local gui = mk("ScreenGui",{Name="Orbital",ResetOnSpawn=false,ZIndexBehavior=Enum.ZIndexBehavior.Sibling,DisplayOrder=999,Enabled=false,Parent=HOST})

local toasts = mk("Frame",{AnchorPoint=Vector2.new(1,0),Position=UDim2.new(1,-18,0,18),Size=UDim2.new(0,300,1,-36),
	BackgroundTransparency=1,Parent=gui},{mk("UIListLayout",{Padding=UDim.new(0,8),HorizontalAlignment=Enum.HorizontalAlignment.Right,SortOrder=Enum.SortOrder.LayoutOrder})})
local function notify(title,msg,kind)
	if not S.notify then return end
	local col=(kind=="bad" and C.bad) or (kind=="good" and C.good) or C.acc
	local card=mk("Frame",{Size=UDim2.new(1,0,0,0),AutomaticSize=Enum.AutomaticSize.Y,BackgroundColor3=C.surf,
		Position=UDim2.new(1,40,0,0),Parent=toasts},{corner(10),stroke(0.72)})
	mk("Frame",{Size=UDim2.new(0,3,1,0),BackgroundColor3=col,BorderSizePixel=0,Parent=card})
	local body=mk("Frame",{Position=UDim2.new(0,14,0,0),Size=UDim2.new(1,-24,0,0),AutomaticSize=Enum.AutomaticSize.Y,
		BackgroundTransparency=1,Parent=card},{mk("UIPadding",{PaddingTop=UDim.new(0,10),PaddingBottom=UDim.new(0,11)}),
		mk("UIListLayout",{Padding=UDim.new(0,2),SortOrder=Enum.SortOrder.LayoutOrder})})
	mk("TextLabel",{BackgroundTransparency=1,Size=UDim2.new(1,0,0,15),Text=title,TextColor3=C.txt,
		TextXAlignment=Enum.TextXAlignment.Left,Font=FM,TextSize=13,LayoutOrder=1,Parent=body})
	mk("TextLabel",{BackgroundTransparency=1,Size=UDim2.new(1,0,0,0),AutomaticSize=Enum.AutomaticSize.Y,Text=msg,
		TextColor3=C.sub,TextWrapped=true,TextXAlignment=Enum.TextXAlignment.Left,Font=FR,TextSize=11,LayoutOrder=2,Parent=body})
	tw(card,{Position=UDim2.new(0,0,0,0)},0.28)
	task.delay(5,function() if card.Parent then tw(card,{Position=UDim2.new(1,40,0,0)},0.25) task.wait(0.3) pcall(function() card:Destroy() end) end end)
end
S._notify=notify

local errLast, errLog = {}, {}
S._errLog=errLog
local function report(f,e)
	stats.errors=stats.errors+1
	local m=tostring(e):gsub("^.-:%d+: ",""):sub(1,110)
	table.insert(errLog,1,{f=f,e=m,t=os.date("%H:%M:%S")}); if #errLog>30 then table.remove(errLog) end
	local now=os.clock()
	if not errLast[f] or now-errLast[f]>20 then errLast[f]=now; notify("Error: "..f,m,"bad") end
end
local function loopify(fn,delay,name)
	task.spawn(function() while live() do
		local ok,err=xpcall(fn,function(e) return tostring(e).." | "..debug.traceback("",2):gsub("%s+"," "):sub(1,160) end)
		if not ok then report(name,err) end
		task.wait((type(delay)=="function" and delay()) or delay)
	end end)
end

-- ======================================================= game bindings ====
local function R(n) return Net:FindFirstChild(n) end
local MYID = LP.UserId
local function ownerOf(i) local a=i.Parent for _=1,6 do if not a then return end local v=a:GetAttribute("FS_UserId") if v then return v end a=a.Parent end end
local myDocks = {}
local function reindexDocks()
	table.clear(myDocks)
	for _,d in ipairs(workspace:GetDescendants()) do
		if d:IsA("BasePart") and d:GetAttribute("FS_OreCount")~=nil and ownerOf(d)==MYID then
			local pr=d:FindFirstChildWhichIsA("ProximityPrompt"); if pr then myDocks[d]=pr end
		end
	end
end
pcall(reindexDocks)
local function myOre() local t,n=0,0 for p in pairs(myDocks) do local ok,v=pcall(function() return p.Parent and p:GetAttribute("FS_OreCount") or nil end) if ok and v then t=t+v n=n+1 end end return t,n end

-- native perk toggles (player already owns these; this is the game's own path)
local function setPerk(key,val)
	local r=R("SetAutoPerk"); if not r then return false end
	local ok=pcall(function() r:FireServer({key=key,value=val}) end)
	return ok
end

-- upgrade state cache
local UP = {
	{k="luck",        req="RequestUpgradeLuck",        sync="LuckSync",        label="Luck"},
	{k="dockStorage", req="RequestUpgradeDockStorage", sync="DockStorageSync", label="Dock Storage"},
	{k="laser",       req="RequestUpgradeLaserPower",  sync="LaserSync",       label="Laser"},
	{k="droneRolls",  req="RequestUpgradeDroneRolls",  sync="DroneRollSync",   label="Drone Rolls"},
	{k="planet",      req="RequestUpgradePlanet",      sync="PlanetSync",      label="Planet"},
	{k="cargo",       req="RequestUpgradeCargo",       sync="CargoSync",       label="Cargo"},
}
local upState = {}
S._upState = upState
for _,u in ipairs(UP) do
	local r=R(u.sync)
	if r then track(r.OnClientEvent:Connect(function(payload)
		local st=payload
		if type(st)=="table" and st.nextCost==nil and st.level==nil then
			for _,v in pairs(st) do if type(v)=="table" and (v.nextCost~=nil or v.level~=nil) then st=v break end end
		end
		upState[u.k]=st
	end)) end
end
local cash=0
do local r=R("CurrencySync")
	if r then track(r.OnClientEvent:Connect(function(p)
		local s=p; if type(s)=="table" and s.m==nil then for _,v in pairs(s) do if type(v)=="table" and v.m then s=v break end end end
		if type(s)=="table" and s.m then cash=(s.m or 0)*10^(s.e or 0) end
	end)) end
end
local function pullState() pcall(function() local r=R("RequestStateSync") if r then r:FireServer() end end) end
pullState()

-- forward declared: the automation loops below are defined before the movement helpers
local hrpOf, flyTo, myEventDrops, mySellPad

-- ======================================================= event drops =====
-- Mirrors GlobalDropController's protocol exactly:
--   sync  {campaignId, scope="server"|"global", drops={{dropId,position,expiresAt}}}
--         {clear=true, scope}            -> wipe that scope
--         {claimResult={dropId,status,retryAfter}}
--   claim RequestGlobalDropClaim:FireServer{dropId, campaignId, scope}
-- The game gates claims client-side on distance (<=8 studs); we skip that and claim by id,
-- but we DO honour its 2s per-drop throttle, the retry backoff, and the server's
-- EventDropConfig.maxClaimsPerMinute = 90 cap so we never trip rate limiting.
local drops, claimTimes = {}, {}
local ev = S._ev or { claimed=0, rejected=0, attempts=0 }
S._ev = ev; S._drops = drops
local MAX_CLAIMS_PER_MIN = 85          -- config says 90; stay just under

do
	local r = R("GlobalDropSync")
	if r then track(r.OnClientEvent:Connect(function(p)
		if type(p) ~= "table" then return end
		if p.clear == true and (p.scope == "server" or p.scope == "global") then
			for id, d in pairs(drops) do if d.scope == p.scope then drops[id] = nil end end
			return
		end
		local cr = p.claimResult
		if type(cr) == "table" and type(cr.dropId) == "string" then
			if cr.status == "claimed" then drops[cr.dropId] = nil; ev.claimed = ev.claimed + 1
			elseif cr.status == "terminal" then drops[cr.dropId] = nil; ev.rejected = ev.rejected + 1
			elseif cr.status == "retry" then
				local d = drops[cr.dropId]
				if d then d.nextClaimAt = os.clock() + math.clamp(tonumber(cr.retryAfter) or 1, 0.5, 2) end
			end
			return
		end
		if type(p.campaignId) == "string" and (p.scope == "server" or p.scope == "global") and type(p.drops) == "table" then
			for _, v in ipairs(p.drops) do
				if type(v) == "table" and type(v.dropId) == "string" and typeof(v.position) == "Vector3" and drops[v.dropId] == nil then
					drops[v.dropId] = { position = v.position, expiresAt = v.expiresAt,
						campaignId = p.campaignId, scope = p.scope, nextClaimAt = 0 }
				end
			end
		end
	end)) end
end

local function dropCount() local n = 0 for _ in pairs(drops) do n = n + 1 end return n end
local function shards(kind) return LP:GetAttribute("FS_EventShards_" .. kind) or 0 end

-- Auto roll. The game's native SetAutoRollActive is gamepass gated (FS_GP_autoRoll), and the
-- server rejects it if unowned, so we drive the roll action itself instead. Targets are still
-- pushed so the native panel stays in sync if the pass is ever owned.
loopify(function()
	if not S.autoRoll then return end
	local r = R("RequestRollDrones"); if not r then return end
	pcall(function() r:FireServer({}) end)
	stats.rolls = (stats.rolls or 0) + 1
end, 1.1, "Auto roll")

-- Incident shard pickup is validated SERVER-SIDE (EventDropConfig.pickupRadiusStuds = 8) and
-- there is no client claim remote for it, so it cannot be done from range. What we can do is
-- park at the sky beam where drops spawn (radius 110 around FS_SkyBeamAnchor) - which is exactly
-- what any player farming the event does, so it reads as completely normal.
local function eventActive() return #myEventDrops() > 0 end
S._eventActive = eventActive

-- Fly over each of OUR drops. The server grants the shard on proximity (8 studs), which is
-- exactly the manual "fly over it" action, just driven automatically. Returns home after.
loopify(function()
	if not S.autoEvent then return end
	if not (S._myDrops and S._flyTo and S._hrpOf) then return end
	local list = S._myDrops()
	ev.pending = #list
	if #list == 0 then return end
	local hrp = S._hrpOf(); if not hrp then return end
	local home = hrp.Position
	for _, drop in ipairs(list) do
		if not live() or not S.autoEvent then break end
		if drop.Parent then
			-- must close to ~3 studs: the server only grants the pickup on true contact range
			local ok = S._flyTo(drop.Position, 3)
			ev.moves = (ev.moves or 0) + 1
			if ok then
				task.wait(0.8)                      -- let the server register the pickup
				if not drop.Parent then ev.claimed = ev.claimed + 1 end
			end
		end
	end
	if S.returnHome ~= false then S._flyTo(home, 6) end
end, 2.5, "Event shards")

-- Auto sell. The native autoSell perk is gamepass gated (FS_GP_autoSell) and the server refuses
-- to enable it when unowned, so we do it the manual way: fly to OUR sell pad (prompt range is 16)
-- fire "Sell All", then fly back. Only runs when the backpack actually holds ore.
loopify(function()
	if not S.autoSell then return end
	if not (S._mySellPad and S._flyTo and S._hrpOf) then return end
	local ore = LP:GetAttribute("FS_BackpackOre") or 0
	if ore <= 0 then return end
	local anchor, prompt = S._mySellPad()
	if not anchor then return end
	local hrp = S._hrpOf(); if not hrp then return end
	local home = hrp.Position
	local dist = (anchor.Position - hrp.Position).Magnitude
	if dist > 12 then
		if not S._flyTo(anchor.Position + Vector3.new(0, 3, 0), 8) then return end
	end
	if prompt and fireproximityprompt then
		for _ = 1, 3 do
			pcall(fireproximityprompt, prompt)
			task.wait(0.35)
			if (LP:GetAttribute("FS_BackpackOre") or 0) <= 0 then break end
		end
	end
	stats.sells = (stats.sells or 0) + 1
	if S.returnHome ~= false and dist > 12 then S._flyTo(home, 6) end
end, 6, "Auto sell")

-- ======================================================= movement ========
-- Both shard pickup and selling are validated SERVER-SIDE by proximity, so they genuinely
-- require being there. We glide in steps (~160 studs/s, close to the game's own jetpack) so it
-- reads as normal flying rather than a snap teleport, and we return to where we started.
hrpOf = function() local ch=LP.Character; return ch and ch:FindFirstChild("HumanoidRootPart") end
S._hrpOf = hrpOf
-- Travel at the character's REAL jetpack speed. Moving faster than FS_JetpackFlightSpeed trips
-- the server's movement correction (FS_MovementCorrectionToken climbs and you get yanked back),
-- which is exactly why the first version never arrived. At legit speed it is just normal flight.
flyTo = function(pos, arrive, timeout)
	local hrp=hrpOf(); if not hrp then return false end
	arrive = arrive or 6
	local speed = (LP:GetAttribute("FS_JetpackFlightSpeed") or 80) * 0.9
	local dt = 0.06
	local perStep = math.max(2, speed * dt)
	local t0 = os.clock()
	timeout = timeout or math.clamp((pos - hrp.Position).Magnitude / math.max(speed, 1) + 6, 8, 30)
	while live() and os.clock()-t0 < timeout do
		local h = hrpOf(); if not h then return false end
		local cur = h.Position
		local d = pos - cur
		if d.Magnitude <= arrive then return true end
		local ok = pcall(function() h.CFrame = CFrame.new(cur + d.Unit * math.min(d.Magnitude, perStep)) end)
		if not ok then return false end
		task.wait(dt)
	end
	local h = hrpOf()
	return (h ~= nil) and (h.Position - pos).Magnitude <= arrive + 4
end
S._flyTo = flyTo

-- our own event drops only. Other players' drops live in sibling folders and are not ours to take.
-- Two kinds of drops live under FarmStar.EventDrops:
--   Shared/      -> the actual EVENT SHARDS, FS_DropOwner == 0, free for anyone to fly over
--   <userId>/    -> private drops (consumables/batteries) owned by that player
-- We take the shared shards plus our OWN private drops, never another player's.
myEventDrops = function()
	local out={}
	local fs=workspace:FindFirstChild("FarmStar"); if not fs then return out end
	local eds=fs:FindFirstChild("EventDrops"); if not eds then return out end
	local now=os.time()
	local hrp=hrpOf()
	local here=hrp and hrp.Position or Vector3.new()
	local function scan(folder)
		if not folder then return end
		for _,d in ipairs(folder:GetDescendants()) do
			if d:IsA("BasePart") and d.Name=="FS_EventDrop" then
				local exp=d:GetAttribute("FS_DropExpireAt")
				local owner=d:GetAttribute("FS_DropOwner")
				if (owner==0 or owner==LP.UserId) and (type(exp)~="number" or exp>now) then
					out[#out+1]=d
				end
			end
		end
	end
	scan(eds:FindFirstChild("Shared"))
	scan(eds:FindFirstChild(tostring(LP.UserId)))
	-- shards first, then nearest first, so the valuable pickups are never missed on a short event
	table.sort(out, function(a,b)
		local sa = (a:GetAttribute("FS_DropKind")=="shard") and 1 or 0
		local sb = (b:GetAttribute("FS_DropKind")=="shard") and 1 or 0
		if sa ~= sb then return sa > sb end
		return (a.Position-here).Magnitude < (b.Position-here).Magnitude
	end)
	return out
end
S._myDrops=myEventDrops

-- our own sell pad (each plot has one under Platforms.<userId>.Shops)
mySellPad = function()
	local fs=workspace:FindFirstChild("FarmStar"); if not fs then return nil end
	local plats=fs:FindFirstChild("Platforms"); if not plats then return nil end
	local mine=plats:FindFirstChild(tostring(LP.UserId)); if not mine then return nil end
	local anchor=mine:FindFirstChild("FS_SellPromptAnchor", true)
	if not anchor then return nil end
	local prompt=anchor:FindFirstChildWhichIsA("ProximityPrompt")
	return anchor, prompt
end
S._mySellPad=mySellPad

-- ======================================================= drones ==========
-- Rarity ladder + catalog come straight from the game's own config, so the target
-- list we hand to SetAutoRollTargets is exactly what its own panel would send.
local DroneCatalog, RarityConfig
pcall(function()
	local Cfg = RS:WaitForChild("Config")
	DroneCatalog = require(Cfg:WaitForChild("DroneCatalog"))
	RarityConfig = require(Cfg:WaitForChild("RarityConfig"))
end)
local RARITY_ORDER = (RarityConfig and RarityConfig.order) or
	{ "Common","Uncommon","Rare","Epic","Legendary","Mythic","Secret","Divine","Exotic","Prismatic","Transcendent","Void" }
local function rankOf(rarity)
	if RarityConfig and RarityConfig.rank then local ok,v = pcall(RarityConfig.rank, rarity); if ok and type(v)=="number" then return v end end
	for i,r in ipairs(RARITY_ORDER) do if r == rarity then return i end end
	return 0
end
local function rarityOfDrone(key)
	if DroneCatalog and DroneCatalog.rarity then local ok,v = pcall(DroneCatalog.rarity, key); if ok then return v end end
	return nil
end
local function targetsForSelection()
	local out, seen = {}, {}
	if not (DroneCatalog and DroneCatalog.obtainableDronesOfRarity) then return out end
	for _, r in ipairs(RARITY_ORDER) do
		if S.rarities and S.rarities[r] then
			local ok, list = pcall(DroneCatalog.obtainableDronesOfRarity, r)
			if ok and type(list) == "table" then
				for _, k in ipairs(list) do if type(k)=="string" and not seen[k] then seen[k]=true; out[#out+1]=k end end
			end
		end
	end
	return out
end
local function pushRollTargets()
	local t = targetsForSelection()
	pcall(function() local r=R("SetAutoRollTargets"); if r then r:FireServer({ targets = t }) end end)
	return #t
end
local function setRollActive(v)
	pcall(function() local r=R("SetAutoRollActive"); if r then r:FireServer({ active = v and true or false }) end end)
end

-- drone inventory mirror (InventorySync items: {uid, kind, droneType, location, level, favorite})
local invItems = {}
S._inv = invItems
do
	local r = R("InventorySync")
	if r then track(r.OnClientEvent:Connect(function(p)
		local src = p
		if type(src) == "table" and src.items == nil then
			for _, v in pairs(src) do if type(v)=="table" and v.items then src = v break end end
		end
		local items = type(src)=="table" and src.items or nil
		if type(items) ~= "table" then return end
		table.clear(invItems)
		for _, it in pairs(items) do if type(it)=="table" and it.kind=="drone" then invItems[#invItems+1]=it end end
	end)) end
end
-- returns: placedCount, storedCount, list of upgrade suggestions {dock, from, to, gain}
local function droneAnalysis()
	local placed, stored = {}, {}
	for _, it in ipairs(invItems) do
		local loc = tostring(it.location or "")
		local d = { uid=it.uid, key=it.droneType, fav=it.favorite,
			rank=rankOf(rarityOfDrone(it.droneType)), rarity=rarityOfDrone(it.droneType) }
		local dock = loc:match("^dock:(%d+)")
		if dock then d.dock = tonumber(dock); placed[#placed+1]=d else stored[#stored+1]=d end
	end
	table.sort(placed, function(a,b) return a.rank < b.rank end)          -- weakest first
	table.sort(stored, function(a,b) return a.rank > b.rank end)          -- strongest first
	local sugg, si = {}, 1
	for _, weak in ipairs(placed) do
		local best = stored[si]
		if best and best.rank > weak.rank and not weak.fav then
			sugg[#sugg+1] = { dock=weak.dock, from=weak.key, fromR=weak.rarity, to=best.key, toR=best.rarity }
			si = si + 1
		end
	end
	return placed, stored, sugg
end
S._droneAnalysis = droneAnalysis

-- ======================================================= loading screen ===
local bootDone = false
do
	local bg = mk("ScreenGui",{Name="OrbitalBoot",ResetOnSpawn=false,IgnoreGuiInset=true,DisplayOrder=1000,Parent=HOST})
	local card = mk("Frame",{AnchorPoint=Vector2.new(0.5,0.5),Position=UDim2.new(0.5,0,0.5,0),Size=UDim2.new(0,380,0,140),
		BackgroundColor3=C.surf,BackgroundTransparency=1,Parent=bg},{corner(16),stroke(0.55)})
	mk("UIGradient",{Rotation=90,Color=ColorSequence.new(Color3.fromRGB(255,255,255),Color3.fromRGB(170,170,170)),Parent=card})
	local dot = mk("Frame",{Position=UDim2.new(0,26,0,28),Size=UDim2.new(0,20,0,20),BackgroundColor3=C.acc,
		BackgroundTransparency=1,Parent=card},{corner(6)})
	local t1 = mk("TextLabel",{BackgroundTransparency=1,Position=UDim2.new(0,58,0,26),Size=UDim2.new(1,-80,0,22),Text="ORBITAL",
		TextColor3=C.txt,TextTransparency=1,TextXAlignment=Enum.TextXAlignment.Left,Font=FB,TextSize=22,Parent=card})
	local t2 = mk("TextLabel",{BackgroundTransparency=1,Position=UDim2.new(0,58,0,50),Size=UDim2.new(1,-80,0,16),Text="mine a planet",
		TextColor3=C.sub,TextTransparency=1,TextXAlignment=Enum.TextXAlignment.Left,Font=FR,TextSize=12,Parent=card})
	local step = mk("TextLabel",{BackgroundTransparency=1,Position=UDim2.new(0,26,1,-46),Size=UDim2.new(1,-52,0,14),Text="",
		TextColor3=C.sub,TextTransparency=1,TextXAlignment=Enum.TextXAlignment.Left,Font=FR,TextSize=11,Parent=card})
	local barBg = mk("Frame",{Position=UDim2.new(0,26,1,-28),Size=UDim2.new(1,-52,0,5),BackgroundColor3=C.surf2,
		BackgroundTransparency=1,BorderSizePixel=0,Parent=card},{corner(3)})
	local bar = mk("Frame",{Size=UDim2.new(0,0,1,0),BackgroundColor3=C.acc,BorderSizePixel=0,Parent=barBg},{corner(3)})
	tw(card,{BackgroundTransparency=0.02},0.3) tw(dot,{BackgroundTransparency=0},0.3)
	tw(t1,{TextTransparency=0},0.35) tw(t2,{TextTransparency=0},0.4)
	tw(step,{TextTransparency=0},0.4) tw(barBg,{BackgroundTransparency=0},0.4)
	task.spawn(function()
		local steps={"reading plot","indexing docks","binding remotes","syncing state","ready"}
		for i,s in ipairs(steps) do
			if step.Parent then step.Text=s end
			tw(bar,{Size=UDim2.new(i/#steps,0,1,0)},0.26)
			task.wait(0.26)
		end
		task.wait(0.2)
		tw(card,{BackgroundTransparency=1},0.3) tw(t1,{TextTransparency=1},0.28) tw(t2,{TextTransparency=1},0.28)
		tw(step,{TextTransparency=1},0.28) tw(dot,{BackgroundTransparency=1},0.28) tw(barBg,{BackgroundTransparency=1},0.28)
		task.wait(0.34)
		pcall(function() bg:Destroy() end)
		bootDone = true
		gui.Enabled = true                                  -- window only appears AFTER the loader
	end)
end

-- ======================================================= window ===========
local W,H = 560, 400
local win = mk("Frame",{Name="Win",AnchorPoint=Vector2.new(0.5,0.5),Position=UDim2.new(0.5,0,0.5,0),
	Size=UDim2.new(0,W,0,H),BackgroundColor3=C.bg,Active=true,Draggable=true,Parent=gui},{corner(16),stroke(0.5)})
mk("UIGradient",{Rotation=90,Color=ColorSequence.new(Color3.fromRGB(255,255,255),Color3.fromRGB(184,184,184)),Parent=win})

local bar = mk("Frame",{Size=UDim2.new(1,0,0,56),BackgroundTransparency=1,Parent=win})
mk("Frame",{Position=UDim2.new(0,20,0.5,-10),Size=UDim2.new(0,20,0,20),BackgroundColor3=C.acc,Parent=bar},{corner(6)})
mk("TextLabel",{BackgroundTransparency=1,Position=UDim2.new(0,52,0,12),Size=UDim2.new(1,-150,0,19),Text="ORBITAL",
	TextColor3=C.txt,TextXAlignment=Enum.TextXAlignment.Left,Font=FB,TextSize=18,Parent=bar})
mk("TextLabel",{BackgroundTransparency=1,Position=UDim2.new(0,52,0,33),Size=UDim2.new(1,-150,0,14),Text="mine a planet",
	TextColor3=C.sub,TextXAlignment=Enum.TextXAlignment.Left,Font=FR,TextSize=11,Parent=bar})
local cashLbl = mk("TextLabel",{AnchorPoint=Vector2.new(1,0.5),Position=UDim2.new(1,-58,0.5,0),Size=UDim2.new(0,150,0,18),
	Text="",TextColor3=C.good,TextXAlignment=Enum.TextXAlignment.Right,Font=FM,TextSize=13,BackgroundTransparency=1,Parent=bar})
local hideB = mk("TextButton",{AnchorPoint=Vector2.new(1,0.5),Position=UDim2.new(1,-18,0.5,0),Size=UDim2.new(0,28,0,28),
	BackgroundColor3=C.surf2,Text="-",TextColor3=C.txt,Font=FB,TextSize=16,AutoButtonColor=false,Parent=bar},{corner(8)})
mk("Frame",{Position=UDim2.new(0,20,0,56),Size=UDim2.new(1,-40,0,1),BackgroundColor3=C.line,
	BackgroundTransparency=0.6,BorderSizePixel=0,Parent=win})

local side = mk("Frame",{Position=UDim2.new(0,16,0,68),Size=UDim2.new(0,136,1,-84),BackgroundColor3=C.surf,Parent=win},
	{corner(12),mk("UIListLayout",{Padding=UDim.new(0,5),SortOrder=Enum.SortOrder.LayoutOrder}),pad(8)})
local content = mk("Frame",{Position=UDim2.new(0,166,0,68),Size=UDim2.new(1,-182,1,-84),BackgroundTransparency=1,ClipsDescendants=true,Parent=win})

local pages,tabs = {},{}
local function selectTab(id)
	for k,pg in pairs(pages) do pg.Visible=(k==id) end
	for k,b in pairs(tabs) do
		tw(b,{BackgroundTransparency=(k==id) and 0 or 1},0.15)
		local l=b:FindFirstChildOfClass("TextLabel"); if l then l.TextColor3=(k==id) and C.txt or C.sub end
	end
end
local tOrd=0
local function addTab(id,label)
	tOrd=tOrd+1
	local b=mk("TextButton",{Size=UDim2.new(1,0,0,34),BackgroundColor3=C.surf2,BackgroundTransparency=1,Text="",
		AutoButtonColor=false,LayoutOrder=tOrd,Parent=side},{corner(9)})
	mk("TextLabel",{BackgroundTransparency=1,Position=UDim2.new(0,12,0,0),Size=UDim2.new(1,-16,1,0),Text=label,
		TextColor3=C.sub,TextXAlignment=Enum.TextXAlignment.Left,Font=FM,TextSize=13,Parent=b})
	local pg=mk("ScrollingFrame",{Size=UDim2.new(1,0,1,0),BackgroundTransparency=1,BorderSizePixel=0,Visible=false,
		CanvasSize=UDim2.new(),AutomaticCanvasSize=Enum.AutomaticSize.Y,ScrollBarThickness=3,ScrollBarImageColor3=C.acc,Parent=content},
		{mk("UIListLayout",{Padding=UDim.new(0,9),SortOrder=Enum.SortOrder.LayoutOrder})})
	pages[id]=pg tabs[id]=b
	track(b.MouseButton1Click:Connect(function() selectTab(id) end))
	return pg
end
local ord=0
local function O() ord=ord+1 return ord end
local function sect(p,t) mk("TextLabel",{BackgroundTransparency=1,Size=UDim2.new(1,0,0,14),Text=string.upper(t),
	TextColor3=C.sub,TextXAlignment=Enum.TextXAlignment.Left,Font=FB,TextSize=10,LayoutOrder=O(),Parent=p}) end
local function Toggle(p,label,key,cb)
	local row=mk("Frame",{Size=UDim2.new(1,0,0,42),BackgroundColor3=C.surf,LayoutOrder=O(),Parent=p},{corner(10),stroke(0.85)})
	mk("TextLabel",{BackgroundTransparency=1,Position=UDim2.new(0,14,0,0),Size=UDim2.new(1,-70,1,0),Text=label,
		TextColor3=C.txt,TextXAlignment=Enum.TextXAlignment.Left,Font=FM,TextSize=13,Parent=row})
	local knob=mk("Frame",{AnchorPoint=Vector2.new(1,0.5),Position=UDim2.new(1,-12,0.5,0),Size=UDim2.new(0,42,0,22),
		BackgroundColor3=S[key] and C.acc or C.surf2,Parent=row},{corner(11)})
	local dot=mk("Frame",{AnchorPoint=Vector2.new(0,0.5),Position=UDim2.new(0,S[key] and 22 or 2,0.5,0),Size=UDim2.new(0,18,0,18),
		BackgroundColor3=C.txt,Parent=knob},{corner(9)})
	local btn=mk("TextButton",{BackgroundTransparency=1,Size=UDim2.new(1,0,1,0),Text="",Parent=row})
	track(btn.MouseButton1Click:Connect(function()
		S[key]=not S[key]
		tw(knob,{BackgroundColor3=S[key] and C.acc or C.surf2},0.15)
		tw(dot,{Position=UDim2.new(0,S[key] and 22 or 2,0.5,0)},0.15)
		if cb then pcall(cb,S[key]) end
	end))
end
local function card(p,h) return mk("Frame",{Size=UDim2.new(1,0,0,h),BackgroundColor3=C.surf,LayoutOrder=O(),Parent=p},{corner(10),stroke(0.85),pad(13)}) end

local U={}
do local p=addTab("auto","Automation")
	sect(p,"Ore")
	Toggle(p,"Auto collect","autoCollect",function(v) setPerk("autoCollect",v) end)
	Toggle(p,"Auto sell","autoSell",function(v) setPerk("autoSell",v) end)
	sect(p,"Status")
	local c=card(p,58)
	U.s1=mk("TextLabel",{BackgroundTransparency=1,Size=UDim2.new(1,0,0,17),Text="",TextColor3=C.txt,
		TextXAlignment=Enum.TextXAlignment.Left,Font=FM,TextSize=13,Parent=c})
	U.s2=mk("TextLabel",{BackgroundTransparency=1,Position=UDim2.new(0,0,0,20),Size=UDim2.new(1,0,0,16),Text="",
		TextColor3=C.sub,TextXAlignment=Enum.TextXAlignment.Left,Font=FR,TextSize=11,Parent=c})
end
do local p=addTab("upg","Upgrades")
	sect(p,"Auto")
	Toggle(p,"Auto upgrade all","autoUpgrade")
	sect(p,"Tracks")
	U.upRows={}
	for _,u in ipairs(UP) do
		local c=card(p,38)
		mk("TextLabel",{BackgroundTransparency=1,Size=UDim2.new(0.5,0,1,0),Text=u.label,TextColor3=C.txt,
			TextXAlignment=Enum.TextXAlignment.Left,Font=FM,TextSize=12,Parent=c})
		U.upRows[u.k]=mk("TextLabel",{BackgroundTransparency=1,Position=UDim2.new(0.5,0,0,0),Size=UDim2.new(0.5,0,1,0),Text="-",
			TextColor3=C.sub,TextXAlignment=Enum.TextXAlignment.Right,Font=FR,TextSize=11,Parent=c})
	end
end
do local p=addTab("drn","Drones")
	sect(p,"Auto roll")
	Toggle(p,"Auto roll drones","autoRoll",function(v)
		local n=pushRollTargets(); setRollActive(v)
		if v then notify("Auto roll on", n.." drone types targeted","good") end
	end)
	sect(p,"Target rarities")
	local grid=mk("Frame",{Size=UDim2.new(1,0,0,0),AutomaticSize=Enum.AutomaticSize.Y,BackgroundTransparency=1,LayoutOrder=O(),Parent=p},
		{mk("UIGridLayout",{CellSize=UDim2.new(0.5,-4,0,30),CellPadding=UDim2.new(0,8,0,8),SortOrder=Enum.SortOrder.LayoutOrder})})
	U.rarChips={}
	for _,r in ipairs(RARITY_ORDER) do
		local on=(S.rarities and S.rarities[r]) and true or false
		local chip=mk("TextButton",{BackgroundColor3=on and C.acc or C.surf,Text="",AutoButtonColor=false,Parent=grid},{corner(8),stroke(0.85)})
		local lb=mk("TextLabel",{BackgroundTransparency=1,Size=UDim2.new(1,0,1,0),Text=r,
			TextColor3=on and Color3.fromRGB(12,16,26) or C.sub,Font=FM,TextSize=11,Parent=chip})
		U.rarChips[r]={chip=chip,lb=lb}
		track(chip.MouseButton1Click:Connect(function()
			S.rarities=S.rarities or {}
			S.rarities[r]=not S.rarities[r]
			local o=S.rarities[r] and true or false
			tw(chip,{BackgroundColor3=o and C.acc or C.surf},0.14)
			lb.TextColor3 = o and Color3.fromRGB(12,16,26) or C.sub
			local n=pushRollTargets()
			if U.rollInfo then U.rollInfo.Text=n.." drone types targeted" end
		end))
	end
	U.rollInfo=mk("TextLabel",{BackgroundTransparency=1,Size=UDim2.new(1,0,0,16),Text="",TextColor3=C.sub,
		TextXAlignment=Enum.TextXAlignment.Left,Font=FR,TextSize=11,LayoutOrder=O(),Parent=p})
	sect(p,"Loadout")
	local dc=card(p,58)
	U.d1=mk("TextLabel",{BackgroundTransparency=1,Size=UDim2.new(1,0,0,17),Text="",TextColor3=C.txt,
		TextXAlignment=Enum.TextXAlignment.Left,Font=FM,TextSize=13,Parent=dc})
	U.d2=mk("TextLabel",{BackgroundTransparency=1,Position=UDim2.new(0,0,0,20),Size=UDim2.new(1,0,0,16),Text="",
		TextColor3=C.sub,TextXAlignment=Enum.TextXAlignment.Left,Font=FR,TextSize=11,Parent=dc})
	sect(p,"Suggested swaps")
	U.swapBox=mk("Frame",{Size=UDim2.new(1,0,0,116),BackgroundColor3=C.surf,LayoutOrder=O(),Parent=p},
		{corner(10),stroke(0.85),pad(11),mk("UIListLayout",{Padding=UDim.new(0,4),SortOrder=Enum.SortOrder.LayoutOrder})})
	U.swapEmpty=mk("TextLabel",{BackgroundTransparency=1,Size=UDim2.new(1,0,0,15),Text="Loadout is optimal",
		TextColor3=C.sub,TextXAlignment=Enum.TextXAlignment.Left,Font=FR,TextSize=11,Parent=U.swapBox})
end

do local p=addTab("evt","Events")
	sect(p,"Shard farming")
	Toggle(p,"Auto collect shards","autoEvent")
	Toggle(p,"Return to start after","returnHome")
	sect(p,"Progress")
	local c1=card(p,44)
	mk("TextLabel",{BackgroundTransparency=1,Size=UDim2.new(0.45,0,1,0),Text="UFO",TextColor3=C.txt,
		TextXAlignment=Enum.TextXAlignment.Left,Font=FM,TextSize=13,Parent=c1})
	U.ufo=mk("TextLabel",{BackgroundTransparency=1,Position=UDim2.new(0.45,0,0,0),Size=UDim2.new(0.55,0,1,0),Text="-",
		TextColor3=C.sub,TextXAlignment=Enum.TextXAlignment.Right,Font=FR,TextSize=12,Parent=c1})
	local c2=card(p,44)
	mk("TextLabel",{BackgroundTransparency=1,Size=UDim2.new(0.45,0,1,0),Text="JellyFish",TextColor3=C.txt,
		TextXAlignment=Enum.TextXAlignment.Left,Font=FM,TextSize=13,Parent=c2})
	U.jelly=mk("TextLabel",{BackgroundTransparency=1,Position=UDim2.new(0.45,0,0,0),Size=UDim2.new(0.55,0,1,0),Text="-",
		TextColor3=C.sub,TextXAlignment=Enum.TextXAlignment.Right,Font=FR,TextSize=12,Parent=c2})
	sect(p,"Live")
	local c3=card(p,58)
	U.e1=mk("TextLabel",{BackgroundTransparency=1,Size=UDim2.new(1,0,0,17),Text="",TextColor3=C.txt,
		TextXAlignment=Enum.TextXAlignment.Left,Font=FM,TextSize=13,Parent=c3})
	U.e2=mk("TextLabel",{BackgroundTransparency=1,Position=UDim2.new(0,0,0,20),Size=UDim2.new(1,0,0,16),Text="",
		TextColor3=C.sub,TextXAlignment=Enum.TextXAlignment.Left,Font=FR,TextSize=11,Parent=c3})
end

do local p=addTab("diag","Diagnostics")
	sect(p,"Health")
	local c=card(p,40)
	U.health=mk("TextLabel",{BackgroundTransparency=1,Size=UDim2.new(1,0,1,0),Text="Nominal",TextColor3=C.good,
		TextXAlignment=Enum.TextXAlignment.Left,Font=FM,TextSize=13,Parent=c})
	sect(p,"Errors")
	U.errBox=mk("Frame",{Size=UDim2.new(1,0,0,120),BackgroundColor3=C.surf,LayoutOrder=O(),Parent=p},
		{corner(10),stroke(0.85),pad(11),mk("UIListLayout",{Padding=UDim.new(0,4),SortOrder=Enum.SortOrder.LayoutOrder})})
	U.errEmpty=mk("TextLabel",{BackgroundTransparency=1,Size=UDim2.new(1,0,0,15),Text="None",TextColor3=C.sub,
		TextXAlignment=Enum.TextXAlignment.Left,Font=FR,TextSize=11,Parent=U.errBox})
	Toggle(p,"Notifications","notify")
end
selectTab("auto")

-- ======================================================= loops ============
loopify(function()
	if not S.autoCollect then return end
	local n=0
	for part,pr in pairs(myDocks) do
		if not live() then break end
		local ok,ore=pcall(function() return part.Parent and (part:GetAttribute("FS_OreCount") or 0) or nil end)
		if not ok or ore==nil then myDocks[part]=nil
		elseif ore>0 and pr.Parent then pcall(fireproximityprompt,pr) n=n+1 task.wait(0.03) end
	end
	if n>0 then stats.collected=stats.collected+n end
end, function() return (S.collectMs or 140)/1000 end, "Auto collect")

loopify(function() reindexDocks() end, 12, "Dock reindex")
loopify(function() pullState() end, 6, "State sync")

-- auto upgrade: buy any track that is not maxed and is affordable
loopify(function()
	if not S.autoUpgrade then return end
	for _,u in ipairs(UP) do
		if not live() then break end
		local st=upState[u.k]
		if type(st)=="table" and type(st.nextCost)=="number" and cash>=st.nextCost then
			local r=R(u.req)
			if r then
				pcall(function() r:FireServer({}) end)
				stats.upgrades=stats.upgrades+1
				task.wait(0.4)
			end
		end
	end
end, 3, "Auto upgrade")

loopify(function()
	local ore,docks=myOre()
	if U.s1 then U.s1.Text=string.format("Docks %d    Ore %d", docks, ore) end
	if U.s2 then U.s2.Text=string.format("Collected %d    Upgrades %d", stats.collected, stats.upgrades) end
	if cashLbl then
		local v=cash
		local s = v>=1e12 and string.format("%.2fT",v/1e12) or v>=1e9 and string.format("%.2fB",v/1e9)
			or v>=1e6 and string.format("%.2fM",v/1e6) or v>=1e3 and string.format("%.1fk",v/1e3) or string.format("%d",v)
		cashLbl.Text=s
	end
	for _,u in ipairs(UP) do
		local lb=U.upRows and U.upRows[u.k]
		if lb then
			local st=upState[u.k]
			if type(st)~="table" then lb.Text="-" lb.TextColor3=C.sub
			elseif st.nextCost==nil then lb.Text="MAX" lb.TextColor3=C.good
			else
				local c=st.nextCost
				local s = c>=1e12 and string.format("%.2fT",c/1e12) or c>=1e9 and string.format("%.2fB",c/1e9)
					or c>=1e6 and string.format("%.2fM",c/1e6) or c>=1e3 and string.format("%.1fk",c/1e3) or tostring(c)
				lb.Text=(st.level and ("L"..tostring(st.level).."   ") or "")..s
				lb.TextColor3=(cash>=c) and C.acc or C.sub
			end
		end
	end
	do
		local u,j = shards("UFO"), shards("JellyFish")
		if U.ufo then U.ufo.Text=string.format("%d/10 shards    %d token%s", u%10, math.floor(u/10), (math.floor(u/10)==1) and "" or "s")
			U.ufo.TextColor3=(u>0) and C.acc or C.sub end
		if U.jelly then U.jelly.Text=string.format("%d/10 shards    %d token%s", j%10, math.floor(j/10), (math.floor(j/10)==1) and "" or "s")
			U.jelly.TextColor3=(j>0) and C.acc or C.sub end
		local pend = ev.pending or 0
		if U.e1 then U.e1.Text = (pend > 0) and (pend .. " drop" .. ((pend == 1) and "" or "s") .. " waiting") or "No drops right now" end
		if U.e2 then U.e2.Text = string.format("Picked up %d    Trips %d    Backpack %s",
			ev.claimed or 0, ev.moves or 0, tostring(LP:GetAttribute("FS_BackpackOre") or 0)) end
	end
	do
		local placed, stored, sugg = droneAnalysis()
		if U.d1 then U.d1.Text=string.format("Placed %d    Stored %d", #placed, #stored) end
		if U.d2 then
			local bestP = placed[#placed]; local bestS = stored[1]
			U.d2.Text = string.format("Best placed %s    Best stored %s",
				(bestP and (bestP.rarity or "?")) or "-", (bestS and (bestS.rarity or "?")) or "-")
		end
		if U.swapBox then
			for _,ch in ipairs(U.swapBox:GetChildren()) do if ch:IsA("TextLabel") and ch~=U.swapEmpty then ch:Destroy() end end
			U.swapEmpty.Visible=(#sugg==0)
			for i=1,math.min(#sugg,5) do local s=sugg[i]
				mk("TextLabel",{BackgroundTransparency=1,Size=UDim2.new(1,0,0,15),
					Text=string.format("Dock %s   %s -> %s", tostring(s.dock), tostring(s.fromR or s.from), tostring(s.toR or s.to)),
					TextColor3=C.acc,TextTruncate=Enum.TextTruncate.AtEnd,TextXAlignment=Enum.TextXAlignment.Left,
					Font=FR,TextSize=10,LayoutOrder=i,Parent=U.swapBox})
			end
		end
	end
	if U.health then
		U.health.Text=(stats.errors==0) and "Nominal" or (stats.errors.." error(s)")
		U.health.TextColor3=(stats.errors==0) and C.good or C.bad
	end
	if U.errBox then
		for _,ch in ipairs(U.errBox:GetChildren()) do if ch:IsA("TextLabel") and ch~=U.errEmpty then ch:Destroy() end end
		U.errEmpty.Visible=(#errLog==0)
		for i=1,math.min(#errLog,5) do local e=errLog[i]
			mk("TextLabel",{BackgroundTransparency=1,Size=UDim2.new(1,0,0,15),Text=e.t.."  "..e.f..": "..e.e,TextColor3=C.bad,
				TextTruncate=Enum.TextTruncate.AtEnd,TextXAlignment=Enum.TextXAlignment.Left,Font=FR,TextSize=10,LayoutOrder=i,Parent=U.errBox})
		end
	end
end, 1, "UI")

-- chrome
local shown=true
track(hideB.MouseButton1Click:Connect(function()
	shown=not shown
	tw(win,{Size=shown and UDim2.new(0,W,0,H) or UDim2.new(0,W,0,56)},0.22)
	side.Visible=shown content.Visible=shown
end))
track(UserInputService.InputBegan:Connect(function(i,gp)
	if gp then return end
	if i.KeyCode==Enum.KeyCode.RightControl and bootDone then gui.Enabled=not gui.Enabled end
end))

S._cleanup=function() S.run=false for _,c in ipairs(conns) do pcall(function() c:Disconnect() end) end pcall(function() gui:Destroy() end) end

task.delay(2.2,function() if live() then notify("Ready","Wave 2 online.","good") end end)

end)

if not BOOTOK then warn("[ORBITAL] "..tostring(BOOTERR)) end