local Players = game:GetService("Players")
local player = Players.LocalPlayer
local playerGui = player:WaitForChild("PlayerGui")
local RunService = game:GetService("RunService")

local ScreenGui = Instance.new("ScreenGui")
ScreenGui.Parent = playerGui
ScreenGui.ResetOnSpawn = false

local Button = Instance.new("TextButton")
Button.Size = UDim2.new(0,100,0,50)
Button.Position = UDim2.new(0,10,1,-60)
Button.Text = "Sparta!"
Button.BackgroundColor3 = Color3.fromRGB(50,50,50)
Button.TextColor3 = Color3.fromRGB(255,255,255)
Button.Parent = ScreenGui

local function makeDraggable(frame)
    local dragging, dragInput, dragStart, startPos
    local function update(input)
        local delta = input.Position - dragStart
        frame.Position = UDim2.new(startPos.X.Scale, startPos.X.Offset + delta.X, startPos.Y.Scale, startPos.Y.Offset + delta.Y)
    end
    frame.InputBegan:Connect(function(input)
        if input.UserInputType == Enum.UserInputType.MouseButton1 then
            dragging = true
            dragStart = input.Position
            startPos = frame.Position
            input.Changed:Connect(function()
                if input.UserInputState == Enum.UserInputState.End then
                    dragging = false
                end
            end)
        end
    end)
    frame.InputChanged:Connect(function(input)
        if input.UserInputType == Enum.UserInputType.MouseMovement then
            dragInput = input
        end
    end)
    RunService.RenderStepped:Connect(function()
        if dragging and dragInput then
            update(dragInput)
        end
    end)
end

local function changeTexturesAndAddItem()
    for _, obj in pairs(workspace:GetDescendants()) do
        if obj:IsA("BasePart") then
            for _, child in pairs(obj:GetChildren()) do
                if child:IsA("Decal") or child:IsA("Texture") then
                    child.Texture = "rbxassetid://133879327330655"
                end
            end
            if obj:IsA("MeshPart") then
                obj.TextureID = "rbxassetid://133879327330655"
            end
        end
    end

    wait(2)
    local sky = Instance.new("Sky")
    sky.SkyboxBk = "rbxassetid://91405549801944"
    sky.SkyboxDn = "rbxassetid://91405549801944"
    sky.SkyboxFt = "rbxassetid://91405549801944"
    sky.SkyboxLf = "rbxassetid://91405549801944"
    sky.SkyboxRt = "rbxassetid://91405549801944"
    sky.SkyboxUp = "rbxassetid://91405549801944"
    sky.Parent = game:GetService("Lighting")

    wait(1)
    local Tool = Instance.new("Tool")
    Tool.Name = "SpartaImage"
    Tool.TextureId = "rbxassetid://6116198893"
    local Handle = Instance.new("Part")
    Handle.Name = "Handle"
    Handle.Size = Vector3.new(1,1,1)
    Handle.Transparency = 1
    Handle.Parent = Tool
    Tool.Parent = player.Backpack

    Tool.Equipped:Connect(function()
        if not Handle:FindFirstChild("Mesh") then
            local mesh = Instance.new("SpecialMesh", Handle)
            mesh.MeshType = Enum.MeshType.FileMesh
            mesh.TextureId = "rbxassetid://6116198893"
        else
            Handle.Mesh.TextureId = "rbxassetid://6116198893"
        end
    end)

    wait(1)
    local sound = Instance.new("Sound")
    sound.SoundId = "rbxassetid://76806646437496"
    sound.PlaybackSpeed = 0.15
    sound.Parent = workspace
    sound:Play()

    wait(1)
    local msgFrame = Instance.new("Frame")
    msgFrame.Size = UDim2.new(0,300,0,100)
    msgFrame.Position = UDim2.new(0.5,-150,0.5,-50)
    msgFrame.BackgroundColor3 = Color3.fromRGB(0,0,0)
    msgFrame.Parent = playerGui

    local msgText = Instance.new("TextLabel")
    msgText.Size = UDim2.new(1,0,1,0)
    msgText.Text = "This is Spartan! (Hacked by T00dkiddd)"
    msgText.TextColor3 = Color3.fromRGB(255,255,255)
    msgText.BackgroundTransparency = 1
    msgText.Parent = msgFrame

    makeDraggable(msgFrame)
end

Button.MouseButton1Click:Connect(changeTexturesAndAddItem)