
Keyless

-- Настройки
local AmberName = "Amber"
local GoatName = "Goat"
local TeleportOffset = Vector3.new(0, 3, 0)
local DefaultRadius = 100
local DefaultDelay = 0.5
local AttackKey = "E"
-- Сервисы
local Players = game:GetService("Players")
local UIS = game:GetService("UserInputService")
local RunService = game:GetService("RunService")
local LocalPlayer = Players.LocalPlayer
local Character = LocalPlayer.Character or LocalPlayer.CharacterAdded:Wait()
local HumanoidRootPart = Character:WaitForChild("HumanoidRootPart")
local VirtualInputManager = game:GetService("VirtualInputManager")
-- Состояние фарма
local FarmEnabled = {
Amber = true,
Goats = true
}
local Radius = DefaultRadius
local Delay = DefaultDelay
local Running = false
-- Создаем интерфейс
local ScreenGui = Instance.new("ScreenGui")
ScreenGui.Name = "JurassicFarmGUI"
ScreenGui.Parent = game.CoreGui
local Frame = Instance.new("Frame")
Frame.Parent = ScreenGui
Frame.BackgroundColor3 = Color3.fromRGB(40, 40, 40)
Frame.BackgroundTransparency = 0.3
Frame.BorderSizePixel = 0
Frame.Position = UDim2.new(0.05, 0, 0.05, 0)
Frame.Size = UDim2.new(0.2, 0, 0.35, 0)
Frame.Active = true
Frame.Draggable = true
local Title = Instance.new("TextLabel")
Title.Parent = Frame
Title.Text = "Jurassic Blocky Farmer"
Title.TextColor3 = Color3.new(1, 1, 1)
Title.BackgroundTransparency = 1
Title.Position = UDim2.new(0.1, 0, 0.05, 0)
Title.Size = UDim2.new(0.8, 0, 0.1, 0)
Title.Font = Enum.Font.SourceSansBold
-- Кнопка янтарей
local AmberToggle = Instance.new("TextButton")
AmberToggle.Parent = Frame
AmberToggle.Text = "Янтарь: ВКЛ"
AmberToggle.TextColor3 = Color3.new(0, 1, 0)
AmberToggle.BackgroundColor3 = Color3.fromRGB(60, 60, 60)
AmberToggle.BackgroundTransparency = 0.3
AmberToggle.Position = UDim2.new(0.1, 0, 0.2, 0)
AmberToggle.Size = UDim2.new(0.8, 0, 0.1, 0)
AmberToggle.Font = Enum.Font.SourceSans
-- Кнопка коз
local GoatsToggle = Instance.new("TextButton")
GoatsToggle.Parent = Frame
GoatsToggle.Text = "Козы: ВКЛ"
GoatsToggle.TextColor3 = Color3.new(0, 1, 0)
GoatsToggle.BackgroundColor3 = Color3.fromRGB(60, 60, 60)
GoatsToggle.BackgroundTransparency = 0.3
GoatsToggle.Position = UDim2.new(0.1, 0, 0.35, 0)
GoatsToggle.Size = UDim2.new(0.8, 0, 0.1, 0)
GoatsToggle.Font = Enum.Font.SourceSans
-- Кнопка старта/стопа
local StartStop = Instance.new("TextButton")
StartStop.Parent = Frame
StartStop.Text = "СТАРТ"
StartStop.TextColor3 = Color3.new(1, 1, 1)
StartStop.BackgroundColor3 = Color3.fromRGB(80, 80, 80)
StartStop.BackgroundTransparency = 0.3
StartStop.Position = UDim2.new(0.1, 0, 0.5, 0)
StartStop.Size = UDim2.new(0.8, 0, 0.1, 0)
StartStop.Font = Enum.Font.SourceSansBold
-- Поля ввода
local RadiusLabel = Instance.new("TextLabel")
RadiusLabel.Parent = Frame
RadiusLabel.Text = "Радиус: "..tostring(Radius)
RadiusLabel.TextColor3 = Color3.new(1, 1, 1)
RadiusLabel.BackgroundTransparency = 1
RadiusLabel.Position = UDim2.new(0.1, 0, 0.65, 0)
RadiusLabel.Size = UDim2.new(0.8, 0, 0.05, 0)
RadiusLabel.Font = Enum.Font.SourceSans
local RadiusBox = Instance.new("TextBox")
RadiusBox.Parent = Frame
RadiusBox.Text = tostring(Radius)
RadiusBox.TextColor3 = Color3.new(1, 1, 1)
RadiusBox.BackgroundColor3 = Color3.fromRGB(60, 60, 60)
RadiusBox.BackgroundTransparency = 0.3
RadiusBox.Position = UDim2.new(0.1, 0, 0.7, 0)
RadiusBox.Size = UDim2.new(0.8, 0, 0.08, 0)
RadiusBox.Font = Enum.Font.SourceSans
local DelayLabel = Instance.new("TextLabel")
DelayLabel.Parent = Frame
DelayLabel.Text = "Задержка: "..tostring(Delay).." сек"
DelayLabel.TextColor3 = Color3.new(1, 1, 1)
DelayLabel.BackgroundTransparency = 1
DelayLabel.Position = UDim2.new(0.1, 0, 0.8, 0)
DelayLabel.Size = UDim2.new(0.8, 0, 0.05, 0)
DelayLabel.Font = Enum.Font.SourceSans
local DelayBox = Instance.new("TextBox")
DelayBox.Parent = Frame
DelayBox.Text = tostring(Delay)
DelayBox.TextColor3 = Color3.new(1, 1, 1)
DelayBox.BackgroundColor3 = Color3.fromRGB(60, 60, 60)
DelayBox.BackgroundTransparency = 0.3
DelayBox.Position = UDim2.new(0.1, 0, 0.85, 0)
DelayBox.Size = UDim2.new(0.8, 0, 0.08, 0)
DelayBox.Font = Enum.Font.SourceSans
-- Функции кнопок
AmberToggle.MouseButton1Click:Connect(function()
FarmEnabled.Amber = not FarmEnabled.Amber
AmberToggle.Text = "Янтарь: "..(FarmEnabled.Amber and "ВКЛ" or "ВЫКЛ")
AmberToggle.TextColor3 = FarmEnabled.Amber and Color3.new(0, 1, 0) or Color3.new(1, 0, 0)
end)
GoatsToggle.MouseButton1Click:Connect(function()
FarmEnabled.Goats = not FarmEnabled.Goats
GoatsToggle.Text = "Козы: "..(FarmEnabled.Goats and "ВКЛ" or "ВЫКЛ")
GoatsToggle.TextColor3 = FarmEnabled.Goats and Color3.new(0, 1, 0) or Color3.new(1, 0, 0)
end)
StartStop.MouseButton1Click:Connect(function()
Running = not Running
StartStop.Text = Running and "СТОП" or "СТАРТ"
StartStop.BackgroundColor3 = Running and Color3.fromRGB(120, 0, 0) or Color3.fromRGB(0, 120, 0)
end)
-- Обработчики полей ввода
RadiusBox.FocusLost:Connect(function()
local num = tonumber(RadiusBox.Text)
if num and num > 0 then
Radius = num
RadiusLabel.Text = "Радиус: "..tostring(Radius)
else
RadiusBox.Text = tostring(Radius)
end
end)
DelayBox.FocusLost:Connect(function()
local num = tonumber(DelayBox.Text)
if num and num > 0 then
Delay = num
DelayLabel.Text = "Задержка: "..tostring(Delay).." сек"
else
DelayBox.Text = tostring(Delay)
end
end)
-- Основная функция фарма
local function Farm()
while task.wait() do
if not Running then continue end
if FarmEnabled.Amber then
for _, item in pairs(workspace:GetDescendants()) do
if item.Name == AmberName and item:IsA("BasePart") then
if (HumanoidRootPart.Position - item.Position).Magnitude <= Radius then
HumanoidRootPart.CFrame = CFrame.new(item.Position + TeleportOffset)
VirtualInputManager:SendKeyEvent(true, Enum.KeyCode.E, false, nil)
task.wait(0.1)
VirtualInputManager:SendKeyEvent(false, Enum.KeyCode.E, false, nil)
end
end
end
end
if FarmEnabled.Goats then
for _, enemy in pairs(workspace:GetDescendants()) do
if enemy.Name == GoatName and enemy:FindFirstChild("Humanoid") then
if (HumanoidRootPart.Position - enemy.PrimaryPart.Position).Magnitude <= Radius then
HumanoidRootPart.CFrame = CFrame.new(enemy.PrimaryPart.Position + TeleportOffset)
VirtualInputManager:SendKeyEvent(true, Enum.KeyCode[AttackKey], false, nil)
task.wait(0.1)
VirtualInputManager:SendKeyEvent(false, Enum.KeyCode[AttackKey], false, nil)
end
end
end
end
task.wait(Delay)
end
end
-- Запускаем фарм в отдельном потоке
coroutine.wrap(Farm)()
what language is this even
@primelgcs russian
Does it work
DOESNT WORK
Not clear and oesn't work