local rs=game:GetService("ReplicatedStorage")
local plrs=game:GetService("Players")
local run=game:GetService("RunService")
local lp=plrs.LocalPlayer
local rf=loadstring(game:HttpGet("https://sirius.menu/rayfield"))()

local thm={
	TextColor=Color3.fromRGB(232,232,236),Background=Color3.fromRGB(12,12,14),Topbar=Color3.fromRGB(18,18,20),Shadow=Color3.fromRGB(6,6,8),
	NotificationBackground=Color3.fromRGB(16,16,18),NotificationActionsBackground=Color3.fromRGB(210,210,214),
	TabBackground=Color3.fromRGB(28,28,32),TabStroke=Color3.fromRGB(48,48,54),TabBackgroundSelected=Color3.fromRGB(198,198,204),
	TabTextColor=Color3.fromRGB(190,190,196),SelectedTabTextColor=Color3.fromRGB(18,18,20),
	ElementBackground=Color3.fromRGB(22,22,26),ElementBackgroundHover=Color3.fromRGB(30,30,34),
	SecondaryElementBackground=Color3.fromRGB(16,16,18),ElementStroke=Color3.fromRGB(52,52,58),SecondaryElementStroke=Color3.fromRGB(40,40,46),
	SliderBackground=Color3.fromRGB(70,70,78),SliderProgress=Color3.fromRGB(190,190,198),SliderStroke=Color3.fromRGB(220,220,226),
	ToggleBackground=Color3.fromRGB(20,20,24),ToggleEnabled=Color3.fromRGB(200,200,208),ToggleDisabled=Color3.fromRGB(60,60,68),
	ToggleEnabledStroke=Color3.fromRGB(230,230,236),ToggleDisabledStroke=Color3.fromRGB(90,90,98),
	ToggleEnabledOuterStroke=Color3.fromRGB(70,70,78),ToggleDisabledOuterStroke=Color3.fromRGB(40,40,46),
	DropdownSelected=Color3.fromRGB(28,28,32),DropdownUnselected=Color3.fromRGB(18,18,20),
	InputBackground=Color3.fromRGB(18,18,20),InputStroke=Color3.fromRGB(58,58,64),PlaceholderColor=Color3.fromRGB(140,140,148)
}

local win=rf:CreateWindow({
	Name="Bahkruums - Open Source",Icon="sparkles",LoadingTitle="join server discord",LoadingSubtitle="By LeakD",
	ShowText="BK",Theme=thm,ToggleUIKeybind="H",DisableRayfieldPrompts=false,DisableBuildWarnings=true,
	ConfigurationSaving={Enabled=false,FolderName=nil,FileName="bk_cfg"},
	Discord={Enabled=false,Invite="noinvitelink",RememberJoins=true},KeySystem=false
})

local function ntf(t,c) rf:Notify({Title=t,Content=c,Duration=3,Image="bell"}) end
local fnt=Font.new("rbxasset://fonts/families/BuilderSans.json",Enum.FontWeight.Bold)

local function root(m)
	return m:FindFirstChild("HumanoidRootPart") or m.PrimaryPart or m:FindFirstChildWhichIsA("BasePart")
end

local function mkesp(bag,m,tag,fill,out,tc,dc)
	if bag[m] then return end
	local r=root(m)
	if not r then return end
	local head=m:FindFirstChild("Head")
	local ad=head or r
	local hl=Instance.new("Highlight")
	hl.Adornee=m
	hl.DepthMode=Enum.HighlightDepthMode.AlwaysOnTop
	hl.FillColor=fill
	hl.FillTransparency=0.88
	hl.OutlineColor=out
	hl.OutlineTransparency=0.2
	hl.Parent=m
	local holdf=lp:FindFirstChild("PlayerGui")
	if holdf then
		local fold=holdf:FindFirstChild("ld_esp")
		if not fold then
			fold=Instance.new("Folder")
			fold.Name="ld_esp"
			fold.Parent=holdf
		end
		holdf=fold
	else
		holdf=m
	end
	local bb=Instance.new("BillboardGui")
	bb.Name="ld_esp_bb"
	bb.Adornee=ad
	bb.AlwaysOnTop=true
	bb.LightInfluence=0
	bb.Size=UDim2.fromOffset(140,34)
	bb.StudsOffset=Vector3.new(0,head and 1.35 or 3.4,0)
	bb.MaxDistance=1e4
	bb.Parent=holdf
	local hold=Instance.new("Frame",bb)
	hold.BackgroundTransparency=1
	hold.Size=UDim2.fromScale(1,1)
	local lay=Instance.new("UIListLayout",hold)
	lay.HorizontalAlignment=Enum.HorizontalAlignment.Center
	lay.VerticalAlignment=Enum.VerticalAlignment.Top
	lay.Padding=UDim.new(0,1)
	lay.SortOrder=Enum.SortOrder.LayoutOrder
	local function lbl(txt,sz,col,ord,h)
		local t=Instance.new("TextLabel",hold)
		t.BackgroundTransparency=1
		t.Size=UDim2.new(1,0,0,h)
		t.FontFace=fnt
		t.TextSize=sz
		t.TextColor3=col
		t.Text=txt
		t.TextYAlignment=Enum.TextYAlignment.Center
		t.LayoutOrder=ord
		local s=Instance.new("UIStroke",t)
		s.Color=Color3.new(0,0,0)
		s.Transparency=0.25
		s.Thickness=1.2
		return t
	end
	local namel=lbl(tag,14,tc,1,16)
	local distl=lbl("--m",12,dc,2,14)
	bag[m]={hl=hl,bb=bb,tx=distl,nm=namel,ad=ad}
