local Players = game:GetService("Players")
local UserInputService = game:GetService("UserInputService")
local ReplicatedStorage = game:GetService("ReplicatedStorage")

local localPlayer = Players.LocalPlayer
local playerGui = localPlayer:WaitForChild("PlayerGui")

-- RemoteEvent für den Speed-Farm
local speedEvent = ReplicatedStorage:WaitForChild("Events"):WaitForChild("AddSpeed")

-- 1. GUI ERSTELLEN
local screenGui = Instance.new("ScreenGui")
screenGui.Name = "FarmGui"
screenGui.ResetOnSpawn = false
screenGui.Parent = playerGui

-- Hauptbox (Größe beibehalten)
local mainFrame = Instance.new("Frame")
mainFrame.Name = "MainFrame"
mainFrame.Size = UDim2.new(0, 200, 0, 180)
mainFrame.Position = UDim2.new(0.5, -100, 0.4, -90)
mainFrame.BackgroundColor3 = Color3.fromRGB(35, 35, 35)
mainFrame.BorderSizePixel = 0
mainFrame.Active = true
mainFrame.Parent = screenGui

-- Abrundung für die Hauptbox
local uiCorner = Instance.new("UICorner")
uiCorner.CornerRadius = UDim.new(0, 8)
uiCorner.Parent = mainFrame

-- --- NEU: "Made By Curby" Text ---
local curbyLabel = Instance.new("TextLabel")
curbyLabel.Name = "CurbyLabel"
curbyLabel.Size = UDim2.new(1, -10, 0, 15) -- Kleiner, breiter Text
curbyLabel.Position = UDim2.new(0, 5, 0, 0) -- Oben links platziert
curbyLabel.BackgroundTransparency = 1
curbyLabel.Text = "Made By Curby"
curbyLabel.TextColor3 = Color3.fromRGB(200, 200, 200) -- Etwas dunkleres Grau
curbyLabel.Font = Enum.Font.SourceSans
curbyLabel.TextSize = 12 -- Kleinere Schriftgröße
curbyLabel.TextXAlignment = Enum.TextXAlignment.Left -- Links ausgerichtet
curbyLabel.Parent = mainFrame

-- --- WINS FARM ELEMENTE (Größe und Position angepasst) ---
local winsLabel = Instance.new("TextLabel")
winsLabel.Name = "WinsLabel"
winsLabel.Size = UDim2.new(1, 0, 0, 25) -- Etwas kleiner
winsLabel.Position = UDim2.new(0, 0, 0, 20) -- Positioniert unter dem neuen Text
winsLabel.BackgroundTransparency = 1
winsLabel.Text = "Wins Farm"
winsLabel.TextColor3 = Color3.fromRGB(255, 255, 255)
winsLabel.Font = Enum.Font.SourceSansBold
winsLabel.TextSize = 18
winsLabel.Parent = mainFrame

local winsButton = Instance.new("TextButton")
winsButton.Name = "WinsButton"
winsButton.Size = UDim2.new(0, 160, 0, 35)
winsButton.Position = UDim2.new(0.5, -80, 0, 50)
winsButton.BackgroundColor3 = Color3.fromRGB(200, 50, 50) -- Rot (Aus)
winsButton.Text = "AUS"
winsButton.TextColor3 = Color3.fromRGB(255, 255, 255)
winsButton.Font = Enum.Font.SourceSansBold
winsButton.TextSize = 16
winsButton.BorderSizePixel = 0
winsButton.Parent = mainFrame

local winsCorner = Instance.new("UICorner")
winsCorner.CornerRadius = UDim.new(0, 6)
winsCorner.Parent = winsButton

-- --- SPEED FARM ELEMENTE (Position angepasst) ---
local speedLabel = Instance.new("TextLabel")
speedLabel.Name = "SpeedLabel"
speedLabel.Size = UDim2.new(1, 0, 0, 30)
speedLabel.Position = UDim2.new(0, 0, 0, 100) -- Tiefer gesetzt
speedLabel.BackgroundTransparency = 1
speedLabel.Text = "Speed Farm"
speedLabel.TextColor3 = Color3.fromRGB(255, 255, 255)
speedLabel.Font = Enum.Font.SourceSansBold
speedLabel.TextSize = 18
speedLabel.Parent = mainFrame

