Bedino

0 followers•3w ago

35,929 views

Free Farm Be Dino

Be Dino 🦖 - Jurassic Dinosaur Simulation

Play Game link

Description

Free Farm Be Dino Roblox Android Delta

Tested with the following executors:

Script Code

47 lines•6.9 KB

if not game:IsLoaded() then game.Loaded:Wait() end task.wait(0.3)

local P,R,C=game:GetService("Players"),game:GetService("RunService"),game:GetService("CoreGui")

local lp=P.LocalPlayer if C:FindFirstChild("K_Farm") then C.K_Farm:Destroy() end

local SGui=Instance.new("ScreenGui",C) SGui.Name="K_Farm"

pcall(function() lp.Idled:Connect(function() game:GetService("VirtualUser"):Button2Down(Vector2.new(0,0),workspace.CurrentCamera.CFrame) end) end)

local function New(cl,pr,p) local i=Instance.new(cl,pr) for k,v in pairs(p) do i[k]=v end return i end

local MF=New("Frame",SGui,{BackgroundColor3=Color3.fromRGB(20,20,20),Position=UDim2.new(0.035,0,0.63,0),Size=UDim2.new(0,190,0,102),Active=true,Draggable=true})

New("UICorner",MF,{CornerRadius=UDim.new(0,10)})local US=New("UIStroke",MF,{Thickness=1.8,ApplyStrokeMode="Border"})

local Ti=New("TextLabel",MF,{Size=UDim2.new(0,80,0,32),Position=UDim2.new(0,12,0,0),Text="KADU HUB",TextColor3=Color3.new(1,1,1),TextSize=10,Font="SourceSansBold",BackgroundTransparency=1,TextXAlignment="Left"})

local MI=New("TextButton",SGui,{Size=UDim2.new(0,50,0,50),Visible=false,BackgroundColor3=Color3.fromRGB(15,15,15),Text="FARM",Font="SourceSansBold",TextColor3=Color3.new(1,1,1),TextSize=13,Draggable=true,Active=true})

New("UICorner",MI,{CornerRadius=UDim.new(0,10)})local US2=New("UIStroke",MI,{Thickness=1.8})

local MiniTG=New("TextButton",SGui,{Size=UDim2.new(0,50,0,25),Visible=false,BackgroundColor3=Color3.fromRGB(45,45,45),Text="OFF",Font="SourceSansBold",TextColor3=Color3.new(1,1,1),TextSize=11})

New("UICorner",MiniTG,{CornerRadius=UDim.new(0,8)})local MTGS=New("UIStroke",MiniTG,{Thickness=1.5})

local function BT(t,c,p,f) local b=New("TextButton",MF,{Size=UDim2.new(0,18,0,18),Position=p,BackgroundColor3=c,Text=t,TextColor3=Color3.new(1,1,1),Font="SourceSansBold",TextSize=11}) New("UICorner",b,{CornerRadius=UDim.new(0,4)}) b.MouseButton1Click:Connect(f) end

local mapaFarms = setmetatable({}, {__mode = "kv"})

local farming,cAlvo,v44,tSeg,itensRestantes=false,Vector3.new(-147.83,142.89,-269.73),false,false,0

local alvos={meat1=true,meat3=true,meat7=true,meat_1=true,meat_3=true,meat_7=true,["dinosauregg.001"]=true,["dinosauregg.002"]=true,["dinosauregg.003"]=true,["dinosauregg.004"]=true,dinosauregg=true,dinosauregg_green=true,["egg.001"]=true}

local function daPausa()

local t = os.date("*t")

local h, m, s = t.hour, t.min, t.sec

if m>=43 and m<49 then return true end

local segAtual = (m * 60) + s

-- Checa os primeiros horários (início em 14:00)

if (h==0 or h==3 or h==6) and (segAtual >= 840 and segAtual <= 1210) then return true end

-- Checa os novos horários (início em 14:30)

if (h==9 or h==12 or h==15 or h==18 or h==21) and (segAtual >= 870 and segAtual <= 1210) then return true end

return false

end

local function UpUI() local p=daPausa() local txt,col=p and "PAUSE" or (farming and "ON" or "OFF"),p and Color3.fromRGB(230,126,34) or (farming and Color3.fromRGB(46,204,113) or Color3.fromRGB(45,45,45)) MiniTG.Text,MiniTG.BackgroundColor3=txt,col if bFarm then bFarm.Text,bFarm.BackgroundColor3=txt,col end end

local function alt() if daPausa() then return end farming=not farming UpUI() end

BT("✕",Color3.fromRGB(200,50,50),UDim2.new(1,-26,0,7),function() SGui:Destroy() end)

BT("—",Color3.fromRGB(50,50,50),UDim2.new(1,-48,0,7),function() MI.Position,MiniTG.Position,MF.Visible,MI.Visible,MiniTG.Visible=MF.Position,MF.Position+UDim2.new(0,0,0,55),false,true,true end)