end

local function kill(bag,m)
	local d=bag[m]
	if not d then return end
	if d.hl then d.hl:Destroy() end
	if d.bb then d.bb:Destroy() end
	bag[m]=nil
end

local function wipe(bag)
	for m in pairs(bag) do kill(bag,m) end
end

local function ticke(bag,on)
	if not on then return end
	local hrp=lp.Character and lp.Character:FindFirstChild("HumanoidRootPart")
	if not hrp then return end
	for m,d in pairs(bag) do
		if not m.Parent then kill(bag,m) continue end
		local r=d.ad
		if not r or not r.Parent then
			r=m:FindFirstChild("Head") or root(m)
			d.ad=r
			if d.bb and r then
				d.bb.Adornee=r
				d.bb.StudsOffset=Vector3.new(0,r.Name=="Head" and 1.35 or 3.4,0)
			end
		end
		local from=root(m) or r
		if from and d.tx then d.tx.Text=math.floor((hrp.Position-from.Position).Magnitude+0.5).."m" end
	end
end

local kon,kbag,kacc=false,{},0
local kf=Color3.fromRGB(220,55,65)
local ko=Color3.fromRGB(255,170,175)
local kt=Color3.fromRGB(255,210,215)
local kd=Color3.fromRGB(255,175,180)
local pon,pbag,pacc=false,{},0
local pf=Color3.fromRGB(55,160,255)
local po=Color3.fromRGB(160,210,255)
local pt=Color3.fromRGB(200,230,255)
local pd=Color3.fromRGB(150,200,255)

local function isk(m)
	if not m or not m:IsA("Model") then return false end
	if m:GetAttribute("_IsEntity")==true then return true end
	if m:GetAttribute("_EntityType")=="Clark" then return true end
	local n=string.lower(m.Name)
	if n:find("clark") or n:find("kirk") then return true end
	local par=m.Parent
	if par and (par.Name=="LiveClark" or par.Name=="LiveAI") then return true end
	local pl=plrs:GetPlayerFromCharacter(m)
	if pl and pl:GetAttribute("IsEntity")==true then return true end
	return false
end

local function ktag(m)
	local pl=plrs:GetPlayerFromCharacter(m)
	if not pl then return "Kirk" end
	local n=pl.DisplayName
	if n=="" then n=pl.Name end
	return n.." | Kirk"
end

local function addk(m)
	if not isk(m) then return end
	if pbag[m] then kill(pbag,m) end
	mkesp(kbag,m,ktag(m),kf,ko,kt,kd)
end

local function kscan()
	for _,nm in ipairs({"LiveAI","LiveClark"}) do
		local f=workspace:FindFirstChild(nm)
		if f then
			for _,c in ipairs(f:GetChildren()) do
				if isk(c) then addk(c) end
			end
		end
	end
	for _,pl in ipairs(plrs:GetPlayers()) do
		if pl~=lp and pl.Character and isk(pl.Character) then
			addk(pl.Character)
		end
	end
	for m in pairs(kbag) do
		if not m.Parent or not isk(m) then kill(kbag,m) end
	end
end