local speedButton = Instance.new("TextButton")
speedButton.Name = "SpeedButton"
speedButton.Size = UDim2.new(0, 160, 0, 35)
speedButton.Position = UDim2.new(0.5, -80, 0, 130) -- Tiefer gesetzt
speedButton.BackgroundColor3 = Color3.fromRGB(200, 50, 50) -- Rot (Aus)
speedButton.Text = "AUS"
speedButton.TextColor3 = Color3.fromRGB(255, 255, 255)
speedButton.Font = Enum.Font.SourceSansBold
speedButton.TextSize = 16
speedButton.BorderSizePixel = 0
speedButton.Parent = mainFrame

local speedCorner = Instance.new("UICorner")
speedCorner.CornerRadius = UDim.new(0, 6)
speedCorner.Parent = speedButton


-- 2. DRAGGABLE LOGIK (Box bewegen) - Unverändert
local dragging, dragInput, dragStart, startPos

local function update(input)
    local delta = input.Position - dragStart
    mainFrame.Position = UDim2.new(startPos.X.Scale, startPos.X.Offset + delta.X, startPos.Y.Scale, startPos.Y.Offset + delta.Y)
end

mainFrame.InputBegan:Connect(function(input)
    if input.UserInputType == Enum.UserInputType.MouseButton1 or input.UserInputType == Enum.UserInputType.Touch then
        dragging = true
        dragStart = input.Position
        startPos = mainFrame.Position
        
        input.Changed:Connect(function()
            if input.UserInputState == Enum.UserInputState.End then
                dragging = false
            end
        end)
    end
end)

mainFrame.InputChanged:Connect(function(input)
    if input.UserInputType == Enum.UserInputType.MouseMovement or input.UserInputType == Enum.UserInputType.Touch then
        dragInput = input
    end
end)

UserInputService.InputChanged:Connect(function(input)
    if input == dragInput and dragging then
        update(input)
    end
end)


-- 3. LOGIK UND LOOPS FÜR DIE FARMS - Unverändert
local winsActive = false
local speedActive = false

-- Wins Teleport Loop
task.spawn(function()
    while true do
        if winsActive then
            local ziel = workspace.Map2.GiveWins["19"]
            if localPlayer.Character and localPlayer.Character:FindFirstChild("HumanoidRootPart") then
                if ziel and ziel:IsA("BasePart") then
                    localPlayer.Character.HumanoidRootPart.CFrame = ziel.CFrame
                elseif ziel and ziel:IsA("Model") then
                    localPlayer.Character.HumanoidRootPart.CFrame = ziel:GetPivot()
                end
            end
        end
        task.wait(0)
    end
end)

-- Speed Event Loop (Ohne Wait/Verzögerung für maximalen Speed)
task.spawn(function()
    while true do
        if speedActive then
            speedEvent:FireServer()
        end
        task.wait(0) -- Feuert so schnell das Spiel es erlaubt
    end
end)


-- 4. BUTTON KLICK LOGIK - Unverändert
winsButton.MouseButton1Click:Connect(function()
    winsActive = not winsActive
    if winsActive then
        winsButton.Text = "AN"
        winsButton.BackgroundColor3 = Color3.fromRGB(50, 200, 50)
    else
        winsButton.Text = "AUS"
        winsButton.BackgroundColor3 = Color3.fromRGB(200, 50, 50)
    end
end)

speedButton.MouseButton1Click:Connect(function()
    speedActive = not speedActive
    if speedActive then
        speedButton.Text = "AN"
        speedButton.BackgroundColor3 = Color3.fromRGB(50, 200, 50)
    else
        speedButton.Text = "AUS"
        speedButton.BackgroundColor3 = Color3.fromRGB(200, 50, 50)
    end
end)