Pastefi mark
Untitled
/598b7ce8
Paste view
NONE PUBLIC 49 views
598b7ce8
2025-10-31 04:20:25
-- Developer testing script (LocalScript) con GUI movible y minimizable
-- USO: Pegar en StarterPlayer -> StarterPlayerScripts
-- KEY: 1231
-- Sólo para tu propio juego / testing

local Players = game:GetService("Players")
local RunService = game:GetService("RunService")
local UserInputService = game:GetService("UserInputService")
local player = Players.LocalPlayer
local character = player.Character or player.CharacterAdded:Wait()
local humanoid = character:WaitForChild("Humanoid")

-- Estado
local enabled = {
    oneHit = false,
    invisible = false,
    noclip = false,
    immortal = false,
}

local ACTIVATION_KEY = "1231"

-- GUI
local screenGui = Instance.new("ScreenGui")
screenGui.Name = "DevPowerGui"
screenGui.ResetOnSpawn = false
screenGui.Parent = player:WaitForChild("PlayerGui")

-- Main window
local window = Instance.new("Frame")
window.Name = "MainWindow"
window.Size = UDim2.new(0, 280, 0, 250)
window.Position = UDim2.new(0, 10, 0, 10)
window.BackgroundColor3 = Color3.fromRGB(30, 30, 30)
window.BorderSizePixel = 0
window.AnchorPoint = Vector2.new(0, 0)
window.Parent = screenGui
window.Active = true

-- Rounded corners
local corner = Instance.new("UICorner", window)
corner.CornerRadius = UDim.new(0, 8)

-- Header
local header = Instance.new("Frame")
header.Name = "Header"
header.Size = UDim2.new(1, 0, 0, 34)
header.BackgroundTransparency = 1
header.Parent = window

local title = Instance.new("TextLabel", header)
title.Name = "Title"
title.Size = UDim2.new(1, -70, 1, 0)
title.Position = UDim2.new(0, 10, 0, 0)
title.BackgroundTransparency = 1
title.Text = "Dev Powers (key: 1231)"
title.Font = Enum.Font.SourceSansBold
title.TextSize = 16
title.TextColor3 = Color3.fromRGB(255,255,255)
title.TextXAlignment = Enum.TextXAlignment.Left

local minimizeBtn = Instance.new("TextButton", header)
minimizeBtn.Name = "Minimize"
minimizeBtn.Size = UDim2.new(0, 26, 0, 26)
minimizeBtn.Position = UDim2.new(1, -36, 0, 4)
minimizeBtn.Text = "-"
minimizeBtn.Font = Enum.Font.SourceSansBold
minimizeBtn.TextSize = 18
minimizeBtn.BackgroundTransparency = 0.15
minimizeBtn.TextColor3 = Color3.fromRGB(255,255,255)

local closeBtn = Instance.new("TextButton", header)
closeBtn.Name = "Close"
closeBtn.Size = UDim2.new(0, 26, 0, 26)
closeBtn.Position = UDim2.new(1, -68, 0, 4)
closeBtn.Text = "x"
closeBtn.Font = Enum.Font.SourceSansBold
closeBtn.TextSize = 16
closeBtn.BackgroundTransparency = 0.15
closeBtn.TextColor3 = Color3.fromRGB(255,255,255)

-- Content
local content = Instance.new("Frame")
content.Name = "Content"
content.Size = UDim2.new(1, -20, 1, -54)
content.Position = UDim2.new(0, 10, 0, 44)
content.BackgroundTransparency = 1
content.Parent = window

local uiList = Instance.new("UIListLayout", content)
uiList.Padding = UDim.new(0, 8)
uiList.FillDirection = Enum.FillDirection.Vertical
uiList.SortOrder = Enum.SortOrder.LayoutOrder
uiList.HorizontalAlignment = Enum.HorizontalAlignment.Center
uiList.VerticalAlignment = Enum.VerticalAlignment.Top

-- Key entry
local keyRow = Instance.new("Frame", content)
keyRow.Size = UDim2.new(1, 0, 0, 40)
keyRow.BackgroundTransparency = 1