local function hookf(nm)
	local f=workspace:FindFirstChild(nm)
	if not f then return end
	f.ChildAdded:Connect(function(c)
		task.wait(0.15)
		if kon and isk(c) then addk(c) end
	end)
	f.ChildRemoved:Connect(function(c) kill(kbag,c) end)
end
hookf("LiveAI")
hookf("LiveClark")
workspace.ChildAdded:Connect(function(c)
	if c.Name=="LiveAI" or c.Name=="LiveClark" then
		hookf(c.Name)
		if kon then kscan() end
	end
end)

local function pscan()
	local live={}
	for _,pl in ipairs(plrs:GetPlayers()) do
		if pl~=lp and pl.Character and root(pl.Character) then
			local ch=pl.Character
			if kon and isk(ch) then
				kill(pbag,ch)
			else
				live[ch]=true
				local tag=pl.DisplayName
				if tag=="" then tag=pl.Name end
				mkesp(pbag,ch,tag,pf,po,pt,pd)
			end
		end
	end
	for m in pairs(pbag) do
		if not live[m] then kill(pbag,m) end
	end
end

local function hookp(pl)
	if pl==lp then return end
	pl.CharacterAdded:Connect(function(m)
		task.wait(0.2)
		if kon and isk(m) then
			addk(m)
			return
		end
		if pon then
			local tag=pl.DisplayName
			if tag=="" then tag=pl.Name end
			mkesp(pbag,m,tag,pf,po,pt,pd)
		end
	end)
	pl.CharacterRemoving:Connect(function(m)
		kill(pbag,m)
		kill(kbag,m)
	end)
end
for _,pl in ipairs(plrs:GetPlayers()) do hookp(pl) end
plrs.PlayerAdded:Connect(hookp)
plrs.PlayerRemoving:Connect(function(pl)
	if pl.Character then
		kill(pbag,pl.Character)
		kill(kbag,pl.Character)
	end
end)

run.RenderStepped:Connect(function(dt)
	if kon then
		kacc+=dt
		if kacc>=0.5 then kacc=0 kscan() end
		ticke(kbag,true)
	end
	if pon then
		pacc+=dt
		if pacc>=0.5 then pacc=0 pscan() end
		ticke(pbag,true)
	end
end)

local function mov()
	local a=rs:FindFirstChild("Assets")
	local r=a and a:FindFirstChild("Remotes")
	local p=r and r:FindFirstChild("Player")
	return p and p:FindFirstChild("Movement")
end

local land,aud,unlk=false,false,false
local wson,inf,clip=false,false,false
local wsval=16
local uis=game:GetService("UserInputService")
local fon=false
local fcd=0
local fspd=65
local fhop=28
local ffall=-140
local fdir=Vector3.new(1,0,0)
local fret
local fws,fjh,fjp,fuj
local fax,faz,ffl
local ftc=0
local fac=0
local fmn=0
local ftr=70
local fyaw=0
local flv
local fnv
local fgt=0
local fsb=0
local fhud,fearn,fbal,fconn
local fcs={}

local jsfx={
	Land=true,Jumping=true,Landing=true,FreeFalling=true,Running=true,
	GettingUp=true,Climbing=true,Splash=true,Swimming=true,
}

local function bucks()
	local ls=lp:FindFirstChild("leaderstats")
	local b=ls and ls:FindFirstChild("Buckarooms")
	return (b and tonumber(b.Value)) or 0
end

local function killhud()
	if fconn then fconn:Disconnect() fconn=nil end
	if fhud then fhud:Destroy() fhud=nil end
	fearn,fbal=nil,nil
end

local function tickh()
	if not fearn or not fbal then return end
	local cur=bucks()
	local earned=math.max(0,cur-fsb)
	fearn.Text="+"..tostring(earned)
	fbal.Text="$"..tostring(cur)
end

