PasteShr

New Paste Browse

-- Porq Steal - Full Script with Server Hop + Auto Reload

local Players = game:GetService("Players")
local LocalPlayer = Players.LocalPlayer
local RunService = game:GetService("RunService")
local TweenService = game:GetService("TweenService")
local TeleportService = game:GetService("TeleportService")
local HttpService = game:GetService("HttpService")

-- Clean previous UI if exists
local CoreGui = game:GetService("CoreGui")
if CoreGui:FindFirstChild("PorqSteal") then
    CoreGui:FindFirstChild("PorqSteal"):Destroy()
end

-- UI Setup
local gui = Instance.new("ScreenGui", CoreGui)
gui.Name = "PorqSteal"
gui.ResetOnSpawn = false

local main = Instance.new("Frame", gui)
main.Size = UDim2.new(0, 250, 0, 400)
main.Position = UDim2.new(0, 20, 0.3, 0)
main.BackgroundColor3 = Color3.fromRGB(25, 25, 25)
main.BorderSizePixel = 0
Instance.new("UICorner", main).CornerRadius = UDim.new(0, 10)

local title = Instance.new("TextLabel", main)
title.Text = "Porq Steal"
title.Size = UDim2.new(1, 0, 0, 40)
title.TextColor3 = Color3.new(1,1,1)
title.BackgroundTransparency = 1
title.Font = Enum.Font.GothamBold
title.TextSize = 20

-- Utility buttons creation
local function createButton(text, order, callback)
    local btn = Instance.new("TextButton", main)
    btn.Size = UDim2.new(1, -20, 0, 30)
    btn.Position = UDim2.new(0, 10, 0, 50 + (order - 1) * 35)
    btn.BackgroundColor3 = Color3.fromRGB(40, 40, 40)
    btn.TextColor3 = Color3.new(1, 1, 1)
    btn.Text = text
    btn.Font = Enum.Font.Gotham
    btn.TextSize = 14
    btn.AutoButtonColor = true
    btn.BorderSizePixel = 0
    btn.MouseButton1Click:Connect(callback)
    Instance.new("UICorner", btn).CornerRadius = UDim.new(0, 6)
    return btn
end

local function createTextBox(placeholder, order)
    local box = Instance.new("TextBox", main)
    box.PlaceholderText = placeholder
    box.Size = UDim2.new(1, -20, 0, 30)
    box.Position = UDim2.new(0, 10, 0, 50 + (order - 1) * 35)
    box.BackgroundColor3 = Color3.fromRGB(35, 35, 35)
    box.TextColor3 = Color3.new(1, 1, 1)
    box.Font = Enum.Font.Gotham
    box.TextSize = 14
    box.ClearTextOnFocus = false
    box.BorderSizePixel = 0
    Instance.new("UICorner", box).CornerRadius = UDim.new(0, 6)
    return box
end

-- Variables
local player = LocalPlayer
local character = player.Character or player.CharacterAdded:Wait()
local hrp = character:WaitForChild("HumanoidRootPart")
local humanoid = character:WaitForChild("Humanoid")

local selectedPos = Vector3.new(0,0,0)
local tweenSpeed = 5
local loopWS = false
local loopJP = false
local noclipActive = false
local instantPromptActive = false
local skywalkActive = false
local originalSkywalkPos = nil
local skywalkPart = nil

-- Position input boxes (X, Y, Z)
local posXBox = createTextBox("X", 1)
local posYBox = createTextBox("Y", 2)
local posZBox = createTextBox("Z", 3)

-- PlaceId input box (for server hop)
local placeIdBox = createTextBox("PlaceId for Server Hop", 11)
placeIdBox.Text = tostring(game.PlaceId)

-- Set Position Button (sets X,Y,Z boxes to current HRP pos)
createButton("Set Position to Current", 4, function()
    if hrp then
        selectedPos = hrp.Position
        posXBox.Text = tostring(math.floor(selectedPos.X))
        posYBox.Text = tostring(math.floor(selectedPos.Y))
        posZBox.Text = tostring(math.floor(selectedPos.Z))
    end
end)

-- Teleport Button
createButton("Teleport to Position", 5, function()
    local x = tonumber(posXBox.Text) or 0
    local y = tonumber(posYBox.Text) or 0
    local z = tonumber(posZBox.Text) or 0
    if hrp then
        hrp.CFrame = CFrame.new(x, y, z)
    end
end)

-- Tween to Position Button
createButton("Tween to Position", 6, function()
    local x = tonumber(posXBox.Text) or 0
    local y = tonumber(posYBox.Text) or 0
    local z = tonumber(posZBox.Text) or 0

local targetPos = Vector3.new(x,y,z)
    if not hrp then return end

local duration = tweenSpeed
    local startPos = hrp.Position
    local distance = (targetPos - startPos).Magnitude
    local speed = distance / duration

local conn
    local startTime = tick()

conn = RunService.Heartbeat:Connect(function()
        local elapsed = tick() - startTime
        if elapsed >= duration then
            hrp.CFrame = CFrame.new(targetPos)
            conn:Disconnect()
            return
        end
        local dir = (targetPos - hrp.Position).Unit
        hrp.Velocity = dir * speed
    end)
end)

-- Tween speed input box
local tweenSpeedBox = createTextBox("Tween Speed (seconds)", 7)
tweenSpeedBox.Text = tostring(tweenSpeed)
tweenSpeedBox.FocusLost:Connect(function(enterPressed)
    if enterPressed then
        local val = tonumber(tweenSpeedBox.Text)
        if val and val > 0 then
            tweenSpeed = val
        else
            tweenSpeedBox.Text = tostring(tweenSpeed)
        end
    end
end)