local keyBox = Instance.new("TextBox", keyRow)
keyBox.Size = UDim2.new(0.62, 0, 1, 0)
keyBox.Position = UDim2.new(0, 0, 0, 0)
keyBox.PlaceholderText = "Introduce key (ej: 1231)"
keyBox.ClearTextOnFocus = false
keyBox.Text = ""
keyBox.Font = Enum.Font.SourceSans
keyBox.TextSize = 14
keyBox.BackgroundColor3 = Color3.fromRGB(45,45,45)
keyBox.BorderSizePixel = 0
keyBox.TextColor3 = Color3.fromRGB(255,255,255)

local unlockBtn = Instance.new("TextButton", keyRow)
unlockBtn.Size = UDim2.new(0.36, 0, 1, 0)
unlockBtn.Position = UDim2.new(0.64, 0, 0, 0)
unlockBtn.Text = "Unlock"
unlockBtn.Font = Enum.Font.SourceSansBold
unlockBtn.TextSize = 14
unlockBtn.BackgroundColor3 = Color3.fromRGB(60,140,60)
unlockBtn.BorderSizePixel = 0
unlockBtn.TextColor3 = Color3.fromRGB(255,255,255)

local statusLabel = Instance.new("TextLabel", content)
statusLabel.Size = UDim2.new(1, 0, 0, 20)
statusLabel.BackgroundTransparency = 1
statusLabel.Text = "Introduce la key para activar los poderes"
statusLabel.Font = Enum.Font.SourceSans
statusLabel.TextSize = 14
statusLabel.TextColor3 = Color3.fromRGB(255,255,255)

-- Dragging
local dragging = false
local dragOffset

header.InputBegan:Connect(function(input)
    if input.UserInputType == Enum.UserInputType.MouseButton1 then
        dragging = true
        dragOffset = input.Position - window.AbsolutePosition
    end
end)

header.InputEnded:Connect(function(input)
    if input.UserInputType == Enum.UserInputType.MouseButton1 then
        dragging = false
    end
end)

header.InputChanged:Connect(function(input)
    if dragging and input.UserInputType == Enum.UserInputType.MouseMovement then
        window.Position = UDim2.new(0, input.Position.X - dragOffset.X, 0, input.Position.Y - dragOffset.Y)
    end
end)

-- Minimize / Close
minimizeBtn.MouseButton1Click:Connect(function()
    content.Visible = not content.Visible
end)

closeBtn.MouseButton1Click:Connect(function()
    screenGui:Destroy()
end)

-- Unlock button
unlockBtn.MouseButton1Click:Connect(function()
    if keyBox.Text == ACTIVATION_KEY then
        statusLabel.Text = "¡Poderes activados!"
        enabled.oneHit = true
        enabled.invisible = true
        enabled.noclip = true
        enabled.immortal = true
    else
        statusLabel.Text = "Key incorrecta"
    end
end)

-- Poderes

-- Noclip
RunService.RenderStepped:Connect(function()
    if enabled.noclip then
        for _, part in pairs(character:GetChildren()) do
            if part:IsA("BasePart") then
                part.CanCollide = false
            end
        end
    else
        for _, part in pairs(character:GetChildren()) do
            if part:IsA("BasePart") then
                part.CanCollide = true
            end
        end
    end
end)

-- Invisible
RunService.RenderStepped:Connect(function()
    if enabled.invisible then
        for _, part in pairs(character:GetChildren()) do
            if part:IsA("BasePart") or part:IsA("MeshPart") then
                part.Transparency = 1
            end
        end
    else
        for _, part in pairs(character:GetChildren()) do
            if part:IsA("BasePart") or part:IsA("MeshPart") then
                part.Transparency = 0
            end
        end
    end
end)

-- Immortal
humanoid.HealthChanged:Connect(function()
    if enabled.immortal then
        humanoid.Health = humanoid.MaxHealth
    end
end)

Comments (0)

Log in to leave a comment.

No comments yet.