local function showhud()
	killhud()
	fsb=bucks()
	local pg=lp:FindFirstChild("PlayerGui")
	if not pg then return end
	local gui=Instance.new("ScreenGui")
	gui.Name="ld_farm_hud"
	gui.ResetOnSpawn=false
	gui.IgnoreGuiInset=true
	gui.ZIndexBehavior=Enum.ZIndexBehavior.Sibling
	gui.DisplayOrder=120
	gui.Parent=pg
	local row=Instance.new("Frame")
	row.Name="Row"
	row.AnchorPoint=Vector2.new(0.5,0.5)
	row.Position=UDim2.fromScale(0.5,0.5)
	row.Size=UDim2.fromOffset(780,110)
	row.BackgroundTransparency=1
	row.Parent=gui
	local lay=Instance.new("UIListLayout",row)
	lay.FillDirection=Enum.FillDirection.Horizontal
	lay.HorizontalAlignment=Enum.HorizontalAlignment.Center
	lay.VerticalAlignment=Enum.VerticalAlignment.Center
	lay.Padding=UDim.new(0,28)
	lay.SortOrder=Enum.SortOrder.LayoutOrder
	local function mktxt(txt,sz,col,ord,w)
		local t=Instance.new("TextLabel")
		t.BackgroundTransparency=1
		t.Size=UDim2.fromOffset(w,110)
		t.FontFace=Font.new("rbxasset://fonts/families/BuilderSans.json",Enum.FontWeight.ExtraBold)
		t.TextSize=sz
		t.TextColor3=col
		t.Text=txt
		t.TextXAlignment=Enum.TextXAlignment.Left
		t.LayoutOrder=ord
		t.Parent=row
		local s=Instance.new("UIStroke",t)
		s.Thickness=3
		s.Color=Color3.new(0,0,0)
		s.Transparency=0.15
		return t
	end
	local icon=Instance.new("ImageLabel")
	icon.BackgroundTransparency=1
	icon.Size=UDim2.fromOffset(84,84)
	icon.Image="rbxassetid://6031260796"
	icon.ScaleType=Enum.ScaleType.Fit
	icon.LayoutOrder=1
	icon.Parent=row
	fearn=mktxt("+0",64,Color3.fromRGB(120,255,140),2,220)
	fbal=mktxt("$0",72,Color3.fromRGB(255,220,90),3,300)
	fhud=gui
	tickh()
	local ls=lp:FindFirstChild("leaderstats")
	local b=ls and ls:FindFirstChild("Buckarooms")
	if b then
		fconn=b:GetPropertyChangedSignal("Value"):Connect(tickh)
	end
end

local function muten()
	local a=rs:FindFirstChild("Assets")
	local c=a and a:FindFirstChild("Client")
	local r=c and c:FindFirstChild("Replicate")
	local n=r and r:FindFirstChild("Notification")
	if not n then return end
	for _,nm in ipairs({"Default","Bought","Error"}) do
		local s=n:FindFirstChild(nm)
		if s and s:IsA("Sound") then
			if nm=="Default" and fnv==nil then fnv=s.Volume end
			s.Volume=0
			pcall(function() s:Stop() end)
		end
	end
end

local function umuten()
	local a=rs:FindFirstChild("Assets")
	local c=a and a:FindFirstChild("Client")
	local r=c and c:FindFirstChild("Replicate")
	local n=r and r:FindFirstChild("Notification")
	local s=n and n:FindFirstChild("Default")
	if s and s:IsA("Sound") then
		s.Volume=fnv or 0.5
	end
	fnv=nil
end

local function mutel(ch)
	local ss=game:GetService("SoundService")
	local mov=ss:FindFirstChild("Movements")
	local land=mov and mov:FindFirstChild("Land")
	if land and land:IsA("Sound") then
		if flv==nil then flv=land.Volume end
		land.Volume=0
		pcall(function() land:Stop() end)
	end
	if not ch then return end
	for _,s in ipairs(ch:GetDescendants()) do
		if s:IsA("Sound") and jsfx[s.Name] then
			if fcs[s]==nil then fcs[s]=s.Volume end
			s.Volume=0
			pcall(function() s:Stop() end)
		end
	end
end

local function umutel(ch)
	local ss=game:GetService("SoundService")
	local mov=ss:FindFirstChild("Movements")
	local land=mov and mov:FindFirstChild("Land")
	if land and land:IsA("Sound") then
		land.Volume=flv or 0.5
	end
	for s,vol in pairs(fcs) do
		if s and s.Parent then
			s.Volume=vol
		end
	end
	fcs={}
	flv=nil
	if ch then
		for _,s in ipairs(ch:GetDescendants()) do
			if s:IsA("Sound") and jsfx[s.Name] and s.Volume==0 then
				s.Volume=0.5
			end
		end
	end
end

local function ghum()
	local ch=lp.Character
	if not ch then return end
	local hum=ch:FindFirstChildOfClass("Humanoid")
	local hrp=ch:FindFirstChild("HumanoidRootPart")
	if not hum or not hrp or hum.Health<=0 then return end
	return hum,hrp,ch
end

local function bhop()
	local a=rs:FindFirstChild("Assets")
	local r=a and a:FindFirstChild("Remotes")
	local p=r and r:FindFirstChild("Player")
	return p and p:FindFirstChild("Bhop")