MI.MouseButton1Click:Connect(function() MF.Position,MI.Visible,MiniTG.Visible,MF.Visible=MI.Position,false,false,true end)

local function Row(n,p) local r=New("Frame",MF,{Size=UDim2.new(1,-20,0,28),Position=p,BackgroundColor3=Color3.fromRGB(25,25,25)}) New("UICorner",r,{CornerRadius=UDim.new(0,5)}) New("TextLabel",r,{Size=UDim2.new(0.5,0,1,0),Position=UDim2.new(0,8,0,0),Text=n,TextColor3=Color3.new(1,1,1),Font="SourceSansLight",BackgroundTransparency=1,TextXAlignment="Left",TextSize=10}) return r end

local SR=Row("🥩+🥚 Map Items",UDim2.new(0,10,0,35)) local TotalValue=New("TextLabel",SR,{Size=UDim2.new(0,65,0,24),Position=UDim2.new(1,-73,0.5,-12),Text="0 Items",TextColor3=Color3.new(1,1,1),Font="SourceSansBold",TextSize=10,BackgroundTransparency=1,TextXAlignment="Right"})

local rFarm=Row("Auto Feed Dino",UDim2.new(0,10,0,68)) bFarm=New("TextButton",rFarm,{Size=UDim2.new(0,42,0,18),Position=UDim2.new(1,-50,0.5,-9),BackgroundColor3=Color3.fromRGB(45,45,45),Text="OFF",TextColor3=Color3.new(1,1,1),TextSize=9}) New("UICorner",bFarm,{CornerRadius=UDim.new(0,8)})

bFarm.MouseButton1Click:Connect(alt) MiniTG.MouseButton1Click:Connect(alt)

local function reg(o) if (o:IsA("BasePart") or o:IsA("MeshPart") or o:IsA("Model")) and alvos[o.Name:lower()] then if o.Parent and alvos[o.Parent.Name:lower()] and o:IsA("BasePart") then return end mapaFarms[o]=o end end

workspace.DescendantRemoving:Connect(function(o) mapaFarms[o]=nil end) workspace.DescendantAdded:Connect(reg)

for _,o in pairs(workspace:GetDescendants()) do reg(o) end

R.Heartbeat:Connect(function() UpUI() if MI.Visible then MiniTG.Position=MI.Position+UDim2.new(0,0,0,55) end local c=lp.Character local rt=c and (c:FindFirstChild("MeshRootPart") or c:FindFirstChild("HumanoidRootPart") or c.PrimaryPart) if rt and (tSeg or not farming or daPausa()) then rt.AssemblyLinearVelocity,rt.AssemblyAngularVelocity=Vector3.zero,Vector3.zero if tSeg then pcall(function() c:PivotTo(CFrame.new(cAlvo)) end) end end end)

local Q=game:GetService("ContentProvider") task.spawn(function() while task.wait(0.02) do local t=0 for o in pairs(mapaFarms) do if o and o.Parent then t=t+1 else mapaFarms[o]=nil end end itensRestantes=t TotalValue.Text=t.." Items" if farming and not daPausa() and not tSeg then if Q.RequestQueueSize>45 or itensRestantes==0 then task.wait(0.1) continue end pcall(function() local c=lp.Character if not c then return end local coll=c:FindFirstChild("MeshRootPart") or c:FindFirstChild("FoodCollectionRadius") or c:FindFirstChild("HumanoidRootPart") or c.PrimaryPart if not coll then return end local alvo=next(mapaFarms) coll.AssemblyLinearVelocity,coll.AssemblyAngularVelocity=Vector3.zero,Vector3.zero if alvo then local pos=alvo:IsA("Model") and (alvo.PrimaryPart and alvo.PrimaryPart.Position or alvo:GetPivot().Position) or alvo.Position c:PivotTo(CFrame.new(pos+Vector3.new(0,-0.08,0))) else c:PivotTo(CFrame.new(coll.Position)) end end) end end end)

task.spawn(function() while task.wait(0.5) do local m=os.date("*t").min if m==44 and not v44 then v44,tSeg=true,true pcall(function() if lp.Character then lp.Character:PivotTo(CFrame.new(cAlvo)) end end) task.wait(5) tSeg=false elseif m~=44 then v44=false end end end)

task.spawn(function() while task.wait() do local cl=Color3.fromHSV((tick()%15)/15,0.7,1) US.Color,US2.Color,MTGS.Color,Ti.TextColor3=cl,cl,cl,cl end end)

task.spawn(function() while task.wait(1) do for o in pairs(mapaFarms) do if not o or not o.Parent then mapaFarms[o]=nil end end pcall(function() collectgarbage("step",250) end) end end)