-- Loop WalkSpeed Button
local wsButton = createButton("Toggle Loop WalkSpeed (16)", 8, function()
    loopWS = not loopWS
    task.spawn(function()
        while loopWS do
            if humanoid then
                humanoid.WalkSpeed = 16
            end
            task.wait(0.2)
        end
    end)
end)

-- Loop JumpPower Button
local jpButton = createButton("Toggle Loop JumpPower (50)", 9, function()
    loopJP = not loopJP
    task.spawn(function()
        while loopJP do
            if humanoid then
                humanoid.JumpPower = 50
            end
            task.wait(0.2)
        end
    end)
end)

-- Noclip toggle
local noclipButton = createButton("Toggle Noclip", 10, function()
    noclipActive = not noclipActive
    if noclipActive then
        noclipButton.Text = "Noclip: ON"
        noclipConnection = RunService.Stepped:Connect(function()
            if character then
                for _, part in pairs(character:GetDescendants()) do
                    if part:IsA("BasePart") then
                        part.CanCollide = false
                    end
                end
            end
        end)
    else
        noclipButton.Text = "Noclip: OFF"
        if noclipConnection then
            noclipConnection:Disconnect()
            noclipConnection = nil
        end
    end
end)

-- Instant Proximity Prompt toggle
local instantPromptButton = createButton("Toggle Instant Proximity Prompt", 12, function()
    instantPromptActive = not instantPromptActive
    task.spawn(function()
        while instantPromptActive do
            for _, prompt in pairs(workspace:GetDescendants()) do
                if prompt:IsA("ProximityPrompt") and prompt.Enabled then
                    pcall(function()
                        prompt:InputHoldBegin()
                        task.wait()
                        prompt:InputHoldEnd()
                    end)
                end
            end
            task.wait(0.3)
        end
    end)
end)

-- Skywalk toggle
local skywalkButton = createButton("Toggle Skywalk", 13, function()
    if not skywalkActive then
        if hrp then
            originalSkywalkPos = hrp.Position
            skywalkPart = Instance.new("Part", workspace)
            skywalkPart.Size = Vector3.new(30, 1, 30)
            skywalkPart.Position = originalSkywalkPos + Vector3.new(0, 150, 0)
            skywalkPart.Anchored = true
            skywalkPart.Transparency = 1
            skywalkPart.Name = "SkywalkPlatform"
            skywalkPart.CanCollide = true
            hrp.CFrame = CFrame.new(skywalkPart.Position + Vector3.new(0, 5, 0))
            skywalkActive = true
            skywalkButton.Text = "Skywalk: ON"
        end
    else
        if skywalkPart then
            skywalkPart:Destroy()
            skywalkPart = nil
        end
        if hrp and originalSkywalkPos then
            hrp.CFrame = CFrame.new(originalSkywalkPos)
        end
        skywalkActive = false
        skywalkButton.Text = "Skywalk: OFF"
    end
end)

-- Server Hop Button
local serverHopButton = createButton("Server Hop", 14, function()
    local placeId = tonumber(placeIdBox.Text)
    if not placeId then
        warn("Invalid PlaceId")
        return
    end

-- Find another server to teleport to (exclude current server)
    local success, servers = pcall(function()
        local url = "https://games.roblox.com/v1/games/"..placeId.."/servers/Public?sortOrder=Asc&limit=100"
        local response = HttpService:GetAsync(url)
        local data = HttpService:JSONDecode(response)
        return data.data
    end)

if not success or not servers then
        warn("Failed to get server list")
        return
    end

local targetServer
    for _, server in ipairs(servers) do
        if server.playing < server.maxPlayers and server.id ~= game.JobId then
            targetServer = server.id
            break
        end
    end

if targetServer then
        -- Auto-reload the script on teleport
        if queueonteleport then
            queueonteleport("loadstring(game:HttpGet('https://pastebin.com/raw/sURme8D5'))()")
        elseif syn and syn.queue_on_teleport then
            syn.queue_on_teleport("loadstring(game:HttpGet('https://pastebin.com/raw/sURme8D5'))()")
        else
            warn("queueonteleport not supported on this executor")
        end
        TeleportService:TeleportToPlaceInstance(placeId, targetServer)
    else
        warn("No suitable servers found to hop")
    end
end)

-- Update references when character respawns
player.CharacterAdded:Connect(function(char)
    character = char
    hrp = character:WaitForChild("HumanoidRootPart")
    humanoid = character:WaitForChild("Humanoid")
end)

-- Set initial default PlaceId text
placeIdBox.Text = tostring(game.PlaceId)

Paste Settings

Paste Title : [Optional]

Paste Folder : [Optional]

Syntax Highlighting : [Optional]

Paste Expiration : [Optional]

Paste Status : [Optional]

Password : [Optional]

Description: [Optional]

Tags: [Optional]

Encrypt Paste (?)

You are currently not logged in, this means you can not edit or delete anything you paste. Sign Up or Login

Recent Pastes

trident survival scripts
Plaintext | 0 | 4 minutes ago
https exhentai org
Plaintext | 0 | 4 minutes ago
gdp e154
Plaintext | 0 | 4 minutes ago
big paintball script owl hub
Plaintext | 0 | 4 minutes ago
dusty trip script
Plaintext | 0 | 4 minutes ago
atk hairy pics
Plaintext | 3 | 9 minutes ago
wasp scripts
Plaintext | 3 | 9 minutes ago

Paste Settings

Site Languages