end

local function killab(ch)
	if not ch then return end
	for _,d in ipairs(ch:GetDescendants()) do
		if d:IsA("LocalScript") then
			local n=string.lower(d.Name)
			if n:find("jump") or n:find("bhop") then
				d.Disabled=true
			end
		elseif d:IsA("BodyVelocity") and (d.Name=="movementForce" or d.Name=="GMODSETUP") then
			d.MaxForce=Vector3.new()
			d.Velocity=Vector3.new()
		end
	end
	local hum=ch:FindFirstChildOfClass("Humanoid")
	if hum then
		pcall(function()
			hum:SetStateEnabled(Enum.HumanoidStateType.Landed,true)
			hum:SetStateEnabled(Enum.HumanoidStateType.Jumping,true)
			hum:SetStateEnabled(Enum.HumanoidStateType.Freefall,true)
			hum:SetStateEnabled(Enum.HumanoidStateType.Running,true)
		end)
	end
end

local function ston(part)
	local top=(part.CFrame*CFrame.new(0,part.Size.Y*0.5,0)).Position
	return Vector3.new(top.X,top.Y+3,top.Z),top.Y
end

local function xzd(a,b)
	local dx,dz=a.X-b.X,a.Z-b.Z
	return math.sqrt(dx*dx+dz*dz)
end

local function spots()
	local list={}
	local seen={}
	local function push(pos,floory)
		if floory<-1 or floory>12 then return end
		local key=math.floor(pos.X+0.5)..":"..math.floor(pos.Z+0.5)
		if seen[key] then return end
		seen[key]=true
		list[#list+1]={pos=pos,floor=floory}
	end
	local function add(part)
		if not part or not part:IsA("BasePart") then return end
		local pos,floory=ston(part)
		push(pos,floory)
	end
	local sys=workspace:FindFirstChild("System")
	local map=sys and sys:FindFirstChild("Map")
	local sps=map and map:FindFirstChild("SpawnPoint")
	if sps then
		for _,c in ipairs(sps:GetDescendants()) do
			if c:IsA("SpawnLocation") or c:IsA("BasePart") then add(c) end
		end
	end
	add(workspace:FindFirstChild("SpawnLocation"))
	if #list>0 and map then
		local offs={
			Vector3.new(22,0,22),
			Vector3.new(-22,0,18),
			Vector3.new(18,0,-22),
			Vector3.new(-26,0,0),
			Vector3.new(0,0,26),
		}
		local rp=RaycastParams.new()
		rp.FilterType=Enum.RaycastFilterType.Exclude
		local ignore={lp.Character}
		for _,nm in ipairs({"LiveAI","LiveClark","Live"}) do
			local f=workspace:FindFirstChild(nm)
			if f then ignore[#ignore+1]=f end
		end
		rp.FilterDescendantsInstances=ignore
		for i=1,5 do
			local src=list[((i-1)%#list)+1]
			local hint=Vector3.new(src.pos.X+offs[i].X,src.pos.Y+25,src.pos.Z+offs[i].Z)
			local hit=workspace:Raycast(hint,Vector3.new(0,-80,0),rp)
			if hit and hit.Normal.Y>0.7 and hit.Instance:IsDescendantOf(map) then
				local floory=hit.Position.Y
				if floory>-1 and floory<12 then
					push(Vector3.new(hint.X,floory+3,hint.Z),floory)
				end
			end
		end
	end
	if #list<1 and map then
		local floors=map:FindFirstChild("Floors")
		if floors then
			for _,c in ipairs(floors:GetChildren()) do
				if c:IsA("BasePart") then add(c) end
			end
		end
	end
	return list
end

local function thr()
	local t={}
	for _,nm in ipairs({"LiveAI","LiveClark"}) do
		local f=workspace:FindFirstChild(nm)
		if f then
			for _,c in ipairs(f:GetChildren()) do
				local r=root(c)
				if r then t[#t+1]=r.Position end
			end
		end
	end
	for _,pl in ipairs(plrs:GetPlayers()) do
		if pl~=lp and pl.Character then
			local r=root(pl.Character)
			if r then t[#t+1]=r.Position end
		end
	end
	return t
end

local function pick(relocate)
	local spots=spots()
	if #spots<1 then return end
	local threats=thr()
	local cur=fax and Vector3.new(fax,0,faz)
	local best,bests
	for _,s in ipairs(spots) do
		if relocate and cur and xzd(s.pos,cur)<8 then
			continue
		end
		local mint=1e9
		for _,th in ipairs(threats) do
			local d=xzd(s.pos,th)
			if d<mint then mint=d end
		end
		if #threats<1 then mint=1000 end
		if not bests or mint>bests then
			bests=mint
			best=s
		end
	end
	if not best and relocate then
		for _,s in ipairs(spots) do
			if not cur or xzd(s.pos,cur)>=8 then
				best=s
				break
			end
		end
	end
	return best
end

local function put(spot)
	fax,faz,ffl=spot.pos.X,spot.pos.Z,spot.floor
	local hum,hrp=ghum()
	if not hrp then return end
	local pos=spot.pos
	hrp.CFrame=CFrame.lookAt(pos,pos+Vector3.new(0,0,-1),Vector3.yAxis)
	hrp.AssemblyLinearVelocity=Vector3.new()
	hrp.AssemblyAngularVelocity=Vector3.new()
	fcd=0.05
end

local function near()
	if not fax then return false end
	local here=Vector3.new(fax,0,faz)
	for _,th in ipairs(thr()) do
		if xzd(here,th)<=ftr then return true end
	end
	return false
end

local function onfl(hum,hrp,ch)
	if hum.FloorMaterial~=Enum.Material.Air then return true end
	local st=hum:GetState()
	if st==Enum.HumanoidStateType.Running or st==Enum.HumanoidStateType.Landed or st==Enum.HumanoidStateType.Climbing then
		return true
	end
	local rp=RaycastParams.new()
	rp.FilterType=Enum.RaycastFilterType.Exclude
	rp.FilterDescendantsInstances={ch}
	local hit=workspace:Raycast(hrp.Position,Vector3.new(0,-3.8,0),rp)
	return hit~=nil and hit.Normal.Y>0.55
end

local function sfarm()
	local hum,hrp,ch=ghum()
	if not hum then ntf("nah","no character") return false end
	local spot=pick(false)
	if not spot then ntf("nah","no real floor found") return false end
	fret=hrp.CFrame
	fws=hum.WalkSpeed
	fjh=hum.JumpHeight
	fjp=hum.JumpPower
	fuj=hum.UseJumpPower
	killab(ch)
	hum.WalkSpeed=0
	hum.AutoRotate=false
	hum.PlatformStand=false
	fgt=0
	pcall(function()
		hum.Sit=false
		hum.UseJumpPower=true
		hum.JumpPower=50
		hum.JumpHeight=7.2
	end)
	put(spot)
	ftc=0
	fyaw=0
	mutel(ch)
	muten()
	showhud()
	fon=true
	return true
end

local function rjmp(hum,ch)
	if not hum then return end
	pcall(function()
		hum.UseJumpPower=fuj==true
		hum.JumpPower=fjp or 50
		local attr=ch and ch:GetAttribute("JumpHeight")
		if typeof(attr)=="number" then
			hum.JumpHeight=attr
		else
			hum.JumpHeight=fjh or 7.2
		end
	end)
end

local function efarm()
	fon=false
	killhud()
	local hum,hrp,ch=ghum()
	if hum then
		hum.WalkSpeed=fws or 16
		hum.AutoRotate=true
		hum.PlatformStand=false
		rjmp(hum,ch)
	end
	umutel(ch or (lp.Character))
	umuten()
	if hrp and fret then
		hrp.AssemblyLinearVelocity=Vector3.new()
		hrp.AssemblyAngularVelocity=Vector3.new()
		local p=fret.Position
		local look=fret.LookVector
		local f=Vector3.new(look.X,0,look.Z)
		if f.Magnitude<0.05 then f=Vector3.new(0,0,-1) else f=f.Unit end
		hrp.CFrame=CFrame.lookAt(p,p+f,Vector3.yAxis)
	end
	fret=nil
	fax,faz,ffl=nil,nil,nil
	fuj=nil
end

lp.CharacterAdded:Connect(function(ch)
	task.wait(0.4)
	if fon then killab(ch) end
end)

local function setnc(ch,on)
	if not ch then return end
	for _,p in ipairs(ch:GetDescendants()) do
		if p:IsA("BasePart") then
			p.CanCollide=not on
		end
	end
end

uis.JumpRequest:Connect(function()
	if not inf or fon then return end
	local hum=ghum()
	if not hum then return end
	pcall(function()
		hum:ChangeState(Enum.HumanoidStateType.Jumping)
		hum.Jump=true
	end)
end)

run.Heartbeat:Connect(function(dt)
	if fon then return end
	local hum,hrp,ch=ghum()
	if not hum then return end
	if clip then
		setnc(ch,true)
		hrp.AssemblyAngularVelocity=Vector3.new()
	end
	if wson then
		local md=hum.MoveDirection
		if md.Magnitude>0.05 then
			local step=md.Unit*(wsval*dt)
			hrp.CFrame=hrp.CFrame+step
		end
		hum.WalkSpeed=wsval
	end
end)

run.Heartbeat:Connect(function(dt)
	if not fon then return end
	local hum,hrp,ch=ghum()
	if not hum or not fax then return end
	hum.WalkSpeed=0
	hum.AutoRotate=false
	hum.PlatformStand=false
	pcall(function()
		hum.Sit=false
		hum:SetStateEnabled(Enum.HumanoidStateType.Landed,true)
		hum:SetStateEnabled(Enum.HumanoidStateType.Jumping,true)
	end)
	fcd=math.max(0,fcd-dt)
	ftc=math.max(0,ftc-dt)
	fac=math.max(0,fac-dt)
	fmn=math.max(0,fmn-dt)
	if fac<=0 then
		fac=0.5
		killab(ch)
		mutel(ch)
		muten()
	end
	if ftc<=0 then
		ftc=0.35
		if near() then
			local nxt=pick(true)
			if nxt then
				put(nxt)
				if fmn<=0 then
					fmn=2.5
					ntf("moved","threat nearby")
				end
			end
		end
	end
	local function upright(x,y,z,dir)
		local p=Vector3.new(x,y,z)
		local f=Vector3.new(dir.X,0,dir.Z)
		if f.Magnitude<0.05 then f=Vector3.new(0,0,-1) else f=f.Unit end
		return CFrame.lookAt(p,p+f,Vector3.yAxis)
	end
	if ffl and hrp.Position.Y<ffl-6 then
		hrp.CFrame=upright(fax,ffl+3,faz,Vector3.new(0,0,-1))
		hrp.AssemblyLinearVelocity=Vector3.new()
		hrp.AssemblyAngularVelocity=Vector3.new()
		fcd=0.15
		return
	end
	local grounded=onfl(hum,hrp,ch)
	local y=hrp.AssemblyLinearVelocity.Y
	local d=fdir
	hum.Jump=true
	pcall(function()
		hum.UseJumpPower=true
		hum.JumpPower=50
	end)
	if grounded then
		fgt=fgt+dt
		local hop=fhop
		if fgt>0.12 then
			hop=fhop+6
			fgt=0
		end
		local mxh=math.sqrt(math.max(0,76*76-hop*hop))
		local spd=math.min(fspd,mxh)
		y=hop
		pcall(function()
			hum:ChangeState(Enum.HumanoidStateType.Jumping)
		end)
		if fcd<=0 then
			fcd=0.1
			local re=bhop()
			if re then pcall(function() re:FireServer() end) end
		end
		hrp.AssemblyAngularVelocity=Vector3.new()
		hrp.CFrame=upright(fax,hrp.Position.Y,faz,d)
		hrp.AssemblyLinearVelocity=Vector3.new(d.X*spd,y,d.Z*spd)
		tickh()
		return
	end
	fgt=0
	if y<18 then
		y=ffall
	end
	hrp.AssemblyAngularVelocity=Vector3.new()
	hrp.CFrame=upright(fax,hrp.Position.Y,faz,d)
	hrp.AssemblyLinearVelocity=Vector3.new(d.X*fspd,y,d.Z*fspd)
	tickh()
end)

task.spawn(function()
	while true do
		if land and not fon then
			local ch=lp.Character
			local hum=ch and ch:FindFirstChildOfClass("Humanoid")
			local hrp=ch and ch:FindFirstChild("HumanoidRootPart")
			if hum and hrp and hum.Health>0 then
				pcall(function() hum:ChangeState(Enum.HumanoidStateType.Freefall) end)
				pcall(function() hum:ChangeState(Enum.HumanoidStateType.Landed) end)
				local v=hrp.AssemblyLinearVelocity
				hrp.AssemblyLinearVelocity=Vector3.new(v.X,0,v.Z)
			end
			task.wait(0.02)
		elseif aud and not fon then
			local re=mov()
			if re then
				pcall(function() re:FireServer("Whistle") end)
				pcall(function() re:FireServer("Quote") end)
			end
			task.wait(0.12)
		else
			task.wait(0.2)
		end
	end
end)

task.spawn(function()
	while true do
		task.wait(1)
		if not unlk then continue end
		local em=lp:FindFirstChild("Data")
		em=em and em:FindFirstChild("Emotes")
		local folder=rs:FindFirstChild("Assets")
		folder=folder and folder:FindFirstChild("Emotes")
		if not em or not folder then continue end
		for _,c in ipairs(folder:GetChildren()) do
			if not em:FindFirstChild(c.Name) then
				local v=Instance.new("BoolValue")
				v.Name=c.Name
				v.Parent=em
			end
		end
	end
end)

local main=win:CreateTab("Main","eye")
main:CreateSection("Visuals")
main:CreateToggle({Name="ESP Kirk",CurrentValue=false,Flag="esp_kirk",Callback=function(v)
	kon=v
	if v then
		kscan()
		if pon then pscan() end
		ntf("on","esp kirk")
	else
		wipe(kbag)
		if pon then pscan() end
		ntf("off","esp kirk")
	end
end})
main:CreateToggle({Name="ESP Players",CurrentValue=false,Flag="esp_plr",Callback=function(v)
	pon=v
	if v then
		pscan()
		ntf("on","esp players")
	else
		wipe(pbag)
		ntf("off","esp players")
	end
end})

main:CreateSection("Misc")
local function gap()
	if main.CreateDivider then
		pcall(function() main:CreateDivider() end)
	else
		pcall(function() main:CreateParagraph({Title=" ",Content=" "}) end)
	end
end
main:CreateToggle({Name="WalkSpeed",CurrentValue=false,Flag="ws_on",Callback=function(v)
	wson=v
	if not v then
		local hum=ghum()
		if hum and not fon then hum.WalkSpeed=16 end
	end
	ntf(v and "on" or "off","walkspeed")
end})
main:CreateSlider({Name="WalkSpeed",Range={1,50},Increment=1,CurrentValue=16,Flag="ws_val",Callback=function(v)
	wsval=v
end})
main:CreateToggle({Name="Infinite Jump",CurrentValue=false,Flag="inf_jmp",Callback=function(v)
	inf=v
	ntf(v and "on" or "off","inf jump")
end})
main:CreateToggle({Name="Noclip",CurrentValue=false,Flag="noclip",Callback=function(v)
	clip=v
	local _,_,ch=ghum()
	if ch then setnc(ch,v) end
	ntf(v and "on" or "off","noclip")
end})
gap()
local jtg,audtg
local ftg=main:CreateToggle({Name="Auto Farm Money",CurrentValue=false,Flag="auto_farm",Callback=function(v)
	if v then
		if sfarm() then
			land=false
			aud=false
			task.defer(function()
				if jtg then jtg:Set(false) end
				if audtg then audtg:Set(false) end
			end)
			ntf("on","farm hops")
		else
			task.defer(function()
				if ftg then ftg:Set(false) end
			end)
		end
	else
		efarm()
		ntf("off","back to spot")
	end
end})
gap()
jtg=main:CreateToggle({Name="Jump Sound",CurrentValue=false,Flag="jump_sfx",Callback=function(v)
	if v and fon then
		land=false
		task.defer(function()
			if jtg then jtg:Set(false) end
		end)
		ntf("nah","off while farm")
		return
	end
	land=v
	ntf(v and "on" or "off","jump sound")
end})
audtg=main:CreateToggle({Name="Spam Audio",CurrentValue=false,Flag="spam_aud",Callback=function(v)
	if v and fon then
		aud=false
		task.defer(function()
			if audtg then audtg:Set(false) end
		end)
		ntf("nah","off while farm")
		return
	end
	aud=v
	ntf(v and "on" or "off","spam audio")
end})
main:CreateButton({Name="Unlock Emotes",Callback=function()
	unlk=true
	local em=lp:FindFirstChild("Data")
	em=em and em:FindFirstChild("Emotes")
	local folder=rs:FindFirstChild("Assets")
	folder=folder and folder:FindFirstChild("Emotes")
	if not em or not folder then ntf("nah","data missing") return end
	for _,c in ipairs(folder:GetChildren()) do
		if not em:FindFirstChild(c.Name) then
			local v=Instance.new("BoolValue")
			v.Name=c.Name
			v.Parent=em
		end
	end
	ntf("locked in","check emote menu")
end})